20220515備份

TENDEN-MES-SYS/Module/SQL_圖片資料庫管理.vb

@@ -33,14 +33,14 @@
         SQL1 = "SELECT TOP (1) 驗貨報告編號 FROM 驗貨報告圖庫 ORDER BY 驗貨報告編號 DESC"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_新增驗貨報告編號()
+    Friend Sub SQL_新增驗貨報告編號_測試()
         ConnOpen()
         SQL1 = "INSERT INTO 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) 
                         SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "','" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', 
-                        BULKCOLUMN FROM OPENROWSET ( BULK 'C:\FTP\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                        BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_新增驗貨報告圖庫()
+    Friend Sub SQL_新增驗貨報告圖庫_正式()
         ConnOpen()
         SQL1 = "INSERT INTO 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) 
                         SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "','" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', 
@@ -79,7 +79,13 @@
         SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_修改驗貨報告圖庫1()
+    Friend Sub SQL_修改驗貨報告圖庫1_測試()
+        ConnOpen()
+        SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0004\" & 驗貨報告資料庫.TextBox6.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
+                        WHERE (驗貨報告編號 = '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改驗貨報告圖庫1_正式()
         ConnOpen()
         SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 驗貨報告資料庫.TextBox6.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                         WHERE (驗貨報告編號 = '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "')"
@@ -106,6 +112,12 @@
         CmdSet_For_dr()
     End Sub
     '----------------------鞋型圖片導入資料庫---------------------------------------------------
+    Friend Sub SQL_季節清單()
+        SQL1 = "SELECT  年份季度  FROM  訂單控制表年份季度清單  ORDER BY  年份季度"
+    End Sub
+    Friend Sub SQL_季節清單1()
+        SQL1 = "SELECT  年份季度  FROM  訂單控制表年份季度清單  WHERE 年份季度 LIKE '%" & PA & "%'  ORDER BY  年份季度"
+    End Sub
     Friend Sub SQL_訂單控制表清單()
         SQL1 = "SELECT 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼  
                 FROM   訂單控制表形體號清單 FULL OUTER JOIN STYLELIST ON 訂單控制表形體號清單.形體號 = STYLELIST.ProductName ORDER BY   形體名稱"
@@ -142,7 +154,7 @@
     Friend Sub SQL_查詢圖片編號()
         ConnOpen()
         SQL1 = "SELECT 圖片編號 FROM 圖片庫一 WHERE 形體名 LIKE '" & 鞋型圖片導入資料庫.Style_tb.Text & "' AND 形體號 LIKE '" & 鞋型圖片導入資料庫.TVW_tb.Text & "' AND 
-                           顏色 LIKE '" & 鞋型圖片導入資料庫.Color_tb.Text & "' AND 類型 LIKE '" & 鞋型圖片導入資料庫.Category_cb.Text & "'"
+                           顏色 LIKE '" & 鞋型圖片導入資料庫.Color_tb.Text & "' AND 類型 LIKE '" & 鞋型圖片導入資料庫.Category_cb.Text & "' AND 季節  LIKE '" & 鞋型圖片導入資料庫.季節_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_查詢最後一筆圖片編號()
@@ -150,21 +162,34 @@
         SQL1 = "SELECT TOP (1) 圖片編號 FROM 圖片庫一 ORDER BY 圖片編號 DESC"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_新增圖片庫一()
-        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 圖片) 
+    Friend Sub SQL_新增圖片庫一_測試()
+        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
                             SELECT '" & 鞋型圖片導入資料庫.Style_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
-                                   '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "', 
+                                   '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
+                            BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+    End Sub
+
+    Friend Sub SQL_新增圖片庫一_正式()
+        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
+                            SELECT '" & 鞋型圖片導入資料庫.Style_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
+                                   '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                             BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
     End Sub
-    Friend Sub SQL_新增圖片庫一1()
-        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 圖片) 
-                                SELECT '" & 鞋型圖片導入資料庫.TextBox2.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
-                                       '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "', 
+    Friend Sub SQL_新增圖片庫一1_測試()
+        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
+                                SELECT '" & 鞋型圖片導入資料庫.中底_其他LOGO_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
+                                       '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
+                                BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+    End Sub
+    Friend Sub SQL_新增圖片庫一1_正式()
+        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
+                                SELECT '" & 鞋型圖片導入資料庫.中底_其他LOGO_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
+                                       '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                                 BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
     End Sub
     '------------------------------鞋型圖片資料庫-------------------------------------------------------------------------------
     Friend Sub SQL_圖片庫一清單()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_指定圖片庫一()
         ConnOpen()
@@ -173,12 +198,21 @@
     End Sub
     Friend Sub SQL_修改圖片庫一()
         SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 
-                                    顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "' 
+                                    顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "', 
+                                    季節 = '" & 鞋型圖片導入資料庫.季節_tb.Text & "'
                     WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
     End Sub
-    Friend Sub SQL_修改圖片庫一1()
+    Friend Sub SQL_修改圖片庫一1_測試()
+        SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 
+                                    顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "', 
+                                    季節 = '" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
+                                    圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0002\" & 鞋型圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
+                WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
+    End Sub
+    Friend Sub SQL_修改圖片庫一1_正式()
         SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 
                                     顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "', 
+                                    季節 = '" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                                     圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                 WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
     End Sub
@@ -188,38 +222,38 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_查詢圖片庫一()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 
                        顏色 LIKE '%" & PA & "%' OR 類型 LIKE '%" & PA & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_查詢圖片庫一BW()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_BW_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_BW_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_查詢圖片庫一ILR()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_ILR_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_ILR_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_查詢圖片庫一FLR()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_FLR_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_FLR_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_查詢圖片庫一SMS()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_SMS_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_SMS_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_查詢圖片庫一SMU()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_SMU_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_SMU_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_確定圖片庫一BW()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_BW_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_BW_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_確定圖片庫一彩圖()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_彩圖_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_彩圖_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_確定圖片庫一產地標()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_產地標_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_產地標_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_確定圖片庫一中底LOGO()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.中底LOGO_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.中底LOGO_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_確定圖片庫一其他LOGO()
-        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.其他LOGO_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.其他LOGO_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
     End Sub
     Friend Sub SQL_圖片庫一圖片編號()
         ConnOpen()
@@ -243,7 +277,13 @@
         SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "'"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_修改楦頭圖片庫()
+    Friend Sub SQL_修改楦頭圖片庫_測試()
+        ConnOpen()
+        SQL1 = "UPDATE 楦頭圖片庫 SET  楦頭圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0003\" & 楦頭圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
+                WHERE (楦頭圖片編號 = '" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "') AND (楦頭編號 = '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改楦頭圖片庫_正式()
         ConnOpen()
         SQL1 = "UPDATE 楦頭圖片庫 SET  楦頭圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0003\" & 楦頭圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                 WHERE (楦頭圖片編號 = '" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "') AND (楦頭編號 = '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "')"
@@ -268,7 +308,13 @@
         SQL1 = "SELECT TOP (1) 楦頭圖片編號 FROM 楦頭圖片庫 ORDER BY 楦頭圖片編號 DESC"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_新增楦頭圖片庫()
+    Friend Sub SQL_新增楦頭圖片庫_測試()
+        ConnOpen()
+        SQL1 = "INSERT INTO 楦頭圖片庫 (楦頭編號, 楦頭圖片編號, 楦頭圖片) SELECT '" & 楦頭圖片導入資料庫.楦頭編號_tb.Text & "','" & 楦頭圖片導入資料庫.楦頭圖片編號_tb.Text & "', 
+                    BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0003\" & 楦頭圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增楦頭圖片庫_正式()
         ConnOpen()
         SQL1 = "INSERT INTO 楦頭圖片庫 (楦頭編號, 楦頭圖片編號, 楦頭圖片) SELECT '" & 楦頭圖片導入資料庫.楦頭編號_tb.Text & "','" & 楦頭圖片導入資料庫.楦頭圖片編號_tb.Text & "', 
                     BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0003\" & 楦頭圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

TENDEN-MES-SYS/Module/SQL_樣品訂單管理.vb

@@ -145,9 +145,9 @@
     End Sub
     Friend Sub SQL_設計圖清單()
         If 開發部門 = False And 確認部門 = True Then
-            SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 NOT LIKE '%產地標' AND 類型 LIKE '確認%' ORDER BY   類型, 形體名, 形體號, 顏色"
+            SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 NOT LIKE '%產地標' AND 類型 LIKE '確認%' ORDER BY   類型, 形體名, 形體號, 顏色"
         ElseIf 開發部門 = True And 確認部門 = False Then
-            SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 NOT LIKE '%產地標' AND 類型 LIKE '開發%' ORDER BY   類型, 形體名, 形體號, 顏色"
+            SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 NOT LIKE '%產地標' AND 類型 LIKE '開發%' ORDER BY   類型, 形體名, 形體號, 顏色"
         End If
     End Sub
     Friend Sub SQL_中底LOGO()

TENDEN-MES-SYS/Module/全域變數.vb

@@ -4,7 +4,7 @@
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022032801"
+    Public 版本 As String = "2022050401"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 

TENDEN-MES-SYS/圖片資料庫管理/楦頭圖片系統/楦頭圖片導入資料庫.vb

@@ -99,7 +99,8 @@ Public Class 楦頭圖片導入資料庫
                 ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 楦頭圖片編號_tb.Text = "SP" & "0" & NUM1
                 ElseIf NUM1 > 9999999 Then : 楦頭圖片編號_tb.Text = "SP" & NUM1
                 End If
-                SQL_新增楦頭圖片庫() : conn.Close()
+                If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_新增楦頭圖片庫_測試()
+                Else : SQL_新增楦頭圖片庫_正式() : End If : conn.Close()
 
                 '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
                 Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential

TENDEN-MES-SYS/圖片資料庫管理/楦頭圖片系統/楦頭圖片資料庫.vb

@@ -116,7 +116,8 @@ Public Class 楦頭圖片資料庫
     End Sub
     Private Sub Button24_Click(sender As Object, e As EventArgs) Handles 圖片修改存檔_bt.Click
         Try
-            SQL_修改楦頭圖片庫() : conn.Close()
+            If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_修改楦頭圖片庫_測試()
+            Else : SQL_修改楦頭圖片庫_正式() : End If : conn.Close()
             '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
             Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
             frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)

TENDEN-MES-SYS/圖片資料庫管理/鞋型圖片系統/鞋型圖片導入資料庫.Designer.vb

@@ -22,9 +22,10 @@ Partial Class 鞋型圖片導入資料庫
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        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()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
         Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
@@ -51,9 +52,8 @@ Partial Class 鞋型圖片導入資料庫
         Me.Label5 = New System.Windows.Forms.Label()
         Me.確認儲存_bt = New System.Windows.Forms.Button()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
-        Me.Label8 = New System.Windows.Forms.Label()
+        Me.中底或其他LOGO_ch = New System.Windows.Forms.CheckBox()
+        Me.中底_其他LOGO_tb = New System.Windows.Forms.TextBox()
         Me.Style_tb = New System.Windows.Forms.TextBox()
         Me.Style刷新_bt = New System.Windows.Forms.Button()
         Me.TVW_tb = New System.Windows.Forms.TextBox()
@@ -64,22 +64,33 @@ Partial Class 鞋型圖片導入資料庫
         Me.Button23 = New System.Windows.Forms.Button()
         Me.Button8 = New System.Windows.Forms.Button()
         Me.檔案刪除_bt = New System.Windows.Forms.Button()
-        Me.TVW清空_bt = New System.Windows.Forms.Button()
+        Me.TVW查詢_bt = New System.Windows.Forms.Button()
         Me.TVW刷新_bt = New System.Windows.Forms.Button()
         Me.TVW新增清單_bt = New System.Windows.Forms.Button()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.季節_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.季節_tb = New System.Windows.Forms.TextBox()
