20220903備份

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

@@ -7,7 +7,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 = "2022060901"
+    Public 版本 As String = "2022083001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31,
            PA32, PA33 As String

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>T4qMKofgUEspyI6xBkh8/+oo5klU32trsGi4qHhuZQk=</dsig:DigestValue>
+        <dsig:DigestValue>VWde6u6lJxnIdJqouHfCz5/funMx0iqpxaTAEcWr+N4=</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="5654016">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5658112">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.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>EdqwWCXgq4H6gdwghYOAz9QCjKpZvARB8mx/CRJYwUY=</dsig:DigestValue>
+        <dsig:DigestValue>jIGFELVJJ1w/KNItfoTU6nZ80AbXiDosKwcYe6XyYOs=</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>T4qMKofgUEspyI6xBkh8/+oo5klU32trsGi4qHhuZQk=</dsig:DigestValue>
+        <dsig:DigestValue>VWde6u6lJxnIdJqouHfCz5/funMx0iqpxaTAEcWr+N4=</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="5654016">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5658112">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.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>EdqwWCXgq4H6gdwghYOAz9QCjKpZvARB8mx/CRJYwUY=</dsig:DigestValue>
+        <dsig:DigestValue>jIGFELVJJ1w/KNItfoTU6nZ80AbXiDosKwcYe6XyYOs=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/量產訂單管理系統/量產訂單輸入.Designer.vb

@@ -111,6 +111,11 @@ Partial Class 量產訂單輸入
         Me.下單日_dtp = New System.Windows.Forms.DateTimePicker()
         Me.修改形體_bt = New System.Windows.Forms.Button()
         Me.提示3_lb = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.舊顏色資料_tb = New System.Windows.Forms.TextBox()
