20200912備份

Signed-off-by: B70340 <b70340@gmail.com>

SHENKANG-MES-SYS/MyModule/全域變數.vb

@@ -9,7 +9,7 @@
                                  CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, CC77, CC78, 
                                  CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95 FROM"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020072801"
+    Public 版本 As String = "2020090201"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
     Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""
@@ -25,6 +25,7 @@
     Public 部門清單修改 As Boolean : Public 職稱清單修改 As Boolean : Public 客戶清單修改 As Boolean : Public 工廠清單修改 As Boolean : Public 顏色清單修改 As Boolean : Public 港口清單修改 As Boolean
     Public 季節清單修改 As Boolean : Public 供應商清單修改 As Boolean : Public 國家清單修改 As Boolean : Public PURPOSE清單修改 As Boolean : Public 部件清單修改 As Boolean : Public 交貨條件修改 As Boolean
     Public 到港清單修改 As Boolean : Public 交貨管道修改 As Boolean : Public 模具用結構 As Boolean : Public 模具用材質 As Boolean : Public 行政物料 As Boolean : Public 訂單顏色修改 As Boolean
+    Public 楦頭編碼修改 As Boolean : Public 廠商類別修改 As Boolean
     '----清單修改2----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public INVOICE用客戶資料 As Boolean
     Public Class MyModule1

SHENKANG-MES-SYS/WINPROFIT-ERP-SYS.Designer.vb

@@ -130,6 +130,7 @@ Partial Class WINPROFIT_ERP_SYS
         Me.量產訂單管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.量產訂單輸入ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.量產訂單控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator()
         Me.量產進度表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
         Me.量產CXL訂單紀錄表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -137,7 +138,6 @@ Partial Class WINPROFIT_ERP_SYS
         Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
         Me.FACTORY資料管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DELIVERYADDRESS資料管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator()
         Me.預告訂單控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.預告訂單轉量產訂單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.品保系統管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -196,7 +196,7 @@ Partial Class WINPROFIT_ERP_SYS
         Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip.MdiWindowListItem = Me.WindowsMenu
         Me.MenuStrip.Name = "MenuStrip"
-        Me.MenuStrip.Size = New System.Drawing.Size(1924, 24)
+        Me.MenuStrip.Size = New System.Drawing.Size(1472, 24)
         Me.MenuStrip.TabIndex = 5
         Me.MenuStrip.Text = "MenuStrip"
         '
@@ -608,66 +608,66 @@ Partial Class WINPROFIT_ERP_SYS
         '
         Me.製鞋技術資料庫除錯1ToolStripMenuItem.ForeColor = System.Drawing.Color.Goldenrod
         Me.製鞋技術資料庫除錯1ToolStripMenuItem.Name = "製鞋技術資料庫除錯1ToolStripMenuItem"
-        Me.製鞋技術資料庫除錯1ToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
-        Me.製鞋技術資料庫除錯1ToolStripMenuItem.Text = "製鞋技術資料庫除錯_1"
+        Me.製鞋技術資料庫除錯1ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
+        Me.製鞋技術資料庫除錯1ToolStripMenuItem.Text = "製鞋技術資料庫狀態"
         '
         'ToolStripSeparator22
         '
         Me.ToolStripSeparator22.Name = "ToolStripSeparator22"
-        Me.ToolStripSeparator22.Size = New System.Drawing.Size(191, 6)
+        Me.ToolStripSeparator22.Size = New System.Drawing.Size(190, 6)
         '
         '楦頭規格表ToolStripMenuItem
         '
         Me.楦頭規格表ToolStripMenuItem.ForeColor = System.Drawing.Color.Goldenrod
         Me.楦頭規格表ToolStripMenuItem.Name = "楦頭規格表ToolStripMenuItem"
-        Me.楦頭規格表ToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
+        Me.楦頭規格表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.楦頭規格表ToolStripMenuItem.Text = "楦頭規格表"
         '
         '模具開發控制表ToolStripMenuItem
         '
         Me.模具開發控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.Goldenrod
         Me.模具開發控制表ToolStripMenuItem.Name = "模具開發控制表ToolStripMenuItem"
-        Me.模具開發控制表ToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
+        Me.模具開發控制表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.模具開發控制表ToolStripMenuItem.Text = "模具開發控制表"
         '
         '鞋樣素描控制表ToolStripMenuItem
         '
         Me.鞋樣素描控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.Goldenrod
         Me.鞋樣素描控制表ToolStripMenuItem.Name = "鞋樣素描控制表ToolStripMenuItem"
-        Me.鞋樣素描控制表ToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
+        Me.鞋樣素描控制表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.鞋樣素描控制表ToolStripMenuItem.Text = "鞋樣素描控制表"
         '
         '形體總表MINIWALLToolStripMenuItem
         '
         Me.形體總表MINIWALLToolStripMenuItem.ForeColor = System.Drawing.Color.Goldenrod
         Me.形體總表MINIWALLToolStripMenuItem.Name = "形體總表MINIWALLToolStripMenuItem"
-        Me.形體總表MINIWALLToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
+        Me.形體總表MINIWALLToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.形體總表MINIWALLToolStripMenuItem.Text = "形體總表(MINI WALL)"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(191, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(190, 6)
         '
         '型體控制表ToolStripMenuItem1
         '
         Me.型體控制表ToolStripMenuItem1.ForeColor = System.Drawing.Color.Goldenrod
         Me.型體控制表ToolStripMenuItem1.Name = "型體控制表ToolStripMenuItem1"
-        Me.型體控制表ToolStripMenuItem1.Size = New System.Drawing.Size(194, 22)
+        Me.型體控制表ToolStripMenuItem1.Size = New System.Drawing.Size(193, 22)
         Me.型體控制表ToolStripMenuItem1.Text = "型體控制表"
         '
         '部件清單控制表ToolStripMenuItem1
         '
         Me.部件清單控制表ToolStripMenuItem1.ForeColor = System.Drawing.Color.Goldenrod
         Me.部件清單控制表ToolStripMenuItem1.Name = "部件清單控制表ToolStripMenuItem1"
-        Me.部件清單控制表ToolStripMenuItem1.Size = New System.Drawing.Size(194, 22)
+        Me.部件清單控制表ToolStripMenuItem1.Size = New System.Drawing.Size(193, 22)
         Me.部件清單控制表ToolStripMenuItem1.Text = "部件清單控制表"
         '
         '底台中皮結構ToolStripMenuItem
         '
         Me.底台中皮結構ToolStripMenuItem.ForeColor = System.Drawing.Color.Goldenrod
         Me.底台中皮結構ToolStripMenuItem.Name = "底台中皮結構ToolStripMenuItem"
-        Me.底台中皮結構ToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
+        Me.底台中皮結構ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.底台中皮結構ToolStripMenuItem.Text = "中皮結構、中底作法"
         '
         '樣品訂單管理ToolStripMenuItem
@@ -905,6 +905,11 @@ Partial Class WINPROFIT_ERP_SYS
         Me.量產訂單控制表ToolStripMenuItem.Size = New System.Drawing.Size(247, 22)
         Me.量產訂單控制表ToolStripMenuItem.Text = "量產訂單控制表"
         '
+        'ToolStripSeparator23
+        '
+        Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
+        Me.ToolStripSeparator23.Size = New System.Drawing.Size(244, 6)
+        '
         '量產進度表ToolStripMenuItem
         '
         Me.量產進度表ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -950,11 +955,6 @@ Partial Class WINPROFIT_ERP_SYS
         Me.DELIVERYADDRESS資料管理ToolStripMenuItem.Size = New System.Drawing.Size(247, 22)
         Me.DELIVERYADDRESS資料管理ToolStripMenuItem.Text = "DELIVERY_ADDRESS__資料管理"
         '
-        'ToolStripSeparator23
-        '
-        Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
-        Me.ToolStripSeparator23.Size = New System.Drawing.Size(244, 6)
-        '
         '預告訂單控制表ToolStripMenuItem
         '
         Me.預告訂單控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
@@ -1206,9 +1206,10 @@ Partial Class WINPROFIT_ERP_SYS
         '
         'ComboBox3
         '
+        Me.ComboBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.ComboBox3.FormattingEnabled = True
         Me.ComboBox3.Items.AddRange(New Object() {"主畫面"})
-        Me.ComboBox3.Location = New System.Drawing.Point(1698, 2)
+        Me.ComboBox3.Location = New System.Drawing.Point(1246, 2)
         Me.ComboBox3.Name = "ComboBox3"
         Me.ComboBox3.Size = New System.Drawing.Size(121, 20)
         Me.ComboBox3.TabIndex = 7
@@ -1244,9 +1245,9 @@ Partial Class WINPROFIT_ERP_SYS
         'StatusStrip1
         '
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel2, Me.ToolStripProgressBar1})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 1019)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 728)
         Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(1924, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(1472, 22)
         Me.StatusStrip1.TabIndex = 9
         Me.StatusStrip1.Text = "StatusStrip1"
         '
@@ -1273,7 +1274,7 @@ Partial Class WINPROFIT_ERP_SYS
         'Button1
         '
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button1.Location = New System.Drawing.Point(1620, 1)
+        Me.Button1.Location = New System.Drawing.Point(1168, 1)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(75, 23)
         Me.Button1.TabIndex = 11
@@ -1284,7 +1285,7 @@ Partial Class WINPROFIT_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1924, 1041)
+        Me.ClientSize = New System.Drawing.Size(1472, 750)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.ComboBox3)

SHENKANG-MES-SYS/WINPROFIT-ERP-SYS.vb

@@ -408,7 +408,7 @@ Public Class WINPROFIT_ERP_SYS
         PA = "" : 中皮結構_中底作法.ShowDialog()
     End Sub
     Private Sub 製鞋技術資料庫除錯1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 製鞋技術資料庫除錯1ToolStripMenuItem.Click
-        PA = "" : 製鞋技術資料庫除錯.Show() : 製鞋技術資料庫除錯.BringToFront()
+        PA = "" : 製鞋技術資料庫狀態.Show() : 製鞋技術資料庫狀態.BringToFront()
     End Sub
     Private Sub 量產訂單輸入ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 量產訂單輸入ToolStripMenuItem.Click
         PA = "" : 量產訂單輸入.Show() : 量產訂單輸入.BringToFront()

SHENKANG-MES-SYS/WINPROFIT-ERP-SYS.vbproj

@@ -164,10 +164,10 @@
     <Compile Include="基本資料管理系統\清單修改2.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="製鞋技術管理系統\製鞋技術資料庫除錯.Designer.vb">
-      <DependentUpon>製鞋技術資料庫除錯.vb</DependentUpon>
+    <Compile Include="製鞋技術管理系統\製鞋技術資料庫狀態.Designer.vb">
+      <DependentUpon>製鞋技術資料庫狀態.vb</DependentUpon>
     </Compile>
-    <Compile Include="製鞋技術管理系統\製鞋技術資料庫除錯.vb">
+    <Compile Include="製鞋技術管理系統\製鞋技術資料庫狀態.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="成本管理系統\訂單價格利潤明細表.Designer.vb">
@@ -770,8 +770,8 @@
     <EmbeddedResource Include="基本資料管理系統\清單修改2.resx">
       <DependentUpon>清單修改2.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="製鞋技術管理系統\製鞋技術資料庫除錯.resx">
-      <DependentUpon>製鞋技術資料庫除錯.vb</DependentUpon>
+    <EmbeddedResource Include="製鞋技術管理系統\製鞋技術資料庫狀態.resx">
+      <DependentUpon>製鞋技術資料庫狀態.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="成本管理系統\訂單價格利潤明細表.resx">
       <DependentUpon>訂單價格利潤明細表.vb</DependentUpon>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>zcNXyhhclkrgzbVg1ptEu51Fl8xARQS2WdILd6Y6CDY=</dsig:DigestValue>
+        <dsig:DigestValue>4fvAWkAODyrjyTX8cxXaWzssjj2fKrQbM6Do6prMQ90=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5432248">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5476792">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>bolivNGcSqs/CRX/AxTyekNv0HMXQJv/wi7CJLhK0Tg=</dsig:DigestValue>
+        <dsig:DigestValue>KkU2WsIVbD2nK2Tr1BiqafZceZ/JCK4+P/SNIfM0STw=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>zcNXyhhclkrgzbVg1ptEu51Fl8xARQS2WdILd6Y6CDY=</dsig:DigestValue>
+        <dsig:DigestValue>4fvAWkAODyrjyTX8cxXaWzssjj2fKrQbM6Do6prMQ90=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5432248">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5476792">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>bolivNGcSqs/CRX/AxTyekNv0HMXQJv/wi7CJLhK0Tg=</dsig:DigestValue>
+        <dsig:DigestValue>KkU2WsIVbD2nK2Tr1BiqafZceZ/JCK4+P/SNIfM0STw=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-fc118b45a263188a9c2608194efcbeb61646589b
+f2e24cb61eaaee716d4e5bb265ba35777b0dfe57

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -639,8 +639,8 @@ G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.成本資料
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.網段.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.中皮結構_中底作法.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.樣品標籤批量列印.resources
-G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.製鞋技術資料庫除錯.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.訂單價格利潤明細表.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.計算機.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.量產出貨明細表.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.量產訂單輸入.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.製鞋技術資料庫狀態.resources

SHENKANG-MES-SYS/品保管理系統/驗貨報告資料庫.vb

@@ -87,10 +87,11 @@ Public Class 驗貨報告資料庫
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
         PA = InputBox("請輸入關鍵字")
         Set_DGV1載入前設定()
-        SQL1 = "SELECT 訂單控制表.訂單流水號, 訂單控制表.年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, 訂單控制表.顏色,  驗貨報告圖庫.驗貨報告編號 " &
-               "FROM 驗貨報告圖庫 LEFT OUTER JOIN 訂單控制表 ON 驗貨報告圖庫.客戶訂單號 = 訂單控制表.客戶訂單號 WHERE 訂單控制表.訂單流水號 LIKE '%" & PA & "%' OR " &
-               "訂單控制表.年份季度 LIKE '%" & PA & "%' OR 驗貨報告圖庫.客戶訂單號 LIKE '%" & PA & "%' OR 驗貨報告圖庫.型體名稱 LIKE '%" & PA & "%' GROUP BY 訂單控制表.訂單流水號, 訂單控制表.年份季度, " &
-               "驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, 訂單控制表.顏色, 驗貨報告圖庫.驗貨報告編號 ORDER BY 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱"
+        SQL1 = "SELECT 訂單控制表.訂單流水號, 訂單控制表.年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, 訂單控制表.APMA確認 AS 顏色,  驗貨報告圖庫.驗貨報告編號 
+                FROM 驗貨報告圖庫 LEFT OUTER JOIN 訂單控制表 ON 驗貨報告圖庫.客戶訂單號 = 訂單控制表.客戶訂單號 
+                WHERE 訂單控制表.訂單流水號 LIKE '%" & PA & "%' OR 訂單控制表.年份季度 LIKE '%" & PA & "%' OR 驗貨報告圖庫.客戶訂單號 LIKE '%" & PA & "%' OR 驗貨報告圖庫.型體名稱 LIKE '%" & PA & "%'
+                GROUP BY   訂單控制表.訂單流水號, 訂單控制表.年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, 訂單控制表.APMA確認, 驗貨報告圖庫.驗貨報告編號 
+                ORDER BY 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱"
         Set_DGV1載入後設定() : Set_grid()
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

SHENKANG-MES-SYS/基本資料管理系統/清單修改.vb

@@ -36,6 +36,8 @@ Public Class 清單修改
         ElseIf 模具用材質 = True Then : SQL1 = "SELECT  材質 FROM 模具開發用材質清單"
         ElseIf 行政物料 = True Then : SQL1 = "SELECT 行政物料 FROM 人員行政物料表"
         ElseIf 訂單顏色修改 = True Then : SQL1 = "SELECT 顏色 FROM 訂單顏色清單 ORDER BY 顏色"
+        ElseIf 楦頭編碼修改 = True Then : SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理 ORDER BY 縮寫"
+        ElseIf 廠商類別修改 = True Then : SQL1 = "SELECT 廠商類別 FROM 廠商類別 ORDER BY 廠商類別"
         End If
         Set_DGV1載入後設定()
     End Sub
@@ -74,6 +76,8 @@ Public Class 清單修改
             ElseIf 模具用材質 = True Then : SQL1 = "SELECT 材質 FROM 模具開發用材質清單 WHERE 材質 LIKE N'" & TextBox1.Text & "'"
             ElseIf 行政物料 = True Then : SQL1 = "SELECT 行政物料 FROM 人員行政物料表 WHERE 行政物料 LIKE N'" & TextBox1.Text & "'"
             ElseIf 訂單顏色修改 = True Then : SQL1 = "SELECT 顏色 FROM 訂單顏色清單 WHERE 顏色 LIKE N'" & TextBox1.Text & "'"
+            ElseIf 楦頭編碼修改 = True Then : SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理 WHERE 縮寫 LIKE N'" & TextBox1.Text & "'"
+            ElseIf 廠商類別修改 = True Then : SQL1 = "SELECT 廠商類別 FROM 廠商類別 WHERE 廠商類別 LIKE N'" & TextBox1.Text & "'"
             End If
             cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
             If dr.Read() Then
@@ -100,6 +104,8 @@ Public Class 清單修改
                 ElseIf 模具用材質 = True Then : SQL1 = "INSERT INTO 模具開發用材質清單 (材質) VALUES (N'" & TextBox1.Text & "')"
                 ElseIf 行政物料 = True Then : SQL1 = "INSERT INTO 人員行政物料表 (行政物料) VALUES (N'" & TextBox1.Text & "')"
                 ElseIf 訂單顏色修改 = True Then : SQL1 = "INSERT INTO 訂單顏色清單 (顏色) VALUES (N'" & TextBox1.Text & "')"
+                ElseIf 楦頭編碼修改 = True Then : SQL1 = "INSERT INTO 楦頭縮寫管理 (縮寫) VALUES (N'" & TextBox1.Text & "')"
+                ElseIf 廠商類別修改 = True Then : SQL1 = "INSERT INTO 廠商類別 (廠商類別) VALUES (N'" & TextBox1.Text & "')"
                 End If
                 cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                 MsgBox("新增完成")
@@ -131,6 +137,8 @@ Public Class 清單修改
             ElseIf 模具用材質 = True Then : SQL1 = "UPDATE 模具開發用材質清單 SET 材質 = N'" & TextBox1.Text & "' WHERE 材質 LIKE N'" & TextBox2.Text & "'"
             ElseIf 行政物料 = True Then : SQL1 = "UPDATE 人員行政物料表 SET 行政物料 = N'" & TextBox1.Text & "' WHERE 行政物料 LIKE N'" & TextBox2.Text & "'"
             ElseIf 訂單顏色修改 = True Then : SQL1 = "UPDATE 訂單顏色清單 SET 顏色 = N'" & TextBox1.Text & "' WHERE 顏色 LIKE N'" & TextBox2.Text & "'"
+            ElseIf 楦頭編碼修改 = True Then : SQL1 = "UPDATE 楦頭縮寫管理 SET 縮寫 = N'" & TextBox1.Text & "' WHERE 縮寫 LIKE N'" & TextBox2.Text & "'"
+            ElseIf 廠商類別修改 = True Then : SQL1 = "UPDATE 廠商類別 SET 廠商類別 = N'" & TextBox1.Text & "' WHERE 廠商類別 LIKE N'" & TextBox2.Text & "'"
             End If
             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
             MsgBox("修改完成")
@@ -157,6 +165,8 @@ Public Class 清單修改
         ElseIf 模具用材質 = True Then : SQL1 = "DELETE FROM 模具開發用材質清單 WHERE (材質 = N'" & TextBox1.Text & "')"
         ElseIf 行政物料 = True Then : SQL1 = "DELETE FROM 人員行政物料表 WHERE (行政物料 = N'" & TextBox1.Text & "')"
         ElseIf 訂單顏色修改 = True Then : SQL1 = "DELETE FROM 訂單顏色清單 WHERE (顏色 = N'" & TextBox1.Text & "')"
+        ElseIf 楦頭編碼修改 = True Then : SQL1 = "DELETE FROM 楦頭縮寫管理 WHERE (縮寫 = N'" & TextBox1.Text & "')"
+        ElseIf 廠商類別修改 = True Then : SQL1 = "DELETE FROM 廠商類別 WHERE (廠商類別 = N'" & TextBox1.Text & "')"
         End If
         cmd.CommandText = SQL1 : cmd.Connection = conn
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

SHENKANG-MES-SYS/樣品訂單管理系統/列印_樣品單_NEW.Designer.vb