+        Me.季節清空_bt = New System.Windows.Forms.Button()
+        Me.季節刷新_bt = New System.Windows.Forms.Button()
+        Me.季節查詢_bt = New System.Windows.Forms.Button()
+        Me.季節新增清單_bt = New System.Windows.Forms.Button()
         CType(Me.訂單控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.訂單控制表顏色清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.訂單控制表TVW清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.季節_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'Label9
         '
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(5, 487)
+        Me.Label9.Location = New System.Drawing.Point(5, 518)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(56, 16)
         Me.Label9.TabIndex = 504
@@ -91,42 +102,43 @@ Partial Class 鞋型圖片導入資料庫
         Me.檔案名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(60, 484)
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(60, 515)
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
-        Me.檔案名稱_tb.Size = New System.Drawing.Size(720, 23)
+        Me.檔案名稱_tb.Size = New System.Drawing.Size(654, 23)
         Me.檔案名稱_tb.TabIndex = 503
         '
         'WebBrowser1
         '
         Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser1.Location = New System.Drawing.Point(5, 511)
+        Me.WebBrowser1.Location = New System.Drawing.Point(5, 539)
         Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
         Me.WebBrowser1.Name = "WebBrowser1"
-        Me.WebBrowser1.Size = New System.Drawing.Size(775, 186)
+        Me.WebBrowser1.Size = New System.Drawing.Size(709, 158)
         Me.WebBrowser1.TabIndex = 520
         Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
         '
         '訂單控制表_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.訂單控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.訂單控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.訂單控制表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.訂單控制表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單控制表_dgv.BackgroundColor = System.Drawing.Color.White
         Me.訂單控制表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.訂單控制表_dgv.Location = New System.Drawing.Point(786, 29)
+        Me.訂單控制表_dgv.Location = New System.Drawing.Point(861, 20)
         Me.訂單控制表_dgv.Name = "訂單控制表_dgv"
         Me.訂單控制表_dgv.RowHeadersWidth = 5
         Me.訂單控制表_dgv.RowTemplate.Height = 24
-        Me.訂單控制表_dgv.Size = New System.Drawing.Size(210, 668)
+        Me.訂單控制表_dgv.Size = New System.Drawing.Size(165, 677)
         Me.訂單控制表_dgv.TabIndex = 521
         '
         'Label1
         '
         Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(787, 11)
+        Me.Label1.Location = New System.Drawing.Point(862, 2)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(35, 16)
         Me.Label1.TabIndex = 522
@@ -134,24 +146,25 @@ Partial Class 鞋型圖片導入資料庫
         '
         '訂單控制表顏色清單_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.訂單控制表顏色清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.訂單控制表顏色清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.訂單控制表顏色清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.訂單控制表顏色清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單控制表顏色清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.訂單控制表顏色清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.訂單控制表顏色清單_dgv.Location = New System.Drawing.Point(1166, 29)
+        Me.訂單控制表顏色清單_dgv.Location = New System.Drawing.Point(1173, 20)
         Me.訂單控制表顏色清單_dgv.Name = "訂單控制表顏色清單_dgv"
         Me.訂單控制表顏色清單_dgv.RowHeadersWidth = 5
         Me.訂單控制表顏色清單_dgv.RowTemplate.Height = 24
-        Me.訂單控制表顏色清單_dgv.Size = New System.Drawing.Size(180, 668)
+        Me.訂單控制表顏色清單_dgv.Size = New System.Drawing.Size(175, 677)
         Me.訂單控制表顏色清單_dgv.TabIndex = 526
         '
         'Label7
         '
         Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(1165, 11)
+        Me.Label7.Location = New System.Drawing.Point(1172, 2)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(39, 16)
         Me.Label7.TabIndex = 527
@@ -159,24 +172,25 @@ Partial Class 鞋型圖片導入資料庫
         '
         '訂單控制表TVW清單_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.訂單控制表TVW清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.訂單控制表TVW清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.訂單控制表TVW清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.訂單控制表TVW清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單控制表TVW清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.訂單控制表TVW清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.訂單控制表TVW清單_dgv.Location = New System.Drawing.Point(998, 29)
+        Me.訂單控制表TVW清單_dgv.Location = New System.Drawing.Point(1027, 20)
         Me.訂單控制表TVW清單_dgv.Name = "訂單控制表TVW清單_dgv"
         Me.訂單控制表TVW清單_dgv.RowHeadersWidth = 5
         Me.訂單控制表TVW清單_dgv.RowTemplate.Height = 24
-        Me.訂單控制表TVW清單_dgv.Size = New System.Drawing.Size(165, 668)
+        Me.訂單控制表TVW清單_dgv.Size = New System.Drawing.Size(145, 677)
         Me.訂單控制表TVW清單_dgv.TabIndex = 535
         '
         'Label11
         '
         Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(1000, 11)
+        Me.Label11.Location = New System.Drawing.Point(1029, 2)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(43, 16)
         Me.Label11.TabIndex = 536
@@ -187,10 +201,10 @@ Partial Class 鞋型圖片導入資料庫
         Me.WebBrowser2.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.WebBrowser2.Location = New System.Drawing.Point(5, 132)
+        Me.WebBrowser2.Location = New System.Drawing.Point(5, 148)
         Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
         Me.WebBrowser2.Name = "WebBrowser2"
-        Me.WebBrowser2.Size = New System.Drawing.Size(775, 347)
+        Me.WebBrowser2.Size = New System.Drawing.Size(709, 365)
         Me.WebBrowser2.TabIndex = 540
         Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
         '
@@ -198,7 +212,7 @@ Partial Class 鞋型圖片導入資料庫
         '
         Me.TextBox7.AllowDrop = True
         Me.TextBox7.ForeColor = System.Drawing.Color.Black
-        Me.TextBox7.Location = New System.Drawing.Point(41, 154)
+        Me.TextBox7.Location = New System.Drawing.Point(3, 3)
         Me.TextBox7.Multiline = True
         Me.TextBox7.Name = "TextBox7"
         Me.TextBox7.Size = New System.Drawing.Size(115, 23)
@@ -208,7 +222,7 @@ Partial Class 鞋型圖片導入資料庫
         '
         Me.Label13.AutoSize = True
         Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label13.Location = New System.Drawing.Point(1, 105)
+        Me.Label13.Location = New System.Drawing.Point(1, 122)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(86, 24)
         Me.Label13.TabIndex = 562
@@ -218,9 +232,9 @@ Partial Class 鞋型圖片導入資料庫
         '
         Me.讀取料夾路徑_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.讀取料夾路徑_tb.ForeColor = System.Drawing.Color.Blue
-        Me.讀取料夾路徑_tb.Location = New System.Drawing.Point(93, 105)
+        Me.讀取料夾路徑_tb.Location = New System.Drawing.Point(86, 122)
         Me.讀取料夾路徑_tb.Name = "讀取料夾路徑_tb"
-        Me.讀取料夾路徑_tb.Size = New System.Drawing.Size(119, 24)
+        Me.讀取料夾路徑_tb.Size = New System.Drawing.Size(96, 24)
         Me.讀取料夾路徑_tb.TabIndex = 561
         Me.讀取料夾路徑_tb.Text = "讀取料夾路徑"
         Me.讀取料夾路徑_tb.UseVisualStyleBackColor = True
@@ -229,7 +243,7 @@ Partial Class 鞋型圖片導入資料庫
         '
         Me.Label6.AutoSize = True
         Me.Label6.ForeColor = System.Drawing.Color.Red
-        Me.Label6.Location = New System.Drawing.Point(218, 108)
+        Me.Label6.Location = New System.Drawing.Point(183, 125)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(424, 16)
         Me.Label6.TabIndex = 570
@@ -238,7 +252,7 @@ Partial Class 鞋型圖片導入資料庫
         'Style新增清單_bt
         '
         Me.Style新增清單_bt.ForeColor = System.Drawing.Color.Olive
-        Me.Style新增清單_bt.Location = New System.Drawing.Point(448, 4)
+        Me.Style新增清單_bt.Location = New System.Drawing.Point(448, 26)
         Me.Style新增清單_bt.Name = "Style新增清單_bt"
         Me.Style新增清單_bt.Size = New System.Drawing.Size(76, 24)
         Me.Style新增清單_bt.TabIndex = 494
@@ -248,7 +262,7 @@ Partial Class 鞋型圖片導入資料庫
         'Style查詢_bt
         '
         Me.Style查詢_bt.ForeColor = System.Drawing.Color.Black
-        Me.Style查詢_bt.Location = New System.Drawing.Point(294, 4)
+        Me.Style查詢_bt.Location = New System.Drawing.Point(294, 26)
         Me.Style查詢_bt.Name = "Style查詢_bt"
         Me.Style查詢_bt.Size = New System.Drawing.Size(76, 24)
         Me.Style查詢_bt.TabIndex = 496
@@ -258,7 +272,7 @@ Partial Class 鞋型圖片導入資料庫
         'Color新增清單_bt
         '
         Me.Color新增清單_bt.ForeColor = System.Drawing.Color.Olive
-        Me.Color新增清單_bt.Location = New System.Drawing.Point(448, 54)
+        Me.Color新增清單_bt.Location = New System.Drawing.Point(448, 74)
         Me.Color新增清單_bt.Name = "Color新增清單_bt"
         Me.Color新增清單_bt.Size = New System.Drawing.Size(76, 24)
         Me.Color新增清單_bt.TabIndex = 500
@@ -268,7 +282,7 @@ Partial Class 鞋型圖片導入資料庫
         'Color查詢_bt
         '
         Me.Color查詢_bt.ForeColor = System.Drawing.Color.Black
-        Me.Color查詢_bt.Location = New System.Drawing.Point(294, 54)
+        Me.Color查詢_bt.Location = New System.Drawing.Point(294, 74)
         Me.Color查詢_bt.Name = "Color查詢_bt"
         Me.Color查詢_bt.Size = New System.Drawing.Size(76, 24)
         Me.Color查詢_bt.TabIndex = 501
@@ -278,7 +292,7 @@ Partial Class 鞋型圖片導入資料庫
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(6, 7)
+        Me.Label2.Location = New System.Drawing.Point(6, 29)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(35, 16)
         Me.Label2.TabIndex = 505
@@ -287,7 +301,7 @@ Partial Class 鞋型圖片導入資料庫
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(6, 32)
+        Me.Label3.Location = New System.Drawing.Point(6, 53)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 506
@@ -296,7 +310,7 @@ Partial Class 鞋型圖片導入資料庫
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(6, 58)
+        Me.Label4.Location = New System.Drawing.Point(6, 78)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(39, 16)
         Me.Label4.TabIndex = 507
@@ -307,7 +321,7 @@ Partial Class 鞋型圖片導入資料庫
         Me.Category_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.Category_cb.FormattingEnabled = True
         Me.Category_cb.Items.AddRange(New Object() {"開發-B/W", "開發-ILR", "開發-FLR", "開發-SMS", "開發-SMU", "確認-B/W", "確認-彩圖", "確認-產地標", "中底LOGO", "其他LOGO", "LOGO", "MATEIAL"})
-        Me.Category_cb.Location = New System.Drawing.Point(65, 79)
+        Me.Category_cb.Location = New System.Drawing.Point(65, 98)
         Me.Category_cb.Name = "Category_cb"
         Me.Category_cb.Size = New System.Drawing.Size(149, 24)
         Me.Category_cb.TabIndex = 508
@@ -315,7 +329,7 @@ Partial Class 鞋型圖片導入資料庫
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(6, 82)
+        Me.Label5.Location = New System.Drawing.Point(6, 101)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(63, 16)
         Me.Label5.TabIndex = 509
@@ -325,9 +339,9 @@ Partial Class 鞋型圖片導入資料庫
         '
         Me.確認儲存_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.確認儲存_bt.ForeColor = System.Drawing.Color.Blue
-        Me.確認儲存_bt.Location = New System.Drawing.Point(573, 4)
+        Me.確認儲存_bt.Location = New System.Drawing.Point(526, 2)
         Me.確認儲存_bt.Name = "確認儲存_bt"
-        Me.確認儲存_bt.Size = New System.Drawing.Size(146, 99)
+        Me.確認儲存_bt.Size = New System.Drawing.Size(185, 119)
         Me.確認儲存_bt.TabIndex = 510
         Me.確認儲存_bt.Text = "確認儲存"
         Me.確認儲存_bt.UseVisualStyleBackColor = True
@@ -335,43 +349,33 @@ Partial Class 鞋型圖片導入資料庫
         'TextBox1
         '
         Me.TextBox1.ForeColor = System.Drawing.Color.Black
-        Me.TextBox1.Location = New System.Drawing.Point(220, 80)
+        Me.TextBox1.Location = New System.Drawing.Point(3, 32)
         Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(73, 23)
+        Me.TextBox1.Size = New System.Drawing.Size(82, 23)
         Me.TextBox1.TabIndex = 513
         '
-        'CheckBox1
-        '
-        Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(311, 80)
-        Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(146, 20)
-        Me.CheckBox1.TabIndex = 514
-        Me.CheckBox1.Text = "導入中底或其他LOGO"
-        Me.CheckBox1.UseVisualStyleBackColor = True
+        '中底或其他LOGO_ch
         '
-        'TextBox2
+        Me.中底或其他LOGO_ch.AutoSize = True
+        Me.中底或其他LOGO_ch.Location = New System.Drawing.Point(268, 101)
+        Me.中底或其他LOGO_ch.Name = "中底或其他LOGO_ch"
+        Me.中底或其他LOGO_ch.Size = New System.Drawing.Size(146, 20)
+        Me.中底或其他LOGO_ch.TabIndex = 514
+        Me.中底或其他LOGO_ch.Text = "導入中底或其他LOGO"
+        Me.中底或其他LOGO_ch.UseVisualStyleBackColor = True
         '
-        Me.TextBox2.ForeColor = System.Drawing.Color.Black
-        Me.TextBox2.Location = New System.Drawing.Point(453, 79)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(113, 23)
-        Me.TextBox2.TabIndex = 515
+        '中底_其他LOGO_tb
         '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label8.ForeColor = System.Drawing.Color.Red
-        Me.Label8.Location = New System.Drawing.Point(725, 7)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(0, 21)
-        Me.Label8.TabIndex = 517
+        Me.中底_其他LOGO_tb.ForeColor = System.Drawing.Color.Black
+        Me.中底_其他LOGO_tb.Location = New System.Drawing.Point(410, 98)
+        Me.中底_其他LOGO_tb.Name = "中底_其他LOGO_tb"
+        Me.中底_其他LOGO_tb.Size = New System.Drawing.Size(113, 23)
+        Me.中底_其他LOGO_tb.TabIndex = 515
         '
         'Style_tb
         '
         Me.Style_tb.ForeColor = System.Drawing.Color.Black
-        Me.Style_tb.Location = New System.Drawing.Point(65, 4)
+        Me.Style_tb.Location = New System.Drawing.Point(65, 26)
         Me.Style_tb.Name = "Style_tb"
         Me.Style_tb.Size = New System.Drawing.Size(149, 23)
         Me.Style_tb.TabIndex = 523
@@ -379,7 +383,7 @@ Partial Class 鞋型圖片導入資料庫
         'Style刷新_bt
         '
         Me.Style刷新_bt.ForeColor = System.Drawing.Color.Red
-        Me.Style刷新_bt.Location = New System.Drawing.Point(371, 4)
+        Me.Style刷新_bt.Location = New System.Drawing.Point(371, 26)
         Me.Style刷新_bt.Name = "Style刷新_bt"
         Me.Style刷新_bt.Size = New System.Drawing.Size(76, 24)
         Me.Style刷新_bt.TabIndex = 524
@@ -389,7 +393,7 @@ Partial Class 鞋型圖片導入資料庫
         'TVW_tb
         '
         Me.TVW_tb.ForeColor = System.Drawing.Color.Black
-        Me.TVW_tb.Location = New System.Drawing.Point(65, 29)
+        Me.TVW_tb.Location = New System.Drawing.Point(65, 50)
         Me.TVW_tb.Name = "TVW_tb"
         Me.TVW_tb.Size = New System.Drawing.Size(149, 23)
         Me.TVW_tb.TabIndex = 525
@@ -397,7 +401,7 @@ Partial Class 鞋型圖片導入資料庫
         'Color刷新_bt
         '
         Me.Color刷新_bt.ForeColor = System.Drawing.Color.Red
-        Me.Color刷新_bt.Location = New System.Drawing.Point(371, 54)
+        Me.Color刷新_bt.Location = New System.Drawing.Point(371, 74)
         Me.Color刷新_bt.Name = "Color刷新_bt"
         Me.Color刷新_bt.Size = New System.Drawing.Size(76, 24)
         Me.Color刷新_bt.TabIndex = 528
@@ -407,7 +411,7 @@ Partial Class 鞋型圖片導入資料庫
         'Color_tb
         '
         Me.Color_tb.ForeColor = System.Drawing.Color.Black
-        Me.Color_tb.Location = New System.Drawing.Point(65, 54)
+        Me.Color_tb.Location = New System.Drawing.Point(65, 74)
         Me.Color_tb.Name = "Color_tb"
         Me.Color_tb.Size = New System.Drawing.Size(149, 23)
         Me.Color_tb.TabIndex = 529
@@ -415,7 +419,7 @@ Partial Class 鞋型圖片導入資料庫
         'Style清空_bt
         '
         Me.Style清空_bt.ForeColor = System.Drawing.Color.Blue
-        Me.Style清空_bt.Location = New System.Drawing.Point(217, 4)
+        Me.Style清空_bt.Location = New System.Drawing.Point(217, 26)
         Me.Style清空_bt.Name = "Style清空_bt"
         Me.Style清空_bt.Size = New System.Drawing.Size(76, 24)
         Me.Style清空_bt.TabIndex = 530
@@ -425,7 +429,7 @@ Partial Class 鞋型圖片導入資料庫
         'Color清空_bt
         '
         Me.Color清空_bt.ForeColor = System.Drawing.Color.Blue
-        Me.Color清空_bt.Location = New System.Drawing.Point(217, 54)
+        Me.Color清空_bt.Location = New System.Drawing.Point(217, 74)
         Me.Color清空_bt.Name = "Color清空_bt"
         Me.Color清空_bt.Size = New System.Drawing.Size(76, 24)
         Me.Color清空_bt.TabIndex = 531
@@ -435,9 +439,9 @@ Partial Class 鞋型圖片導入資料庫
         'Button23
         '
         Me.Button23.ForeColor = System.Drawing.Color.Olive
-        Me.Button23.Location = New System.Drawing.Point(530, 54)
+        Me.Button23.Location = New System.Drawing.Point(119, 3)
         Me.Button23.Name = "Button23"
-        Me.Button23.Size = New System.Drawing.Size(15, 25)
+        Me.Button23.Size = New System.Drawing.Size(25, 25)
         Me.Button23.TabIndex = 532
         Me.Button23.Text = "再"
         Me.Button23.UseVisualStyleBackColor = True
@@ -445,37 +449,37 @@ Partial Class 鞋型圖片導入資料庫
         'Button8
         '
         Me.Button8.ForeColor = System.Drawing.Color.Olive
-        Me.Button8.Location = New System.Drawing.Point(551, 54)
+        Me.Button8.Location = New System.Drawing.Point(145, 3)
         Me.Button8.Name = "Button8"
-        Me.Button8.Size = New System.Drawing.Size(15, 25)
+        Me.Button8.Size = New System.Drawing.Size(25, 25)
         Me.Button8.TabIndex = 533
         Me.Button8.Text = "再"
         Me.Button8.UseVisualStyleBackColor = True
         '
         '檔案刪除_bt
         '
-        Me.檔案刪除_bt.Location = New System.Drawing.Point(530, 4)
+        Me.檔案刪除_bt.Location = New System.Drawing.Point(91, 30)
         Me.檔案刪除_bt.Name = "檔案刪除_bt"
-        Me.檔案刪除_bt.Size = New System.Drawing.Size(37, 48)
+        Me.檔案刪除_bt.Size = New System.Drawing.Size(79, 25)
         Me.檔案刪除_bt.TabIndex = 534
         Me.檔案刪除_bt.Text = "檔案刪除"
         Me.檔案刪除_bt.UseVisualStyleBackColor = True
         Me.檔案刪除_bt.Visible = False
         '
-        'TVW清空_bt
+        'TVW查詢_bt
         '
-        Me.TVW清空_bt.ForeColor = System.Drawing.Color.Black
-        Me.TVW清空_bt.Location = New System.Drawing.Point(294, 29)
-        Me.TVW清空_bt.Name = "TVW清空_bt"
-        Me.TVW清空_bt.Size = New System.Drawing.Size(76, 24)
-        Me.TVW清空_bt.TabIndex = 537
-        Me.TVW清空_bt.Text = "查詢"
-        Me.TVW清空_bt.UseVisualStyleBackColor = True
+        Me.TVW查詢_bt.ForeColor = System.Drawing.Color.Black
+        Me.TVW查詢_bt.Location = New System.Drawing.Point(294, 50)
+        Me.TVW查詢_bt.Name = "TVW查詢_bt"
+        Me.TVW查詢_bt.Size = New System.Drawing.Size(76, 24)
+        Me.TVW查詢_bt.TabIndex = 537
+        Me.TVW查詢_bt.Text = "查詢"
+        Me.TVW查詢_bt.UseVisualStyleBackColor = True
         '
         'TVW刷新_bt
         '
         Me.TVW刷新_bt.ForeColor = System.Drawing.Color.Red
-        Me.TVW刷新_bt.Location = New System.Drawing.Point(371, 29)
+        Me.TVW刷新_bt.Location = New System.Drawing.Point(371, 50)
         Me.TVW刷新_bt.Name = "TVW刷新_bt"
         Me.TVW刷新_bt.Size = New System.Drawing.Size(76, 24)
         Me.TVW刷新_bt.TabIndex = 538
@@ -485,7 +489,7 @@ Partial Class 鞋型圖片導入資料庫
         'TVW新增清單_bt
         '
         Me.TVW新增清單_bt.ForeColor = System.Drawing.Color.Olive
-        Me.TVW新增清單_bt.Location = New System.Drawing.Point(448, 29)
+        Me.TVW新增清單_bt.Location = New System.Drawing.Point(448, 50)
         Me.TVW新增清單_bt.Name = "TVW新增清單_bt"
         Me.TVW新增清單_bt.Size = New System.Drawing.Size(76, 24)
         Me.TVW新增清單_bt.TabIndex = 539
@@ -494,10 +498,9 @@ Partial Class 鞋型圖片導入資料庫
         '
         '字體_NUD
         '
-        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體_NUD.DecimalPlaces = 1
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
-        Me.字體_NUD.Location = New System.Drawing.Point(742, 105)
+        Me.字體_NUD.Location = New System.Drawing.Point(674, 122)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -507,36 +510,138 @@ Partial Class 鞋型圖片導入資料庫
         '
         '字體大小調整_lb
         '
-        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(684, 108)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(616, 125)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1635
         Me.字體大小調整_lb.Text = "字體調整"
         '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(718, 2)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(49, 16)
+        Me.Label8.TabIndex = 1637
+        Me.Label8.Text = "Season"
+        '
+        '季節_dgv
+        '
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.季節_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.季節_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.季節_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.季節_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.季節_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.季節_dgv.Location = New System.Drawing.Point(717, 20)
+        Me.季節_dgv.Name = "季節_dgv"
+        Me.季節_dgv.RowHeadersWidth = 5
+        Me.季節_dgv.RowTemplate.Height = 24
+        Me.季節_dgv.Size = New System.Drawing.Size(143, 677)
+        Me.季節_dgv.TabIndex = 1636
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.TextBox7)
+        Me.Panel1.Controls.Add(Me.Button23)
+        Me.Panel1.Controls.Add(Me.Button8)
+        Me.Panel1.Controls.Add(Me.TextBox1)
+        Me.Panel1.Controls.Add(Me.檔案刪除_bt)
+        Me.Panel1.Location = New System.Drawing.Point(419, 279)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(188, 68)
+        Me.Panel1.TabIndex = 1638
+        '
+        'Label10
+        '
+        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(6, 5)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(49, 16)
+        Me.Label10.TabIndex = 1639
+        Me.Label10.Text = "Season"
+        '
+        '季節_tb
+        '
+        Me.季節_tb.ForeColor = System.Drawing.Color.Black
+        Me.季節_tb.Location = New System.Drawing.Point(65, 2)
+        Me.季節_tb.Name = "季節_tb"
+        Me.季節_tb.Size = New System.Drawing.Size(149, 23)
+        Me.季節_tb.TabIndex = 1640
+        '
+        '季節清空_bt
+        '
+        Me.季節清空_bt.ForeColor = System.Drawing.Color.Blue
+        Me.季節清空_bt.Location = New System.Drawing.Point(217, 2)
+        Me.季節清空_bt.Name = "季節清空_bt"
+        Me.季節清空_bt.Size = New System.Drawing.Size(76, 24)
+        Me.季節清空_bt.TabIndex = 1644
+        Me.季節清空_bt.Text = "清空"
+        Me.季節清空_bt.UseVisualStyleBackColor = True
+        '
+        '季節刷新_bt
+        '
+        Me.季節刷新_bt.ForeColor = System.Drawing.Color.Red
+        Me.季節刷新_bt.Location = New System.Drawing.Point(371, 2)
+        Me.季節刷新_bt.Name = "季節刷新_bt"
+        Me.季節刷新_bt.Size = New System.Drawing.Size(76, 24)
+        Me.季節刷新_bt.TabIndex = 1643
+        Me.季節刷新_bt.Text = "刷新"
+        Me.季節刷新_bt.UseVisualStyleBackColor = True
+        '
+        '季節查詢_bt
+        '
+        Me.季節查詢_bt.ForeColor = System.Drawing.Color.Black
+        Me.季節查詢_bt.Location = New System.Drawing.Point(294, 2)
+        Me.季節查詢_bt.Name = "季節查詢_bt"
+        Me.季節查詢_bt.Size = New System.Drawing.Size(76, 24)
+        Me.季節查詢_bt.TabIndex = 1642
+        Me.季節查詢_bt.Text = "查詢"
+        Me.季節查詢_bt.UseVisualStyleBackColor = True
+        '
+        '季節新增清單_bt
+        '
+        Me.季節新增清單_bt.ForeColor = System.Drawing.Color.Olive
+        Me.季節新增清單_bt.Location = New System.Drawing.Point(448, 2)
+        Me.季節新增清單_bt.Name = "季節新增清單_bt"
+        Me.季節新增清單_bt.Size = New System.Drawing.Size(76, 24)
+        Me.季節新增清單_bt.TabIndex = 1641
+        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(1350, 701)
+        Me.Controls.Add(Me.季節清空_bt)
+        Me.Controls.Add(Me.季節刷新_bt)
+        Me.Controls.Add(Me.季節查詢_bt)
+        Me.Controls.Add(Me.季節新增清單_bt)
+        Me.Controls.Add(Me.季節_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.WebBrowser2)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.季節_dgv)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.TextBox7)
         Me.Controls.Add(Me.Label13)
         Me.Controls.Add(Me.讀取料夾路徑_tb)
         Me.Controls.Add(Me.TVW新增清單_bt)
         Me.Controls.Add(Me.TVW刷新_bt)