+        Me.新顏色資料_tb = New System.Windows.Forms.TextBox()
+        Me.顏色資料修改_bt = New System.Windows.Forms.Button()
         CType(Me.表單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.表單4_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.表單2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -154,7 +159,7 @@ Partial Class 量產訂單輸入
         Me.量產訂單清單_lb.AutoSize = True
         Me.量產訂單清單_lb.Location = New System.Drawing.Point(8, 8)
         Me.量產訂單清單_lb.Name = "量產訂單清單_lb"
-        Me.量產訂單清單_lb.Size = New System.Drawing.Size(80, 16)
+        Me.量產訂單清單_lb.Size = New System.Drawing.Size(79, 16)
         Me.量產訂單清單_lb.TabIndex = 871
         Me.量產訂單清單_lb.Text = "量產訂單清單"
         '
@@ -184,14 +189,15 @@ Partial Class 量產訂單輸入
         Me.訂單屬性_lb.ForeColor = System.Drawing.Color.Green
         Me.訂單屬性_lb.Location = New System.Drawing.Point(1245, 56)
         Me.訂單屬性_lb.Name = "訂單屬性_lb"
-        Me.訂單屬性_lb.Size = New System.Drawing.Size(56, 16)
+        Me.訂單屬性_lb.Size = New System.Drawing.Size(55, 16)
         Me.訂單屬性_lb.TabIndex = 982
         Me.訂單屬性_lb.Text = "訂單屬性"
         '
         '日期3_dtp
         '
+        Me.日期3_dtp.CustomFormat = "yyyy/MM/dd"
         Me.日期3_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.日期3_dtp.Location = New System.Drawing.Point(1031, 225)
+        Me.日期3_dtp.Location = New System.Drawing.Point(488, 251)
         Me.日期3_dtp.Name = "日期3_dtp"
         Me.日期3_dtp.Size = New System.Drawing.Size(87, 23)
         Me.日期3_dtp.TabIndex = 981
@@ -202,7 +208,7 @@ Partial Class 量產訂單輸入
         Me.提示_lb.ForeColor = System.Drawing.Color.Red
         Me.提示_lb.Location = New System.Drawing.Point(849, 230)
         Me.提示_lb.Name = "提示_lb"
-        Me.提示_lb.Size = New System.Drawing.Size(176, 16)
+        Me.提示_lb.Size = New System.Drawing.Size(175, 16)
         Me.提示_lb.TabIndex = 980
         Me.提示_lb.Text = "請不要刪除到一筆資料都不剩下"
         '
@@ -220,9 +226,9 @@ Partial Class 量產訂單輸入
         '
         Me.提示1_lb.AutoSize = True
         Me.提示1_lb.ForeColor = System.Drawing.Color.Red
-        Me.提示1_lb.Location = New System.Drawing.Point(1122, 230)
+        Me.提示1_lb.Location = New System.Drawing.Point(579, 256)
         Me.提示1_lb.Name = "提示1_lb"
-        Me.提示1_lb.Size = New System.Drawing.Size(208, 16)
+        Me.提示1_lb.Size = New System.Drawing.Size(207, 16)
         Me.提示1_lb.TabIndex = 978
         Me.提示1_lb.Text = "交期欄位請遵循YYYY/MM/DD的格式"
         '
@@ -230,9 +236,9 @@ Partial Class 量產訂單輸入
         '
         Me.提示4_lb.AutoSize = True
         Me.提示4_lb.ForeColor = System.Drawing.Color.Red
-        Me.提示4_lb.Location = New System.Drawing.Point(1646, 603)
+        Me.提示4_lb.Location = New System.Drawing.Point(1646, 619)
         Me.提示4_lb.Name = "提示4_lb"
-        Me.提示4_lb.Size = New System.Drawing.Size(247, 16)
+        Me.提示4_lb.Size = New System.Drawing.Size(246, 16)
         Me.提示4_lb.TabIndex = 977
         Me.提示4_lb.Text = "存檔之前SIZW RUN欄位手動修改後存檔有效"
         '
@@ -240,9 +246,9 @@ Partial Class 量產訂單輸入
         '
         Me.提示2_lb.AutoSize = True
         Me.提示2_lb.ForeColor = System.Drawing.Color.Red
-        Me.提示2_lb.Location = New System.Drawing.Point(1336, 230)
+        Me.提示2_lb.Location = New System.Drawing.Point(793, 256)
         Me.提示2_lb.Name = "提示2_lb"
-        Me.提示2_lb.Size = New System.Drawing.Size(356, 16)
+        Me.提示2_lb.Size = New System.Drawing.Size(355, 16)
         Me.提示2_lb.TabIndex = 976
         Me.提示2_lb.Text = "存檔之前交期開始、交期結束、備註三個欄位手動修改後存檔有效"
         '
@@ -252,7 +258,7 @@ Partial Class 量產訂單輸入
         Me.Label10.ForeColor = System.Drawing.Color.Red
         Me.Label10.Location = New System.Drawing.Point(1142, 201)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(29, 16)
+        Me.Label10.Size = New System.Drawing.Size(28, 16)
         Me.Label10.TabIndex = 975
         Me.Label10.Text = "DM"
         '
@@ -294,7 +300,7 @@ Partial Class 量產訂單輸入
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.表單4_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.表單4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.表單4_dgv.Location = New System.Drawing.Point(484, 621)
+        Me.表單4_dgv.Location = New System.Drawing.Point(484, 637)
         Me.表單4_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.表單4_dgv.Name = "表單4_dgv"
         Me.表單4_dgv.RowHeadersWidth = 5
@@ -303,7 +309,7 @@ Partial Class 量產訂單輸入
         Me.表單4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.表單4_dgv.RowTemplate.Height = 24
         Me.表單4_dgv.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
-        Me.表單4_dgv.Size = New System.Drawing.Size(1423, 340)
+        Me.表單4_dgv.Size = New System.Drawing.Size(1423, 324)
         Me.表單4_dgv.TabIndex = 971
         '
         '生成訂單SIZERUN_bt
@@ -394,7 +400,7 @@ Partial Class 量產訂單輸入
         Me.VendorName_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.VendorName_lb.Location = New System.Drawing.Point(485, 112)
         Me.VendorName_lb.Name = "VendorName_lb"
-        Me.VendorName_lb.Size = New System.Drawing.Size(88, 16)
+        Me.VendorName_lb.Size = New System.Drawing.Size(87, 16)
         Me.VendorName_lb.TabIndex = 962
         Me.VendorName_lb.Text = "Vendor Name"
         '
@@ -424,7 +430,7 @@ Partial Class 量產訂單輸入
         Me.Remark_lb.ForeColor = System.Drawing.Color.Green
         Me.Remark_lb.Location = New System.Drawing.Point(1248, 109)
         Me.Remark_lb.Name = "Remark_lb"
-        Me.Remark_lb.Size = New System.Drawing.Size(51, 16)
+        Me.Remark_lb.Size = New System.Drawing.Size(50, 16)
         Me.Remark_lb.TabIndex = 959
         Me.Remark_lb.Text = "Remark"
         '
@@ -473,7 +479,7 @@ Partial Class 量產訂單輸入
         Me.ToPort_lb.ForeColor = System.Drawing.Color.Green
         Me.ToPort_lb.Location = New System.Drawing.Point(1448, 57)
         Me.ToPort_lb.Name = "ToPort_lb"
-        Me.ToPort_lb.Size = New System.Drawing.Size(49, 16)
+        Me.ToPort_lb.Size = New System.Drawing.Size(48, 16)
         Me.ToPort_lb.TabIndex = 954
         Me.ToPort_lb.Text = "To Port"
         '
@@ -483,7 +489,7 @@ Partial Class 量產訂單輸入
         Me.FromPort_lb.ForeColor = System.Drawing.Color.Green
         Me.FromPort_lb.Location = New System.Drawing.Point(1448, 31)
         Me.FromPort_lb.Name = "FromPort_lb"
-        Me.FromPort_lb.Size = New System.Drawing.Size(63, 16)
+        Me.FromPort_lb.Size = New System.Drawing.Size(62, 16)
         Me.FromPort_lb.TabIndex = 953
         Me.FromPort_lb.Text = "From Port"
         '
@@ -523,7 +529,7 @@ Partial Class 量產訂單輸入
         Me.DeliveryTerms_lb.ForeColor = System.Drawing.Color.Green
         Me.DeliveryTerms_lb.Location = New System.Drawing.Point(1448, 5)
         Me.DeliveryTerms_lb.Name = "DeliveryTerms_lb"
-        Me.DeliveryTerms_lb.Size = New System.Drawing.Size(90, 16)
+        Me.DeliveryTerms_lb.Size = New System.Drawing.Size(89, 16)
         Me.DeliveryTerms_lb.TabIndex = 948
         Me.DeliveryTerms_lb.Text = "Delivery Terms"
         '
@@ -540,9 +546,9 @@ Partial Class 量產訂單輸入
         '
         Me.資料流水號_lb.AutoSize = True
         Me.資料流水號_lb.ForeColor = System.Drawing.Color.Red
-        Me.資料流水號_lb.Location = New System.Drawing.Point(485, 230)
+        Me.資料流水號_lb.Location = New System.Drawing.Point(488, 228)
         Me.資料流水號_lb.Name = "資料流水號_lb"
-        Me.資料流水號_lb.Size = New System.Drawing.Size(68, 16)
+        Me.資料流水號_lb.Size = New System.Drawing.Size(67, 16)
         Me.資料流水號_lb.TabIndex = 946
         Me.資料流水號_lb.Text = "資料流水號"
         '
@@ -582,7 +588,7 @@ Partial Class 量產訂單輸入
         Me.訂單數量_lb.ForeColor = System.Drawing.Color.Green
         Me.訂單數量_lb.Location = New System.Drawing.Point(1706, 106)
         Me.訂單數量_lb.Name = "訂單數量_lb"
-        Me.訂單數量_lb.Size = New System.Drawing.Size(56, 16)
+        Me.訂單數量_lb.Size = New System.Drawing.Size(55, 16)
         Me.訂單數量_lb.TabIndex = 941
         Me.訂單數量_lb.Text = "訂單數量"
         '
@@ -601,7 +607,7 @@ Partial Class 量產訂單輸入
         Me.客戶訂單號_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.客戶訂單號_lb.Location = New System.Drawing.Point(481, 32)
         Me.客戶訂單號_lb.Name = "客戶訂單號_lb"
-        Me.客戶訂單號_lb.Size = New System.Drawing.Size(68, 16)
+        Me.客戶訂單號_lb.Size = New System.Drawing.Size(67, 16)
         Me.客戶訂單號_lb.TabIndex = 939
         Me.客戶訂單號_lb.Text = "客戶訂單號"
         '
@@ -631,7 +637,7 @@ Partial Class 量產訂單輸入
         Me.C_N_lb.ForeColor = System.Drawing.Color.Green
         Me.C_N_lb.Location = New System.Drawing.Point(1248, 83)
         Me.C_N_lb.Name = "C_N_lb"
-        Me.C_N_lb.Size = New System.Drawing.Size(31, 16)
+        Me.C_N_lb.Size = New System.Drawing.Size(30, 16)
         Me.C_N_lb.TabIndex = 934
         Me.C_N_lb.Text = "C_N"
         '
@@ -641,7 +647,7 @@ Partial Class 量產訂單輸入
         Me.交期_lb.ForeColor = System.Drawing.Color.Green
         Me.交期_lb.Location = New System.Drawing.Point(1247, 6)
         Me.交期_lb.Name = "交期_lb"
-        Me.交期_lb.Size = New System.Drawing.Size(32, 16)
+        Me.交期_lb.Size = New System.Drawing.Size(31, 16)
         Me.交期_lb.TabIndex = 930
         Me.交期_lb.Text = "交期"
         '
@@ -651,7 +657,7 @@ Partial Class 量產訂單輸入
         Me.型體名稱_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.型體名稱_lb.Location = New System.Drawing.Point(748, 84)
         Me.型體名稱_lb.Name = "型體名稱_lb"
-        Me.型體名稱_lb.Size = New System.Drawing.Size(56, 16)
+        Me.型體名稱_lb.Size = New System.Drawing.Size(55, 16)
         Me.型體名稱_lb.TabIndex = 928
         Me.型體名稱_lb.Text = "型體名稱"
         '
@@ -661,7 +667,7 @@ Partial Class 量產訂單輸入
         Me.型體號碼_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.型體號碼_lb.Location = New System.Drawing.Point(747, 59)
         Me.型體號碼_lb.Name = "型體號碼_lb"
-        Me.型體號碼_lb.Size = New System.Drawing.Size(56, 16)
+        Me.型體號碼_lb.Size = New System.Drawing.Size(55, 16)
         Me.型體號碼_lb.TabIndex = 926
         Me.型體號碼_lb.Text = "型體號碼"
         '
@@ -671,7 +677,7 @@ Partial Class 量產訂單輸入
         Me.工廠_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.工廠_lb.Location = New System.Drawing.Point(481, 57)
         Me.工廠_lb.Name = "工廠_lb"
-        Me.工廠_lb.Size = New System.Drawing.Size(32, 16)
+        Me.工廠_lb.Size = New System.Drawing.Size(31, 16)
         Me.工廠_lb.TabIndex = 924
         Me.工廠_lb.Text = "工廠"
         '
@@ -681,7 +687,7 @@ Partial Class 量產訂單輸入
         Me.季節_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.季節_lb.Location = New System.Drawing.Point(747, 10)
         Me.季節_lb.Name = "季節_lb"
-        Me.季節_lb.Size = New System.Drawing.Size(32, 16)
+        Me.季節_lb.Size = New System.Drawing.Size(31, 16)
         Me.季節_lb.TabIndex = 923
         Me.季節_lb.Text = "季節"
         '
@@ -691,7 +697,7 @@ Partial Class 量產訂單輸入
         Me.客戶_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.客戶_lb.Location = New System.Drawing.Point(747, 35)
         Me.客戶_lb.Name = "客戶_lb"
-        Me.客戶_lb.Size = New System.Drawing.Size(32, 16)
+        Me.客戶_lb.Size = New System.Drawing.Size(31, 16)
         Me.客戶_lb.TabIndex = 921
         Me.客戶_lb.Text = "客戶"
         '
@@ -719,7 +725,7 @@ Partial Class 量產訂單輸入
         Me.訂單流水號_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.訂單流水號_lb.Location = New System.Drawing.Point(481, 7)
         Me.訂單流水號_lb.Name = "訂單流水號_lb"
-        Me.訂單流水號_lb.Size = New System.Drawing.Size(68, 16)
+        Me.訂單流水號_lb.Size = New System.Drawing.Size(67, 16)
         Me.訂單流水號_lb.TabIndex = 936
         Me.訂單流水號_lb.Text = "訂單流水號"
         '
@@ -729,7 +735,7 @@ Partial Class 量產訂單輸入
         Me.ModeOfDelivery_lb.ForeColor = System.Drawing.Color.Green
         Me.ModeOfDelivery_lb.Location = New System.Drawing.Point(1448, 83)
         Me.ModeOfDelivery_lb.Name = "ModeOfDelivery_lb"
-        Me.ModeOfDelivery_lb.Size = New System.Drawing.Size(108, 16)
+        Me.ModeOfDelivery_lb.Size = New System.Drawing.Size(107, 16)
         Me.ModeOfDelivery_lb.TabIndex = 947
         Me.ModeOfDelivery_lb.Text = "Mode Of Delivery"
         '
@@ -739,7 +745,7 @@ Partial Class 量產訂單輸入
         Me.ShipFromAddress_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.ShipFromAddress_lb.Location = New System.Drawing.Point(657, 112)
         Me.ShipFromAddress_lb.Name = "ShipFromAddress_lb"
-        Me.ShipFromAddress_lb.Size = New System.Drawing.Size(113, 16)
+        Me.ShipFromAddress_lb.Size = New System.Drawing.Size(112, 16)
         Me.ShipFromAddress_lb.TabIndex = 950
         Me.ShipFromAddress_lb.Text = "Ship From Address"
         '
@@ -752,7 +758,7 @@ Partial Class 量產訂單輸入
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.表單3_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.表單3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.表單3_dgv.Location = New System.Drawing.Point(484, 250)
+        Me.表單3_dgv.Location = New System.Drawing.Point(484, 277)
         Me.表單3_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.表單3_dgv.Name = "表單3_dgv"
         Me.表單3_dgv.RowHeadersWidth = 5
@@ -761,7 +767,7 @@ Partial Class 量產訂單輸入
         Me.表單3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.表單3_dgv.RowTemplate.Height = 24
         Me.表單3_dgv.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
-        Me.表單3_dgv.Size = New System.Drawing.Size(1423, 350)
+        Me.表單3_dgv.Size = New System.Drawing.Size(1423, 334)
         Me.表單3_dgv.TabIndex = 942
         '
         '下單日_lb
@@ -770,7 +776,7 @@ Partial Class 量產訂單輸入
         Me.下單日_lb.ForeColor = System.Drawing.Color.Green
         Me.下單日_lb.Location = New System.Drawing.Point(1247, 31)
         Me.下單日_lb.Name = "下單日_lb"
-        Me.下單日_lb.Size = New System.Drawing.Size(44, 16)
+        Me.下單日_lb.Size = New System.Drawing.Size(43, 16)
         Me.下單日_lb.TabIndex = 932
         Me.下單日_lb.Text = "下單日"
         '
@@ -847,7 +853,7 @@ Partial Class 量產訂單輸入
         Me.客戶名稱_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.客戶名稱_lb.Location = New System.Drawing.Point(481, 84)
         Me.客戶名稱_lb.Name = "客戶名稱_lb"
-        Me.客戶名稱_lb.Size = New System.Drawing.Size(56, 16)
+        Me.客戶名稱_lb.Size = New System.Drawing.Size(55, 16)
         Me.客戶名稱_lb.TabIndex = 992
         Me.客戶名稱_lb.Text = "客戶名稱"
         '
@@ -865,7 +871,7 @@ Partial Class 量產訂單輸入
         Me.工廠交期_lb.ForeColor = System.Drawing.Color.Green
         Me.工廠交期_lb.Location = New System.Drawing.Point(1604, 152)
         Me.工廠交期_lb.Name = "工廠交期_lb"
-        Me.工廠交期_lb.Size = New System.Drawing.Size(56, 16)
+        Me.工廠交期_lb.Size = New System.Drawing.Size(55, 16)
         Me.工廠交期_lb.TabIndex = 995
         Me.工廠交期_lb.Text = "工廠交期"
         '
@@ -875,7 +881,7 @@ Partial Class 量產訂單輸入
         Me.客戶交期開始_lb.ForeColor = System.Drawing.Color.Green
         Me.客戶交期開始_lb.Location = New System.Drawing.Point(1604, 177)
         Me.客戶交期開始_lb.Name = "客戶交期開始_lb"
-        Me.客戶交期開始_lb.Size = New System.Drawing.Size(80, 16)
+        Me.客戶交期開始_lb.Size = New System.Drawing.Size(79, 16)
         Me.客戶交期開始_lb.TabIndex = 997
         Me.客戶交期開始_lb.Text = "客戶交期開始"
         '
@@ -893,7 +899,7 @@ Partial Class 量產訂單輸入
         Me.客戶交期結束_lb.ForeColor = System.Drawing.Color.Green
         Me.客戶交期結束_lb.Location = New System.Drawing.Point(1604, 202)
         Me.客戶交期結束_lb.Name = "客戶交期結束_lb"
-        Me.客戶交期結束_lb.Size = New System.Drawing.Size(80, 16)
+        Me.客戶交期結束_lb.Size = New System.Drawing.Size(79, 16)
         Me.客戶交期結束_lb.TabIndex = 999
         Me.客戶交期結束_lb.Text = "客戶交期結束"
         '
@@ -945,17 +951,71 @@ Partial Class 量產訂單輸入
         '
         Me.提示3_lb.AutoSize = True
         Me.提示3_lb.ForeColor = System.Drawing.Color.Red
-        Me.提示3_lb.Location = New System.Drawing.Point(487, 602)
+        Me.提示3_lb.Location = New System.Drawing.Point(487, 618)
         Me.提示3_lb.Name = "提示3_lb"
-        Me.提示3_lb.Size = New System.Drawing.Size(560, 16)
+        Me.提示3_lb.Size = New System.Drawing.Size(559, 16)
         Me.提示3_lb.TabIndex = 1004
         Me.提示3_lb.Text = "修改資料表中的顏色時，一定要上下兩個清單中的顏色都對應到，確認資料都有對應修改正確才按存檔!!!"
         '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.Red
+        Me.Label1.Location = New System.Drawing.Point(1249, 229)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(67, 16)
+        Me.Label1.TabIndex = 1005
+        Me.Label1.Text = "舊顏色資料"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Red
+        Me.Label2.Location = New System.Drawing.Point(1249, 256)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(67, 16)
+        Me.Label2.TabIndex = 1006
+        Me.Label2.Text = "新顏色資料"
+        '
+        '舊顏色資料_tb
+        '
+        Me.舊顏色資料_tb.ForeColor = System.Drawing.Color.Red
+        Me.舊顏色資料_tb.Location = New System.Drawing.Point(1318, 224)
+        Me.舊顏色資料_tb.Name = "舊顏色資料_tb"
+        Me.舊顏色資料_tb.Size = New System.Drawing.Size(141, 23)
+        Me.舊顏色資料_tb.TabIndex = 1007
+        Me.舊顏色資料_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '新顏色資料_tb
+        '
+        Me.新顏色資料_tb.ForeColor = System.Drawing.Color.Red
+        Me.新顏色資料_tb.Location = New System.Drawing.Point(1318, 251)
+        Me.新顏色資料_tb.Name = "新顏色資料_tb"
+        Me.新顏色資料_tb.Size = New System.Drawing.Size(141, 23)
+        Me.新顏色資料_tb.TabIndex = 1008
+        Me.新顏色資料_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '顏色資料修改_bt
+        '
+        Me.顏色資料修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.顏色資料修改_bt.ForeColor = System.Drawing.Color.Red
+        Me.顏色資料修改_bt.Location = New System.Drawing.Point(1462, 224)
+        Me.顏色資料修改_bt.Name = "顏色資料修改_bt"
+        Me.顏色資料修改_bt.Size = New System.Drawing.Size(139, 50)
+        Me.顏色資料修改_bt.TabIndex = 1009
+        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.顏色資料修改_bt)
+        Me.Controls.Add(Me.新顏色資料_tb)
+        Me.Controls.Add(Me.舊顏色資料_tb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.提示3_lb)
         Me.Controls.Add(Me.修改形體_bt)
         Me.Controls.Add(Me.下單日_dtp)