@@ -139,7 +139,7 @@ Partial Class 列印_樣品單_NEW
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(251, 69)
+        Me.ClientSize = New System.Drawing.Size(252, 69)
         Me.Controls.Add(Me.DataGridView5)
         Me.Controls.Add(Me.DataGridView4)
         Me.Controls.Add(Me.PictureBox1)

SHENKANG-MES-SYS/樣品訂單管理系統/列印_樣品單_NEW.vb

@@ -1,5 +1,4 @@
 Option Strict Off
-Imports System.Data.SqlClient
 Imports System.IO
 Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
 Imports Microsoft.Office.Interop.Excel.Constants
@@ -12,15 +11,9 @@ Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports System.Threading
 Imports Microsoft.Office.Interop.Excel
 Public Class 列印_樣品單_NEW
-    ReadOnly conn As New SqlConnection
-    ReadOnly da As New SqlDataAdapter
-    ReadOnly cmd As New SqlCommand
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds5 As New DataSet
-    Dim dr As SqlDataReader
     Dim N1 As Integer : Dim N2 As Integer : Dim N3 As Integer : Dim N4 As Integer : Dim N5 As Integer
-    Dim xlApp As Microsoft.Office.Interop.Excel.Application
-    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
-    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
     Dim Q1 As Integer : Dim AAA1 As String : Dim AAA2 As String
     Private Sub Set_清單()
         DataGridView1.DataSource = Nothing : ds.Clear()
@@ -30,13 +23,18 @@ Public Class 列印_樣品單_NEW
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT      樣品訂單控制表.SO, 樣品訂單控制表.季節, 樣品訂單控制表.客戶, 樣品訂單控制表.型體號碼, 
                             樣品訂單控制表.型體名稱, 樣品訂單控制表.國家, 樣品訂單控制表.狀態, 樣品訂單控制表.ISS_DATE, 
-                            樣品訂單控制表.ETA, 樣品訂單控制表.數量, 樣品訂單控制表.制單人, 
-                            LEFT(樣品訂單控制表.制單時間, 10) AS 制單時間, 樣品訂單控制表.版次, 樣品訂單控制表.工廠, 
-                            樣品訂單控制表.REQ, 樣品訂單控制表.C_N, 樣品訂單控制表.中底, 樣品訂單控制表.楦頭編號, 
-                            楦頭規格控制表.楦頭名
-                FROM        樣品訂單控制表 LEFT OUTER JOIN
+                            樣品訂單控制表.ETA, 樣品訂單控制表.數量, 樣品訂單控制表.制單人, LEFT(樣品訂單控制表.制單時間, 10) 
+                            AS 制單時間, 樣品訂單控制表.版次, 樣品訂單控制表.工廠, 樣品訂單控制表.REQ, 樣品訂單控制表.C_N, 
+                            樣品訂單控制表.中底, 樣品訂單控制表.楦頭編號, 楦頭規格控制表.楦頭名, 模具開發控制表.模具編號, 
+                            模具開發控制表.CN
+                FROM        樣品訂單控制表 LEFT OUTER JOIN 模具開發控制表 ON 樣品訂單控制表.模具編號 = 模具開發控制表.模具編號 LEFT OUTER JOIN
                             楦頭規格控制表 ON 樣品訂單控制表.楦頭編號 = 楦頭規格控制表.楦頭編號
                 WHERE      (樣品訂單控制表.SO LIKE N'" & 列印用SQL & "') AND (樣品訂單控制表.版次 LIKE N'" & 列印用SQL2 & "')
+                GROUP BY    樣品訂單控制表.SO, 樣品訂單控制表.季節, 樣品訂單控制表.客戶, 樣品訂單控制表.型體號碼, 
+                            樣品訂單控制表.型體名稱, 樣品訂單控制表.國家, 樣品訂單控制表.狀態, 樣品訂單控制表.ISS_DATE, 
+                            樣品訂單控制表.ETA, 樣品訂單控制表.數量, 樣品訂單控制表.制單人, LEFT(樣品訂單控制表.制單時間, 10), 
+                            樣品訂單控制表.版次, 樣品訂單控制表.工廠, 樣品訂單控制表.REQ, 樣品訂單控制表.C_N, 樣品訂單控制表.中底, 
+                            樣品訂單控制表.楦頭編號, 楦頭規格控制表.楦頭名, 模具開發控制表.模具編號, 模具開發控制表.CN
                 ORDER BY    樣品訂單控制表.SO DESC, 樣品訂單控制表.版次 DESC"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
     End Sub
@@ -85,7 +83,6 @@ Public Class 列印_樣品單_NEW
         列印用SQL = "" : 列印用SQL2 = "" : Me.Close()
     End Sub
     Private Sub 列印1()
-
         xlSheet.Cells(1, 1) = "森康鞋業有限公司  SenKang Footwear Ltd."
         If DataGridView1.Rows(0).Cells("狀態").Value.ToString = "DEVELOPMENT" Then
             xlSheet.Cells(1, 4) = "DEVELOPMENT SAMPLE ORDER (開發樣品單)"
@@ -102,18 +99,18 @@ Public Class 列印_樣品單_NEW
         xlSheet.Cells(3, 4) = "PRINT DATE :" : xlSheet.Cells(3, 5) = "=TODAY()"
 
         xlSheet.Cells(5, 1) = "S/O # (單號) :" : xlSheet.Cells(6, 1) = "CUST (客戶) :" : xlSheet.Cells(7, 1) = "FACTORY (工廠) :" : xlSheet.Cells(8, 1) = "STYLE # (型體號) :"
-        xlSheet.Cells(9, 1) = "STY.NAME (型體名) :" : xlSheet.Cells(10, 1) = "COUNTRY (國家) :" : xlSheet.Cells(11, 1) = "PURPOSE (目的) :" : xlSheet.Cells(12, 1) = "楦頭編號 :"
+        xlSheet.Cells(9, 1) = "STY.NAME (型體名) :" : xlSheet.Cells(10, 1) = "COUNTRY (國家) :" : xlSheet.Cells(11, 1) = "PURPOSE (目的) :" : xlSheet.Cells(12, 1) = "楦頭編號/模具編號 :"
         xlSheet.Cells(5, 2) = DataGridView1.Rows(0).Cells("SO").Value : xlSheet.Cells(6, 2) = DataGridView1.Rows(0).Cells("客戶").Value
         xlSheet.Cells(7, 2) = DataGridView1.Rows(0).Cells("工廠").Value : xlSheet.Cells(8, 2) = DataGridView1.Rows(0).Cells("型體號碼").Value
         xlSheet.Cells(9, 2) = DataGridView1.Rows(0).Cells("型體名稱").Value : xlSheet.Cells(10, 2) = DataGridView1.Rows(0).Cells("國家").Value
-        xlSheet.Cells(11, 2) = DataGridView1.Rows(0).Cells("狀態").Value : xlSheet.Cells(12, 2) = DataGridView1.Rows(0).Cells("楦頭編號").Value
+        xlSheet.Cells(11, 2) = DataGridView1.Rows(0).Cells("狀態").Value : xlSheet.Cells(12, 2) = DataGridView1.Rows(0).Cells("楦頭編號").Value & "/" & DataGridView1.Rows(0).Cells("模具編號").Value
 
         xlSheet.Cells(5, 3) = "EDITION (版次) :" : xlSheet.Cells(6, 3) = "SEASON (季節) :" : xlSheet.Cells(7, 3) = "ISS. DATE (制單日期) :" : xlSheet.Cells(8, 3) = "ETD (預計寄出日期) :"
         xlSheet.Cells(9, 3) = "REQ. BY :" : xlSheet.Cells(10, 3) = "INVOICE :" : xlSheet.Cells(11, 3) = "TOTAL (總數) :" : xlSheet.Cells(12, 3) = "Construction Name :"
         xlSheet.Cells(5, 4) = DataGridView1.Rows(0).Cells("版次").Value : xlSheet.Cells(6, 4) = DataGridView1.Rows(0).Cells("季節").Value
         xlSheet.Cells(7, 4) = DataGridView1.Rows(0).Cells("ISS_DATE").Value : xlSheet.Cells(8, 4) = DataGridView1.Rows(0).Cells("ETA").Value
         xlSheet.Cells(9, 4) = DataGridView1.Rows(0).Cells("REQ").Value : xlSheet.Cells(10, 4) = ""
-        xlSheet.Cells(11, 4) = DataGridView1.Rows(0).Cells("數量").Value : xlSheet.Cells(12, 4) = DataGridView1.Rows(0).Cells("楦頭名").Value
+        xlSheet.Cells(11, 4) = DataGridView1.Rows(0).Cells("數量").Value : xlSheet.Cells(12, 4) = DataGridView1.Rows(0).Cells("CN").Value
 
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 中皮, 結構 FROM 中皮結構 WHERE 底台 LIKE N'" & DataGridView1.Rows(0).Cells("C_N").Value & "'"
@@ -362,24 +359,6 @@ Public Class 列印_樣品單_NEW
         xlApp.Application.WindowState = xlMaximized
         N2 = 0
         For i As Integer = 0 To DataGridView2.Rows.Count - 1
-            '四色一頁
-            'If i = 0 Then
-            '    xlSheet = NewMethod(xlBook)
-            '    xlApp.Sheets(1).Name = DataGridView1.Rows(0).Cells("型體名稱").Value & "第一頁" : N2 = 3
-            '    xlBook.Activate() : xlSheet.Activate() : 列印1() : Q1 = 0
-            'ElseIf i = 4 Then
-            '    xlSheet = NewMethod(xlBook)
-            '    xlApp.Sheets(1).Name = DataGridView1.Rows(0).Cells("型體名稱").Value & "第二頁" : N2 = 7
-            '    xlBook.Activate() : xlSheet.Activate() : 列印1() : Q1 = 0
-            'ElseIf i = 8 Then
-            '    xlSheet = NewMethod(xlBook)
-            '    xlApp.Sheets(1).Name = DataGridView1.Rows(0).Cells("型體名稱").Value & "第三頁" : N2 = 11
-            '    xlBook.Activate() : xlSheet.Activate() : 列印1() : Q1 = 0
-            'ElseIf i = 12 Then
-            '    xlSheet = NewMethod(xlBook)
-            '    xlApp.Sheets(1).Name = DataGridView1.Rows(0).Cells("型體名稱").Value & "第四頁" : N2 = 15
-            '    xlBook.Activate() : xlSheet.Activate() : 列印1() : Q1 = 0
-            'End If
             If i = 0 Then : xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Name = "第一頁" : N2 = 3 : xlBook.Activate() : xlSheet.Activate() : 列印1() : Q1 = 0
             ElseIf i = 4 Then : xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Name = "第二頁" : N2 = 7 : xlBook.Activate() : xlSheet.Activate() : 列印1() : Q1 = 0
             ElseIf i = 8 Then : xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Name = "第三頁" : N2 = 11 : xlBook.Activate() : xlSheet.Activate() : 列印1() : Q1 = 0
@@ -394,8 +373,8 @@ Public Class 列印_樣品單_NEW
         MsgBox("列印完成")
         Me.Close()
     End Sub
-    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
-        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
+    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
+        Return CType(xlBook.Worksheets.Add, Worksheet)
     End Function
     Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
         Clipboard.SetDataObject(PictureBox1.Image)

SHENKANG-MES-SYS/樣品訂單管理系統/樣品單控制表.Designer.vb

@@ -23,11 +23,11 @@ Partial Class 樣品單控制表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label26 = New System.Windows.Forms.Label()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.樣品單_dgv = New System.Windows.Forms.DataGridView()
         Me.Button9 = New System.Windows.Forms.Button()
         Me.Button32 = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -136,7 +136,11 @@ Partial Class 樣品單控制表
         Me.TextBox12 = New System.Windows.Forms.TextBox()
         Me.ComboBox17 = New System.Windows.Forms.ComboBox()
         Me.Label32 = New System.Windows.Forms.Label()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ComboBox18 = New System.Windows.Forms.ComboBox()
+        Me.Label33 = New System.Windows.Forms.Label()
+        Me.ComboBox19 = New System.Windows.Forms.ComboBox()
+        Me.Label34 = New System.Windows.Forms.Label()
+        CType(Me.樣品單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -155,18 +159,18 @@ Partial Class 樣品單控制表
         Me.Label26.TabIndex = 677
         Me.Label26.Text = "樣品訂單清單"
         '
-        'DataGridView1
+        '樣品單_dgv
         '
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(12, 39)
-        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle10
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(475, 924)
-        Me.DataGridView1.TabIndex = 676
+        Me.樣品單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.樣品單_dgv.Location = New System.Drawing.Point(12, 39)
+        Me.樣品單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.樣品單_dgv.Name = "樣品單_dgv"
+        Me.樣品單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.樣品單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.樣品單_dgv.RowTemplate.Height = 24
+        Me.樣品單_dgv.Size = New System.Drawing.Size(475, 924)
+        Me.樣品單_dgv.TabIndex = 676
         '
         'Button9
         '
@@ -231,16 +235,16 @@ Partial Class 樣品單控制表
         '
         Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox2.FormattingEnabled = True
-        Me.ComboBox2.Location = New System.Drawing.Point(1315, 186)
+        Me.ComboBox2.Location = New System.Drawing.Point(549, 238)
         Me.ComboBox2.Name = "ComboBox2"
-        Me.ComboBox2.Size = New System.Drawing.Size(236, 24)
+        Me.ComboBox2.Size = New System.Drawing.Size(280, 24)
         Me.ComboBox2.TabIndex = 684
         '
         'Label3
         '
         Me.Label3.AutoSize = True
         Me.Label3.ForeColor = System.Drawing.Color.Red
-        Me.Label3.Location = New System.Drawing.Point(1274, 189)
+        Me.Label3.Location = New System.Drawing.Point(508, 241)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(39, 16)
         Me.Label3.TabIndex = 685
@@ -465,15 +469,15 @@ Partial Class 樣品單控制表
         '
         'DataGridView2
         '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(1182, 33)
+        Me.DataGridView2.Location = New System.Drawing.Point(1182, 32)
         Me.DataGridView2.Name = "DataGridView2"
         Me.DataGridView2.RowHeadersWidth = 5
         Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(511, 151)
+        Me.DataGridView2.Size = New System.Drawing.Size(511, 126)
         Me.DataGridView2.TabIndex = 708
         '
         'Button13
@@ -558,7 +562,7 @@ Partial Class 樣品單控制表
         'Label28
         '
         Me.Label28.AutoSize = True
-        Me.Label28.Location = New System.Drawing.Point(1471, 269)
+        Me.Label28.Location = New System.Drawing.Point(1469, 269)
         Me.Label28.Name = "Label28"
         Me.Label28.Size = New System.Drawing.Size(44, 16)
         Me.Label28.TabIndex = 723
@@ -567,7 +571,7 @@ Partial Class 樣品單控制表
         'Label27
         '
         Me.Label27.AutoSize = True
-        Me.Label27.Location = New System.Drawing.Point(1245, 269)
+        Me.Label27.Location = New System.Drawing.Point(1243, 269)
         Me.Label27.Name = "Label27"
         Me.Label27.Size = New System.Drawing.Size(32, 16)
         Me.Label27.TabIndex = 722
@@ -575,7 +579,7 @@ Partial Class 樣品單控制表
         '
         'TextBox17
         '
-        Me.TextBox17.Location = New System.Drawing.Point(1276, 266)
+        Me.TextBox17.Location = New System.Drawing.Point(1274, 266)
         Me.TextBox17.Name = "TextBox17"
         Me.TextBox17.Size = New System.Drawing.Size(196, 23)
         Me.TextBox17.TabIndex = 721
@@ -583,7 +587,7 @@ Partial Class 樣品單控制表
         'Button15
         '
         Me.Button15.ForeColor = System.Drawing.Color.Red
-        Me.Button15.Location = New System.Drawing.Point(1181, 266)
+        Me.Button15.Location = New System.Drawing.Point(1179, 266)
         Me.Button15.Name = "Button15"
         Me.Button15.Size = New System.Drawing.Size(63, 23)
         Me.Button15.TabIndex = 720
@@ -731,8 +735,8 @@ Partial Class 樣品單控制表
         '
         'DataGridView5
         '
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView5.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView5.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.DataGridView5.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DataGridView5.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView5.Location = New System.Drawing.Point(493, 823)
@@ -768,9 +772,9 @@ Partial Class 樣品單控制表
         '
         Me.Button21.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button21.ForeColor = System.Drawing.Color.Black
-        Me.Button21.Location = New System.Drawing.Point(1854, 211)
+        Me.Button21.Location = New System.Drawing.Point(1831, 211)
         Me.Button21.Name = "Button21"
-        Me.Button21.Size = New System.Drawing.Size(47, 51)
+        Me.Button21.Size = New System.Drawing.Size(70, 51)
         Me.Button21.TabIndex = 740
         Me.Button21.Text = "重新" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "排序"
         Me.Button21.UseVisualStyleBackColor = True
@@ -986,9 +990,9 @@ Partial Class 樣品單控制表
         '
         Me.Button28.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button28.ForeColor = System.Drawing.Color.Olive
-        Me.Button28.Location = New System.Drawing.Point(1557, 185)
+        Me.Button28.Location = New System.Drawing.Point(1699, 211)
         Me.Button28.Name = "Button28"
-        Me.Button28.Size = New System.Drawing.Size(137, 25)
+        Me.Button28.Size = New System.Drawing.Size(130, 25)
         Me.Button28.TabIndex = 751
         Me.Button28.Text = "新增客戶清單"
         Me.Button28.UseVisualStyleBackColor = True
@@ -1017,9 +1021,9 @@ Partial Class 樣品單控制表
         '
         Me.Button30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button30.ForeColor = System.Drawing.Color.Blue
-        Me.Button30.Location = New System.Drawing.Point(1750, 238)
+        Me.Button30.Location = New System.Drawing.Point(1739, 237)
         Me.Button30.Name = "Button30"
-        Me.Button30.Size = New System.Drawing.Size(103, 24)
+        Me.Button30.Size = New System.Drawing.Size(90, 26)
         Me.Button30.TabIndex = 754
         Me.Button30.Text = "指定資料寫入"
         Me.Button30.UseVisualStyleBackColor = True
@@ -1079,7 +1083,7 @@ Partial Class 樣品單控制表
         'Label24
         '
         Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(981, 242)
+        Me.Label24.Location = New System.Drawing.Point(985, 242)
         Me.Label24.Name = "Label24"
         Me.Label24.Size = New System.Drawing.Size(44, 16)
         Me.Label24.TabIndex = 762
@@ -1089,7 +1093,7 @@ Partial Class 樣品單控制表
         '
         Me.ComboBox13.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox13.FormattingEnabled = True
-        Me.ComboBox13.Location = New System.Drawing.Point(1183, 238)
+        Me.ComboBox13.Location = New System.Drawing.Point(1180, 238)
         Me.ComboBox13.Name = "ComboBox13"
         Me.ComboBox13.Size = New System.Drawing.Size(377, 24)
         Me.ComboBox13.TabIndex = 763
@@ -1098,7 +1102,7 @@ Partial Class 樣品單控制表
         '
         Me.ComboBox14.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox14.FormattingEnabled = True
-        Me.ComboBox14.Location = New System.Drawing.Point(1566, 238)
+        Me.ComboBox14.Location = New System.Drawing.Point(1559, 238)
         Me.ComboBox14.Name = "ComboBox14"
         Me.ComboBox14.Size = New System.Drawing.Size(178, 24)
         Me.ComboBox14.TabIndex = 764
@@ -1137,11 +1141,11 @@ Partial Class 樣品單控制表
         'TextBox10
         '
         Me.TextBox10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox10.Location = New System.Drawing.Point(1182, 212)
+        Me.TextBox10.Location = New System.Drawing.Point(1180, 212)
         Me.TextBox10.Multiline = True
         Me.TextBox10.Name = "TextBox10"
         Me.TextBox10.ScrollBars = System.Windows.Forms.ScrollBars.Both
-        Me.TextBox10.Size = New System.Drawing.Size(671, 24)
+        Me.TextBox10.Size = New System.Drawing.Size(517, 24)
         Me.TextBox10.TabIndex = 768
         '
         'ComboBox16
@@ -1172,13 +1176,13 @@ Partial Class 樣品單控制表
         Me.TextBox11.Multiline = True
         Me.TextBox11.Name = "TextBox11"
         Me.TextBox11.ScrollBars = System.Windows.Forms.ScrollBars.Both
-        Me.TextBox11.Size = New System.Drawing.Size(511, 24)
+        Me.TextBox11.Size = New System.Drawing.Size(452, 24)
         Me.TextBox11.TabIndex = 771
         '
         'Label31
         '
         Me.Label31.AutoSize = True
-        Me.Label31.Location = New System.Drawing.Point(718, 241)
+        Me.Label31.Location = New System.Drawing.Point(1414, 190)
         Me.Label31.Name = "Label31"
         Me.Label31.Size = New System.Drawing.Size(117, 16)
         Me.Label31.TabIndex = 775
@@ -1186,16 +1190,16 @@ Partial Class 樣品單控制表
         '
         'TextBox12
         '
-        Me.TextBox12.Location = New System.Drawing.Point(832, 238)
+        Me.TextBox12.Location = New System.Drawing.Point(1533, 187)
         Me.TextBox12.Name = "TextBox12"
-        Me.TextBox12.Size = New System.Drawing.Size(132, 23)
+        Me.TextBox12.Size = New System.Drawing.Size(164, 23)
         Me.TextBox12.TabIndex = 774
         '
         'ComboBox17
         '
         Me.ComboBox17.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox17.FormattingEnabled = True
-        Me.ComboBox17.Location = New System.Drawing.Point(549, 238)
+        Me.ComboBox17.Location = New System.Drawing.Point(1239, 160)
         Me.ComboBox17.Name = "ComboBox17"
         Me.ComboBox17.Size = New System.Drawing.Size(169, 24)
         Me.ComboBox17.TabIndex = 772
@@ -1204,17 +1208,57 @@ Partial Class 樣品單控制表
         '
         Me.Label32.AutoSize = True
         Me.Label32.ForeColor = System.Drawing.Color.Red
-        Me.Label32.Location = New System.Drawing.Point(492, 241)
+        Me.Label32.Location = New System.Drawing.Point(1182, 163)
         Me.Label32.Name = "Label32"
         Me.Label32.Size = New System.Drawing.Size(56, 16)
         Me.Label32.TabIndex = 773
         Me.Label32.Text = "楦頭編號"
         '
+        'ComboBox18
+        '
+        Me.ComboBox18.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox18.FormattingEnabled = True
+        Me.ComboBox18.Location = New System.Drawing.Point(888, 238)
+        Me.ComboBox18.Name = "ComboBox18"
+        Me.ComboBox18.Size = New System.Drawing.Size(97, 24)
+        Me.ComboBox18.TabIndex = 776
+        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.Location = New System.Drawing.Point(831, 242)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(56, 16)
+        Me.Label33.TabIndex = 777
+        Me.Label33.Text = "廠商類別"
+        '
+        'ComboBox19
+        '
+        Me.ComboBox19.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox19.FormattingEnabled = True
+        Me.ComboBox19.Location = New System.Drawing.Point(1239, 186)
+        Me.ComboBox19.Name = "ComboBox19"
+        Me.ComboBox19.Size = New System.Drawing.Size(169, 24)
+        Me.ComboBox19.TabIndex = 778
+        '
+        'Label34
+        '
+        Me.Label34.AutoSize = True
+        Me.Label34.ForeColor = System.Drawing.Color.Red
+        Me.Label34.Location = New System.Drawing.Point(1182, 189)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(56, 16)
+        Me.Label34.TabIndex = 779
+        Me.Label34.Text = "模具編號"
+        '
         '樣品單控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.ComboBox19)
+        Me.Controls.Add(Me.Label34)
+        Me.Controls.Add(Me.ComboBox18)
         Me.Controls.Add(Me.TextBox12)
         Me.Controls.Add(Me.ComboBox17)
         Me.Controls.Add(Me.Label32)
@@ -1238,7 +1282,7 @@ Partial Class 樣品單控制表
         Me.Controls.Add(Me.ComboBox10)
         Me.Controls.Add(Me.Button28)
         Me.Controls.Add(Me.DataGridView6)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.樣品單_dgv)
         Me.Controls.Add(Me.CheckBox1)
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.Button23)
@@ -1314,11 +1358,12 @@ Partial Class 樣品單控制表
         Me.Controls.Add(Me.Label27)
         Me.Controls.Add(Me.DataGridView2)
         Me.Controls.Add(Me.Label31)