-        Me.Controls.Add(Me.TVW清空_bt)
+        Me.Controls.Add(Me.TVW查詢_bt)
         Me.Controls.Add(Me.Label11)
         Me.Controls.Add(Me.訂單控制表TVW清單_dgv)
-        Me.Controls.Add(Me.檔案刪除_bt)
-        Me.Controls.Add(Me.Button8)
-        Me.Controls.Add(Me.Button23)
         Me.Controls.Add(Me.Color清空_bt)
         Me.Controls.Add(Me.Style清空_bt)
         Me.Controls.Add(Me.Color_tb)
@@ -549,10 +654,8 @@ Partial Class 鞋型圖片導入資料庫
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.訂單控制表_dgv)
         Me.Controls.Add(Me.WebBrowser1)
-        Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.TextBox2)
-        Me.Controls.Add(Me.CheckBox1)
-        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.中底_其他LOGO_tb)
+        Me.Controls.Add(Me.中底或其他LOGO_ch)
         Me.Controls.Add(Me.確認儲存_bt)
         Me.Controls.Add(Me.Category_cb)
         Me.Controls.Add(Me.Label4)
@@ -563,7 +666,6 @@ Partial Class 鞋型圖片導入資料庫
         Me.Controls.Add(Me.Color新增清單_bt)
         Me.Controls.Add(Me.Style查詢_bt)
         Me.Controls.Add(Me.Style新增清單_bt)