@@ -1132,4 +1192,9 @@ Partial Class 量產訂單輸入
     Friend WithEvents 下單日_dtp As DateTimePicker
     Friend WithEvents 修改形體_bt As Button
     Friend WithEvents 提示3_lb As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 舊顏色資料_tb As TextBox
+    Friend WithEvents 新顏色資料_tb As TextBox
+    Friend WithEvents 顏色資料修改_bt As Button
 End Class

SHENKANG-MES-SYS/量產訂單管理系統/量產訂單輸入.vb

@@ -182,17 +182,23 @@ Public Class 量產訂單輸入
             季節_cb.Text = 表單3_dgv.Rows(0).Cells("年份季度").Value : 訂單屬性_cb.Text = 表單3_dgv.Rows(0).Cells("訂單屬性").Value
         End If
     End Sub
+    Private Sub 表單2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 表單2_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            新顏色資料_tb.Text = 表單2_dgv.Rows(e.RowIndex).Cells("顏色").Value
+        End If
+    End Sub
     Private Sub 表單3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 表單3_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             資料流水號_tb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("資料流水號").Value : 訂單屬性_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("訂單屬性").Value
             型體號碼_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("型體號碼").Value : 型體名稱_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("型體名稱").Value
-            DM_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("楦型").Value
+            DM_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("楦型").Value : 舊顏色資料_tb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("顏色").Value
         End If
     End Sub
     Private Sub 表單4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 表單4_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             資料流水號_tb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("資料流水號").Value : 型體號碼_cb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("ItemNumber").Value
             型體名稱_cb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("ProductName").Value : DM_cb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("DM").Value
