20220314備份

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

@@ -1453,5 +1453,135 @@
         SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE 'SMU') AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND 
                               (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') " & 結尾SQL
     End Sub
+    Friend Sub SQL_季節改動()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_季節改動1()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_季節改動2()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_季節改動3()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_季節改動4()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋1()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋2()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') AND 
+                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋3()
+        SQL1 = 確認SQL & "AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋4()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋5()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') AND 
+                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋6()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND 
+                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋7()
+        SQL1 = 確認SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND 
+                                      (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋8()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋9()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋10()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') AND 
+                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋11()
+        SQL1 = 開發SQL & "AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋12()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋13()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') AND 
+                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋14()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND 
+                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    Friend Sub SQL_數量搜尋15()
+        SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.季節 LIKE '" & 中文樣品吊牌管理.季節_cb.Text & "') AND 
+                                      (確認樣品單抬頭.工廠 LIKE '" & 中文樣品吊牌管理.工廠_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+    End Sub
+    '-----------------------------中文確認樣品確認通知單----------------------------------------------------------------
+    Friend Sub SQL_讀取確認樣品清單()
+        SQL1 = "SELECT  確認樣品單抬頭.季節, 確認樣品單抬頭.型體名, 確認樣品單抬頭.型體號碼, 確認樣品單控制表.顏色, 確認樣品單控制表.訂單顏色, 確認樣品單控制表.SIZE, 確認樣品單控制表.PO, 
+                        確認樣品單控制表.DATE, 確認樣品單控制表.FROMS, 確認樣品單控制表.Ship_Date, 確認樣品單控制表.FACTORY, 確認樣品單控制表.確認結果1 AS 確認, 確認樣品單控制表.確認結果2, 
+                        確認樣品單控制表.確認結果3, 確認樣品單控制表.注意, 確認樣品單控制表.確認通知單鞋圖, 確認樣品單控制表.樣品流水號一 
+                FROM    確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 
+                        確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 WHERE 確認樣品單抬頭.部門 Like '確認' 
+               ORDER BY 確認樣品單抬頭.季節, 確認樣品單抬頭.型體名, 確認樣品單抬頭.型體號碼, 確認樣品單控制表.顏色"
+    End Sub
+    Friend Sub SQL_讀取圖片清單()
+        SQL1 = "Select 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 Not Like '%產地標' AND 類型 LIKE '確認%' ORDER BY   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_讀取圖片庫一()
+        ConnOpen()
+        SQL1 = "SELECT 圖片 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & 中文確認樣品確認通知單.TextBox10.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_讀取搜尋圖片()
+        SQL1 = "SELECT     形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 
+                WHERE      類型 NOT LIKE '%產地標' AND 類型 LIKE '確認%' AND (形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 顏色 LIKE '%" & PA & "%') 
+                ORDER BY   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_讀取搜尋圖片1()
+        SQL1 = "SELECT  確認樣品單抬頭.季節, 確認樣品單抬頭.型體名, 確認樣品單抬頭.型體號碼, 確認樣品單控制表.顏色, 確認樣品單控制表.訂單顏色, 確認樣品單控制表.SIZE, 確認樣品單控制表.PO, 
+                        確認樣品單控制表.DATE, 確認樣品單控制表.FROMS, 確認樣品單控制表.Ship_Date, 確認樣品單控制表.FACTORY, 確認樣品單控制表.確認結果1 AS 確認, 確認樣品單控制表.確認結果2, 
+                        確認樣品單控制表.確認結果3, 確認樣品單控制表.注意, 確認樣品單控制表.確認通知單鞋圖, 確認樣品單控制表.樣品流水號一 
+                FROM    確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
+                WHERE   確認樣品單抬頭.部門 LIKE '確認' AND (確認樣品單抬頭.季節 LIKE '%" & PA & "%' OR 確認樣品單抬頭.型體名 LIKE '%" & PA & "%' OR 
+                        確認樣品單抬頭.型體號碼 LIKE '%" & PA & "%' OR 確認樣品單控制表.顏色 LIKE '%" & PA & "%' OR 確認樣品單控制表.訂單顏色 LIKE '%" & PA & "%' OR 
+                        確認樣品單控制表.SIZE LIKE '%" & PA & "%' OR 確認樣品單控制表.PO LIKE '%" & PA & "%') 
+               ORDER BY 確認樣品單抬頭.季節, 確認樣品單抬頭.型體名, 確認樣品單抬頭.型體號碼, 確認樣品單控制表.顏色"
+    End Sub
+    Friend Sub SQL_修改通知單存檔()
+        SQL1 = "UPDATE 確認樣品單控制表 SET SIZE = N'" & 中文確認樣品確認通知單.SIZE_tb.Text & "', " &
+                                                     "PO = N'" & 中文確認樣品確認通知單.PO_tb.Text & "', " &
+                                                   "DATE = '" & Format(中文確認樣品確認通知單.DATE_dtp.Value, "yyyy/MM/dd") & "', " &
+                                                  "FROMS = '天盾/" & gUserName & "', " &
+                                              "Ship_Date = '" & Format(中文確認樣品確認通知單.Ship_Date_dtp.Value, "yyyy/MM/dd") & "', " &
+                                                "FACTORY = N'" & 中文確認樣品確認通知單.FACTORY_dtp.Text & "', " &
+                                              "確認結果1 = '" & 中文確認樣品確認通知單.確認通過_ch.Checked & "', " &
+                                              "確認結果2 = '" & 中文確認樣品確認通知單.不通過重新打樣_ch.Checked & "', " &
+                                              "確認結果3 = '" & 中文確認樣品確認通知單.通過重新打樣_ch.Checked & "', " &
+                                                   "注意 = N'" & 中文確認樣品確認通知單.注意_tb.Text & "', " &
+                                         "確認通知單鞋圖 = '" & 中文確認樣品確認通知單.TextBox10.Text & "' " &
+                       "WHERE 樣品流水號一 LIKE '" & 中文確認樣品確認通知單.TextBox11.Text & "'"
+    End Sub
+    Friend Sub SQL_修改通知單存檔1()
+        SQL1 = "UPDATE 確認樣品單控制表 SET SIZE = N'" & 中文確認樣品確認通知單.SIZE_tb.Text & "', " &
+                                                     "PO = N'" & 中文確認樣品確認通知單.PO_tb.Text & "', " &
+                                                   "DATE = '" & Format(中文確認樣品確認通知單.DATE_dtp.Value, "yyyy/MM/dd") & "', " &
+                                              "Ship_Date = '" & Format(中文確認樣品確認通知單.Ship_Date_dtp.Value, "yyyy/MM/dd") & "', " &
+                                                "FACTORY = N'" & 中文確認樣品確認通知單.FACTORY_dtp.Text & "', " &
+                                              "確認結果1 = '" & 中文確認樣品確認通知單.確認通過_ch.Checked & "', " &
+                                              "確認結果2 = '" & 中文確認樣品確認通知單.不通過重新打樣_ch.Checked & "', " &
+                                              "確認結果3 = '" & 中文確認樣品確認通知單.通過重新打樣_ch.Checked & "', " &
+                                                   "注意 = N'" & 中文確認樣品確認通知單.注意_tb.Text & "', " &
+                                         "確認通知單鞋圖 = '" & 中文確認樣品確認通知單.TextBox10.Text & "' " &
+                       "WHERE 樣品流水號一 LIKE '" & 中文確認樣品確認通知單.TextBox11.Text & "'"
+    End Sub
 End Module
 

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 = "2022022201"
+    Public 版本 As String = "2022022301"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 

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

@@ -0,0 +1,271 @@
+Module 圖片資料庫管理
+    '----------------------驗貨報告資料庫修正-----------------------------
+    Friend Sub SQL_驗貨報告圖庫()
+        ConnOpen()
+        SQL1 = "SELECT 客戶訂單號, 型體名稱, 驗貨報告編號 FROM 驗貨報告圖庫 WHERE (客戶訂單號 LIKE '%" & 驗貨報告資料庫修正.客戶訂單號_tb.Text & "%')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_訂單控制表1()
+        ConnOpen()
+        SQL1 = "SELECT   訂單流水號, 年份季度, 客戶訂單號, 形體號, 驗貨報告圖片 FROM 訂單控制表
+                WHERE   (客戶訂單號 LIKE '%" & 驗貨報告資料庫修正.客戶訂單號_tb.Text & "%') AND (形體號 LIKE N'" & 驗貨報告資料庫修正.型體名稱_tb.Text & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_訂單控制表修改()
+        ConnOpen()
+        SQL1 = "UPDATE 訂單控制表 SET 驗貨報告圖片 = N'" & 驗貨報告資料庫修正.驗貨報告編號_tb.Text & "'
+                    WHERE   (客戶訂單號 LIKE N'" & PA & "') AND (形體號 LIKE N'" & PA1 & "')"
+        CmdSet_For_dr()
+    End Sub
+    '---------------------------驗貨報告圖片導入資料庫--------------------------------------------------------------
+    Friend Sub SQL_訂單清單()
+        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 生產工廠, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 驗貨報告圖片, 力威訂單號 FROM " & 訂單資料表(1) & " 
+                WHERE (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (驗貨時間 LIKE '') ORDER BY   SUBSTRING(訂單流水號, 4, 6), 客戶訂單號, 形體號"
+    End Sub
+    Friend Sub SQL_訂單清單查詢()
+        SQL1 = "SELECT   訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 生產工廠, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 驗貨報告圖片 FROM " & 訂單資料表(1) & " 
+                WHERE   (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (驗貨時間 LIKE '') AND (訂單流水號 LIKE '%" & PA & "%' OR 年份季度 LIKE '%" & PA & "%' OR 
+                         客戶訂單號 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 生產工廠 LIKE '%" & PA & "%' OR 力威訂單號 LIKE '%" & PA & "%') 
+                ORDER BY SUBSTRING(訂單流水號, 4, 6), 客戶訂單號, 形體號"
+    End Sub
+    Friend Sub SQL_查詢最後一筆驗貨報告編號()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 驗貨報告編號 FROM 驗貨報告圖庫 ORDER BY 驗貨報告編號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    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"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增驗貨報告圖庫()
+        ConnOpen()
+        SQL1 = "INSERT INTO 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) 
+                        SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "','" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', 
+                        BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改驗貨報告圖庫()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(1) & " SET 驗貨時間 = '" & DTP & "', 驗貨報告圖片 = '" & 驗貨報告圖片導入資料庫.TextBox3.Text & "' 
+                    WHERE (訂單流水號 LIKE '" & 驗貨報告圖片導入資料庫.天盾訂單號_tb.Text & "' AND 客戶訂單號 = '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "' AND 形體號 = '" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    '------------------------------------------------驗貨報告資料庫-------------------------------------
+    Friend Sub SQL_驗貨報告圖庫清單()
+        SQL1 = "SELECT     " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色,  驗貨報告圖庫.驗貨報告編號 
+                FROM       驗貨報告圖庫 INNER JOIN " & 訂單資料表(1) & " ON 驗貨報告圖庫.客戶訂單號 = " & 訂單資料表(1) & ".客戶訂單號 
+                GROUP BY   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色, 驗貨報告圖庫.驗貨報告編號 
+                ORDER BY   驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱"
+    End Sub
+    Friend Sub SQL_驗貨報告圖庫查詢()
+        ConnOpen()
+        SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_驗貨報告圖庫查詢1()
+        SQL1 = "SELECT   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色,  驗貨報告圖庫.驗貨報告編號 
+                FROM     驗貨報告圖庫 LEFT OUTER JOIN " & 訂單資料表(1) & " ON 驗貨報告圖庫.客戶訂單號 = " & 訂單資料表(1) & ".客戶訂單號 
+                WHERE    " & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%' OR " &
+                             "" & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%' OR 驗貨報告圖庫.客戶訂單號 LIKE '%" & PA & "%' OR 驗貨報告圖庫.型體名稱 LIKE '%" & PA & "%' 
+                GROUP BY " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色, 驗貨報告圖庫.驗貨報告編號 
+                ORDER BY 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱"
+    End Sub
+    Friend Sub SQL_驗貨報告圖庫3()
+        ConnOpen()
+        SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
+        CmdSet_For_DGV()
+    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 & "')"
+        CmdSet_For_dr()
+    End Sub
+    '--------------------保證書出貨統計資料---------------------------------------------------------
+    Friend Sub SQL_保證書出貨清單()
+        ConnOpen()
+        SQL1 = "SELECT 驗貨報告圖庫.操作人, 訂單控制表.訂單流水號, 訂單控制表.年份季度, 訂單控制表.客戶訂單號, 訂單控制表.形體號 AS 型體名稱, 訂單控制表.TVW AS 形體號碼, 訂單控制表.顏色, " &
+                   "訂單控制表.楦型, 訂單控制表.訂單數量, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.工廠回復交期, 訂單控制表.裁斷時間, 訂單控制表.針車時間, 訂單控制表.成型時間, " &
+                   "訂單控制表.驗貨時間, 訂單控制表.實際離廠日, 訂單控制表.東莞業務備註, 訂單控制表.驗貨報告圖片 FROM 驗貨報告圖庫 LEFT OUTER JOIN 訂單控制表 ON 驗貨報告圖庫.型體名稱 = " &
+                   "訂單控制表.形體號 AND 驗貨報告圖庫.客戶訂單號 = 訂單控制表.客戶訂單號 WHERE (驗貨報告圖庫.操作人 LIKE 'Sammi') ORDER BY   訂單控制表.客戶訂單號 DESC, 型體名稱"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_驗貨報告()
+        ConnOpen()
+        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA & "'"
+        CmdSet_For_dr()
+    End Sub
+    '-------------------------驗貨報告大圖---------------------------------------------------
+    Friend Sub SQL_驗貨報告1()
+        ConnOpen()
+        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告 & "'"
+        CmdSet_For_dr()
+    End Sub
+    '----------------------鞋型圖片導入資料庫---------------------------------------------------
+    Friend Sub SQL_訂單控制表清單()
+        SQL1 = "SELECT 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼  
+                FROM   訂單控制表形體號清單 FULL OUTER JOIN STYLELIST ON 訂單控制表形體號清單.形體號 = STYLELIST.ProductName ORDER BY   形體名稱"
+    End Sub
+    Friend Sub SQL_訂單控制表顏色清單()
+        SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 ORDER BY 顏色"
+    End Sub
+    Friend Sub SQL_TVW清單()
+        SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 ORDER BY 形體號"
+    End Sub
+    Friend Sub SQL_訂單控制表形體號清單()
+        SQL1 = "SELECT 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼  
+                FROM   訂單控制表形體號清單 FULL OUTER JOIN STYLELIST ON 訂單控制表形體號清單.形體號 = STYLELIST.ProductName 
+                WHERE  訂單控制表形體號清單.形體號 LIKE '%" & PP1 & "%' OR STYLELIST.Style  LIKE '%" & PP2 & "%' ORDER BY   形體名稱"
+    End Sub
+    Friend Sub SQL_訂單控制表TVW清單()
+        SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 WHERE 形體號 LIKE '" & PA & "' ORDER BY 形體號"
+    End Sub
+    Friend Sub SQL_訂單控制表TVW清單1()
+        SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 WHERE (顏色 LIKE '%" & PP3 & "%') ORDER BY 顏色"
+    End Sub
+    Friend Sub SQL_訂單控制表TVW清單2()
+        SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 WHERE 形體號 LIKE '%" & PA & "%' ORDER BY 形體號"
+    End Sub
+    Friend Sub SQL_訂單控制表形體號清單3()
+        SQL1 = "SELECT   訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼  
+                FROM     訂單控制表形體號清單 FULL OUTER JOIN STYLELIST ON 訂單控制表形體號清單.形體號 = STYLELIST.ProductName 
+                WHERE    訂單控制表形體號清單.形體號 LIKE '%" & PA & "%' OR STYLELIST.Style  LIKE '%" & PA & "%' " &
+               "ORDER BY 形體名稱"
+    End Sub
+    Friend Sub SQL_查詢顏色()
+        SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 WHERE (顏色 LIKE '%" & PA & "%') ORDER BY 顏色"
+    End Sub
+    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 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢最後一筆圖片編號()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 圖片編號 FROM 圖片庫一 ORDER BY 圖片編號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增圖片庫一()
+        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 圖片) 
+                            SELECT '" & 鞋型圖片導入資料庫.Style_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "','" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.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 & "', 
+                                BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+    End Sub
+    '------------------------------鞋型圖片資料庫-------------------------------------------------------------------------------
+    Friend Sub SQL_圖片庫一清單()
+        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 ORDER BY   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_指定圖片庫一()
+        ConnOpen()
+        SQL1 = "SELECT 圖片 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & 鞋型圖片資料庫.TextBox1.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改圖片庫一()
+        SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "' 
+                    WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
+    End Sub
+    Friend Sub SQL_修改圖片庫一1()
+        SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "', 
+                           圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
+    End Sub
+    Friend Sub SQL_刪除圖片庫一()
+        ConnOpen()
+        SQL1 = "DELETE FROM 圖片庫一 WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢圖片庫一()
+        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   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_查詢圖片庫一ILR()
+        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   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_查詢圖片庫一SMS()
+        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   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_確定圖片庫一BW()
+        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_BW_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_確定圖片庫一彩圖()
+        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_彩圖_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_確定圖片庫一產地標()
+        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   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_確定圖片庫一其他LOGO()
+        SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.其他LOGO_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
+    End Sub
+    Friend Sub SQL_圖片庫一圖片編號()
+        ConnOpen()
+        SQL1 = "SELECT 圖片 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & 鞋型圖片資料庫.TextBox1.Text & "'"
+        CmdSet_For_DGV()
+    End Sub
+    '----------------------楦頭圖片資料庫------------------------------------------------------------------------
+    Friend Sub SQL_楦頭圖片庫()
+        SQL1 = "SELECT 楦頭編號, 楦頭圖片編號 FROM 楦頭圖片庫 ORDER BY 楦頭圖片編號"
+    End Sub
+    Friend Sub SQL_楦頭圖片編號()
+        ConnOpen()
+        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE '" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_楦頭圖片查詢()
+        SQL1 = "SELECT 楦頭編號, 楦頭圖片編號 FROM 楦頭圖片庫 WHERE (楦頭編號 LIKE '%" & PA & "%') ORDER BY   楦頭圖片編號"
+    End Sub
+    Friend Sub SQL_楦頭圖片庫清單()
+        ConnOpen()
+        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "'"
+        CmdSet_For_DGV()
+    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 & "')"
+        CmdSet_For_dr()
+    End Sub
+    '---------------楦頭圖片導入資料庫-----------------------------------------------------
+    Friend Sub SQL_楦頭規格控制表()
+        SQL1 = "SELECT 楦頭規格控制表.楦頭編號, 楦頭圖片庫.楦頭圖片編號 FROM 楦頭規格控制表 LEFT OUTER JOIN 楦頭圖片庫 ON 楦頭規格控制表.楦頭編號 = 楦頭圖片庫.楦頭編號 
+                WHERE (楦頭圖片庫.楦頭圖片編號 IS NULL) ORDER BY 楦頭規格控制表.楦頭編號"
+    End Sub
+    Friend Sub SQL_查詢楦頭規格控制表()
+        SQL1 = "SELECT 楦頭規格控制表.楦頭編號, 楦頭圖片庫.楦頭圖片編號 FROM 楦頭規格控制表 LEFT OUTER JOIN 楦頭圖片庫 ON 楦頭規格控制表.楦頭編號 = 楦頭圖片庫.楦頭編號 
+                WHERE (楦頭圖片庫.楦頭圖片編號 IS NULL) AND (楦頭規格控制表.楦頭編號 LIKE '%" & PA & "%') ORDER BY   楦頭規格控制表.楦頭編號"
+    End Sub
+    Friend Sub SQL_查詢楦頭編號()
+        ConnOpen()
+        SQL1 = "SELECT 楦頭編號 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE '" & 楦頭圖片導入資料庫.楦頭編號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢最後一筆楦頭編號()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 楦頭圖片編號 FROM 楦頭圖片庫 ORDER BY 楦頭圖片編號 DESC"
+        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"
+        CmdSet_For_dr()
+    End Sub
+End Module

TENDEN-MES-SYS/Module/彙總報表管理.vb

@@ -0,0 +1,311 @@
+Module 彙總報表管理
+    '--------------------訂單分析報表-----------------------------------
+    Friend Sub SQL_圖片資料庫()
+        ConnOpen()
+        SQL1 = "SELECT 類型, COUNT(圖片編號) AS 圖片數量 FROM 圖片庫一 GROUP BY   類型 ORDER BY   類型"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_中文樣品單資料庫()
+        ConnOpen()
+        SQL1 = "SELECT   季節, 工廠, 階段, COUNT(樣品流水號) AS 樣品單數, SUM(資料筆數) AS 顏色筆數 FROM (SELECT 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 
+                         確認樣品單抬頭.樣品流水號, COUNT(確認樣品單控制表.樣品流水號一) AS 資料筆數 
+                FROM     確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
+                WHERE    確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "' GROUP BY 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號) AS Q 
+                GROUP BY 季節, 工廠, 階段 ORDER BY 階段, 工廠"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_掛牌資料庫()
+        ConnOpen()
+        SQL1 = "SELECT   季節, 工廠, 階段, COUNT(樣品流水號) AS 樣品數量, SUM(掛牌數量) AS 吊牌數量 
+                FROM    (SELECT   確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號, COUNT(確認樣品單控制表.掛牌Color) AS 掛牌數量 
+                         FROM     確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
+                         WHERE   (確認樣品單控制表.掛牌Color IS NOT NULL) AND (確認樣品單控制表.掛牌Color NOT LIKE '') AND (確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "') 
+                         GROUP BY 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號) AS Q 
+                GROUP BY 季節, 工廠, 階段 ORDER BY 階段, 工廠"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_確認通知書()
+        ConnOpen()
+        SQL1 = "SELECT  確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單控制表.確認結果1 AS 通過, 確認樣品單控制表.確認結果3 AS 通過需重新打樣 
+                FROM    確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
+                WHERE ((確認樣品單控制表.確認結果1 LIKE '1') OR (確認樣品單控制表.確認結果3 LIKE '1')) AND (確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_量產樣品控制表未出貨數()
+        ConnOpen()
+        SQL1 = "SELECT   年份, Sample_Type, FTY, COUNT(Style) AS 樣品單數, SUM(資料筆數) AS 顏色筆數, SUM(總雙數) AS 總雙數 
+                FROM    (SELECT 年份, Sample_Type, FTY, Style, COUNT(Style) AS 資料筆數, SUM(QTY) AS 總雙數 FROM 量產樣品控制表 
+                         WHERE (CXL = 0) AND (QTY - 出貨數量 <> 0) AND (年份 LIKE '" & 訂單分析報表.季度_cb.Text & "') GROUP BY 年份, Sample_Type, FTY, Style) AS Q 
+                GROUP BY 年份, Sample_Type, FTY"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_CXL數()
+        ConnOpen()
+        SQL1 = "SELECT   年份, Sample_Type, FTY, COUNT(Style) AS 樣品單數, SUM(資料筆數) AS 顏色筆數, SUM(總雙數) AS 總雙數 
+                FROM    (SELECT 年份, Sample_Type, FTY, Style, COUNT(Style) AS 資料筆數, SUM(QTY) AS 總雙數 
+                         FROM 量產樣品控制表 WHERE (CXL = 1) AND (年份 LIKE '" & 訂單分析報表.季度_cb.Text & "') GROUP BY 年份, Sample_Type, FTY, Style) AS Q 
+                GROUP BY 年份, Sample_Type, FTY"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_量產樣品控制表已出貨數()
+        ConnOpen()
+        SQL1 = "SELECT   年份, Sample_Type, FTY, COUNT(Style) AS 樣品單數, SUM(資料筆數) AS 顏色筆數, SUM(總雙數) AS 總雙數 
+                FROM    (SELECT 年份, Sample_Type, FTY, Style, COUNT(Style) AS 資料筆數, SUM(QTY) AS 總雙數 FROM 量產樣品控制表 
+                         WHERE (CXL = 0) AND (QTY - 出貨數量 = 0) AND (年份 LIKE '" & 訂單分析報表.季度_cb.Text & "') GROUP BY 年份, Sample_Type, FTY, Style) AS Q 
+                GROUP BY 年份, Sample_Type, FTY"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_訂單控制表未出貨數()
+        ConnOpen()
+        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
+            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
+                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
+                             WHERE (年份季度 LIKE '" & 訂單分析報表.季度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) GROUP BY LEFT(客戶交期, 7), 
+                                    LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
+                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
+        Else
+            If 訂單分析報表.依客戶交期_rb.Checked = True Then
+                條件 = "客戶交期"
+            Else
+                條件 = "工廠回復交期"
+            End If
+            SQL1 = "SELECT 交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
+                    FROM (SELECT LEFT(" & 條件 & ", 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
+                          WHERE (LEFT(" & 條件 & ", 4) LIKE '" & 訂單分析報表.年度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) 
+                          GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
+                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
+        End If
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_訂單控制表已出貨數()
+        ConnOpen()
+        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
+            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
+                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
+                             WHERE (年份季度 LIKE '" & 訂單分析報表.季度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 = 0) GROUP BY LEFT(客戶交期, 7), 
+                                    LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
+                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
+        Else
+            If 訂單分析報表.依客戶交期_rb.Checked = True Then
+                條件 = "客戶交期"
+            Else
+                條件 = "工廠回復交期"
+            End If
+            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
+                    FROM    (SELECT   LEFT(" & 條件 & ", 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
+                             WHERE   (LEFT(" & 條件 & ", 4) LIKE '" & 訂單分析報表.年度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 = 0) 
+                             GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
+                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
+        End If
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_訂單控制表CXL數()
+        ConnOpen()
+        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
+            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
+                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
+                             WHERE (年份季度 LIKE '" & 訂單分析報表.季度_cb.Text & "%') AND (CXL = 1) GROUP BY LEFT(客戶交期, 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
+                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
+        Else
+            If 訂單分析報表.依客戶交期_rb.Checked = True Then
+                條件 = "客戶交期"
+            Else
+                條件 = "工廠回復交期"
+            End If
+            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
+                    FROM    (SELECT LEFT(" & 條件 & ", 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
+                             WHERE (LEFT(" & 條件 & ", 4) LIKE '" & 訂單分析報表.年度_cb.Text & "%') AND (CXL = 1) GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
+                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
+        End If
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_下拉年份季度()
+        ConnOpen()
+        SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC"
+        CmdSet_For_dr()
+    End Sub
+    '-----------------------形體分析報表--------------------------------
+    Friend Sub SQL_每種形體有賺頭前50名()
+        ConnOpen()
+        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
+                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
+                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
+                FROM        訂單價格利潤明細表 FULL OUTER JOIN
+                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
+                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
+                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
+                GROUP BY   訂單控制表.形體號
+                ORDER BY   加權平均利潤 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_每種形體做爽的倒數50名()
+        ConnOpen()
+        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
+                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
+                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
+                FROM        訂單價格利潤明細表 FULL OUTER JOIN
+                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
+                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
+                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
+                GROUP BY   訂單控制表.形體號
+                ORDER BY   加權平均利潤"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_每種形體數量大前50名()
+        ConnOpen()
+        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
+                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
+                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
+                FROM        訂單價格利潤明細表 FULL OUTER JOIN
+                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
+                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
+                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
+                GROUP BY   訂單控制表.形體號
+                ORDER BY   訂單數量 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_每種形體開發來玩的倒數50名()
+        ConnOpen()
+        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
+                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
+                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
+                FROM        訂單價格利潤明細表 FULL OUTER JOIN
+                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
+                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
+                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
+                GROUP BY   訂單控制表.形體號
+                ORDER BY   訂單數量"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_時間區間內有前途()
+        ConnOpen()
+        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
+                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
+                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
+                FROM        訂單價格利潤明細表 FULL OUTER JOIN
+                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
+                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
+                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
+                GROUP BY   訂單控制表.形體號
+                ORDER BY   利潤 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_時間區間內倒數50名聊尾仔()
+        ConnOpen()
+        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
+                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
+                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
+                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
+                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
+                FROM        訂單價格利潤明細表 FULL OUTER JOIN
+                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
+                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
+                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
+                GROUP BY   訂單控制表.形體號
+                ORDER BY   利潤"
+        CmdSet_For_DGV()
+    End Sub
+    '--------------------------NewUnitComparison--------------------------------------------------------
+    Friend Sub SQL_訂單控制表()
+        ConnOpen()
+        SQL1 = "SELECT 年度 AS YEAR, P, 開始日期 AS Start_date, 結束日期 AS Closing_date FROM NEW_U_C_時間間格 WHERE (年度 LIKE '" & NewUnitComparison.年度_cb.Text & "') ORDER BY 開始日期"
+        CmdSet_For_DGV()
+    End Sub
+    '-----------------------力威發票明細轉換工具-------------------------------------------
+    Friend Sub SQL_轉換前()
+        ConnOpen()
+        SQL1 = "SELECT 文字1, 文字2, 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'A%' ORDER BY 編號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_轉換後()
+        ConnOpen()
+        SQL1 = "SELECT 文字1, 文字2, 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'B%' ORDER BY 編號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_文件刪除()
+        ConnOpen() : SQL1 = "DELETE 文件轉換用1" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_編號()
+        ConnOpen() : SQL1 = "SELECT 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'A%' ORDER BY 編號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_文件轉換用2增加()
+        ConnOpen() : SQL1 = "INSERT INTO 文件轉換用1 (編號, 文字1, 文字2) VALUES (N'" & 力威發票明細轉換工具.流水帳_tb.Text & "', '', '')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢編號()
+        ConnOpen() : SQL1 = "SELECT 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'B%' ORDER BY 編號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_文件轉換用1增加()
+        ConnOpen()
+        SQL1 = "INSERT INTO 文件轉換用1 (編號, 文字1, 文字2) VALUES (N'" & 力威發票明細轉換工具.流水帳_tb.Text & "', N'" & PA2 & "', N'" & PA & "')"
+        CmdSet_For_dr()
+    End Sub
+    '-----------------------訂單分析比對工具_力威------------------------------
+    Friend Sub SQL_列印訂單分析()
+        ConnOpen()
+        SQL1 = "SELECT   訂單裝箱明細表.[" & PA3 & "] AS 數量
+                            FROM     訂單裝箱明細表 INNER JOIN 訂單控制表 ON 訂單裝箱明細表.天盾流水號 = 訂單控制表.訂單流水號 AND 
+                                     訂單裝箱明細表.客戶訂單號 = 訂單控制表.客戶訂單號 AND 訂單裝箱明細表.DM = 訂單控制表.楦型
+                            WHERE   (訂單裝箱明細表.客戶訂單號 LIKE '" & PA4 & "') AND (LEFT(訂單裝箱明細表.DM, 1) LIKE '" & PA5 & "') AND (訂單控制表.形體號 LIKE '" & PA1 & "') AND 
+                                    (訂單裝箱明細表.Item LIKE '" & PA7 & "') OR
+                                    (LEFT(訂單裝箱明細表.DM, 1) LIKE '" & PA5 & "') AND (訂單裝箱明細表.力威訂單號 LIKE '" & PA4 & "') AND (訂單控制表.形體號 LIKE '" & PA1 & "') AND 
+                                    (訂單裝箱明細表.Item LIKE '" & PA7 & "')"
+        CmdSet_For_dr()
+    End Sub
+    '--------------------訂單分析比對工具_Vionic----------------------------
+    Friend Sub SQL_訂單資料比對()
+        ConnOpen()
+        SQL1 = "SELECT      按鈕.BIT按鈕 AS 比對一, 按鈕.BIT按鈕 AS 比對二, 按鈕.BIT按鈕 AS 比對三, 按鈕.BIT按鈕 AS 比對四, 
+                            按鈕.BIT按鈕 AS 比對五, 按鈕.BIT按鈕 AS 比對六, TD_Open_Order_Report比對資料表.客戶訂單號, 
+                            TD_Open_Order_Report比對資料表.形體編碼, TD_Open_Order_Report比對資料表.形體名稱, 
+                            TD_Open_Order_Report比對資料表.顏色, TD_Open_Order_Report比對資料表.楦型, 
+                            SUM(TD_Open_Order_Report比對資料表.[5]) AS [5], SUM(TD_Open_Order_Report比對資料表.[5.5]) AS [5.5], 
+                            SUM(TD_Open_Order_Report比對資料表.[6]) AS [6], SUM(TD_Open_Order_Report比對資料表.[6.5]) AS [6.5], 
+                            SUM(TD_Open_Order_Report比對資料表.[7]) AS [7], SUM(TD_Open_Order_Report比對資料表.[7.5]) AS [7.5], 
+                            SUM(TD_Open_Order_Report比對資料表.[8]) AS [8], SUM(TD_Open_Order_Report比對資料表.[8.5]) AS [8.5], 
+                            SUM(TD_Open_Order_Report比對資料表.[9]) AS [9], SUM(TD_Open_Order_Report比對資料表.[9.5]) AS [9.5], 
+                            SUM(TD_Open_Order_Report比對資料表.[10]) AS [10], SUM(TD_Open_Order_Report比對資料表.[10.5]) AS [10.5], 
+                            SUM(TD_Open_Order_Report比對資料表.[11]) AS [11], SUM(TD_Open_Order_Report比對資料表.[11.5]) AS [11.5], 
+                            SUM(TD_Open_Order_Report比對資料表.[12]) AS [12], SUM(TD_Open_Order_Report比對資料表.[12.5]) AS [12.5], 
+                            SUM(TD_Open_Order_Report比對資料表.[13]) AS [13], SUM(TD_Open_Order_Report比對資料表.[14]) AS [14], 
+                            SUM(TD_Open_Order_Report比對資料表.[5] + TD_Open_Order_Report比對資料表.[5.5] + TD_Open_Order_Report比對資料表.[6]
+                             + TD_Open_Order_Report比對資料表.[6.5] + TD_Open_Order_Report比對資料表.[7] + TD_Open_Order_Report比對資料表.[7.5]
+                             + TD_Open_Order_Report比對資料表.[8] + TD_Open_Order_Report比對資料表.[8.5] + TD_Open_Order_Report比對資料表.[9]
+                             + TD_Open_Order_Report比對資料表.[9.5] + TD_Open_Order_Report比對資料表.[10] + TD_Open_Order_Report比對資料表.[10.5]
+                             + TD_Open_Order_Report比對資料表.[11] + TD_Open_Order_Report比對資料表.[11.5] + TD_Open_Order_Report比對資料表.[12]
+                             + TD_Open_Order_Report比對資料表.[12.5] + TD_Open_Order_Report比對資料表.[13] + TD_Open_Order_Report比對資料表.[14])
+                             AS 總和
+                FROM        TD_Open_Order_Report比對資料表 LEFT OUTER JOIN
+                            按鈕 ON TD_Open_Order_Report比對資料表.客戶訂單號 = 按鈕.連接
+                GROUP BY   TD_Open_Order_Report比對資料表.客戶訂單號, TD_Open_Order_Report比對資料表.形體編碼, 
+                            TD_Open_Order_Report比對資料表.形體名稱, TD_Open_Order_Report比對資料表.顏色, 
+                            TD_Open_Order_Report比對資料表.楦型, 按鈕.BIT按鈕"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_刪除暫存Vionic()
+        ConnOpen()
+        SQL1 = "DELETE FROM TD_Open_Order_Report比對資料表"
+        CmdSet_For_dr()
+    End Sub
+End Module

TENDEN-MES-SYS/Module/製鞋技術管理.vb

@@ -0,0 +1,592 @@
+Module 製鞋技術管理
+    '----------------楦頭規格表------------------------------------------------------------------------
+    Friend Sub SQL_楦頭圖片編號清單()
+        ConnOpen()
+        If PA = "" Then
+            SQL1 = "SELECT  資料流水號, 楦頭編號, 日期, 組別與尺碼, 後卡編號, 前卡編號, 楦底板編號, 涼鞋腳床, 活動中底編號, 鞋墊厚度, 中皮軟墊厚度, 後楦體寬度, 
+                            楦後跟高度, 鞋頭翹度, 鞋頭厚度, 第四趾圍, 第五指圍, 著地奌圍度, 腰圍, 腳背圍, 長跟周長, 楦底長度, 前掌寬度1, 前掌寬度2, 著地點寬度, 
+                            跟座寬度, 備註, 意見, 男鞋女鞋, 楦頭圖號碼, 鞋圖號碼 FROM 楦頭規格控制表 ORDER BY 楦頭編號"
+        Else
+            SQL1 = "SELECT  資料流水號, 楦頭編號, 日期, 組別與尺碼, 後卡編號, 前卡編號, 楦底板編號, 涼鞋腳床, 活動中底編號, 鞋墊厚度, 中皮軟墊厚度, 後楦體寬度, 
+                            楦後跟高度, 鞋頭翹度, 鞋頭厚度, 第四趾圍, 第五指圍, 著地奌圍度, 腰圍, 腳背圍, 長跟周長, 楦底長度, 前掌寬度1, 前掌寬度2, 著地點寬度, 
+                            跟座寬度, 備註, 意見, 男鞋女鞋, 楦頭圖號碼, 鞋圖號碼 FROM 楦頭規格控制表 WHERE 楦頭編號 LIKE '%" & PA & "%' ORDER BY 楦頭編號"
+        End If
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_型體名清單()
+        ConnOpen()
+        SQL1 = "SELECT 資料流水號1, 資料流水號2, 型體名, 型體號 FROM 楦頭規格形體號清單 WHERE (資料流水號1 LIKE '" & 楦頭規格表.楦頭變數_tb.Text & "') ORDER BY   型體號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_楦頭規格表清單()
+        ConnOpen()
+        SQL1 = "SELECT 資料流水號, Size, 楦頭直量長度, 楦底板長度, 楦底掌寬度, 掌圍, 腰圍, 背圍 FROM 楦頭規格表清單 WHERE (資料流水號 LIKE '" & 楦頭規格表.楦頭變數_tb.Text & "') ORDER BY   Size"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_楦頭圖片編號1()
+        ConnOpen()
+        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE '" & WWD1 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_楦頭圖片編號2()
+        ConnOpen()
+        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE '" & WWD2 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_楦頭圖片編號3()
+        ConnOpen()
+        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE '" & WWD3 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢楦頭圖片庫()
+        ConnOpen()
+        If PA = "" Then
+            SQL1 = "SELECT 楦頭編號 FROM 楦頭圖片庫 WHERE (楦頭編號 NOT LIKE 'ML001') AND (楦頭編號 NOT LIKE 'ML002') AND (楦頭編號 NOT LIKE 'ML003') AND (楦頭編號 NOT LIKE 'WL001') AND 
+                                                          (楦頭編號 NOT LIKE 'WL002') AND (楦頭編號 NOT LIKE 'WL003') ORDER BY 楦頭圖片編號"
+        Else
+            SQL1 = "SELECT 楦頭編號 FROM 楦頭圖片庫 WHERE (楦頭編號 LIKE '" & PA & "%') AND (楦頭編號 NOT LIKE 'ML001') AND (楦頭編號 NOT LIKE 'ML002') AND (楦頭編號 NOT LIKE 'ML003') AND 
+                                                          (楦頭編號 NOT LIKE 'WL001') AND (楦頭編號 NOT LIKE 'WL002') AND (楦頭編號 NOT LIKE 'WL003') ORDER BY 楦頭圖片編號"
+        End If
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢楦頭圖片庫1()
+        ConnOpen()
+        If PA = "" Then
+            SQL1 = "SELECT 形體名, 形體號, 顏色, 圖片編號 FROM 圖片庫一 WHERE (類型 LIKE '%彩圖%') OR (類型 LIKE '%ILR%') OR (類型 LIKE '%FLR%') OR (類型 LIKE '%SMS%') ORDER BY 形體號"
+        Else
+            SQL1 = "SELECT 形體名, 形體號, 顏色, 圖片編號 FROM 圖片庫一 WHERE ((形體名 LIKE '%" & PA & "%') OR (形體號 LIKE '%" & PA & "%') OR (顏色 LIKE '%" & PA & "%')) ORDER BY 形體號"
+        End If
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_建立季節()
+        SQL1 = "SELECT 建立季節, ProductName, Style FROM STYLELIST ORDER BY ProductName"
+    End Sub
+    Friend Sub SQL_刪除楦頭規格控制表()
+        ConnOpen()
+        SQL1 = "DELETE FROM 楦頭規格控制表 WHERE (資料流水號 = '" & 楦頭規格表.楦頭變數_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除楦頭規格表清單()
+        ConnOpen()
+        SQL1 = "DELETE FROM 楦頭規格表清單 WHERE (資料流水號 = '" & 楦頭規格表.楦頭變數_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除楦頭規格形體號清單()
+        ConnOpen()
+        SQL1 = "DELETE FROM 楦頭規格形體號清單 WHERE (資料流水號1 = '" & 楦頭規格表.楦頭變數_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢楦頭圖片庫3()
+        ConnOpen()
+        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE '" & 楦頭規格表.TextBox28.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢楦頭圖片庫4()
+        ConnOpen()
+        SQL1 = "SELECT 圖片, 圖片編號 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & 楦頭規格表.TextBox29.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢楦頭圖片庫5()
+        ConnOpen()
+        SQL1 = "SELECT 楦頭圖片, 楦頭圖片編號 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE '" & 楦頭規格表.楦頭編號_cb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢圖片庫()
+        ConnOpen()
+        SQL1 = "SELECT 圖片, 圖片編號 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & 楦頭規格表.DATE日期變數_cb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢形體資料()
+        ConnOpen()
+        SQL1 = "SELECT 建立季節, ProductName, Style FROM STYLELIST WHERE ProductName LIKE '%" & PA & "%' OR Style LIKE '%" & PA & "%' ORDER BY ProductName"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_最後一筆資料流水號2()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 資料流水號2 FROM 楦頭規格形體號清單 ORDER BY 資料流水號2 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增楦頭規格形體號清單()
+        ConnOpen()
+        SQL1 = "INSERT INTO 楦頭規格形體號清單 (資料流水號1, 資料流水號2, 型體名, 型體號) 
+                        VALUES ('" & 楦頭規格表.楦頭變數_tb.Text & "','" & 流水號2 & "','" & 楦頭規格表.腰圍變數_tb.Text & "','" & 楦頭規格表.腳背圍變數_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除楦頭規格形體號()
+        ConnOpen()
+        SQL1 = "DELETE FROM 楦頭規格形體號清單 WHERE (資料流水號2 = '" & 楦頭規格表.長跟周長變數_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改楦頭規格形體號()
+        ConnOpen()
+        SQL1 = "UPDATE 楦頭規格控制表 SET 日期 = '" & DTP & "', 組別與尺碼 = '" & 楦頭規格表.組別與尺碼_tb.Text & "', 後卡編號 = '" & 楦頭規格表.後卡編號_tb.Text & "', 前卡編號 = '" & 楦頭規格表.前卡編號_tb.Text & "', 
+                                          楦底板編號 = '" & 楦頭規格表.楦底板編號_tb.Text & "', 涼鞋腳床 = '" & 楦頭規格表.涼鞋腳床_tb.Text & "', 活動中底編號 = '" & 楦頭規格表.活動中底編號_tb.Text & "', 
+                                          鞋墊厚度 = '" & 楦頭規格表.鞋墊厚度_tb.Text & "', 中皮軟墊厚度 = '" & 楦頭規格表.中皮軟墊厚度_tb.Text & "', 後楦體寬度 = '" & 楦頭規格表.後楦體寬度_tb.Text & "', 
+                                          楦後跟高度 = '" & 楦頭規格表.楦後跟高度_tb.Text & "', 鞋頭翹度 = '" & 楦頭規格表.鞋頭翹度_tb.Text & "', 鞋頭厚度 = '" & 楦頭規格表.鞋頭厚度_tb.Text & "', 
+                                          第四趾圍 = '" & 楦頭規格表.第四趾圍_tb.Text & "', 第五指圍 = '" & 楦頭規格表.第五指圍_tb.Text & "', 著地奌圍度 = '" & 楦頭規格表.著地奌圍度_tb.Text & "', 
+                                          腰圍 = '" & 楦頭規格表.腰圍_tb.Text & "', 腳背圍 = '" & 楦頭規格表.腳背圍_tb.Text & "', 長跟周長 = '" & 楦頭規格表.長跟周長_tb.Text & "', 
+                                          楦底長度 = '" & 楦頭規格表.楦底長度_tb.Text & "', 前掌寬度1 = '" & 楦頭規格表.前掌寬度196mm_tb.Text & "', 前掌寬度2 = '" & 楦頭規格表.前掌寬度184mm_tb.Text & "', 
+                                          著地點寬度 = '" & 楦頭規格表.著地點寬度165mm_tb.Text & "', 跟座寬度 = '" & 楦頭規格表.跟座寬度36mm_tb.Text & "', 備註 = '" & 楦頭規格表.Remarks備註_tb.Text & "', 
+                                          意見 = '" & 楦頭規格表.Comments意見_tb.Text & "', 男鞋女鞋 = '" & 楦頭規格表.男鞋_rb.Checked & "', 楦頭圖號碼 = '" & 楦頭規格表.TextBox28.Text & "', 
+                                          鞋圖號碼 = '" & 楦頭規格表.TextBox29.Text & "' 
+                 WHERE (資料流水號 = '" & 楦頭規格表.楦頭變數_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改楦頭規格表清單()
+        ConnOpen()
+        SQL1 = "UPDATE 楦頭規格表清單 SET  楦頭直量長度 = '" & PA & "', 楦底板長度 = '" & PA1 & "', 
+                                               楦底掌寬度 = '" & PA2 & "', 掌圍 = '" & PA3 & "', 
+                                               腰圍 = '" & PA4 & "', 背圍 = '" & PA5 & "' 
+                    WHERE (資料流水號 LIKE '" & 楦頭規格表.楦頭變數_tb.Text & "' AND Size LIKE '" & EDFR & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除楦頭規格控制表1()
+        ConnOpen()
+        SQL1 = "DELETE FROM 楦頭規格控制表 WHERE (資料流水號 = '" & 楦頭規格表.楦頭變數_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除楦頭規格形體號清單1()
+        ConnOpen()
+        SQL1 = "DELETE FROM 楦頭規格形體號清單 WHERE (資料流水號1 = '" & 楦頭規格表.楦頭變數_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_最後一筆楦頭規格控制表()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 資料流水號 FROM 楦頭規格控制表 ORDER BY 資料流水號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增楦頭規格控制表()
+        ConnOpen()
+        SQL1 = "INSERT INTO 楦頭規格控制表 (資料流水號, 楦頭編號, 日期, 組別與尺碼, 後卡編號, 前卡編號, 楦底板編號, 涼鞋腳床, 活動中底編號, 
+                            鞋墊厚度, 中皮軟墊厚度, 後楦體寬度, 楦後跟高度, 鞋頭翹度, 鞋頭厚度, 第四趾圍, 第五指圍, 著地奌圍度, 腰圍, 
+                            腳背圍, 長跟周長, 楦底長度, 前掌寬度1, 前掌寬度2, 著地點寬度, 跟座寬度, 備註, 意見, 男鞋女鞋, 楦頭圖號碼, 
+                            鞋圖號碼) " &
+                   "VALUES ('" & 楦頭規格表.楦頭變數_tb.Text & "','" & 楦頭規格表.楦頭編號_tb.Text & "','','','','','','','','','','','','','','','','','','','','','','','','','','','" & 楦頭規格表.男鞋_rb.Checked & "','','')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增楦頭規格表清單()
+        ConnOpen()
+        SQL1 = "INSERT INTO 楦頭規格表清單 (資料流水號, Size, 楦頭直量長度, 楦底板長度, 楦底掌寬度, 掌圍, 腰圍, 背圍) 
+                    VALUES ('" & 楦頭規格表.楦頭變數_tb.Text & "','" & EDFR & "','0.000','0.000','0.000','0.000','0.000','0.000')"
+        CmdSet_For_dr()
+    End Sub
+    '-------------------------------------------模具控制表-----------------------------------------
+    Friend Sub SQL_模具控制表()
+        ConnOpen()
+        SQL1 = "SELECT  流水號, 模具廠, 結構, 楦頭編號, 模具編號, 性別, 階段, 參考大底編號, 品牌, 大底廠, 工廠, 尺寸, SEASON, 備註, 
+                            工作項目, 圖紙確認, 木模確認, [翻砂/放電], 第一次試模, 咬花確認, 第二次試模, 確認成品, 預計完成, 日期, 材質, 
+                            製表人, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], [10], [10.5], [11], [11.5], [12], [12.5], [13], [14],CNC加工
+                 FROM       模具控制表
+                 ORDER BY   模具編號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_模具明細表()
+        ConnOpen()
+        SQL1 = "SELECT 流水號, 模具編號, 材質, 楦型, 碼數, 數量 FROM  模具明細表 
+                WHERE 流水號 LIKE '" & 模具控制表.流水號_tb.Text & "' ORDER BY CONVERT(decimal, 碼數)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_模具圖檔()
+        ConnOpen()
+        SQL1 = "SELECT 圖片 FROM 模具圖檔 WHERE 流水號 LIKE '" & 模具控制表.流水號_tb.Text & "' AND 圖面 LIKE '正面圖'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_模具圖檔側面()
+        ConnOpen()
+        SQL1 = "SELECT 圖片 FROM 模具圖檔 WHERE 流水號 LIKE '" & 模具控制表.流水號_tb.Text & "' AND 圖面 LIKE '側面圖'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_模具圖檔工程圖()
+        ConnOpen()
+        SQL1 = "SELECT 圖片 FROM 模具圖檔 WHERE 流水號 LIKE '" & 模具控制表.流水號_tb.Text & "' AND 圖面 LIKE '工程圖'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_模具控制表_流水號最後一筆()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM dbo.模具控制表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增模具控制表()
+        SQL1 = "INSERT INTO 模具控制表  (流水號,模具廠,結構,楦頭編號,模具編號,性別,階段,參考大底編號,品牌,大底廠,工廠,尺寸,SEASON,備註,工作項目,圖紙確認,木模確認, [翻砂/放電],第一次試模, 咬花確認,
+                                             第二次試模,確認成品,預計完成,日期,材質,製表人,[5],[5.5],[6],[6.5],[7],[7.5],[8],[8.5],[9],[9.5],[10],[10.5],[11],[11.5],[12],[12.5],[13],[14],CNC加工)
+                     VALUES (N'" & 模具控制表.流水號_tb.Text & "',N'" & 模具控制表.模具_tb.Text & "', N'" & 模具控制表.結構_tb.Text & "', N'" & 模具控制表.楦頭_tb.Text & "', N'" & 模具控制表.模具號_tb.Text & "',
+                             N'" & PA15 & "', N'" & 模具控制表.量產_cb.Checked & "',N'" & 模具控制表.參考_tb.Text & "', N'" & 模具控制表.品牌_tb.Text & "',N'" & 模具控制表.大底廠_tb.Text & "', N'" & 模具控制表.工廠_tb.Text & "',
+                             N'" & 模具控制表.尺寸_tb.Text & "',N'" & 模具控制表.SEASON_tb.Text & "',N'" & 模具控制表.備註_tb.Text & "',N'" & 模具控制表.工作_tb.Text & "',N'" & 模具控制表.圖紙_tb.Text & "',N'" & 模具控制表.木模_tb.Text & "',
+                             N'" & 模具控制表.翻砂_tb.Text & "',N'" & 模具控制表.第一_tb.Text & "',N'" & 模具控制表.咬花_tb.Text & "',N'" & 模具控制表.第二次_tb.Text & "',N'" & 模具控制表.成品_tb.Text & "',N'" & 模具控制表.預計_tb.Text & "',
+                             N'" & Strings.Format(模具控制表.日期dtp.Value, "yyyy/MM/dd") & "',N'" & 模具控制表.材質_tb.Text & "',N'" & 模具控制表.製表人_tb.Text & "','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0',
+                             '0','0',N'" & 模具控制表.加工_tb.Text & "')"
+    End Sub
+    Friend Sub SQL_修改模具控制表()
+        ConnOpen()
+        SQL1 = "UPDATE 模具控制表 SET 模具廠 = N'" & 模具控制表.模具_tb.Text & "', 結構= N'" & 模具控制表.結構_tb.Text & "', 楦頭編號 = N'" & 模具控制表.楦頭_tb.Text & "', 模具編號 = N'" & 模具控制表.模具號_tb.Text & "', 
+                                          性別 = N'" & PA15 & "', 階段 = N'" & 模具控制表.量產_cb.Checked & "', 參考大底編號 = N'" & 模具控制表.參考_tb.Text & "', 品牌 = N'" & 模具控制表.品牌_tb.Text & "', 
+                                          大底廠 = N'" & 模具控制表.大底廠_tb.Text & "', 工廠= N'" & 模具控制表.工廠_tb.Text & "', 尺寸= N'" & 模具控制表.尺寸_tb.Text & "', SEASON = N'" & 模具控制表.SEASON_tb.Text & "',
+                                          備註 = N'" & 模具控制表.備註_tb.Text & "', 工作項目 = N'" & 模具控制表.工作_tb.Text & "', 圖紙確認 = N'" & 模具控制表.圖紙_tb.Text & "', 木模確認= N'" & 模具控制表.木模_tb.Text & "', 
+                                          [翻砂/放電] = N'" & 模具控制表.翻砂_tb.Text & "', 第一次試模 = N'" & 模具控制表.第一_tb.Text & "', 咬花確認 = N'" & 模具控制表.咬花_tb.Text & "', 第二次試模 = N'" & 模具控制表.第二次_tb.Text & "', 
+                                          確認成品 = N'" & 模具控制表.成品_tb.Text & "', 預計完成 = N'" & 模具控制表.預計_tb.Text & "', 日期 = N'" & Strings.Format(模具控制表.日期dtp.Value, "yyyy/MM/dd") & "', 
+                                          材質= N'" & 模具控制表.材質_tb.Text & "', 製表人 = N'" & 模具控制表.製表人_tb.Text & "', CNC加工 = N'" & 模具控制表.加工_tb.Text & "'
+                    WHERE  流水號 LIKE '" & 模具控制表.流水號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除模具控制表()
+        ConnOpen()
+        SQL1 = "DELETE FROM 模具控制表   WHERE 流水號 LIKE '" & 模具控制表.流水號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查閱模具明細表()
+        ConnOpen()
+        SQL1 = "SELECT 流水號, 模具編號, 材質, 楦型, 碼數, 數量 FROM 模具明細表 WHERE 流水號 LIKE '" & 模具控制表.流水號_tb.Text & "' AND 碼數 LIKE '" & PA & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除模具明細表()
+        ConnOpen() : SQL1 = "DELETE 模具明細表 WHERE 流水號 LIKE '" & 模具控制表.流水號_tb.Text & "' AND 碼數 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增模具明細表()
+        ConnOpen()
+        SQL1 = "INSERT INTO 模具明細表  (流水號, 模具編號, 材質, 楦型, 碼數, 數量) VALUES (N'" & 模具控制表.流水號_tb.Text & "',N'', N'', N'', N'" & PA & "',N'')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除模具圖檔()
+        ConnOpen()
+        SQL1 = "DELETE 模具圖檔 WHERE 流水號 = '" & 模具控制表.流水號_tb.Text & "' AND 圖面 = '" & 模具控制表.圖片類別_cb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_E模具圖檔()
+        SQL1 = "INSERT INTO 模具圖檔 (流水號, 圖面, 圖片) SELECT '" & 模具控制表.流水號_tb.Text & "','" & 模具控制表.圖片類別_cb.Text & "',
+                            BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\" & AA(1) & "\" & 模具控制表.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+    End Sub
+    Friend Sub SQL_D模具圖檔()
+        SQL1 = "INSERT INTO 模具圖檔 (流水號, 圖面, 圖片) SELECT '" & 模具控制表.流水號_tb.Text & "','" & 模具控制表.圖片類別_cb.Text & "' , 
+                            BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\" & AA(1) & "\" & 模具控制表.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+    End Sub
+    Friend Sub SQL_批量存檔模具明細表()
+        ConnOpen()
+        SQL1 = "UPDATE 模具明細表 SET 模具編號 = N'" & PA & "', 
+                                          材質 = N'" & PA1 & "', 
+                                          楦型 = N'" & PA2 & "', 
+                                          數量 = N'" & PA3 & "'
+                WHERE  流水號 LIKE N'" & 模具控制表.流水號_tb.Text & "' AND 碼數 = N'" & PA4 & "'"
+        CmdSet_For_dr()
+    End Sub
+    '---------------------------------STYLE_資料管理---------------------------------------------------------------------
+    Friend Sub SQL_STYLE()
+        SQL1 = "SELECT   STYLELIST.建立季節, 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ProductName, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼, STYLELIST.Description, Q.形體號, 
+                         Q.訂單數量 AS 訂單筆數, Q.總雙數, STYLELIST.APMA確認, STYLELIST.T1, STYLELIST.T2, STYLELIST.WEAR_TEST, STYLELIST.T3, STYLELIST.T4
+                FROM    (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 GROUP BY    形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = STYLELIST.ProductName 
+                         FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 
+                ORDER BY Q.總雙數 DESC, RIGHT(STYLELIST.建立季節,2) DESC, 形體號碼 DESC"
+    End Sub
+    Friend Sub SQL_订单形體號清单()
+        ConnOpen()
+        SQL1 = "SELECT   STYLELIST分析.型體名稱, STYLELIST分析.第一次訂單日期, STYLELIST分析.最後一次訂單日, Q.訂單數量 AS 訂單筆數, Q.總雙數, DATEDIFF(day, STYLELIST分析.第一次訂單日期, 
+                         STYLELIST分析.最後一次訂單日) + 1 AS 型體壽命 FROM (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 
+                FROM     訂單控制表 GROUP BY 形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = STYLELIST.ProductName LEFT OUTER JOIN STYLELIST分析 ON STYLELIST.ProductName = 
+                         STYLELIST分析.型體名稱 FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號  
+                WHERE   (STYLELIST分析.最後一次訂單日 NOT LIKE '') AND (DATEDIFF(day, '" & Today() & "', STYLELIST分析.最後一次訂單日) > - 183) 
+                ORDER BY Q.總雙數 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_订单形體號清单1()
+        ConnOpen()
+        SQL1 = "SELECT   STYLELIST分析.型體名稱, STYLELIST分析.第一次訂單日期, STYLELIST分析.最後一次訂單日, Q.訂單數量 AS 訂單筆數, Q.總雙數, DATEDIFF(day, STYLELIST分析.第一次訂單日期, 
+                         STYLELIST分析.最後一次訂單日) + 1 AS 型體壽命 FROM (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 
+                FROM     訂單控制表 GROUP BY 形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = STYLELIST.ProductName LEFT OUTER JOIN STYLELIST分析 ON STYLELIST.ProductName = 
+                         STYLELIST分析.型體名稱 FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 
+                WHERE   (STYLELIST分析.最後一次訂單日 NOT LIKE '') AND (DATEDIFF(day, '" & Today() & "', STYLELIST分析.最後一次訂單日) < -183) AND (DATEDIFF(day, '" & Today() & "', 
+                         STYLELIST分析.最後一次訂單日) > -913) 
+                ORDER BY Q.總雙數 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_订单形體號清单2()
+        ConnOpen()
+        SQL1 = "SELECT  STYLELIST分析.型體名稱, STYLELIST分析.第一次訂單日期, STYLELIST分析.最後一次訂單日, Q.訂單數量 AS 訂單筆數, Q.總雙數, DATEDIFF(day, STYLELIST分析.第一次訂單日期, 
+                        STYLELIST分析.最後一次訂單日) + 1 AS 型體壽命 FROM (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 
+                FROM    訂單控制表 GROUP BY 形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = STYLELIST.ProductName LEFT OUTER JOIN STYLELIST分析 ON STYLELIST.ProductName = 
+                        STYLELIST分析.型體名稱 FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 
+                WHERE  (STYLELIST分析.最後一次訂單日 NOT LIKE '') AND (DATEDIFF(day, '" & Today() & "', STYLELIST分析.最後一次訂單日) < - 912) 
+               ORDER BY Q.總雙數 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_刪除STYLELIST分析()
+        ConnOpen()
+        SQL1 = "DELETE FROM STYLELIST分析"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_更新分析資料()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 客戶交期 FROM 訂單控制表 WHERE (形體號 LIKE '" & PA & "') ORDER BY   客戶交期"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_更新分析資料1()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 客戶交期 FROM 訂單控制表 WHERE (形體號 LIKE '" & PA & "') ORDER BY   客戶交期 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_更新分析資料2()
+        ConnOpen()
+        SQL1 = "INSERT INTO STYLELIST分析 (型體名稱, 第一次訂單日期, 最後一次訂單日) 
+                    VALUES ('" & PA & "', '" & 日期(0) & "', '" & 日期(1) & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改STYLELIST()
+        ConnOpen()
+        SQL1 = "UPDATE STYLELIST SET APMA確認 = '" & PA & "' 
+                WHERE (ProductName = '" & PA1 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_STYLE形體名稱()
+        SQL1 = "SELECT   訂單控制表.訂單流水號 AS VT#, 訂單控制表.年份季度 AS 季度, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.客戶交期 AS 訂單日期, 
+                         訂單控制表.TVW AS 型體號, 訂單明細表.ItemNumber, 訂單控制表.形體號 AS ProductName, 訂單明細表.ProductDescription, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 
+                FROM     訂單控制表 LEFT OUTER JOIN 訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.顏色 = 訂單明細表.Color AND 
+                         訂單控制表.訂單流水號 = 訂單明細表.天盾流水號 AND 訂單控制表.客戶訂單號 = 訂單明細表.客戶訂單號 
+                WHERE   (訂單控制表.形體號 LIKE '" & PA & "') 
+                ORDER BY 訂單控制表.客戶交期, VT#"
+    End Sub
+    Friend Sub SQL_订单形體號清单型體名稱()
+        SQL1 = "SELECT   訂單控制表.訂單流水號 AS VT#, 訂單控制表.年份季度 AS 季度, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.客戶交期 AS 訂單日期, 
+                             訂單控制表.TVW AS 型體號, 訂單明細表.ItemNumber, 訂單控制表.形體號 AS ProductName, 訂單明細表.ProductDescription, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 
+                    FROM     訂單控制表 LEFT OUTER JOIN 訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.顏色 = 訂單明細表.Color AND 
+                             訂單控制表.訂單流水號 = 訂單明細表.天盾流水號 AND 訂單控制表.客戶訂單號 = 訂單明細表.客戶訂單號 
+                    WHERE   (訂單控制表.形體號 LIKE '" & PA1 & "') 
+                    ORDER BY 訂單控制表.客戶交期, VT#"
+    End Sub
+    Friend Sub SQL_订单形體號清单型體名稱1()
+        SQL1 = "SELECT   訂單控制表.訂單流水號 AS VT#, 訂單控制表.年份季度 AS 季度, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.客戶交期 AS 訂單日期, 
+                             訂單控制表.TVW AS 型體號, 訂單明細表.ItemNumber, 訂單控制表.形體號 AS ProductName, 訂單明細表.ProductDescription, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 
+                    FROM     訂單控制表 LEFT OUTER JOIN 訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.顏色 = 訂單明細表.Color AND 
+                             訂單控制表.訂單流水號 = 訂單明細表.天盾流水號 AND 訂單控制表.客戶訂單號 = 訂單明細表.客戶訂單號 
+                    WHERE   (訂單控制表.形體號 LIKE '" & PA2 & "') 
+                    ORDER BY 訂單控制表.客戶交期, VT#"
+    End Sub
+    Friend Sub SQL_订单形體號清单型體名稱2()
+        SQL1 = "SELECT   訂單控制表.訂單流水號 AS VT#, 訂單控制表.年份季度 AS 季度, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.客戶交期 AS 訂單日期, 
+                             訂單控制表.TVW AS 型體號, 訂單明細表.ItemNumber, 訂單控制表.形體號 AS ProductName, 訂單明細表.ProductDescription, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 
+                    FROM     訂單控制表 LEFT OUTER JOIN 訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.顏色 = 訂單明細表.Color AND 
+                             訂單控制表.訂單流水號 = 訂單明細表.天盾流水號 AND 訂單控制表.客戶訂單號 = 訂單明細表.客戶訂單號 
+                    WHERE   (訂單控制表.形體號 LIKE '" & PA3 & "') 
+                    ORDER BY 訂單控制表.客戶交期, VT#"
+    End Sub
+    Friend Sub SQL_查詢訂單控制表形體號清單()
+        ConnOpen()
+        SQL1 = "SELECT 形體號 FROM 訂單控制表形體號清單 WHERE 形體號 LIKE '" & STYLE_資料管理.形體名稱_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增訂單控制表形體號清單()
+        ConnOpen()
+        SQL1 = "INSERT INTO 訂單控制表形體號清單 (形體號) VALUES ('" & STYLE_資料管理.形體名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢STYLELIST()
+        ConnOpen()
+        SQL1 = "SELECT ProductName FROM STYLELIST WHERE ProductName LIKE '" & STYLE_資料管理.形體名稱_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增STYLELIST()
+        ConnOpen()
+        SQL1 = "INSERT INTO STYLELIST ( ItemNumber, ProductName, Style, Description, 建立季節) 
+                            VALUES ('" & STYLE_資料管理.项目编号_tb.Text & "', '" & STYLE_資料管理.形體名稱_tb.Text & "', '" & STYLE_資料管理.形體號_bt.Text & "', '" & STYLE_資料管理.描述_tb.Text & "', '" & STYLE_資料管理.季節_bt.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢訂單控制表TVW清單()
+        ConnOpen()
+        SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 WHERE 形體號 LIKE '" & STYLE_資料管理.形體號_bt.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增訂單控制表TVW清單()
+        ConnOpen()
+        SQL1 = "INSERT INTO 訂單控制表TVW清單 (形體號) VALUES ('" & STYLE_資料管理.形體號_bt.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改訂單控制表形體號清單()
+        ConnOpen()
+        SQL1 = "UPDATE 訂單控制表形體號清單 SET 形體號 = '" & STYLE_資料管理.形體名稱_tb.Text & "' WHERE (形體號 = '" & STYLE_資料管理.形體名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢形體名稱重複()
+        ConnOpen()
+        SQL1 = "SELECT ProductName FROM STYLELIST WHERE ProductName LIKE '" & STYLE_資料管理.形體名稱_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改STYLELIST清單()
+        ConnOpen()
+        SQL1 = "UPDATE STYLELIST SET ItemNumber = '" & STYLE_資料管理.项目编号_tb.Text & "', Style = '" & STYLE_資料管理.形體號_bt.Text & "', Description = '" & STYLE_資料管理.描述_tb.Text & "', 建立季節 = '" & STYLE_資料管理.季節_bt.Text & "', 
+                                             T1 = '" & STYLE_資料管理.T1_dtp.Text & "', T2 = '" & STYLE_資料管理.T2_dtp.Text & "', WEAR_TEST = '" & STYLE_資料管理.WT_dtp.Text & "', T3 = '" & STYLE_資料管理.T3_dtp.Text & "', T4 = '" & STYLE_資料管理.T4_dtp.Text & "'
+                        WHERE (ProductName = '" & STYLE_資料管理.形體名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增STYLELIST清單()
+        ConnOpen()
+        SQL1 = "INSERT INTO STYLELIST ( ItemNumber, ProductName, Style, Description, 建立季節, T1, T2, WEAR_TEST, CFM, T3, T4) 
+                        VALUES ('" & STYLE_資料管理.项目编号_tb.Text & "', '" & STYLE_資料管理.形體名稱_tb.Text & "', '" & STYLE_資料管理.形體號_bt.Text & "', '" & STYLE_資料管理.描述_tb.Text & "', '" & STYLE_資料管理.季節_bt.Text & "', '" & STYLE_資料管理.T1_dtp.Text & "', 
+                                '" & STYLE_資料管理.T2_dtp.Text & "', '" & STYLE_資料管理.WT_dtp.Text & "', '', '" & STYLE_資料管理.T3_dtp.Text & "', '" & STYLE_資料管理.T4_dtp.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查閱訂單控制表TVW清單()
+        ConnOpen()
+        SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 WHERE 形體號 LIKE '" & STYLE_資料管理.形體號_bt.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增訂單控制表TVW清單1()
+        ConnOpen()
+        SQL1 = "INSERT INTO 訂單控制表TVW清單 (形體號) VALUES ('" & STYLE_資料管理.形體號_bt.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除訂單控制表形體號清單()
+        ConnOpen()
+        SQL1 = "DELETE FROM 訂單控制表形體號清單 WHERE (形體號 = '" & STYLE_資料管理.形體名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_刪除STYLELIST()
+        ConnOpen()
+        SQL1 = "DELETE FROM STYLELIST WHERE (ProductName = '" & STYLE_資料管理.形體名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢訂單控制表()
+        SQL1 = "SELECT   STYLELIST.建立季節, 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ProductName, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼, STYLELIST.Description, Q.形體號, 
+                         Q.訂單數量 AS 訂單筆數, Q.總雙數, STYLELIST.APMA確認 
+                FROM    (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 GROUP BY 形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = 
+                         STYLELIST.ProductName FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 
+                WHERE    訂單控制表形體號清單.形體號 LIKE '%" & PA & "%' OR STYLELIST.ItemNumber LIKE '%" & PA & "%' OR STYLELIST.Style LIKE '%" & PA & "%' OR STYLELIST.Description LIKE '%" & PA & "%' 
+                ORDER BY Q.總雙數 DESC, RIGHT(STYLELIST.建立季節,2) DESC, 形體號碼 DESC"
+    End Sub
+    '--------------------------STYLE_資料管理_對應訂單---------------------------------------------------------------
+    Friend Sub SQL_讀取訂單控制表清單()
+        ConnOpen()
+        SQL1 = "SELECT   LEFT(STYLELIST.建立季節, 4) AS 建立季節, STYLELIST.ItemNumber AS 項目編號, STYLELIST.ProductName, 
+                         STYLELIST.Style, STYLELIST.Description, STYLELIST.APMA確認, QQ.T1, QQ.T2, QQ.WEAR_TEST, QQ.CFM, QQ.T3, 
+                         QQ.T4, QQ.形體號, QQ.顏色, QQ.楦型, QQ.TVW
+                FROM     STYLELIST LEFT OUTER JOIN
+                        (SELECT 形體號, 顏色, 楦型, TRIAL1 AS T1, TRIAL2 AS T2, TRIAL3 AS T3, TRIAL4 AS T4, CFMSAMPLE AS CFM, 長期試穿 AS WEAR_TEST, " & 訂單資料表(1) & ".TVW
+                         FROM " & 訂單資料表(1) & "
+                         WHERE (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0)
+                         GROUP BY 形體號, 顏色, 楦型, TRIAL1, TRIAL2, TRIAL3, TRIAL4, CFMSAMPLE, 長期試穿, " & 訂單資料表(1) & ".TVW) AS QQ ON STYLELIST.ProductName = QQ.形體號
+                WHERE   (QQ.形體號 IS NOT NULL)
+                ORDER BY STYLELIST.Style"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_讀取訂單控制表清單1()
+        ConnOpen()
+        SQL1 = "SELECT ItemNumber, ProductName, Style, Description, 建立季節, APMA確認, T1, T2, WEAR_TEST, CFM, T3, T4 
+                FROM   STYLELIST"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_讀取訂單控制表清單2()
+        ConnOpen()
+        SQL1 = "SELECT ItemNumber, CFM FROM 確認樣品單控制表 WHERE (ItemNumber IS NOT NULL) GROUP BY ItemNumber, CFM ORDER BY ItemNumber, CFM DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_讀取訂單控制表清單3()
+        SQL1 = "SELECT   " & 訂單資料表(1) & ".訂單流水號 AS VT#, " & 訂單資料表(1) & ".年份季度 AS 季度, " & 訂單資料表(1) & ".客戶訂單號, " & 訂單資料表(1) & ".生產工廠 AS 工廠, 
+                             " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(1) & ".工廠回復交期 AS 訂單日期, " & 訂單資料表(1) & ".TVW AS 型體號, " & 訂單資料表(5) & ".ItemNumber,
+                             " & 訂單資料表(1) & ".形體號 AS ProductName, " & 訂單資料表(5) & ".ProductDescription," & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, 
+                             " & 訂單資料表(1) & ".訂單數量 
+                    FROM     " & 訂單資料表(1) & " LEFT OUTER JOIN " & 訂單資料表(5) & " ON " & 訂單資料表(1) & ".形體號 =" & 訂單資料表(5) & ".ProductName 
+                             AND " & 訂單資料表(1) & ".楦型 = " & 訂單資料表(5) & ".DM AND " & 訂單資料表(1) & ".顏色 = " & 訂單資料表(5) & ".Color 
+                             AND " & 訂單資料表(1) & ".訂單流水號 = " & 訂單資料表(5) & ".天盾流水號 AND " & 訂單資料表(1) & ".客戶訂單號 = " & 訂單資料表(5) & ".客戶訂單號 
+                    WHERE   (" & 訂單資料表(1) & ".形體號 LIKE '" & PA4 & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) 
+                    ORDER BY " & 訂單資料表(1) & ".客戶交期 DESC, VT#"
+    End Sub
+    Friend Sub SQL_讀取圖片庫一3()
+        ConnOpen()
+        SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體號 LIKE '" & PA5 & "' AND 類型 NOT LIKE '確認-產地標' ORDER BY 類型 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_訂單控制表編輯完成()
+        SQL1 = "SELECT TOP(1) " & 訂單資料表(1) & ".訂單流水號 AS VT#, " & 訂單資料表(1) & ".年份季度 AS 季度, " & 訂單資料表(1) & ".客戶訂單號, " & 訂單資料表(1) & ".生產工廠 AS 工廠,
+                                  " & 訂單資料表(1) & ".訂單種類," & 訂單資料表(1) & ".工廠回復交期 AS 訂單日期, " & 訂單資料表(1) & ".TVW AS 型體號, " & 訂單資料表(5) & ".ItemNumber, 
+                                  " & 訂單資料表(1) & ".形體號 AS ProductName, " & 訂單資料表(5) & ".ProductDescription, " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, 
+                                  " & 訂單資料表(1) & ".訂單數量 
+                    FROM          " & 訂單資料表(1) & " LEFT OUTER JOIN " & 訂單資料表(5) & " ON " & 訂單資料表(1) & ".形體號 = " & 訂單資料表(5) & ".ProductName 
+                                  AND " & 訂單資料表(1) & ".楦型 =" & 訂單資料表(5) & ".DM AND " & 訂單資料表(1) & ".顏色 = " & 訂單資料表(5) & ".Color 
+                                  AND " & 訂單資料表(1) & ".訂單流水號 = " & 訂單資料表(5) & ".天盾流水號 AND " & 訂單資料表(1) & ".客戶訂單號 = " & 訂單資料表(5) & ".客戶訂單號 
+                    WHERE        (" & 訂單資料表(1) & ".形體號 LIKE '" & PA & "') " &
+                       "ORDER BY      " & 訂單資料表(1) & ".客戶交期 DESC, VT#"
+    End Sub
+    Friend Sub SQL_修改STYLELIST編輯完成()
+        ConnOpen()
+        SQL1 = "UPDATE STYLELIST SET  建立季節 = '" & QQWEE & "', ItemNumber = '" & PA1 & "', 
+                                              Description = '" & PA2 & "', T1 = '" & PA3 & "', 
+                                              T2 = '" & PA4 & "', WEAR_TEST = '" & PA5 & "', 
+                                              CFM = '" & PA6 & "', T3 = '" & PA7 & "', 
+                                              T4 = '" & PA8 & "' 
+                        WHERE (ProductName LIKE '" & PA & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改STYLELIST編輯完成1()
+        ConnOpen()
+        SQL1 = "UPDATE STYLELIST SET  建立季節 = '" & QQWEE & "', ItemNumber = '" & PA1 & "', 
+                                              Description = '" & PA2 & "', T1 = '" & PA3 & "', 
+                                              T2 = '" & PA4 & "', T3 = '" & PA7 & "', 
+                                              T4 = '" & PA8 & "' 
+                        WHERE (ProductName LIKE '" & PA & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改STYLELIST編輯完成2()
+        ConnOpen()
+        SQL1 = "UPDATE STYLELIST SET  建立季節 = '" & QQWEE & "', ItemNumber = '" & PA1 & "', 
+                                              Description = '" & PA2 & "', WEAR_TEST = '" & PA5 & "', 
+                                              CFM = '" & PA6 & "' 
+                        WHERE (ProductName LIKE '" & PA & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改STYLELIST編輯完成3()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(1) & " SET TVW = '" & PA9 & "', TRIAL1 = '" & PA3 & "', 
+                                                         TRIAL2 = '" & PA4 & "', TRIAL3 = '" & PA7 & "', 
+                                                         TRIAL4 = '" & PA8 & "', 長期試穿 = '" & PA5 & "', 
+                                                         CFMSAMPLE = '" & PA6 & "' 
+                        WHERE (形體號 LIKE '" & PA & "') AND (顏色  LIKE '" & PA10 & "') AND 
+                              (楦型  LIKE '" & PA11 & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0)"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改STYLELIST編輯完成4()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(1) & " SET TVW = '" & PA9 & "', TRIAL1 = '" & PA3 & "', 
+                                                         TRIAL2 = '" & PA4 & "', TRIAL3 = '" & PA7 & "', 
+                                                         TRIAL4 = '" & PA8 & "' 
+                        WHERE (形體號 LIKE '" & PA & "') AND (顏色  LIKE '" & PA10 & "') AND 
+                              (楦型  LIKE '" & PA11 & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0)"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改STYLELIST編輯完成5()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(1) & " SET TVW = '" & PA9 & "', 長期試穿 = '" & PA5 & "', 
+                                                         CFMSAMPLE = '" & PA6 & "' 
+                        WHERE (形體號 LIKE '" & PA & "') AND (顏色  LIKE '" & PA10 & "') AND 
+                              (楦型  LIKE '" & PA11 & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0)"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改重組訂單資料()
+        ConnOpen()
+        If STYLE_資料管理_對應訂單.重組訂單資料庫_ch.Checked = False Then
+            SQL1 = "UPDATE" & 訂單資料表(1) & " SET TVW = '" & PA & "', TRIAL1 = '" & PA1 & "', 
+                                                            TRIAL2 = '" & PA2 & "', TRIAL3 = '" & PA3 & "', 
+                                                            TRIAL4 = '" & PA4 & "', 長期試穿 = '" & PA5 & "', 
+                                                            CFMSAMPLE = '" & PA6 & "' 
+                            WHERE (形體號 LIKE '" & PA7 & "') AND (顏色  LIKE '" & PA8 & "') AND 
+                                  (楦型  LIKE '" & PA9 & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0)"
+        Else
+            SQL1 = "UPDATE " & 訂單資料表(1) & " SET TVW = '" & PA & "', TRIAL1 = '" & PA1 & "', 
+                                                             TRIAL2 = '" & PA2 & "', TRIAL3 = '" & PA3 & "', 
+                                                             TRIAL4 = '" & PA4 & "', 長期試穿 = '" & PA5 & "', 
+                                                             CFMSAMPLE = '" & PA6 & "' 
+                            WHERE (形體號 LIKE '" & PA7 & "') AND (顏色  LIKE '" & PA8 & "') AND 
+                                  (楦型  LIKE '" & PA9 & "')"
+        End If
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改重組訂單資料1()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(1) & " SET TVW = '" & PA & "', TRIAL1 = '" & PA1 & "', 
+                                                     TRIAL2 = '" & PA2 & "', TRIAL3 = '" & PA3 & "', 
+                                                     TRIAL4 = '" & PA4 & "' 
+                        WHERE (形體號 LIKE '" & PA7 & "') AND (顏色  LIKE '" & PA8 & "') AND 
+                              (楦型  LIKE '" & PA9 & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0)"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改重組訂單資料2()
+        ConnOpen()
+        SQL1 = "UPDATE" & 訂單資料表(1) & " SET TVW = '" & PA & "', 長期試穿 = '" & PA5 & "', CFMSAMPLE = '" & PA6 & "' 
+                        WHERE (形體號 LIKE '" & PA7 & "') AND (顏色  LIKE '" & PA8 & "')  AND 
+                              (楦型  LIKE '" & PA9 & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0)"
+        CmdSet_For_dr()
+    End Sub
+End Module

TENDEN-MES-SYS/Module/財務系統管理.vb

@@ -0,0 +1,192 @@
+Module 財務系統管理
+    '-----------------------------------帳務資料庫管理----------------------------------------------
+    Friend Sub SQL_帳務表單()
+        ConnOpen()
+        SQL1 = "SELECT 流水號, 支付日期, 項目, 備註, USD收入, RMB收入, 支出, 匯率, 狀態, 帳務對象, 結帳年份 FROM 帳務流水帳 WHERE (狀態 NOT LIKE '帳務') ORDER BY 支付日期 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_帳務表單刪除()
+        ConnOpen()
+        SQL1 = "DELETE FROM 帳務流水帳 WHERE (流水號 = '" & 帳務資料庫管理.資料流水號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    '--------------------------------收款報表----------------------------
+    Friend Sub SQL_收款流水號查詢()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1)收款流水號 FROM 收款流水帳 ORDER BY 收款流水號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款流水號增加()
+        ConnOpen()
+        SQL1 = "INSERT INTO 收款流水帳 (收款流水號, 出貨工廠, 收款日期, 出貨日期, 訂單號碼, 出貨數量, 單價, 出貨金额, 國外費用提單扣款, 
+                                                    實際金額, 匯率, 人民幣金額, 備註, 結帳年分) 
+                            VALUES ('" & 收款報表.TextBox9.Text & "','" & 收款報表.出貨工廠_cb.Text & "','" & Format(收款報表.收款開始日期_dtp.Value, "yyyy/MM/dd") & "','" & Format(收款報表.出貨開始日期_dtp.Value, "yyyy/MM/dd") & "',
+                                    '" & 收款報表.訂單號碼_cb.Text & "','" & 收款報表.出貨數量_tb.Text & "','" & 收款報表.出貨單價_tb.Text & "','" & 收款報表.出貨金額_tb.Text & "','" & 收款報表.國外費用提單扣款_tb.Text & "','" & 收款報表.實際金額_tb.Text & "',
+                                    '" & 收款報表.匯率_tb.Text & "','" & 收款報表.人民幣金額_tb.Text & "','" & 收款報表.備註_tb.Text & "','" & 收款報表.結帳年份_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款流水號修改()
+        ConnOpen()
+        SQL1 = "UPDATE 收款流水帳 SET 出貨工廠 = '" & 收款報表.出貨工廠_cb.Text & "', 收款日期 = '" & Format(收款報表.收款開始日期_dtp.Value, "yyyy/MM/dd") &
+                           "', 出貨日期 = '" & Format(收款報表.出貨開始日期_dtp.Value, "yyyy/MM/dd") & "', 訂單號碼 = '" & 收款報表.訂單號碼_cb.Text & "', 出貨數量 = '" & 收款報表.出貨數量_tb.Text &
+                           "', 單價 = '" & 收款報表.出貨單價_tb.Text & "', 出貨金额 = '" & 收款報表.出貨金額_tb.Text & "', 國外費用提單扣款 = '" & 收款報表.國外費用提單扣款_tb.Text & "', 實際金額 = '" & 收款報表.實際金額_tb.Text &
+                           "', 匯率 = '" & 收款報表.匯率_tb.Text & "', 人民幣金額 = '" & 收款報表.人民幣金額_tb.Text & "', 備註 = '" & 收款報表.備註_tb.Text & "', 結帳年分 = '" & 收款報表.結帳年份_cb.Text &
+                           "' WHERE (收款流水號 = '" & 收款報表.TextBox9.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款流水號刪除()
+        ConnOpen()
+        SQL1 = "DELETE FROM 收款流水帳 WHERE (收款流水號 = '" & 收款報表.TextBox9.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳務流水帳查詢()
+        ConnOpen()
+        SQL1 = "SELECT  TOP (1)流水號 FROM 帳務流水帳 ORDER BY 流水號 DESC "
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳務流水帳新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 帳務流水帳 (流水號, 支付日期, 項目, 備註, USD收入, RMB收入, 支出, 匯率, 狀態, 帳務對象, 結帳年份) 
+                        VALUES ('" & 收款報表.TextBox9.Text & "','" & Format(收款報表.結存日期_dtp.Value, "yyyy/MM/dd") & "','" & Format(收款報表.結存日期_dtp.Value, "yyyy") & "帳務結存" & "',
+                                '系統結算','" & 收款報表.總實際金額_tb.Text & "','" & 收款報表.總人民幣金額_tb.Text & "','0.000','0.0000','轉結','" & 收款報表.出貨工廠_cb.Text & "','" & 收款報表.結帳年份_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    '--------------------------收款報表批量輸入--------------------------------------------------
+    Friend Sub SQL_收款清單()
+        ConnOpen()
+        SQL1 = "SELECT 收款流水號, 出貨工廠, 收款日期, 出貨日期, 訂單號碼, 出貨數量, 單價, 出貨金额, 國外費用提單扣款, 實際金額, 匯率, 人民幣金額, 備註, 結帳年分 AS 結帳年份 
+                FROM   收款流水帳暫存檔 ORDER BY 收款流水號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_收款刪除()
+        ConnOpen()
+        SQL1 = "DELETE FROM 收款流水帳暫存檔"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款刪除多列()
+        ConnOpen()
+        SQL1 = "DELETE FROM 收款流水帳暫存檔 WHERE 收款流水號 LIKE '" & 收款報表批量輸入.收款流水號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款流水帳暫存檔更改()
+        ConnOpen()
+        SQL1 = "UPDATE 收款流水帳暫存檔 SET 出貨工廠 = '" & PA & "', 收款日期 = '" & PA1 & "', 
+                                                出貨日期 = '" & PA2 & "', 訂單號碼 = '" & PA3 & "', 
+                                                出貨數量 = '" & PA4 & "', 單價 = '" & PA5 & "', 
+                                                出貨金额 = '" & PA6 & "', 國外費用提單扣款 = '" & PA7 & "', 
+                                                實際金額 = '" & PA8 & "', 匯率 = '" & PA9 & "', 
+                                                人民幣金額 = '" & PA10 & "', 備註 = '" & PA11 & "', 
+                                                結帳年分 = '" & PA12 & "' 
+                    WHERE 收款流水號 LIKE '" & PA13 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款流水帳暫存檔最後一筆()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 收款流水號 FROM 收款流水帳暫存檔 ORDER BY 收款流水號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款流水帳最後一筆()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 收款流水號 FROM 收款流水帳 ORDER BY 收款流水號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款流水帳暫存檔增加()
+        ConnOpen()
+        SQL1 = "INSERT INTO 收款流水帳暫存檔 (收款流水號, 出貨工廠, 收款日期, 出貨日期, 訂單號碼, 出貨數量, 單價, 出貨金额, 國外費用提單扣款, 
+                                                          實際金額, 匯率, 人民幣金額, 備註, 結帳年分) 
+                            VALUES ('" & 收款報表批量輸入.TextBox2.Text & "','" & 收款報表批量輸入.出貨工廠_cb.Text & "','','','','','','','','','','','','" & 收款報表批量輸入.結帳年份_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_收款流水帳新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 收款流水帳 (收款流水號, 出貨工廠, 收款日期, 出貨日期, 訂單號碼, 出貨數量, 單價, 出貨金额, 國外費用提單扣款, 實際金額, 匯率, 人民幣金額, 備註, 結帳年分) 
+                    VALUES ('" & PA & "','" & PA2 & "','" & PA1 & "','" & PA3 & "', '" & PA4 & "','" & PA5 & "', '" & PA6 & "','" & PA7 & "',
+                            '" & PA8 & "','" & PA9 & "', '" & PA10 & "','" & PA11 & "',
+                            '" & PA12 & "','" & PA13 & "')"
+        CmdSet_For_dr()
+    End Sub
+    '------------------------------費用報表------------------------------------
+    Friend Sub SQL_帳務流水帳()
+        SQL1 = "SELECT  流水號, 帳務對象, 支付日期, 項目, 備註, CAST(USD收入 AS decimal(12, 2)) AS USD收入金額, CAST(RMB收入 AS decimal(12, 2)) AS RMB收入金額, 
+                        CAST(支出 AS decimal(12, 2)) AS RMB支出金額, CAST(匯率 AS decimal(12, 4)) AS 匯率, 狀態, 結帳年份 
+                FROM    帳務流水帳 
+                WHERE   結帳年份 LIKE N'%" & Year(Now) & "%' AND 狀態 NOT LIKE '結存' ORDER BY 支付日期 DESC"
+    End Sub
+    Friend Sub SQL_查詢收款流水帳()
+        ConnOpen()
+        SQL1 = "SELECT SUM(實際金額) AS 實際金額, SUM(人民幣金額) AS 人民幣金額 FROM 收款流水帳 WHERE (結帳年分 = '" & 費用報表.結帳年份_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢結帳年份()
+        ConnOpen()
+        SQL1 = "SELECT 結帳年份 FROM 帳務流水帳 WHERE (狀態 = '轉結') AND (項目 LIKE '%結存%') AND (結帳年份 = '" & 費用報表.結帳年份_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢最後一筆流水號()
+        ConnOpen()
+        SQL1 = "SELECT TOP(1)流水號 FROM 帳務流水帳 ORDER BY 流水號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢帳務對象()
+        SQL1 = "SELECT  流水號, 帳務對象, 支付日期, 項目, 備註, CAST(USD收入 AS decimal(12, 2)) AS USD收入金額, CAST(RMB收入 AS decimal(12, 2)) AS RMB收入金額, 
+                            CAST(支出 AS decimal(12, 2)) AS RMB支出金額, CAST(匯率 AS decimal(12, 4)) AS 匯率, 狀態, 結帳年份 
+                    FROM    帳務流水帳 
+                    WHERE   支付日期 BETWEEN '" & Format(費用報表.收款開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(費用報表.收款結束日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                            帳務對象 LIKE N'%" & 費用報表.帳務對象_cb.Text & "%' ORDER BY 支付日期 DESC"
+    End Sub
+    Friend Sub SQL_查詢支付日期()
+        SQL1 = "SELECT  流水號, 帳務對象, 支付日期, 項目, 備註, CAST(USD收入 AS decimal(12, 2)) AS USD收入金額, CAST(RMB收入 AS decimal(12, 2)) AS RMB收入金額, 
+                            CAST(支出 AS decimal(12, 2)) AS RMB支出金額, CAST(匯率 AS decimal(12, 4)) AS 匯率, 狀態, 結帳年份 
+                    FROM    帳務流水帳 
+                    WHERE   支付日期 BETWEEN '" & Format(費用報表.收款開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(費用報表.收款結束日期_dtp.Value, "yyyy/MM/dd") & "' ORDER BY 支付日期 DESC"
+    End Sub
+    Friend Sub SQL_查詢帳務對象1()
+        SQL1 = "SELECT  流水號, 帳務對象, 支付日期, 項目, 備註, CAST(USD收入 AS decimal(12, 2)) AS USD收入金額, CAST(RMB收入 AS decimal(12, 2)) AS RMB收入金額, 
+                            CAST(支出 AS decimal(12, 2)) AS RMB支出金額, CAST(匯率 AS decimal(12, 4)) AS 匯率, 狀態, 結帳年份 
+                    FROM    帳務流水帳 
+                    WHERE   帳務對象 LIKE N'%" & 費用報表.帳務對象_cb.Text & "%' ORDER BY 支付日期 DESC"
+    End Sub
+    Friend Sub SQL_查詢結帳年份1()
+        SQL1 = "SELECT  流水號, 帳務對象, 支付日期, 項目, 備註, CAST(USD收入 AS decimal(12, 2)) AS USD收入金額, CAST(RMB收入 AS decimal(12, 2)) AS RMB收入金額, 
+                            CAST(支出 AS decimal(12, 2)) AS RMB支出金額, CAST(匯率 AS decimal(12, 4)) AS 匯率, 狀態, 結帳年份 
+                    FROM    帳務流水帳 
+                    WHERE   結帳年份 LIKE N'%" & 費用報表.結帳年份_cb.Text & "%' AND 狀態 NOT LIKE '結存' ORDER BY 支付日期 DESC"
+    End Sub
+    Friend Sub SQL_帳務流水帳增加()
+        ConnOpen()
+        SQL1 = "INSERT INTO 帳務流水帳 (流水號, 支付日期, 項目, 備註, USD收入, RMB收入, 支出, 匯率, 狀態, 帳務對象, 結帳年份) 
+                            VALUES ('" & 費用報表.TextBox9.Text & "','" & Format(費用報表.收款開始日期_dtp.Value, "yyyy/MM/dd") & "','" & 費用報表.項目_tb.Text & "','" & 費用報表.備註_tb.Text & "',
+                                    '" & 費用報表.USD收入金額_tb.Text & "','" & 費用報表.RMB收入金額_tb.Text & "','" & 費用報表.RMB支出金額_tb.Text & "','" & 費用報表.匯率_tb.Text & "','帳務','" & 費用報表.帳務對象_cb.Text & "',
+                                    '" & 費用報表.結帳年份_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳務流水帳修改()
+        ConnOpen()
+        SQL1 = "UPDATE 帳務流水帳 SET 支付日期 = '" & Format(費用報表.收款開始日期_dtp.Value, "yyyy/MM/dd") & "', 項目 = '" & 費用報表.項目_tb.Text & "', 備註 = '" & 費用報表.備註_tb.Text & "', 
+                                              USD收入 = '" & 費用報表.USD收入金額_tb.Text & "', RMB收入 = '" & 費用報表.RMB收入金額_tb.Text & "', 支出 = '" & 費用報表.RMB支出金額_tb.Text & "', 匯率 = '" & 費用報表.匯率_tb.Text & "', 
+                                              帳務對象 = '" & 費用報表.帳務對象_cb.Text & "', 結帳年份 = '" & 費用報表.結帳年份_cb.Text & "' 
+                        WHERE (流水號 = '" & 費用報表.TextBox9.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳務流水帳刪除()
+        ConnOpen()
+        SQL1 = "DELETE FROM 帳務流水帳 WHERE (流水號 = '" & 費用報表.TextBox9.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳務流水帳新增1()
+        ConnOpen()
+        SQL1 = "INSERT INTO 帳務流水帳 (流水號, 支付日期, 項目, 備註, USD收入, RMB收入, 支出, 匯率, 狀態, 帳務對象, 結帳年份) 
+                        VALUES ('" & 費用報表.TextBox9.Text & "','" & Format(費用報表.結存日期_dtp.Value, "yyyy/MM/dd") & "',
+                                '" & Format(費用報表.結存日期_dtp.Value, "yyyy") & "帳務結存支出" & "','系統結算','0.0000','0.0000',
+                                '" & 費用報表.RMB結餘_tb.Text & "','0.0000','結存','" & 費用報表.帳務對象_cb.Text & "','" & 費用報表.結帳年份_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳務流水帳新增2()
+        ConnOpen()
+        SQL1 = "INSERT INTO 帳務流水帳 (流水號, 支付日期, 項目, 備註, USD收入, RMB收入, 支出, 匯率, 狀態, 帳務對象, 結帳年份) 
+                        VALUES ('" & 費用報表.TextBox9.Text & "','" & Format(費用報表.結存日期_dtp.Value, "yyyy/MM/dd") & "',
+                                '" & Format(費用報表.結存日期_dtp.Value, "yyyy") & "帳務轉結收入" & "','系統結算','0.0000',
+                                '" & 費用報表.RMB結餘_tb.Text & "','0.0000','0.0000','轉結','" & 費用報表.帳務對象_cb.Text & "','" & 費用報表.結帳年份_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+End Module

TENDEN-MES-SYS/Module/量產樣品單系統.vb

@@ -0,0 +1,351 @@
+Module 量產樣品單系統
+    '-----------------------------Customer_Information_資料管理------------------------------------
+    Friend Sub SQL_INVOICE用客戶資訊()
+        ConnOpen()
+        SQL1 = "SELECT 公司名稱, 地址, 電話, 傳真 FROM INVOICE用客戶資訊 ORDER BY 公司名稱"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_INVOICE用客戶人員()
+        ConnOpen()
+        SQL1 = "SELECT 公司名稱, 公司人員 FROM INVOICE用客戶人員 WHERE 公司名稱 LIKE '" & PA & "' ORDER BY 公司名稱"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_讀取客戶基本資料()
+        ConnOpen()
+        SQL1 = "SELECT 公司名稱 FROM INVOICE用客戶資訊 WHERE 公司名稱 LIKE '" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增客戶基本資料()
+        ConnOpen()
+        SQL1 = "INSERT INTO  INVOICE用客戶資訊 (公司名稱, 地址, 電話, 傳真) " &
+                           "VALUES ('" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "', '" & Customer_Information_資料管理.公司地址_tb.Text & "', '" & Customer_Information_資料管理.客戶公司電話_tb.Text & "', '" & Customer_Information_資料管理.客戶公司傳真_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶基本資料修改()
+        ConnOpen()
+        SQL1 = "UPDATE INVOICE用客戶資訊 SET 地址 = '" & Customer_Information_資料管理.公司地址_tb.Text & "', 電話 = '" & Customer_Information_資料管理.客戶公司電話_tb.Text & "', 傳真 = '" & Customer_Information_資料管理.客戶公司傳真_tb.Text & "' WHERE (公司名稱 = '" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶基本資料刪除()
+        ConnOpen()
+        SQL1 = "DELETE FROM INVOICE用客戶資訊 WHERE (公司名稱 = '" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶基本資料刪除1()
+        ConnOpen()
+        SQL1 = "DELETE FROM INVOICE用客戶人員 WHERE (公司名稱 = '" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢客戶人員新增()
+        ConnOpen()
+        SQL1 = "SELECT 公司名稱 FROM INVOICE用客戶人員 WHERE 公司名稱 LIKE '" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "' AND 公司人員 LIKE '" & Customer_Information_資料管理.客戶公司人員_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶人員新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO  INVOICE用客戶人員 (公司名稱, 公司人員) VALUES ('" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "', '" & Customer_Information_資料管理.客戶公司人員_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶人員修改()
+        ConnOpen()
+        SQL1 = "UPDATE INVOICE用客戶人員 SET 公司人員 = '" & Customer_Information_資料管理.客戶公司人員_tb.Text & "' WHERE (公司名稱 = '" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶人員刪除()
+        ConnOpen()
+        SQL1 = "DELETE FROM INVOICE用客戶人員 WHERE (公司名稱 = '" & Customer_Information_資料管理.客戶公司名稱_tb.Text & "' AND 公司人員 = '" & Customer_Information_資料管理.客戶公司人員_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    '--------------------------量產樣品明細表--------------------------------------------------------
+    Friend Sub SQL_讀取量產樣品控制表()
+        ConnOpen()
+        SQL1 = "SELECT   量產樣品控制表.樣品單號, 量產樣品控制表.PO, STYLELIST.ItemNumber, 量產樣品控制表.Style AS ProductName, STYLELIST.Description AS ProductDescription, 量產樣品控制表.Color, 
+                         量產樣品控制表.Width as DM, 量產樣品控制表.[5], 量產樣品控制表.[5.5], 量產樣品控制表.[6], 量產樣品控制表.[6.5], 量產樣品控制表.[7], 量產樣品控制表.[7.5], 量產樣品控制表.[8], 
+                         量產樣品控制表.[8.5], 量產樣品控制表.[9], 量產樣品控制表.[9.5], 量產樣品控制表.[10], 量產樣品控制表.[10.5], 量產樣品控制表.[11], 量產樣品控制表.[11.5], 量產樣品控制表.[12], 
+                         量產樣品控制表.[12.5], .[13], 量產樣品控制表.[14], 量產樣品控制表.[5] + 量產樣品控制表.[5.5] + 量產樣品控制表.[6] + 量產樣品控制表.[6.5] + 量產樣品控制表.[7] + 
+                         量產樣品控制表.[7.5] + 量產樣品控制表.[8] + 量產樣品控制表.[8.5] + 量產樣品控制表.[9] + 量產樣品控制表.[9.5] + 量產樣品控制表.[10] + 量產樣品控制表.[10.5] + 
+                         量產樣品控制表.[11] + 量產樣品控制表.[11.5] + 量產樣品控制表.[12] + 量產樣品控制表.[12.5] + 量產樣品控制表.[13] + 量產樣品控制表.[14] AS TOTAL 
+               FROM      量產樣品控制表 LEFT OUTER JOIN STYLELIST ON 量產樣品控制表.Style = STYLELIST.ProductName 
+               WHERE    (量產樣品控制表.樣品單號 Like '" & 量產樣品明細表.樣品單號_tb.Text & "') 
+               ORDER BY  量產樣品控制表.Style, 量產樣品控制表.Color"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_讀取量產樣品控制表1()
+        ConnOpen()
+        SQL1 = "SELECT    量產樣品控制表.樣品單號, 量產樣品控制表.PO, 量產樣品控制表.FTY, 訂單控制表生產工廠清單.供應商資料, 訂單控制表生產工廠清單.供應商地址, 
+                          SUM(量產樣品控制表.QTY) As 訂單數量, 量產樣品控制表.Po_Placed_Date, 量產樣品控制表.Requested_XFD, 量產樣品控制表.CFM_D_XFD, 量產樣品控制表.Ship_Date 
+               FROM       量產樣品控制表 INNER JOIN 訂單控制表生產工廠清單 On 量產樣品控制表.FTY = 訂單控制表生產工廠清單.生產工廠 
+               WHERE     (量產樣品控制表.樣品單號 Like '" & 量產樣品明細表.樣品單號_tb.Text & "') 
+               GROUP BY   量產樣品控制表.樣品單號, 量產樣品控制表.PO, 量產樣品控制表.FTY, 訂單控制表生產工廠清單.供應商資料, 訂單控制表生產工廠清單.供應商地址,
+                          量產樣品控制表.Po_Placed_Date, 量產樣品控制表.Requested_XFD, 量產樣品控制表.CFM_D_XFD, 量產樣品控制表.Ship_Date"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_明細建檔()
+        ConnOpen()
+        SQL1 = "SELECT 明細建檔 FROM 量產樣品控制表 WHERE (樣品單號 LIKE '" & 量產樣品明細表.樣品單號_tb.Text & "') GROUP BY 明細建檔"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶資料()
+        ConnOpen()
+        SQL1 = "SELECT 客戶名稱 FROM 客戶資料"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_MODEOFDELIVERY()
+        ConnOpen()
+        SQL1 = "SELECT MODEOFDELIVERY FROM MODEOFDELIVERY"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_DELIVERYTERMS()
+        ConnOpen()
+        SQL1 = "SELECT DELIVERYTERMS FROM DELIVERYTERMS"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_FROMPORT()
+        ConnOpen()
+        SQL1 = "SELECT FROMPORT FROM FROMPORT"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_TOPORT()
+        ConnOpen()
+        SQL1 = "SELECT TOPORT FROM TOPORT ORDER BY TOPORT"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_DELIVERYADDRESS()
+        ConnOpen()
+        SQL1 = "SELECT REMARK FROM DELIVERYADDRESS ORDER BY REMARK"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_量產樣品明細表抬頭()
+        ConnOpen()
+        SQL1 = "SELECT 訂單號, Number, M_Of_D, D_T, F_P, T_P, S_C, C_R, V_R, C_N, S_O, ETADate, Remark FROM 量產樣品明細表抬頭 WHERE 訂單號 LIKE '" & 量產樣品明細表.樣品單號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_DELIVERYADDRESS1()
+        ConnOpen()
+        SQL1 = "SELECT DELIVERYADDRESS FROM DELIVERYADDRESS WHERE REMARK LIKE '" & 量產樣品明細表.Remark_cb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改量產樣品控制表()
+        ConnOpen()
+        SQL1 = "UPDATE 量產樣品控制表 SET 明細建檔 = '1' WHERE (樣品單號 LIKE '" & 量產樣品明細表.樣品單號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增量產樣品明細表抬頭()
+        ConnOpen()
+        SQL1 = "INSERT INTO 量產樣品明細表抬頭 (訂單號, Number, M_Of_D, D_T, F_P, T_P, S_C, C_R, V_R, C_N, S_O, ETADate, Remark) " &
+                       "VALUES ('" & 量產樣品明細表.樣品單號_tb.Text & "','" & 量產樣品明細表.客戶訂單號_tb.Text & "','" & 量產樣品明細表.客戶資料_cb.Text & "','" & 量產樣品明細表.客戶資料1_cb.Text & "','" & 量產樣品明細表.客戶資料2_cb.Text & "','" & 量產樣品明細表.客戶資料3_cb.Text &
+                             "','" & 量產樣品明細表.ShippingCarrier_tb.Text & "','" & 量產樣品明細表.Customer_Requisition_tb.Text & "','" & 量產樣品明細表.Vendor_Reference_tb.Text & "','" & 量產樣品明細表.客戶姓名_tb.Text & "','" & 量產樣品明細表.銷售訂單_tb.Text & "', '" & DTP & "','" & 量產樣品明細表.Remark_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料修改()
+        ConnOpen()
+        SQL1 = "UPDATE 量產樣品明細表抬頭 SET M_Of_D = '" & 量產樣品明細表.客戶資料_cb.Text & "', D_T = '" & 量產樣品明細表.客戶資料1_cb.Text & "', F_P = '" & 量產樣品明細表.客戶資料2_cb.Text & "', T_P = '" & 量產樣品明細表.客戶資料3_cb.Text &
+                   "', S_C = '" & 量產樣品明細表.ShippingCarrier_tb.Text & "', C_R = '" & 量產樣品明細表.Customer_Requisition_tb.Text & "', V_R = '" & 量產樣品明細表.Vendor_Reference_tb.Text & "', C_N = '" & 量產樣品明細表.客戶姓名_tb.Text &
+                   "', S_O = '" & 量產樣品明細表.銷售訂單_tb.Text & "', ETADate = '" & DTP & "', Remark = '" & 量產樣品明細表.Remark_cb.Text & "' WHERE 訂單號 LIKE '" & 量產樣品明細表.樣品單號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料刪除()
+        ConnOpen()
+        SQL1 = "DELETE FROM 量產樣品明細表抬頭 WHERE (訂單號 = '" & 量產樣品明細表.樣品單號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料刪除1()
+        ConnOpen()
+        SQL1 = "DELETE FROM 量產樣品控制表 WHERE ( 樣品單號 = '" & 量產樣品明細表.樣品單號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    '---------------------量產樣品流水號---------------------------------------------------------------
+    Friend Sub SQL_讀取樣品單號最後一筆()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 樣品單號 FROM 量產樣品控制表 WHERE (樣品單號 LIKE '%" & 量產樣品明細表.樣品單號_tb.Text & "%') GROUP BY 樣品單號 ORDER BY 樣品單號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    '-----------------列印_生產進度表--------------------------------------
+    Friend Sub SQL_讀取訂單清單()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單1()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單2()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK')  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單3()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH')  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單4()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') AND 訂單種類 NOT LIKE '%QVC%' ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單5()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK') AND 訂單種類 NOT LIKE '%QVC%'  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單6()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " " &
+                   "WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH') AND 訂單種類 NOT LIKE '%QVC%'  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單7()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') AND 訂單種類 LIKE '%QVC%' ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單8()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE  ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK') AND 訂單種類 LIKE '%QVC%'  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    Friend Sub SQL_讀取訂單清單9()
+        SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
+                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
+                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
+                    FROM     " & 訂單資料表(1) & " 
+                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH') AND 訂單種類 LIKE '%QVC%'  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
+    End Sub
+    '-------------------列印_周進度表-------------------------------------------------------
+    Friend Sub SQL_列印_周進度表()
+        SQL1 = "SELECT     訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
+                               訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
+                               Remarks, 訂單流水號 
+                    FROM       " & 訂單資料表(1) & " 
+                    WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 = 0) AND ((LEFT(客戶交期, 4) LIKE '" & Year(Today) & "') or (LEFT(客戶交期, 4) LIKE '" & Year(Today) + 1 & "')) 
+                    ORDER BY   訂單流水號 DESC, STYLE_NAME, COLOR, WIDTH"
+    End Sub
+    Friend Sub SQL_列印_周進度表1()
+        SQL1 = "SELECT    訂單種類 AS Order_type, PO_S_Date , 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
+                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
+                              Remarks, 訂單流水號 
+                    FROM      " & 訂單資料表(1) & " 
+                    WHERE    (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
+    End Sub
+    Friend Sub SQL_列印_周進度表2()
+        SQL1 = "SELECT    訂單種類 AS Order_type, PO_S_Date , 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
+                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
+                              Remarks, 訂單流水號 
+                    FROM      " & 訂單資料表(1) & " 
+                    WHERE    (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
+    End Sub
+    Friend Sub SQL_列印_周進度表3()
+        SQL1 = "SELECT    訂單種類 AS Order_type, PO_S_Date , 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
+                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
+                              Remarks, 訂單流水號 
+                    FROM      " & 訂單資料表(1) & " 
+                    WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
+    End Sub
+    '-----------------------列印_周進度表T1_T4----------------------------------------------------
+    Friend Sub SQL_列印周進度表()
+        SQL1 = "SELECT    年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
+                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
+                              成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片 
+                    FROM      " & 訂單資料表(1) & " 
+                    WHERE    (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 = 0) AND ((LEFT(客戶交期, 4) LIKE '" & Year(Today) & "') OR (LEFT(客戶交期, 4) LIKE '" & Year(Today) - 1 & "') OR 
+                             (LEFT(客戶交期, 4) LIKE '" & Year(Today) - 2 & "')) 
+                    ORDER BY   訂單流水號 DESC, STYLE_NAME, COLOR, WIDTH"
+    End Sub
+    Friend Sub SQL_列印周進度表1()
+        SQL1 = "SELECT    年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
+                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
+                              成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片 
+                   FROM       " & 訂單資料表(1) & " 
+                   WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
+    End Sub
+    Friend Sub SQL_列印周進度表2()
+        SQL1 = "SELECT    年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
+                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
+                              成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片 
+                   FROM       " & 訂單資料表(1) & " " &
+                      "WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
+    End Sub
+    Friend Sub SQL_列印周進度表3()
+        SQL1 = "SELECT    年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
+                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
+                              成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片 
+                   FROM       " & 訂單資料表(1) & " " &
+                      "WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
+    End Sub
+    '--------------------------列印_訂單明細表------------------------------------------------------
+    Friend Sub SQL_列印訂單明細表()
+        ConnOpen()
+        SQL1 = "SELECT      " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(5) & ".ItemNumber, 
+                            " & 訂單資料表(5) & ".ProductName, " & 訂單資料表(5) & ".Color, " & 訂單資料表(5) & ".DM, " & 訂單資料表(5) & ".[5], 
+                            " & 訂單資料表(5) & ".[5.5], " & 訂單資料表(5) & ".[6], " & 訂單資料表(5) & ".[6.5], " & 訂單資料表(5) & ".[7], " & 訂單資料表(5) & ".[7.5], 
+                            " & 訂單資料表(5) & ".[8], " & 訂單資料表(5) & ".[8.5], " & 訂單資料表(5) & ".[9], " & 訂單資料表(5) & ".[9.5], " & 訂單資料表(5) & ".[10], 
+                            " & 訂單資料表(5) & ".[10.5], " & 訂單資料表(5) & ".[11], " & 訂單資料表(5) & ".[11.5], " & 訂單資料表(5) & ".[12], 
+                            " & 訂單資料表(5) & ".[12.5], " & 訂單資料表(5) & ".[13], " & 訂單資料表(5) & ".[14], 
+                            " & 訂單資料表(5) & ".[5] + " & 訂單資料表(5) & ".[5.5] + " & 訂單資料表(5) & ".[6] + " & 訂單資料表(5) & ".[6.5] + " & 訂單資料表(5) & ".[7] +
+                             " & 訂單資料表(5) & ".[7.5] + " & 訂單資料表(5) & ".[8] + " & 訂單資料表(5) & ".[8.5] + " & 訂單資料表(5) & ".[9] + " & 訂單資料表(5) & ".[9.5]
+                             + " & 訂單資料表(5) & ".[10] + " & 訂單資料表(5) & ".[10.5] + " & 訂單資料表(5) & ".[11] + " & 訂單資料表(5) & ".[11.5] + " & 訂單資料表(5) & ".[12]
+                             + " & 訂單資料表(5) & ".[12.5] + " & 訂單資料表(5) & ".[13] + " & 訂單資料表(5) & ".[14] AS Total, " & 訂單資料表(1) & ".客戶交期, 
+                            " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".Confirm_XF
+                 FROM       " & 訂單資料表(1) & " LEFT OUTER JOIN
+                            " & 訂單資料表(5) & " ON " & 訂單資料表(1) & ".訂單流水號 = " & 訂單資料表(5) & ".天盾流水號 AND 
+                            " & 訂單資料表(1) & ".客戶訂單號 = " & 訂單資料表(5) & ".客戶訂單號 AND 
+                            " & 訂單資料表(1) & ".形體號 = " & 訂單資料表(5) & ".ProductName AND 
+                            " & 訂單資料表(1) & ".顏色 = " & 訂單資料表(5) & ".Color AND " & 訂單資料表(1) & ".楦型 = " & 訂單資料表(5) & ".DM
+                 WHERE     (" & 訂單資料表(1) & ".CXL = 0 OR
+                            " & 訂單資料表(1) & ".CXL IS NULL) AND (" & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(1) & ".出貨數量 <> 0)
+                 ORDER BY   " & 訂單資料表(1) & ".客戶訂單號, " & 訂單資料表(5) & ".ItemNumber, " & 訂單資料表(5) & ".ProductName, 
+                            " & 訂單資料表(5) & ".Color, " & 訂單資料表(5) & ".DM"
+        CmdSet_For_DGV()
+    End Sub
+    '-------------------------列印_測試報告-----------------------------------------------------------------
+    Friend Sub SQL_列印測試報告()
+        SQL1 = "SELECT   測試報告控制表.測試單編號, 測試報告控制表.國標測試, 訂單控制表.生產工廠 AS 工廠, 測試報告控制表.型體號, 訂單控制表.形體號 AS 型體名稱, 訂單控制表.顏色, 
+                             測試報告控制表.第一張訂單工廠交期, 測試報告控制表.第一張訂單客人交期, 測試報告控制表.送測試日期, 測試報告控制表.測試結果, 測試報告控制表.通過日期, 
+                             測試報告控制表.失敗專案, 測試報告控制表.備註 
+                    FROM     訂單控制表 LEFT OUTER JOIN 測試報告控制表 ON 訂單控制表.形體號 = 測試報告控制表.型體名稱 AND 訂單控制表.國標測試 = 測試報告控制表.國標測試 AND 
+                             訂單控制表.顏色 = 測試報告控制表.顏色 
+                    WHERE   (訂單控制表.CXL = 0 OR 訂單控制表.CXL IS NULL) AND (訂單控制表.訂單數量 - 訂單控制表.出貨數量 <> 0) AND (測試報告控制表.國標測試 = 1) 
+                    GROUP BY 訂單控制表.形體號, 訂單控制表.顏色, 測試報告控制表.測試單編號, 測試報告控制表.國標測試, 測試報告控制表.型體號, 測試報告控制表.第一張訂單工廠交期, 
+                             測試報告控制表.第一張訂單客人交期, 測試報告控制表.送測試日期, 測試報告控制表.測試結果, 測試報告控制表.通過日期, 測試報告控制表.失敗專案, 測試報告控制表.備註, 
+                             訂單控制表.生產工廠 
+                    ORDER BY 型體名稱, 訂單控制表.顏色"
+    End Sub
+    Friend Sub SQL_列印測試報告1()
+        SQL1 = "SELECT   測試報告控制表.測試單編號, 測試報告控制表.國標測試, 訂單控制表.生產工廠 AS 工廠, 測試報告控制表.型體號, 訂單控制表.形體號 AS 型體名稱, 訂單控制表.顏色, 
+                             測試報告控制表.第一張訂單工廠交期, 測試報告控制表.第一張訂單客人交期, 測試報告控制表.送測試日期, 測試報告控制表.測試結果, 測試報告控制表.通過日期, 
+                             測試報告控制表.失敗專案, 測試報告控制表.備註 
+                    FROM     訂單控制表 LEFT OUTER JOIN 測試報告控制表 ON 訂單控制表.形體號 = 測試報告控制表.型體名稱 AND 訂單控制表.國標測試 = 測試報告控制表.國標測試 AND 
+                             訂單控制表.顏色 = 測試報告控制表.顏色 
+                    WHERE   (訂單控制表.CXL = 0 OR 訂單控制表.CXL IS NULL) AND (訂單控制表.訂單數量 - 訂單控制表.出貨數量 <> 0) AND 測試報告控制表.國標測試 = 0 
+                    GROUP BY 訂單控制表.形體號, 訂單控制表.顏色, 測試報告控制表.測試單編號, 測試報告控制表.國標測試, 測試報告控制表.型體號, 測試報告控制表.第一張訂單工廠交期, 
+                             測試報告控制表.第一張訂單客人交期, 測試報告控制表.送測試日期, 測試報告控制表.測試結果, 測試報告控制表.通過日期, 測試報告控制表.失敗專案, 
+                             測試報告控制表.備註, 訂單控制表.生產工廠 
+                    ORDER BY 型體名稱, 訂單控制表.顏色"
+    End Sub
+    '--------------------DELIVERY_ADDRESS__資料管理----------------------------------
+    Friend Sub SQL_DELIVERYADDRESS清單()
+        ConnOpen()
+        SQL1 = "SELECT REMARK, DELIVERYADDRESS FROM DELIVERYADDRESS"
+        CmdSet_For_DGV()
+    End Sub
+End Module

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-43ba9e9ebad173fac0852c51e194ab286b5b0ead
+5c63d226d96ebc89e6170a0e2614d35173ea31ac

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt

@@ -952,3 +952,4 @@ C:\Users\USER\Downloads\FANG-master\fang\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS
 C:\Users\USER\Downloads\FANG-master\fang\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
 C:\Users\USER\Downloads\FANG-master\fang\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.下拉清單_1.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbprojAssemblyReference.cache

TENDEN-MES-SYS/天盾系統.vbproj

@@ -109,6 +109,7 @@
     <Compile Include="Module\SQL_樣品訂單管理.vb" />
     <Compile Include="Module\SQL_製鞋技術管理.vb" />
     <Compile Include="Module\SQL_財務系統管理.vb" />
+    <Compile Include="Module\量產樣品單系統.vb" />
     <Compile Include="彙總報表管理\特殊工具\力威發票明細轉換工具.Designer.vb">
       <DependentUpon>力威發票明細轉換工具.vb</DependentUpon>
     </Compile>

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

@@ -463,15 +463,15 @@ Public Class 中文樣品吊牌管理
             Set_DGV1載入前設定()
             If 開發部門 = False And 確認部門 = True Then
                 If 工廠_cb.Text = "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') " & 結尾SQL
+                    SQL_季節改動()
                 Else
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') " & 結尾SQL
+                    SQL_季節改動1()
                 End If
             ElseIf 開發部門 = True And 確認部門 = False Then
                 If 工廠_cb.Text = "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') " & 結尾SQL
+                    SQL_季節改動3()
                 Else
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') " & 結尾SQL
+                    SQL_季節改動4()
                 End If
             End If
             Set_DGV1載入後設定() : Set_grid1()
@@ -484,15 +484,15 @@ Public Class 中文樣品吊牌管理
             Set_DGV1載入前設定()
             If 開發部門 = False And 確認部門 = True Then
                 If 季節_cb.Text = "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') " & 結尾SQL
+                    SQL_季節改動2()
                 Else
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') " & 結尾SQL
+                    SQL_季節改動1()
                 End If
             ElseIf 開發部門 = True And 確認部門 = False Then
                 If 季節_cb.Text = "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') " & 結尾SQL
+                    SQL_季節改動3()
                 Else
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') " & 結尾SQL
+                    SQL_季節改動4()
                 End If
             End If
             Set_DGV1載入後設定() : Set_grid1()
@@ -516,47 +516,39 @@ Public Class 中文樣品吊牌管理
             Set_DGV1載入前設定()
             If 開發部門 = False And 確認部門 = True Then
                 If ZXC = "" And 季節_cb.Text = "" And 工廠_cb.Text <> "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋()
                 ElseIf ZXC = "" And 季節_cb.Text <> "" And 工廠_cb.Text = "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋1()
                 ElseIf ZXC = "" And 季節_cb.Text <> "" And 工廠_cb.Text <> "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') AND 
-                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋2()
                 ElseIf ZXC = "" And 季節_cb.Text = "" And 工廠_cb.Text = "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋3()
                 ElseIf ZXC <> "" And 季節_cb.Text = "" And 工廠_cb.Text = "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋4()
                 ElseIf ZXC <> "" And 季節_cb.Text = "" And 工廠_cb.Text <> "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') AND 
-                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋5()
                 ElseIf ZXC <> "" And 季節_cb.Text <> "" And 工廠_cb.Text = "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND 
-                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋6()
                 ElseIf ZXC <> "" And 季節_cb.Text <> "" And 工廠_cb.Text <> "" Then
-                    SQL1 = 確認SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND 
-                                      (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋7()
                 End If
             ElseIf 開發部門 = True And 確認部門 = False Then
                 If ZXC = "" And 季節_cb.Text = "" And 工廠_cb.Text <> "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋8()
                 ElseIf ZXC = "" And 季節_cb.Text <> "" And 工廠_cb.Text = "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋9()
                 ElseIf ZXC = "" And 季節_cb.Text <> "" And 工廠_cb.Text <> "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') AND 
-                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋10()
                 ElseIf ZXC = "" And 季節_cb.Text = "" And 工廠_cb.Text = "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋11()
                 ElseIf ZXC <> "" And 季節_cb.Text = "" And 工廠_cb.Text = "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋12()
                 ElseIf ZXC <> "" And 季節_cb.Text = "" And 工廠_cb.Text <> "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') AND 
-                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋13()
                 ElseIf ZXC <> "" And 季節_cb.Text <> "" And 工廠_cb.Text = "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND 
-                                      (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋14()
                 ElseIf ZXC <> "" And 季節_cb.Text <> "" And 工廠_cb.Text <> "" Then
-                    SQL1 = 開發SQL & "AND (確認樣品單抬頭.階段 LIKE '" & ZXC & "') AND (確認樣品單抬頭.季節 LIKE '" & 季節_cb.Text & "') AND 
-                                      (確認樣品單抬頭.工廠 LIKE '" & 工廠_cb.Text & "') AND (確認樣品單控制表.數量 LIKE '" & PA & "') " & 結尾SQL
+                    SQL_數量搜尋15()
                 End If
             End If
             Set_DGV1載入後設定() : Set_grid1()

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

@@ -1693,9 +1693,9 @@ Public Class 中文樣品單
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds9) : 中繼2_dgv.DataSource = ds9.Tables(0) : conn.Close()
     End Sub
     Private Sub Button37_Click(sender As Object, e As EventArgs) Handles 新增顏色_bt.Click
-        PA = InputBox("請輸入需要新增的顏色數量")
+        PA10 = InputBox("請輸入需要新增的顏色數量")
         If 編輯模式_bt.Enabled = False Then
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 Set_樣品單流水編號設定2_2()
                 SQL_新增確認樣品單控制表1() : conn.Close()
             Next
@@ -1703,7 +1703,7 @@ Public Class 中文樣品單
             Set_DGV10載入前設定()
             SQL_確認樣品單控制表()
             Set_DGV10載入後設定()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
                     PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
                     PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString
@@ -1714,7 +1714,7 @@ Public Class 中文樣品單
             Set_DGV10載入前設定()
             SQL_確認樣品單控制表1()
             Set_DGV10載入後設定()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
                     PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
                     PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString
@@ -1725,7 +1725,7 @@ Public Class 中文樣品單
             Set_DGV10載入前設定()
             SQL_確認樣品單控制表2()
             Set_DGV10載入後設定()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
                     PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
                     PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString
@@ -1736,7 +1736,7 @@ Public Class 中文樣品單
             Set_DGV10載入前設定()
             SQL_確認樣品單控制表3()
             Set_DGV10載入後設定()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
                     PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
                     PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString
@@ -1746,7 +1746,7 @@ Public Class 中文樣品單
             '**********************************************************************************************************************************************************************************************
         ElseIf 編輯模式_bt.Enabled = True Then
             Set_樣品單流水編號設定2()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 Set_樣品單流水編號設定2_1()
                 SQL_新增確認樣品單控制表暫存檔4() : conn.Close()
             Next
@@ -1755,7 +1755,7 @@ Public Class 中文樣品單
             Set_DGV10載入前設定()
             SQL_確認樣品單控制表暫存檔2()
             Set_DGV10載入後設定()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
                     PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
                     PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value.ToString
@@ -1766,7 +1766,7 @@ Public Class 中文樣品單
             Set_DGV10載入前設定()
             SQL_確認樣品單控制表暫存檔3()
             Set_DGV10載入後設定()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
                     PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
                     PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value.ToString
@@ -1777,7 +1777,7 @@ Public Class 中文樣品單
             Set_DGV10載入前設定()
             SQL_確認樣品單控制表暫存檔4()
             Set_DGV10載入後設定()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
                     PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
                     PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value.ToString
@@ -1788,7 +1788,7 @@ Public Class 中文樣品單
             Set_DGV10載入前設定()
             SQL_確認樣品單控制表暫存檔5()
             Set_DGV10載入後設定()
-            For i As Integer = 1 To PA
+            For i As Integer = 1 To PA10
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
                     PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
                     PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value.ToString

TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文確認樣品確認通知單.vb

@@ -4,137 +4,180 @@ Public Class 中文確認樣品確認通知單
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
     ReadOnly DTP(1) As String
     Private Sub Set_DGV1載入前設定()
-        確認樣品清單_dtp.DataSource = Nothing : ds.Clear()
-        確認樣品清單_dtp.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        確認樣品清單_dtp.ColumnHeadersHeight = 25
-        確認樣品清單_dtp.AllowUserToAddRows = False
-        ConnOpen()
+        Try
+            確認樣品清單_dtp.DataSource = Nothing : ds.Clear()
+            確認樣品清單_dtp.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            確認樣品清單_dtp.ColumnHeadersHeight = 25
+            確認樣品清單_dtp.AllowUserToAddRows = False
+            ConnOpen()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_DGV1載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 確認樣品清單_dtp.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_確認樣品清單()
-        Set_DGV1載入前設定()
-        SQL1 = "SELECT  確認樣品單抬頭.季節, 確認樣品單抬頭.型體名, 確認樣品單抬頭.型體號碼, 確認樣品單控制表.顏色, 確認樣品單控制表.訂單顏色, 確認樣品單控制表.SIZE, 確認樣品單控制表.PO, 
-                        確認樣品單控制表.DATE, 確認樣品單控制表.FROMS, 確認樣品單控制表.Ship_Date, 確認樣品單控制表.FACTORY, 確認樣品單控制表.確認結果1 AS 確認, 確認樣品單控制表.確認結果2, 
-                        確認樣品單控制表.確認結果3, 確認樣品單控制表.注意, 確認樣品單控制表.確認通知單鞋圖, 確認樣品單控制表.樣品流水號一 
-                FROM    確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 
-                        確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 WHERE 確認樣品單抬頭.部門 Like '確認' 
-               ORDER BY 確認樣品單抬頭.季節, 確認樣品單抬頭.型體名, 確認樣品單抬頭.型體號碼, 確認樣品單控制表.顏色"
-        Set_DGV1載入後設定()
+        Try
+            Set_DGV1載入前設定()
+            SQL_讀取確認樣品清單()
+            Set_DGV1載入後設定()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_DGV2載入前設定()
-        圖片編號_dgv.DataSource = Nothing : ds1.Clear()
-        圖片編號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        圖片編號_dgv.ColumnHeadersHeight = 25
-        圖片編號_dgv.AllowUserToAddRows = False
-        ConnOpen()
+        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
     End Sub
     Private Sub Set_DGV2載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 圖片編號_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_圖片清單()
-        Set_DGV2載入前設定()
-        SQL1 = "Select 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 Not Like '%產地標' AND 類型 LIKE '確認%' ORDER BY   類型, 形體名, 形體號, 顏色"
-        Set_DGV2載入後設定()
+        Try
+            Set_DGV2載入前設定()
+            SQL_讀取圖片清單()
+            Set_DGV2載入後設定()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_grid()
-        確認樣品清單_dtp.Columns(0).FillWeight = 50 : 確認樣品清單_dtp.Columns(1).FillWeight = 110 : 確認樣品清單_dtp.Columns(2).FillWeight = 80 : 確認樣品清單_dtp.Columns(3).FillWeight = 105
-        確認樣品清單_dtp.Columns(4).FillWeight = 80
-        確認樣品清單_dtp.Columns(5).Visible = False : 確認樣品清單_dtp.Columns(6).Visible = False : 確認樣品清單_dtp.Columns(7).Visible = False : 確認樣品清單_dtp.Columns(8).Visible = False
-        確認樣品清單_dtp.Columns(9).Visible = False : 確認樣品清單_dtp.Columns(10).Visible = False
-        確認樣品清單_dtp.Columns(11).FillWeight = 40
-        確認樣品清單_dtp.Columns(12).Visible = False : 確認樣品清單_dtp.Columns(13).Visible = False : 確認樣品清單_dtp.Columns(14).Visible = False : 確認樣品清單_dtp.Columns(15).Visible = False
-        確認樣品清單_dtp.Columns(16).Visible = False
+        Try
+            確認樣品清單_dtp.Columns(0).FillWeight = 50 : 確認樣品清單_dtp.Columns(1).FillWeight = 110 : 確認樣品清單_dtp.Columns(2).FillWeight = 80 : 確認樣品清單_dtp.Columns(3).FillWeight = 105
+            確認樣品清單_dtp.Columns(4).FillWeight = 80
+            確認樣品清單_dtp.Columns(5).Visible = False : 確認樣品清單_dtp.Columns(6).Visible = False : 確認樣品清單_dtp.Columns(7).Visible = False : 確認樣品清單_dtp.Columns(8).Visible = False
+            確認樣品清單_dtp.Columns(9).Visible = False : 確認樣品清單_dtp.Columns(10).Visible = False
+            確認樣品清單_dtp.Columns(11).FillWeight = 40
+            確認樣品清單_dtp.Columns(12).Visible = False : 確認樣品清單_dtp.Columns(13).Visible = False : 確認樣品清單_dtp.Columns(14).Visible = False : 確認樣品清單_dtp.Columns(15).Visible = False
+            確認樣品清單_dtp.Columns(16).Visible = False
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_grid1()
-        圖片編號_dgv.Columns(0).FillWeight = 100 : 圖片編號_dgv.Columns(1).FillWeight = 80 : 圖片編號_dgv.Columns(2).FillWeight = 80 : 圖片編號_dgv.Columns(3).Visible = False
-        圖片編號_dgv.Columns(4).Visible = False
+        Try
+            圖片編號_dgv.Columns(0).FillWeight = 100 : 圖片編號_dgv.Columns(1).FillWeight = 80 : 圖片編號_dgv.Columns(2).FillWeight = 80 : 圖片編號_dgv.Columns(3).Visible = False
+            圖片編號_dgv.Columns(4).Visible = False
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_格式設置()
-        圖片編號_tb.Enabled = False : TextBox2.Enabled = False : 顏色_tb.Enabled = False : TextBox4.Enabled = False : FROM_tb.Enabled = False : TextBox10.Visible = False
-        TextBox11.Visible = False
+        Try
+            圖片編號_tb.Enabled = False : TextBox2.Enabled = False : 顏色_tb.Enabled = False : TextBox4.Enabled = False : FROM_tb.Enabled = False : TextBox10.Visible = False
+            TextBox11.Visible = False
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 確認樣品確認樣品單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        Set_確認樣品清單() : Set_grid() : Set_圖片清單() : Set_grid1() : Set_格式設置()
-        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
+        Try
+            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+            Set_確認樣品清單() : Set_grid() : Set_圖片清單() : Set_grid1() : Set_格式設置()
+            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
     End Sub
     Private Sub 確認樣品確認樣品單_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
-        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
+        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
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
-        確認樣品清單_dtp.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        圖片編號_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        Try
+            確認樣品清單_dtp.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+            圖片編號_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 確認樣品清單_dtp.RowPostPaint
-        Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = 確認樣品清單_dtp.Rows.Count - 1 Then
-            Exit Sub
-        Else
-            If 確認樣品清單_dtp(1, e.RowIndex).Value.ToString <> 確認樣品清單_dtp(1, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(確認樣品清單_dtp.RowHeadersVisible, 確認樣品清單_dtp.RowHeadersWidth, 0)
-                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + 確認樣品清單_dtp.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 確認樣品清單_dtp.HorizontalScrollingOffset
-                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+        Try
+            Dim linePen As New Pen(Color.Blue, 2)
+            If e.RowIndex = 確認樣品清單_dtp.Rows.Count - 1 Then
                 Exit Sub
+            Else
+                If 確認樣品清單_dtp(1, e.RowIndex).Value.ToString <> 確認樣品清單_dtp(1, e.RowIndex + 1).Value.ToString Then
+                    Dim startX As Integer = IIf(確認樣品清單_dtp.RowHeadersVisible, 確認樣品清單_dtp.RowHeadersWidth, 0)
+                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                    Dim endX As Integer = startX + 確認樣品清單_dtp.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 確認樣品清單_dtp.HorizontalScrollingOffset
+                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                    Exit Sub
+                End If
             End If
-        End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 確認樣品清單_dtp.CellClick
-        If e.RowIndex = -1 Then : Else
-            圖片編號_tb.Text = 確認樣品清單_dtp(1, e.RowIndex).Value.ToString : TextBox2.Text = 確認樣品清單_dtp(2, e.RowIndex).Value.ToString
-            顏色_tb.Text = 確認樣品清單_dtp(3, e.RowIndex).Value.ToString : TextBox4.Text = 確認樣品清單_dtp(4, e.RowIndex).Value.ToString
-            SIZE_tb.Text = 確認樣品清單_dtp(5, e.RowIndex).Value.ToString : PO_tb.Text = 確認樣品清單_dtp(6, e.RowIndex).Value.ToString
-            FROM_tb.Text = 確認樣品清單_dtp(8, e.RowIndex).Value.ToString : FACTORY_dtp.Text = 確認樣品清單_dtp(10, e.RowIndex).Value.ToString
-            確認通過_ch.Checked = 確認樣品清單_dtp(11, e.RowIndex).Value.ToString : 不通過重新打樣_ch.Checked = 確認樣品清單_dtp(12, e.RowIndex).Value.ToString
-            通過重新打樣_ch.Checked = 確認樣品清單_dtp(13, e.RowIndex).Value.ToString
-            注意_tb.Text = 確認樣品清單_dtp(14, e.RowIndex).Value.ToString : TextBox10.Text = 確認樣品清單_dtp(15, e.RowIndex).Value.ToString
-            TextBox11.Text = 確認樣品清單_dtp(16, e.RowIndex).Value.ToString
-            列印用SQL = TextBox11.Text
-            DTP(0) = 確認樣品清單_dtp(7, e.RowIndex).Value.ToString : DTP(1) = 確認樣品清單_dtp(9, e.RowIndex).Value.ToString
+        Try
+            If e.RowIndex = -1 Then : Else
+                圖片編號_tb.Text = 確認樣品清單_dtp(1, e.RowIndex).Value.ToString : TextBox2.Text = 確認樣品清單_dtp(2, e.RowIndex).Value.ToString
+                顏色_tb.Text = 確認樣品清單_dtp(3, e.RowIndex).Value.ToString : TextBox4.Text = 確認樣品清單_dtp(4, e.RowIndex).Value.ToString
+                SIZE_tb.Text = 確認樣品清單_dtp(5, e.RowIndex).Value.ToString : PO_tb.Text = 確認樣品清單_dtp(6, e.RowIndex).Value.ToString
+                FROM_tb.Text = 確認樣品清單_dtp(8, e.RowIndex).Value.ToString : FACTORY_dtp.Text = 確認樣品清單_dtp(10, e.RowIndex).Value.ToString
+                確認通過_ch.Checked = 確認樣品清單_dtp(11, e.RowIndex).Value.ToString : 不通過重新打樣_ch.Checked = 確認樣品清單_dtp(12, e.RowIndex).Value.ToString
+                通過重新打樣_ch.Checked = 確認樣品清單_dtp(13, e.RowIndex).Value.ToString
+                注意_tb.Text = 確認樣品清單_dtp(14, e.RowIndex).Value.ToString : TextBox10.Text = 確認樣品清單_dtp(15, e.RowIndex).Value.ToString
+                TextBox11.Text = 確認樣品清單_dtp(16, e.RowIndex).Value.ToString
+                列印用SQL = TextBox11.Text
+                DTP(0) = 確認樣品清單_dtp(7, e.RowIndex).Value.ToString : DTP(1) = 確認樣品清單_dtp(9, e.RowIndex).Value.ToString
 
-            If DTP(0) = "" Then : DATE_dtp.Format = DateTimePickerFormat.Custom : DATE_dtp.CustomFormat = " "
-            Else : DATE_dtp.Format = DateTimePickerFormat.Short : DATE_dtp.Text = DTP(0) : End If
-            If DTP(1) = "" Then : Ship_Date_dtp.Format = DateTimePickerFormat.Custom : Ship_Date_dtp.CustomFormat = " "
-            Else : Ship_Date_dtp.Format = DateTimePickerFormat.Short : Ship_Date_dtp.Text = DTP(1) : End If
-            PictureBox1.Image = Nothing
-            ConnOpen()
-            SQL1 = "SELECT 圖片 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & TextBox10.Text & "'"
-            CmdSet_For_dr()
-            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
+                If DTP(0) = "" Then : DATE_dtp.Format = DateTimePickerFormat.Custom : DATE_dtp.CustomFormat = " "
+                Else : DATE_dtp.Format = DateTimePickerFormat.Short : DATE_dtp.Text = DTP(0) : End If
+                If DTP(1) = "" Then : Ship_Date_dtp.Format = DateTimePickerFormat.Custom : Ship_Date_dtp.CustomFormat = " "
+                Else : Ship_Date_dtp.Format = DateTimePickerFormat.Short : Ship_Date_dtp.Text = DTP(1) : End If
+                PictureBox1.Image = Nothing
+                SQL_讀取圖片庫一()
+                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
     End Sub
     Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片編號_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            TextBox10.Text = 圖片編號_dgv(4, e.RowIndex).Value.ToString
-            ConnOpen()
-            SQL1 = "SELECT 圖片 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & TextBox10.Text & "'"
-            CmdSet_For_dr()
-            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
+        Try
+            If e.RowIndex = -1 Then : Else
+                TextBox10.Text = 圖片編號_dgv(4, e.RowIndex).Value.ToString
+                SQL_讀取圖片庫一()
+                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
     End Sub
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 確認通過_ch.Click
         If 確認通過_ch.Checked = True Then : 確認通過_ch.Checked = True : 不通過重新打樣_ch.Checked = False : 通過重新打樣_ch.Checked = False : End If
@@ -152,69 +195,55 @@ Public Class 中文確認樣品確認通知單
         Ship_Date_dtp.Format = DateTimePickerFormat.Short
     End Sub
     Private Sub Button39_Click(sender As Object, e As EventArgs) Handles 搜尋圖片_bt.Click
-        PA = InputBox("請輸入關鍵字")
-        Set_DGV2載入前設定()
-        SQL1 = "SELECT     形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 
-                WHERE      類型 NOT LIKE '%產地標' AND 類型 LIKE '確認%' AND (形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 顏色 LIKE '%" & PA & "%') 
-                ORDER BY   類型, 形體名, 形體號, 顏色"
-        Set_DGV2載入後設定()
+        Try
+            PA = InputBox("請輸入關鍵字")
+            Set_DGV2載入前設定()
+            SQL_讀取搜尋圖片()
+            Set_DGV2載入後設定()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 返回_bt.Click
         Set_圖片清單() : Set_grid1()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 搜尋清單_bt.Click
-        PA = InputBox("請輸入關鍵字")
-        Set_DGV1載入前設定()
-        SQL1 = "SELECT  確認樣品單抬頭.季節, 確認樣品單抬頭.型體名, 確認樣品單抬頭.型體號碼, 確認樣品單控制表.顏色, 確認樣品單控制表.訂單顏色, 確認樣品單控制表.SIZE, 確認樣品單控制表.PO, 
-                        確認樣品單控制表.DATE, 確認樣品單控制表.FROMS, 確認樣品單控制表.Ship_Date, 確認樣品單控制表.FACTORY, 確認樣品單控制表.確認結果1 AS 確認, 確認樣品單控制表.確認結果2, 
-                        確認樣品單控制表.確認結果3, 確認樣品單控制表.注意, 確認樣品單控制表.確認通知單鞋圖, 確認樣品單控制表.樣品流水號一 
-                FROM    確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
-                WHERE   確認樣品單抬頭.部門 LIKE '確認' AND (確認樣品單抬頭.季節 LIKE '%" & PA & "%' OR 確認樣品單抬頭.型體名 LIKE '%" & PA & "%' OR 
-                        確認樣品單抬頭.型體號碼 LIKE '%" & PA & "%' OR 確認樣品單控制表.顏色 LIKE '%" & PA & "%' OR 確認樣品單控制表.訂單顏色 LIKE '%" & PA & "%' OR 
-                        確認樣品單控制表.SIZE LIKE '%" & PA & "%' OR 確認樣品單控制表.PO LIKE '%" & PA & "%') 
-               ORDER BY 確認樣品單抬頭.季節, 確認樣品單抬頭.型體名, 確認樣品單抬頭.型體號碼, 確認樣品單控制表.顏色"
-        Set_DGV1載入後設定()
+        Try
+            PA = InputBox("請輸入關鍵字")
+            Set_DGV1載入前設定()
+            SQL_讀取搜尋圖片1()
+            Set_DGV1載入後設定()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 返回1_bt.Click
         Set_確認樣品清單() : Set_grid()
     End Sub
     Private Sub Button34_Click(sender As Object, e As EventArgs) Handles 通知單存檔_bt.Click
-        ConnOpen()
-        If FROM人員修改_ch.Checked = True Then
-            SQL1 = "UPDATE 確認樣品單控制表 SET SIZE = N'" & SIZE_tb.Text & "', " &
-                                                 "PO = N'" & PO_tb.Text & "', " &
-                                               "DATE = '" & Format(DATE_dtp.Value, "yyyy/MM/dd") & "', " &
-                                              "FROMS = '天盾/" & gUserName & "', " &
-                                          "Ship_Date = '" & Format(Ship_Date_dtp.Value, "yyyy/MM/dd") & "', " &
-                                            "FACTORY = N'" & FACTORY_dtp.Text & "', " &
-                                          "確認結果1 = '" & 確認通過_ch.Checked & "', " &
-                                          "確認結果2 = '" & 不通過重新打樣_ch.Checked & "', " &
-                                          "確認結果3 = '" & 通過重新打樣_ch.Checked & "', " &
-                                               "注意 = N'" & 注意_tb.Text & "', " &
-                                     "確認通知單鞋圖 = '" & TextBox10.Text & "' " &
-                   "WHERE 樣品流水號一 LIKE '" & TextBox11.Text & "'"
-        Else
-            SQL1 = "UPDATE 確認樣品單控制表 SET SIZE = N'" & SIZE_tb.Text & "', " &
-                                                 "PO = N'" & PO_tb.Text & "', " &
-                                               "DATE = '" & Format(DATE_dtp.Value, "yyyy/MM/dd") & "', " &
-                                          "Ship_Date = '" & Format(Ship_Date_dtp.Value, "yyyy/MM/dd") & "', " &
-                                            "FACTORY = N'" & FACTORY_dtp.Text & "', " &
-                                          "確認結果1 = '" & 確認通過_ch.Checked & "', " &
-                                          "確認結果2 = '" & 不通過重新打樣_ch.Checked & "', " &
-                                          "確認結果3 = '" & 通過重新打樣_ch.Checked & "', " &
-                                               "注意 = N'" & 注意_tb.Text & "', " &
-                                     "確認通知單鞋圖 = '" & TextBox10.Text & "' " &
-                   "WHERE 樣品流水號一 LIKE '" & TextBox11.Text & "'"
-        End If
-        CmdSet_For_dr() : conn.Close()
-        Set_確認樣品清單() : Set_grid() : Set_圖片清單() : Set_grid1() : Set_格式設置()
-        MsgBox("修改完成")
+        Try
+            ConnOpen()
+            If FROM人員修改_ch.Checked = True Then
+                SQL_修改通知單存檔()
+            Else
+                SQL_修改通知單存檔1()
+            End If
+            CmdSet_For_dr() : conn.Close()
+            Set_確認樣品清單() : Set_grid() : Set_圖片清單() : Set_grid1() : Set_格式設置()
+            MsgBox("修改完成")
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button35_Click(sender As Object, e As EventArgs) Handles 通知單列印_bt.Click
-        If TextBox11.Text = "" Then
-            MsgBox("請確實選擇要列印的通知單")
-        Else
-            列印_確認樣品確認通知單.Show()
-        End If
+        Try
+            If TextBox11.Text = "" Then
+                MsgBox("請確實選擇要列印的通知單")
+            Else
+                列印_確認樣品確認通知單.Show()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
 End Class

TENDEN-MES-SYS/樣品訂單管理/量產樣品單系統/Customer_Information_資料管理.vb

@@ -4,168 +4,187 @@ Public Class Customer_Information_資料管理
     Dim OO As Boolean
     Dim aa As MsgBoxResult
     Private Sub Set_清單1()
-        INVOICE用客戶資訊_dgv.DataSource = Nothing : ds.Clear()
-        INVOICE用客戶資訊_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        INVOICE用客戶資訊_dgv.ColumnHeadersHeight = 25
-        INVOICE用客戶資訊_dgv.AllowUserToAddRows = False
-        ConnOpen()
-        SQL1 = "SELECT 公司名稱, 地址, 電話, 傳真 FROM INVOICE用客戶資訊 ORDER BY 公司名稱"
-        CmdSet_For_DGV()
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : INVOICE用客戶資訊_dgv.DataSource = ds.Tables(0) : conn.Close()
-        INVOICE用客戶資訊_dgv.Columns(0).FillWeight = 180 : INVOICE用客戶資訊_dgv.Columns(1).FillWeight = 600 : INVOICE用客戶資訊_dgv.Columns(2).FillWeight = 120 : INVOICE用客戶資訊_dgv.Columns(3).FillWeight = 120
+        Try
+            INVOICE用客戶資訊_dgv.DataSource = Nothing : ds.Clear()
+            INVOICE用客戶資訊_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            INVOICE用客戶資訊_dgv.ColumnHeadersHeight = 25
+            INVOICE用客戶資訊_dgv.AllowUserToAddRows = False
+            SQL_INVOICE用客戶資訊()
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : INVOICE用客戶資訊_dgv.DataSource = ds.Tables(0) : conn.Close()
+            INVOICE用客戶資訊_dgv.Columns(0).FillWeight = 180 : INVOICE用客戶資訊_dgv.Columns(1).FillWeight = 600 : INVOICE用客戶資訊_dgv.Columns(2).FillWeight = 120 : INVOICE用客戶資訊_dgv.Columns(3).FillWeight = 120
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_清單2()
-        INVOICE用客戶人員_dgv.DataSource = Nothing : ds1.Clear()
-        INVOICE用客戶人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        INVOICE用客戶人員_dgv.ColumnHeadersHeight = 25
-        INVOICE用客戶人員_dgv.AllowUserToAddRows = False
-        ConnOpen()
-        SQL1 = "SELECT 公司名稱, 公司人員 FROM INVOICE用客戶人員 WHERE 公司名稱 LIKE '" & PA & "' ORDER BY 公司名稱"
-        CmdSet_For_DGV()
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : INVOICE用客戶人員_dgv.DataSource = ds1.Tables(0) : conn.Close()
-        INVOICE用客戶人員_dgv.Columns(0).FillWeight = 180 : INVOICE用客戶人員_dgv.Columns(1).FillWeight = 210
+        Try
+            INVOICE用客戶人員_dgv.DataSource = Nothing : ds1.Clear()
+            INVOICE用客戶人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            INVOICE用客戶人員_dgv.ColumnHeadersHeight = 25
+            INVOICE用客戶人員_dgv.AllowUserToAddRows = False
+            SQL_INVOICE用客戶人員()
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : INVOICE用客戶人員_dgv.DataSource = ds1.Tables(0) : conn.Close()
+            INVOICE用客戶人員_dgv.Columns(0).FillWeight = 180 : INVOICE用客戶人員_dgv.Columns(1).FillWeight = 210
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Customer_Information_資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        客戶基本資料新增_bt.Enabled = False : 客戶人員新增_bt.Enabled = False
-        Set_清單1()
-        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
+        Try
+            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+            客戶基本資料新增_bt.Enabled = False : 客戶人員新增_bt.Enabled = False
+            Set_清單1()
+            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
     End Sub
     Private Sub 楦頭圖片資料庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
-        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
+        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
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
-        INVOICE用客戶資訊_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        INVOICE用客戶人員_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        Try
+            INVOICE用客戶資訊_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+            INVOICE用客戶人員_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles INVOICE用客戶資訊_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            客戶公司名稱_tb.Text = INVOICE用客戶資訊_dgv(0, e.RowIndex).Value.ToString : 公司地址_tb.Text = INVOICE用客戶資訊_dgv(1, e.RowIndex).Value.ToString
-            客戶公司電話_tb.Text = INVOICE用客戶資訊_dgv(2, e.RowIndex).Value.ToString : 客戶公司傳真_tb.Text = INVOICE用客戶資訊_dgv(3, e.RowIndex).Value.ToString
-            PA = INVOICE用客戶資訊_dgv.Rows(e.RowIndex).Cells("公司名稱").Value : Set_清單2()
-        End If
+        Try
+            If e.RowIndex = -1 Then : Else
+                客戶公司名稱_tb.Text = INVOICE用客戶資訊_dgv(0, e.RowIndex).Value.ToString : 公司地址_tb.Text = INVOICE用客戶資訊_dgv(1, e.RowIndex).Value.ToString
+                客戶公司電話_tb.Text = INVOICE用客戶資訊_dgv(2, e.RowIndex).Value.ToString : 客戶公司傳真_tb.Text = INVOICE用客戶資訊_dgv(3, e.RowIndex).Value.ToString
+                PA = INVOICE用客戶資訊_dgv.Rows(e.RowIndex).Cells("公司名稱").Value : Set_清單2()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles INVOICE用客戶人員_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            客戶公司人員_tb.Text = INVOICE用客戶人員_dgv(1, e.RowIndex).Value.ToString
-        End If
+        Try
+            If e.RowIndex = -1 Then : Else
+                客戶公司人員_tb.Text = INVOICE用客戶人員_dgv(1, e.RowIndex).Value.ToString
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 準備新增客戶基本資料_bt.Click
         客戶公司名稱_tb.Text = "" : 公司地址_tb.Text = "" : 客戶公司電話_tb.Text = "" : 客戶公司傳真_tb.Text = "" : 準備新增客戶基本資料_bt.Enabled = False : 客戶基本資料新增_bt.Enabled = True
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 客戶基本資料新增_bt.Click
-        準備新增客戶基本資料_bt.Enabled = True : 客戶基本資料新增_bt.Enabled = False
-        If 客戶公司名稱_tb.Text = "" And 公司地址_tb.Text = "" Then
-            MsgBox("客戶公司名或地址不可空白")
-        Else
-            ConnOpen()
-            SQL1 = "SELECT 公司名稱 FROM INVOICE用客戶資訊 WHERE 公司名稱 LIKE '" & 客戶公司名稱_tb.Text & "'"
-            CmdSet_For_dr()
-            If dr.Read() Then
-                OO = True : MsgBox("資料重複") : conn.Close() : Exit Sub
+        Try
+            準備新增客戶基本資料_bt.Enabled = True : 客戶基本資料新增_bt.Enabled = False
+            If 客戶公司名稱_tb.Text = "" And 公司地址_tb.Text = "" Then
+                MsgBox("客戶公司名或地址不可空白")
             Else
-                OO = False
-            End If : conn.Close()
+                SQL_讀取客戶基本資料()
+                If dr.Read() Then
+                    OO = True : MsgBox("資料重複") : conn.Close() : Exit Sub
+                Else
+                    OO = False
+                End If : conn.Close()
 
-            If OO = False Then
-                ConnOpen()
-                SQL1 = "INSERT INTO  INVOICE用客戶資訊 (公司名稱, 地址, 電話, 傳真) " &
-                       "VALUES ('" & 客戶公司名稱_tb.Text & "', '" & 公司地址_tb.Text & "', '" & 客戶公司電話_tb.Text & "', '" & 客戶公司傳真_tb.Text & "')"
-                CmdSet_For_dr() : conn.Close()
-                Set_清單1()
-                MsgBox("新增完成")
+                If OO = False Then
+                    SQL_新增客戶基本資料() : conn.Close() : Set_清單1() : MsgBox("新增完成")
+                End If
             End If
-        End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 客戶基本資料修改_bt.Click
-        If 客戶公司名稱_tb.Text = "" And 公司地址_tb.Text = "" Then
-            MsgBox("客戶公司名或地址不可空白")
-        Else
-            ConnOpen()
-            SQL1 = "UPDATE INVOICE用客戶資訊 SET 地址 = '" & 公司地址_tb.Text & "', 電話 = '" & 客戶公司電話_tb.Text & "', 傳真 = '" & 客戶公司傳真_tb.Text & "' WHERE (公司名稱 = '" & 客戶公司名稱_tb.Text & "')"
-            CmdSet_For_dr() : conn.Close()
-            Set_清單1()
-            MsgBox("修改完成")
-        End If
-    End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 客戶基本資料刪除_bt.Click
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            If 客戶公司名稱_tb.Text = "" Then
+        Try
+            If 客戶公司名稱_tb.Text = "" And 公司地址_tb.Text = "" Then
                 MsgBox("客戶公司名或地址不可空白")
             Else
-                ConnOpen()
-                SQL1 = "DELETE FROM INVOICE用客戶資訊 WHERE (公司名稱 = '" & 客戶公司名稱_tb.Text & "')"
-                CmdSet_For_dr() : conn.Close()
-                Set_清單1()
-
-                ConnOpen()
-                SQL1 = "DELETE FROM INVOICE用客戶人員 WHERE (公司名稱 = '" & 客戶公司名稱_tb.Text & "')"
-                CmdSet_For_dr() : conn.Close()
-                PA = 客戶公司名稱_tb.Text : Set_清單2()
-
-                MsgBox("刪除完成")
+                SQL_客戶基本資料修改() : conn.Close() : Set_清單1() : MsgBox("修改完成")
             End If
-        End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 客戶基本資料刪除_bt.Click
+        Try
+            aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+            If aa = MsgBoxResult.Ok Then
+                If 客戶公司名稱_tb.Text = "" Then
+                    MsgBox("客戶公司名或地址不可空白")
+                Else
+                    SQL_客戶基本資料刪除() : conn.Close() : Set_清單1()
+                    SQL_客戶基本資料刪除1() : conn.Close() : PA = 客戶公司名稱_tb.Text : Set_清單2() : MsgBox("刪除完成")
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 準備新增客戶_bt.Click
         客戶公司人員_tb.Text = "" : 準備新增客戶_bt.Enabled = False : 客戶人員新增_bt.Enabled = True
     End Sub
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 客戶人員新增_bt.Click
-        準備新增客戶_bt.Enabled = True : 客戶人員新增_bt.Enabled = False
-        If 客戶公司名稱_tb.Text = "" And 客戶公司人員_tb.Text = "" Then
-            MsgBox("客戶公司名稱不可空白")
-        Else
-            ConnOpen()
-            SQL1 = "SELECT 公司名稱 FROM INVOICE用客戶人員 WHERE 公司名稱 LIKE '" & 客戶公司名稱_tb.Text & "' AND 公司人員 LIKE '" & 客戶公司人員_tb.Text & "'"
-            CmdSet_For_dr()
-            If dr.Read() Then
-                OO = True : MsgBox("資料重複") : conn.Close() : Exit Sub
+        Try
+            準備新增客戶_bt.Enabled = True : 客戶人員新增_bt.Enabled = False
+            If 客戶公司名稱_tb.Text = "" And 客戶公司人員_tb.Text = "" Then
+                MsgBox("客戶公司名稱不可空白")
             Else
-                OO = False
-            End If : conn.Close()
-
-            If OO = False Then
-                ConnOpen()
-                SQL1 = "INSERT INTO  INVOICE用客戶人員 (公司名稱, 公司人員) VALUES ('" & 客戶公司名稱_tb.Text & "', '" & 客戶公司人員_tb.Text & "')"
-                CmdSet_For_dr() : conn.Close()
+                SQL_查詢客戶人員新增()
+                If dr.Read() Then
+                    OO = True : MsgBox("資料重複") : conn.Close() : Exit Sub
+                Else
+                    OO = False
+                End If : conn.Close()
 
-                PA = 客戶公司名稱_tb.Text : Set_清單2()
-                MsgBox("新增完成")
+                If OO = False Then
+                    SQL_客戶人員新增() : conn.Close()
+                    PA = 客戶公司名稱_tb.Text : Set_清單2()
+                    MsgBox("新增完成")
+                End If
             End If
-        End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 客戶人員修改_bt.Click
-        If 客戶公司名稱_tb.Text = "" And 客戶公司人員_tb.Text = "" Then
-            MsgBox("客戶公司名或人名不可空白")
-        Else
-            ConnOpen()
-            SQL1 = "UPDATE INVOICE用客戶人員 SET 公司人員 = '" & 客戶公司人員_tb.Text & "' WHERE (公司名稱 = '" & 客戶公司名稱_tb.Text & "')"
-            CmdSet_For_dr() : conn.Close()
-            PA = 客戶公司名稱_tb.Text : Set_清單2()
-            MsgBox("修改完成")
-        End If
-    End Sub
-    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 客戶人員刪除_bt.Click
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
+        Try
             If 客戶公司名稱_tb.Text = "" And 客戶公司人員_tb.Text = "" Then
-                MsgBox("客戶公司名稱不可空白")
+                MsgBox("客戶公司名或人名不可空白")
             Else
-                ConnOpen()
-                SQL1 = "DELETE FROM INVOICE用客戶人員 WHERE (公司名稱 = '" & 客戶公司名稱_tb.Text & "' AND 公司人員 = '" & 客戶公司人員_tb.Text & "')"
-                CmdSet_For_dr() : conn.Close()
+                SQL_客戶人員修改() : conn.Close()
                 PA = 客戶公司名稱_tb.Text : Set_清單2()
-                MsgBox("刪除完成")
+                MsgBox("修改完成")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 客戶人員刪除_bt.Click
+        Try
+            aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+            If aa = MsgBoxResult.Ok Then
+                If 客戶公司名稱_tb.Text = "" And 客戶公司人員_tb.Text = "" Then
+                    MsgBox("客戶公司名稱不可空白")
+                Else
+                    SQL_客戶人員刪除() : conn.Close()
+                    PA = 客戶公司名稱_tb.Text : Set_清單2()
+                    MsgBox("刪除完成")
+                End If
             End If
-        End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
 End Class

TENDEN-MES-SYS/樣品訂單管理/量產樣品單系統/量產樣品明細表.vb

@@ -1,205 +1,206 @@
 Option Strict Off
 Public Class 量產樣品明細表
     ReadOnly ds As New DataSet
-    ReadOnly PP As String : ReadOnly DTP(0) As String
+    ReadOnly PP As String
     Dim Date1 As String : Dim Date2 As String : Dim Date3 As String : Dim Date4 As String : Dim Date5 As String : Dim Date6 As String : Dim Date7 As String
     Dim 明細判斷 As Boolean
     Private Sub Set_訂單清單()
-        量產樣品控制表_dgv.DataSource = Nothing : ds.Clear()
-        量產樣品控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        量產樣品控制表_dgv.ColumnHeadersHeight = 25
-        量產樣品控制表_dgv.AllowUserToAddRows = False
-        ConnOpen()
-        SQL1 = "SELECT   量產樣品控制表.樣品單號, 量產樣品控制表.PO, STYLELIST.ItemNumber, 量產樣品控制表.Style AS ProductName, STYLELIST.Description AS ProductDescription, 量產樣品控制表.Color, 
-                         量產樣品控制表.Width as DM, 量產樣品控制表.[5], 量產樣品控制表.[5.5], 量產樣品控制表.[6], 量產樣品控制表.[6.5], 量產樣品控制表.[7], 量產樣品控制表.[7.5], 量產樣品控制表.[8], 
-                         量產樣品控制表.[8.5], 量產樣品控制表.[9], 量產樣品控制表.[9.5], 量產樣品控制表.[10], 量產樣品控制表.[10.5], 量產樣品控制表.[11], 量產樣品控制表.[11.5], 量產樣品控制表.[12], 
-                         量產樣品控制表.[12.5], .[13], 量產樣品控制表.[14], 量產樣品控制表.[5] + 量產樣品控制表.[5.5] + 量產樣品控制表.[6] + 量產樣品控制表.[6.5] + 量產樣品控制表.[7] + 
-                         量產樣品控制表.[7.5] + 量產樣品控制表.[8] + 量產樣品控制表.[8.5] + 量產樣品控制表.[9] + 量產樣品控制表.[9.5] + 量產樣品控制表.[10] + 量產樣品控制表.[10.5] + 
-                         量產樣品控制表.[11] + 量產樣品控制表.[11.5] + 量產樣品控制表.[12] + 量產樣品控制表.[12.5] + 量產樣品控制表.[13] + 量產樣品控制表.[14] AS TOTAL 
-               FROM      量產樣品控制表 LEFT OUTER JOIN STYLELIST ON 量產樣品控制表.Style = STYLELIST.ProductName 
-               WHERE    (量產樣品控制表.樣品單號 Like '" & 樣品單號_tb.Text & "') 
-               ORDER BY  量產樣品控制表.Style, 量產樣品控制表.Color"
-        CmdSet_For_DGV()
-        列印用SQL = SQL1
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 量產樣品控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
+        Try
+            量產樣品控制表_dgv.DataSource = Nothing : ds.Clear()
+            量產樣品控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            量產樣品控制表_dgv.ColumnHeadersHeight = 25
+            量產樣品控制表_dgv.AllowUserToAddRows = False
+            SQL_讀取量產樣品控制表()
+            列印用SQL = SQL1
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 量產樣品控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        量產樣品控制表_dgv.Columns(0).Visible = False : 量產樣品控制表_dgv.Columns(1).Visible = False
-        量產樣品控制表_dgv.Columns(2).FillWeight = 90 : 量產樣品控制表_dgv.Columns(3).FillWeight = 90 : 量產樣品控制表_dgv.Columns(4).FillWeight = 190 : 量產樣品控制表_dgv.Columns(5).FillWeight = 80
-        量產樣品控制表_dgv.Columns(6).FillWeight = 70 : 量產樣品控制表_dgv.Columns(7).FillWeight = 40 : 量產樣品控制表_dgv.Columns(8).FillWeight = 40 : 量產樣品控制表_dgv.Columns(9).FillWeight = 40
-        量產樣品控制表_dgv.Columns(10).FillWeight = 40 : 量產樣品控制表_dgv.Columns(11).FillWeight = 40 : 量產樣品控制表_dgv.Columns(12).FillWeight = 40 : 量產樣品控制表_dgv.Columns(13).FillWeight = 40
-        量產樣品控制表_dgv.Columns(14).FillWeight = 40 : 量產樣品控制表_dgv.Columns(15).FillWeight = 40 : 量產樣品控制表_dgv.Columns(16).FillWeight = 40 : 量產樣品控制表_dgv.Columns(17).FillWeight = 40
-        量產樣品控制表_dgv.Columns(18).FillWeight = 40 : 量產樣品控制表_dgv.Columns(19).FillWeight = 40 : 量產樣品控制表_dgv.Columns(20).FillWeight = 40 : 量產樣品控制表_dgv.Columns(21).FillWeight = 40
-        量產樣品控制表_dgv.Columns(22).FillWeight = 40 : 量產樣品控制表_dgv.Columns(23).FillWeight = 40 : 量產樣品控制表_dgv.Columns(24).FillWeight = 40 : 量產樣品控制表_dgv.Columns(25).FillWeight = 60
-        量產樣品控制表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
-        量產樣品控制表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
-        量產樣品控制表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
-        量產樣品控制表_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
-        量產樣品控制表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
-        量產樣品控制表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(23).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
-        量產樣品控制表_dgv.Columns(25).DefaultCellStyle.Format = "#,##0"
+            量產樣品控制表_dgv.Columns(0).Visible = False : 量產樣品控制表_dgv.Columns(1).Visible = False
+            量產樣品控制表_dgv.Columns(2).FillWeight = 90 : 量產樣品控制表_dgv.Columns(3).FillWeight = 90 : 量產樣品控制表_dgv.Columns(4).FillWeight = 190 : 量產樣品控制表_dgv.Columns(5).FillWeight = 80
+            量產樣品控制表_dgv.Columns(6).FillWeight = 70 : 量產樣品控制表_dgv.Columns(7).FillWeight = 40 : 量產樣品控制表_dgv.Columns(8).FillWeight = 40 : 量產樣品控制表_dgv.Columns(9).FillWeight = 40
+            量產樣品控制表_dgv.Columns(10).FillWeight = 40 : 量產樣品控制表_dgv.Columns(11).FillWeight = 40 : 量產樣品控制表_dgv.Columns(12).FillWeight = 40 : 量產樣品控制表_dgv.Columns(13).FillWeight = 40
+            量產樣品控制表_dgv.Columns(14).FillWeight = 40 : 量產樣品控制表_dgv.Columns(15).FillWeight = 40 : 量產樣品控制表_dgv.Columns(16).FillWeight = 40 : 量產樣品控制表_dgv.Columns(17).FillWeight = 40
+            量產樣品控制表_dgv.Columns(18).FillWeight = 40 : 量產樣品控制表_dgv.Columns(19).FillWeight = 40 : 量產樣品控制表_dgv.Columns(20).FillWeight = 40 : 量產樣品控制表_dgv.Columns(21).FillWeight = 40
+            量產樣品控制表_dgv.Columns(22).FillWeight = 40 : 量產樣品控制表_dgv.Columns(23).FillWeight = 40 : 量產樣品控制表_dgv.Columns(24).FillWeight = 40 : 量產樣品控制表_dgv.Columns(25).FillWeight = 60
+            量產樣品控制表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
+            量產樣品控制表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
+            量產樣品控制表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
+            量產樣品控制表_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
+            量產樣品控制表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
+            量產樣品控制表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(23).DefaultCellStyle.Format = "#,##0" : 量產樣品控制表_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
+            量產樣品控制表_dgv.Columns(25).DefaultCellStyle.Format = "#,##0"
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 基本資料載入()
-        ConnOpen()
-        SQL1 = "SELECT    量產樣品控制表.樣品單號, 量產樣品控制表.PO, 量產樣品控制表.FTY, 訂單控制表生產工廠清單.供應商資料, 訂單控制表生產工廠清單.供應商地址, 
-                          SUM(量產樣品控制表.QTY) As 訂單數量, 量產樣品控制表.Po_Placed_Date, 量產樣品控制表.Requested_XFD, 量產樣品控制表.CFM_D_XFD, 量產樣品控制表.Ship_Date 
-               FROM       量產樣品控制表 INNER JOIN 訂單控制表生產工廠清單 On 量產樣品控制表.FTY = 訂單控制表生產工廠清單.生產工廠 
-               WHERE     (量產樣品控制表.樣品單號 Like '" & 樣品單號_tb.Text & "') 
-               GROUP BY   量產樣品控制表.樣品單號, 量產樣品控制表.PO, 量產樣品控制表.FTY, 訂單控制表生產工廠清單.供應商資料, 訂單控制表生產工廠清單.供應商地址,
-                          量產樣品控制表.Po_Placed_Date, 量產樣品控制表.Requested_XFD, 量產樣品控制表.CFM_D_XFD, 量產樣品控制表.Ship_Date"
-        CmdSet_For_dr()
-        If dr.Read() Then
-            客戶訂單號_tb.Text = dr("PO").ToString : 供應商資料_tb.Text = dr("供應商資料").ToString : 供應商地址_tb.Text = dr("供應商地址").ToString
-            生產工廠_tb.Text = dr("FTY").ToString : 訂單數量_tb.Text = Format(Val(dr("訂單數量").ToString), "#,##0")
-            Date1 = dr("Po_Placed_Date").ToString : Date2 = dr("Po_Placed_Date").ToString : Date3 = dr("Requested_XFD").ToString
-            Date4 = dr("Ship_Date").ToString : Date5 = dr("Po_Placed_Date").ToString : Date6 = dr("CFM_D_XFD").ToString
-            If Date1 = " " Or Date1 = "" Then : Else : 創建日期_dtp.Format = DateTimePickerFormat.Short : 創建日期_dtp.Text = dr("Po_Placed_Date").ToString : End If
-            If Date2 = " " Or Date2 = "" Then : Else : Org發貨日期_dtp.Format = DateTimePickerFormat.Short : Org發貨日期_dtp.Text = dr("Po_Placed_Date").ToString : End If
-            If Date3 = " " Or Date3 = "" Then : Else : 修改日期_dtp.Format = DateTimePickerFormat.Short : 修改日期_dtp.Text = dr("Requested_XFD").ToString : End If
-            If Date4 = " " Or Date4 = "" Then : Else : 發貨日期_dtp.Format = DateTimePickerFormat.Short : 發貨日期_dtp.Text = dr("Ship_Date").ToString : End If
-            If Date5 = " " Or Date5 = "" Then : Else : 下單日_dtp.Format = DateTimePickerFormat.Short : 下單日_dtp.Text = dr("Po_Placed_Date").ToString : End If
-            If Date6 = " " Or Date6 = "" Then : Else : 交期日期_dtp.Format = DateTimePickerFormat.Short : 交期日期_dtp.Text = dr("CFM_D_XFD").ToString : End If
-        Else : 客戶訂單號_tb.Text = "" : End If : conn.Close()
+        Try
+            SQL_讀取量產樣品控制表1()
+            If dr.Read() Then
+                客戶訂單號_tb.Text = dr("PO").ToString : 供應商資料_tb.Text = dr("供應商資料").ToString : 供應商地址_tb.Text = dr("供應商地址").ToString
+                生產工廠_tb.Text = dr("FTY").ToString : 訂單數量_tb.Text = Format(Val(dr("訂單數量").ToString), "#,##0")
+                Date1 = dr("Po_Placed_Date").ToString : Date2 = dr("Po_Placed_Date").ToString : Date3 = dr("Requested_XFD").ToString
+                Date4 = dr("Ship_Date").ToString : Date5 = dr("Po_Placed_Date").ToString : Date6 = dr("CFM_D_XFD").ToString
+                If Date1 = " " Or Date1 = "" Then : Else : 創建日期_dtp.Format = DateTimePickerFormat.Short : 創建日期_dtp.Text = dr("Po_Placed_Date").ToString : End If
+                If Date2 = " " Or Date2 = "" Then : Else : Org發貨日期_dtp.Format = DateTimePickerFormat.Short : Org發貨日期_dtp.Text = dr("Po_Placed_Date").ToString : End If
+                If Date3 = " " Or Date3 = "" Then : Else : 修改日期_dtp.Format = DateTimePickerFormat.Short : 修改日期_dtp.Text = dr("Requested_XFD").ToString : End If
+                If Date4 = " " Or Date4 = "" Then : Else : 發貨日期_dtp.Format = DateTimePickerFormat.Short : 發貨日期_dtp.Text = dr("Ship_Date").ToString : End If
+                If Date5 = " " Or Date5 = "" Then : Else : 下單日_dtp.Format = DateTimePickerFormat.Short : 下單日_dtp.Text = dr("Po_Placed_Date").ToString : End If
+                If Date6 = " " Or Date6 = "" Then : Else : 交期日期_dtp.Format = DateTimePickerFormat.Short : 交期日期_dtp.Text = dr("CFM_D_XFD").ToString : End If
+            Else : 客戶訂單號_tb.Text = "" : End If : conn.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_自動彙總1()
-        Dim 加總(18) As Double
-        加總(0) = 0 : 加總(1) = 0 : 加總(2) = 0 : 加總(3) = 0 : 加總(4) = 0 : 加總(5) = 0 : 加總(6) = 0 : 加總(7) = 0 : 加總(8) = 0
-        加總(9) = 0 : 加總(10) = 0 : 加總(11) = 0 : 加總(12) = 0 : 加總(13) = 0 : 加總(14) = 0 : 加總(15) = 0 : 加總(16) = 0 : 加總(17) = 0 : 加總(18) = 0
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計1_tb.Text = "0" : Else : 加總(0) += 量產樣品控制表_dgv.Rows(i).Cells("5").Value : End If
-        Next i : 合計1_tb.Text = Format(Val(加總(0)), "#,##0") : If 合計1_tb.Text = "0" Then : 合計1_tb.ForeColor = Color.Black : Else : 合計1_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計2_tb.Text = "0" : Else : 加總(1) += 量產樣品控制表_dgv.Rows(i).Cells("5.5").Value : End If
-        Next i : 合計2_tb.Text = Format(Val(加總(1)), "#,##0") : If 合計2_tb.Text = "0" Then : 合計2_tb.ForeColor = Color.Black : Else : 合計2_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計3_tb.Text = "0" : Else : 加總(2) += 量產樣品控制表_dgv.Rows(i).Cells("6").Value : End If
-        Next i : 合計3_tb.Text = Format(Val(加總(2)), "#,##0") : If 合計3_tb.Text = "0" Then : 合計3_tb.ForeColor = Color.Black : Else : 合計3_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計4_tb.Text = "0" : Else : 加總(3) += 量產樣品控制表_dgv.Rows(i).Cells("6.5").Value : End If
-        Next i : 合計4_tb.Text = Format(Val(加總(3)), "#,##0") : If 合計4_tb.Text = "0" Then : 合計4_tb.ForeColor = Color.Black : Else : 合計4_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計5_tb.Text = "0" : Else : 加總(4) += 量產樣品控制表_dgv.Rows(i).Cells("7").Value : End If
-        Next i : 合計5_tb.Text = Format(Val(加總(4)), "#,##0") : If 合計5_tb.Text = "0" Then : 合計5_tb.ForeColor = Color.Black : Else : 合計5_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計6_tb.Text = "0" : Else : 加總(5) += 量產樣品控制表_dgv.Rows(i).Cells("7.5").Value : End If
-        Next i : 合計6_tb.Text = Format(Val(加總(5)), "#,##0") : If 合計6_tb.Text = "0" Then : 合計6_tb.ForeColor = Color.Black : Else : 合計6_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計7_tb.Text = "0" : Else : 加總(6) += 量產樣品控制表_dgv.Rows(i).Cells("8").Value : End If
-        Next i : 合計7_tb.Text = Format(Val(加總(6)), "#,##0") : If 合計7_tb.Text = "0" Then : 合計7_tb.ForeColor = Color.Black : Else : 合計7_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計8_tb.Text = "0" : Else : 加總(7) += 量產樣品控制表_dgv.Rows(i).Cells("8.5").Value : End If
-        Next i : 合計8_tb.Text = Format(Val(加總(7)), "#,##0") : If 合計8_tb.Text = "0" Then : 合計8_tb.ForeColor = Color.Black : Else : 合計8_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計9_tb.Text = "0" : Else : 加總(8) += 量產樣品控制表_dgv.Rows(i).Cells("9").Value : End If
-        Next i : 合計9_tb.Text = Format(Val(加總(8)), "#,##0") : If 合計9_tb.Text = "0" Then : 合計9_tb.ForeColor = Color.Black : Else : 合計9_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計10_tb.Text = "0" : Else : 加總(9) += 量產樣品控制表_dgv.Rows(i).Cells("9.5").Value : End If
-        Next i : 合計10_tb.Text = Format(Val(加總(9)), "#,##0") : If 合計10_tb.Text = "0" Then : 合計10_tb.ForeColor = Color.Black : Else : 合計10_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計11_tb.Text = "0" : Else : 加總(10) += 量產樣品控制表_dgv.Rows(i).Cells("10").Value : End If
-        Next i : 合計11_tb.Text = Format(Val(加總(10)), "#,##0") : If 合計11_tb.Text = "0" Then : 合計11_tb.ForeColor = Color.Black : Else : 合計11_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計12_tb.Text = "0" : Else : 加總(11) += 量產樣品控制表_dgv.Rows(i).Cells("10.5").Value : End If
-        Next i : 合計12_tb.Text = Format(Val(加總(11)), "#,##0") : If 合計12_tb.Text = "0" Then : 合計12_tb.ForeColor = Color.Black : Else : 合計12_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計13_tb.Text = "0" : Else : 加總(12) += 量產樣品控制表_dgv.Rows(i).Cells("11").Value : End If
-        Next i : 合計13_tb.Text = Format(Val(加總(12)), "#,##0") : If 合計13_tb.Text = "0" Then : 合計13_tb.ForeColor = Color.Black : Else : 合計13_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計15_tb.Text = "0" : Else : 加總(13) += 量產樣品控制表_dgv.Rows(i).Cells("12").Value : End If
-        Next i : 合計15_tb.Text = Format(Val(加總(13)), "#,##0") : If 合計15_tb.Text = "0" Then : 合計15_tb.ForeColor = Color.Black : Else : 合計15_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計17_tb.Text = "0" : Else : 加總(14) += 量產樣品控制表_dgv.Rows(i).Cells("13").Value : End If
-        Next i : 合計17_tb.Text = Format(Val(加總(14)), "#,##0") : If 合計17_tb.Text = "0" Then : 合計17_tb.ForeColor = Color.Black : Else : 合計17_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計18_tb.Text = "0" : Else : 加總(15) += 量產樣品控制表_dgv.Rows(i).Cells("14").Value : End If
-        Next i : 合計18_tb.Text = Format(Val(加總(15)), "#,##0") : If 合計18_tb.Text = "0" Then : 合計18_tb.ForeColor = Color.Black : Else : 合計18_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計14_tb.Text = "0" : Else : 加總(16) += 量產樣品控制表_dgv.Rows(i).Cells("11.5").Value : End If
-        Next i : 合計14_tb.Text = Format(Val(加總(16)), "#,##0") : If 合計14_tb.Text = "0" Then : 合計14_tb.ForeColor = Color.Black : Else : 合計14_tb.ForeColor = Color.Red : End If
-        For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計16_tb.Text = "0" : Else : 加總(17) += 量產樣品控制表_dgv.Rows(i).Cells("12.5").Value : End If
-        Next i : 合計16_tb.Text = Format(Val(加總(17)), "#,##0") : If 合計16_tb.Text = "0" Then : 合計16_tb.ForeColor = Color.Black : Else : 合計16_tb.ForeColor = Color.Red : End If
+        Try
+            Dim 加總(18) As Double
+            加總(0) = 0 : 加總(1) = 0 : 加總(2) = 0 : 加總(3) = 0 : 加總(4) = 0 : 加總(5) = 0 : 加總(6) = 0 : 加總(7) = 0 : 加總(8) = 0
+            加總(9) = 0 : 加總(10) = 0 : 加總(11) = 0 : 加總(12) = 0 : 加總(13) = 0 : 加總(14) = 0 : 加總(15) = 0 : 加總(16) = 0 : 加總(17) = 0 : 加總(18) = 0
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計1_tb.Text = "0" : Else : 加總(0) += 量產樣品控制表_dgv.Rows(i).Cells("5").Value : End If
+            Next i : 合計1_tb.Text = Format(Val(加總(0)), "#,##0") : If 合計1_tb.Text = "0" Then : 合計1_tb.ForeColor = Color.Black : Else : 合計1_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計2_tb.Text = "0" : Else : 加總(1) += 量產樣品控制表_dgv.Rows(i).Cells("5.5").Value : End If
+            Next i : 合計2_tb.Text = Format(Val(加總(1)), "#,##0") : If 合計2_tb.Text = "0" Then : 合計2_tb.ForeColor = Color.Black : Else : 合計2_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計3_tb.Text = "0" : Else : 加總(2) += 量產樣品控制表_dgv.Rows(i).Cells("6").Value : End If
+            Next i : 合計3_tb.Text = Format(Val(加總(2)), "#,##0") : If 合計3_tb.Text = "0" Then : 合計3_tb.ForeColor = Color.Black : Else : 合計3_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計4_tb.Text = "0" : Else : 加總(3) += 量產樣品控制表_dgv.Rows(i).Cells("6.5").Value : End If
+            Next i : 合計4_tb.Text = Format(Val(加總(3)), "#,##0") : If 合計4_tb.Text = "0" Then : 合計4_tb.ForeColor = Color.Black : Else : 合計4_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計5_tb.Text = "0" : Else : 加總(4) += 量產樣品控制表_dgv.Rows(i).Cells("7").Value : End If
+            Next i : 合計5_tb.Text = Format(Val(加總(4)), "#,##0") : If 合計5_tb.Text = "0" Then : 合計5_tb.ForeColor = Color.Black : Else : 合計5_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計6_tb.Text = "0" : Else : 加總(5) += 量產樣品控制表_dgv.Rows(i).Cells("7.5").Value : End If
+            Next i : 合計6_tb.Text = Format(Val(加總(5)), "#,##0") : If 合計6_tb.Text = "0" Then : 合計6_tb.ForeColor = Color.Black : Else : 合計6_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計7_tb.Text = "0" : Else : 加總(6) += 量產樣品控制表_dgv.Rows(i).Cells("8").Value : End If
+            Next i : 合計7_tb.Text = Format(Val(加總(6)), "#,##0") : If 合計7_tb.Text = "0" Then : 合計7_tb.ForeColor = Color.Black : Else : 合計7_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計8_tb.Text = "0" : Else : 加總(7) += 量產樣品控制表_dgv.Rows(i).Cells("8.5").Value : End If
+            Next i : 合計8_tb.Text = Format(Val(加總(7)), "#,##0") : If 合計8_tb.Text = "0" Then : 合計8_tb.ForeColor = Color.Black : Else : 合計8_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計9_tb.Text = "0" : Else : 加總(8) += 量產樣品控制表_dgv.Rows(i).Cells("9").Value : End If
+            Next i : 合計9_tb.Text = Format(Val(加總(8)), "#,##0") : If 合計9_tb.Text = "0" Then : 合計9_tb.ForeColor = Color.Black : Else : 合計9_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計10_tb.Text = "0" : Else : 加總(9) += 量產樣品控制表_dgv.Rows(i).Cells("9.5").Value : End If
+            Next i : 合計10_tb.Text = Format(Val(加總(9)), "#,##0") : If 合計10_tb.Text = "0" Then : 合計10_tb.ForeColor = Color.Black : Else : 合計10_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計11_tb.Text = "0" : Else : 加總(10) += 量產樣品控制表_dgv.Rows(i).Cells("10").Value : End If
+            Next i : 合計11_tb.Text = Format(Val(加總(10)), "#,##0") : If 合計11_tb.Text = "0" Then : 合計11_tb.ForeColor = Color.Black : Else : 合計11_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計12_tb.Text = "0" : Else : 加總(11) += 量產樣品控制表_dgv.Rows(i).Cells("10.5").Value : End If
+            Next i : 合計12_tb.Text = Format(Val(加總(11)), "#,##0") : If 合計12_tb.Text = "0" Then : 合計12_tb.ForeColor = Color.Black : Else : 合計12_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計13_tb.Text = "0" : Else : 加總(12) += 量產樣品控制表_dgv.Rows(i).Cells("11").Value : End If
+            Next i : 合計13_tb.Text = Format(Val(加總(12)), "#,##0") : If 合計13_tb.Text = "0" Then : 合計13_tb.ForeColor = Color.Black : Else : 合計13_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計15_tb.Text = "0" : Else : 加總(13) += 量產樣品控制表_dgv.Rows(i).Cells("12").Value : End If
+            Next i : 合計15_tb.Text = Format(Val(加總(13)), "#,##0") : If 合計15_tb.Text = "0" Then : 合計15_tb.ForeColor = Color.Black : Else : 合計15_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計17_tb.Text = "0" : Else : 加總(14) += 量產樣品控制表_dgv.Rows(i).Cells("13").Value : End If
+            Next i : 合計17_tb.Text = Format(Val(加總(14)), "#,##0") : If 合計17_tb.Text = "0" Then : 合計17_tb.ForeColor = Color.Black : Else : 合計17_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計18_tb.Text = "0" : Else : 加總(15) += 量產樣品控制表_dgv.Rows(i).Cells("14").Value : End If
+            Next i : 合計18_tb.Text = Format(Val(加總(15)), "#,##0") : If 合計18_tb.Text = "0" Then : 合計18_tb.ForeColor = Color.Black : Else : 合計18_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計14_tb.Text = "0" : Else : 加總(16) += 量產樣品控制表_dgv.Rows(i).Cells("11.5").Value : End If
+            Next i : 合計14_tb.Text = Format(Val(加總(16)), "#,##0") : If 合計14_tb.Text = "0" Then : 合計14_tb.ForeColor = Color.Black : Else : 合計14_tb.ForeColor = Color.Red : End If
+            For i As Integer = 0 To 量產樣品控制表_dgv.Rows.Count - 1 : If 量產樣品控制表_dgv.RowCount = 0 Then : 合計16_tb.Text = "0" : Else : 加總(17) += 量產樣品控制表_dgv.Rows(i).Cells("12.5").Value : End If
+            Next i : 合計16_tb.Text = Format(Val(加總(17)), "#,##0") : If 合計16_tb.Text = "0" Then : 合計16_tb.ForeColor = Color.Black : Else : 合計16_tb.ForeColor = Color.Red : End If
 
-        加總(18) = 加總(0) + 加總(1) + 加總(2) + 加總(3) + 加總(4) + 加總(5) + 加總(6) + 加總(7) + 加總(8) + 加總(9) + 加總(10) + 加總(11) + 加總(12) + 加總(13) + 加總(14) + 加總(15)
-        合計19_tb.Text = Format(Val(加總(18)), "#,##0")
-        加總(18) = 0
-        If 合計19_tb.Text = "0" Then : 合計19_tb.ForeColor = Color.Black : Else : 合計19_tb.ForeColor = Color.Blue : End If
+            加總(18) = 加總(0) + 加總(1) + 加總(2) + 加總(3) + 加總(4) + 加總(5) + 加總(6) + 加總(7) + 加總(8) + 加總(9) + 加總(10) + 加總(11) + 加總(12) + 加總(13) + 加總(14) + 加總(15)
+            合計19_tb.Text = Format(Val(加總(18)), "#,##0")
+            加總(18) = 0
+            If 合計19_tb.Text = "0" Then : 合計19_tb.ForeColor = Color.Black : Else : 合計19_tb.ForeColor = Color.Blue : End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_格式設定1()
-        客戶訂單號_tb.Enabled = False : 樣品單號_tb.Enabled = False : 生產工廠_tb.Enabled = False : 訂單數量_tb.Enabled = False
-        創建日期_dtp.Format = DateTimePickerFormat.Custom : 創建日期_dtp.CustomFormat = " "
-        Org發貨日期_dtp.Format = DateTimePickerFormat.Custom : Org發貨日期_dtp.CustomFormat = " "
-        修改日期_dtp.Format = DateTimePickerFormat.Custom : 修改日期_dtp.CustomFormat = " "
-        發貨日期_dtp.Format = DateTimePickerFormat.Custom : 發貨日期_dtp.CustomFormat = " "
-        下單日_dtp.Format = DateTimePickerFormat.Custom : 下單日_dtp.CustomFormat = " "
-        交期日期_dtp.Format = DateTimePickerFormat.Custom : 交期日期_dtp.CustomFormat = " "
-        ETA_Date_dtp.Format = DateTimePickerFormat.Custom : ETA_Date_dtp.CustomFormat = " "
-        資料存檔_bt.Enabled = False
-        ShippingCarrier_tb.Text = "" : Vendor_Reference_tb.Text = ""
-        客戶姓名_tb.Text = "" : 銷售訂單_tb.Text = "" : 客戶地址_tb.Text = ""
+        Try
+            客戶訂單號_tb.Enabled = False : 樣品單號_tb.Enabled = False : 生產工廠_tb.Enabled = False : 訂單數量_tb.Enabled = False
+            創建日期_dtp.Format = DateTimePickerFormat.Custom : 創建日期_dtp.CustomFormat = " "
+            Org發貨日期_dtp.Format = DateTimePickerFormat.Custom : Org發貨日期_dtp.CustomFormat = " "
+            修改日期_dtp.Format = DateTimePickerFormat.Custom : 修改日期_dtp.CustomFormat = " "
+            發貨日期_dtp.Format = DateTimePickerFormat.Custom : 發貨日期_dtp.CustomFormat = " "
+            下單日_dtp.Format = DateTimePickerFormat.Custom : 下單日_dtp.CustomFormat = " "
+            交期日期_dtp.Format = DateTimePickerFormat.Custom : 交期日期_dtp.CustomFormat = " "
+            ETA_Date_dtp.Format = DateTimePickerFormat.Custom : ETA_Date_dtp.CustomFormat = " "
+            資料存檔_bt.Enabled = False
+            ShippingCarrier_tb.Text = "" : Vendor_Reference_tb.Text = ""
+            客戶姓名_tb.Text = "" : 銷售訂單_tb.Text = "" : 客戶地址_tb.Text = ""
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 確認是否已存檔()
-        ConnOpen()
-        SQL1 = "SELECT 明細建檔 FROM 量產樣品控制表 WHERE (樣品單號 LIKE '" & 樣品單號_tb.Text & "') GROUP BY 明細建檔"
-        CmdSet_For_dr()
-        If dr.Read() Then : 明細判斷 = dr("明細建檔").ToString : End If : conn.Close()
-        If 明細判斷 = True Then
-            資料存檔_bt.Enabled = False : 資料修改_bt.Enabled = True : 資料刪除_bt.Enabled = True
-        ElseIf 明細判斷 = False Then
-            資料存檔_bt.Enabled = True : 資料修改_bt.Enabled = False : 資料刪除_bt.Enabled = False
-        End If
+        Try
+            SQL_明細建檔()
+            If dr.Read() Then : 明細判斷 = dr("明細建檔").ToString : End If : conn.Close()
+            If 明細判斷 = True Then
+                資料存檔_bt.Enabled = False : 資料修改_bt.Enabled = True : 資料刪除_bt.Enabled = True
+            ElseIf 明細判斷 = False Then
+                資料存檔_bt.Enabled = True : 資料修改_bt.Enabled = False : 資料刪除_bt.Enabled = False
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_日期格式轉換()
-        DTP(0) = 創建日期_dtp.Text
-        If DTP(0) = " " Then : DTP(0) = "" : Else : DTP(0) = Format(ETA_Date_dtp.Value, "yyyy/MM/dd") : End If
+        Try
+            DTP = 創建日期_dtp.Text
+            If DTP = " " Then : DTP = "" : Else : DTP = Format(ETA_Date_dtp.Value, "yyyy/MM/dd") : End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 量產樣品明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True : Set_格式設定1()
-        If PA = "" Then : Else
-            樣品單號_tb.Text = PA
-            確認是否已存檔()
-            ConnOpen()
-            SQL1 = "SELECT 客戶名稱 FROM 客戶資料"
-            CmdSet_For_dr()
-            客戶名稱_cb.Items.Clear() : While (dr.Read()) : 客戶名稱_cb.Items.Add(dr("客戶名稱")) : End While : conn.Close()
-            ConnOpen()
-            SQL1 = "SELECT MODEOFDELIVERY FROM MODEOFDELIVERY"
-            CmdSet_For_dr()
-            客戶資料_cb.Items.Clear() : While (dr.Read()) : 客戶資料_cb.Items.Add(dr("MODEOFDELIVERY")) : End While : conn.Close()
-            ConnOpen()
-            SQL1 = "SELECT DELIVERYTERMS FROM DELIVERYTERMS"
-            CmdSet_For_dr()
-            客戶資料1_cb.Items.Clear() : While (dr.Read()) : 客戶資料1_cb.Items.Add(dr("DELIVERYTERMS")) : End While : conn.Close()
-            ConnOpen()
-            SQL1 = "SELECT FROMPORT FROM FROMPORT"
-            CmdSet_For_dr()
-            客戶資料2_cb.Items.Clear() : While (dr.Read()) : 客戶資料2_cb.Items.Add(dr("FROMPORT")) : End While : conn.Close()
-            ConnOpen()
-            SQL1 = "SELECT TOPORT FROM TOPORT ORDER BY TOPORT"
-            CmdSet_For_dr()
-            客戶資料3_cb.Items.Clear() : While (dr.Read()) : 客戶資料3_cb.Items.Add(dr("TOPORT")) : End While : conn.Close()
-            ConnOpen()
-            SQL1 = "SELECT REMARK FROM DELIVERYADDRESS ORDER BY REMARK"
-            CmdSet_For_dr()
-            Remark_cb.Items.Clear() : While (dr.Read()) : Remark_cb.Items.Add(dr("REMARK")) : End While : conn.Close()
-            基本資料載入()
-            ConnOpen()
-            SQL1 = "SELECT 訂單號, Number, M_Of_D, D_T, F_P, T_P, S_C, C_R, V_R, C_N, S_O, ETADate, Remark FROM 量產樣品明細表抬頭 WHERE 訂單號 LIKE '" & 樣品單號_tb.Text & "'"
-            CmdSet_For_dr()
-            If dr.Read() Then
-                客戶資料_cb.Text = dr("M_Of_D").ToString : 客戶資料1_cb.Text = dr("D_T").ToString : 客戶資料2_cb.Text = dr("F_P").ToString
-                客戶資料3_cb.Text = dr("T_P").ToString : ShippingCarrier_tb.Text = dr("S_C").ToString : Customer_Requisition_tb.Text = dr("C_R").ToString
-                Vendor_Reference_tb.Text = dr("V_R").ToString : 客戶姓名_tb.Text = dr("C_N").ToString : 銷售訂單_tb.Text = dr("S_O").ToString
-                Remark_cb.Text = dr("Remark").ToString
-                Date7 = dr("ETADate").ToString
-                If Date7 = " " Or Date7 = "" Then : Else : ETA_Date_dtp.Format = DateTimePickerFormat.Short : ETA_Date_dtp.Text = dr("ETADate").ToString : End If
+        Try
+            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True : Set_格式設定1()
+            If PA = "" Then : Else
+                樣品單號_tb.Text = PA
+                確認是否已存檔()
+                SQL_客戶資料()
+                客戶名稱_cb.Items.Clear() : While (dr.Read()) : 客戶名稱_cb.Items.Add(dr("客戶名稱")) : End While : conn.Close()
+                SQL_MODEOFDELIVERY()
+                客戶資料_cb.Items.Clear() : While (dr.Read()) : 客戶資料_cb.Items.Add(dr("MODEOFDELIVERY")) : End While : conn.Close()
+                SQL_DELIVERYTERMS()
+                客戶資料1_cb.Items.Clear() : While (dr.Read()) : 客戶資料1_cb.Items.Add(dr("DELIVERYTERMS")) : End While : conn.Close()
+                SQL_FROMPORT()
+                客戶資料2_cb.Items.Clear() : While (dr.Read()) : 客戶資料2_cb.Items.Add(dr("FROMPORT")) : End While : conn.Close()
+                SQL_TOPORT()
+                客戶資料3_cb.Items.Clear() : While (dr.Read()) : 客戶資料3_cb.Items.Add(dr("TOPORT")) : End While : conn.Close()
+                SQL_DELIVERYADDRESS()
+                Remark_cb.Items.Clear() : While (dr.Read()) : Remark_cb.Items.Add(dr("REMARK")) : End While : conn.Close()
+                基本資料載入()
+                SQL_量產樣品明細表抬頭()
+                If dr.Read() Then
+                    客戶資料_cb.Text = dr("M_Of_D").ToString : 客戶資料1_cb.Text = dr("D_T").ToString : 客戶資料2_cb.Text = dr("F_P").ToString
+                    客戶資料3_cb.Text = dr("T_P").ToString : ShippingCarrier_tb.Text = dr("S_C").ToString : Customer_Requisition_tb.Text = dr("C_R").ToString
+                    Vendor_Reference_tb.Text = dr("V_R").ToString : 客戶姓名_tb.Text = dr("C_N").ToString : 銷售訂單_tb.Text = dr("S_O").ToString
+                    Remark_cb.Text = dr("Remark").ToString
+                    Date7 = dr("ETADate").ToString
+                    If Date7 = " " Or Date7 = "" Then : Else : ETA_Date_dtp.Format = DateTimePickerFormat.Short : ETA_Date_dtp.Text = dr("ETADate").ToString : End If
+                End If
+                conn.Close()
+                Set_訂單清單() : Set_自動彙總1()
+                客戶名稱_cb.SelectedIndex = 0
+            End If : PA = ""
+            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
-            conn.Close()
-            Set_訂單清單() : Set_自動彙總1()
-            客戶名稱_cb.SelectedIndex = 0
-        End If : PA = ""
-        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
     End Sub
     Private Sub 楦頭圖片資料庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
-        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
+        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
     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 ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Remark_cb.TextChanged
-        ConnOpen()
-        SQL1 = "SELECT DELIVERYADDRESS FROM DELIVERYADDRESS WHERE REMARK LIKE '" & Remark_cb.Text & "'"
-        CmdSet_For_dr()
-        If dr.Read() Then : 客戶地址_tb.Text = dr("DELIVERYADDRESS").ToString : End If
+        Try
+            SQL_DELIVERYADDRESS1()
+            If dr.Read() Then : 客戶地址_tb.Text = dr("DELIVERYADDRESS").ToString : End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles 創建日期_dtp.MouseDown
         創建日期_dtp.Format = DateTimePickerFormat.Short
@@ -267,41 +268,38 @@ Public Class 量產樣品明細表
         Me.Close() : 量產樣品控制表.Show() : 量產樣品控制表.WindowState = 2
     End Sub
     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 資料存檔_bt.Click
-        conn.Close()
-        ConnOpen()
-        SQL1 = "UPDATE 量產樣品控制表 SET 明細建檔 = '1' WHERE (樣品單號 LIKE '" & 樣品單號_tb.Text & "')"
-        CmdSet_For_dr() : conn.Close()
-        Set_日期格式轉換()
-        ConnOpen()
-        SQL1 = "INSERT INTO 量產樣品明細表抬頭 (訂單號, Number, M_Of_D, D_T, F_P, T_P, S_C, C_R, V_R, C_N, S_O, ETADate, Remark) " &
-                   "VALUES ('" & 樣品單號_tb.Text & "','" & 客戶訂單號_tb.Text & "','" & 客戶資料_cb.Text & "','" & 客戶資料1_cb.Text & "','" & 客戶資料2_cb.Text & "','" & 客戶資料3_cb.Text &
-                         "','" & ShippingCarrier_tb.Text & "','" & Customer_Requisition_tb.Text & "','" & Vendor_Reference_tb.Text & "','" & 客戶姓名_tb.Text & "','" & 銷售訂單_tb.Text & "', '" & DTP(0) & "','" & Remark_cb.Text & "')"
-        CmdSet_For_dr() : conn.Close()
-        確認是否已存檔()
-        MsgBox("存檔完成")
+        Try
+            SQL_修改量產樣品控制表() : conn.Close()
+            Set_日期格式轉換()
+            SQL_新增量產樣品明細表抬頭() : conn.Close()
+            確認是否已存檔()
+            MsgBox("存檔完成")
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 資料修改_bt.Click
-        Set_日期格式轉換()
-        ConnOpen()
-        SQL1 = "UPDATE 量產樣品明細表抬頭 SET M_Of_D = '" & 客戶資料_cb.Text & "', D_T = '" & 客戶資料1_cb.Text & "', F_P = '" & 客戶資料2_cb.Text & "', T_P = '" & 客戶資料3_cb.Text &
-               "', S_C = '" & ShippingCarrier_tb.Text & "', C_R = '" & Customer_Requisition_tb.Text & "', V_R = '" & Vendor_Reference_tb.Text & "', C_N = '" & 客戶姓名_tb.Text &
-               "', S_O = '" & 銷售訂單_tb.Text & "', ETADate = '" & DTP(0) & "', Remark = '" & Remark_cb.Text & "' WHERE 訂單號 LIKE '" & 樣品單號_tb.Text & "'"
-        CmdSet_For_dr() : conn.Close()
-        MsgBox("修改完成")
+        Try
+            Set_日期格式轉換()
+            SQL_資料修改() : conn.Close()
+            MsgBox("修改完成")
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 資料刪除_bt.Click
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            ConnOpen()
-            SQL1 = "DELETE FROM 量產樣品明細表抬頭 WHERE (訂單號 = '" & 樣品單號_tb.Text & "')"
-            CmdSet_For_dr() : conn.Close()
-            ConnOpen()
-            SQL1 = "DELETE FROM 量產樣品控制表 WHERE ( 樣品單號 = '" & 樣品單號_tb.Text & "')"
-            CmdSet_For_dr() : conn.Close()
-            明細判斷 = False : 確認是否已存檔() : Set_格式設定1() : 基本資料載入()
-            MsgBox("刪除完成")
-        End If
+        Try
+            Dim aa As MsgBoxResult
+            aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+            If aa = MsgBoxResult.Ok Then
+                SQL_資料刪除() : conn.Close()
+                SQL_資料刪除1() : conn.Close()
+                明細判斷 = False : 確認是否已存檔() : Set_格式設定1() : 基本資料載入()
+                MsgBox("刪除完成")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
         OD(0) = 客戶訂單號_tb.Text : OD(1) = 創建日期_dtp.Text : OD(2) = 客戶名稱_cb.Text : OD(3) = 供應商資料_tb.Text : OD(4) = 客戶資料_cb.Text

TENDEN-MES-SYS/樣品訂單管理/量產樣品單系統/量產樣品流水號.vb

@@ -24,9 +24,7 @@ Public Class 量產樣品流水號
                 ElseIf NUM1 >= 10 Then
                     樣品單號_tb.Text = 令頭 & YY & MM & DD & NUM1
                 End If
-                ConnOpen()
-                SQL1 = "SELECT TOP (1) 樣品單號 FROM 量產樣品控制表 WHERE (樣品單號 LIKE '%" & 樣品單號_tb.Text & "%') GROUP BY 樣品單號 ORDER BY 樣品單號 DESC"
-                CmdSet_For_dr()
+                SQL_讀取樣品單號最後一筆()
                 If dr.Read() Then : TextBox2.Text = dr("樣品單號").ToString : Else : TextBox2.Text = "" : End If
                 conn.Close()
                 If TextBox2.Text = "" Then

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_出貨明細表.vb

@@ -15,11 +15,15 @@ Public Class 列印_出貨明細表
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     Dim 位置1 As String
     Private Sub Set_DGV1載入前設定()
-        清單_dgv.DataSource = Nothing : ds.Clear()
-        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        清單_dgv.ColumnHeadersHeight = 25
-        清單_dgv.AllowUserToAddRows = False
-        ConnOpen()
+        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
     End Sub
     Private Sub Set_DGV1載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
@@ -28,13 +32,21 @@ Public Class 列印_出貨明細表
         清單_dgv.Visible = False
     End Sub
     Private Sub Set_訂單清單1()
-        Set_DGV1載入前設定()
-        SQL1 = 列印用SQL
-        Set_DGV1載入後設定()
+        Try
+            Set_DGV1載入前設定()
+            SQL1 = 列印用SQL
+            Set_DGV1載入後設定()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 列印_出貨明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
-        Set_訂單清單1() : Set_格式設定()
+        Try
+            FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
+            Set_訂單清單1() : Set_格式設定()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取消列印_bt.Click
         列印用SQL = "" : Me.Close()
@@ -43,58 +55,62 @@ Public Class 列印_出貨明細表
         Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
     End Function
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
-        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
-        xlApp.Visible = True
-        xlApp.DisplayAlerts = True
-        xlApp.Application.WindowState = xlMaximized
-        xlBook = xlApp.Workbooks.Add
-        xlSheet = NewMethod(xlBook)
-        xlBook.Activate()
-        xlSheet.Activate()
+        Try
+            xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+            xlApp.Visible = True
+            xlApp.DisplayAlerts = True
+            xlApp.Application.WindowState = xlMaximized
+            xlBook = xlApp.Workbooks.Add
+            xlSheet = NewMethod(xlBook)
+            xlBook.Activate()
+            xlSheet.Activate()
 
-        xlSheet.Cells(1, 1) = "天盾國際 - 出貨明細表"
-        xlSheet.Cells(2, 1) = "VT#"
-        xlSheet.Cells(2, 2) = "季度"
-        xlSheet.Cells(2, 3) = "客戶訂單號"
-        xlSheet.Cells(2, 4) = "STYLE NAME"
-        xlSheet.Cells(2, 5) = "顏色"
-        xlSheet.Cells(2, 6) = "楦型"
-        xlSheet.Cells(2, 7) = "訂單數量"
-        xlSheet.Cells(2, 8) = "出貨數量"
-        xlSheet.Cells(2, 9) = "備註"
-        xlSheet.Cells(2, 10) = "工廠"
-        xlSheet.Cells(2, 11) = "訂單種類"
-        xlSheet.Cells(2, 12) = "客戶交期"
-        xlSheet.Cells(2, 13) = "工廠回復交期"
-        xlSheet.Cells(2, 14) = "實際離廠日"
+            xlSheet.Cells(1, 1) = "天盾國際 - 出貨明細表"
+            xlSheet.Cells(2, 1) = "VT#"
+            xlSheet.Cells(2, 2) = "季度"
+            xlSheet.Cells(2, 3) = "客戶訂單號"
+            xlSheet.Cells(2, 4) = "STYLE NAME"
+            xlSheet.Cells(2, 5) = "顏色"
+            xlSheet.Cells(2, 6) = "楦型"
+            xlSheet.Cells(2, 7) = "訂單數量"
+            xlSheet.Cells(2, 8) = "出貨數量"
+            xlSheet.Cells(2, 9) = "備註"
+            xlSheet.Cells(2, 10) = "工廠"
+            xlSheet.Cells(2, 11) = "訂單種類"
+            xlSheet.Cells(2, 12) = "客戶交期"
+            xlSheet.Cells(2, 13) = "工廠回復交期"
+            xlSheet.Cells(2, 14) = "實際離廠日"
 
-        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
-            xlSheet.Cells(i + 3, 1) = 清單_dgv.Rows(i).Cells("訂單流水號").Value
-            xlSheet.Cells(i + 3, 2) = 清單_dgv.Rows(i).Cells("年份季度").Value
-            xlSheet.Cells(i + 3, 3) = 清單_dgv.Rows(i).Cells("客戶訂單號").Value
-            xlSheet.Cells(i + 3, 4) = 清單_dgv.Rows(i).Cells("形體號").Value
-            xlSheet.Cells(i + 3, 5) = 清單_dgv.Rows(i).Cells("顏色").Value
-            xlSheet.Cells(i + 3, 6) = 清單_dgv.Rows(i).Cells("楦型").Value
-            xlSheet.Cells(i + 3, 7) = 清單_dgv.Rows(i).Cells("訂單數量").Value
-            xlSheet.Cells(i + 3, 8) = 清單_dgv.Rows(i).Cells("出貨數量").Value
-            xlSheet.Cells(i + 3, 9) = 清單_dgv.Rows(i).Cells("備註").Value
-            xlSheet.Cells(i + 3, 10) = 清單_dgv.Rows(i).Cells("生產工廠").Value
-            xlSheet.Cells(i + 3, 11) = 清單_dgv.Rows(i).Cells("訂單種類").Value
-            xlSheet.Cells(i + 3, 12) = 清單_dgv.Rows(i).Cells("客戶交期").Value
-            xlSheet.Cells(i + 3, 13) = 清單_dgv.Rows(i).Cells("工廠回復交期").Value
-            xlSheet.Cells(i + 3, 14) = 清單_dgv.Rows(i).Cells("實際離廠日").Value
-            With xlApp.Selection
-                .Font.Bold = True
-            End With
-            N2 = i + 3
-        Next i
-        BB(xlApp, xlSheet)
+            For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = 清單_dgv.Rows(i).Cells("訂單流水號").Value
+                xlSheet.Cells(i + 3, 2) = 清單_dgv.Rows(i).Cells("年份季度").Value
+                xlSheet.Cells(i + 3, 3) = 清單_dgv.Rows(i).Cells("客戶訂單號").Value
+                xlSheet.Cells(i + 3, 4) = 清單_dgv.Rows(i).Cells("形體號").Value
+                xlSheet.Cells(i + 3, 5) = 清單_dgv.Rows(i).Cells("顏色").Value
+                xlSheet.Cells(i + 3, 6) = 清單_dgv.Rows(i).Cells("楦型").Value
+                xlSheet.Cells(i + 3, 7) = 清單_dgv.Rows(i).Cells("訂單數量").Value
+                xlSheet.Cells(i + 3, 8) = 清單_dgv.Rows(i).Cells("出貨數量").Value
+                xlSheet.Cells(i + 3, 9) = 清單_dgv.Rows(i).Cells("備註").Value
+                xlSheet.Cells(i + 3, 10) = 清單_dgv.Rows(i).Cells("生產工廠").Value
+                xlSheet.Cells(i + 3, 11) = 清單_dgv.Rows(i).Cells("訂單種類").Value
+                xlSheet.Cells(i + 3, 12) = 清單_dgv.Rows(i).Cells("客戶交期").Value
+                xlSheet.Cells(i + 3, 13) = 清單_dgv.Rows(i).Cells("工廠回復交期").Value
+                xlSheet.Cells(i + 3, 14) = 清單_dgv.Rows(i).Cells("實際離廠日").Value
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N2 = i + 3
+            Next i
+            BB(xlApp, xlSheet)
 
-        xlSheet.PageSetup.PrintArea = ""
-        xlApp.Cells.Select()
-        xlApp.Application.WindowState = xlMinimized
-        MsgBox("列印完成")
-        Me.Close()
+            xlSheet.PageSetup.PrintArea = ""
+            xlApp.Cells.Select()
+            xlApp.Application.WindowState = xlMinimized
+            MsgBox("列印完成")
+            Me.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
         xlSheet.Cells.Select()

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_周進度表.vb

@@ -19,172 +19,171 @@ Public Class 列印_周進度表
     Public Property ActiveWorkbook As Object
     Dim N1 As Integer = 0
     Private Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        ConnOpen()
+        Try
+            DataGridView1.DataSource = Nothing : ds.Clear()
+            DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            DataGridView1.ColumnHeadersHeight = 25
+            DataGridView1.AllowUserToAddRows = False
+            ConnOpen()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_DGV1載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_訂單清單()
-        Set_DGV1載入前設定()
-        If OPEXC(0) = True Then
-            SQL1 = "SELECT     訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
-                               訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
-                               Remarks, 訂單流水號 
-                    FROM       " & 訂單資料表(1) & " 
-                    WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 = 0) AND ((LEFT(客戶交期, 4) LIKE '" & Year(Today) & "') or (LEFT(客戶交期, 4) LIKE '" & Year(Today) + 1 & "')) 
-                    ORDER BY   訂單流水號 DESC, STYLE_NAME, COLOR, WIDTH"
-        ElseIf OPEXC(1) = True Then
-            SQL1 = "SELECT    訂單種類 AS Order_type, PO_S_Date , 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
-                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
-                              Remarks, 訂單流水號 
-                    FROM      " & 訂單資料表(1) & " 
-                    WHERE    (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
-        ElseIf OPEXC(2) = True Then
-            SQL1 = "SELECT    訂單種類 AS Order_type, PO_S_Date , 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
-                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
-                              Remarks, 訂單流水號 
-                    FROM      " & 訂單資料表(1) & " 
-                    WHERE    (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
-        ElseIf OPEXC(3) = True Then
-            SQL1 = "SELECT    訂單種類 AS Order_type, PO_S_Date , 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
-                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
-                              Remarks, 訂單流水號 
-                    FROM      " & 訂單資料表(1) & " 
-                    WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
-        End If
-        Set_DGV1載入後設定()
+        Try
+            Set_DGV1載入前設定()
+            If OPEXC(0) = True Then
+                SQL_列印_周進度表()
+            ElseIf OPEXC(1) = True Then
+                SQL_列印_周進度表1()
+            ElseIf OPEXC(2) = True Then
+                SQL_列印_周進度表2()
+            ElseIf OPEXC(3) = True Then
+                SQL_列印_周進度表3()
+            End If
+            Set_DGV1載入後設定()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_格式設定()
         DataGridView1.Visible = False
     End Sub
     Private Sub Set_循環列印()
-        AA(xlApp, xlSheet)
-        xlSheet.Cells(3, 1) = "VIONIC VOLINT'L" : xlSheet.Cells(3, 2) = "PO Submission date" : xlSheet.Cells(3, 3) = "FACTORY NAME" : xlSheet.Cells(3, 4) = "PO#"
-        xlSheet.Cells(3, 5) = "STYLE NAME" : xlSheet.Cells(3, 6) = "COLOR" : xlSheet.Cells(3, 7) = "WIDTH" : xlSheet.Cells(3, 8) = "Q'TY" : xlSheet.Cells(3, 9) = "REQUESTED XF"
-        xlSheet.Cells(3, 10) = "CONFIRM XF" : xlSheet.Cells(3, 11) = "REVISED XF" : xlSheet.Cells(3, 12) = "CUTTING" : xlSheet.Cells(3, 13) = "STITCHING" : xlSheet.Cells(3, 14) = "LASTING"
-        xlSheet.Cells(3, 15) = "SPECIAL      PACKAGING" : xlSheet.Cells(3, 16) = "REMARKS                    (TENDENZA)(VIONIC)"
-        Set_訂單清單()
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            xlSheet.Cells(i + 4, 1) = DataGridView1.Rows(i).Cells("Order_type").Value
-            xlSheet.Cells(i + 4, 2) = DataGridView1.Rows(i).Cells("PO_S_Date").Value
-            xlSheet.Cells(i + 4, 3) = DataGridView1.Rows(i).Cells("Plant").Value
-            xlSheet.Cells(i + 4, 4) = DataGridView1.Rows(i).Cells("PO#").Value
-            xlSheet.Cells(i + 4, 5) = DataGridView1.Rows(i).Cells("Style_Name").Value
-            xlSheet.Cells(i + 4, 6) = DataGridView1.Rows(i).Cells("Color").Value
-            xlSheet.Cells(i + 4, 7) = DataGridView1.Rows(i).Cells("Width").Value
-            xlSheet.Cells(i + 4, 8) = DataGridView1.Rows(i).Cells("QTY").Value
-            xlSheet.Cells(i + 4, 9) = DataGridView1.Rows(i).Cells("Requested_XF").Value
-            xlSheet.Cells(i + 4, 10) = DataGridView1.Rows(i).Cells("Confirm_XF").Value
-            xlSheet.Cells(i + 4, 11) = DataGridView1.Rows(i).Cells("Revised_XF").Value
-            xlSheet.Cells(i + 4, 12) = DataGridView1.Rows(i).Cells("Cutting").Value
-            xlSheet.Cells(i + 4, 13) = DataGridView1.Rows(i).Cells("Stitching").Value
-            xlSheet.Cells(i + 4, 14) = DataGridView1.Rows(i).Cells("Lasting").Value
-            xlSheet.Cells(i + 4, 15) = DataGridView1.Rows(i).Cells("Special_Packaging").Value
-            xlSheet.Cells(i + 4, 16) = DataGridView1.Rows(i).Cells("Remarks").Value
+        Try
+            AA(xlApp, xlSheet)
+            xlSheet.Cells(3, 1) = "VIONIC VOLINT'L" : xlSheet.Cells(3, 2) = "PO Submission date" : xlSheet.Cells(3, 3) = "FACTORY NAME" : xlSheet.Cells(3, 4) = "PO#"
+            xlSheet.Cells(3, 5) = "STYLE NAME" : xlSheet.Cells(3, 6) = "COLOR" : xlSheet.Cells(3, 7) = "WIDTH" : xlSheet.Cells(3, 8) = "Q'TY" : xlSheet.Cells(3, 9) = "REQUESTED XF"
+            xlSheet.Cells(3, 10) = "CONFIRM XF" : xlSheet.Cells(3, 11) = "REVISED XF" : xlSheet.Cells(3, 12) = "CUTTING" : xlSheet.Cells(3, 13) = "STITCHING" : xlSheet.Cells(3, 14) = "LASTING"
+            xlSheet.Cells(3, 15) = "SPECIAL      PACKAGING" : xlSheet.Cells(3, 16) = "REMARKS                    (TENDENZA)(VIONIC)"
+            Set_訂單清單()
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                xlSheet.Cells(i + 4, 1) = DataGridView1.Rows(i).Cells("Order_type").Value
+                xlSheet.Cells(i + 4, 2) = DataGridView1.Rows(i).Cells("PO_S_Date").Value
+                xlSheet.Cells(i + 4, 3) = DataGridView1.Rows(i).Cells("Plant").Value
+                xlSheet.Cells(i + 4, 4) = DataGridView1.Rows(i).Cells("PO#").Value
+                xlSheet.Cells(i + 4, 5) = DataGridView1.Rows(i).Cells("Style_Name").Value
+                xlSheet.Cells(i + 4, 6) = DataGridView1.Rows(i).Cells("Color").Value
+                xlSheet.Cells(i + 4, 7) = DataGridView1.Rows(i).Cells("Width").Value
+                xlSheet.Cells(i + 4, 8) = DataGridView1.Rows(i).Cells("QTY").Value
+                xlSheet.Cells(i + 4, 9) = DataGridView1.Rows(i).Cells("Requested_XF").Value
+                xlSheet.Cells(i + 4, 10) = DataGridView1.Rows(i).Cells("Confirm_XF").Value
+                xlSheet.Cells(i + 4, 11) = DataGridView1.Rows(i).Cells("Revised_XF").Value
+                xlSheet.Cells(i + 4, 12) = DataGridView1.Rows(i).Cells("Cutting").Value
+                xlSheet.Cells(i + 4, 13) = DataGridView1.Rows(i).Cells("Stitching").Value
+                xlSheet.Cells(i + 4, 14) = DataGridView1.Rows(i).Cells("Lasting").Value
+                xlSheet.Cells(i + 4, 15) = DataGridView1.Rows(i).Cells("Special_Packaging").Value
+                xlSheet.Cells(i + 4, 16) = DataGridView1.Rows(i).Cells("Remarks").Value
 
-            With xlApp.Selection
-                .Font.Bold = True
-            End With
-            N1 = i
-        Next i
-        BB(xlApp, xlSheet)
-        xlSheet.Range("A2").Select()
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N1 = i
+            Next i
+            BB(xlApp, xlSheet)
+            xlSheet.Range("A2").Select()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 列印_周進度表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
         Set_格式設定()
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
-        If 訂單資料庫選擇.品牌V_R判斷 = "V" Then
-            PID = "VIONIC and VOLIN'L"
-        ElseIf 訂單資料庫選擇.品牌V_R判斷 = "R" Then
-            PID = "DRS / LIF"
-        End If
-        If 周進度表.品牌V_R判斷 = "V" Then
-            PID = "VIONIC and VOLIN'L"
-        ElseIf 周進度表.品牌V_R判斷 = "R" Then
-            PID = "DRS / LIF"
-        End If
-        xlApp = CType(CreateObject("Excel.Application"), Application)
-        xlApp.Visible = True
-        xlApp.DisplayAlerts = True
-        xlApp.Application.WindowState = xlMaximized
-        xlBook = xlApp.Workbooks.Add
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表2" Then
-            xlApp.Sheets("工作表2").Select
-            xlApp.Sheets("工作表2").Name = "COMPLETE"
-        Else
-            xlApp.Sheets("sheet2").Select
-            xlApp.Sheets("sheet2").Name = "COMPLETE"
-        End If
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = True : OPEXC(1) = False : OPEXC(2) = False : OPEXC(3) = False
-        xlSheet.Range("A1").Select()
-        xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
-        Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表3" Then
-            xlApp.Sheets("工作表3").Select
-            xlApp.Sheets("工作表3").Name = "JH"
-        Else
-            xlApp.Sheets("sheet3").Select
-            xlApp.Sheets("sheet3").Name = "JH"
-        End If
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = False : OPEXC(1) = True : OPEXC(2) = False : OPEXC(3) = False
-        xlSheet.Range("A1").Select()
-        xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "JH" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
-        Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表4" Then
-            xlApp.Sheets("工作表4").Select
-            xlApp.Sheets("工作表4").Name = "SK"
-        Else
-            xlApp.Sheets("sheet4").Select
-            xlApp.Sheets("sheet4").Name = "SK"
-        End If
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = True : OPEXC(3) = False
-        xlSheet.Range("A1").Select()
-        xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "SK" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
-        Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表5" Then
-            xlApp.Sheets("工作表5").Select
-            xlApp.Sheets("工作表5").Name = "NJ"
-        Else
-            xlApp.Sheets("sheet5").Select
-            xlApp.Sheets("sheet5").Name = "NJ"
-        End If
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = False : OPEXC(3) = True
-        xlSheet.Range("A1").Select()
-        xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "NJ" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
-        Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        If xlApp.Sheets(5).Name = "工作表1" Then
-            xlApp.Sheets("工作表1").Delete
-        Else
-            xlApp.Sheets("sheet1").Delete
-        End If
-        xlSheet.PageSetup.PrintArea = ""
-        xlApp.Cells.Select()
-        xlApp.Application.WindowState = xlMinimized
-        MsgBox("列印完成")
-        Me.Close()
+        Try
+            If 訂單資料庫選擇.品牌V_R判斷 = "V" Then
+                PID = "VIONIC and VOLIN'L"
+            ElseIf 訂單資料庫選擇.品牌V_R判斷 = "R" Then
+                PID = "DRS / LIF"
+            End If
+            If 周進度表.品牌V_R判斷 = "V" Then
+                PID = "VIONIC and VOLIN'L"
+            ElseIf 周進度表.品牌V_R判斷 = "R" Then
+                PID = "DRS / LIF"
+            End If
+            xlApp = CType(CreateObject("Excel.Application"), Application)
+            xlApp.Visible = True
+            xlApp.DisplayAlerts = True
+            xlApp.Application.WindowState = xlMaximized
+            xlBook = xlApp.Workbooks.Add
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            If xlApp.Sheets(1).Name = "工作表2" Then
+                xlApp.Sheets("工作表2").Select
+                xlApp.Sheets("工作表2").Name = "COMPLETE"
+            Else
+                xlApp.Sheets("sheet2").Select
+                xlApp.Sheets("sheet2").Name = "COMPLETE"
+            End If
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = True : OPEXC(1) = False : OPEXC(2) = False : OPEXC(3) = False
+            xlSheet.Range("A1").Select()
+            xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
+            Set_循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            If xlApp.Sheets(1).Name = "工作表3" Then
+                xlApp.Sheets("工作表3").Select
+                xlApp.Sheets("工作表3").Name = "JH"
+            Else
+                xlApp.Sheets("sheet3").Select
+                xlApp.Sheets("sheet3").Name = "JH"
+            End If
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = False : OPEXC(1) = True : OPEXC(2) = False : OPEXC(3) = False
+            xlSheet.Range("A1").Select()
+            xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "JH" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
+            Set_循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            If xlApp.Sheets(1).Name = "工作表4" Then
+                xlApp.Sheets("工作表4").Select
+                xlApp.Sheets("工作表4").Name = "SK"
+            Else
+                xlApp.Sheets("sheet4").Select
+                xlApp.Sheets("sheet4").Name = "SK"
+            End If
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = True : OPEXC(3) = False
+            xlSheet.Range("A1").Select()
+            xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "SK" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
+            Set_循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            If xlApp.Sheets(1).Name = "工作表5" Then
+                xlApp.Sheets("工作表5").Select
+                xlApp.Sheets("工作表5").Name = "NJ"
+            Else
+                xlApp.Sheets("sheet5").Select
+                xlApp.Sheets("sheet5").Name = "NJ"
+            End If
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = False : OPEXC(3) = True
+            xlSheet.Range("A1").Select()
+            xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "NJ" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
+            Set_循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            If xlApp.Sheets(5).Name = "工作表1" Then
+                xlApp.Sheets("工作表1").Delete
+            Else
+                xlApp.Sheets("sheet1").Delete
+            End If
+            xlSheet.PageSetup.PrintArea = ""
+            xlApp.Cells.Select()
+            xlApp.Application.WindowState = xlMinimized
+            MsgBox("列印完成")
+            Me.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取消列印_bt.Click
         Me.Close()

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_周進度表T1_T4.vb

@@ -19,155 +19,149 @@ Public Class 列印_周進度表T1_T4
     Public Property ActiveWorkbook As Object
     Dim N1 As Integer = 0
     Private Sub Set_訂單清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        ConnOpen()
-        If OPEXC(0) = True Then
-            SQL1 = "SELECT    年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
-                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
-                              成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片 
-                    FROM      " & 訂單資料表(1) & " 
-                    WHERE    (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 = 0) AND ((LEFT(客戶交期, 4) LIKE '" & Year(Today) & "') OR (LEFT(客戶交期, 4) LIKE '" & Year(Today) - 1 & "') OR 
-                             (LEFT(客戶交期, 4) LIKE '" & Year(Today) - 2 & "')) 
-                    ORDER BY   訂單流水號 DESC, STYLE_NAME, COLOR, WIDTH"
-        ElseIf OPEXC(1) = True Then
-            SQL1 = "SELECT    年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
-                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
-                              成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片 
-                   FROM       " & 訂單資料表(1) & " 
-                   WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
-        ElseIf OPEXC(2) = True Then
-            SQL1 = "SELECT    年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
-                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
-                              成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片 
-                   FROM       " & 訂單資料表(1) & " " &
-                  "WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
-        ElseIf OPEXC(3) = True Then
-            SQL1 = "SELECT    年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 力威訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
-                              訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
-                              成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片 
-                   FROM       " & 訂單資料表(1) & " " &
-                  "WHERE     (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') ORDER BY  PO_S_Date, 訂單流水號, STYLE_NAME, COLOR, WIDTH "
-        End If
-        CmdSet_For_DGV()
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        Try
+            DataGridView1.DataSource = Nothing : ds.Clear()
+            DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            DataGridView1.ColumnHeadersHeight = 25
+            DataGridView1.AllowUserToAddRows = False
+            ConnOpen()
+            If OPEXC(0) = True Then
+                SQL_列印周進度表()
+            ElseIf OPEXC(1) = True Then
+                SQL_列印周進度表1()
+            ElseIf OPEXC(2) = True Then
+                SQL_列印周進度表2()
+            ElseIf OPEXC(3) = True Then
+                SQL_列印周進度表3()
+            End If
+            CmdSet_For_DGV()
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_格式設定()
         DataGridView1.Visible = False
     End Sub
     Private Sub Set_循環列印()
-        AA(xlApp, xlSheet)
-        xlSheet.Cells(3, 1) = "SEASON"
-        xlSheet.Cells(3, 2) = "VIONIC VOLINT'L"
-        xlSheet.Cells(3, 3) = "PO Submission date"
-        xlSheet.Cells(3, 4) = "FACTORY NAME"
-        xlSheet.Cells(3, 5) = "PO#"
-        xlSheet.Cells(3, 6) = "STYLE NAME"
-        xlSheet.Cells(3, 7) = "COLOR"
-        xlSheet.Cells(3, 8) = "WIDTH"
-        xlSheet.Cells(3, 9) = "Q'TY"
-        xlSheet.Cells(3, 10) = "CONFIRM XF"
-        xlSheet.Cells(3, 11) = "T1"
-        xlSheet.Cells(3, 12) = "CFM"
-        xlSheet.Cells(3, 13) = "T4"
-        xlSheet.Cells(3, 14) = "CUTTING"
-        xlSheet.Cells(3, 15) = "STITCHING"
-        xlSheet.Cells(3, 16) = "LASTING"
-        xlSheet.Cells(3, 17) = "SPECIAL      PACKAGING"
-        xlSheet.Cells(3, 18) = "REMARKS                    (TENDENZA)(VIONIC)"
-        Set_訂單清單()
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            xlSheet.Cells(i + 4, 1) = DataGridView1.Rows(i).Cells("SEASON").Value
-            xlSheet.Cells(i + 4, 2) = DataGridView1.Rows(i).Cells("Order_type").Value
-            xlSheet.Cells(i + 4, 3) = DataGridView1.Rows(i).Cells("PO_S_Date").Value
-            xlSheet.Cells(i + 4, 4) = DataGridView1.Rows(i).Cells("Plant").Value
-            xlSheet.Cells(i + 4, 5) = DataGridView1.Rows(i).Cells("PO#").Value
-            xlSheet.Cells(i + 4, 6) = DataGridView1.Rows(i).Cells("Style_Name").Value
-            xlSheet.Cells(i + 4, 7) = DataGridView1.Rows(i).Cells("Color").Value
-            xlSheet.Cells(i + 4, 8) = DataGridView1.Rows(i).Cells("Width").Value
-            xlSheet.Cells(i + 4, 9) = DataGridView1.Rows(i).Cells("QTY").Value
-            xlSheet.Cells(i + 4, 10) = DataGridView1.Rows(i).Cells("Confirm_XF").Value
-            xlSheet.Cells(i + 4, 11) = DataGridView1.Rows(i).Cells("T1").Value
-            xlSheet.Cells(i + 4, 12) = DataGridView1.Rows(i).Cells("CFM").Value
-            xlSheet.Cells(i + 4, 13) = DataGridView1.Rows(i).Cells("T4").Value
-            xlSheet.Cells(i + 4, 14) = DataGridView1.Rows(i).Cells("Cutting").Value
-            xlSheet.Cells(i + 4, 15) = DataGridView1.Rows(i).Cells("Stitching").Value
-            xlSheet.Cells(i + 4, 16) = DataGridView1.Rows(i).Cells("Lasting").Value
-            xlSheet.Cells(i + 4, 17) = DataGridView1.Rows(i).Cells("Special_Packaging").Value
-            xlSheet.Cells(i + 4, 18) = DataGridView1.Rows(i).Cells("Remarks").Value
-            With xlApp.Selection
-                .Font.Bold = True
-            End With
-            N1 = i
-        Next i
-        BB(xlApp, xlSheet)
-        xlSheet.Range("A2").Select()
+        Try
+            AA(xlApp, xlSheet)
+            xlSheet.Cells(3, 1) = "SEASON"
+            xlSheet.Cells(3, 2) = "VIONIC VOLINT'L"
+            xlSheet.Cells(3, 3) = "PO Submission date"
+            xlSheet.Cells(3, 4) = "FACTORY NAME"
+            xlSheet.Cells(3, 5) = "PO#"
+            xlSheet.Cells(3, 6) = "STYLE NAME"
+            xlSheet.Cells(3, 7) = "COLOR"
+            xlSheet.Cells(3, 8) = "WIDTH"
+            xlSheet.Cells(3, 9) = "Q'TY"
+            xlSheet.Cells(3, 10) = "CONFIRM XF"
+            xlSheet.Cells(3, 11) = "T1"
+            xlSheet.Cells(3, 12) = "CFM"
+            xlSheet.Cells(3, 13) = "T4"
+            xlSheet.Cells(3, 14) = "CUTTING"
+            xlSheet.Cells(3, 15) = "STITCHING"
+            xlSheet.Cells(3, 16) = "LASTING"
+            xlSheet.Cells(3, 17) = "SPECIAL      PACKAGING"
+            xlSheet.Cells(3, 18) = "REMARKS                    (TENDENZA)(VIONIC)"
+            Set_訂單清單()
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                xlSheet.Cells(i + 4, 1) = DataGridView1.Rows(i).Cells("SEASON").Value
+                xlSheet.Cells(i + 4, 2) = DataGridView1.Rows(i).Cells("Order_type").Value
+                xlSheet.Cells(i + 4, 3) = DataGridView1.Rows(i).Cells("PO_S_Date").Value
+                xlSheet.Cells(i + 4, 4) = DataGridView1.Rows(i).Cells("Plant").Value
+                xlSheet.Cells(i + 4, 5) = DataGridView1.Rows(i).Cells("PO#").Value
+                xlSheet.Cells(i + 4, 6) = DataGridView1.Rows(i).Cells("Style_Name").Value
+                xlSheet.Cells(i + 4, 7) = DataGridView1.Rows(i).Cells("Color").Value
+                xlSheet.Cells(i + 4, 8) = DataGridView1.Rows(i).Cells("Width").Value
+                xlSheet.Cells(i + 4, 9) = DataGridView1.Rows(i).Cells("QTY").Value
+                xlSheet.Cells(i + 4, 10) = DataGridView1.Rows(i).Cells("Confirm_XF").Value
+                xlSheet.Cells(i + 4, 11) = DataGridView1.Rows(i).Cells("T1").Value
+                xlSheet.Cells(i + 4, 12) = DataGridView1.Rows(i).Cells("CFM").Value
+                xlSheet.Cells(i + 4, 13) = DataGridView1.Rows(i).Cells("T4").Value
+                xlSheet.Cells(i + 4, 14) = DataGridView1.Rows(i).Cells("Cutting").Value
+                xlSheet.Cells(i + 4, 15) = DataGridView1.Rows(i).Cells("Stitching").Value
+                xlSheet.Cells(i + 4, 16) = DataGridView1.Rows(i).Cells("Lasting").Value
+                xlSheet.Cells(i + 4, 17) = DataGridView1.Rows(i).Cells("Special_Packaging").Value
+                xlSheet.Cells(i + 4, 18) = DataGridView1.Rows(i).Cells("Remarks").Value
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N1 = i
+            Next i
+            BB(xlApp, xlSheet)
+            xlSheet.Range("A2").Select()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 列印_周進度表T1_T4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
         Set_格式設定()
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
-        If 訂單資料庫選擇.品牌V_R判斷 = "V" Then
-            PID = "VIONIC and VOLIN'L"
-        ElseIf 訂單資料庫選擇.品牌V_R判斷 = "R" Then
-            PID = "DRS / LIF"
-        End If
-        If 周進度表T1_T4.品牌V_R判斷 = "V" Then
-            PID = "VIONIC and VOLIN'L"
-        ElseIf 周進度表T1_T4.品牌V_R判斷 = "R" Then
-            PID = "DRS / LIF"
-        End If
-        xlApp = CType(CreateObject("Excel.Application"), Application)
-        xlApp.Visible = True
-        xlApp.DisplayAlerts = True
-        xlApp.Application.WindowState = xlMaximized
-        xlBook = xlApp.Workbooks.Add
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        xlApp.Sheets(1).Name = "COMPLETE"
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = True : OPEXC(1) = False : OPEXC(2) = False : OPEXC(3) = False
-        xlSheet.Range("A1").Select()
-        xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 15) = "Date : " : xlSheet.Cells(2, 16) = "=Today()"
-        Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        xlApp.Sheets(1).Name = "JH"
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = False : OPEXC(1) = True : OPEXC(2) = False : OPEXC(3) = False
-        xlSheet.Range("A1").Select()
-        xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "JH" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
-        Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        xlApp.Sheets(1).Name = "SK"
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = True : OPEXC(3) = False
-        xlSheet.Range("A1").Select()
-        xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "SK" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
-        Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        xlApp.Sheets(1).Name = "NJ"
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = False : OPEXC(3) = True
-        xlSheet.Range("A1").Select()
-        xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "NJ" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
-        Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        xlApp.Sheets(5).Delete
-        xlSheet.PageSetup.PrintArea = ""
-        xlApp.Cells.Select()
-        xlApp.Application.WindowState = xlMinimized
-        MsgBox("列印完成")
-        Me.Close()
+        Try
+            If 訂單資料庫選擇.品牌V_R判斷 = "V" Then
+                PID = "VIONIC and VOLIN'L"
+            ElseIf 訂單資料庫選擇.品牌V_R判斷 = "R" Then
+                PID = "DRS / LIF"
+            End If
+            If 周進度表T1_T4.品牌V_R判斷 = "V" Then
+                PID = "VIONIC and VOLIN'L"
+            ElseIf 周進度表T1_T4.品牌V_R判斷 = "R" Then
+                PID = "DRS / LIF"
+            End If
+            xlApp = CType(CreateObject("Excel.Application"), Application)
+            xlApp.Visible = True
+            xlApp.DisplayAlerts = True
+            xlApp.Application.WindowState = xlMaximized
+            xlBook = xlApp.Workbooks.Add
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            xlApp.Sheets(1).Name = "COMPLETE"
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = True : OPEXC(1) = False : OPEXC(2) = False : OPEXC(3) = False
+            xlSheet.Range("A1").Select()
+            xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 15) = "Date : " : xlSheet.Cells(2, 16) = "=Today()"
+            Set_循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            xlApp.Sheets(1).Name = "JH"
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = False : OPEXC(1) = True : OPEXC(2) = False : OPEXC(3) = False
+            xlSheet.Range("A1").Select()
+            xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "JH" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
+            Set_循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            xlApp.Sheets(1).Name = "SK"
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = True : OPEXC(3) = False
+            xlSheet.Range("A1").Select()
+            xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "SK" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
+            Set_循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            xlApp.Sheets(1).Name = "NJ"
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = False : OPEXC(3) = True
+            xlSheet.Range("A1").Select()
+            xlSheet.Cells(1, 1) = "Weekly Prod Schedule for " & PID & "" : xlSheet.Cells(2, 1) = "NJ" : xlSheet.Cells(2, 15) = "DATE : " : xlSheet.Cells(2, 16) = "=Today()"
+            Set_循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            xlApp.Sheets(5).Delete
+            xlSheet.PageSetup.PrintArea = ""
+            xlApp.Cells.Select()
+            xlApp.Application.WindowState = xlMinimized
+            MsgBox("列印完成")
+            Me.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取消列印_bt.Click
         Me.Close()

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_測試報告.vb

@@ -15,98 +15,96 @@ Public Class 列印_測試報告
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     ReadOnly OPEXC(1) As Boolean
     Private Sub Set_訂單清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        ConnOpen()
-        If OPEXC(0) = True And OPEXC(1) = False Then
-            SQL1 = "SELECT   測試報告控制表.測試單編號, 測試報告控制表.國標測試, 訂單控制表.生產工廠 AS 工廠, 測試報告控制表.型體號, 訂單控制表.形體號 AS 型體名稱, 訂單控制表.顏色, 
-                             測試報告控制表.第一張訂單工廠交期, 測試報告控制表.第一張訂單客人交期, 測試報告控制表.送測試日期, 測試報告控制表.測試結果, 測試報告控制表.通過日期, 
-                             測試報告控制表.失敗專案, 測試報告控制表.備註 
-                    FROM     訂單控制表 LEFT OUTER JOIN 測試報告控制表 ON 訂單控制表.形體號 = 測試報告控制表.型體名稱 AND 訂單控制表.國標測試 = 測試報告控制表.國標測試 AND 
-                             訂單控制表.顏色 = 測試報告控制表.顏色 
-                    WHERE   (訂單控制表.CXL = 0 OR 訂單控制表.CXL IS NULL) AND (訂單控制表.訂單數量 - 訂單控制表.出貨數量 <> 0) AND (測試報告控制表.國標測試 = 1) 
-                    GROUP BY 訂單控制表.形體號, 訂單控制表.顏色, 測試報告控制表.測試單編號, 測試報告控制表.國標測試, 測試報告控制表.型體號, 測試報告控制表.第一張訂單工廠交期, 
-                             測試報告控制表.第一張訂單客人交期, 測試報告控制表.送測試日期, 測試報告控制表.測試結果, 測試報告控制表.通過日期, 測試報告控制表.失敗專案, 測試報告控制表.備註, 
-                             訂單控制表.生產工廠 
-                    ORDER BY 型體名稱, 訂單控制表.顏色"
-        ElseIf OPEXC(0) = False And OPEXC(1) = True Then
-            SQL1 = "SELECT   測試報告控制表.測試單編號, 測試報告控制表.國標測試, 訂單控制表.生產工廠 AS 工廠, 測試報告控制表.型體號, 訂單控制表.形體號 AS 型體名稱, 訂單控制表.顏色, 
-                             測試報告控制表.第一張訂單工廠交期, 測試報告控制表.第一張訂單客人交期, 測試報告控制表.送測試日期, 測試報告控制表.測試結果, 測試報告控制表.通過日期, 
-                             測試報告控制表.失敗專案, 測試報告控制表.備註 
-                    FROM     訂單控制表 LEFT OUTER JOIN 測試報告控制表 ON 訂單控制表.形體號 = 測試報告控制表.型體名稱 AND 訂單控制表.國標測試 = 測試報告控制表.國標測試 AND 
-                             訂單控制表.顏色 = 測試報告控制表.顏色 
-                    WHERE   (訂單控制表.CXL = 0 OR 訂單控制表.CXL IS NULL) AND (訂單控制表.訂單數量 - 訂單控制表.出貨數量 <> 0) AND 測試報告控制表.國標測試 = 0 
-                    GROUP BY 訂單控制表.形體號, 訂單控制表.顏色, 測試報告控制表.測試單編號, 測試報告控制表.國標測試, 測試報告控制表.型體號, 測試報告控制表.第一張訂單工廠交期, 
-                             測試報告控制表.第一張訂單客人交期, 測試報告控制表.送測試日期, 測試報告控制表.測試結果, 測試報告控制表.通過日期, 測試報告控制表.失敗專案, 
-                             測試報告控制表.備註, 訂單控制表.生產工廠 
-                    ORDER BY 型體名稱, 訂單控制表.顏色"
-        End If
-        CmdSet_For_DGV()
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        Try
+            DataGridView1.DataSource = Nothing : ds.Clear()
+            DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            DataGridView1.ColumnHeadersHeight = 25
+            DataGridView1.AllowUserToAddRows = False
+            ConnOpen()
+            If OPEXC(0) = True And OPEXC(1) = False Then
+                SQL_列印測試報告()
+            ElseIf OPEXC(0) = False And OPEXC(1) = True Then
+                SQL_列印測試報告1()
+            End If
+            CmdSet_For_DGV()
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_格式設定()
         DataGridView1.Visible = False
     End Sub
     Private Sub 列印_測試報告_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
-        Set_格式設定()
+        Try
+            FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
+            Set_格式設定()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 循環列印()
-        Dim QWE1 As String = Today
-        xlSheet.Cells(1, 1) = "測試進度 - " & QWE1 : xlSheet.Cells(2, 1) = "工厂" : xlSheet.Cells(2, 2) = "型体号" : xlSheet.Cells(2, 3) = "型体名称" : xlSheet.Cells(2, 4) = "颜色"
-        xlSheet.Cells(2, 5) = "第一张订单工厂交期" : xlSheet.Cells(2, 6) = "第一张订单客人交期" : xlSheet.Cells(2, 7) = "送测试日期" : xlSheet.Cells(2, 8) = "测试结果"
-        xlSheet.Cells(2, 9) = "通過日期" : xlSheet.Cells(2, 10) = "失敗專案" : xlSheet.Cells(2, 11) = "備註"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            xlSheet.Cells(i + 3, 1) = DataGridView1.Rows(i).Cells("工廠").Value : xlSheet.Cells(i + 3, 2) = DataGridView1.Rows(i).Cells("型體號").Value
-            xlSheet.Cells(i + 3, 3) = DataGridView1.Rows(i).Cells("型體名稱").Value : xlSheet.Cells(i + 3, 4) = DataGridView1.Rows(i).Cells("顏色").Value
-            xlSheet.Cells(i + 3, 5) = DataGridView1.Rows(i).Cells("第一張訂單工廠交期").Value : xlSheet.Cells(i + 3, 6) = DataGridView1.Rows(i).Cells("第一張訂單客人交期").Value
-            xlSheet.Cells(i + 3, 7) = DataGridView1.Rows(i).Cells("送測試日期").Value : xlSheet.Cells(i + 3, 8) = DataGridView1.Rows(i).Cells("測試結果").Value
-            xlSheet.Cells(i + 3, 9) = DataGridView1.Rows(i).Cells("通過日期").Value : xlSheet.Cells(i + 3, 10) = DataGridView1.Rows(i).Cells("失敗專案").Value
-            xlSheet.Cells(i + 3, 11) = DataGridView1.Rows(i).Cells("備註").Value
-            With xlApp.Selection
-                .Font.Bold = True
-            End With
-            N1 = i + 3
-        Next i
-        BB(xlApp, xlSheet)
+        Try
+            Dim QWE1 As String = Today
+            xlSheet.Cells(1, 1) = "測試進度 - " & QWE1 : xlSheet.Cells(2, 1) = "工厂" : xlSheet.Cells(2, 2) = "型体号" : xlSheet.Cells(2, 3) = "型体名称" : xlSheet.Cells(2, 4) = "颜色"
+            xlSheet.Cells(2, 5) = "第一张订单工厂交期" : xlSheet.Cells(2, 6) = "第一张订单客人交期" : xlSheet.Cells(2, 7) = "送测试日期" : xlSheet.Cells(2, 8) = "测试结果"
+            xlSheet.Cells(2, 9) = "通過日期" : xlSheet.Cells(2, 10) = "失敗專案" : xlSheet.Cells(2, 11) = "備註"
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = DataGridView1.Rows(i).Cells("工廠").Value : xlSheet.Cells(i + 3, 2) = DataGridView1.Rows(i).Cells("型體號").Value
+                xlSheet.Cells(i + 3, 3) = DataGridView1.Rows(i).Cells("型體名稱").Value : xlSheet.Cells(i + 3, 4) = DataGridView1.Rows(i).Cells("顏色").Value
+                xlSheet.Cells(i + 3, 5) = DataGridView1.Rows(i).Cells("第一張訂單工廠交期").Value : xlSheet.Cells(i + 3, 6) = DataGridView1.Rows(i).Cells("第一張訂單客人交期").Value
+                xlSheet.Cells(i + 3, 7) = DataGridView1.Rows(i).Cells("送測試日期").Value : xlSheet.Cells(i + 3, 8) = DataGridView1.Rows(i).Cells("測試結果").Value
+                xlSheet.Cells(i + 3, 9) = DataGridView1.Rows(i).Cells("通過日期").Value : xlSheet.Cells(i + 3, 10) = DataGridView1.Rows(i).Cells("失敗專案").Value
+                xlSheet.Cells(i + 3, 11) = DataGridView1.Rows(i).Cells("備註").Value
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N1 = i + 3
+            Next i
+            BB(xlApp, xlSheet)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
-        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
-        xlApp.Visible = True
-        xlApp.DisplayAlerts = True
-        xlApp.Application.WindowState = xlMaximized
-        xlBook = xlApp.Workbooks.Add
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表2" Then
-            xlApp.Sheets("工作表2").Select : xlApp.Sheets("工作表2").Name = "國標測試"
-        Else
-            xlApp.Sheets("sheet2").Select : xlApp.Sheets("sheet2").Name = "國標測試"
-        End If
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = True : OPEXC(1) = False
-        Set_訂單清單() : 循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表3" Then
-            xlApp.Sheets("工作表3").Select : xlApp.Sheets("工作表3").Name = "測試報告"
-        Else
-            xlApp.Sheets("sheet3").Select : xlApp.Sheets("sheet3").Name = "測試報告"
-        End If
-        xlBook.Activate()
-        xlSheet.Activate()
-        OPEXC(0) = False : OPEXC(1) = True
-        Set_訂單清單() : 循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        If xlApp.Sheets(3).Name = "工作表1" Then : xlApp.Sheets("工作表1").Delete : Else : xlApp.Sheets("sheet1").Delete : End If
-        xlSheet.PageSetup.PrintArea = ""
-        xlApp.Cells.Select()
-        xlApp.Application.WindowState = xlMinimized
-        MsgBox("列印完成")
-        Me.Close()
+        Try
+            xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+            xlApp.Visible = True
+            xlApp.DisplayAlerts = True
+            xlApp.Application.WindowState = xlMaximized
+            xlBook = xlApp.Workbooks.Add
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            If xlApp.Sheets(1).Name = "工作表2" Then
+                xlApp.Sheets("工作表2").Select : xlApp.Sheets("工作表2").Name = "國標測試"
+            Else
+                xlApp.Sheets("sheet2").Select : xlApp.Sheets("sheet2").Name = "國標測試"
+            End If
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = True : OPEXC(1) = False
+            Set_訂單清單() : 循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            xlSheet = NewMethod(xlBook)
+            If xlApp.Sheets(1).Name = "工作表3" Then
+                xlApp.Sheets("工作表3").Select : xlApp.Sheets("工作表3").Name = "測試報告"
+            Else
+                xlApp.Sheets("sheet3").Select : xlApp.Sheets("sheet3").Name = "測試報告"
+            End If
+            xlBook.Activate()
+            xlSheet.Activate()
+            OPEXC(0) = False : OPEXC(1) = True
+            Set_訂單清單() : 循環列印()
+            '----------------------------------------------------------------------------------------------------------------------
+            If xlApp.Sheets(3).Name = "工作表1" Then : xlApp.Sheets("工作表1").Delete : Else : xlApp.Sheets("sheet1").Delete : End If
+            xlSheet.PageSetup.PrintArea = ""
+            xlApp.Cells.Select()
+            xlApp.Application.WindowState = xlMinimized
+            MsgBox("列印完成")
+            Me.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取消列印_bt.Click
         Me.Close()

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_生產進度表.vb

@@ -19,73 +19,37 @@ Public Class 列印_生產進度表
     Public Property ActiveWorkbook As Object
     Dim N1 As Integer = 0
     Private Sub Set_訂單清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        ConnOpen()
-        If CheckBox7.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf NJ_ch.Checked = True And NJ_QVC_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf SK_ch.Checked = True And SK_QVC_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK')  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf JH_ch.Checked = True And JH_QVC_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH')  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf NJ_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') AND 訂單種類 NOT LIKE '%QVC%' ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf SK_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK') AND 訂單種類 NOT LIKE '%QVC%'  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf JH_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " " &
-                   "WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH') AND 訂單種類 NOT LIKE '%QVC%'  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf NJ_QVC_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'NJ') AND 訂單種類 LIKE '%QVC%' ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf SK_QVC_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE  ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'SK') AND 訂單種類 LIKE '%QVC%'  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        ElseIf JH_QVC_ch.Checked = True Then
-            SQL1 = "SELECT   PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 工廠回復交期 AS 工廠交期, 
-                             七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 
-                             針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 力威訂單號, Special_Packaging, Remarks 
-                    FROM     " & 訂單資料表(1) & " 
-                    WHERE   ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE 'JH') AND 訂單種類 LIKE '%QVC%'  ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
-        End If
-        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        Try
+            DataGridView1.DataSource = Nothing : ds.Clear()
+            DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            DataGridView1.ColumnHeadersHeight = 25
+            DataGridView1.AllowUserToAddRows = False
+            ConnOpen()
+            If CheckBox7.Checked = True Then
+                SQL_讀取訂單清單()
+            ElseIf NJ_ch.Checked = True And NJ_QVC_ch.Checked = True Then
+                SQL_讀取訂單清單1()
+            ElseIf SK_ch.Checked = True And SK_QVC_ch.Checked = True Then
+                SQL_讀取訂單清單2()
+            ElseIf JH_ch.Checked = True And JH_QVC_ch.Checked = True Then
+                SQL_讀取訂單清單3()
+            ElseIf NJ_ch.Checked = True Then
+                SQL_讀取訂單清單4()
+            ElseIf SK_ch.Checked = True Then
+                SQL_讀取訂單清單5()
+            ElseIf JH_ch.Checked = True Then
+                SQL_讀取訂單清單6()
+            ElseIf NJ_QVC_ch.Checked = True Then
+                SQL_讀取訂單清單7()
+            ElseIf SK_QVC_ch.Checked = True Then
+                SQL_讀取訂單清單8()
+            ElseIf JH_QVC_ch.Checked = True Then
+                SQL_讀取訂單清單9()
+            End If
+            CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_格式設定()
         DataGridView1.Visible = False
@@ -111,92 +75,96 @@ Public Class 列印_生產進度表
         End If
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
-        xlApp = CType(CreateObject("Excel.Application"), Application)
-        xlApp.Visible = True
-        xlApp.DisplayAlerts = True
-        xlApp.Application.WindowState = xlMaximized
-        xlBook = xlApp.Workbooks.Add
-        xlSheet = NewMethod(xlBook)
-        xlApp.Sheets(1).Select
+        Try
+            xlApp = CType(CreateObject("Excel.Application"), Application)
+            xlApp.Visible = True
+            xlApp.DisplayAlerts = True
+            xlApp.Application.WindowState = xlMaximized
+            xlBook = xlApp.Workbooks.Add
+            xlSheet = NewMethod(xlBook)
+            xlApp.Sheets(1).Select
 
-        If xlApp.Sheets(1).Name = "工作表2" Then
-            If CheckBox7.Checked = True Then : xlApp.Sheets("工作表2").Name = "全資料"
-            ElseIf NJ_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "NJ"
-            ElseIf SK_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "SK"
-            ElseIf JH_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "JH"
-            ElseIf JH_QVC_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "JH-QVC"
-            ElseIf SK_QVC_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "SK-QVC"
-            ElseIf NJ_QVC_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "NJ-QVC"
-            End If
-        Else
-            If CheckBox7.Checked = True Then : xlApp.Sheets("sheet2").Name = "全資料"
-            ElseIf NJ_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "NJ"
-            ElseIf SK_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "SK"
-            ElseIf JH_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "JH"
-            ElseIf JH_QVC_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "JH-QVC"
-            ElseIf SK_QVC_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "SK-QVC"
-            ElseIf NJ_QVC_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "NJ-QVC"
+            If xlApp.Sheets(1).Name = "工作表2" Then
+                If CheckBox7.Checked = True Then : xlApp.Sheets("工作表2").Name = "全資料"
+                ElseIf NJ_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "NJ"
+                ElseIf SK_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "SK"
+                ElseIf JH_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "JH"
+                ElseIf JH_QVC_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "JH-QVC"
+                ElseIf SK_QVC_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "SK-QVC"
+                ElseIf NJ_QVC_ch.Checked = True Then : xlApp.Sheets("工作表2").Name = "NJ-QVC"
+                End If
+            Else
+                If CheckBox7.Checked = True Then : xlApp.Sheets("sheet2").Name = "全資料"
+                ElseIf NJ_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "NJ"
+                ElseIf SK_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "SK"
+                ElseIf JH_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "JH"
+                ElseIf JH_QVC_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "JH-QVC"
+                ElseIf SK_QVC_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "SK-QVC"
+                ElseIf NJ_QVC_ch.Checked = True Then : xlApp.Sheets("sheet2").Name = "NJ-QVC"
+                End If
             End If
-        End If
 
-        xlBook.Activate()
-        xlSheet.Activate()
-        xlSheet.Range("A1").Select()
-        If CheckBox7.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & "  大貨進度表"
-        ElseIf NJ_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(楠晋)"
-        ElseIf SK_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(森康)"
-        ElseIf JH_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(玖弘)"
-        ElseIf JH_QVC_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(玖弘-QVC)"
-        ElseIf SK_QVC_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(森康-QVC)"
-        ElseIf NJ_QVC_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(楠晋-QVC)"
-        End If
-        xlSheet.Cells(1, 30) = "淺藍色欄位為系統輸出，請勿做任何更改"
-        xlSheet.Cells(2, 13) = "樣品SIZE(60天)" : xlSheet.Cells(2, 17) = "全套SIZE(45天)" : xlSheet.Cells(2, 21) = "PRODUCTION(30天)"
-        xlSheet.Cells(3, 1) = "接單日" : xlSheet.Cells(3, 2) = "出貨地" : xlSheet.Cells(3, 3) = "天盾PO#" : xlSheet.Cells(3, 4) = "客戶PO#" : xlSheet.Cells(3, 5) = "形體#"
-        xlSheet.Cells(3, 6) = "TVW" : xlSheet.Cells(3, 7) = "楦頭#" : xlSheet.Cells(3, 8) = "楦型" : xlSheet.Cells(3, 9) = "材質" : xlSheet.Cells(3, 10) = "顏色"
-        xlSheet.Cells(3, 11) = "訂單數" : xlSheet.Cells(3, 12) = "工廠交期" : xlSheet.Cells(3, 13) = "7#模具" : xlSheet.Cells(3, 14) = "T1" : xlSheet.Cells(3, 15) = "T2"
-        xlSheet.Cells(3, 16) = "WEAR TEST" : xlSheet.Cells(3, 17) = "CFM" : xlSheet.Cells(3, 18) = "T3" : xlSheet.Cells(3, 19) = "T4" : xlSheet.Cells(3, 20) = "TEST"
-        xlSheet.Cells(3, 21) = "面料" : xlSheet.Cells(3, 22) = "副料" : xlSheet.Cells(3, 23) = "中底" : xlSheet.Cells(3, 24) = "鞋墊" : xlSheet.Cells(3, 25) = "大底"
-        xlSheet.Cells(3, 26) = "跟" : xlSheet.Cells(3, 27) = "包裝" : xlSheet.Cells(3, 28) = "裁斷" : xlSheet.Cells(3, 29) = "針車" : xlSheet.Cells(3, 30) = "成型"
-        xlSheet.Cells(3, 31) = "驗貨" : xlSheet.Cells(3, 32) = "備註1" : xlSheet.Cells(3, 33) = "力威訂單號" : xlSheet.Cells(3, 34) = "Special_Packaging" : xlSheet.Cells(3, 35) = "Remarks"
-        Set_訂單清單()
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            xlSheet.Cells(i + 4, 1) = DataGridView1.Rows(i).Cells("接單日").Value : xlSheet.Cells(i + 4, 2) = DataGridView1.Rows(i).Cells("出貨地").Value
-            xlSheet.Cells(i + 4, 3) = DataGridView1.Rows(i).Cells("天盾PO").Value : xlSheet.Cells(i + 4, 4) = DataGridView1.Rows(i).Cells("客戶PO").Value
-            xlSheet.Cells(i + 4, 5) = DataGridView1.Rows(i).Cells("形體號").Value : xlSheet.Cells(i + 4, 6) = DataGridView1.Rows(i).Cells("TVW").Value
-            xlSheet.Cells(i + 4, 7) = DataGridView1.Rows(i).Cells("楦頭號").Value : xlSheet.Cells(i + 4, 8) = DataGridView1.Rows(i).Cells("楦型").Value
-            xlSheet.Cells(i + 4, 9) = DataGridView1.Rows(i).Cells("材質").Value : xlSheet.Cells(i + 4, 10) = DataGridView1.Rows(i).Cells("顏色").Value
-            xlSheet.Cells(i + 4, 11) = DataGridView1.Rows(i).Cells("訂單數").Value : xlSheet.Cells(i + 4, 12) = DataGridView1.Rows(i).Cells("工廠交期").Value
-            xlSheet.Cells(i + 4, 13) = DataGridView1.Rows(i).Cells("七號模具").Value : xlSheet.Cells(i + 4, 14) = DataGridView1.Rows(i).Cells("TRIAL1").Value
-            xlSheet.Cells(i + 4, 15) = DataGridView1.Rows(i).Cells("TRIAL2").Value : xlSheet.Cells(i + 4, 16) = DataGridView1.Rows(i).Cells("長期試穿").Value
-            xlSheet.Cells(i + 4, 17) = DataGridView1.Rows(i).Cells("CFM").Value : xlSheet.Cells(i + 4, 18) = DataGridView1.Rows(i).Cells("TRIAL3").Value
-            xlSheet.Cells(i + 4, 19) = DataGridView1.Rows(i).Cells("TRIAL4").Value : xlSheet.Cells(i + 4, 20) = DataGridView1.Rows(i).Cells("TEST").Value
-            xlSheet.Cells(i + 4, 21) = DataGridView1.Rows(i).Cells("面料").Value : xlSheet.Cells(i + 4, 22) = DataGridView1.Rows(i).Cells("副料").Value
-            xlSheet.Cells(i + 4, 23) = DataGridView1.Rows(i).Cells("中底").Value : xlSheet.Cells(i + 4, 24) = DataGridView1.Rows(i).Cells("鞋墊").Value
-            xlSheet.Cells(i + 4, 25) = DataGridView1.Rows(i).Cells("大底").Value : xlSheet.Cells(i + 4, 26) = DataGridView1.Rows(i).Cells("跟").Value
-            xlSheet.Cells(i + 4, 27) = DataGridView1.Rows(i).Cells("包裝").Value : xlSheet.Cells(i + 4, 28) = DataGridView1.Rows(i).Cells("裁斷").Value
-            xlSheet.Cells(i + 4, 29) = DataGridView1.Rows(i).Cells("針車").Value : xlSheet.Cells(i + 4, 30) = DataGridView1.Rows(i).Cells("成型").Value
-            xlSheet.Cells(i + 4, 31) = DataGridView1.Rows(i).Cells("驗貨").Value : xlSheet.Cells(i + 4, 32) = DataGridView1.Rows(i).Cells("備註1").Value
-            xlSheet.Cells(i + 4, 33) = DataGridView1.Rows(i).Cells("力威訂單號").Value : xlSheet.Cells(i + 4, 34) = DataGridView1.Rows(i).Cells("Special_Packaging").Value
-            xlSheet.Cells(i + 4, 35) = DataGridView1.Rows(i).Cells("Remarks").Value
-            With xlApp.Selection
-                .Font.Bold = True
-            End With
-            N1 = i
-        Next i
+            xlBook.Activate()
+            xlSheet.Activate()
+            xlSheet.Range("A1").Select()
+            If CheckBox7.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & "  大貨進度表"
+            ElseIf NJ_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(楠晋)"
+            ElseIf SK_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(森康)"
+            ElseIf JH_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(玖弘)"
+            ElseIf JH_QVC_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(玖弘-QVC)"
+            ElseIf SK_QVC_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(森康-QVC)"
+            ElseIf NJ_QVC_ch.Checked = True Then : xlSheet.Cells(1, 1) = "" & PID & " 大貨進度表(楠晋-QVC)"
+            End If
+            xlSheet.Cells(1, 30) = "淺藍色欄位為系統輸出，請勿做任何更改"
+            xlSheet.Cells(2, 13) = "樣品SIZE(60天)" : xlSheet.Cells(2, 17) = "全套SIZE(45天)" : xlSheet.Cells(2, 21) = "PRODUCTION(30天)"
+            xlSheet.Cells(3, 1) = "接單日" : xlSheet.Cells(3, 2) = "出貨地" : xlSheet.Cells(3, 3) = "天盾PO#" : xlSheet.Cells(3, 4) = "客戶PO#" : xlSheet.Cells(3, 5) = "形體#"
+            xlSheet.Cells(3, 6) = "TVW" : xlSheet.Cells(3, 7) = "楦頭#" : xlSheet.Cells(3, 8) = "楦型" : xlSheet.Cells(3, 9) = "材質" : xlSheet.Cells(3, 10) = "顏色"
+            xlSheet.Cells(3, 11) = "訂單數" : xlSheet.Cells(3, 12) = "工廠交期" : xlSheet.Cells(3, 13) = "7#模具" : xlSheet.Cells(3, 14) = "T1" : xlSheet.Cells(3, 15) = "T2"
+            xlSheet.Cells(3, 16) = "WEAR TEST" : xlSheet.Cells(3, 17) = "CFM" : xlSheet.Cells(3, 18) = "T3" : xlSheet.Cells(3, 19) = "T4" : xlSheet.Cells(3, 20) = "TEST"
+            xlSheet.Cells(3, 21) = "面料" : xlSheet.Cells(3, 22) = "副料" : xlSheet.Cells(3, 23) = "中底" : xlSheet.Cells(3, 24) = "鞋墊" : xlSheet.Cells(3, 25) = "大底"
+            xlSheet.Cells(3, 26) = "跟" : xlSheet.Cells(3, 27) = "包裝" : xlSheet.Cells(3, 28) = "裁斷" : xlSheet.Cells(3, 29) = "針車" : xlSheet.Cells(3, 30) = "成型"
+            xlSheet.Cells(3, 31) = "驗貨" : xlSheet.Cells(3, 32) = "備註1" : xlSheet.Cells(3, 33) = "力威訂單號" : xlSheet.Cells(3, 34) = "Special_Packaging" : xlSheet.Cells(3, 35) = "Remarks"
+            Set_訂單清單()
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                xlSheet.Cells(i + 4, 1) = DataGridView1.Rows(i).Cells("接單日").Value : xlSheet.Cells(i + 4, 2) = DataGridView1.Rows(i).Cells("出貨地").Value
+                xlSheet.Cells(i + 4, 3) = DataGridView1.Rows(i).Cells("天盾PO").Value : xlSheet.Cells(i + 4, 4) = DataGridView1.Rows(i).Cells("客戶PO").Value
+                xlSheet.Cells(i + 4, 5) = DataGridView1.Rows(i).Cells("形體號").Value : xlSheet.Cells(i + 4, 6) = DataGridView1.Rows(i).Cells("TVW").Value
+                xlSheet.Cells(i + 4, 7) = DataGridView1.Rows(i).Cells("楦頭號").Value : xlSheet.Cells(i + 4, 8) = DataGridView1.Rows(i).Cells("楦型").Value
+                xlSheet.Cells(i + 4, 9) = DataGridView1.Rows(i).Cells("材質").Value : xlSheet.Cells(i + 4, 10) = DataGridView1.Rows(i).Cells("顏色").Value
+                xlSheet.Cells(i + 4, 11) = DataGridView1.Rows(i).Cells("訂單數").Value : xlSheet.Cells(i + 4, 12) = DataGridView1.Rows(i).Cells("工廠交期").Value
+                xlSheet.Cells(i + 4, 13) = DataGridView1.Rows(i).Cells("七號模具").Value : xlSheet.Cells(i + 4, 14) = DataGridView1.Rows(i).Cells("TRIAL1").Value
+                xlSheet.Cells(i + 4, 15) = DataGridView1.Rows(i).Cells("TRIAL2").Value : xlSheet.Cells(i + 4, 16) = DataGridView1.Rows(i).Cells("長期試穿").Value
+                xlSheet.Cells(i + 4, 17) = DataGridView1.Rows(i).Cells("CFM").Value : xlSheet.Cells(i + 4, 18) = DataGridView1.Rows(i).Cells("TRIAL3").Value
+                xlSheet.Cells(i + 4, 19) = DataGridView1.Rows(i).Cells("TRIAL4").Value : xlSheet.Cells(i + 4, 20) = DataGridView1.Rows(i).Cells("TEST").Value
+                xlSheet.Cells(i + 4, 21) = DataGridView1.Rows(i).Cells("面料").Value : xlSheet.Cells(i + 4, 22) = DataGridView1.Rows(i).Cells("副料").Value
+                xlSheet.Cells(i + 4, 23) = DataGridView1.Rows(i).Cells("中底").Value : xlSheet.Cells(i + 4, 24) = DataGridView1.Rows(i).Cells("鞋墊").Value
+                xlSheet.Cells(i + 4, 25) = DataGridView1.Rows(i).Cells("大底").Value : xlSheet.Cells(i + 4, 26) = DataGridView1.Rows(i).Cells("跟").Value
+                xlSheet.Cells(i + 4, 27) = DataGridView1.Rows(i).Cells("包裝").Value : xlSheet.Cells(i + 4, 28) = DataGridView1.Rows(i).Cells("裁斷").Value
+                xlSheet.Cells(i + 4, 29) = DataGridView1.Rows(i).Cells("針車").Value : xlSheet.Cells(i + 4, 30) = DataGridView1.Rows(i).Cells("成型").Value
+                xlSheet.Cells(i + 4, 31) = DataGridView1.Rows(i).Cells("驗貨").Value : xlSheet.Cells(i + 4, 32) = DataGridView1.Rows(i).Cells("備註1").Value
+                xlSheet.Cells(i + 4, 33) = DataGridView1.Rows(i).Cells("力威訂單號").Value : xlSheet.Cells(i + 4, 34) = DataGridView1.Rows(i).Cells("Special_Packaging").Value
+                xlSheet.Cells(i + 4, 35) = DataGridView1.Rows(i).Cells("Remarks").Value
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N1 = i
+            Next i
 
-        BB(xlApp, xlSheet)
-        xlSheet.Range("A4").Select()
-        If xlApp.Sheets(2).Name = "工作表1" Then
-            xlApp.Sheets("工作表1").Delete
-        Else
-            xlApp.Sheets("sheet1").Delete
-        End If
-        xlSheet.PageSetup.PrintArea = ""
-        xlApp.Cells.Select()
-        xlApp.Application.WindowState = xlMinimized
-        MsgBox("列印完成")
-        Me.Close()
+            BB(xlApp, xlSheet)
+            xlSheet.Range("A4").Select()
+            If xlApp.Sheets(2).Name = "工作表1" Then
+                xlApp.Sheets("工作表1").Delete
+            Else
+                xlApp.Sheets("sheet1").Delete
+            End If
+            xlSheet.PageSetup.PrintArea = ""
+            xlApp.Cells.Select()
+            xlApp.Application.WindowState = xlMinimized
+            MsgBox("列印完成")
+            Me.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取消列印_bt.Click
         Me.Close()

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_訂單明細.vb

@@ -15,14 +15,18 @@ Public Class 列印_訂單明細
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     Private Sub Set_訂單清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        ConnOpen()
-        SQL1 = 列印用SQL
-        CmdSet_For_DGV()
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        Try
+            DataGridView1.DataSource = Nothing : ds.Clear()
+            DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            DataGridView1.ColumnHeadersHeight = 25
+            DataGridView1.AllowUserToAddRows = False
+            ConnOpen()
+            SQL1 = 列印用SQL
+            CmdSet_For_DGV()
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_格式設定()
         DataGridView1.Visible = False
@@ -32,102 +36,106 @@ Public Class 列印_訂單明細
         Set_訂單清單() : Set_格式設定()
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
-        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
-        xlBook = xlApp.Workbooks.Add
-        xlApp.DisplayAlerts = True
-        xlBook.Activate()
-        xlSheet = NewMethod(xlBook)
-        xlSheet.Activate()
-        xlApp.Visible = True
-        xlApp.Application.WindowState = xlMaximized
-
-        xlSheet.Cells(2, 1) = "Number" : xlSheet.Cells(2, 3) = OD(0)
-        xlSheet.Cells(3, 1) = "Created Date"
-        xlSheet.Cells(3, 3) = OD(20) 'OD(1)
-        xlSheet.Cells(4, 1) = "Brand" : xlSheet.Cells(4, 3) = OD(2) : xlSheet.Cells(5, 1) = "Vendor Name" : xlSheet.Cells(5, 3) = OD(3)
-        xlSheet.Cells(7, 1) = "Mode Of Delivery" : xlSheet.Cells(7, 3) = OD(4) : xlSheet.Cells(8, 1) = "Delivery Terms" : xlSheet.Cells(8, 3) = OD(5)
-        xlSheet.Cells(9, 1) = "Ship from name Ship from address" : xlSheet.Cells(9, 3) = OD(6)
-
-        xlSheet.Cells(2, 4) = "Org. Ship Date" : xlSheet.Cells(2, 6) = OD(21) : xlSheet.Cells(3, 4) = "From Port" : xlSheet.Cells(3, 6) = OD(8)
-        xlSheet.Cells(4, 4) = "To Port" : xlSheet.Cells(4, 6) = OD(9) : xlSheet.Cells(5, 4) = "Shipping Carrier" : xlSheet.Cells(5, 6) = OD(10)
-        xlSheet.Cells(6, 4) = "Customer Requisition" : xlSheet.Cells(6, 6) = OD(39) : xlSheet.Cells(7, 4) = "Vendor Reference" : xlSheet.Cells(7, 6) = OD(11)
-
-        'xlSheet.Cells(2, 8) = "Modified Date" : xlSheet.Cells(2, 10) = OD(12)
-        xlSheet.Cells(3, 8) = "Customer Name" : xlSheet.Cells(3, 10) = OD(13)
-        xlSheet.Cells(4, 8) = "Ship Date" : xlSheet.Cells(4, 10) = OD(14)
-        'xlSheet.Cells(5, 8) = "Sales Order" : xlSheet.Cells(5, 10) = OD(15) : xlSheet.Cells(6, 8) = "ETA Date" : xlSheet.Cells(6, 10) = OD(16)
-        xlSheet.Cells(8, 8) = "Delivery Address" : xlSheet.Cells(8, 10) = OD(17)
-
-        xlSheet.Cells(2, 13) = OD(18) : xlSheet.Cells(3, 13) = "工廠：" : xlSheet.Cells(3, 14) = OD(19)
-        xlSheet.Cells(4, 13) = "下單日：" : xlSheet.Cells(4, 14) = OD(20) : xlSheet.Cells(5, 13) = "交期：" : xlSheet.Cells(5, 14) = OD(21) : xlSheet.Cells(6, 13) = OD(40)
-
-        xlSheet.Cells(16, 1) = "Item Number" : xlSheet.Cells(16, 2) = "Product Name" : xlSheet.Cells(16, 3) = "Product Description"
-        xlSheet.Cells(16, 4) = "Color" : xlSheet.Cells(16, 5) = "DM"
-
-        If OD(22) <> 0 Then : xlSheet.Cells(16, N1) = "5" : N1 += 1 : End If : If OD(23) <> 0 Then : xlSheet.Cells(16, N1) = "5.5" : N1 += 1 : End If
-        If OD(24) <> 0 Then : xlSheet.Cells(16, N1) = "6" : N1 += 1 : End If : If OD(25) <> 0 Then : xlSheet.Cells(16, N1) = "6.5" : N1 += 1 : End If
-        If OD(26) <> 0 Then : xlSheet.Cells(16, N1) = "7" : N1 += 1 : End If : If OD(27) <> 0 Then : xlSheet.Cells(16, N1) = "7.5" : N1 += 1 : End If
-        If OD(28) <> 0 Then : xlSheet.Cells(16, N1) = "8" : N1 += 1 : End If : If OD(29) <> 0 Then : xlSheet.Cells(16, N1) = "8.5" : N1 += 1 : End If
-        If OD(30) <> 0 Then : xlSheet.Cells(16, N1) = "9" : N1 += 1 : End If : If OD(31) <> 0 Then : xlSheet.Cells(16, N1) = "9.5" : N1 += 1 : End If
-        If OD(32) <> 0 Then : xlSheet.Cells(16, N1) = "10" : N1 += 1 : End If : If OD(33) <> 0 Then : xlSheet.Cells(16, N1) = "10.5" : N1 += 1 : End If
-        If OD(34) <> 0 Then : xlSheet.Cells(16, N1) = "11" : N1 += 1 : End If : If OD(41) <> 0 Then : xlSheet.Cells(16, N1) = "11.5" : N1 += 1 : End If
-        If OD(35) <> 0 Then : xlSheet.Cells(16, N1) = "12" : N1 += 1 : End If : If OD(42) <> 0 Then : xlSheet.Cells(16, N1) = "12.5" : N1 += 1 : End If
-        If OD(36) <> 0 Then : xlSheet.Cells(16, N1) = "13" : N1 += 1 : End If : If OD(37) <> 0 Then : xlSheet.Cells(16, N1) = "14" : N1 += 1 : End If
-        xlSheet.Cells(16, N1) = "TOTAL"
-
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            xlSheet.Cells(i + 17, 1) = DataGridView1.Rows(i).Cells("ItemNumber").Value
-            xlSheet.Cells(i + 17, 2) = DataGridView1.Rows(i).Cells("ProductName").Value
-            xlSheet.Cells(i + 17, 3) = DataGridView1.Rows(i).Cells("ProductDescription").Value
-            xlSheet.Cells(i + 17, 4) = DataGridView1.Rows(i).Cells("Color").Value
-            xlSheet.Cells(i + 17, 5) = DataGridView1.Rows(i).Cells("DM").Value
-            N1 = 6
-            If OD(22) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("5").Value : N1 += 1 : End If
-            If OD(23) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("5.5").Value : N1 += 1 : End If
-            If OD(24) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("6").Value : N1 += 1 : End If
-            If OD(25) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("6.5").Value : N1 += 1 : End If
-            If OD(26) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("7").Value : N1 += 1 : End If
-            If OD(27) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("7.5").Value : N1 += 1 : End If
-            If OD(28) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("8").Value : N1 += 1 : End If
-            If OD(29) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("8.5").Value : N1 += 1 : End If
-            If OD(30) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("9").Value : N1 += 1 : End If
-            If OD(31) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("9.5").Value : N1 += 1 : End If
-            If OD(32) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("10").Value : N1 += 1 : End If
-            If OD(33) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("10.5").Value : N1 += 1 : End If
-            If OD(34) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("11").Value : N1 += 1 : End If
-            If OD(41) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("11.5").Value : N1 += 1 : End If
-            If OD(35) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("12").Value : N1 += 1 : End If
-            If OD(42) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("12.5").Value : N1 += 1 : End If
-            If OD(36) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("13").Value : N1 += 1 : End If
-            If OD(37) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("14").Value : N1 += 1 : End If
-            xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("TOTAL").Value
-            With xlApp.Selection
-                .Font.Bold = True
-            End With
-            N2 = i
-        Next i
-
-        N1 = 5 : N2 += 3
-        xlSheet.Cells(N2 + 17, N1) = "合計" : N1 += 1
-        If OD(22) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(22) : N1 += 1 : End If : If OD(23) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(23) : N1 += 1 : End If  '5  5.5
-        If OD(24) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(24) : N1 += 1 : End If : If OD(25) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(25) : N1 += 1 : End If  '6  6.5
-        If OD(26) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(26) : N1 += 1 : End If : If OD(27) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(27) : N1 += 1 : End If  '7  7.5
-        If OD(28) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(28) : N1 += 1 : End If : If OD(29) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(29) : N1 += 1 : End If  '8  8.5
-        If OD(30) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(30) : N1 += 1 : End If : If OD(31) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(31) : N1 += 1 : End If  '9  9.5
-        If OD(32) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(32) : N1 += 1 : End If : If OD(33) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(33) : N1 += 1 : End If  '10  10.5
-        If OD(34) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(34) : N1 += 1 : End If : If OD(41) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(41) : N1 += 1 : End If  '11  11.5
-        If OD(35) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(35) : N1 += 1 : End If : If OD(42) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(42) : N1 += 1 : End If  '12  12.5
-        If OD(36) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(36) : N1 += 1 : End If : If OD(37) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(37) : N1 += 1 : End If  '13  14
-        xlSheet.Cells(N2 + 17, N1) = OD(38)
-
-        BB(xlApp, xlSheet)
-
-        xlSheet.PageSetup.PrintArea = ""
-        xlApp.Cells.Select()
-        xlSheet.Range("B1").Select()
-        xlApp.Application.WindowState = xlMinimized
-        MsgBox("列印完成")
-        Me.Close()
+        Try
+            xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+            xlBook = xlApp.Workbooks.Add
+            xlApp.DisplayAlerts = True
+            xlBook.Activate()
+            xlSheet = NewMethod(xlBook)
+            xlSheet.Activate()
+            xlApp.Visible = True
+            xlApp.Application.WindowState = xlMaximized
+
+            xlSheet.Cells(2, 1) = "Number" : xlSheet.Cells(2, 3) = OD(0)
+            xlSheet.Cells(3, 1) = "Created Date"
+            xlSheet.Cells(3, 3) = OD(20) 'OD(1)
+            xlSheet.Cells(4, 1) = "Brand" : xlSheet.Cells(4, 3) = OD(2) : xlSheet.Cells(5, 1) = "Vendor Name" : xlSheet.Cells(5, 3) = OD(3)
+            xlSheet.Cells(7, 1) = "Mode Of Delivery" : xlSheet.Cells(7, 3) = OD(4) : xlSheet.Cells(8, 1) = "Delivery Terms" : xlSheet.Cells(8, 3) = OD(5)
+            xlSheet.Cells(9, 1) = "Ship from name Ship from address" : xlSheet.Cells(9, 3) = OD(6)
+
+            xlSheet.Cells(2, 4) = "Org. Ship Date" : xlSheet.Cells(2, 6) = OD(21) : xlSheet.Cells(3, 4) = "From Port" : xlSheet.Cells(3, 6) = OD(8)
+            xlSheet.Cells(4, 4) = "To Port" : xlSheet.Cells(4, 6) = OD(9) : xlSheet.Cells(5, 4) = "Shipping Carrier" : xlSheet.Cells(5, 6) = OD(10)
+            xlSheet.Cells(6, 4) = "Customer Requisition" : xlSheet.Cells(6, 6) = OD(39) : xlSheet.Cells(7, 4) = "Vendor Reference" : xlSheet.Cells(7, 6) = OD(11)
+
+            'xlSheet.Cells(2, 8) = "Modified Date" : xlSheet.Cells(2, 10) = OD(12)
+            xlSheet.Cells(3, 8) = "Customer Name" : xlSheet.Cells(3, 10) = OD(13)
+            xlSheet.Cells(4, 8) = "Ship Date" : xlSheet.Cells(4, 10) = OD(14)
+            'xlSheet.Cells(5, 8) = "Sales Order" : xlSheet.Cells(5, 10) = OD(15) : xlSheet.Cells(6, 8) = "ETA Date" : xlSheet.Cells(6, 10) = OD(16)
+            xlSheet.Cells(8, 8) = "Delivery Address" : xlSheet.Cells(8, 10) = OD(17)
+
+            xlSheet.Cells(2, 13) = OD(18) : xlSheet.Cells(3, 13) = "工廠：" : xlSheet.Cells(3, 14) = OD(19)
+            xlSheet.Cells(4, 13) = "下單日：" : xlSheet.Cells(4, 14) = OD(20) : xlSheet.Cells(5, 13) = "交期：" : xlSheet.Cells(5, 14) = OD(21) : xlSheet.Cells(6, 13) = OD(40)
+
+            xlSheet.Cells(16, 1) = "Item Number" : xlSheet.Cells(16, 2) = "Product Name" : xlSheet.Cells(16, 3) = "Product Description"
+            xlSheet.Cells(16, 4) = "Color" : xlSheet.Cells(16, 5) = "DM"
+
+            If OD(22) <> 0 Then : xlSheet.Cells(16, N1) = "5" : N1 += 1 : End If : If OD(23) <> 0 Then : xlSheet.Cells(16, N1) = "5.5" : N1 += 1 : End If
+            If OD(24) <> 0 Then : xlSheet.Cells(16, N1) = "6" : N1 += 1 : End If : If OD(25) <> 0 Then : xlSheet.Cells(16, N1) = "6.5" : N1 += 1 : End If
+            If OD(26) <> 0 Then : xlSheet.Cells(16, N1) = "7" : N1 += 1 : End If : If OD(27) <> 0 Then : xlSheet.Cells(16, N1) = "7.5" : N1 += 1 : End If
+            If OD(28) <> 0 Then : xlSheet.Cells(16, N1) = "8" : N1 += 1 : End If : If OD(29) <> 0 Then : xlSheet.Cells(16, N1) = "8.5" : N1 += 1 : End If
+            If OD(30) <> 0 Then : xlSheet.Cells(16, N1) = "9" : N1 += 1 : End If : If OD(31) <> 0 Then : xlSheet.Cells(16, N1) = "9.5" : N1 += 1 : End If
+            If OD(32) <> 0 Then : xlSheet.Cells(16, N1) = "10" : N1 += 1 : End If : If OD(33) <> 0 Then : xlSheet.Cells(16, N1) = "10.5" : N1 += 1 : End If
+            If OD(34) <> 0 Then : xlSheet.Cells(16, N1) = "11" : N1 += 1 : End If : If OD(41) <> 0 Then : xlSheet.Cells(16, N1) = "11.5" : N1 += 1 : End If
+            If OD(35) <> 0 Then : xlSheet.Cells(16, N1) = "12" : N1 += 1 : End If : If OD(42) <> 0 Then : xlSheet.Cells(16, N1) = "12.5" : N1 += 1 : End If
+            If OD(36) <> 0 Then : xlSheet.Cells(16, N1) = "13" : N1 += 1 : End If : If OD(37) <> 0 Then : xlSheet.Cells(16, N1) = "14" : N1 += 1 : End If
+            xlSheet.Cells(16, N1) = "TOTAL"
+
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                xlSheet.Cells(i + 17, 1) = DataGridView1.Rows(i).Cells("ItemNumber").Value
+                xlSheet.Cells(i + 17, 2) = DataGridView1.Rows(i).Cells("ProductName").Value
+                xlSheet.Cells(i + 17, 3) = DataGridView1.Rows(i).Cells("ProductDescription").Value
+                xlSheet.Cells(i + 17, 4) = DataGridView1.Rows(i).Cells("Color").Value
+                xlSheet.Cells(i + 17, 5) = DataGridView1.Rows(i).Cells("DM").Value
+                N1 = 6
+                If OD(22) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("5").Value : N1 += 1 : End If
+                If OD(23) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("5.5").Value : N1 += 1 : End If
+                If OD(24) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("6").Value : N1 += 1 : End If
+                If OD(25) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("6.5").Value : N1 += 1 : End If
+                If OD(26) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("7").Value : N1 += 1 : End If
+                If OD(27) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("7.5").Value : N1 += 1 : End If
+                If OD(28) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("8").Value : N1 += 1 : End If
+                If OD(29) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("8.5").Value : N1 += 1 : End If
+                If OD(30) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("9").Value : N1 += 1 : End If
+                If OD(31) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("9.5").Value : N1 += 1 : End If
+                If OD(32) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("10").Value : N1 += 1 : End If
+                If OD(33) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("10.5").Value : N1 += 1 : End If
+                If OD(34) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("11").Value : N1 += 1 : End If
+                If OD(41) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("11.5").Value : N1 += 1 : End If
+                If OD(35) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("12").Value : N1 += 1 : End If
+                If OD(42) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("12.5").Value : N1 += 1 : End If
+                If OD(36) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("13").Value : N1 += 1 : End If
+                If OD(37) <> 0 Then : xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("14").Value : N1 += 1 : End If
+                xlSheet.Cells(i + 17, N1) = DataGridView1.Rows(i).Cells("TOTAL").Value
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N2 = i
+            Next i
+
+            N1 = 5 : N2 += 3
+            xlSheet.Cells(N2 + 17, N1) = "合計" : N1 += 1
+            If OD(22) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(22) : N1 += 1 : End If : If OD(23) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(23) : N1 += 1 : End If  '5  5.5
+            If OD(24) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(24) : N1 += 1 : End If : If OD(25) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(25) : N1 += 1 : End If  '6  6.5
+            If OD(26) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(26) : N1 += 1 : End If : If OD(27) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(27) : N1 += 1 : End If  '7  7.5
+            If OD(28) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(28) : N1 += 1 : End If : If OD(29) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(29) : N1 += 1 : End If  '8  8.5
+            If OD(30) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(30) : N1 += 1 : End If : If OD(31) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(31) : N1 += 1 : End If  '9  9.5
+            If OD(32) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(32) : N1 += 1 : End If : If OD(33) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(33) : N1 += 1 : End If  '10  10.5
+            If OD(34) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(34) : N1 += 1 : End If : If OD(41) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(41) : N1 += 1 : End If  '11  11.5
+            If OD(35) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(35) : N1 += 1 : End If : If OD(42) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(42) : N1 += 1 : End If  '12  12.5
+            If OD(36) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(36) : N1 += 1 : End If : If OD(37) <> 0 Then : xlSheet.Cells(N2 + 17, N1) = OD(37) : N1 += 1 : End If  '13  14
+            xlSheet.Cells(N2 + 17, N1) = OD(38)
+
+            BB(xlApp, xlSheet)
+
+            xlSheet.PageSetup.PrintArea = ""
+            xlApp.Cells.Select()
+            xlSheet.Range("B1").Select()
+            xlApp.Application.WindowState = xlMinimized
+            MsgBox("列印完成")
+            Me.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取消列印_bt.Click
         列印用SQL = "" : Me.Close()

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_訂單明細表.vb

@@ -15,36 +15,24 @@ Public Class 列印_訂單明細表
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     ReadOnly 位置1 As String
     Private Sub Set_訂單清單1()
-        清單_dgv.DataSource = Nothing : ds.Clear()
-        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        清單_dgv.ColumnHeadersHeight = 25
-        清單_dgv.AllowUserToAddRows = False
-        ConnOpen()
-        SQL1 = "SELECT      " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(5) & ".ItemNumber, 
-                            " & 訂單資料表(5) & ".ProductName, " & 訂單資料表(5) & ".Color, " & 訂單資料表(5) & ".DM, " & 訂單資料表(5) & ".[5], 
-                            " & 訂單資料表(5) & ".[5.5], " & 訂單資料表(5) & ".[6], " & 訂單資料表(5) & ".[6.5], " & 訂單資料表(5) & ".[7], " & 訂單資料表(5) & ".[7.5], 
-                            " & 訂單資料表(5) & ".[8], " & 訂單資料表(5) & ".[8.5], " & 訂單資料表(5) & ".[9], " & 訂單資料表(5) & ".[9.5], " & 訂單資料表(5) & ".[10], 
-                            " & 訂單資料表(5) & ".[10.5], " & 訂單資料表(5) & ".[11], " & 訂單資料表(5) & ".[11.5], " & 訂單資料表(5) & ".[12], 
-                            " & 訂單資料表(5) & ".[12.5], " & 訂單資料表(5) & ".[13], " & 訂單資料表(5) & ".[14], 
-                            " & 訂單資料表(5) & ".[5] + " & 訂單資料表(5) & ".[5.5] + " & 訂單資料表(5) & ".[6] + " & 訂單資料表(5) & ".[6.5] + " & 訂單資料表(5) & ".[7] +
-                             " & 訂單資料表(5) & ".[7.5] + " & 訂單資料表(5) & ".[8] + " & 訂單資料表(5) & ".[8.5] + " & 訂單資料表(5) & ".[9] + " & 訂單資料表(5) & ".[9.5]
-                             + " & 訂單資料表(5) & ".[10] + " & 訂單資料表(5) & ".[10.5] + " & 訂單資料表(5) & ".[11] + " & 訂單資料表(5) & ".[11.5] + " & 訂單資料表(5) & ".[12]
-                             + " & 訂單資料表(5) & ".[12.5] + " & 訂單資料表(5) & ".[13] + " & 訂單資料表(5) & ".[14] AS Total, " & 訂單資料表(1) & ".客戶交期, 
-                            " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".Confirm_XF
-                 FROM       " & 訂單資料表(1) & " LEFT OUTER JOIN
-                            " & 訂單資料表(5) & " ON " & 訂單資料表(1) & ".訂單流水號 = " & 訂單資料表(5) & ".天盾流水號 AND 
-                            " & 訂單資料表(1) & ".客戶訂單號 = " & 訂單資料表(5) & ".客戶訂單號 AND 
-                            " & 訂單資料表(1) & ".形體號 = " & 訂單資料表(5) & ".ProductName AND 
-                            " & 訂單資料表(1) & ".顏色 = " & 訂單資料表(5) & ".Color AND " & 訂單資料表(1) & ".楦型 = " & 訂單資料表(5) & ".DM
-                 WHERE     (" & 訂單資料表(1) & ".CXL = 0 OR
-                            " & 訂單資料表(1) & ".CXL IS NULL) AND (" & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(1) & ".出貨數量 <> 0)
-                 ORDER BY   " & 訂單資料表(1) & ".客戶訂單號, " & 訂單資料表(5) & ".ItemNumber, " & 訂單資料表(5) & ".ProductName, 
-                            " & 訂單資料表(5) & ".Color, " & 訂單資料表(5) & ".DM"
-        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+        Try
+            清單_dgv.DataSource = Nothing : ds.Clear()
+            清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            清單_dgv.ColumnHeadersHeight = 25
+            清單_dgv.AllowUserToAddRows = False
+            SQL_列印訂單明細表()
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub 列印_訂單明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
-        Set_訂單清單1() : 清單_dgv.Visible = False
+        Try
+            FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
+            Set_訂單清單1() : 清單_dgv.Visible = False
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取消列印_bt.Click
         列印用SQL = "" : Me.Close()
@@ -53,88 +41,92 @@ Public Class 列印_訂單明細表
         Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
     End Function
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
-        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
-        xlApp.Visible = True
-        xlApp.DisplayAlerts = True
-        xlApp.Application.WindowState = xlMaximized
-        xlBook = xlApp.Workbooks.Add
-        xlSheet = NewMethod(xlBook)
-        xlBook.Activate()
-        xlSheet.Activate()
+        Try
+            xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+            xlApp.Visible = True
+            xlApp.DisplayAlerts = True
+            xlApp.Application.WindowState = xlMaximized
+            xlBook = xlApp.Workbooks.Add
+            xlSheet = NewMethod(xlBook)
+            xlBook.Activate()
+            xlSheet.Activate()
 
-        xlSheet.Cells(1, 1) = "天盾國際 - 訂單明細"
-        xlSheet.Cells(2, 1) = "訂單流水號"
-        xlSheet.Cells(2, 2) = "客戶訂單號"
-        xlSheet.Cells(2, 3) = "ItemNumber"
-        xlSheet.Cells(2, 4) = "Product Name"
-        xlSheet.Cells(2, 5) = "Color"
-        xlSheet.Cells(2, 6) = "DM"
-        xlSheet.Cells(2, 7) = "5" : xlSheet.Cells(1, 7) = "=SUM(G3:G3000)"
-        xlSheet.Cells(2, 8) = "5.5" : xlSheet.Cells(1, 8) = "=SUM(H3:H3000)"
-        xlSheet.Cells(2, 9) = "6" : xlSheet.Cells(1, 9) = "=SUM(I3:I3000)"
-        xlSheet.Cells(2, 10) = "6.5" : xlSheet.Cells(1, 10) = "=SUM(J3:J3000)"
-        xlSheet.Cells(2, 11) = "7" : xlSheet.Cells(1, 11) = "=SUM(K3:K3000)"
-        xlSheet.Cells(2, 12) = "7.5" : xlSheet.Cells(1, 12) = "=SUM(L3:L3000)"
-        xlSheet.Cells(2, 13) = "8" : xlSheet.Cells(1, 13) = "=SUM(M3:M3000)"
-        xlSheet.Cells(2, 14) = "8.5" : xlSheet.Cells(1, 14) = "=SUM(N3:N3000)"
-        xlSheet.Cells(2, 15) = "9" : xlSheet.Cells(1, 15) = "=SUM(O3:O3000)"
-        xlSheet.Cells(2, 16) = "9.5" : xlSheet.Cells(1, 16) = "=SUM(P3:P3000)"
-        xlSheet.Cells(2, 17) = "10" : xlSheet.Cells(1, 17) = "=SUM(Q3:Q3000)"
-        xlSheet.Cells(2, 18) = "10.5" : xlSheet.Cells(1, 18) = "=SUM(R3:R3000)"
-        xlSheet.Cells(2, 19) = "11" : xlSheet.Cells(1, 19) = "=SUM(S3:S3000)"
-        xlSheet.Cells(2, 20) = "11.5" : xlSheet.Cells(1, 20) = "=SUM(T3:T3000)"
-        xlSheet.Cells(2, 21) = "12" : xlSheet.Cells(1, 21) = "=SUM(U3:U3000)"
-        xlSheet.Cells(2, 22) = "12.5" : xlSheet.Cells(1, 22) = "=SUM(V3:V3000)"
-        xlSheet.Cells(2, 23) = "13" : xlSheet.Cells(1, 23) = "=SUM(W3:W3000)"
-        xlSheet.Cells(2, 24) = "14" : xlSheet.Cells(1, 24) = "=SUM(X3:X3000)"
-        xlSheet.Cells(2, 25) = "Total" : xlSheet.Cells(1, 25) = "=SUM(Y3:Y3000)"
-        xlSheet.Cells(2, 26) = "客戶交期"
-        xlSheet.Cells(2, 27) = "訂單種類"
-        xlSheet.Cells(2, 28) = "備註"
-        xlSheet.Cells(2, 29) = "Confirm XF"
+            xlSheet.Cells(1, 1) = "天盾國際 - 訂單明細"
+            xlSheet.Cells(2, 1) = "訂單流水號"
+            xlSheet.Cells(2, 2) = "客戶訂單號"
+            xlSheet.Cells(2, 3) = "ItemNumber"
+            xlSheet.Cells(2, 4) = "Product Name"
+            xlSheet.Cells(2, 5) = "Color"
+            xlSheet.Cells(2, 6) = "DM"
+            xlSheet.Cells(2, 7) = "5" : xlSheet.Cells(1, 7) = "=SUM(G3:G3000)"
+            xlSheet.Cells(2, 8) = "5.5" : xlSheet.Cells(1, 8) = "=SUM(H3:H3000)"
+            xlSheet.Cells(2, 9) = "6" : xlSheet.Cells(1, 9) = "=SUM(I3:I3000)"
+            xlSheet.Cells(2, 10) = "6.5" : xlSheet.Cells(1, 10) = "=SUM(J3:J3000)"
+            xlSheet.Cells(2, 11) = "7" : xlSheet.Cells(1, 11) = "=SUM(K3:K3000)"
+            xlSheet.Cells(2, 12) = "7.5" : xlSheet.Cells(1, 12) = "=SUM(L3:L3000)"
+            xlSheet.Cells(2, 13) = "8" : xlSheet.Cells(1, 13) = "=SUM(M3:M3000)"
+            xlSheet.Cells(2, 14) = "8.5" : xlSheet.Cells(1, 14) = "=SUM(N3:N3000)"
+            xlSheet.Cells(2, 15) = "9" : xlSheet.Cells(1, 15) = "=SUM(O3:O3000)"
+            xlSheet.Cells(2, 16) = "9.5" : xlSheet.Cells(1, 16) = "=SUM(P3:P3000)"
+            xlSheet.Cells(2, 17) = "10" : xlSheet.Cells(1, 17) = "=SUM(Q3:Q3000)"
+            xlSheet.Cells(2, 18) = "10.5" : xlSheet.Cells(1, 18) = "=SUM(R3:R3000)"
+            xlSheet.Cells(2, 19) = "11" : xlSheet.Cells(1, 19) = "=SUM(S3:S3000)"
+            xlSheet.Cells(2, 20) = "11.5" : xlSheet.Cells(1, 20) = "=SUM(T3:T3000)"
+            xlSheet.Cells(2, 21) = "12" : xlSheet.Cells(1, 21) = "=SUM(U3:U3000)"
+            xlSheet.Cells(2, 22) = "12.5" : xlSheet.Cells(1, 22) = "=SUM(V3:V3000)"
+            xlSheet.Cells(2, 23) = "13" : xlSheet.Cells(1, 23) = "=SUM(W3:W3000)"
+            xlSheet.Cells(2, 24) = "14" : xlSheet.Cells(1, 24) = "=SUM(X3:X3000)"
+            xlSheet.Cells(2, 25) = "Total" : xlSheet.Cells(1, 25) = "=SUM(Y3:Y3000)"
+            xlSheet.Cells(2, 26) = "客戶交期"
+            xlSheet.Cells(2, 27) = "訂單種類"
+            xlSheet.Cells(2, 28) = "備註"
+            xlSheet.Cells(2, 29) = "Confirm XF"
 
-        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
-            xlSheet.Cells(i + 3, 1) = 清單_dgv.Rows(i).Cells("訂單流水號").Value
-            xlSheet.Cells(i + 3, 2) = 清單_dgv.Rows(i).Cells("力威訂單號").Value
-            xlSheet.Cells(i + 3, 3) = 清單_dgv.Rows(i).Cells("ItemNumber").Value
-            xlSheet.Cells(i + 3, 4) = 清單_dgv.Rows(i).Cells("ProductName").Value
-            xlSheet.Cells(i + 3, 5) = 清單_dgv.Rows(i).Cells("Color").Value
-            xlSheet.Cells(i + 3, 6) = 清單_dgv.Rows(i).Cells("DM").Value
-            xlSheet.Cells(i + 3, 7) = 清單_dgv.Rows(i).Cells("5").Value
-            xlSheet.Cells(i + 3, 8) = 清單_dgv.Rows(i).Cells("5.5").Value
-            xlSheet.Cells(i + 3, 9) = 清單_dgv.Rows(i).Cells("6").Value
-            xlSheet.Cells(i + 3, 10) = 清單_dgv.Rows(i).Cells("6.5").Value
-            xlSheet.Cells(i + 3, 11) = 清單_dgv.Rows(i).Cells("7").Value
-            xlSheet.Cells(i + 3, 12) = 清單_dgv.Rows(i).Cells("7.5").Value
-            xlSheet.Cells(i + 3, 13) = 清單_dgv.Rows(i).Cells("8").Value
-            xlSheet.Cells(i + 3, 14) = 清單_dgv.Rows(i).Cells("8.5").Value
-            xlSheet.Cells(i + 3, 15) = 清單_dgv.Rows(i).Cells("9").Value
-            xlSheet.Cells(i + 3, 16) = 清單_dgv.Rows(i).Cells("9.5").Value
-            xlSheet.Cells(i + 3, 17) = 清單_dgv.Rows(i).Cells("10").Value
-            xlSheet.Cells(i + 3, 18) = 清單_dgv.Rows(i).Cells("10.5").Value
-            xlSheet.Cells(i + 3, 19) = 清單_dgv.Rows(i).Cells("11").Value
-            xlSheet.Cells(i + 3, 20) = 清單_dgv.Rows(i).Cells("11.5").Value
-            xlSheet.Cells(i + 3, 21) = 清單_dgv.Rows(i).Cells("12").Value
-            xlSheet.Cells(i + 3, 22) = 清單_dgv.Rows(i).Cells("12.5").Value
-            xlSheet.Cells(i + 3, 23) = 清單_dgv.Rows(i).Cells("13").Value
-            xlSheet.Cells(i + 3, 24) = 清單_dgv.Rows(i).Cells("14").Value
-            xlSheet.Cells(i + 3, 25) = 清單_dgv.Rows(i).Cells("Total").Value
-            xlSheet.Cells(i + 3, 26) = 清單_dgv.Rows(i).Cells("客戶交期").Value
-            xlSheet.Cells(i + 3, 27) = 清單_dgv.Rows(i).Cells("訂單種類").Value
-            xlSheet.Cells(i + 3, 28) = 清單_dgv.Rows(i).Cells("備註").Value
-            xlSheet.Cells(i + 3, 29) = 清單_dgv.Rows(i).Cells("Confirm_XF").Value
-            With xlApp.Selection
-                .Font.Bold = True
-            End With
-            N2 = i + 3
-        Next i
-        BB(xlApp, xlSheet)
+            For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = 清單_dgv.Rows(i).Cells("訂單流水號").Value
+                xlSheet.Cells(i + 3, 2) = 清單_dgv.Rows(i).Cells("力威訂單號").Value
+                xlSheet.Cells(i + 3, 3) = 清單_dgv.Rows(i).Cells("ItemNumber").Value
+                xlSheet.Cells(i + 3, 4) = 清單_dgv.Rows(i).Cells("ProductName").Value
+                xlSheet.Cells(i + 3, 5) = 清單_dgv.Rows(i).Cells("Color").Value
+                xlSheet.Cells(i + 3, 6) = 清單_dgv.Rows(i).Cells("DM").Value
+                xlSheet.Cells(i + 3, 7) = 清單_dgv.Rows(i).Cells("5").Value
+                xlSheet.Cells(i + 3, 8) = 清單_dgv.Rows(i).Cells("5.5").Value
+                xlSheet.Cells(i + 3, 9) = 清單_dgv.Rows(i).Cells("6").Value
+                xlSheet.Cells(i + 3, 10) = 清單_dgv.Rows(i).Cells("6.5").Value
+                xlSheet.Cells(i + 3, 11) = 清單_dgv.Rows(i).Cells("7").Value
+                xlSheet.Cells(i + 3, 12) = 清單_dgv.Rows(i).Cells("7.5").Value
+                xlSheet.Cells(i + 3, 13) = 清單_dgv.Rows(i).Cells("8").Value
+                xlSheet.Cells(i + 3, 14) = 清單_dgv.Rows(i).Cells("8.5").Value
+                xlSheet.Cells(i + 3, 15) = 清單_dgv.Rows(i).Cells("9").Value
+                xlSheet.Cells(i + 3, 16) = 清單_dgv.Rows(i).Cells("9.5").Value
+                xlSheet.Cells(i + 3, 17) = 清單_dgv.Rows(i).Cells("10").Value
+                xlSheet.Cells(i + 3, 18) = 清單_dgv.Rows(i).Cells("10.5").Value
+                xlSheet.Cells(i + 3, 19) = 清單_dgv.Rows(i).Cells("11").Value
+                xlSheet.Cells(i + 3, 20) = 清單_dgv.Rows(i).Cells("11.5").Value
+                xlSheet.Cells(i + 3, 21) = 清單_dgv.Rows(i).Cells("12").Value
+                xlSheet.Cells(i + 3, 22) = 清單_dgv.Rows(i).Cells("12.5").Value
+                xlSheet.Cells(i + 3, 23) = 清單_dgv.Rows(i).Cells("13").Value
+                xlSheet.Cells(i + 3, 24) = 清單_dgv.Rows(i).Cells("14").Value
+                xlSheet.Cells(i + 3, 25) = 清單_dgv.Rows(i).Cells("Total").Value
+                xlSheet.Cells(i + 3, 26) = 清單_dgv.Rows(i).Cells("客戶交期").Value
+                xlSheet.Cells(i + 3, 27) = 清單_dgv.Rows(i).Cells("訂單種類").Value
+                xlSheet.Cells(i + 3, 28) = 清單_dgv.Rows(i).Cells("備註").Value
+                xlSheet.Cells(i + 3, 29) = 清單_dgv.Rows(i).Cells("Confirm_XF").Value
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N2 = i + 3
+            Next i
+            BB(xlApp, xlSheet)
 
-        xlSheet.PageSetup.PrintArea = ""
-        xlApp.Cells.Select()
-        xlApp.Application.WindowState = xlMinimized
-        MsgBox("列印完成")
-        Me.Close()
+            xlSheet.PageSetup.PrintArea = ""
+            xlApp.Cells.Select()
+            xlApp.Application.WindowState = xlMinimized
+            MsgBox("列印完成")
+            Me.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
         xlSheet.Range("G1:Y1").Select()

TENDEN-MES-SYS/量產訂單管理/訂單控制功能/DELIVERY_ADDRESS__資料管理.vb

@@ -3,73 +3,95 @@ Public Class DELIVERY_ADDRESS__資料管理
     ReadOnly ds As New DataSet
     Dim OO As Boolean
     Private Sub Set_DELIVERYADDRESS清單()
-        清單_dgv.DataSource = Nothing : ds.Clear()
-        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        清單_dgv.ColumnHeadersHeight = 25
-        清單_dgv.AllowUserToAddRows = False
-        ConnOpen()
-        SQL1 = "SELECT REMARK, DELIVERYADDRESS FROM DELIVERYADDRESS"
-        CmdSet_For_DGV()
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+        Try
+            清單_dgv.DataSource = Nothing : ds.Clear()
+            清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            清單_dgv.ColumnHeadersHeight = 25
+            清單_dgv.AllowUserToAddRows = False
+            SQL_DELIVERYADDRESS清單()
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Set_grid()
         清單_dgv.Columns(0).FillWeight = 310 : 清單_dgv.Columns(1).FillWeight = 1000
     End Sub
     Private Sub DELIVERY_ADDRESS__資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        Set_DELIVERYADDRESS清單() : Set_grid()
-        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
+        Try
+            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+            Set_DELIVERYADDRESS清單() : Set_grid()
+            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
     End Sub
     Private Sub DELIVERY_ADDRESS__資料管理_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
-        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
+        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
     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
-        If e.RowIndex = -1 Then : Else
-            命名_tb.Text = 清單_dgv(0, e.RowIndex).Value.ToString : 资料内容_tb.Text = 清單_dgv(1, e.RowIndex).Value.ToString
-        End If
+        Try
+            If e.RowIndex = -1 Then : Else
+                命名_tb.Text = 清單_dgv(0, e.RowIndex).Value.ToString : 资料内容_tb.Text = 清單_dgv(1, e.RowIndex).Value.ToString
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
-        If 命名_tb.Text <> "" Then
-            ConnOpen()
-            SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE REMARK LIKE '" & 命名_tb.Text & "'"
-            CmdSet_For_dr()
-            If dr.Read() Then
-                OO = True : MsgBox("資料重複") : conn.Close() : Exit Sub
-            Else
-                OO = False
-            End If : conn.Close()
-            If OO = False Then
+        Try
+            If 命名_tb.Text <> "" Then
                 ConnOpen()
-                SQL1 = "INSERT INTO DELIVERYADDRESS (REMARK, DELIVERYADDRESS) VALUES ('" & 命名_tb.Text & "', '" & 资料内容_tb.Text & "')"
-                CmdSet_For_dr() : conn.Close()
+                SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE REMARK LIKE '" & 命名_tb.Text & "'"
+                CmdSet_For_dr()
+                If dr.Read() Then
+                    OO = True : MsgBox("資料重複") : conn.Close() : Exit Sub
+                Else
+                    OO = False
+                End If : conn.Close()
+                If OO = False Then
+                    ConnOpen()
+                    SQL1 = "INSERT INTO DELIVERYADDRESS (REMARK, DELIVERYADDRESS) VALUES ('" & 命名_tb.Text & "', '" & 资料内容_tb.Text & "')"
+                    CmdSet_For_dr() : conn.Close()
+                End If
+                Set_DELIVERYADDRESS清單() : Set_grid()
+                MsgBox("新增完成")
+            Else
+                MsgBox("Key index 不可空白")
             End If
-            Set_DELIVERYADDRESS清單() : Set_grid()
-            MsgBox("新增完成")
-        Else
-            MsgBox("Key index 不可空白")
-        End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
-        If 命名_tb.Text <> "" Then
-            ConnOpen()
-            SQL1 = "UPDATE DELIVERYADDRESS SET DELIVERYADDRESS = '" & 资料内容_tb.Text & "' WHERE (REMARK = '" & 命名_tb.Text & "')"
-            CmdSet_For_dr() : conn.Close()
-            Set_DELIVERYADDRESS清單() : Set_grid()
-            MsgBox("修改完成")
-        Else
-            MsgBox("Key index 不可空白")
-        End If
+        Try
+            If 命名_tb.Text <> "" Then
+                ConnOpen()
+                SQL1 = "UPDATE DELIVERYADDRESS SET DELIVERYADDRESS = '" & 资料内容_tb.Text & "' WHERE (REMARK = '" & 命名_tb.Text & "')"
+                CmdSet_For_dr() : conn.Close()
+                Set_DELIVERYADDRESS清單() : Set_grid()
+                MsgBox("修改完成")
+            Else
+                MsgBox("Key index 不可空白")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 删除_bt.Click
         Dim aa As MsgBoxResult