-        Me.Controls.Add(Me.WebBrowser2)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.Label5)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -575,6 +677,9 @@ Partial Class 鞋型圖片導入資料庫
         CType(Me.訂單控制表顏色清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.訂單控制表TVW清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.季節_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -605,9 +710,8 @@ Partial Class 鞋型圖片導入資料庫
     Friend WithEvents Label5 As Label
     Friend WithEvents 確認儲存_bt As Button
     Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents CheckBox1 As CheckBox
-    Friend WithEvents TextBox2 As TextBox
-    Friend WithEvents Label8 As Label
+    Friend WithEvents 中底或其他LOGO_ch As CheckBox
+    Friend WithEvents 中底_其他LOGO_tb As TextBox
     Friend WithEvents Style_tb As TextBox
     Friend WithEvents Style刷新_bt As Button
     Friend WithEvents TVW_tb As TextBox
@@ -618,11 +722,20 @@ Partial Class 鞋型圖片導入資料庫
     Friend WithEvents Button23 As Button
     Friend WithEvents Button8 As Button
     Friend WithEvents 檔案刪除_bt As Button
-    Friend WithEvents TVW清空_bt As Button
+    Friend WithEvents TVW查詢_bt As Button
     Friend WithEvents TVW刷新_bt As Button
     Friend WithEvents TVW新增清單_bt As Button
     Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 季節_dgv As DataGridView
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 季節_tb As TextBox
+    Friend WithEvents 季節清空_bt As Button
+    Friend WithEvents 季節刷新_bt As Button
+    Friend WithEvents 季節查詢_bt As Button
+    Friend WithEvents 季節新增清單_bt As Button
 End Class
 
 

TENDEN-MES-SYS/圖片資料庫管理/鞋型圖片系統/鞋型圖片導入資料庫.vb

@@ -2,206 +2,123 @@
 Imports System.Net
 Public Class 鞋型圖片導入資料庫
     Public Property Credentials As ICredentials
-    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    ReadOnly ds, ds1, ds2, ds3 As New DataSet
+    Private Sub Set_DGV4載入前設定()
+        季節_dgv.DataSource = Nothing : ds3.Clear()
+        季節_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        季節_dgv.ColumnHeadersHeight = 25 : 季節_dgv.AllowUserToAddRows = False : ConnOpen()
+    End Sub
+    Private Sub Set_DGV4載入後設定()
+        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 季節_dgv.DataSource = ds3.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_季節清單()
+        Set_DGV4載入前設定() : SQL_季節清單() : Set_DGV4載入後設定()
+    End Sub
     Private Sub Set_DGV1載入前設定()
-        Try
-            訂單控制表_dgv.DataSource = Nothing : ds.Clear()
-            訂單控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            訂單控制表_dgv.ColumnHeadersHeight = 25
-            訂單控制表_dgv.AllowUserToAddRows = False
-            ConnOpen()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        訂單控制表_dgv.DataSource = Nothing : ds.Clear()
+        訂單控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單控制表_dgv.ColumnHeadersHeight = 25 : 訂單控制表_dgv.AllowUserToAddRows = False : ConnOpen()
     End Sub
     Private Sub Set_DGV1載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
+        訂單控制表_dgv.Columns(0).FillWeight = 185 : 訂單控制表_dgv.Columns(1).Visible = False : 訂單控制表_dgv.Columns(2).Visible = False
     End Sub
     Private Sub Set_TENDENZASTYLE清單()
-        Set_DGV1載入前設定()
-        SQL_訂單控制表清單()
-        Set_DGV1載入後設定()
+        Set_DGV1載入前設定() : SQL_訂單控制表清單() : Set_DGV1載入後設定()
     End Sub
     Private Sub Set_DGV2載入前設定()
-        Try
-            訂單控制表顏色清單_dgv.DataSource = Nothing : ds1.Clear()
-            訂單控制表顏色清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            訂單控制表顏色清單_dgv.ColumnHeadersHeight = 25
-            訂單控制表顏色清單_dgv.AllowUserToAddRows = False
-            ConnOpen()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        訂單控制表顏色清單_dgv.DataSource = Nothing : ds1.Clear()
+        訂單控制表顏色清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單控制表顏色清單_dgv.ColumnHeadersHeight = 25 : 訂單控制表顏色清單_dgv.AllowUserToAddRows = False : ConnOpen()
     End Sub
     Private Sub Set_DGV2載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 訂單控制表顏色清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        訂單控制表顏色清單_dgv.Columns(0).FillWeight = 155
     End Sub
     Private Sub Set_顏色清單()
-        Try
-            Set_DGV2載入前設定()
-            SQL_訂單控制表顏色清單()
-            Set_DGV2載入後設定()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Set_DGV2載入前設定() : SQL_訂單控制表顏色清單() : Set_DGV2載入後設定()
     End Sub
     Private Sub Set_DGV3載入前設定()
-        Try
-            訂單控制表TVW清單_dgv.DataSource = Nothing : ds2.Clear()
-            訂單控制表TVW清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            訂單控制表TVW清單_dgv.ColumnHeadersHeight = 25
-            訂單控制表TVW清單_dgv.AllowUserToAddRows = False
-            ConnOpen()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        訂單控制表TVW清單_dgv.DataSource = Nothing : ds2.Clear()
+        訂單控制表TVW清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單控制表TVW清單_dgv.ColumnHeadersHeight = 25 : 訂單控制表TVW清單_dgv.AllowUserToAddRows = False : ConnOpen()
     End Sub
     Private Sub Set_DGV3載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 訂單控制表TVW清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        訂單控制表TVW清單_dgv.Columns(0).FillWeight = 140
     End Sub
     Private Sub Set_TVW清單()
-        Set_DGV3載入前設定()
-        SQL_TVW清單()
-        Set_DGV3載入後設定()
-    End Sub
-    Private Sub Set_grid1()
-        訂單控制表_dgv.Columns(0).FillWeight = 185 : 訂單控制表_dgv.Columns(1).Visible = False : 訂單控制表_dgv.Columns(2).Visible = False
-    End Sub
-    Private Sub Set_grid2()
-        訂單控制表顏色清單_dgv.Columns(0).FillWeight = 155
-    End Sub
-    Private Sub Set_grid3()
-        訂單控制表TVW清單_dgv.Columns(0).FillWeight = 140
+        Set_DGV3載入前設定() : SQL_TVW清單() : Set_DGV3載入後設定()
     End Sub
     Private Sub 格式設定()
-        Style_tb.Enabled = False : TVW_tb.Enabled = False : Color_tb.Enabled = False : Button23.Visible = False : Button8.Visible = False
+        季節_tb.Enabled = False : Style_tb.Enabled = False : TVW_tb.Enabled = False : Color_tb.Enabled = False : Button23.Visible = False : Button8.Visible = False
     End Sub
     Private Sub 圖片導入資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            Target1 = Target & AA(1) & "/"
-            WebBrowser1.Url = New Uri(Target1)
-            格式設定() : Set_TENDENZASTYLE清單() : Set_grid1() : Set_顏色清單() : Set_grid2() : Set_TVW清單() : Set_grid3()
-            TextBox1.Visible = False
-            TextBox7.Visible = False
-            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-                WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-            End If
-            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Target1 = Target & AA(1) & "/"
+        WebBrowser1.Url = New Uri(Target1)
+        格式設定() : Set_TENDENZASTYLE清單() : Set_顏色清單() : Set_TVW清單() : Set_季節清單()
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
+            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
+        End If
+        If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+        ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
     End Sub
     Private Sub 圖片導入資料庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
-        Try
-            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+        ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
-        Try
-            訂單控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-            訂單控制表顏色清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-            訂單控制表TVW清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        季節_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        訂單控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        訂單控制表顏色清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        訂單控制表TVW清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub
     Public Sub Button23_Click() Handles Button23.Click
-        Try
-            Set_DGV1載入前設定()
-            SQL_訂單控制表形體號清單()
-            Set_DGV1載入後設定() : Set_grid1()
-            Set_DGV3載入前設定()
-            PA = 訂單控制表_dgv.Rows(0).Cells("形體號碼").Value
-            SQL_訂單控制表TVW清單()
-            Set_DGV3載入後設定() : Set_grid3()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Set_DGV1載入前設定() : SQL_訂單控制表形體號清單() : Set_DGV1載入後設定()
+        PA = 訂單控制表_dgv.Rows(0).Cells("形體號碼").Value
+        Set_DGV3載入前設定() : SQL_訂單控制表TVW清單() : Set_DGV3載入後設定()
     End Sub
     Public Sub Button8_Click() Handles Button8.Click
-        Try
-            Set_DGV2載入前設定()
-            SQL_訂單控制表TVW清單1()
-            Set_DGV2載入後設定() : Set_grid2()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Set_DGV2載入前設定() : SQL_訂單控制表TVW清單1() : Set_DGV2載入後設定()
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單控制表_dgv.CellClick
-        Try
-            If e.RowIndex = -1 Then : Else
-                Style_tb.Text = 訂單控制表_dgv(0, e.RowIndex).Value.ToString
-                Set_DGV3載入前設定()
-                PA = 訂單控制表_dgv.Rows(e.RowIndex).Cells("形體號碼").Value
-                SQL_訂單控制表TVW清單2()
-                Set_DGV3載入後設定() : Set_grid3()
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
-    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單控制表顏色清單_dgv.CellClick
-        Try
-            If e.RowIndex = -1 Then : Else
-                Color_tb.Text = 訂單控制表顏色清單_dgv(0, e.RowIndex).Value.ToString
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
-    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單控制表TVW清單_dgv.CellClick
+    Private Sub 訂單控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單控制表_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TVW_tb.Text = 訂單控制表TVW清單_dgv(0, e.RowIndex).Value.ToString
+            Style_tb.Text = 訂單控制表_dgv(0, e.RowIndex).Value.ToString
+            PA = 訂單控制表_dgv.Rows(e.RowIndex).Cells("形體號碼").Value.ToString
+            Set_DGV3載入前設定() : SQL_訂單控制表TVW清單2() : Set_DGV3載入後設定()
         End If
     End Sub
+    Private Sub 訂單控制表顏色清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單控制表顏色清單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : Color_tb.Text = 訂單控制表顏色清單_dgv(0, e.RowIndex).Value.ToString : End If
+    End Sub
+    Private Sub 訂單控制表TVW清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單控制表TVW清單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : TVW_tb.Text = 訂單控制表TVW清單_dgv(0, e.RowIndex).Value.ToString : End If
+    End Sub
+    Private Sub 季節_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 季節_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : 季節_tb.Text = 季節_dgv(0, e.RowIndex).Value.ToString : End If
+    End Sub
     Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Style查詢_bt.Click
-        Try
-            PA = InputBox("請輸入要查詢的資料")
-            Set_DGV1載入前設定()
-            SQL_訂單控制表形體號清單3()
-            Set_DGV1載入後設定() : Set_grid1()
-            Set_DGV3載入前設定()
-            PA = 訂單控制表_dgv.Rows(0).Cells("形體號碼").Value
-            SQL_訂單控制表TVW清單()
-            Set_DGV3載入後設定() : Set_grid3()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        PA = InputBox("請輸入要查詢的資料")
+        Set_DGV1載入前設定() : SQL_訂單控制表形體號清單3() : Set_DGV1載入後設定()
+        PA = 訂單控制表_dgv.Rows(0).Cells("形體號碼").Value.ToString
+        Set_DGV3載入前設定() : SQL_訂單控制表TVW清單() : Set_DGV3載入後設定()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Color查詢_bt.Click
-        Try
-            PA = InputBox("請輸入要查詢的資料")
-            Set_DGV2載入前設定()
-            SQL_查詢顏色()
-            Set_DGV2載入後設定() : Set_grid2()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        PA = InputBox("請輸入要查詢的資料")
+        Set_DGV2載入前設定() : SQL_查詢顏色() : Set_DGV2載入後設定()
     End Sub
-    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles TVW清空_bt.Click
-        Try
-            PA = InputBox("請輸入要查詢的資料")
-            Set_DGV3載入前設定()
-            SQL_訂單控制表TVW清單2()
-            Set_DGV3載入後設定() : Set_grid3()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles TVW查詢_bt.Click
+        PA = InputBox("請輸入要查詢的資料")
+        Set_DGV3載入前設定() : SQL_訂單控制表TVW清單2() : Set_DGV3載入後設定()
+    End Sub
+    Private Sub 季節查詢_bt_Click(sender As Object, e As EventArgs) Handles 季節查詢_bt.Click
+        PA = InputBox("請輸入要查詢的資料")
+        Set_DGV4載入前設定() : SQL_季節清單1() : Set_DGV4載入後設定()
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認儲存_bt.Click
         Try
-            If 檔案名稱_tb.Text = "" Or Category_cb.Text = "" Or (TVW_tb.Text = "" And TextBox2.Text = "") Then
+            If 檔案名稱_tb.Text = "" Or Category_cb.Text = "" Or (TVW_tb.Text = "" And 中底_其他LOGO_tb.Text = "") Then
                 MsgBox("檔案名稱或資料不可空白")
             Else
                 SQL_查詢圖片編號()
@@ -224,13 +141,15 @@ Public Class 鞋型圖片導入資料庫
                     ElseIf NUM1 > 9999999 Then : TextBox1.Text = "PN" & NUM1
                     End If
                     ConnOpen()
-                    If CheckBox1.Checked = False Then
-                        SQL_新增圖片庫一()
+                    If 中底或其他LOGO_ch.Checked = False Then
+                        If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_新增圖片庫一_測試()
+                        Else : SQL_新增圖片庫一_正式() : End If
                     Else
-                        If TextBox2.Text = "" Then
+                        If 中底_其他LOGO_tb.Text = "" Then
                             MsgBox("請輸入中底LOGO規格")
                         Else
-                            SQL_新增圖片庫一1()
+                            If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_新增圖片庫一1_測試()
+                            Else : SQL_新增圖片庫一1_正式() : End If
                         End If
                     End If
                     CmdSet_For_dr() : conn.Close()
@@ -253,48 +172,46 @@ Public Class 鞋型圖片導入資料庫
             MsgBox(ex.Message)
         End Try
     End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Style新增清單_bt.Click
-        Try
-            STYLE_資料管理.Close() : 修改清單(0) = False : 修改清單(1) = True : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
-            修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 修改清單(12) = False
-            STYLE_資料管理.Show()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+    Private Sub Style新增清單_bt_Click(sender As Object, e As EventArgs) Handles Style新增清單_bt.Click
+        STYLE_資料管理.Close() : 修改清單(0) = False : 修改清單(1) = True : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
+        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 修改清單(12) = False : 修改清單(13) = False : 修改清單(14) = False
+        修改清單(15) = False : 修改清單(16) = False : STYLE_資料管理.Show()
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Color新增清單_bt.Click
-        Try
-            清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = True : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
-            修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 修改清單(12) = False
-            清單修改.Show()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+    Private Sub Color新增清單_bt_Click(sender As Object, e As EventArgs) Handles Color新增清單_bt.Click
+        清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = True : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
+        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 修改清單(12) = False : 修改清單(13) = False : 修改清單(14) = False
+        修改清單(15) = False : 修改清單(16) = False : 清單修改.Show()
     End Sub
-    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles TVW新增清單_bt.Click
-        Try
-            清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
-            修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 修改清單(12) = True : 修改清單(13) = False : 修改清單(14) = False
-            修改清單(15) = False : 修改清單(16) = False
-            清單修改.ShowDialog()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+    Private Sub TVW新增清單_bt_Click(sender As Object, e As EventArgs) Handles TVW新增清單_bt.Click
+        清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
+        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 修改清單(12) = True : 修改清單(13) = False : 修改清單(14) = False
+        修改清單(15) = False : 修改清單(16) = False : 清單修改.ShowDialog()
     End Sub
-    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Style清空_bt.Click
+    Private Sub 季節新增清單_bt_Click(sender As Object, e As EventArgs) Handles 季節新增清單_bt.Click
+        清單修改.Close() : 修改清單(0) = True : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
+        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 修改清單(12) = False : 修改清單(13) = False : 修改清單(14) = False
+        修改清單(15) = False : 修改清單(16) = False : 清單修改.Show()
+    End Sub
+    Private Sub Style清空_bt_Click(sender As Object, e As EventArgs) Handles Style清空_bt.Click
         Style_tb.Text = ""
     End Sub
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Color清空_bt.Click
+    Private Sub Color清空_bt_Click(sender As Object, e As EventArgs) Handles Color清空_bt.Click
         Color_tb.Text = ""
     End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Style刷新_bt.Click
-        Set_TENDENZASTYLE清單() : Set_grid1()
+    Private Sub 季節清空_bt_Click(sender As Object, e As EventArgs) Handles 季節清空_bt.Click
+        季節_tb.Text = ""
+    End Sub
+    Private Sub Style刷新_bt_Click(sender As Object, e As EventArgs) Handles Style刷新_bt.Click
+        Set_TENDENZASTYLE清單()
     End Sub
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Color刷新_bt.Click
-        Set_顏色清單() : Set_grid2()
+    Private Sub Color刷新_bt_Click(sender As Object, e As EventArgs) Handles Color刷新_bt.Click
+        Set_顏色清單()
     End Sub
-    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles TVW刷新_bt.Click
-        Set_TVW清單() : Set_grid3()
+    Private Sub TVW刷新_bt_Click(sender As Object, e As EventArgs) Handles TVW刷新_bt.Click
+        Set_TVW清單()
+    End Sub
+    Private Sub 季節刷新_bt_Click(sender As Object, e As EventArgs) Handles 季節刷新_bt.Click
+        Set_季節清單()
     End Sub
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 檔案刪除_bt.Click
         Try
@@ -311,54 +228,46 @@ Public Class 鞋型圖片導入資料庫
             MsgBox(ex.Message)
         End Try
     End Sub
-    Private Sub TextBox4_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
-        Try
-            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
-                Dim files As String()
-                Try
-                    files = CType(e.Data.GetData(DataFormats.FileDrop), String())
-                    檔案名稱_tb.Text = files(files.Length - 1)
-                Catch ex As Exception
-                    MessageBox.Show(ex.Message)
-                    Return
-                End Try
-            End If
+    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            Dim files As String()
+            Try
+                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
+                檔案名稱_tb.Text = files(files.Length - 1)
+            Catch ex As Exception
+                MessageBox.Show(ex.Message)
+                Return
+            End Try
+        End If
 
-            Dim STR2 As Integer = 0
-            TextBox7.Text = 檔案名稱_tb.Text
-            If 檔案名稱_tb.Text = "" Then
-            Else
-                For i As Integer = 0 To 9999
-                    Dim STR1 As Integer = Strings.Len(TextBox7.Text)
-                    If Strings.Right((TextBox7.Text), 1) <> "\" Then
-                        STR1 -= 1 : STR2 += 1
-                        If STR1 = 0 Then
-                            TextBox7.Text = ""
-                            檔案名稱_tb.Text = ""
-                            i = 9999
-                        Else
-                            TextBox7.Text = Strings.Left((TextBox7.Text), STR1)
-                        End If
-                    Else
-                        TextBox7.Text = Strings.Right((檔案名稱_tb.Text), STR2)
-                        檔案名稱_tb.Text = TextBox7.Text
+        Dim STR2 As Integer = 0
+        TextBox7.Text = 檔案名稱_tb.Text
+        If 檔案名稱_tb.Text = "" Then
+        Else
+            For i As Integer = 0 To 9999
+                Dim STR1 As Integer = Strings.Len(TextBox7.Text)
+                If Strings.Right((TextBox7.Text), 1) <> "\" Then
+                    STR1 -= 1 : STR2 += 1
+                    If STR1 = 0 Then
+                        TextBox7.Text = ""
+                        檔案名稱_tb.Text = ""
                         i = 9999
+                    Else
+                        TextBox7.Text = Strings.Left((TextBox7.Text), STR1)
                     End If
-                Next
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+                Else
+                    TextBox7.Text = Strings.Right((檔案名稱_tb.Text), STR2)
+                    檔案名稱_tb.Text = TextBox7.Text
+                    i = 9999
+                End If
+            Next
+        End If
     End Sub
     Private Sub TextBox4_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
         Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
-        For Each file As String In files
-            檔案名稱_tb.AppendText(file + Environment.NewLine)
-        Next
+        For Each file As String In files : 檔案名稱_tb.AppendText(file + Environment.NewLine) : Next
     End Sub
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_tb.Click
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-        End If
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath) : End If
     End Sub
 End Class