+            舊顏色資料_tb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("Color").Value
         End If
     End Sub
     Private Sub 表單3_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 表單3_dgv.CellEndEdit
@@ -385,13 +391,49 @@ Public Class 量產訂單輸入
         生成量產訂單號碼_bt.Enabled = True : 套用已有量產訂單號_bt.Enabled = True : 生成量產訂單抬頭_bt.Enabled = False : 生成訂單SIZERUN_bt.Enabled = False
         存檔_bt.Enabled = False : 更新BUYER_bt.Enabled = False
     End Sub
-    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles 更新BUYER_bt.Click
+    Private Sub 更新BUYER_bt_Click(sender As Object, e As EventArgs) Handles 更新BUYER_bt.Click
         For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
             表單3_dgv.Rows(i).Cells("BUYER").Value = 客戶_cb.Text
         Next
         MsgBox("注意還未存檔喔")
     End Sub
-    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 新增顏色_bt.Click
+    Private Sub 顏色資料修改_bt_Click(sender As Object, e As EventArgs) Handles 顏色資料修改_bt.Click
+        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
+            If 表單3_dgv.Rows(i).Cells("顏色").Value.ToString = 舊顏色資料_tb.Text Then
+                表單3_dgv.Rows(i).Cells("顏色").Value = 新顏色資料_tb.Text
+            End If
+        Next
+        For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
+            If 表單4_dgv.Rows(i).Cells("Color").Value.ToString = 舊顏色資料_tb.Text Then
+                表單4_dgv.Rows(i).Cells("Color").Value = 新顏色資料_tb.Text
+            End If
+        Next
+        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
+            資料數 = 表單3_dgv.Rows.Count : MyModule1.進度條()
+            PA4 = 表單3_dgv.Rows(i).Cells("訂單數量").Value : PA5 = 表單3_dgv.Rows(i).Cells("交期開始").Value
+            PA6 = 表單3_dgv.Rows(i).Cells("交期結束").Value : PA7 = 表單3_dgv.Rows(i).Cells("備註").Value
+            PA8 = 表單3_dgv.Rows(i).Cells("工廠交期").Value : PA9 = 表單3_dgv.Rows(i).Cells("BUYER").Value
+            PA10 = 表單3_dgv.Rows(i).Cells("顏色").Value : PA11 = 表單3_dgv.Rows(i).Cells("資料流水號").Value
+            SQL_更改訂單控制表() : conn.Close()
+        Next i : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
+            資料數 = 表單4_dgv.Rows.Count : MyModule1.進度條()
+            PA12 = 表單4_dgv.Rows(i).Cells("4").Value : PA13 = 表單4_dgv.Rows(i).Cells("4.5").Value
+            PA14 = 表單4_dgv.Rows(i).Cells("5").Value : PA15 = 表單4_dgv.Rows(i).Cells("5.5").Value
+            PA16 = 表單4_dgv.Rows(i).Cells("6").Value : PA17 = 表單4_dgv.Rows(i).Cells("6.5").Value
+            PA18 = 表單4_dgv.Rows(i).Cells("7").Value : PA19 = 表單4_dgv.Rows(i).Cells("7.5").Value
+            PA20 = 表單4_dgv.Rows(i).Cells("8").Value : PA21 = 表單4_dgv.Rows(i).Cells("8.5").Value
+            PA22 = 表單4_dgv.Rows(i).Cells("9").Value : PA23 = 表單4_dgv.Rows(i).Cells("9.5").Value
+            PA24 = 表單4_dgv.Rows(i).Cells("10").Value : PA25 = 表單4_dgv.Rows(i).Cells("10.5").Value
+            PA26 = 表單4_dgv.Rows(i).Cells("11").Value : PA27 = 表單4_dgv.Rows(i).Cells("11.5").Value
+            PA28 = 表單4_dgv.Rows(i).Cells("12").Value : PA29 = 表單4_dgv.Rows(i).Cells("12.5").Value
+            PA30 = 表單4_dgv.Rows(i).Cells("13").Value : PA31 = 表單4_dgv.Rows(i).Cells("14").Value
+            PA32 = 表單4_dgv.Rows(i).Cells("Color").Value : PA33 = 表單4_dgv.Rows(i).Cells("資料流水號").Value
+            SQL_更改訂單明細表() : conn.Close()
+        Next i : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        MsgBox("存檔完成。")
+    End Sub
+    Private Sub 新增顏色_bt_Click(sender As Object, e As EventArgs) Handles 新增顏色_bt.Click
         清單修改.Close() : 訂單顏色修改 = True : 清單修改.ShowDialog() : Set_清單1() : 訂單顏色修改 = False
     End Sub
     Private Sub Button18_Click(sender As Object, e As EventArgs) Handles 修改形體_bt.Click