+        Me.Controls.Add(Me.Label33)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "樣品單控制表"
         Me.Text = "樣品單控制"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.樣品單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1333,7 +1378,7 @@ Partial Class 樣品單控制表
     End Sub
 
     Friend WithEvents Label26 As Label
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 樣品單_dgv As DataGridView
     Friend WithEvents Button9 As Button
     Friend WithEvents Button32 As Button
     Friend WithEvents Label2 As Label
@@ -1442,4 +1487,8 @@ Partial Class 樣品單控制表
     Friend WithEvents TextBox12 As TextBox
     Friend WithEvents ComboBox17 As ComboBox
     Friend WithEvents Label32 As Label
+    Friend WithEvents ComboBox18 As ComboBox
+    Friend WithEvents Label33 As Label
+    Friend WithEvents ComboBox19 As ComboBox
+    Friend WithEvents Label34 As Label
 End Class

SHENKANG-MES-SYS/樣品訂單管理系統/樣品單控制表.vb

@@ -12,36 +12,39 @@ Public Class 樣品單控制表
     Dim NUM1 As Integer
     Dim 新增文件 As Boolean
     Private Sub Set_清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        DataGridView1.RowTemplate.Height = 50
+        樣品單_dgv.DataSource = Nothing : ds.Clear()
+        樣品單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        樣品單_dgv.ColumnHeadersHeight = 25
+        樣品單_dgv.AllowUserToAddRows = False
+        樣品單_dgv.RowTemplate.Height = 50
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         If PA = "" Then
-            SQL1 = "SELECT SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號 FROM 樣品訂單控制表 
-                    WHERE 狀態 LIKE N'" & 樣品進度表分類3 & "' ORDER BY SO DESC, 版次 DESC"
+            SQL1 = "SELECT   SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號 
+                    FROM     樣品訂單控制表 
+                    WHERE    狀態 LIKE N'" & 樣品進度表分類3 & "' 
+                    ORDER BY SO DESC, 版次 DESC"
         Else
-            SQL1 = "SELECT SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號 FROM 樣品訂單控制表 
-                    WHERE ((SO LIKE N'%" & PA & "%') OR (季節 LIKE N'%" & PA & "%') OR (客戶 LIKE N'%" & PA & "%') OR (型體號碼 LIKE N'%" & PA & "%') 
-                    OR (型體名稱 LIKE N'%" & PA & "%') OR (國家 LIKE N'%" & PA & "%') OR (狀態 LIKE N'%" & PA & "%') OR (ISS_DATE LIKE N'%" & PA & "%') OR (ETA LIKE N'%" & PA & "%')) 
-                    ORDER BY   SO DESC, 版次 DESC"
+            SQL1 = "SELECT   SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號 
+                    FROM     樣品訂單控制表 
+                    WHERE  ((SO LIKE N'%" & PA & "%') OR (季節 LIKE N'%" & PA & "%') OR (客戶 LIKE N'%" & PA & "%') OR (型體號碼 LIKE N'%" & PA & "%') 
+                             OR (型體名稱 LIKE N'%" & PA & "%') OR (國家 LIKE N'%" & PA & "%') OR (狀態 LIKE N'%" & PA & "%') OR (ISS_DATE LIKE N'%" & PA & "%') OR (ETA LIKE N'%" & PA & "%')) 
+                    ORDER BY SO DESC, 版次 DESC"
         End If
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 樣品單_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
     End Sub
     Private Sub Set_grid()
         If CheckBox1.Checked = False Then
-            DataGridView1.Size = New Size(475, 924)
-            DataGridView1.Columns(0).Width = 55 : DataGridView1.Columns(1).Width = 65 : DataGridView1.Columns(2).Width = 125 : DataGridView1.Columns(3).Width = 80 : DataGridView1.Columns(4).Width = 80
+            樣品單_dgv.Size = New Size(475, 924)
+            樣品單_dgv.Columns(0).Width = 55 : 樣品單_dgv.Columns(1).Width = 65 : 樣品單_dgv.Columns(2).Width = 125 : 樣品單_dgv.Columns(3).Width = 80 : 樣品單_dgv.Columns(4).Width = 80
         Else
-            DataGridView1.Size = New Size(660, 924)
-            DataGridView1.Columns(0).Width = 55 : DataGridView1.Columns(1).Width = 65 : DataGridView1.Columns(2).Width = 170 : DataGridView1.Columns(3).Width = 150 : DataGridView1.Columns(4).Width = 150
+            樣品單_dgv.Size = New Size(660, 924)
+            樣品單_dgv.Columns(0).Width = 55 : 樣品單_dgv.Columns(1).Width = 65 : 樣品單_dgv.Columns(2).Width = 170 : 樣品單_dgv.Columns(3).Width = 150 : 樣品單_dgv.Columns(4).Width = 150
         End If
 
-        DataGridView1.Columns(5).Visible = False : DataGridView1.Columns(6).Visible = False : DataGridView1.Columns(7).Visible = False : DataGridView1.Columns(8).Visible = False
-        DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).Visible = False : DataGridView1.Columns(11).Visible = False : DataGridView1.Columns(12).Width = 45
-        DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False : DataGridView1.Columns(15).Visible = False : DataGridView1.Columns(16).Visible = False
-        DataGridView1.Columns(17).Visible = False
+        樣品單_dgv.Columns(5).Visible = False : 樣品單_dgv.Columns(6).Visible = False : 樣品單_dgv.Columns(7).Visible = False : 樣品單_dgv.Columns(8).Visible = False
+        樣品單_dgv.Columns(9).Visible = False : 樣品單_dgv.Columns(10).Visible = False : 樣品單_dgv.Columns(11).Visible = False : 樣品單_dgv.Columns(12).Width = 45
+        樣品單_dgv.Columns(13).Visible = False : 樣品單_dgv.Columns(14).Visible = False : 樣品單_dgv.Columns(15).Visible = False : 樣品單_dgv.Columns(16).Visible = False
+        樣品單_dgv.Columns(17).Visible = False : 樣品單_dgv.Columns(18).Visible = False
     End Sub
     Private Sub Set_清單1()
         DataGridView2.DataSource = Nothing : ds1.Clear()
@@ -69,13 +72,14 @@ Public Class 樣品單控制表
         SQL1 = "SELECT 樣品訂單清單.項次, 樣品訂單部件表.部件, 樣品訂單部件表.材料名稱, 樣品訂單部件表.材料說明 AS 顏色, 樣品訂單部件表.廠商, 樣品訂單部件表.備註, " &
                "樣品訂單部件表.版次, 樣品訂單部件表.流水號, 樣品訂單部件表.項次 AS 排列 " &
                "FROM 樣品訂單部件表 INNER JOIN 樣品訂單清單 ON 樣品訂單部件表.流水號 = 樣品訂單清單.流水號 " &
-               "WHERE (樣品訂單部件表.SO LIKE N'" & TextBox1.Text & "') AND (樣品訂單部件表.版次 LIKE N'" & TextBox3.Text & "') ORDER BY   樣品訂單部件表.流水號, 樣品訂單部件表.項次, 樣品訂單部件表.部件"
+               "WHERE (樣品訂單部件表.SO LIKE N'" & TextBox1.Text & "') AND (樣品訂單部件表.版次 LIKE N'" & TextBox3.Text & "') 
+                ORDER BY   樣品訂單部件表.流水號, 樣品訂單部件表.項次, 樣品訂單部件表.部件"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
         Set_DGV2下拉式清單3()
 
-        DataGridView3.Columns(0).Width = 40 : DataGridView3.Columns(1).Width = 200 : DataGridView3.Columns(2).Width = 300 : DataGridView3.Columns(3).Width = 171 : DataGridView3.Columns(4).Visible = False
-        DataGridView3.Columns(5).Width = 100 : DataGridView3.Columns(6).Width = 532 : DataGridView3.Columns(7).Visible = False : DataGridView3.Columns(8).Visible = False
-        DataGridView3.Columns(9).Width = 40
+        DataGridView3.Columns(0).Width = 40 : DataGridView3.Columns(1).Width = 200 : DataGridView3.Columns(2).Width = 300 : DataGridView3.Columns(3).Width = 171
+        DataGridView3.Columns(4).Visible = False : DataGridView3.Columns(5).Width = 100 : DataGridView3.Columns(6).Width = 532 : DataGridView3.Columns(7).Visible = False
+        DataGridView3.Columns(8).Visible = False : DataGridView3.Columns(9).Width = 40
         DataGridView3.EditMode = DataGridViewEditMode.EditOnEnter
         TextBox9.Text = DataGridView3.Rows.Count
     End Sub
@@ -166,7 +170,7 @@ Public Class 樣品單控制表
     Private Sub ComboBox12下拉表單資料載入()
         conn.Close()
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 廠商 FROM 供應商清單 ORDER BY 廠商"
+        SQL1 = "SELECT 廠商 FROM 供應商清單 WHERE 公司傳真3 LIKE '" & ComboBox18.Text & "' AND 停用 = 0 ORDER BY 廠商"
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
         ComboBox12.Items.Clear() : While (dr.Read()) : ComboBox12.Items.Add(dr("廠商")) : End While : conn.Close()
     End Sub
@@ -211,15 +215,30 @@ Public Class 樣品單控制表
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
         ComboBox17.Items.Clear() : While (dr.Read()) : ComboBox17.Items.Add(dr("楦頭編號")) : End While : conn.Close()
     End Sub