TENDEN-MES-SYS/圖片資料庫管理/鞋型圖片系統/鞋型圖片資料庫.Designer.vb

@@ -22,7 +22,7 @@ Partial Class 鞋型圖片資料庫
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.圖片庫一_dgv = New System.Windows.Forms.DataGridView()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.圖片修改存檔_bt = New System.Windows.Forms.Button()
@@ -41,30 +41,32 @@ Partial Class 鞋型圖片資料庫
         Me.Label10 = New System.Windows.Forms.Label()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.季節_tb = New System.Windows.Forms.TextBox()
         Me.查詢_bt = New System.Windows.Forms.Button()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.Category_cb = New System.Windows.Forms.ComboBox()
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.更新清單_bt = New System.Windows.Forms.Button()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.下載圖片_bt = New System.Windows.Forms.Button()
         Me.Style_tb = New System.Windows.Forms.TextBox()
         Me.TVW_tb = New System.Windows.Forms.TextBox()
         Me.Color_tb = New System.Windows.Forms.TextBox()
+        Me.全部資料_ch = New System.Windows.Forms.CheckBox()
+        Me.其他LOGO_ch = New System.Windows.Forms.CheckBox()
+        Me.中底LOGO_ch = New System.Windows.Forms.CheckBox()
+        Me.確認_產地標_ch = New System.Windows.Forms.CheckBox()
+        Me.確認_彩圖_ch = New System.Windows.Forms.CheckBox()
         Me.開發_BW_ch = New System.Windows.Forms.CheckBox()
         Me.開發_ILR_ch = New System.Windows.Forms.CheckBox()
-        Me.全部資料_ch = New System.Windows.Forms.CheckBox()
         Me.開發_FLR_ch = New System.Windows.Forms.CheckBox()
-        Me.其他LOGO_ch = New System.Windows.Forms.CheckBox()
         Me.開發_SMS_ch = New System.Windows.Forms.CheckBox()
-        Me.中底LOGO_ch = New System.Windows.Forms.CheckBox()
         Me.開發_SMU_ch = New System.Windows.Forms.CheckBox()
-        Me.確認_產地標_ch = New System.Windows.Forms.CheckBox()
         Me.確認_BW_ch = New System.Windows.Forms.CheckBox()
-        Me.確認_彩圖_ch = New System.Windows.Forms.CheckBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
@@ -78,17 +80,18 @@ Partial Class 鞋型圖片資料庫
         '
         '圖片庫一_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Thistle
-        Me.圖片庫一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Thistle
+        Me.圖片庫一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.圖片庫一_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.圖片庫一_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.圖片庫一_dgv.BackgroundColor = System.Drawing.Color.White
         Me.圖片庫一_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.圖片庫一_dgv.Location = New System.Drawing.Point(3, 3)
         Me.圖片庫一_dgv.Name = "圖片庫一_dgv"
         Me.圖片庫一_dgv.RowHeadersWidth = 5
         Me.圖片庫一_dgv.RowTemplate.Height = 24
-        Me.圖片庫一_dgv.Size = New System.Drawing.Size(395, 695)
+        Me.圖片庫一_dgv.Size = New System.Drawing.Size(464, 695)
         Me.圖片庫一_dgv.TabIndex = 3
         '
         'TextBox1
@@ -101,9 +104,9 @@ Partial Class 鞋型圖片資料庫
         '圖片修改存檔_bt
         '
         Me.圖片修改存檔_bt.ForeColor = System.Drawing.Color.Green
-        Me.圖片修改存檔_bt.Location = New System.Drawing.Point(365, 2)
+        Me.圖片修改存檔_bt.Location = New System.Drawing.Point(182, 21)
         Me.圖片修改存檔_bt.Name = "圖片修改存檔_bt"
-        Me.圖片修改存檔_bt.Size = New System.Drawing.Size(171, 25)
+        Me.圖片修改存檔_bt.Size = New System.Drawing.Size(96, 25)
         Me.圖片修改存檔_bt.TabIndex = 514
         Me.圖片修改存檔_bt.Text = "圖片修改存檔"
         Me.圖片修改存檔_bt.UseVisualStyleBackColor = True
@@ -112,17 +115,18 @@ Partial Class 鞋型圖片資料庫
         '
         Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser1.Location = New System.Drawing.Point(6, 510)
+        Me.WebBrowser1.Location = New System.Drawing.Point(6, 537)
         Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
         Me.WebBrowser1.Name = "WebBrowser1"
-        Me.WebBrowser1.Size = New System.Drawing.Size(1050, 145)
+        Me.WebBrowser1.Size = New System.Drawing.Size(981, 118)
         Me.WebBrowser1.TabIndex = 542
         Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
         '
         'Label9
         '
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(2, 485)
+        Me.Label9.Location = New System.Drawing.Point(2, 516)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(56, 16)
         Me.Label9.TabIndex = 544
@@ -134,16 +138,16 @@ Partial Class 鞋型圖片資料庫
         Me.檔案名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(57, 483)
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(57, 512)
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
-        Me.檔案名稱_tb.Size = New System.Drawing.Size(999, 23)
+        Me.檔案名稱_tb.Size = New System.Drawing.Size(930, 23)
         Me.檔案名稱_tb.TabIndex = 543
         '
         '修改圖片_ch
         '
         Me.修改圖片_ch.AutoSize = True
         Me.修改圖片_ch.ForeColor = System.Drawing.Color.Red
-        Me.修改圖片_ch.Location = New System.Drawing.Point(6, 5)
+        Me.修改圖片_ch.Location = New System.Drawing.Point(6, 2)
         Me.修改圖片_ch.Name = "修改圖片_ch"
         Me.修改圖片_ch.Size = New System.Drawing.Size(267, 20)
         Me.修改圖片_ch.TabIndex = 545
@@ -168,10 +172,10 @@ Partial Class 鞋型圖片資料庫
         Me.WebBrowser2.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.WebBrowser2.Location = New System.Drawing.Point(6, 59)
+        Me.WebBrowser2.Location = New System.Drawing.Point(6, 65)
         Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
         Me.WebBrowser2.Name = "WebBrowser2"
-        Me.WebBrowser2.Size = New System.Drawing.Size(1050, 420)
+        Me.WebBrowser2.Size = New System.Drawing.Size(981, 446)
         Me.WebBrowser2.TabIndex = 548
         Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
         '
@@ -179,7 +183,7 @@ Partial Class 鞋型圖片資料庫
         '
         Me.TextBox7.AllowDrop = True
         Me.TextBox7.ForeColor = System.Drawing.Color.Black
-        Me.TextBox7.Location = New System.Drawing.Point(286, 3)
+        Me.TextBox7.Location = New System.Drawing.Point(94, 177)
         Me.TextBox7.Multiline = True
         Me.TextBox7.Name = "TextBox7"
         Me.TextBox7.Size = New System.Drawing.Size(73, 23)
@@ -189,7 +193,7 @@ Partial Class 鞋型圖片資料庫
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label1.Location = New System.Drawing.Point(2, 29)
+        Me.Label1.Location = New System.Drawing.Point(2, 21)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(86, 24)
         Me.Label1.TabIndex = 562
@@ -199,9 +203,9 @@ Partial Class 鞋型圖片資料庫
         '
         Me.讀取料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.讀取料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
-        Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(94, 29)
+        Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(92, 21)
         Me.讀取料夾路徑_bt.Name = "讀取料夾路徑_bt"
-        Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(119, 24)
+        Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(89, 25)
         Me.讀取料夾路徑_bt.TabIndex = 561
         Me.讀取料夾路徑_bt.Text = "讀取料夾路徑"
         Me.讀取料夾路徑_bt.UseVisualStyleBackColor = True
@@ -210,8 +214,8 @@ Partial Class 鞋型圖片資料庫
         '
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label8.ForeColor = System.Drawing.Color.Red
-        Me.Label8.Location = New System.Drawing.Point(542, 3)
+        Me.Label8.ForeColor = System.Drawing.Color.Blue
+        Me.Label8.Location = New System.Drawing.Point(280, 1)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(492, 48)
         Me.Label8.TabIndex = 572
@@ -222,11 +226,11 @@ Partial Class 鞋型圖片資料庫
         '
         Me.Label10.AutoSize = True
         Me.Label10.ForeColor = System.Drawing.Color.Red
-        Me.Label10.Location = New System.Drawing.Point(219, 26)
+        Me.Label10.Location = New System.Drawing.Point(3, 48)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(292, 32)
+        Me.Label10.Size = New System.Drawing.Size(424, 16)
         Me.Label10.TabIndex = 573
-        Me.Label10.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改檔案名稱" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "不要帶有中文字或是符號"
+        Me.Label10.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改檔案名稱不要帶有中文字或是符號"
         '
         'TabControl1
         '
@@ -236,53 +240,63 @@ Partial Class 鞋型圖片資料庫
         Me.TabControl1.Appearance = System.Windows.Forms.TabAppearance.Buttons
         Me.TabControl1.Controls.Add(Me.TabPage1)
         Me.TabControl1.Controls.Add(Me.TabPage2)
-        Me.TabControl1.Location = New System.Drawing.Point(397, 3)
+        Me.TabControl1.Location = New System.Drawing.Point(466, 3)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(1074, 695)
+        Me.TabControl1.Size = New System.Drawing.Size(1005, 700)
         Me.TabControl1.TabIndex = 574
         '
         'TabPage1
         '
         Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage1.Controls.Add(Me.季節_tb)
         Me.TabPage1.Controls.Add(Me.查詢_bt)
         Me.TabPage1.Controls.Add(Me.PictureBox1)
         Me.TabPage1.Controls.Add(Me.Category_cb)
         Me.TabPage1.Controls.Add(Me.刪除_bt)
         Me.TabPage1.Controls.Add(Me.更新清單_bt)
-        Me.TabPage1.Controls.Add(Me.Label2)
-        Me.TabPage1.Controls.Add(Me.Label3)
         Me.TabPage1.Controls.Add(Me.Label4)
         Me.TabPage1.Controls.Add(Me.Label5)
         Me.TabPage1.Controls.Add(Me.下載圖片_bt)
         Me.TabPage1.Controls.Add(Me.Style_tb)
         Me.TabPage1.Controls.Add(Me.TVW_tb)
         Me.TabPage1.Controls.Add(Me.Color_tb)
+        Me.TabPage1.Controls.Add(Me.全部資料_ch)
+        Me.TabPage1.Controls.Add(Me.其他LOGO_ch)
+        Me.TabPage1.Controls.Add(Me.中底LOGO_ch)
+        Me.TabPage1.Controls.Add(Me.確認_產地標_ch)
+        Me.TabPage1.Controls.Add(Me.確認_彩圖_ch)
         Me.TabPage1.Controls.Add(Me.開發_BW_ch)
         Me.TabPage1.Controls.Add(Me.開發_ILR_ch)
-        Me.TabPage1.Controls.Add(Me.全部資料_ch)
         Me.TabPage1.Controls.Add(Me.開發_FLR_ch)
-        Me.TabPage1.Controls.Add(Me.其他LOGO_ch)
         Me.TabPage1.Controls.Add(Me.開發_SMS_ch)
-        Me.TabPage1.Controls.Add(Me.中底LOGO_ch)
         Me.TabPage1.Controls.Add(Me.開發_SMU_ch)
-        Me.TabPage1.Controls.Add(Me.確認_產地標_ch)
         Me.TabPage1.Controls.Add(Me.確認_BW_ch)
-        Me.TabPage1.Controls.Add(Me.確認_彩圖_ch)
+        Me.TabPage1.Controls.Add(Me.Label6)
+        Me.TabPage1.Controls.Add(Me.Label2)
+        Me.TabPage1.Controls.Add(Me.Label3)
         Me.TabPage1.Location = New System.Drawing.Point(4, 28)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(1066, 663)
+        Me.TabPage1.Size = New System.Drawing.Size(997, 668)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "鞋樣圖片"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
+        '季節_tb
+        '
+        Me.季節_tb.ForeColor = System.Drawing.Color.Black
+        Me.季節_tb.Location = New System.Drawing.Point(116, 3)
+        Me.季節_tb.Name = "季節_tb"
+        Me.季節_tb.Size = New System.Drawing.Size(168, 23)
+        Me.季節_tb.TabIndex = 1642
+        '
         '查詢_bt
         '
         Me.查詢_bt.ForeColor = System.Drawing.Color.Black
         Me.查詢_bt.Location = New System.Drawing.Point(1, 1)
         Me.查詢_bt.Name = "查詢_bt"
-        Me.查詢_bt.Size = New System.Drawing.Size(85, 24)
+        Me.查詢_bt.Size = New System.Drawing.Size(66, 24)
         Me.查詢_bt.TabIndex = 551
         Me.查詢_bt.Text = "查詢"
         Me.查詢_bt.UseVisualStyleBackColor = True
@@ -295,9 +309,9 @@ Partial Class 鞋型圖片資料庫
         Me.PictureBox1.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources._9572467
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox1.Location = New System.Drawing.Point(1, 101)
+        Me.PictureBox1.Location = New System.Drawing.Point(3, 79)
         Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(1057, 555)
+        Me.PictureBox1.Size = New System.Drawing.Size(988, 584)
         Me.PictureBox1.TabIndex = 547
         Me.PictureBox1.TabStop = False
         '
@@ -306,17 +320,17 @@ Partial Class 鞋型圖片資料庫
         Me.Category_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.Category_cb.FormattingEnabled = True
         Me.Category_cb.Items.AddRange(New Object() {"開發-B/W", "開發-ILR", "開發-FLR", "開發-SMS", "開發-SMU", "確認-B/W", "確認-彩圖", "確認-產地標", "中底LOGO", "其他LOGO", "LOGO", "MATEIAL"})
-        Me.Category_cb.Location = New System.Drawing.Point(152, 75)
+        Me.Category_cb.Location = New System.Drawing.Point(346, 27)
         Me.Category_cb.Name = "Category_cb"
-        Me.Category_cb.Size = New System.Drawing.Size(284, 24)
+        Me.Category_cb.Size = New System.Drawing.Size(168, 24)
         Me.Category_cb.TabIndex = 548
         '
         '刪除_bt
         '
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除_bt.Location = New System.Drawing.Point(1, 76)
+        Me.刪除_bt.Location = New System.Drawing.Point(1, 50)
         Me.刪除_bt.Name = "刪除_bt"
-        Me.刪除_bt.Size = New System.Drawing.Size(85, 24)
+        Me.刪除_bt.Size = New System.Drawing.Size(66, 24)
         Me.刪除_bt.TabIndex = 549
         Me.刪除_bt.Text = "刪除"
         Me.刪除_bt.UseVisualStyleBackColor = True
@@ -324,35 +338,17 @@ Partial Class 鞋型圖片資料庫
         '更新清單_bt
         '
         Me.更新清單_bt.ForeColor = System.Drawing.Color.Black
-        Me.更新清單_bt.Location = New System.Drawing.Point(1, 26)
+        Me.更新清單_bt.Location = New System.Drawing.Point(427, 52)
         Me.更新清單_bt.Name = "更新清單_bt"
         Me.更新清單_bt.Size = New System.Drawing.Size(85, 24)
         Me.更新清單_bt.TabIndex = 550
         Me.更新清單_bt.Text = "更新清單"
         Me.更新清單_bt.UseVisualStyleBackColor = True
         '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(88, 6)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(35, 16)
-        Me.Label2.TabIndex = 552
-        Me.Label2.Text = "Style"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(88, 30)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(43, 16)
-        Me.Label3.TabIndex = 553
-        Me.Label3.Text = "TVW#"
-        '
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(88, 54)
+        Me.Label4.Location = New System.Drawing.Point(285, 6)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(39, 16)
         Me.Label4.TabIndex = 554
@@ -361,7 +357,7 @@ Partial Class 鞋型圖片資料庫
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(88, 78)
+        Me.Label5.Location = New System.Drawing.Point(285, 30)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(63, 16)
         Me.Label5.TabIndex = 555
@@ -370,9 +366,9 @@ Partial Class 鞋型圖片資料庫
         '下載圖片_bt
         '
         Me.下載圖片_bt.ForeColor = System.Drawing.Color.Blue
-        Me.下載圖片_bt.Location = New System.Drawing.Point(1, 51)
+        Me.下載圖片_bt.Location = New System.Drawing.Point(1, 25)
         Me.下載圖片_bt.Name = "下載圖片_bt"
-        Me.下載圖片_bt.Size = New System.Drawing.Size(85, 24)
+        Me.下載圖片_bt.Size = New System.Drawing.Size(66, 24)
         Me.下載圖片_bt.TabIndex = 570
         Me.下載圖片_bt.Text = "下載圖片"
         Me.下載圖片_bt.UseVisualStyleBackColor = True
@@ -380,31 +376,81 @@ Partial Class 鞋型圖片資料庫
         'Style_tb
         '
         Me.Style_tb.ForeColor = System.Drawing.Color.Black
-        Me.Style_tb.Location = New System.Drawing.Point(152, 3)
+        Me.Style_tb.Location = New System.Drawing.Point(116, 28)
         Me.Style_tb.Name = "Style_tb"
-        Me.Style_tb.Size = New System.Drawing.Size(284, 23)
+        Me.Style_tb.Size = New System.Drawing.Size(168, 23)
         Me.Style_tb.TabIndex = 556
         '
         'TVW_tb
         '
         Me.TVW_tb.ForeColor = System.Drawing.Color.Black
-        Me.TVW_tb.Location = New System.Drawing.Point(152, 27)
+        Me.TVW_tb.Location = New System.Drawing.Point(116, 52)
         Me.TVW_tb.Name = "TVW_tb"
-        Me.TVW_tb.Size = New System.Drawing.Size(284, 23)
+        Me.TVW_tb.Size = New System.Drawing.Size(168, 23)
         Me.TVW_tb.TabIndex = 557
         '
         'Color_tb
         '
         Me.Color_tb.ForeColor = System.Drawing.Color.Black
-        Me.Color_tb.Location = New System.Drawing.Point(152, 51)
+        Me.Color_tb.Location = New System.Drawing.Point(346, 3)
         Me.Color_tb.Name = "Color_tb"
-        Me.Color_tb.Size = New System.Drawing.Size(284, 23)
+        Me.Color_tb.Size = New System.Drawing.Size(168, 23)
         Me.Color_tb.TabIndex = 558
         '