-    Private Sub ComboBox17_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox17.TextChanged
+    Private Sub ComboBox19下拉表單資料載入()
+        conn.Close()
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT CN, 模具編號 FROM 模具開發控制表 GROUP BY CN, 模具編號 ORDER BY 模具編號, CN"
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+        ComboBox19.Items.Clear() : While (dr.Read()) : ComboBox19.Items.Add(dr("模具編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox18下拉表單資料載入()
         conn.Close()
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 楦頭名 FROM 楦頭規格控制表 WHERE 楦頭編號 LIKE N'" & ComboBox17.Text & "'"
+        SQL1 = "SELECT 公司傳真3 AS 類別 FROM 供應商清單 GROUP BY 公司傳真3 ORDER BY 公司傳真3"
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+        ComboBox18.Items.Clear() : While (dr.Read()) : ComboBox18.Items.Add(dr("類別")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox19_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox19.TextChanged
+        conn.Close()
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT CN FROM 模具開發控制表 WHERE 模具編號 LIKE N'" & ComboBox19.Text & "'"
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
         If dr.Read() Then
-            TextBox12.Text = dr("楦頭名")
+            TextBox12.Text = dr("CN")
         End If : conn.Close()
     End Sub
+
     Private Sub Set_DGV2下拉式清單1()
         If DataGridView2.Columns.Count.ToString = 32 Then
             DataGridView2.Columns.Remove("顏色")
@@ -265,7 +284,7 @@ Public Class 樣品單控制表
     Private Sub 樣品單控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox16下拉表單資料載入() : ComboBox17下拉表單資料載入()
-        ComboBox7下拉表單資料載入() : ComboBox8下拉表單資料載入() : ComboBox9下拉表單資料載入() : ComboBox12下拉表單資料載入() : ComboBox15下拉表單資料載入()
+        ComboBox7下拉表單資料載入() : ComboBox8下拉表單資料載入() : ComboBox9下拉表單資料載入() : ComboBox15下拉表單資料載入() : ComboBox18下拉表單資料載入() : ComboBox19下拉表單資料載入()
         DateTimePicker1.Format = DateTimePickerFormat.Custom : DateTimePicker1.CustomFormat = " " : DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " "
         TextBox1.Enabled = False : TextBox3.Enabled = False : TextBox2.Enabled = False : TextBox4.Enabled = False : TextBox17.Enabled = False : TextBox5.Visible = False
         Button11.Enabled = False : Button6.Enabled = False : Button7.Enabled = False : Button8.Enabled = False : Button15.Enabled = False : Label62.Visible = False
@@ -292,15 +311,15 @@ Public Class 樣品單控制表
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         If Label62.Visible = True Then : Label62.Visible = False : Else : Label62.Visible = True : End If
     End Sub
-    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
+    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 樣品單_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView1.Rows.Count - 1 Then
+        If e.RowIndex = 樣品單_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
+            If 樣品單_dgv(0, e.RowIndex).Value.ToString <> 樣品單_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(樣品單_dgv.RowHeadersVisible, 樣品單_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 樣品單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 樣品單_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If
@@ -320,23 +339,23 @@ Public Class 樣品單控制表
             End If
         End If
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 樣品單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             If Button11.Enabled = False Then
-                TextBox7.Text = "" : TextBox10.Text = "" : TextBox11.Text = ""
+                TextBox7.Text = "" : TextBox10.Text = "" : TextBox11.Text = "" : TextBox12.Text = ""
                 ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox7下拉表單資料載入()
-                ComboBox8下拉表單資料載入() : ComboBox15下拉表單資料載入() : ComboBox16下拉表單資料載入() : ComboBox17下拉表單資料載入()
-                TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString : ComboBox7.Text = DataGridView1(1, e.RowIndex).Value.ToString : ComboBox2.Text = DataGridView1(2, e.RowIndex).Value.ToString
-                ComboBox4.Text = DataGridView1(3, e.RowIndex).Value.ToString : ComboBox5.Text = DataGridView1(4, e.RowIndex).Value.ToString : ComboBox1.Text = DataGridView1(5, e.RowIndex).Value.ToString
-                ComboBox3.Text = DataGridView1(6, e.RowIndex).Value.ToString : TextBox16.Text = DataGridView1(9, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView1(10, e.RowIndex).Value.ToString
-                DateTimePicker3.Value = DataGridView1(11, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView1(12, e.RowIndex).Value.ToString
-                ComboBox8.Text = DataGridView1(13, e.RowIndex).Value.ToString : TextBox6.Text = DataGridView1(14, e.RowIndex).Value.ToString : ComboBox17.Text = DataGridView1(17, e.RowIndex).Value.ToString
-                ComboBox15.Text = DataGridView1(15, e.RowIndex).Value.ToString : ComboBox16.Text = DataGridView1(16, e.RowIndex).Value.ToString
-                DTP1 = DataGridView1(7, e.RowIndex).Value.ToString
+                ComboBox8下拉表單資料載入() : ComboBox15下拉表單資料載入() : ComboBox16下拉表單資料載入() : ComboBox17下拉表單資料載入() : ComboBox19下拉表單資料載入()
+                TextBox1.Text = 樣品單_dgv(0, e.RowIndex).Value.ToString : ComboBox7.Text = 樣品單_dgv(1, e.RowIndex).Value.ToString : ComboBox2.Text = 樣品單_dgv(2, e.RowIndex).Value.ToString
+                ComboBox4.Text = 樣品單_dgv(3, e.RowIndex).Value.ToString : ComboBox5.Text = 樣品單_dgv(4, e.RowIndex).Value.ToString : ComboBox1.Text = 樣品單_dgv(5, e.RowIndex).Value.ToString
+                ComboBox3.Text = 樣品單_dgv(6, e.RowIndex).Value.ToString : TextBox16.Text = 樣品單_dgv(9, e.RowIndex).Value.ToString : TextBox2.Text = 樣品單_dgv(10, e.RowIndex).Value.ToString
+                DateTimePicker3.Value = 樣品單_dgv(11, e.RowIndex).Value.ToString : TextBox3.Text = 樣品單_dgv(12, e.RowIndex).Value.ToString
+                ComboBox8.Text = 樣品單_dgv(13, e.RowIndex).Value.ToString : TextBox6.Text = 樣品單_dgv(14, e.RowIndex).Value.ToString : ComboBox17.Text = 樣品單_dgv(17, e.RowIndex).Value.ToString
+                ComboBox15.Text = 樣品單_dgv(15, e.RowIndex).Value.ToString : ComboBox16.Text = 樣品單_dgv(16, e.RowIndex).Value.ToString : ComboBox19.Text = 樣品單_dgv(18, e.RowIndex).Value.ToString
+                DTP1 = 樣品單_dgv(7, e.RowIndex).Value.ToString
                 If DTP1 = "" Then : DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " "
                 Else : DateTimePicker2.Format = DateTimePickerFormat.Short : DateTimePicker2.Text = DTP1 : End If
 
-                DTP2 = DataGridView1(8, e.RowIndex).Value.ToString
+                DTP2 = 樣品單_dgv(8, e.RowIndex).Value.ToString
                 If DTP2 = "" Then : DateTimePicker1.Format = DateTimePickerFormat.Custom : DateTimePicker1.CustomFormat = " "
                 Else : DateTimePicker1.Format = DateTimePickerFormat.Short : DateTimePicker1.Text = DTP2 : End If
 
@@ -344,15 +363,15 @@ Public Class 樣品單控制表
                 PictureBox1.Image = Nothing : conn.Close()
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
-                               "WHERE 客戶 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("客戶").Value & "' AND 形體號 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("型體號碼").Value &
-                               "' AND 形體名 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("型體名稱").Value & "' AND 類別 LIKE N'設計圖'"
+                               "WHERE 客戶 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("客戶").Value & "' AND 形體號 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("型體號碼").Value &
+                               "' AND 形體名 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("型體名稱").Value & "' AND 類別 LIKE N'設計圖'"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                 If dr.Read() Then
                     PictureBox1.Image = Nothing : conn.Close()
                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                     SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
-                                   "WHERE 客戶 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("客戶").Value & "' AND 形體號 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("型體號碼").Value &
-                                   "' AND 形體名 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("型體名稱").Value & "' AND 類別 LIKE N'設計圖'"
+                                   "WHERE 客戶 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("客戶").Value & "' AND 形體號 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("型體號碼").Value &
+                                   "' AND 形體名 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("型體名稱").Value & "' AND 類別 LIKE N'設計圖'"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                     While dr.Read() = True
                         Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
@@ -363,13 +382,13 @@ Public Class 樣品單控制表
                     PictureBox1.Image = Nothing : conn.Close()
                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                     SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
-                               "WHERE 客戶 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("客戶").Value & "' AND 形體號 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
+                               "WHERE 客戶 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("客戶").Value & "' AND 形體號 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                     If dr.Read() Then
                         PictureBox1.Image = Nothing : conn.Close()
                         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                         SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
-                                    "WHERE 客戶 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("客戶").Value & "' AND 形體號 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
+                                    "WHERE 客戶 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("客戶").Value & "' AND 形體號 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
                         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                         While dr.Read() = True
                             Dim unused1 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
@@ -379,12 +398,12 @@ Public Class 樣品單控制表
                     Else
                         PictureBox1.Image = Nothing : conn.Close()
                         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                        SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
+                        SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
                         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                         If dr.Read() Then
                             PictureBox1.Image = Nothing : conn.Close()
                             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                            SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & DataGridView1.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
+                            SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & 樣品單_dgv.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
                             cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                             While dr.Read() = True
                                 Dim unused2 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
@@ -615,10 +634,10 @@ Public Class 樣品單控制表
     End Sub
     Private Sub 新增準備2()
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "INSERT INTO 樣品訂單控制表 (SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號) " &
+        SQL1 = "INSERT INTO 樣品訂單控制表 (SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號) " &
                "VALUES (N'" & TextBox1.Text & "', N'" & ComboBox7.Text & "', N'" & ComboBox2.Text & "', N'" & ComboBox4.Text & "', N'" & ComboBox5.Text & "', N'" & ComboBox1.Text &
                "', N'" & ComboBox3.Text & "', N'" & DTP1 & "', N'" & DTP2 & "', N'" & TextBox16.Text & "', N'" & gUserName & "', N'" & DTP3 & "', N'V01', N'" & ComboBox8.Text &
-               "', N'" & TextBox6.Text & "', N'" & ComboBox15.Text & "', N'" & ComboBox16.Text & "', N'" & ComboBox17.Text & "')"
+               "', N'" & TextBox6.Text & "', N'" & ComboBox15.Text & "', N'" & ComboBox16.Text & "', N'" & ComboBox17.Text & "', N'" & ComboBox19.Text & "')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
 
         新流水號2()
@@ -639,7 +658,7 @@ Public Class 樣品單控制表
             TextBox3.Text = "V01"
             新增準備1()
             DateTimePicker1.Format = DateTimePickerFormat.Custom : DateTimePicker1.CustomFormat = " " : DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " "
-            ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入()
+            ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox19下拉表單資料載入()
             ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox7下拉表單資料載入() : ComboBox8下拉表單資料載入() : ComboBox15下拉表單資料載入()
             TextBox2.Text = gUserName : TextBox4.Text = "" : TextBox5.Text = "" : TextBox16.Text = "0" : TextBox17.Text = "" : TextBox7.Text = "" : TextBox10.Text = ""
             DataGridView2.DataSource = Nothing : ds1.Clear() : DataGridView3.DataSource = Nothing : ds2.Clear() : DataGridView4.DataSource = Nothing : ds4.Clear()
@@ -649,10 +668,10 @@ Public Class 樣品單控制表
     End Sub
     Private Sub 新增準備6()
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "INSERT INTO 樣品訂單控制表 (SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號) " &
+        SQL1 = "INSERT INTO 樣品訂單控制表 (SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號) " &
                "VALUES (N'" & TextBox1.Text & "', N'" & ComboBox7.Text & "', N'" & ComboBox2.Text & "', N'" & ComboBox4.Text & "', N'" & ComboBox5.Text & "', N'" & ComboBox1.Text &
                "', N'" & ComboBox3.Text & "', N'" & DTP1 & "', N'" & DTP2 & "', N'" & TextBox16.Text & "', N'" & gUserName & "', N'" & DTP3 & "', N'" & TextBox3.Text & "', N'" & ComboBox8.Text &
-               "', N'" & TextBox6.Text & "', N'" & ComboBox15.Text & "', N'" & ComboBox16.Text & "', N'" & ComboBox17.Text & "')"
+               "', N'" & TextBox6.Text & "', N'" & ComboBox15.Text & "', N'" & ComboBox16.Text & "', N'" & ComboBox17.Text & "', N'" & ComboBox19.Text & "')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
 
         For i As Integer = 0 To DataGridView2.Rows.Count - 1
@@ -752,7 +771,8 @@ Public Class 樣品單控制表
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
             SQL1 = "UPDATE 樣品訂單控制表 SET 季節 = N'" & ComboBox7.Text & "', 客戶 = N'" & ComboBox2.Text & "', 型體號碼 = N'" & ComboBox4.Text & "', 型體名稱 = N'" & ComboBox5.Text &
                    "', 國家 = N'" & ComboBox1.Text & "', 狀態 = N'" & ComboBox3.Text & "', ISS_DATE = N'" & DTP1 & "', ETA = N'" & DTP2 & "', 數量 = N'" & TextBox16.Text &
-                   "', 工廠 = N'" & ComboBox8.Text & "', REQ = N'" & TextBox6.Text & "', C_N = N'" & ComboBox15.Text & "', 中底 = N'" & ComboBox16.Text & "' , 楦頭編號 = N'" & ComboBox17.Text & "' 
+                   "', 工廠 = N'" & ComboBox8.Text & "', REQ = N'" & TextBox6.Text & "', C_N = N'" & ComboBox15.Text & "', 中底 = N'" & ComboBox16.Text & "' , 楦頭編號 = N'" & ComboBox17.Text & "' , 
+                   模具編號 = N'" & ComboBox19.Text & "' 
                    WHERE SO LIKE N'" & TextBox1.Text & "' AND 版次  LIKE N'" & TextBox3.Text & "'"
             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
 
@@ -878,10 +898,10 @@ Public Class 樣品單控制表
                             If DataGridView6.Rows(ii).Cells("項次").Value = DataGridView2.Rows(i).Cells("項次").Value Then
                                 PA = DataGridView6.Rows(ii).Cells("流水號").Value
                                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                                SQL1 = "INSERT INTO  預告訂單部件表 (PAO, 項次, 部件, 材料名稱, 材料說明, 備註, 廠商, 版次, 流水號) VALUES (N'" & 新流水號4 &
-                                       "',N'', N'" & DataGridView3.Rows(t).Cells("部件").Value &
-                                       "', N'" & DataGridView3.Rows(t).Cells("材料名稱").Value & "', N'" & DataGridView3.Rows(t).Cells("顏色").Value & "', N'" & DataGridView3.Rows(t).Cells("備註").Value &
-                                       "', N'" & DataGridView3.Rows(t).Cells("廠商").Value & "', N'V01', N'" & PA & "')"
+                                SQL1 = "INSERT INTO  預告訂單部件表 (PAO, 項次, 部件, 材料名稱, 材料說明, 備註, 廠商, 版次, 流水號) VALUES (N'" & 新流水號4 & "',
+                                        N'', N'" & DataGridView3.Rows(t).Cells("部件").Value & "', N'" & DataGridView3.Rows(t).Cells("材料名稱").Value & "', 
+                                        N'" & DataGridView3.Rows(t).Cells("顏色").Value & "', N'" & DataGridView3.Rows(t).Cells("備註").Value & "', 
+                                        N'" & DataGridView3.Rows(t).Cells("廠商").Value & "', N'V01', N'" & PA & "')"
                                 cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                             End If
                         Next
@@ -933,4 +953,7 @@ Public Class 樣品單控制表
         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
         If dr.Read() Then : TextBox11.Text = dr("做法") : End If : conn.Close()
     End Sub
+    Private Sub ComboBox18_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox18.SelectedIndexChanged
+        ComboBox12下拉表單資料載入()
+    End Sub
 End Class

SHENKANG-MES-SYS/製鞋技術管理系統/楦頭規格表.Designer.vb

@@ -167,6 +167,7 @@ Partial Class 楦頭規格表
         Me.Label39 = New System.Windows.Forms.Label()
         Me.Label38 = New System.Windows.Forms.Label()
         Me.ComboBox5 = New System.Windows.Forms.ComboBox()
+        Me.Button6 = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1465,6 +1466,7 @@ Partial Class 楦頭規格表
         '
         'GroupBox2
         '
+        Me.GroupBox2.Controls.Add(Me.Button6)
         Me.GroupBox2.Controls.Add(Me.Button5)
         Me.GroupBox2.Controls.Add(Me.CheckBox23)
         Me.GroupBox2.Controls.Add(Me.Button4)
@@ -1496,7 +1498,7 @@ Partial Class 楦頭規格表
         '
         Me.CheckBox23.AutoSize = True
         Me.CheckBox23.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox23.Location = New System.Drawing.Point(13, 85)
+        Me.CheckBox23.Location = New System.Drawing.Point(13, 102)
         Me.CheckBox23.Name = "CheckBox23"
         Me.CheckBox23.Size = New System.Drawing.Size(203, 20)
         Me.CheckBox23.TabIndex = 630
@@ -1505,7 +1507,7 @@ Partial Class 楦頭規格表
         '
         'Button4
         '
-        Me.Button4.Location = New System.Drawing.Point(6, 196)
+        Me.Button4.Location = New System.Drawing.Point(6, 200)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(195, 38)
         Me.Button4.TabIndex = 629
@@ -1514,7 +1516,7 @@ Partial Class 楦頭規格表
         '
         'TextBox41
         '
-        Me.TextBox41.Location = New System.Drawing.Point(92, 144)
+        Me.TextBox41.Location = New System.Drawing.Point(92, 151)
         Me.TextBox41.Multiline = True
         Me.TextBox41.Name = "TextBox41"
         Me.TextBox41.Size = New System.Drawing.Size(109, 48)
@@ -1523,7 +1525,7 @@ Partial Class 楦頭規格表
         'Label41
         '
         Me.Label41.AutoSize = True
-        Me.Label41.Location = New System.Drawing.Point(10, 147)
+        Me.Label41.Location = New System.Drawing.Point(10, 154)
         Me.Label41.Name = "Label41"
         Me.Label41.Size = New System.Drawing.Size(68, 16)
         Me.Label41.TabIndex = 617
@@ -1532,7 +1534,7 @@ Partial Class 楦頭規格表
         'Label40
         '
         Me.Label40.AutoSize = True
-        Me.Label40.Location = New System.Drawing.Point(10, 118)
+        Me.Label40.Location = New System.Drawing.Point(10, 129)
         Me.Label40.Name = "Label40"
         Me.Label40.Size = New System.Drawing.Size(68, 16)
         Me.Label40.TabIndex = 616
@@ -1543,14 +1545,14 @@ Partial Class 楦頭規格表
         Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox6.FormattingEnabled = True
         Me.ComboBox6.Items.AddRange(New Object() {"A", "B", "H", "HA", "HB", "M", "S", "L", "W", " "})
-        Me.ComboBox6.Location = New System.Drawing.Point(92, 114)
+        Me.ComboBox6.Location = New System.Drawing.Point(92, 125)
         Me.ComboBox6.Name = "ComboBox6"
         Me.ComboBox6.Size = New System.Drawing.Size(109, 24)
         Me.ComboBox6.TabIndex = 615
         '
         'TextBox40
         '
-        Me.TextBox40.Location = New System.Drawing.Point(92, 55)
+        Me.TextBox40.Location = New System.Drawing.Point(92, 77)
         Me.TextBox40.Name = "TextBox40"
         Me.TextBox40.Size = New System.Drawing.Size(109, 23)
         Me.TextBox40.TabIndex = 614
@@ -1558,7 +1560,7 @@ Partial Class 楦頭規格表
         'Label39
         '
         Me.Label39.AutoSize = True
-        Me.Label39.Location = New System.Drawing.Point(8, 58)
+        Me.Label39.Location = New System.Drawing.Point(8, 80)
         Me.Label39.Name = "Label39"
         Me.Label39.Size = New System.Drawing.Size(68, 16)
         Me.Label39.TabIndex = 613
@@ -1583,6 +1585,15 @@ Partial Class 楦頭規格表
         Me.ComboBox5.Size = New System.Drawing.Size(109, 24)
         Me.ComboBox5.TabIndex = 611
         '
+        'Button6
+        '
+        Me.Button6.Location = New System.Drawing.Point(92, 52)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(109, 23)
+        Me.Button6.TabIndex = 632
+        Me.Button6.Text = "編號新增"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
         '楦頭規格表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -1849,4 +1860,5 @@ Partial Class 楦頭規格表
     Friend WithEvents ComboBox5 As ComboBox
     Friend WithEvents CheckBox23 As CheckBox
     Friend WithEvents Button5 As Button
+    Friend WithEvents Button6 As Button
 End Class

SHENKANG-MES-SYS/製鞋技術管理系統/楦頭規格表.vb

@@ -767,4 +767,7 @@ Public Class 楦頭規格表
         Button10.Enabled = False : Button17.Enabled = False : Button32.Enabled = False : GroupBox1.Visible = False
         DataGridView1.Enabled = True : Button8.Enabled = True : Button9.Enabled = True : Button12.Enabled = True
     End Sub
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        清單修改.Close() : 楦頭編碼修改 = True : 清單修改.ShowDialog() : ComboBox5下拉表單資料載入() : 楦頭編碼修改 = False
+    End Sub
 End Class

SHENKANG-MES-SYS/製鞋技術管理系統/模具開發控制表.Designer.vb

@@ -22,7 +22,7 @@ Partial Class 模具開發控制表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
@@ -75,6 +75,8 @@ Partial Class 模具開發控制表
         Me.Button13 = New System.Windows.Forms.Button()
         Me.TextBox8 = New System.Windows.Forms.TextBox()
         Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.TextBox10 = New System.Windows.Forms.TextBox()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -283,10 +285,10 @@ Partial Class 模具開發控制表
         '
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox1.Location = New System.Drawing.Point(330, 170)
+        Me.PictureBox1.Location = New System.Drawing.Point(330, 194)
         Me.PictureBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(1103, 792)
+        Me.PictureBox1.Size = New System.Drawing.Size(1103, 768)
         Me.PictureBox1.TabIndex = 626
         Me.PictureBox1.TabStop = False
         '
@@ -391,8 +393,8 @@ Partial Class 模具開發控制表
         '
         'DataGridView1
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView1.Location = New System.Drawing.Point(12, 32)
         Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -556,23 +558,41 @@ Partial Class 模具開發控制表
         '
         'TextBox8
         '
-        Me.TextBox8.Location = New System.Drawing.Point(505, 194)
+        Me.TextBox8.Location = New System.Drawing.Point(561, 268)
         Me.TextBox8.Name = "TextBox8"
         Me.TextBox8.Size = New System.Drawing.Size(157, 23)
         Me.TextBox8.TabIndex = 743
         '
         'TextBox9
         '
-        Me.TextBox9.Location = New System.Drawing.Point(342, 194)
+        Me.TextBox9.Location = New System.Drawing.Point(398, 268)
         Me.TextBox9.Name = "TextBox9"
         Me.TextBox9.Size = New System.Drawing.Size(157, 23)
         Me.TextBox9.TabIndex = 744
         '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(329, 170)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(45, 16)
+        Me.Label18.TabIndex = 745
+        Me.Label18.Text = "C_N_ : "
+        '
+        'TextBox10
+        '
+        Me.TextBox10.Location = New System.Drawing.Point(398, 167)
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Size = New System.Drawing.Size(321, 23)
+        Me.TextBox10.TabIndex = 746
+        '
         '模具開發控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.TextBox10)
+        Me.Controls.Add(Me.Label18)
         Me.Controls.Add(Me.TextBox9)
         Me.Controls.Add(Me.TextBox8)
         Me.Controls.Add(Me.Button13)
@@ -687,4 +707,6 @@ Partial Class 模具開發控制表
     Friend WithEvents Button13 As Button
     Friend WithEvents TextBox8 As TextBox
     Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents TextBox10 As TextBox
 End Class

SHENKANG-MES-SYS/製鞋技術管理系統/模具開發控制表.vb

@@ -13,16 +13,9 @@ Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
 Public Class 模具開發控制表
     Public Property Credentials As ICredentials
-    ReadOnly conn As New SqlConnection
-    ReadOnly da As New SqlDataAdapter
-    ReadOnly cmd As New SqlCommand
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet
-    Dim dr As SqlDataReader
     Dim DTP As String
-    Dim xlApp As Microsoft.Office.Interop.Excel.Application
-    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
-    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
-
+    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
     Private Sub Set_DGV1載入前設定()
         DataGridView1.DataSource = Nothing : ds.Clear()
         DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -36,12 +29,16 @@ Public Class 模具開發控制表
     Private Sub Set_楦頭規格表清單()
         Set_DGV1載入前設定()
         If PA = "" Then
-            SQL1 = "SELECT 模具開發單號, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1 AS 備註, 制表, 制表日期, 模具廠
-                    FROM 模具開發控制表"
+            SQL1 = "SELECT   模具開發單號, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1 AS 備註, 制表, 制表日期, 模具廠, CN
+                    FROM     模具開發控制表 
+                    ORDER BY 楦頭編號"
         Else
-            SQL1 = "SELECT 模具開發單號, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1 AS 備註, 制表, 制表日期, 模具廠
-                    FROM 模具開發控制表 WHERE 模具開發單號 LIKE N'%" & PA & "%' OR 結構 LIKE N'%" & PA & "%' OR 材質 LIKE N'%" & PA & "%' OR 楦頭編號 LIKE N'%" & PA & "%' OR 模具編號 LIKE N'%" & PA & "%' OR 
-                         參考原樣鞋編號 LIKE N'%" & PA & "%' OR 品牌 LIKE N'%" & PA & "%' OR 大底廠 LIKE N'%" & PA & "%' OR 尺寸 LIKE N'%" & PA & "%' OR 季節 LIKE N'%" & PA & "%'"
+            SQL1 = "SELECT   模具開發單號, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1 AS 備註, 制表, 制表日期, 模具廠, CN
+                    FROM     模具開發控制表 
+                    WHERE    模具開發單號 LIKE N'%" & PA & "%' OR 結構 LIKE N'%" & PA & "%' OR 材質 LIKE N'%" & PA & "%' OR 楦頭編號 LIKE N'%" & PA & "%' OR 
+                             模具編號 LIKE N'%" & PA & "%' OR 參考原樣鞋編號 LIKE N'%" & PA & "%' OR 品牌 LIKE N'%" & PA & "%' OR 大底廠 LIKE N'%" & PA & "%' OR 
+                             尺寸 LIKE N'%" & PA & "%' OR 季節 LIKE N'%" & PA & "%'
+                    ORDER BY 楦頭編號"
         End If
         Set_DGV1載入後設定() : Set_grid()
     End Sub
@@ -49,7 +46,7 @@ Public Class 模具開發控制表
         DataGridView1.Columns(0).Width = 142 : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).Visible = False : DataGridView1.Columns(3).Visible = False
         DataGridView1.Columns(4).Width = 142 : DataGridView1.Columns(5).Visible = False : DataGridView1.Columns(6).Visible = False : DataGridView1.Columns(7).Visible = False
         DataGridView1.Columns(8).Visible = False : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).Visible = False : DataGridView1.Columns(11).Visible = False
-        DataGridView1.Columns(12).Visible = False : DataGridView1.Columns(13).Visible = False
+        DataGridView1.Columns(12).Visible = False : DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
         conn.Close()
@@ -138,6 +135,7 @@ Public Class 模具開發控制表
                 ComboBox6.Text = DataGridView1.Rows(e.RowIndex).Cells("大底廠").Value : TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("尺寸").Value
                 ComboBox7.Text = DataGridView1.Rows(e.RowIndex).Cells("季節").Value : TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("備註").Value
                 TextBox8.Text = DataGridView1.Rows(e.RowIndex).Cells("制表").Value : TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells("制表日期").Value
+                TextBox10.Text = DataGridView1.Rows(e.RowIndex).Cells("CN").Value
                 圖片導入()
             End If
         End If
@@ -208,18 +206,20 @@ Public Class 模具開發控制表
                     End If
 
                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                    SQL1 = "INSERT INTO 模具開發控制表 (模具開發單號, 模具廠, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1, 制表, 制表日期, 圖片) SELECT N'" & TextBox4.Text &
-                       "',N'" & ComboBox1.Text & "',N'" & ComboBox2.Text & "',N'" & ComboBox3.Text & "',N'" & ComboBox4.Text & "',N'" & TextBox6.Text & "',N'" & TextBox1.Text & "',N'" & ComboBox5.Text &
-                       "',N'" & ComboBox6.Text & "',N'" & TextBox2.Text & "',N'" & ComboBox7.Text & "',N'" & TextBox3.Text & "',N'" & gUserName & "',N'" & DTP & "', " &
-                       "BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(13) & "\" & TextBox5.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                    SQL1 = "INSERT INTO 模具開發控制表 (模具開發單號, 模具廠, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1, 制表, 制表日期, CN, 圖片) 
+                            SELECT N'" & TextBox4.Text & "',N'" & ComboBox1.Text & "',N'" & ComboBox2.Text & "',N'" & ComboBox3.Text & "',N'" & ComboBox4.Text & "',N'" & TextBox6.Text & "',
+                                   N'" & TextBox1.Text & "',N'" & ComboBox5.Text & "',N'" & ComboBox6.Text & "',N'" & TextBox2.Text & "',N'" & ComboBox7.Text & "',N'" & TextBox3.Text & "',
+                                   N'" & gUserName & "',N'" & DTP & "', N'" & TextBox10.Text & "', 
+                                   BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(13) & "\" & TextBox5.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                 Else
                     conn.Close()
                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                    SQL1 = "INSERT INTO 模具開發控制表 (模具開發單號, 模具廠, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1, 制表, 制表日期, 圖片) SELECT N'" & TextBox4.Text &
-                   "',N'" & ComboBox1.Text & "',N'" & ComboBox2.Text & "',N'" & ComboBox3.Text & "',N'" & ComboBox4.Text & "',N'" & TextBox6.Text & "',N'" & TextBox1.Text & "',N'" & ComboBox5.Text &
-                   "',N'" & ComboBox6.Text & "',N'" & TextBox2.Text & "',N'" & ComboBox7.Text & "',N'" & TextBox3.Text & "',N'" & gUserName & "',N'" & DTP & "', " &
-                   "BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(13) & "\" & TextBox5.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                    SQL1 = "INSERT INTO 模具開發控制表 (模具開發單號, 模具廠, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1, 制表, 制表日期, CN, 圖片) 
+                            SELECT N'" & TextBox4.Text & "',N'" & ComboBox1.Text & "',N'" & ComboBox2.Text & "',N'" & ComboBox3.Text & "',N'" & ComboBox4.Text & "',N'" & TextBox6.Text & "',
+                                   N'" & TextBox1.Text & "',N'" & ComboBox5.Text & "',N'" & ComboBox6.Text & "',N'" & TextBox2.Text & "',N'" & ComboBox7.Text & "',N'" & TextBox3.Text & "',
+                                   N'" & gUserName & "', N'" & DTP & "',N'" & TextBox10.Text & "', 
+                                   BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(13) & "\" & TextBox5.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                 End If
                 conn.Close()
@@ -236,9 +236,9 @@ Public Class 模具開發控制表
                 WebBrowser1.Refresh()
                 '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                 圖片導入() : Set_楦頭規格表清單() : MsgBox("新增完成")
-                ComboBox1.Enabled = False : ComboBox2.Enabled = False : ComboBox3.Enabled = False : ComboBox4.Enabled = False : ComboBox5.Enabled = False : ComboBox6.Enabled = False : ComboBox7.Enabled = False
-                TextBox6.Enabled = False : TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : Button3.Enabled = False : Button6.Enabled = False
-                Button2.Enabled = True : Button5.Enabled = True : TextBox5.Text = ""
+                ComboBox1.Enabled = False : ComboBox2.Enabled = False : ComboBox3.Enabled = False : ComboBox4.Enabled = False : ComboBox5.Enabled = False : ComboBox6.Enabled = False
+                ComboBox7.Enabled = False : TextBox6.Enabled = False : TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : Button3.Enabled = False
+                Button6.Enabled = False : Button2.Enabled = True : Button5.Enabled = True : TextBox5.Text = ""
             End If
         End If
     End Sub
@@ -252,7 +252,7 @@ Public Class 模具開發控制表
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "UPDATE 模具開發控制表 SET 模具廠 = N'" & ComboBox1.Text & "', 結構 = N'" & ComboBox2.Text & "', 材質 = N'" & ComboBox3.Text & "', 楦頭編號 = N'" & ComboBox4.Text &
                "', 模具編號 = N'" & TextBox6.Text & "', 參考原樣鞋編號 = N'" & TextBox1.Text & "', 品牌 = N'" & ComboBox5.Text & "', 大底廠 = N'" & ComboBox6.Text & "', 尺寸 = N'" & TextBox2.Text &
-               "', 季節 = N'" & ComboBox7.Text & "', 備註1 = N'" & TextBox3.Text & "', 制表 = N'" & gUserName & "', 制表日期 = N'" & DTP & "' 
+               "', 季節 = N'" & ComboBox7.Text & "', 備註1 = N'" & TextBox3.Text & "', 制表 = N'" & gUserName & "', 制表日期 = N'" & DTP & "', CN = N'" & TextBox10.Text & "' 
                WHERE 模具開發單號 LIKE N'" & TextBox4.Text & "'"
         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Set_楦頭規格表清單()
@@ -313,7 +313,8 @@ Public Class 模具開發控制表
         Else
             conn.Close() : Set_日期格式轉換()
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "UPDATE 模具開發控制表 SET 制表 = N'" & gUserName & "', 制表日期 = N'" & DTP & "', 圖片 = BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(13) & "\" & TextBox5.Text & "', SINGLE_BLOB) AS 
+            SQL1 = "UPDATE 模具開發控制表 SET 制表 = N'" & gUserName & "', 制表日期 = N'" & DTP & "', 
+                           圖片 = BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(13) & "\" & TextBox5.Text & "', SINGLE_BLOB) AS 
                     EMPLOYEEPICTURE WHERE (模具開發單號 = '" & TextBox4.Text & "')"
             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
             '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------

SHENKANG-MES-SYS/製鞋技術管理系統/製鞋技術資料庫狀態.Designer.vb

@@ -0,0 +1,765 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 製鞋技術資料庫狀態
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.楦頭規格_dgv = New System.Windows.Forms.DataGridView()
+        Me.模具開發_dgv = New System.Windows.Forms.DataGridView()
+        Me.鞋樣素描_dgv = New System.Windows.Forms.DataGridView()
+        Me.楦頭編號_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.筆數1_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.樣品訂單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.MINI_WAL_dgv = New System.Windows.Forms.DataGridView()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.名稱_tb = New System.Windows.Forms.TextBox()
+        Me.編號_tb = New System.Windows.Forms.TextBox()
+        Me.客戶_tb = New System.Windows.Forms.TextBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.量產明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.出貨明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.鞋型圖片_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.量產控制_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.鞋樣素描2_dgv = New System.Windows.Forms.DataGridView()
+        Me.樣品訂單1_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.筆數3_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.型體資訊_dgv = New System.Windows.Forms.DataGridView()
+        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.鞋樣素描1_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.筆數2_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.模具規格_dgv = New System.Windows.Forms.DataGridView()
+        Me.模具規格_tb = New System.Windows.Forms.TextBox()
+        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.自動比對_bt = New System.Windows.Forms.Button()
+        Me.楦模轉換_dgv = New System.Windows.Forms.DataGridView()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        CType(Me.楦頭規格_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.模具開發_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.鞋樣素描_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabControl1.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        CType(Me.樣品訂單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MINI_WAL_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage2.SuspendLayout()
+        CType(Me.量產明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.出貨明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.鞋型圖片_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.量產控制_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.鞋樣素描2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.樣品訂單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.型體資訊_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage3.SuspendLayout()
+        CType(Me.鞋樣素描1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.模具規格_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage4.SuspendLayout()
+        CType(Me.楦模轉換_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '楦頭規格_dgv
+        '
+        Me.楦頭規格_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.楦頭規格_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.楦頭規格_dgv.Location = New System.Drawing.Point(6, 30)
+        Me.楦頭規格_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.楦頭規格_dgv.Name = "楦頭規格_dgv"
+        Me.楦頭規格_dgv.RowHeadersWidth = 5
+        Me.楦頭規格_dgv.RowTemplate.Height = 24
+        Me.楦頭規格_dgv.Size = New System.Drawing.Size(718, 893)
+        Me.楦頭規格_dgv.TabIndex = 648
+        '
+        '模具開發_dgv
+        '
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.模具開發_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        Me.模具開發_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.模具開發_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.模具開發_dgv.Location = New System.Drawing.Point(727, 30)
+        Me.模具開發_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.模具開發_dgv.Name = "模具開發_dgv"
+        Me.模具開發_dgv.RowHeadersWidth = 5
+        Me.模具開發_dgv.RowTemplate.Height = 24
+        Me.模具開發_dgv.Size = New System.Drawing.Size(576, 435)
+        Me.模具開發_dgv.TabIndex = 649
+        '
+        '鞋樣素描_dgv
+        '
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.鞋樣素描_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.鞋樣素描_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.鞋樣素描_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.鞋樣素描_dgv.Location = New System.Drawing.Point(727, 488)
+        Me.鞋樣素描_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.鞋樣素描_dgv.Name = "鞋樣素描_dgv"
+        Me.鞋樣素描_dgv.RowHeadersWidth = 5
+        Me.鞋樣素描_dgv.RowTemplate.Height = 24
+        Me.鞋樣素描_dgv.Size = New System.Drawing.Size(576, 435)
+        Me.鞋樣素描_dgv.TabIndex = 650
+        '
+        '楦頭編號_tb
+        '
+        Me.楦頭編號_tb.Location = New System.Drawing.Point(68, 3)
+        Me.楦頭編號_tb.Name = "楦頭編號_tb"
+        Me.楦頭編號_tb.Size = New System.Drawing.Size(166, 23)
+        Me.楦頭編號_tb.TabIndex = 651
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(6, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 652
+        Me.Label1.Text = "楦頭規格"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(727, 10)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(126, 16)
+        Me.Label2.TabIndex = 653
+        Me.Label2.Text = "楦頭規格  --  模具開發"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(727, 468)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(126, 16)
+        Me.Label3.TabIndex = 654
+        Me.Label3.Text = "楦頭規格  --  鞋樣素描"
+        '
+        'TabControl1
+        '
+        Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Controls.Add(Me.TabPage3)
+        Me.TabControl1.Controls.Add(Me.TabPage4)
+        Me.TabControl1.Location = New System.Drawing.Point(5, 4)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(1904, 963)
+        Me.TabControl1.TabIndex = 655
+        '
+        'TabPage1
+        '
+        Me.TabPage1.AutoScroll = True
+        Me.TabPage1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage1.Controls.Add(Me.Label8)
+        Me.TabPage1.Controls.Add(Me.Label7)
+        Me.TabPage1.Controls.Add(Me.筆數1_tb)
+        Me.TabPage1.Controls.Add(Me.Label5)
+        Me.TabPage1.Controls.Add(Me.樣品訂單_dgv)
+        Me.TabPage1.Controls.Add(Me.Label4)
+        Me.TabPage1.Controls.Add(Me.MINI_WAL_dgv)
+        Me.TabPage1.Controls.Add(Me.Label1)
+        Me.TabPage1.Controls.Add(Me.Label3)
+        Me.TabPage1.Controls.Add(Me.楦頭規格_dgv)
+        Me.TabPage1.Controls.Add(Me.Label2)
+        Me.TabPage1.Controls.Add(Me.模具開發_dgv)
+        Me.TabPage1.Controls.Add(Me.鞋樣素描_dgv)
+        Me.TabPage1.Controls.Add(Me.楦頭編號_tb)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(1896, 934)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "楦頭規格資訊串聯關係"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(657, 10)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(44, 16)
+        Me.Label8.TabIndex = 661
+        Me.Label8.Text = "筆資料"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(550, 10)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(20, 16)
+        Me.Label7.TabIndex = 660
+        Me.Label7.Text = "共"
+        '
+        '筆數1_tb
+        '
+        Me.筆數1_tb.ForeColor = System.Drawing.Color.Red
+        Me.筆數1_tb.Location = New System.Drawing.Point(573, 5)
+        Me.筆數1_tb.Name = "筆數1_tb"
+        Me.筆數1_tb.Size = New System.Drawing.Size(82, 23)
+        Me.筆數1_tb.TabIndex = 659
+        Me.筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(1305, 10)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(126, 16)
+        Me.Label5.TabIndex = 658
+        Me.Label5.Text = "楦頭規格  --  樣品訂單"
+        '
+        '樣品訂單_dgv
+        '
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.樣品訂單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.樣品訂單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.樣品訂單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.樣品訂單_dgv.Location = New System.Drawing.Point(1305, 30)
+        Me.樣品訂單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.樣品訂單_dgv.Name = "樣品訂單_dgv"
+        Me.樣品訂單_dgv.RowHeadersWidth = 5
+        Me.樣品訂單_dgv.RowTemplate.Height = 24
+        Me.樣品訂單_dgv.Size = New System.Drawing.Size(576, 435)
+        Me.樣品訂單_dgv.TabIndex = 657
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(1305, 468)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(137, 16)
+        Me.Label4.TabIndex = 656
+        Me.Label4.Text = "楦頭規格  --  MINI_WAL"
+        '
+        'MINI_WAL_dgv
+        '
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.MINI_WAL_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        Me.MINI_WAL_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.MINI_WAL_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MINI_WAL_dgv.Location = New System.Drawing.Point(1305, 488)
+        Me.MINI_WAL_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.MINI_WAL_dgv.Name = "MINI_WAL_dgv"
+        Me.MINI_WAL_dgv.RowHeadersWidth = 5
+        Me.MINI_WAL_dgv.RowTemplate.Height = 24
+        Me.MINI_WAL_dgv.Size = New System.Drawing.Size(576, 435)
+        Me.MINI_WAL_dgv.TabIndex = 655
+        '
+        'TabPage2
+        '
+        Me.TabPage2.AutoScroll = True
+        Me.TabPage2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage2.Controls.Add(Me.名稱_tb)
+        Me.TabPage2.Controls.Add(Me.編號_tb)
+        Me.TabPage2.Controls.Add(Me.客戶_tb)
+        Me.TabPage2.Controls.Add(Me.Label19)
+        Me.TabPage2.Controls.Add(Me.量產明細_dgv)
+        Me.TabPage2.Controls.Add(Me.Label20)
+        Me.TabPage2.Controls.Add(Me.出貨明細_dgv)
+        Me.TabPage2.Controls.Add(Me.Label15)
+        Me.TabPage2.Controls.Add(Me.鞋型圖片_dgv)
+        Me.TabPage2.Controls.Add(Me.Label16)
+        Me.TabPage2.Controls.Add(Me.量產控制_dgv)
+        Me.TabPage2.Controls.Add(Me.Label17)
+        Me.TabPage2.Controls.Add(Me.Label18)
+        Me.TabPage2.Controls.Add(Me.鞋樣素描2_dgv)
+        Me.TabPage2.Controls.Add(Me.樣品訂單1_dgv)
+        Me.TabPage2.Controls.Add(Me.Label13)
+        Me.TabPage2.Controls.Add(Me.Label14)
+        Me.TabPage2.Controls.Add(Me.筆數3_tb)
+        Me.TabPage2.Controls.Add(Me.Label12)
+        Me.TabPage2.Controls.Add(Me.型體資訊_dgv)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(1896, 934)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "型體資訊串聯關係"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        '名稱_tb
+        '
+        Me.名稱_tb.Location = New System.Drawing.Point(404, 4)
+        Me.名稱_tb.Name = "名稱_tb"
+        Me.名稱_tb.Size = New System.Drawing.Size(166, 23)
+        Me.名稱_tb.TabIndex = 679
+        '
+        '編號_tb
+        '
+        Me.編號_tb.Location = New System.Drawing.Point(236, 4)
+        Me.編號_tb.Name = "編號_tb"
+        Me.編號_tb.Size = New System.Drawing.Size(166, 23)
+        Me.編號_tb.TabIndex = 678
+        '
+        '客戶_tb
+        '
+        Me.客戶_tb.Location = New System.Drawing.Point(68, 4)
+        Me.客戶_tb.Name = "客戶_tb"
+        Me.客戶_tb.Size = New System.Drawing.Size(166, 23)
+        Me.客戶_tb.TabIndex = 677
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Location = New System.Drawing.Point(1307, 617)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(126, 16)
+        Me.Label19.TabIndex = 676
+        Me.Label19.Text = "型體資訊  --  量產明細"
+        '
+        '量產明細_dgv
+        '
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.量產明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        Me.量產明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.量產明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.量產明細_dgv.Location = New System.Drawing.Point(1307, 637)
+        Me.量產明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.量產明細_dgv.Name = "量產明細_dgv"
+        Me.量產明細_dgv.RowHeadersWidth = 5
+        Me.量產明細_dgv.RowTemplate.Height = 24
+        Me.量產明細_dgv.Size = New System.Drawing.Size(576, 280)
+        Me.量產明細_dgv.TabIndex = 675
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(730, 617)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(126, 16)
+        Me.Label20.TabIndex = 674
+        Me.Label20.Text = "型體資訊  --  出貨明細"
+        '
+        '出貨明細_dgv
+        '
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.出貨明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.出貨明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.出貨明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.出貨明細_dgv.Location = New System.Drawing.Point(728, 637)
+        Me.出貨明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.出貨明細_dgv.Name = "出貨明細_dgv"
+        Me.出貨明細_dgv.RowHeadersWidth = 5
+        Me.出貨明細_dgv.RowTemplate.Height = 24
+        Me.出貨明細_dgv.Size = New System.Drawing.Size(576, 280)
+        Me.出貨明細_dgv.TabIndex = 673
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(730, 313)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(126, 16)
+        Me.Label15.TabIndex = 672
+        Me.Label15.Text = "型體資訊  --  樣品訂單"
+        '
+        '鞋型圖片_dgv
+        '
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.鞋型圖片_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
+        Me.鞋型圖片_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.鞋型圖片_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.鞋型圖片_dgv.Location = New System.Drawing.Point(1306, 29)
+        Me.鞋型圖片_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.鞋型圖片_dgv.Name = "鞋型圖片_dgv"
+        Me.鞋型圖片_dgv.RowHeadersWidth = 5
+        Me.鞋型圖片_dgv.RowTemplate.Height = 24
+        Me.鞋型圖片_dgv.Size = New System.Drawing.Size(576, 280)
+        Me.鞋型圖片_dgv.TabIndex = 671
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(1307, 313)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(138, 16)
+        Me.Label16.TabIndex = 670
+        Me.Label16.Text = "型體資訊  --  量產控制表"
+        '
+        '量產控制_dgv
+        '
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.量產控制_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        Me.量產控制_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.量產控制_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.量產控制_dgv.Location = New System.Drawing.Point(1307, 333)
+        Me.量產控制_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.量產控制_dgv.Name = "量產控制_dgv"
+        Me.量產控制_dgv.RowHeadersWidth = 5
+        Me.量產控制_dgv.RowTemplate.Height = 24
+        Me.量產控制_dgv.Size = New System.Drawing.Size(576, 280)
+        Me.量產控制_dgv.TabIndex = 669
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(731, 9)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(126, 16)
+        Me.Label17.TabIndex = 668
+        Me.Label17.Text = "型體資訊  --  鞋樣素描"
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(1309, 9)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(126, 16)
+        Me.Label18.TabIndex = 667
+        Me.Label18.Text = "型體資訊  --  鞋型圖片"
+        '
+        '鞋樣素描2_dgv
+        '
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.鞋樣素描2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.鞋樣素描2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.鞋樣素描2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.鞋樣素描2_dgv.Location = New System.Drawing.Point(728, 29)
+        Me.鞋樣素描2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.鞋樣素描2_dgv.Name = "鞋樣素描2_dgv"
+        Me.鞋樣素描2_dgv.RowHeadersWidth = 5
+        Me.鞋樣素描2_dgv.RowTemplate.Height = 24
+        Me.鞋樣素描2_dgv.Size = New System.Drawing.Size(576, 280)
+        Me.鞋樣素描2_dgv.TabIndex = 665
+        '
+        '樣品訂單1_dgv
+        '
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.樣品訂單1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        Me.樣品訂單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.樣品訂單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.樣品訂單1_dgv.Location = New System.Drawing.Point(728, 333)
+        Me.樣品訂單1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.樣品訂單1_dgv.Name = "樣品訂單1_dgv"
+        Me.樣品訂單1_dgv.RowHeadersWidth = 5
+        Me.樣品訂單1_dgv.RowTemplate.Height = 24
+        Me.樣品訂單1_dgv.Size = New System.Drawing.Size(576, 280)
+        Me.樣品訂單1_dgv.TabIndex = 666
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(682, 9)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(44, 16)
+        Me.Label13.TabIndex = 664
+        Me.Label13.Text = "筆資料"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(575, 9)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(20, 16)
+        Me.Label14.TabIndex = 663
+        Me.Label14.Text = "共"
+        '
+        '筆數3_tb
+        '
+        Me.筆數3_tb.ForeColor = System.Drawing.Color.Red
+        Me.筆數3_tb.Location = New System.Drawing.Point(598, 4)
+        Me.筆數3_tb.Name = "筆數3_tb"
+        Me.筆數3_tb.Size = New System.Drawing.Size(82, 23)
+        Me.筆數3_tb.TabIndex = 662
+        Me.筆數3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(6, 5)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.TabIndex = 654
+        Me.Label12.Text = "型體資訊"
+        '
+        '型體資訊_dgv
+        '
+        Me.型體資訊_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.型體資訊_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.型體資訊_dgv.Location = New System.Drawing.Point(6, 29)
+        Me.型體資訊_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.型體資訊_dgv.Name = "型體資訊_dgv"
+        Me.型體資訊_dgv.RowHeadersWidth = 5
+        Me.型體資訊_dgv.RowTemplate.Height = 24
+        Me.型體資訊_dgv.Size = New System.Drawing.Size(720, 888)
+        Me.型體資訊_dgv.TabIndex = 653
+        '
+        'TabPage3
+        '
+        Me.TabPage3.AutoScroll = True
+        Me.TabPage3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage3.Controls.Add(Me.Label11)
+        Me.TabPage3.Controls.Add(Me.鞋樣素描1_dgv)
+        Me.TabPage3.Controls.Add(Me.Label9)
+        Me.TabPage3.Controls.Add(Me.Label10)
+        Me.TabPage3.Controls.Add(Me.筆數2_tb)
+        Me.TabPage3.Controls.Add(Me.Label6)
+        Me.TabPage3.Controls.Add(Me.模具規格_dgv)
+        Me.TabPage3.Controls.Add(Me.模具規格_tb)
+        Me.TabPage3.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage3.Name = "TabPage3"
+        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage3.Size = New System.Drawing.Size(1896, 934)
+        Me.TabPage3.TabIndex = 2
+        Me.TabPage3.Text = "模具資訊串聯關係"
+        Me.TabPage3.UseVisualStyleBackColor = True
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(1307, 9)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(126, 16)
+        Me.Label11.TabIndex = 666
+        Me.Label11.Text = "模具規格  --  鞋樣素描"
+        '
+        '鞋樣素描1_dgv
+        '
+        DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.鞋樣素描1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
+        Me.鞋樣素描1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.鞋樣素描1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.鞋樣素描1_dgv.Location = New System.Drawing.Point(1307, 29)
+        Me.鞋樣素描1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.鞋樣素描1_dgv.Name = "鞋樣素描1_dgv"
+        Me.鞋樣素描1_dgv.RowHeadersWidth = 5
+        Me.鞋樣素描1_dgv.RowTemplate.Height = 24
+        Me.鞋樣素描1_dgv.Size = New System.Drawing.Size(576, 894)
+        Me.鞋樣素描1_dgv.TabIndex = 665
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(1206, 9)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(44, 16)
+        Me.Label9.TabIndex = 664
+        Me.Label9.Text = "筆資料"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(1099, 9)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(20, 16)
+        Me.Label10.TabIndex = 663
+        Me.Label10.Text = "共"
+        '
+        '筆數2_tb
+        '
+        Me.筆數2_tb.ForeColor = System.Drawing.Color.Red
+        Me.筆數2_tb.Location = New System.Drawing.Point(1122, 4)
+        Me.筆數2_tb.Name = "筆數2_tb"
+        Me.筆數2_tb.Size = New System.Drawing.Size(82, 23)
+        Me.筆數2_tb.TabIndex = 662
+        Me.筆數2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(6, 5)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 655
+        Me.Label6.Text = "模具規格"
+        '
+        '模具規格_dgv
+        '
+        Me.模具規格_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.模具規格_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.模具規格_dgv.Location = New System.Drawing.Point(6, 29)
+        Me.模具規格_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.模具規格_dgv.Name = "模具規格_dgv"
+        Me.模具規格_dgv.RowHeadersWidth = 5
+        Me.模具規格_dgv.RowTemplate.Height = 24
+        Me.模具規格_dgv.Size = New System.Drawing.Size(1298, 894)
+        Me.模具規格_dgv.TabIndex = 653
+        '
+        '模具規格_tb
+        '
+        Me.模具規格_tb.Location = New System.Drawing.Point(68, 2)
+        Me.模具規格_tb.Name = "模具規格_tb"
+        Me.模具規格_tb.Size = New System.Drawing.Size(166, 23)
+        Me.模具規格_tb.TabIndex = 654
+        '
+        'TabPage4
+        '
+        Me.TabPage4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage4.Controls.Add(Me.存檔_bt)
+        Me.TabPage4.Controls.Add(Me.自動比對_bt)
+        Me.TabPage4.Controls.Add(Me.楦模轉換_dgv)
+        Me.TabPage4.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage4.Name = "TabPage4"
+        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage4.Size = New System.Drawing.Size(1896, 934)
+        Me.TabPage4.TabIndex = 3
+        Me.TabPage4.Text = "楦頭CN轉到模具CN"
+        Me.TabPage4.UseVisualStyleBackColor = True
+        '
+        '自動比對_bt
+        '
+        Me.自動比對_bt.Location = New System.Drawing.Point(1310, 7)
+        Me.自動比對_bt.Name = "自動比對_bt"
+        Me.自動比對_bt.Size = New System.Drawing.Size(136, 69)
+        Me.自動比對_bt.TabIndex = 655
+        Me.自動比對_bt.Text = "自動比對"
+        Me.自動比對_bt.UseVisualStyleBackColor = True
+        '
+        '楦模轉換_dgv
+        '
+        Me.楦模轉換_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.楦模轉換_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.楦模轉換_dgv.Location = New System.Drawing.Point(6, 7)
+        Me.楦模轉換_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.楦模轉換_dgv.Name = "楦模轉換_dgv"
+        Me.楦模轉換_dgv.RowHeadersWidth = 5
+        Me.楦模轉換_dgv.RowTemplate.Height = 24
+        Me.楦模轉換_dgv.Size = New System.Drawing.Size(1298, 916)
+        Me.楦模轉換_dgv.TabIndex = 654
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Location = New System.Drawing.Point(1310, 82)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(136, 69)
+        Me.存檔_bt.TabIndex = 656
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '製鞋技術資料庫狀態
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.TabControl1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "製鞋技術資料庫狀態"
+        Me.Text = "製鞋技術資料庫狀態"
+        CType(Me.楦頭規格_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.模具開發_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.鞋樣素描_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage1.PerformLayout()
+        CType(Me.樣品訂單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MINI_WAL_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage2.ResumeLayout(False)
+        Me.TabPage2.PerformLayout()
+        CType(Me.量產明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.出貨明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.鞋型圖片_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.量產控制_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.鞋樣素描2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.樣品訂單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.型體資訊_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage3.ResumeLayout(False)
+        Me.TabPage3.PerformLayout()
+        CType(Me.鞋樣素描1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.模具規格_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage4.ResumeLayout(False)
+        CType(Me.楦模轉換_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents 楦頭規格_dgv As DataGridView
+    Friend WithEvents 模具開發_dgv As DataGridView
+    Friend WithEvents 鞋樣素描_dgv As DataGridView
+    Friend WithEvents 楦頭編號_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents TabPage1 As TabPage
+    Friend WithEvents Label4 As Label
+    Friend WithEvents MINI_WAL_dgv As DataGridView
+    Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 樣品訂單_dgv As DataGridView
+    Friend WithEvents TabPage3 As TabPage
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 模具規格_dgv As DataGridView
+    Friend WithEvents 模具規格_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 筆數1_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 筆數2_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 鞋樣素描1_dgv As DataGridView
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 型體資訊_dgv As DataGridView
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 筆數3_tb As TextBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents 量產明細_dgv As DataGridView
+    Friend WithEvents Label20 As Label
+    Friend WithEvents 出貨明細_dgv As DataGridView
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 鞋型圖片_dgv As DataGridView
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 量產控制_dgv As DataGridView
+    Friend WithEvents Label17 As Label
+    Friend WithEvents Label18 As Label
+    Friend WithEvents 鞋樣素描2_dgv As DataGridView
+    Friend WithEvents 樣品訂單1_dgv As DataGridView
+    Friend WithEvents 名稱_tb As TextBox
+    Friend WithEvents 編號_tb As TextBox
+    Friend WithEvents 客戶_tb As TextBox
+    Friend WithEvents TabPage4 As TabPage
+    Friend WithEvents 楦模轉換_dgv As DataGridView
+    Friend WithEvents 自動比對_bt As Button
+    Friend WithEvents 存檔_bt As Button
+End Class

SHENKANG-MES-SYS/製鞋技術管理系統/製鞋技術資料庫狀態.vb

@@ -0,0 +1,402 @@
+Option Strict Off
+Public Class 製鞋技術資料庫狀態
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
+    ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet : ReadOnly ds7 As New DataSet : ReadOnly ds8 As New DataSet : ReadOnly ds9 As New DataSet
+    ReadOnly ds10 As New DataSet : ReadOnly ds11 As New DataSet : ReadOnly ds12 As New DataSet : ReadOnly ds13 As New DataSet : ReadOnly ds14 As New DataSet
+    Private Sub Set_清單()
+        楦頭規格_dgv.DataSource = Nothing : ds.Clear()
+        楦頭規格_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        楦頭規格_dgv.ColumnHeadersHeight = 40
+        楦頭規格_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 資料流水號, 楦頭編號, 楦頭圖號碼, 鞋圖號碼, 楦頭名, 楦頭名 AS 模具資料, 楦頭名 AS 素描圖片, 楦頭名 AS [MINI WALL], 楦頭名 AS 樣品單 FROM 楦頭規格控制表 ORDER BY 楦頭編號"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 楦頭規格_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        楦頭規格_dgv.Columns(0).FillWeight = 100 : 楦頭規格_dgv.Columns(1).FillWeight = 100 : 楦頭規格_dgv.Columns(2).FillWeight = 100 : 楦頭規格_dgv.Columns(3).FillWeight = 100
+        楦頭規格_dgv.Columns(4).FillWeight = 150 : 楦頭規格_dgv.Columns(5).FillWeight = 60 : 楦頭規格_dgv.Columns(6).FillWeight = 60 : 楦頭規格_dgv.Columns(7).FillWeight = 60
+        楦頭規格_dgv.Columns(8).FillWeight = 60
+
+        楦頭編號_tb.Text = "%%"
+        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
+        For i As Integer = 0 To 楦頭規格_dgv.Rows.Count - 1
+            楦頭規格_dgv("模具資料", i).Value = 0 : 楦頭規格_dgv("素描圖片", i).Value = 0 : 楦頭規格_dgv("MINI WALL", i).Value = 0 : 楦頭規格_dgv("樣品單", i).Value = 0
+        Next
+
+        For i As Integer = 0 To 楦頭規格_dgv.Rows.Count - 1
+            資料數 = 楦頭規格_dgv.Rows.Count : MyModule1.進度條()
+            For ii As Integer = 0 To 模具開發_dgv.Rows.Count - 1
+                If 楦頭規格_dgv("楦頭編號", i).Value.ToString = 模具開發_dgv("楦頭編號", ii).Value.ToString Then
+                    楦頭規格_dgv("模具資料", i).Value = Val(楦頭規格_dgv("模具資料", i).Value.ToString) + 1
+                End If
+            Next
+            For ii As Integer = 0 To 鞋樣素描_dgv.Rows.Count - 1
+                If 楦頭規格_dgv("楦頭編號", i).Value.ToString = 鞋樣素描_dgv("楦頭編號", ii).Value.ToString Then
+                    楦頭規格_dgv("素描圖片", i).Value = Val(楦頭規格_dgv("素描圖片", i).Value.ToString) + 1
+                End If
+            Next
+            For ii As Integer = 0 To MINI_WAL_dgv.Rows.Count - 1
+                If 楦頭規格_dgv("楦頭編號", i).Value.ToString = MINI_WAL_dgv("楦頭編號", ii).Value.ToString Then
+                    楦頭規格_dgv("MINI WALL", i).Value = Val(楦頭規格_dgv("MINI WALL", i).Value.ToString) + 1
+                End If
+            Next
+            For ii As Integer = 0 To 樣品訂單_dgv.Rows.Count - 1
+                If 楦頭規格_dgv("楦頭編號", i).Value.ToString = 樣品訂單_dgv("楦頭編號", ii).Value.ToString Then
+                    楦頭規格_dgv("樣品單", i).Value = Val(楦頭規格_dgv("樣品單", i).Value.ToString) + 1
+                End If
+            Next
+        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        模具開發_dgv.DataSource = Nothing : ds1.Clear() : 鞋樣素描_dgv.DataSource = Nothing : ds2.Clear()
+        MINI_WAL_dgv.DataSource = Nothing : ds3.Clear() : 樣品訂單_dgv.DataSource = Nothing : ds4.Clear()
+        楦頭編號_tb.Text = ""
+        筆數1_tb.Text = 楦頭規格_dgv.Rows.Count
+    End Sub
+    Private Sub Set_清單1()
+        模具開發_dgv.DataSource = Nothing : ds1.Clear()
+        模具開發_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        模具開發_dgv.ColumnHeadersHeight = 25
+        模具開發_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 楦頭編號, 模具開發單號, 結構, 材質, 模具編號, 品牌 FROM 模具開發控制表 WHERE (楦頭編號 LIKE '" & 楦頭編號_tb.Text & "')"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : 模具開發_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        模具開發_dgv.Columns(0).Visible = False
+    End Sub
+    Private Sub Set_清單2()
+        鞋樣素描_dgv.DataSource = Nothing : ds2.Clear()
+        鞋樣素描_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        鞋樣素描_dgv.ColumnHeadersHeight = 25
+        鞋樣素描_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 楦頭編號, 鞋樣素描圖編號,模具編號,型體編號,型體名稱,品牌 FROM 鞋樣素描圖控制表 WHERE (楦頭編號 LIKE '" & 楦頭編號_tb.Text & "')"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : 鞋樣素描_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        鞋樣素描_dgv.Columns(0).Visible = False
+    End Sub
+    Private Sub Set_清單3()
+        MINI_WAL_dgv.DataSource = Nothing : ds3.Clear()
+        MINI_WAL_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        MINI_WAL_dgv.ColumnHeadersHeight = 25
+        MINI_WAL_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT      MINI_WALL_明細表.楦頭編號, MINI_WALL_明細表.MW編號, MINI_WALL_明細表.製造, MINI_WALL_控制表.季節, MINI_WALL_控制表.品牌, MINI_WALL_明細表.楦頭編號
+                FROM        MINI_WALL_明細表 LEFT OUTER JOIN MINI_WALL_控制表 ON MINI_WALL_明細表.MW編號 = MINI_WALL_控制表.MW編號
+                WHERE      (MINI_WALL_明細表.楦頭編號 LIKE '" & 楦頭編號_tb.Text & "')
+                GROUP BY    MINI_WALL_明細表.MW編號, MINI_WALL_明細表.製造, MINI_WALL_控制表.季節, MINI_WALL_控制表.品牌, MINI_WALL_明細表.楦頭編號
+                ORDER BY    MINI_WALL_明細表.MW編號"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : MINI_WAL_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        MINI_WAL_dgv.Columns(0).Visible = False
+    End Sub
+    Private Sub Set_清單4()
+        樣品訂單_dgv.DataSource = Nothing : ds4.Clear()
+        樣品訂單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        樣品訂單_dgv.ColumnHeadersHeight = 25
+        樣品訂單_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 楦頭編號, SO, 季節, 客戶, 型體號碼, 型體名稱 FROM 樣品訂單控制表 WHERE (楦頭編號 LIKE '" & 楦頭編號_tb.Text & "') ORDER BY SO"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds4) : 樣品訂單_dgv.DataSource = ds4.Tables(0) : conn.Close()
+        樣品訂單_dgv.Columns(0).Visible = False
+    End Sub
+    Private Sub Set_清單5()
+        模具規格_dgv.DataSource = Nothing : ds5.Clear()
+        模具規格_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        模具規格_dgv.ColumnHeadersHeight = 40
+        模具規格_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 模具開發單號, 結構, 材質, 楦頭編號, 模具編號, 品牌, 大底廠, 尺寸, 季節, 制表, 制表日期, 模具廠, 模具廠 AS 鞋樣素描 FROM 模具開發控制表 ORDER BY 模具編號"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds5) : 模具規格_dgv.DataSource = ds5.Tables(0) : conn.Close()
+
+        模具規格_dgv.Columns(0).FillWeight = 100 : 模具規格_dgv.Columns(1).FillWeight = 100 : 模具規格_dgv.Columns(2).FillWeight = 100 : 模具規格_dgv.Columns(3).FillWeight = 100
+        模具規格_dgv.Columns(4).FillWeight = 100 : 模具規格_dgv.Columns(5).FillWeight = 100 : 模具規格_dgv.Columns(6).FillWeight = 100 : 模具規格_dgv.Columns(7).FillWeight = 50
+        模具規格_dgv.Columns(8).FillWeight = 100 : 模具規格_dgv.Columns(9).FillWeight = 80 : 模具規格_dgv.Columns(10).FillWeight = 90 : 模具規格_dgv.Columns(11).FillWeight = 60
+        模具規格_dgv.Columns(12).FillWeight = 60
+
+        For i As Integer = 0 To 模具規格_dgv.Rows.Count - 1
+            資料數 = 模具規格_dgv.Rows.Count : MyModule1.進度條()
+            模具規格_tb.Text = 模具規格_dgv("模具編號", i).Value.ToString
+            Set_清單6()
+            模具規格_dgv("鞋樣素描", i).Value = 鞋樣素描1_dgv.Rows.Count
+        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        模具規格_tb.Text = ""
+        筆數2_tb.Text = 模具規格_dgv.Rows.Count
+    End Sub
+    Private Sub Set_清單6()
+        鞋樣素描1_dgv.DataSource = Nothing : ds6.Clear()
+        鞋樣素描1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        鞋樣素描1_dgv.ColumnHeadersHeight = 25
+        鞋樣素描1_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 鞋樣素描圖編號, 型體編號, 型體名稱, 品牌 FROM 鞋樣素描圖控制表 WHERE (模具編號 LIKE '" & 模具規格_tb.Text & "')"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds6) : 鞋樣素描1_dgv.DataSource = ds6.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單7()
+        型體資訊_dgv.DataSource = Nothing : ds7.Clear()
+        型體資訊_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        型體資訊_dgv.ColumnHeadersHeight = 40
+        型體資訊_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 客戶簡稱, 型體號碼, 型體名稱, 型體名稱 AS 鞋樣素描, 型體名稱 AS 鞋型圖片, 型體名稱 AS 樣品訂單, 型體名稱 AS 量產控制, 型體名稱 AS 量產明細, 型體名稱 AS 出貨明細
+                FROM 型體控制表 ORDER BY 客戶簡稱, 型體號碼, 型體名稱"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds7) : 型體資訊_dgv.DataSource = ds7.Tables(0) : conn.Close()
+
+        型體資訊_dgv.Columns(0).FillWeight = 100 : 型體資訊_dgv.Columns(1).FillWeight = 100 : 型體資訊_dgv.Columns(2).FillWeight = 100 : 型體資訊_dgv.Columns(3).FillWeight = 60
+        型體資訊_dgv.Columns(4).FillWeight = 60 : 型體資訊_dgv.Columns(5).FillWeight = 60 : 型體資訊_dgv.Columns(6).FillWeight = 60 : 型體資訊_dgv.Columns(7).FillWeight = 60
+        型體資訊_dgv.Columns(8).FillWeight = 60
+
+        客戶_tb.Text = "%%" : 編號_tb.Text = "%%" : 名稱_tb.Text = "%%"
+        For i As Integer = 0 To 型體資訊_dgv.Rows.Count - 1
+            型體資訊_dgv("鞋樣素描", i).Value = 0 : 型體資訊_dgv("鞋型圖片", i).Value = 0 : 型體資訊_dgv("樣品訂單", i).Value = 0
+            型體資訊_dgv("量產控制", i).Value = 0 : 型體資訊_dgv("量產明細", i).Value = 0 : 型體資訊_dgv("出貨明細", i).Value = 0
+        Next
+
+        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : Set_清單13()
+        For i As Integer = 0 To 型體資訊_dgv.Rows.Count - 1
+            資料數 = 型體資訊_dgv.Rows.Count : MyModule1.進度條()
+            For ii As Integer = 0 To 鞋樣素描2_dgv.Rows.Count - 1
+                If 型體資訊_dgv("型體號碼", i).Value.ToString = 鞋樣素描2_dgv("型體編號", ii).Value.ToString And
+                    型體資訊_dgv("型體名稱", i).Value.ToString = 鞋樣素描2_dgv("型體名稱", ii).Value.ToString Then
+                    型體資訊_dgv("鞋樣素描", i).Value = Val(型體資訊_dgv("鞋樣素描", i).Value.ToString) + 1
+                End If
+            Next
+            For ii As Integer = 0 To 鞋型圖片_dgv.Rows.Count - 1
+                If 型體資訊_dgv("客戶簡稱", i).Value.ToString = 鞋型圖片_dgv("客戶", ii).Value.ToString And
+                    型體資訊_dgv("型體號碼", i).Value.ToString = 鞋型圖片_dgv("形體號", ii).Value.ToString And
+                    型體資訊_dgv("型體名稱", i).Value.ToString = 鞋型圖片_dgv("形體名", ii).Value.ToString Then
+                    型體資訊_dgv("鞋型圖片", i).Value = Val(型體資訊_dgv("鞋型圖片", i).Value.ToString) + 1
+                End If
+            Next
+            For ii As Integer = 0 To 樣品訂單1_dgv.Rows.Count - 1
+                If 型體資訊_dgv("型體號碼", i).Value.ToString = 樣品訂單1_dgv("型體號碼", ii).Value.ToString And
+                    型體資訊_dgv("型體名稱", i).Value.ToString = 樣品訂單1_dgv("型體名稱", ii).Value.ToString Then
+                    型體資訊_dgv("樣品訂單", i).Value = Val(型體資訊_dgv("樣品訂單", i).Value.ToString) + 1
+                End If
+            Next
+            For ii As Integer = 0 To 量產控制_dgv.Rows.Count - 1
+                If 型體資訊_dgv("型體號碼", i).Value.ToString = 量產控制_dgv("型體號碼", ii).Value.ToString And
+                    型體資訊_dgv("型體名稱", i).Value.ToString = 量產控制_dgv("GOODBOX", ii).Value.ToString Then
+                    型體資訊_dgv("量產控制", i).Value = Val(型體資訊_dgv("量產控制", i).Value.ToString) + 1
+                End If
+            Next
+            For ii As Integer = 0 To 量產明細_dgv.Rows.Count - 1
+                If 型體資訊_dgv("型體號碼", i).Value.ToString = 量產明細_dgv("ItemNumber", ii).Value.ToString And
+                    型體資訊_dgv("型體名稱", i).Value.ToString = 量產明細_dgv("ProductName", ii).Value.ToString Then
+                    型體資訊_dgv("量產明細", i).Value = Val(型體資訊_dgv("量產明細", i).Value.ToString) + 1
+                End If
+            Next
+            For ii As Integer = 0 To 出貨明細_dgv.Rows.Count - 1
+                If 型體資訊_dgv("型體名稱", i).Value.ToString = 出貨明細_dgv("形體號", ii).Value.ToString Then
+                    型體資訊_dgv("出貨明細", i).Value = Val(型體資訊_dgv("出貨明細", i).Value.ToString) + 1
+                End If
+            Next
+        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        鞋樣素描2_dgv.DataSource = Nothing : ds8.Clear() : 鞋型圖片_dgv.DataSource = Nothing : ds9.Clear()
+        樣品訂單1_dgv.DataSource = Nothing : ds10.Clear() : 量產控制_dgv.DataSource = Nothing : ds11.Clear()
+        量產明細_dgv.DataSource = Nothing : ds12.Clear() : 出貨明細_dgv.DataSource = Nothing : ds13.Clear()
+        客戶_tb.Text = "" : 編號_tb.Text = "" : 名稱_tb.Text = ""
+        筆數3_tb.Text = 型體資訊_dgv.Rows.Count
+    End Sub
+    Private Sub Set_清單8()
+        鞋樣素描2_dgv.DataSource = Nothing : ds8.Clear()
+        鞋樣素描2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        鞋樣素描2_dgv.ColumnHeadersHeight = 25
+        鞋樣素描2_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 型體名稱, 型體編號, 鞋樣素描圖編號, 楦頭編號, 模具編號, 品牌 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE '" & 編號_tb.Text & "' AND 型體名稱 LIKE '" & 名稱_tb.Text & "'"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds8) : 鞋樣素描2_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        鞋樣素描2_dgv.Columns(0).Visible = False : 鞋樣素描2_dgv.Columns(1).Visible = False
+    End Sub
+    Private Sub Set_清單9()
+        鞋型圖片_dgv.DataSource = Nothing : ds9.Clear()
+        鞋型圖片_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        鞋型圖片_dgv.ColumnHeadersHeight = 25
+        鞋型圖片_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 客戶, 形體號, 形體名, 顏色, 類別, 入圖者, 圖片編號 FROM 鞋型圖片資料庫 
+                WHERE 客戶 LIKE '" & 客戶_tb.Text & "' AND 形體號 LIKE '" & 編號_tb.Text & "' AND 形體名 LIKE '" & 名稱_tb.Text & "'"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds9) : 鞋型圖片_dgv.DataSource = ds9.Tables(0) : conn.Close()
+        鞋型圖片_dgv.Columns(0).Visible = False : 鞋型圖片_dgv.Columns(1).Visible = False : 鞋型圖片_dgv.Columns(2).Visible = False
+    End Sub
+    Private Sub Set_清單10()
+        樣品訂單1_dgv.DataSource = Nothing : ds10.Clear()
+        樣品訂單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        樣品訂單1_dgv.ColumnHeadersHeight = 25
+        樣品訂單1_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 型體號碼, 型體名稱, SO, 季節, 型體號碼, 型體名稱, 制單人, 版次 FROM  樣品訂單控制表 
+                WHERE  型體號碼 LIKE '" & 編號_tb.Text & "' AND 型體名稱 LIKE '" & 名稱_tb.Text & "'"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds10) : 樣品訂單1_dgv.DataSource = ds10.Tables(0) : conn.Close()
+        樣品訂單1_dgv.Columns(0).Visible = False : 樣品訂單1_dgv.Columns(1).Visible = False
+    End Sub
+    Private Sub Set_清單11()
+        量產控制_dgv.DataSource = Nothing : ds11.Clear()
+        量產控制_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        量產控制_dgv.ColumnHeadersHeight = 25
+        量產控制_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 型體號碼, GOODBOX, 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 形體名稱, APMA確認 AS 顏色 FROM 訂單控制表
+                WHERE (型體號碼 LIKE '" & 編號_tb.Text & "') AND (GOODBOX LIKE '" & 名稱_tb.Text & "')"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds11) : 量產控制_dgv.DataSource = ds11.Tables(0) : conn.Close()
+        量產控制_dgv.Columns(0).Visible = False : 量產控制_dgv.Columns(1).Visible = False
+    End Sub
+    Private Sub Set_清單12()
+        量產明細_dgv.DataSource = Nothing : ds12.Clear()
+        量產明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        量產明細_dgv.ColumnHeadersHeight = 25
+        量產明細_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT ItemNumber, ProductName, 訂單流水號, 客戶訂單號, Color AS 顏色, 資料流水號 FROM 訂單明細表 
+                WHERE  ItemNumber LIKE '" & 編號_tb.Text & "' AND ProductName LIKE '" & 名稱_tb.Text & "'"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds12) : 量產明細_dgv.DataSource = ds12.Tables(0) : conn.Close()
+        量產明細_dgv.Columns(0).Visible = False : 量產明細_dgv.Columns(1).Visible = False
+    End Sub
+    Private Sub Set_清單13()
+        出貨明細_dgv.DataSource = Nothing : ds13.Clear()
+        出貨明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        出貨明細_dgv.ColumnHeadersHeight = 25
+        出貨明細_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 形體號, 貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號 FROM 貨款匯入出款明細表 WHERE 形體號 LIKE '" & 名稱_tb.Text & "'"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds13) : 出貨明細_dgv.DataSource = ds13.Tables(0) : conn.Close()
+        出貨明細_dgv.Columns(0).Visible = False
+    End Sub
+    Private Sub Set_清單14()
+        楦模轉換_dgv.DataSource = Nothing : ds14.Clear()
+        楦模轉換_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        楦模轉換_dgv.ColumnHeadersHeight = 25
+        楦模轉換_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT   模具開發控制表.模具開發單號, 模具開發控制表.模具編號, 模具開發控制表.楦頭編號 AS 模具對應楦頭, 模具開發控制表.CN AS NCN, 楦頭規格控制表.楦頭編號, 
+                         楦頭規格控制表.楦頭名 AS OCN, 楦頭規格控制表.資料流水號, METOO選擇按鈕.選擇
+                FROM     模具開發控制表 LEFT OUTER JOIN METOO選擇按鈕 ON 模具開發控制表.楦頭編號 = METOO選擇按鈕.對應 FULL OUTER JOIN 楦頭規格控制表 ON 模具開發控制表.楦頭編號 = 
+                         楦頭規格控制表.楦頭編號
+                ORDER BY 模具開發控制表.模具編號 DESC"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds14) : 楦模轉換_dgv.DataSource = ds14.Tables(0) : conn.Close()
+        For i As Integer = 0 To 楦模轉換_dgv.Rows.Count - 1
+            楦模轉換_dgv("選擇", i).Value = False
+        Next
+    End Sub
+    Private Sub 製鞋技術資料庫除錯_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Set_清單() : Set_清單5() : Set_清單7() : Set_清單14()
+    End Sub
+    Private Sub 楦模轉換_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 楦模轉換_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 楦模轉換_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 楦模轉換_dgv("模具編號", e.RowIndex).Value.ToString <> 楦模轉換_dgv("模具編號", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(楦模轉換_dgv.RowHeadersVisible, 楦模轉換_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 楦模轉換_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 楦模轉換_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+            For i As Integer = 0 To 楦模轉換_dgv.Rows.Count - 1
+                If 楦模轉換_dgv("選擇", i).Value = True Then
+                    楦模轉換_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+                End If
+            Next
+        End If
+    End Sub
+    Private Sub 型體資訊_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 型體資訊_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 型體資訊_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 型體資訊_dgv("客戶簡稱", e.RowIndex).Value.ToString <> 型體資訊_dgv("客戶簡稱", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(型體資訊_dgv.RowHeadersVisible, 型體資訊_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 型體資訊_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 型體資訊_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+            For i As Integer = 0 To 型體資訊_dgv.Rows.Count - 1
+                If 型體資訊_dgv("鞋樣素描", i).Value.ToString = "0" And 型體資訊_dgv("鞋型圖片", i).Value.ToString = "0" And
+                型體資訊_dgv("樣品訂單", i).Value.ToString = "0" And 型體資訊_dgv("量產控制", i).Value.ToString = "0" And
+                型體資訊_dgv("量產明細", i).Value.ToString = "0" And 型體資訊_dgv("出貨明細", i).Value.ToString = "0" Then
+                    型體資訊_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+                End If
+                If 型體資訊_dgv("鞋樣素描", i).Value.ToString <> "0" And 型體資訊_dgv("鞋型圖片", i).Value.ToString <> "0" And
+                型體資訊_dgv("樣品訂單", i).Value.ToString <> "0" And 型體資訊_dgv("量產控制", i).Value.ToString <> "0" And
+                型體資訊_dgv("量產明細", i).Value.ToString <> "0" And 型體資訊_dgv("出貨明細", i).Value.ToString <> "0" Then
+                    型體資訊_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
+                End If
+            Next
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 模具規格_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 模具規格_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 模具規格_dgv("模具編號", e.RowIndex).Value.ToString <> 模具規格_dgv("模具編號", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(模具規格_dgv.RowHeadersVisible, 模具規格_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 模具規格_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 模具規格_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+            For i As Integer = 0 To 模具規格_dgv.Rows.Count - 1
+                If 模具規格_dgv("鞋樣素描", i).Value.ToString = "0" Then : 模具規格_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
+                If 模具規格_dgv("鞋樣素描", i).Value.ToString <> "0" Then : 模具規格_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If
+            Next
+        End If
+    End Sub
+    Private Sub 楦頭規格_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 楦頭規格_dgv.RowPostPaint
+        If e.RowIndex = 楦頭規格_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            For i As Integer = 0 To 楦頭規格_dgv.Rows.Count - 1
+                If 楦頭規格_dgv("模具資料", i).Value.ToString = "0" And 楦頭規格_dgv("素描圖片", i).Value.ToString = "0" And
+                楦頭規格_dgv("MINI WALL", i).Value.ToString = "0" And 楦頭規格_dgv("樣品單", i).Value.ToString = "0" Then
+                    楦頭規格_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+                End If
+                If 楦頭規格_dgv("模具資料", i).Value.ToString <> "0" And 楦頭規格_dgv("素描圖片", i).Value.ToString <> "0" And
+                楦頭規格_dgv("MINI WALL", i).Value.ToString <> "0" And 楦頭規格_dgv("樣品單", i).Value.ToString <> "0" Then
+                    楦頭規格_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
+                End If
+            Next
+        End If
+    End Sub
+    Private Sub 楦模轉換_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 楦模轉換_dgv.CellClick
+        If 楦模轉換_dgv("模具開發單號", e.RowIndex).Value.ToString = "" Then
+            楦模轉換_dgv("選擇", e.RowIndex).Value = False
+        Else
+            If 楦模轉換_dgv("資料流水號", e.RowIndex).Value.ToString = "" Then
+                楦模轉換_dgv("選擇", e.RowIndex).Value = False
+            Else
+                If 楦模轉換_dgv("OCN", e.RowIndex).Value.ToString = "" Then
+                    楦模轉換_dgv("選擇", e.RowIndex).Value = False
+                Else
+                    楦模轉換_dgv("選擇", e.RowIndex).Value = True
+                    楦模轉換_dgv("NCN", e.RowIndex).Value = 楦模轉換_dgv("OCN", e.RowIndex).Value.ToString
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 型體資訊_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 型體資訊_dgv.CellClick
+        客戶_tb.Text = 型體資訊_dgv("客戶簡稱", e.RowIndex).Value.ToString : 編號_tb.Text = 型體資訊_dgv("型體號碼", e.RowIndex).Value.ToString
+        名稱_tb.Text = 型體資訊_dgv("型體名稱", e.RowIndex).Value.ToString
+        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : Set_清單13()
+    End Sub
+    Private Sub 模具規格_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 模具規格_dgv.CellClick
+        模具規格_tb.Text = 模具規格_dgv("模具編號", e.RowIndex).Value.ToString
+        Set_清單6()
+    End Sub
+    Private Sub 楦頭規格_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 楦頭規格_dgv.CellClick
+        楦頭編號_tb.Text = 楦頭規格_dgv("楦頭編號", e.RowIndex).Value.ToString
+        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
+    End Sub
+    Private Sub 自動比對_bt_Click(sender As Object, e As EventArgs) Handles 自動比對_bt.Click
+        For i As Integer = 0 To 楦模轉換_dgv.Rows.Count - 1
+            If 楦模轉換_dgv("模具開發單號", i).Value.ToString = "" Then
+                楦模轉換_dgv("選擇", i).Value = False
+            Else
+                If 楦模轉換_dgv("資料流水號", i).Value.ToString = "" Then
+                    楦模轉換_dgv("選擇", i).Value = False
+                Else
+                    If 楦模轉換_dgv("OCN", i).Value.ToString = "" Then
+                        楦模轉換_dgv("選擇", i).Value = False
+                    Else
+                        楦模轉換_dgv("選擇", i).Value = True
+                        楦模轉換_dgv("NCN", i).Value = 楦模轉換_dgv("OCN", i).Value.ToString
+                    End If
+                End If
+            End If
+        Next
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        For i As Integer = 0 To 楦模轉換_dgv.Rows.Count - 1
+            資料數 = 楦模轉換_dgv.Rows.Count : MyModule1.進度條()
+            If 楦模轉換_dgv("模具開發單號", i).Value.ToString = "" Then : Else
+                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+                SQL1 = "UPDATE 模具開發控制表 SET CN = N'" & 楦模轉換_dgv("NCN", i).Value.ToString & "' WHERE 模具開發單號 LIKE N'" & 楦模轉換_dgv("模具開發單號", i).Value.ToString & "'"
+                cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
+            End If
+        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        Set_清單14()
+    End Sub
+End Class

SHENKANG-MES-SYS/製鞋技術管理系統/製鞋技術資料庫除錯.Designer.vb

@@ -1,59 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 製鞋技術資料庫除錯
-    Inherits System.Windows.Forms.Form
-
-    'Form 覆寫 Dispose 以清除元件清單。
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    '為 Windows Form 設計工具的必要項
-    Private components As System.ComponentModel.IContainer
-
-    '注意: 以下為 Windows Form 設計工具所需的程序
-    '可以使用 Windows Form 設計工具進行修改。
-    '請勿使用程式碼編輯器進行修改。
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'DataGridView1
-        '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(12, 58)
-        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(1890, 900)
-        Me.DataGridView1.TabIndex = 648
-        '
-        '製鞋技術資料庫除錯
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1914, 971)
-        Me.Controls.Add(Me.DataGridView1)
-        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "製鞋技術資料庫除錯"
-        Me.Text = "製鞋技術資料庫除錯"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents DataGridView1 As DataGridView
-End Class

SHENKANG-MES-SYS/製鞋技術管理系統/製鞋技術資料庫除錯.vb

@@ -1,34 +0,0 @@
-Option Strict Off
-Imports System.Data.SqlClient
-Imports System.Net
-Public Class 製鞋技術資料庫除錯
-    Public Property Credentials As ICredentials
-    ReadOnly conn As New SqlConnection
-    ReadOnly da As New SqlDataAdapter
-    ReadOnly cmd As New SqlCommand
-    ReadOnly ds As New DataSet
-    Private Sub Set_清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT  楦頭規格控制表.資料流水號, 楦頭規格控制表.楦頭編號, 楦頭規格控制表.楦頭圖號碼, 楦頭規格控制表.鞋圖號碼, 
-                        楦頭規格控制表.楦頭名, 楦頭圖片庫.楦頭圖片編號, 楦頭圖片庫.楦頭編號 AS 楦圖用_楦頭編號, 
-                        模具開發控制表.模具開發單號, 模具開發控制表.楦頭編號 AS 模具用_楦頭編號, 模具開發控制表.模具編號, 
-                        鞋樣素描圖控制表.鞋樣素描圖編號, 鞋樣素描圖控制表.楦頭編號 AS 鞋樣用_楦頭編號, 
-                        鞋樣素描圖控制表.模具編號 AS 鞋樣用_模具編號, 鞋樣素描圖控制表.型體編號, 鞋樣素描圖控制表.型體名稱
-                FROM    楦頭規格控制表 FULL OUTER JOIN
-                        鞋樣素描圖控制表 ON 楦頭規格控制表.楦頭編號 = 鞋樣素描圖控制表.楦頭編號 FULL OUTER JOIN
-                        模具開發控制表 ON 楦頭規格控制表.楦頭編號 = 模具開發控制表.楦頭編號 FULL OUTER JOIN
-                        楦頭圖片庫 ON 楦頭規格控制表.楦頭編號 = 楦頭圖片庫.楦頭編號
-                WHERE  (楦頭圖片庫.楦頭編號 NOT LIKE 'WL%') AND (楦頭圖片庫.楦頭編號 NOT LIKE 'ML%')
-                ORDER BY   楦頭規格控制表.楦頭編號"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
-        DataGridView1.Columns(0).Width = 100 : DataGridView1.Columns(1).Width = 100
-    End Sub
-    Private Sub 製鞋技術資料庫除錯_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        Set_清單()
-    End Sub
-End Class

SHENKANG-MES-SYS/製鞋技術管理系統/鞋樣素描控制表.vb

@@ -22,9 +22,9 @@ Public Class 鞋樣素描控制表
     Private Sub Set_楦頭規格表清單()
         Set_DGV1載入前設定()
         If PA = "" Then
-            SQL1 = "SELECT 楦頭編號, 楦頭名 AS 結構名稱 FROM 楦頭規格控制表 ORDER BY 楦頭編號"
+            SQL1 = "SELECT 楦頭編號, 楦頭名 FROM 楦頭規格控制表 ORDER BY 楦頭編號"
         Else
-            SQL1 = "SELECT 楦頭編號, 楦頭名 AS 結構名稱 FROM 楦頭規格控制表 WHERE 楦頭編號 LIKE N'%" & PA & "%' ORDER BY 楦頭編號"
+            SQL1 = "SELECT 楦頭編號, 楦頭名 FROM 楦頭規格控制表 WHERE 楦頭編號 LIKE N'%" & PA & "%' ORDER BY 楦頭編號"
         End If
         Set_DGV1載入後設定() : Set_grid()
     End Sub

SHENKANG-MES-SYS/請採購館洗系統/供應商管理(製鞋樣品).Designer.vb

@@ -76,13 +76,15 @@ Partial Class 供應商管理_製鞋樣品
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Button7 = New System.Windows.Forms.Button()
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Button8 = New System.Windows.Forms.Button()
+        Me.停用_ch = New System.Windows.Forms.CheckBox()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Button6
         '
         Me.Button6.ForeColor = System.Drawing.Color.Purple
-        Me.Button6.Location = New System.Drawing.Point(1734, 2)
+        Me.Button6.Location = New System.Drawing.Point(1734, 5)
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(156, 25)
         Me.Button6.TabIndex = 184
@@ -106,7 +108,7 @@ Partial Class 供應商管理_製鞋樣品
         '
         Me.Label23.AutoSize = True
         Me.Label23.ForeColor = System.Drawing.Color.Red
-        Me.Label23.Location = New System.Drawing.Point(1382, 9)
+        Me.Label23.Location = New System.Drawing.Point(1378, 9)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(116, 16)
         Me.Label23.TabIndex = 182
@@ -118,14 +120,14 @@ Partial Class 供應商管理_製鞋樣品
         Me.Button5.ForeColor = System.Drawing.Color.Blue
         Me.Button5.Location = New System.Drawing.Point(1653, 33)
         Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(75, 83)
+        Me.Button5.Size = New System.Drawing.Size(75, 54)
         Me.Button5.TabIndex = 181
         Me.Button5.Text = "確認新增"
         Me.Button5.UseVisualStyleBackColor = True
         '
         'Button4
         '
-        Me.Button4.Location = New System.Drawing.Point(1572, 2)
+        Me.Button4.Location = New System.Drawing.Point(1572, 5)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(156, 25)
         Me.Button4.TabIndex = 180
@@ -203,7 +205,7 @@ Partial Class 供應商管理_製鞋樣品
         Me.Button1.ForeColor = System.Drawing.Color.Blue
         Me.Button1.Location = New System.Drawing.Point(1572, 33)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 83)
+        Me.Button1.Size = New System.Drawing.Size(75, 54)
         Me.Button1.TabIndex = 171
         Me.Button1.Text = "新增"
         Me.Button1.UseVisualStyleBackColor = True
@@ -575,11 +577,34 @@ Partial Class 供應商管理_製鞋樣品
         Me.ComboBox1.Size = New System.Drawing.Size(150, 24)
         Me.ComboBox1.TabIndex = 763
         '
+        'Button8
+        '
+        Me.Button8.ForeColor = System.Drawing.Color.Olive
+        Me.Button8.Location = New System.Drawing.Point(1572, 91)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(156, 25)
+        Me.Button8.TabIndex = 764
+        Me.Button8.Text = "新增供應商類別"
+        Me.Button8.UseVisualStyleBackColor = True
+        '
+        '停用_ch
+        '
+        Me.停用_ch.AutoSize = True
+        Me.停用_ch.ForeColor = System.Drawing.Color.Red
+        Me.停用_ch.Location = New System.Drawing.Point(1515, 8)
+        Me.停用_ch.Name = "停用_ch"
+        Me.停用_ch.Size = New System.Drawing.Size(51, 20)
+        Me.停用_ch.TabIndex = 765
+        Me.停用_ch.Text = "停用"
+        Me.停用_ch.UseVisualStyleBackColor = True
+        '
         '供應商管理_製鞋樣品
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.停用_ch)
+        Me.Controls.Add(Me.Button8)
         Me.Controls.Add(Me.ComboBox1)
         Me.Controls.Add(Me.Button7)
         Me.Controls.Add(Me.Button6)
@@ -696,4 +721,6 @@ Partial Class 供應商管理_製鞋樣品
     Friend WithEvents TextBox1 As TextBox
     Friend WithEvents Button7 As Button
     Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Button8 As Button
+    Friend WithEvents 停用_ch As CheckBox
 End Class

SHENKANG-MES-SYS/請採購館洗系統/供應商管理(製鞋樣品).vb

@@ -15,10 +15,10 @@ Public Class 供應商管理_製鞋樣品
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         If PA = "" Then
             SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3 AS 廠商類別, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &
-                   "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商清單 ORDER BY 供應商編碼"
+                   "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用 FROM 供應商清單 ORDER BY 供應商編碼"
         Else
             SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &
-                   "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商清單 " &
+                   "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用 FROM 供應商清單 " &
                    "WHERE 供應商編碼 LIKE N'%" & PA & "%' OR 廠商 LIKE N'%" & PA & "%' OR 公司名 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR " &
                    "聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人3 LIKE N'%" & PA & "%' ORDER BY 供應商編碼"
         End If
@@ -28,9 +28,9 @@ Public Class 供應商管理_製鞋樣品
     Private Sub Set_grid()
         DataGridView1.Columns(0).Width = 80 : DataGridView1.Columns(1).Width = 90 : DataGridView1.Columns(2).Width = 200
         DataGridView1.Columns(3).Width = 400 : DataGridView1.Columns(4).Width = 120 : DataGridView1.Columns(5).Width = 120
-        DataGridView1.Columns(6).Width = 120 : DataGridView1.Columns(7).Width = 120 : DataGridView1.Columns(8).Width = 120
-        DataGridView1.Columns(9).Width = 120 : DataGridView1.Columns(10).Width = 120 : DataGridView1.Columns(11).Width = 120
-        DataGridView1.Columns(12).Width = 120
+        DataGridView1.Columns(6).Width = 120 : DataGridView1.Columns(7).Width = 120 : DataGridView1.Columns(8).Width = 110
+        DataGridView1.Columns(9).Width = 110 : DataGridView1.Columns(10).Width = 110 : DataGridView1.Columns(11).Width = 110
+        DataGridView1.Columns(12).Width = 110 : DataGridView1.Columns(22).Width = 50
         DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False : DataGridView1.Columns(15).Visible = False
         DataGridView1.Columns(16).Visible = False : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False
         DataGridView1.Columns(19).Visible = False : DataGridView1.Columns(20).Visible = False : DataGridView1.Columns(21).Visible = False
@@ -73,6 +73,7 @@ Public Class 供應商管理_製鞋樣品
             TextBox17.Text = DataGridView1(16, e.RowIndex).Value.ToString : TextBox18.Text = DataGridView1(17, e.RowIndex).Value.ToString
             TextBox19.Text = DataGridView1(18, e.RowIndex).Value.ToString : TextBox21.Text = DataGridView1(19, e.RowIndex).Value.ToString
             TextBox22.Text = DataGridView1(20, e.RowIndex).Value.ToString : TextBox23.Text = DataGridView1(21, e.RowIndex).Value.ToString
+            停用_ch.Checked = DataGridView1(22, e.RowIndex).Value
         End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -104,19 +105,20 @@ Public Class 供應商管理_製鞋樣品
         Else
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
             SQL1 = "INSERT INTO 供應商清單 (供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, " &
-                  "聯繫人1職稱, 聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱) VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text &
-                      "',N'" & TextBox3.Text & "',N'" & TextBox4.Text & "',N'" & TextBox5.Text & "',N'" & TextBox6.Text & "',N'" & TextBox7.Text & "',N'" & TextBox8.Text &
-                      "',N'" & TextBox9.Text & "',N'" & ComboBox1.Text & "',N'" & TextBox11.Text & "',N'" & TextBox12.Text & "',N'" & TextBox13.Text & "',N'" & TextBox14.Text &
-                      "',N'" & TextBox15.Text & "',N'" & TextBox16.Text & "',N'" & TextBox17.Text & "',N'" & TextBox18.Text & "',N'" & TextBox19.Text & "',N'" & TextBox21.Text &
-                      "',N'" & TextBox22.Text & "',N'" & TextBox23.Text & "')"
+                  "聯繫人1職稱, 聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用) VALUES (N'" & TextBox1.Text &
+                      "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "',N'" & TextBox4.Text & "',N'" & TextBox5.Text & "',N'" & TextBox6.Text & "',N'" & TextBox7.Text &
+                      "',N'" & TextBox8.Text & "',N'" & TextBox9.Text & "',N'" & ComboBox1.Text & "',N'" & TextBox11.Text & "',N'" & TextBox12.Text & "',N'" & TextBox13.Text &
+                      "',N'" & TextBox14.Text & "',N'" & TextBox15.Text & "',N'" & TextBox16.Text & "',N'" & TextBox17.Text & "',N'" & TextBox18.Text & "',N'" & TextBox19.Text &
+                      "',N'" & TextBox21.Text & "',N'" & TextBox22.Text & "',N'" & TextBox23.Text & "', N'0')"
             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
             conn.Close()
             MsgBox("新增完成")
             格式設定1()
             讀取供應商料表() : Set_grid()
-            TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False : TextBox5.Enabled = False : TextBox6.Enabled = False : TextBox7.Enabled = False : TextBox8.Enabled = False
-            TextBox9.Enabled = False : ComboBox1.Enabled = False : TextBox11.Enabled = False : TextBox12.Enabled = False : TextBox13.Enabled = False : TextBox14.Enabled = False : TextBox15.Enabled = False
-            TextBox16.Enabled = False : TextBox17.Enabled = False : TextBox18.Enabled = False : TextBox19.Enabled = False : TextBox21.Enabled = False : TextBox22.Enabled = False : TextBox23.Enabled = False
+            TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False : TextBox5.Enabled = False : TextBox6.Enabled = False : TextBox7.Enabled = False
+            TextBox8.Enabled = False : TextBox9.Enabled = False : ComboBox1.Enabled = False : TextBox11.Enabled = False : TextBox12.Enabled = False : TextBox13.Enabled = False
+            TextBox14.Enabled = False : TextBox15.Enabled = False : TextBox16.Enabled = False : TextBox17.Enabled = False : TextBox18.Enabled = False : TextBox19.Enabled = False
+            TextBox21.Enabled = False : TextBox22.Enabled = False : TextBox23.Enabled = False
             DataGridView1.Enabled = True
         End If
     End Sub
@@ -127,15 +129,16 @@ Public Class 供應商管理_製鞋樣品
                "', 公司傳真2 = N'" & TextBox9.Text & "', 公司傳真3 = N'" & ComboBox1.Text & "', 聯繫人1 = N'" & TextBox11.Text & "', 聯繫人2 = N'" & TextBox12.Text &
                "', 聯繫人3 = N'" & TextBox13.Text & "', 聯繫人1職稱 = N'" & TextBox14.Text & "', 聯繫人2職稱 = N'" & TextBox15.Text & "', 聯繫人3職稱 = N'" & TextBox16.Text &
                "', 聯繫人1電話 = N'" & TextBox17.Text & "', 聯繫人2電話 = N'" & TextBox18.Text & "', 聯繫人3電話 = N'" & TextBox19.Text & "', 聯繫人1郵箱 = N'" & TextBox21.Text &
-               "', 聯繫人2郵箱 = N'" & TextBox22.Text & "', 聯繫人3郵箱 = N'" & TextBox23.Text & "' WHERE (供應商編碼 = '" & TextBox1.Text & "')"
+               "', 聯繫人2郵箱 = N'" & TextBox22.Text & "', 聯繫人3郵箱 = N'" & TextBox23.Text & "', 停用 = '" & 停用_ch.Checked & "' WHERE (供應商編碼 = '" & TextBox1.Text & "')"
         cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
         conn.Close()
         Set_日期格式轉換() : 格式設定1()
         MsgBox("修改完成")
         讀取供應商料表() : Set_grid()
-        TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False : TextBox5.Enabled = False : TextBox6.Enabled = False : TextBox7.Enabled = False : TextBox8.Enabled = False
-        TextBox9.Enabled = False : ComboBox1.Enabled = False : TextBox11.Enabled = False : TextBox12.Enabled = False : TextBox13.Enabled = False : TextBox14.Enabled = False : TextBox15.Enabled = False
-        TextBox16.Enabled = False : TextBox17.Enabled = False : TextBox18.Enabled = False : TextBox19.Enabled = False : TextBox21.Enabled = False : TextBox22.Enabled = False : TextBox23.Enabled = False
+        TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False : TextBox5.Enabled = False : TextBox6.Enabled = False : TextBox7.Enabled = False
+        TextBox8.Enabled = False : TextBox9.Enabled = False : ComboBox1.Enabled = False : TextBox11.Enabled = False : TextBox12.Enabled = False : TextBox13.Enabled = False
+        TextBox14.Enabled = False : TextBox15.Enabled = False : TextBox16.Enabled = False : TextBox17.Enabled = False : TextBox18.Enabled = False : TextBox19.Enabled = False
+        TextBox21.Enabled = False : TextBox22.Enabled = False : TextBox23.Enabled = False
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         SQL1 = "DELETE FROM 供應商清單 WHERE (供應商編碼 = '" & TextBox1.Text & "')"
@@ -162,4 +165,7 @@ Public Class 供應商管理_製鞋樣品
         TextBox9.Enabled = True : ComboBox1.Enabled = True : TextBox11.Enabled = True : TextBox12.Enabled = True : TextBox13.Enabled = True : TextBox14.Enabled = True : TextBox15.Enabled = True
         TextBox16.Enabled = True : TextBox17.Enabled = True : TextBox18.Enabled = True : TextBox19.Enabled = True : TextBox21.Enabled = True : TextBox22.Enabled = True : TextBox23.Enabled = True
     End Sub
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+        清單修改.Close() : 廠商類別修改 = True : 清單修改.ShowDialog() : ComboBox1下拉表單資料載入() : 廠商類別修改 = False
+    End Sub
 End Class

SHENKANG-MES-SYS/請採購館洗系統/樣品物料調料單申請.Designer.vb

@@ -68,6 +68,8 @@ Partial Class 樣品物料調料單申請
         Me.TextBox7 = New System.Windows.Forms.TextBox()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.Button7 = New System.Windows.Forms.Button()
+        Me.ComboBox18 = New System.Windows.Forms.ComboBox()
+        Me.Label33 = New System.Windows.Forms.Label()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -97,7 +99,7 @@ Partial Class 樣品物料調料單申請
         '
         Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Location = New System.Drawing.Point(675, 41)
+        Me.ComboBox1.Location = New System.Drawing.Point(788, 41)
         Me.ComboBox1.Name = "ComboBox1"
         Me.ComboBox1.Size = New System.Drawing.Size(186, 24)
         Me.ComboBox1.TabIndex = 762
@@ -121,7 +123,7 @@ Partial Class 樣品物料調料單申請
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(553, 44)
+        Me.Label2.Location = New System.Drawing.Point(738, 43)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(44, 16)
         Me.Label2.TabIndex = 782
@@ -130,7 +132,7 @@ Partial Class 樣品物料調料單申請
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(874, 43)
+        Me.Label3.Location = New System.Drawing.Point(976, 44)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(68, 16)
         Me.Label3.TabIndex = 784
@@ -147,9 +149,9 @@ Partial Class 樣品物料調料單申請
         '
         Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox2.FormattingEnabled = True
-        Me.ComboBox2.Location = New System.Drawing.Point(972, 41)
+        Me.ComboBox2.Location = New System.Drawing.Point(1050, 41)
         Me.ComboBox2.Name = "ComboBox2"
-        Me.ComboBox2.Size = New System.Drawing.Size(181, 24)
+        Me.ComboBox2.Size = New System.Drawing.Size(103, 24)
         Me.ComboBox2.TabIndex = 785
         '
         'Label4
@@ -462,11 +464,31 @@ Partial Class 樣品物料調料單申請
         Me.Button7.Text = "列印"
         Me.Button7.UseVisualStyleBackColor = True
         '
+        'ComboBox18
+        '
+        Me.ComboBox18.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox18.FormattingEnabled = True
+        Me.ComboBox18.Location = New System.Drawing.Point(615, 40)
+        Me.ComboBox18.Name = "ComboBox18"
+        Me.ComboBox18.Size = New System.Drawing.Size(114, 24)
+        Me.ComboBox18.TabIndex = 893
+        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.Location = New System.Drawing.Point(553, 44)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(56, 16)
+        Me.Label33.TabIndex = 894
+        Me.Label33.Text = "廠商類別"
+        '
         '樣品物料調料單申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.ComboBox18)
+        Me.Controls.Add(Me.Label33)
         Me.Controls.Add(Me.Button7)
         Me.Controls.Add(Me.TextBox7)
         Me.Controls.Add(Me.Label13)
@@ -563,4 +585,6 @@ Partial Class 樣品物料調料單申請
     Friend WithEvents TextBox7 As TextBox
     Friend WithEvents Label13 As Label
     Friend WithEvents Button7 As Button
+    Friend WithEvents ComboBox18 As ComboBox
+    Friend WithEvents Label33 As Label
 End Class

SHENKANG-MES-SYS/請採購館洗系統/樣品物料調料單申請.vb

@@ -88,7 +88,7 @@ Public Class 樣品物料調料單申請
     Private Sub ComboBox1下拉表單資料載入()
         conn.Close()
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 廠商, 供應商編碼 FROM 供應商清單 ORDER BY 廠商"
+        SQL1 = "SELECT 廠商, 供應商編碼 FROM 供應商清單 WHERE 公司傳真3 LIKE '" & ComboBox18.Text & "' AND 停用 = 0 ORDER BY 廠商"
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
         ComboBox1.Items.Clear() : ComboBox2.Items.Clear()
         While (dr.Read()) : ComboBox1.Items.Add(dr("廠商")) : ComboBox2.Items.Add(dr("供應商編碼")) : End While : conn.Close()
@@ -115,12 +115,19 @@ Public Class 樣品物料調料單申請
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
         ComboBox7.Items.Clear() : While (dr.Read()) : ComboBox7.Items.Add(dr("客戶簡稱")) : End While : conn.Close()
     End Sub
+    Private Sub ComboBox18下拉表單資料載入()
+        conn.Close()
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 公司傳真3 AS 類別 FROM 供應商清單 GROUP BY 公司傳真3 ORDER BY 公司傳真3"
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+        ComboBox18.Items.Clear() : While (dr.Read()) : ComboBox18.Items.Add(dr("類別")) : End While : conn.Close()
+    End Sub
     Private Sub Set_日期格式轉換()
         DTP = Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
     End Sub
     Private Sub 樣品物料調料單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        Set_清單() : ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox7下拉表單資料載入()
+        Set_清單() : ComboBox18下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox7下拉表單資料載入()
         Button2.Enabled = False : Button6.Enabled = False : Button15.Enabled = False : Button3.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
         TextBox1.Enabled = False : TextBox6.Enabled = False
     End Sub
@@ -172,6 +179,9 @@ Public Class 樣品物料調料單申請
         If dr.Read() Then : TextBox2.Text = dr("公司名") : TextBox3.Text = dr("聯繫人1") : TextBox4.Text = dr("公司電話1") : End If
         conn.Close()
     End Sub
+    Private Sub ComboBox18_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox18.SelectedIndexChanged
+        ComboBox1下拉表單資料載入()
+    End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Timer1.Enabled = True : DataGridView1.Enabled = False
         Button1.Enabled = False : Button2.Enabled = True : Button6.Enabled = True : Button15.Enabled = True
@@ -211,7 +221,7 @@ Public Class 樣品物料調料單申請
             SQL1 = "DELETE FROM 樣品物料調料單明細 WHERE (調料單號 LIKE N'" & TextBox1.Text & "')"
             cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
             TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = ""
-            ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox7下拉表單資料載入()
+            ComboBox18下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox7下拉表單資料載入()
             DataGridView2.DataSource = Nothing : ds1.Clear()
             Set_清單()
         End If