+        '全部資料_ch
+        '
+        Me.全部資料_ch.AutoSize = True
+        Me.全部資料_ch.Location = New System.Drawing.Point(768, 28)
+        Me.全部資料_ch.Name = "全部資料_ch"
+        Me.全部資料_ch.Size = New System.Drawing.Size(75, 20)
+        Me.全部資料_ch.TabIndex = 569
+        Me.全部資料_ch.Text = "全部資料"
+        Me.全部資料_ch.UseVisualStyleBackColor = True
+        '
+        '其他LOGO_ch
+        '
+        Me.其他LOGO_ch.AutoSize = True
+        Me.其他LOGO_ch.Location = New System.Drawing.Point(768, 3)
+        Me.其他LOGO_ch.Name = "其他LOGO_ch"
+        Me.其他LOGO_ch.Size = New System.Drawing.Size(86, 20)
+        Me.其他LOGO_ch.TabIndex = 568
+        Me.其他LOGO_ch.Text = "其他LOGO"
+        Me.其他LOGO_ch.UseVisualStyleBackColor = True
+        '
+        '中底LOGO_ch
+        '
+        Me.中底LOGO_ch.AutoSize = True
+        Me.中底LOGO_ch.Location = New System.Drawing.Point(679, 53)
+        Me.中底LOGO_ch.Name = "中底LOGO_ch"
+        Me.中底LOGO_ch.Size = New System.Drawing.Size(86, 20)
+        Me.中底LOGO_ch.TabIndex = 567
+        Me.中底LOGO_ch.Text = "中底LOGO"
+        Me.中底LOGO_ch.UseVisualStyleBackColor = True
+        '
+        '確認_產地標_ch
+        '
+        Me.確認_產地標_ch.AutoSize = True
+        Me.確認_產地標_ch.Location = New System.Drawing.Point(679, 28)
+        Me.確認_產地標_ch.Name = "確認_產地標_ch"
+        Me.確認_產地標_ch.Size = New System.Drawing.Size(92, 20)
+        Me.確認_產地標_ch.TabIndex = 566
+        Me.確認_產地標_ch.Text = "確認-產地標"
+        Me.確認_產地標_ch.UseVisualStyleBackColor = True
+        '
+        '確認_彩圖_ch
+        '
+        Me.確認_彩圖_ch.AutoSize = True
+        Me.確認_彩圖_ch.Location = New System.Drawing.Point(679, 3)
+        Me.確認_彩圖_ch.Name = "確認_彩圖_ch"
+        Me.確認_彩圖_ch.Size = New System.Drawing.Size(80, 20)
+        Me.確認_彩圖_ch.TabIndex = 565
+        Me.確認_彩圖_ch.Text = "確認-彩圖"
+        Me.確認_彩圖_ch.UseVisualStyleBackColor = True
+        '
         '開發_BW_ch
         '
         Me.開發_BW_ch.AutoSize = True
-        Me.開發_BW_ch.Location = New System.Drawing.Point(439, 3)
+        Me.開發_BW_ch.Location = New System.Drawing.Point(516, 4)
         Me.開發_BW_ch.Name = "開發_BW_ch"
         Me.開發_BW_ch.Size = New System.Drawing.Size(80, 20)
         Me.開發_BW_ch.TabIndex = 559
@@ -414,112 +460,89 @@ Partial Class 鞋型圖片資料庫
         '開發_ILR_ch
         '
         Me.開發_ILR_ch.AutoSize = True
-        Me.開發_ILR_ch.Location = New System.Drawing.Point(439, 28)
+        Me.開發_ILR_ch.Location = New System.Drawing.Point(516, 29)
         Me.開發_ILR_ch.Name = "開發_ILR_ch"
         Me.開發_ILR_ch.Size = New System.Drawing.Size(73, 20)
         Me.開發_ILR_ch.TabIndex = 560
         Me.開發_ILR_ch.Text = "開發-ILR"
         Me.開發_ILR_ch.UseVisualStyleBackColor = True
         '
-        '全部資料_ch
-        '
-        Me.全部資料_ch.AutoSize = True
-        Me.全部資料_ch.Location = New System.Drawing.Point(623, 54)
-        Me.全部資料_ch.Name = "全部資料_ch"
-        Me.全部資料_ch.Size = New System.Drawing.Size(75, 20)
-        Me.全部資料_ch.TabIndex = 569
-        Me.全部資料_ch.Text = "全部資料"
-        Me.全部資料_ch.UseVisualStyleBackColor = True
-        '
         '開發_FLR_ch
         '
         Me.開發_FLR_ch.AutoSize = True
-        Me.開發_FLR_ch.Location = New System.Drawing.Point(439, 53)
+        Me.開發_FLR_ch.Location = New System.Drawing.Point(516, 55)
         Me.開發_FLR_ch.Name = "開發_FLR_ch"
         Me.開發_FLR_ch.Size = New System.Drawing.Size(76, 20)
         Me.開發_FLR_ch.TabIndex = 561
         Me.開發_FLR_ch.Text = "開發-FLR"
         Me.開發_FLR_ch.UseVisualStyleBackColor = True
         '
-        '其他LOGO_ch
-        '
-        Me.其他LOGO_ch.AutoSize = True
-        Me.其他LOGO_ch.Location = New System.Drawing.Point(623, 29)
-        Me.其他LOGO_ch.Name = "其他LOGO_ch"
-        Me.其他LOGO_ch.Size = New System.Drawing.Size(86, 20)
-        Me.其他LOGO_ch.TabIndex = 568
-        Me.其他LOGO_ch.Text = "其他LOGO"
-        Me.其他LOGO_ch.UseVisualStyleBackColor = True
-        '
         '開發_SMS_ch
         '
         Me.開發_SMS_ch.AutoSize = True
-        Me.開發_SMS_ch.Location = New System.Drawing.Point(529, 3)
+        Me.開發_SMS_ch.Location = New System.Drawing.Point(598, 29)
         Me.開發_SMS_ch.Name = "開發_SMS_ch"
         Me.開發_SMS_ch.Size = New System.Drawing.Size(82, 20)
         Me.開發_SMS_ch.TabIndex = 562
         Me.開發_SMS_ch.Text = "開發-SMS"
         Me.開發_SMS_ch.UseVisualStyleBackColor = True
         '
-        '中底LOGO_ch
-        '
-        Me.中底LOGO_ch.AutoSize = True
-        Me.中底LOGO_ch.Location = New System.Drawing.Point(623, 4)
-        Me.中底LOGO_ch.Name = "中底LOGO_ch"
-        Me.中底LOGO_ch.Size = New System.Drawing.Size(86, 20)
-        Me.中底LOGO_ch.TabIndex = 567
-        Me.中底LOGO_ch.Text = "中底LOGO"
-        Me.中底LOGO_ch.UseVisualStyleBackColor = True
-        '
         '開發_SMU_ch
         '
         Me.開發_SMU_ch.AutoSize = True
-        Me.開發_SMU_ch.Location = New System.Drawing.Point(439, 78)
+        Me.開發_SMU_ch.Location = New System.Drawing.Point(598, 4)
         Me.開發_SMU_ch.Name = "開發_SMU_ch"
         Me.開發_SMU_ch.Size = New System.Drawing.Size(84, 20)
         Me.開發_SMU_ch.TabIndex = 563
         Me.開發_SMU_ch.Text = "開發-SMU"
         Me.開發_SMU_ch.UseVisualStyleBackColor = True
         '
-        '確認_產地標_ch
-        '
-        Me.確認_產地標_ch.AutoSize = True
-        Me.確認_產地標_ch.Location = New System.Drawing.Point(529, 78)
-        Me.確認_產地標_ch.Name = "確認_產地標_ch"
-        Me.確認_產地標_ch.Size = New System.Drawing.Size(92, 20)
-        Me.確認_產地標_ch.TabIndex = 566
-        Me.確認_產地標_ch.Text = "確認-產地標"
-        Me.確認_產地標_ch.UseVisualStyleBackColor = True
-        '
         '確認_BW_ch
         '
         Me.確認_BW_ch.AutoSize = True
-        Me.確認_BW_ch.Location = New System.Drawing.Point(529, 28)
+        Me.確認_BW_ch.Location = New System.Drawing.Point(598, 54)
         Me.確認_BW_ch.Name = "確認_BW_ch"
         Me.確認_BW_ch.Size = New System.Drawing.Size(80, 20)
         Me.確認_BW_ch.TabIndex = 564
         Me.確認_BW_ch.Text = "確認-B/W"
         Me.確認_BW_ch.UseVisualStyleBackColor = True
         '
-        '確認_彩圖_ch
+        'Label6
         '
-        Me.確認_彩圖_ch.AutoSize = True
-        Me.確認_彩圖_ch.Location = New System.Drawing.Point(529, 53)
-        Me.確認_彩圖_ch.Name = "確認_彩圖_ch"
-        Me.確認_彩圖_ch.Size = New System.Drawing.Size(80, 20)
-        Me.確認_彩圖_ch.TabIndex = 565
-        Me.確認_彩圖_ch.Text = "確認-彩圖"
-        Me.確認_彩圖_ch.UseVisualStyleBackColor = True
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(69, 6)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(49, 16)
+        Me.Label6.TabIndex = 1641
+        Me.Label6.Text = "Season"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(69, 31)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(35, 16)
+        Me.Label2.TabIndex = 552
+        Me.Label2.Text = "Style"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(69, 55)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
+        Me.Label3.TabIndex = 553
+        Me.Label3.Text = "TVW#"
         '
         'TabPage2
         '
         Me.TabPage2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage2.Controls.Add(Me.讀取料夾路徑_bt)
         Me.TabPage2.Controls.Add(Me.Label8)
         Me.TabPage2.Controls.Add(Me.修改圖片_ch)
         Me.TabPage2.Controls.Add(Me.TextBox7)
         Me.TabPage2.Controls.Add(Me.Label1)
         Me.TabPage2.Controls.Add(Me.圖片修改存檔_bt)
-        Me.TabPage2.Controls.Add(Me.讀取料夾路徑_bt)
         Me.TabPage2.Controls.Add(Me.WebBrowser1)
         Me.TabPage2.Controls.Add(Me.WebBrowser2)
         Me.TabPage2.Controls.Add(Me.檔案名稱_tb)
@@ -528,7 +551,7 @@ Partial Class 鞋型圖片資料庫
         Me.TabPage2.Location = New System.Drawing.Point(4, 28)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(1066, 663)
+        Me.TabPage2.Size = New System.Drawing.Size(997, 668)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "圖片控制項"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -632,5 +655,7 @@ Partial Class 鞋型圖片資料庫
     Friend WithEvents TabPage2 As TabPage
     Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 季節_tb As TextBox
+    Friend WithEvents Label6 As Label
 End Class
 

TENDEN-MES-SYS/圖片資料庫管理/鞋型圖片系統/鞋型圖片資料庫.vb

@@ -3,107 +3,66 @@ Imports System.IO
 Imports System.Net
 Public Class 鞋型圖片資料庫
     Public Property Credentials As ICredentials
-    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    ReadOnly ds, ds1 As New DataSet
     Dim aa1 As MsgBoxResult
     Dim TT As String
     Private Sub Set_DGV1載入前設定()
-        Try
-            圖片庫一_dgv.DataSource = Nothing : ds.Clear()
-            圖片庫一_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            圖片庫一_dgv.ColumnHeadersHeight = 25
-            圖片庫一_dgv.AllowUserToAddRows = False
-            ConnOpen()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        圖片庫一_dgv.DataSource = Nothing : ds.Clear()
+        圖片庫一_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        圖片庫一_dgv.ColumnHeadersHeight = 25 : 圖片庫一_dgv.AllowUserToAddRows = False : ConnOpen()
     End Sub
     Private Sub Set_DGV1載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 圖片庫一_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_圖片清單()
-        Try
-            Set_DGV1載入前設定()
-            SQL_圖片庫一清單()
-            Set_DGV1載入後設定()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Set_DGV1載入前設定() : SQL_圖片庫一清單() : Set_DGV1載入後設定()
     End Sub
     Private Sub Set_grid()
-        Try
-            圖片庫一_dgv.Columns(0).FillWeight = 120 : 圖片庫一_dgv.Columns(1).FillWeight = 90 : 圖片庫一_dgv.Columns(2).FillWeight = 80 : 圖片庫一_dgv.Columns(3).FillWeight = 80
-            圖片庫一_dgv.Columns(4).Visible = False
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        圖片庫一_dgv.Columns(0).FillWeight = 90 : 圖片庫一_dgv.Columns(1).FillWeight = 120 : 圖片庫一_dgv.Columns(2).FillWeight = 90 : 圖片庫一_dgv.Columns(3).FillWeight = 80
+        圖片庫一_dgv.Columns(4).FillWeight = 80 : 圖片庫一_dgv.Columns(5).Visible = False
     End Sub
     Private Sub 鞋型圖片資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            Target1 = Target & AA(1) & "/"
-            WebBrowser1.Url = New Uri(Target1)
-            TextBox1.Visible = False : TextBox2.Visible = False
-            全部資料_ch.Checked = True : TextBox7.Visible = False
-            Set_圖片清單() : Set_grid()
-            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-                WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-            End If
-            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Target1 = Target & AA(1) & "/"
+        WebBrowser1.Url = New Uri(Target1)
+        TextBox1.Visible = False : TextBox2.Visible = False
+        全部資料_ch.Checked = True : TextBox7.Visible = False
+        Set_圖片清單() : Set_grid()
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath) : End If
+        If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+        ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
     End Sub
     Private Sub 鞋型圖片資料庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
-        Try
-            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+        ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
         圖片庫一_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片庫一_dgv.CellClick
-        Try
-            If e.RowIndex = -1 Then : Else
-                Style_tb.Text = 圖片庫一_dgv(0, e.RowIndex).Value.ToString
-                TVW_tb.Text = 圖片庫一_dgv(1, e.RowIndex).Value.ToString
-                Color_tb.Text = 圖片庫一_dgv(2, e.RowIndex).Value.ToString
-                Category_cb.Text = 圖片庫一_dgv(3, e.RowIndex).Value.ToString
-                TextBox1.Text = 圖片庫一_dgv(4, e.RowIndex).Value.ToString
-                SQL_指定圖片庫一()
-                PictureBox1.BackgroundImage = Nothing
-                While dr.Read() = True
-                    Dim unused As Byte() = New Byte(-1) {}
-                    Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
-                    Dim oStream As New MemoryStream(bytes)
-                    PictureBox1.Image = Bitmap.FromStream(oStream)
-                End While
-                conn.Close()
-                PictureBox1.SizeMode = 4
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        If e.RowIndex = -1 Then : Else
+            季節_tb.Text = 圖片庫一_dgv(0, e.RowIndex).Value.ToString : Style_tb.Text = 圖片庫一_dgv(1, e.RowIndex).Value.ToString
+            TVW_tb.Text = 圖片庫一_dgv(2, e.RowIndex).Value.ToString : Color_tb.Text = 圖片庫一_dgv(3, e.RowIndex).Value.ToString
+            Category_cb.Text = 圖片庫一_dgv(4, e.RowIndex).Value.ToString : TextBox1.Text = 圖片庫一_dgv(5, e.RowIndex).Value.ToString
+            SQL_指定圖片庫一()
+            PictureBox1.BackgroundImage = Nothing
+            While dr.Read() = True
+                Dim unused As Byte() = New Byte(-1) {}
+                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes)
+                PictureBox1.Image = Bitmap.FromStream(oStream)
+            End While : conn.Close()
+            PictureBox1.SizeMode = 4
+        End If
     End Sub
     Private Sub Button24_Click(sender As Object, e As EventArgs) Handles 圖片修改存檔_bt.Click
         Try
             conn.Close()
-            ConnOpen()
             If 修改圖片_ch.Checked = False Then
-                SQL_修改圖片庫一()
-                CmdSet_For_dr() : conn.Close()
+                ConnOpen() : SQL_修改圖片庫一() : CmdSet_For_dr() : conn.Close()
             Else
-                SQL_修改圖片庫一1()
-                CmdSet_For_dr() : conn.Close()
+                If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_修改圖片庫一1_測試()
+                Else : SQL_修改圖片庫一1_正式() : End If : CmdSet_For_dr() : conn.Close()
                 '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
                 Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
                 frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
@@ -119,36 +78,26 @@ Public Class 鞋型圖片資料庫
             End If
             MsgBox("修改完成")
             Set_圖片清單() : Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
         Try
             aa1 = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
             If aa1 = MsgBoxResult.Ok Then
-                SQL_刪除圖片庫一() : conn.Close()
-                MsgBox("刪除完成")
-            End If
-            Set_圖片清單() : Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+                SQL_刪除圖片庫一() : conn.Close() : MsgBox("刪除完成")
+            End If : Set_圖片清單() : Set_grid()
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 更新清單_bt.Click
+    Private Sub 更新清單_bt_Click(sender As Object, e As EventArgs) Handles 更新清單_bt.Click
         Set_圖片清單() : Set_grid()
     End Sub
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
+    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
         Try
             PA = InputBox("請輸入關鍵字")
-            Set_DGV1載入前設定()
-            SQL_查詢圖片庫一()
-            Set_DGV1載入後設定() : Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+            Set_DGV1載入前設定() : SQL_查詢圖片庫一() : Set_DGV1載入後設定() : Set_grid()
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料_ch.Click
+    Private Sub 全部資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料_ch.Click
         Try
             If 全部資料_ch.Checked = True Then
                 全部資料_ch.Checked = True : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -159,11 +108,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_BW_ch.Click
+    Private Sub 開發_BW_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_BW_ch.Click
         Try
             If 開發_BW_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = True : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -176,11 +123,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_ILR_ch.Click
+    Private Sub 開發_ILR_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_ILR_ch.Click
         Try
             If 開發_ILR_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = True : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -193,11 +138,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_FLR_ch.Click
+    Private Sub 開發_FLR_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_FLR_ch.Click
         Try
             If 開發_FLR_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = True : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -210,11 +153,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_SMS_ch.Click
+    Private Sub 開發_SMS_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_SMS_ch.Click
         Try
             If 開發_SMS_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = True : 開發_SMU_ch.Checked = False
@@ -227,11 +168,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_SMU_ch.Click
+    Private Sub 開發_SMU_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 開發_SMU_ch.Click
         Try
             If 開發_SMU_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = True
@@ -244,11 +183,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles 確認_BW_ch.Click
+    Private Sub 確認_BW_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 確認_BW_ch.Click
         Try
             If 確認_BW_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -261,11 +198,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles 確認_彩圖_ch.Click
+    Private Sub 確認_彩圖_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 確認_彩圖_ch.Click
         Try
             If 確認_彩圖_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -278,11 +213,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles 確認_產地標_ch.Click
+    Private Sub 確認_產地標_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 確認_產地標_ch.Click
         Try
             If 確認_產地標_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -295,11 +228,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles 中底LOGO_ch.Click
+    Private Sub 中底LOGO_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中底LOGO_ch.Click
         Try
             If 中底LOGO_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -312,11 +243,9 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles 其他LOGO_ch.Click
+    Private Sub 其他LOGO_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 其他LOGO_ch.Click
         Try
             If 其他LOGO_ch.Checked = True Then
                 全部資料_ch.Checked = False : 開發_BW_ch.Checked = False : 開發_ILR_ch.Checked = False : 開發_FLR_ch.Checked = False : 開發_SMS_ch.Checked = False : 開發_SMU_ch.Checked = False
@@ -329,12 +258,10 @@ Public Class 鞋型圖片資料庫
                 確認_BW_ch.Checked = False : 確認_彩圖_ch.Checked = False : 確認_產地標_ch.Checked = False : 中底LOGO_ch.Checked = False : 其他LOGO_ch.Checked = False
                 Set_圖片清單() : Set_grid()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
 
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 下載圖片_bt.Click
+    Private Sub 下載圖片_bt_Click(sender As Object, e As EventArgs) Handles 下載圖片_bt.Click
         Try
             If TextBox1.Text = "" Then
                 MsgBox("選擇要下載的圖片")
@@ -361,12 +288,9 @@ Public Class 鞋型圖片資料庫
                 檔案名稱_tb.Text = ""
                 MsgBox("下載完成")
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-
-    Private Sub TextBox4_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
+    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
         Try
             If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                 Dim files As String()
@@ -401,19 +325,13 @@ Public Class 鞋型圖片資料庫
                     End If
                 Next
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
-    Private Sub TextBox4_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
+    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
         Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
-        For Each file As String In files
-            檔案名稱_tb.AppendText(file + Environment.NewLine)
-        Next
+        For Each file As String In files : 檔案名稱_tb.AppendText(file + Environment.NewLine) : Next
     End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-        End If
+    Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath) : End If
     End Sub
 End Class

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/驗貨報告圖片導入資料庫.vb

@@ -110,12 +110,8 @@ Public Class 驗貨報告圖片導入資料庫
             End If
 
 
-            If Strings.Left(Target1, 18) = "ftp://106.1.50.79/" Then
-                SQL_新增驗貨報告編號()
-            Else
-                SQL_新增驗貨報告圖庫()
-            End If
-            conn.Close()
+            If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_新增驗貨報告編號_測試()
+            Else : SQL_新增驗貨報告圖庫_正式() : End If : conn.Close()
 
             DTP = Format(驗貨日期_dtp.Value, "yyyy/MM/dd")
             SQL_修改驗貨報告圖庫() : conn.Close()

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/驗貨報告資料庫.vb

@@ -282,7 +282,8 @@ Public Class 驗貨報告資料庫
                 If TextBox6.Text = "" Then
                     MsgBox("請確認圖片已準備完畢")
                 Else
-                    SQL_修改驗貨報告圖庫1() : conn.Close()
+                    If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_修改驗貨報告圖庫1_測試()
+                    Else : SQL_修改驗貨報告圖庫1_正式() : End If : conn.Close()
                     '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
                     Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
                     frq = CType(WebRequest.Create(New Uri(Target1 & TextBox6.Text)), FtpWebRequest)

TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.Designer.vb

@@ -22,12 +22,12 @@ Partial Class 中文樣品單
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        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()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        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()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
@@ -459,9 +459,9 @@ Partial Class 中文樣品單
         '
         Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox2.Location = New System.Drawing.Point(670, 4)
+        Me.PictureBox2.Location = New System.Drawing.Point(670, 3)
         Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(343, 208)
+        Me.PictureBox2.Size = New System.Drawing.Size(343, 209)
         Me.PictureBox2.TabIndex = 200
         Me.PictureBox2.TabStop = False
         '
@@ -484,8 +484,8 @@ Partial Class 中文樣品單
         '
         '清單_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -690,8 +690,8 @@ Partial Class 中文樣品單
         '
         '圖片1_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.圖片1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.圖片1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         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(1016, 4)
@@ -703,15 +703,15 @@ Partial Class 中文樣品單
         '
         '圖片2_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.圖片2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.圖片2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         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(1016, 4)
         Me.圖片2_dgv.Name = "圖片2_dgv"
         Me.圖片2_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.圖片2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.圖片2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.圖片2_dgv.RowTemplate.Height = 24
         Me.圖片2_dgv.Size = New System.Drawing.Size(900, 208)
         Me.圖片2_dgv.TabIndex = 343
@@ -1166,8 +1166,8 @@ Partial Class 中文樣品單
         '
         '圖片4_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.圖片4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.圖片4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         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(1016, 4)
@@ -1264,8 +1264,8 @@ Partial Class 中文樣品單
         '
         '圖片3_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.圖片3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.圖片3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
         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(1016, 4)

TENDEN-MES-SYS/製鞋技術資料管理/STYLE_資料管理.Designer.vb

@@ -22,11 +22,11 @@ Partial Class STYLE_資料管理
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 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()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.STYLE_dgv = New System.Windows.Forms.DataGridView()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.形體名稱_tb = New System.Windows.Forms.TextBox()
@@ -78,6 +78,7 @@ Partial Class STYLE_資料管理
         Me.WT_dtp = New System.Windows.Forms.DateTimePicker()
         Me.Label16 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
         CType(Me.STYLE_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.项目编号清单_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.订单形體號清单_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -86,12 +87,13 @@ Partial Class STYLE_資料管理
         Me.Panel1.SuspendLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'STYLE_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.STYLE_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.STYLE_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.STYLE_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.STYLE_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.STYLE_dgv.Location = New System.Drawing.Point(4, 104)
@@ -249,19 +251,19 @@ Partial Class STYLE_資料管理
         '
         '订单形體號清单_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.订单形體號清单_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.订单形體號清单_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.订单形體號清单_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.订单形體號清单_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle8.ForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.订单形體號清单_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.订单形體號清单_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
         Me.订单形體號清单_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.订单形體號清单_dgv.Location = New System.Drawing.Point(4, 27)
         Me.订单形體號清单_dgv.Name = "订单形體號清单_dgv"
@@ -284,8 +286,8 @@ Partial Class STYLE_資料管理
         '
         '订单形體號清单1_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.订单形體號清单1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.订单形體號清单1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.订单形體號清单1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.订单形體號清单1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -299,8 +301,8 @@ Partial Class STYLE_資料管理
         '
         '订单形體號清单2_dgv
         '
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.订单形體號清单2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.订单形體號清单2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.订单形體號清单2_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.订单形體號清单2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -609,11 +611,22 @@ Partial Class STYLE_資料管理
         Me.PictureBox1.TabIndex = 1659
         Me.PictureBox1.TabStop = False
         '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox2.Location = New System.Drawing.Point(1084, 2)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(160, 99)
+        Me.PictureBox2.TabIndex = 1660
+        Me.PictureBox2.TabStop = False
+        '
         'STYLE_資料管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1485, 701)
+        Me.Controls.Add(Me.PictureBox2)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.WT清空_bt)
         Me.Controls.Add(Me.WT_dtp)
@@ -666,6 +679,7 @@ Partial Class STYLE_資料管理
         Me.Panel1.PerformLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -722,5 +736,6 @@ Partial Class STYLE_資料管理
     Friend WithEvents WT_dtp As DateTimePicker
     Friend WithEvents Label16 As Label
     Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents PictureBox2 As PictureBox
 End Class
 

TENDEN-MES-SYS/製鞋技術資料管理/STYLE_資料管理.vb

@@ -268,10 +268,9 @@ Public Class STYLE_資料管理
             SQL_STYLE形體名稱()
             Set_DGV2載入後設定() : Set_grid2()
 
-            conn.Close()
-            ConnOpen()
+            conn.Close() : ConnOpen()
             SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 
-                    WHERE 形體號 LIKE '" & STYLE_dgv("形體號碼", e.RowIndex).Value.ToString & "' AND (類型 NOT LIKE '確認-產地標') AND (類型 NOT LIKE '%LOGO')
+                    WHERE 形體號 LIKE '" & STYLE_dgv("形體號碼", e.RowIndex).Value.ToString & "' AND (類型 LIKE '開發%')
                     ORDER　BY 類型"
             CmdSet_For_dr()
             PictureBox1.Image = Nothing
@@ -280,6 +279,18 @@ Public Class STYLE_資料管理
                 Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
             End While
             conn.Close() : PictureBox1.SizeMode = 4
+
+            conn.Close() : ConnOpen()
+            SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 
+                    WHERE 形體號 LIKE '" & STYLE_dgv("形體號碼", e.RowIndex).Value.ToString & "' AND (類型 LIKE '確認%') AND (類型 NOT LIKE '確認-產地標')
+                    ORDER　BY 類型"
+            CmdSet_For_dr()
+            PictureBox2.Image = Nothing
+            While dr.Read() = True
+                Dim unused1 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes) : PictureBox2.Image = Bitmap.FromStream(oStream)
+            End While
+            conn.Close() : PictureBox2.SizeMode = 4
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try