WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/MyModule/SQL_樣品訂單管理.vb

Module SQL_樣品訂單管理
    Friend Sub SQL_除錯清單()
        ConnOpen()
        SQL1 = "SELECT    樣品訂單部件表.SO, 樣品訂單部件表.流水號, 樣品訂單清單.流水號 AS 流水號2, 樣品訂單清單.SO AS SO2
               FROM       樣品訂單部件表 LEFT OUTER JOIN
                          樣品訂單清單 ON 樣品訂單部件表.流水號 = 樣品訂單清單.流水號 AND 
                          樣品訂單部件表.版次 = 樣品訂單清單.版次 AND 樣品訂單部件表.SO = 樣品訂單清單.SO
               WHERE     (樣品訂單清單.SO IS NULL)
               GROUP BY   樣品訂單部件表.SO, 樣品訂單部件表.流水號, 樣品訂單清單.流水號, 樣品訂單清單.SO
               ORDER BY   SO2"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_刪除樣品訂單部件表()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單部件表 WHERE (SO LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    '-----------樣品單控制表-----------------------------------------------
    Friend Sub SQL_樣品單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT   SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號 
                    FROM     樣品訂單控制表 
                    WHERE    狀態 LIKE N'" & 樣品進度表分類3 & "' 
                    ORDER BY SO DESC, 版次 DESC"
        Else
            SQL1 = "SELECT   SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號 
                    FROM     樣品訂單控制表 
                    WHERE  ((SO LIKE N'%" & PA & "%') OR (季節 LIKE N'%" & PA & "%') OR (客戶 LIKE N'%" & PA & "%') OR (型體號碼 LIKE N'%" & PA & "%') 
                             OR (型體名稱 LIKE N'%" & PA & "%') OR (國家 LIKE N'%" & PA & "%') OR (狀態 LIKE N'%" & PA & "%') OR (ISS_DATE LIKE N'%" & PA & "%') OR (ETA LIKE N'%" & PA & "%')) 
                    ORDER BY SO DESC, 版次 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品清單()
        ConnOpen()
        SQL1 = "SELECT 項次, 顏色, 架號, 借出者, 數量, SIZE, KEEP, 流水號, 版次 FROM 樣品訂單清單 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單清單2()
        ConnOpen()
        SQL1 = "SELECT 樣品訂單清單.項次, 樣品訂單部件表.部件, 樣品訂單部件表.材料名稱, 樣品訂單部件表.材料說明 AS 顏色, 樣品訂單部件表.廠商, 樣品訂單部件表.備註, " &
               "樣品訂單部件表.版次, 樣品訂單部件表.流水號, 樣品訂單部件表.項次 AS 排列 " &
               "FROM 樣品訂單部件表 INNER JOIN 樣品訂單清單 ON 樣品訂單部件表.流水號 = 樣品訂單清單.流水號 " &
               "WHERE (樣品訂單部件表.SO LIKE N'" & 樣品單控制表.SO_tb.Text & "') AND (樣品訂單部件表.版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') 
                ORDER BY   樣品訂單部件表.流水號, 樣品訂單部件表.項次, 樣品訂單部件表.部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單清單3()
        ConnOpen()
        SQL1 = "SELECT 部件 FROM 樣品訂單部件表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "') AND (版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') GROUP BY 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單清單4()
        ConnOpen()
        SQL1 = "SELECT 項次, 備註 FROM 樣品訂單清單 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_國家清單()
        ConnOpen()
        SQL1 = "SELECT 國家 FROM 國家清單 ORDER BY 國家"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶控制表清單()
        ConnOpen()
        SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 ORDER BY 客戶簡稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_PURPOSE清單()
        ConnOpen()
        SQL1 = "SELECT  狀態 FROM PURPOSE清單 ORDER BY 狀態"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_型體控制表清單()
        ConnOpen()
        SQL1 = "SELECT 型體號碼 FROM 型體控制表 WHERE 客戶簡稱 LIKE N'" & 樣品單控制表.CUST_cb.Text & "' ORDER BY 型體號碼"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_型體控制表清單1()
        ConnOpen()
        SQL1 = "SELECT 型體名稱 FROM 型體控制表 WHERE 型體號碼 LIKE N'" & 樣品單控制表.STYLE_cb.Text & "' ORDER BY 型體名稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部件清單1()
        ConnOpen()
        SQL1 = "SELECT 部件 FROM 部件清單 WHERE 部件 LIKE N'" & 樣品單控制表.新增_cb.Text & "%' AND 樣品單用選擇 LIKE '1' ORDER BY 部件"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工廠控制表()
        ConnOpen()
        SQL1 = "SELECT 工廠 FROM 工廠控制表 ORDER BY 工廠"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_港口清單()
        ConnOpen()
        SQL1 = "SELECT  FOB FROM 港口清單 ORDER BY FOB"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單1()
        ConnOpen()
        SQL1 = "SELECT 廠商 FROM 供應商清單 WHERE 公司傳真3 LIKE '" & 樣品單控制表.廠商類別_cb.Text & "' AND 停用 = 0 ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單2()
        ConnOpen()
        SQL1 = "SELECT 樣品物料調料單明細.規格, 樣品物料調料單明細.名稱 
                    FROM 供應商清單 INNER JOIN 樣品物料調料單抬頭 ON 供應商清單.供應商編碼 = 樣品物料調料單抬頭.供應商編號 RIGHT OUTER JOIN 樣品物料調料單明細 ON 樣品物料調料單抬頭.調料單號 = 
                         樣品物料調料單明細.調料單號
                    WHERE (供應商清單.廠商 LIKE N'" & 樣品單控制表.供應商_cb.Text & "') GROUP BY 樣品物料調料單明細.規格, 樣品物料調料單明細.名稱 ORDER BY 樣品物料調料單明細.規格, 樣品物料調料單明細.名稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單3()
        ConnOpen()
        SQL1 = "SELECT 樣品物料調料單明細.顏色 
                    FROM 供應商清單 INNER JOIN 樣品物料調料單抬頭 ON 供應商清單.供應商編碼 = 樣品物料調料單抬頭.供應商編號 RIGHT OUTER JOIN 樣品物料調料單明細 ON 樣品物料調料單抬頭.調料單號 = 
                         樣品物料調料單明細.調料單號
                    WHERE (供應商清單.廠商 LIKE N'" & 樣品單控制表.供應商_cb.Text & "') GROUP BY 樣品物料調料單明細.顏色 ORDER BY 樣品物料調料單明細.顏色"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_底台()
        ConnOpen()
        SQL1 = "SELECT 底台 FROM 中皮結構 ORDER BY 底台"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_中底()
        ConnOpen()
        SQL1 = "SELECT 中底 FROM 中底做法 ORDER BY 中底"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_楦頭編號()
        ConnOpen()
        SQL1 = "SELECT 楦頭編號 FROM 楦頭規格控制表 ORDER BY 楦頭編號"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_模具開發控制表1()
        ConnOpen()
        SQL1 = "SELECT CN, 模具編號 FROM 模具開發控制表 GROUP BY CN, 模具編號 ORDER BY 模具編號, CN"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單4()
        ConnOpen()
        SQL1 = "SELECT 公司傳真3 AS 類別 FROM 供應商清單 GROUP BY 公司傳真3 ORDER BY 公司傳真3"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_模具開發控制表2()
        ConnOpen()
        SQL1 = "SELECT CN FROM 模具開發控制表 WHERE 模具編號 LIKE N'" & 樣品單控制表.模具編號_cb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_下拉清單顏色()
        ConnOpen()
        SQL1 = "SELECT 顏色 FROM 顏色清單 ORDER BY 顏色"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_下拉廠商()
        ConnOpen()
        SQL1 = "SELECT 廠商 FROM 供應商清單 ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品訂單控制表()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單控制表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品訂單清單()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單清單 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品訂單部件表1()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單部件表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_第一筆圖片()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
                               "WHERE 客戶 LIKE N'" & PA7 & "' AND 形體號 LIKE N'" & PA8 &
                               "' AND 形體名 LIKE N'" & PA9 & "' AND 類別 LIKE N'設計圖'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_第一筆圖片1()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
                               "WHERE 客戶 LIKE N'" & PA7 & "' AND 形體號 LIKE N'" & PA8 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & PA8 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品訂單清單()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單清單 SET 顏色 = N'" & PA & "',架號 = N'" & PA1 &
                       "',數量 = N'" & PA2 & "',SIZE = N'" & PA3 & "',KEEP = N'" & PA4 &
                       "', 借出者 = N'" & PA5 & "',備註 = N'" & PA6 & "' 
                    WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 項次 LIKE N'" & PA10 & "' AND 版次 LIKE N'" & PA11 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品訂單部件表()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單部件表 SET  材料名稱 = N'" & PA & "', 材料說明 = N'" & PA1 & "', 
                                           備註 = N'" & PA2 & "', 廠商 = N'" & PA3 & "', 項次 = N'" & PA4 & "' " &
                       "WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 流水號 LIKE N'" & PA5 & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text &
                       "'  AND 部件 LIKE N'" & PA6 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一筆流水號2()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 流水號 FROM 樣品訂單清單 ORDER BY 流水號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一筆項次()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 項次 FROM 樣品訂單清單 WHERE SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND (版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') ORDER BY 項次 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品訂單清單()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品訂單清單 (SO, 項次, 架號, 數量, SIZE, KEEP, 顏色, 流水號, 版次, 借出者, 備註) " &
               "VALUES (N'" & 樣品單控制表.SO_tb.Text & "', N'" & 新項次 & "', N'', N'0', N'', N'', N'', N'" & 新流水號1 & "', N'" & 樣品單控制表.版次_tb.Text & "', N'', N'" & 樣品備註 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品訂單部件表()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品訂單部件表 (SO, 項次, 部件, 材料名稱, 材料說明, 備註, 廠商, 版次, 流水號) VALUES (N'" & 樣品單控制表.SO_tb.Text & "', N'', N'" & PA &
                   "', N'', N'', N'', N'', N'" & 樣品單控制表.版次_tb.Text & "', N'" & 新流水號1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品訂單清單1()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單清單 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 項次 LIKE N'" & 樣品單控制表.選擇第_tb.Text & "' AND (版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "'))"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品訂單部件表2()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單部件表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 流水號 LIKE N'" & 樣品單控制表.項_tb.Text & "' AND (版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "'))"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品訂單清單1()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單清單 SET 項次 = N'" & 新項次 & "' " &
                       "WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 項次 LIKE N'" & PA2 & "' AND 版次 LIKE N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢部件()
        ConnOpen()
        SQL1 = "SELECT 部件 FROM 樣品訂單部件表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "' AND 部件 LIKE N'" & 樣品單控制表.新增1_cb.Text & "') GROUP BY 部件"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品訂單部件表3()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品訂單部件表 (SO, 部件, 材料名稱, 材料說明, 備註, 廠商, 版次, 流水號) VALUES (N'" & 樣品單控制表.SO_tb.Text & "', N'" & 樣品單控制表.新增1_cb.Text &
                           "', N'', N'', N'', N'', N'" & 樣品單控制表.版次_tb.Text & "', N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品訂單部件表3()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單部件表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 部件 LIKE N'" & 樣品單控制表.選擇_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一筆SO號()
        ConnOpen()
        SQL1 = "SELECT TOP(1) SO FROM 樣品訂單控制表 ORDER BY SO DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品訂單控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品訂單控制表 (SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號) " &
               "VALUES (N'" & 樣品單控制表.SO_tb.Text & "', N'" & 樣品單控制表.SEASON_cb.Text & "', N'" & 樣品單控制表.CUST_cb.Text & "', N'" & 樣品單控制表.STYLE_cb.Text & "', N'" & 樣品單控制表.STYLEname_cb.Text & "', N'" & 樣品單控制表.COUNTRY1_cb.Text &
               "', N'" & 樣品單控制表.PURPOSE_cb.Text & "', N'" & DTP1 & "', N'" & DTP2 & "', N'" & 樣品單控制表.QTY_tb.Text & "', N'" & gUserName & "', N'" & DTP3 & "', N'V01', N'" & 樣品單控制表.FACTORY_tb.Text &
               "', N'" & 樣品單控制表.REQBY_tb.Text & "', N'" & 樣品單控制表.中皮_cb.Text & "', N'" & 樣品單控制表.中底_cb.Text & "', N'" & 樣品單控制表.楦頭編號_cb.Text & "', N'" & 樣品單控制表.模具編號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品訂單清單3()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品訂單清單 (SO, 項次, 架號, 數量, SIZE, KEEP, 顏色, 流水號, 版次, 借出者, 備註) " &
               "VALUES (N'" & 樣品單控制表.SO_tb.Text & "', N'01', N'', N'0', N'', N'', N'', N'" & 新流水號1 & "', N'" & 樣品單控制表.版次_tb.Text & "', N'', N'" & 樣品備註 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品訂單清單1()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品訂單清單 (SO, 項次, 架號, 數量, SIZE, KEEP, 顏色, 流水號, 版次, 借出者, 備註) VALUES (N'" & 樣品單控制表.SO_tb.Text & "', N'" & PA6 &
                   "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 &
                   "', N'" & PA4 & "', N'" & PA5 & "', N'" & 新流水號1 & "', N'" & 樣品單控制表.版次_tb.Text & "', N'', N'" & 樣品備註 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品訂單部件表1()
        ConnOpen()
        SQL1 = "INSERT INTO  樣品訂單部件表 (SO, 部件, 材料名稱, 材料說明, 備註, 廠商, 版次, 流水號) VALUES (N'" & 樣品單控制表.SO_tb.Text & "', N'" & PA7 & "',
                                             N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "', N'" & 樣品單控制表.版次_tb.Text & "', N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢最後一筆版次()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 版次 FROM 樣品訂單控制表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "') ORDER BY   版次 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_版本更新()
        ConnOpen()
        SQL1 = "SELECT 版次 FROM 樣品訂單控制表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') ORDER BY  版次 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改樣品訂單控制表()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單控制表 SET 季節 = N'" & 樣品單控制表.SEASON_cb.Text & "', 客戶 = N'" & 樣品單控制表.CUST_cb.Text & "', 型體號碼 = N'" & 樣品單控制表.STYLE_cb.Text & "', 型體名稱 = N'" & 樣品單控制表.STYLEname_cb.Text &
                   "', 國家 = N'" & 樣品單控制表.COUNTRY1_cb.Text & "', 狀態 = N'" & 樣品單控制表.PURPOSE_cb.Text & "', ISS_DATE = N'" & DTP1 & "', ETA = N'" & DTP2 & "', 數量 = N'" & 樣品單控制表.QTY_tb.Text &
                   "', 工廠 = N'" & 樣品單控制表.FACTORY_tb.Text & "', REQ = N'" & 樣品單控制表.REQBY_tb.Text & "', C_N = N'" & 樣品單控制表.中皮_cb.Text & "', 中底 = N'" & 樣品單控制表.中底_cb.Text & "' , 楦頭編號 = N'" & 樣品單控制表.楦頭編號_cb.Text & "' , 
                   模具編號 = N'" & 樣品單控制表.模具編號_cb.Text & "' 
                   WHERE SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次  LIKE N'" & 樣品單控制表.版次_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一筆PAO()
        ConnOpen()
        SQL1 = "SELECT TOP(1) PAO FROM 預告訂單控制表 WHERE PAO LIKE N'%" & Strings.Right(樣品單控制表.ComboBox10.Text, 2) & "' ORDER BY PAO 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 = "SELECT PAO, 項次, 顏色, 雙數, SPLS, BUYING, SELLING, 流水號, 版次, 備註 FROM 預告訂單清單 WHERE (PAO LIKE N'" & 新流水號4 & "' AND 版次 LIKE N'V01') ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_新增預告訂單控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 預告訂單控制表 (PAO, SO, 季節, 客戶, BUYER, 工廠, 型體號碼, 型體名稱, 總數量, ETD, ISSUE_DATE, FOB, ConstructionName, PS, 制單人, 制單時間, 版次) " &
                   "VALUES (N'" & 新流水號4 & "', N'" & 樣品單控制表.SO_tb.Text & "', N'" & 樣品單控制表.SEASON_cb.Text & "', N'', N'" & 樣品單控制表.CUST_cb.Text & "', N'" & 樣品單控制表.FACTORY_tb.Text & "', N'" & 樣品單控制表.STYLE_cb.Text &
                   "', N'" & 樣品單控制表.STYLEname_cb.Text & "', N'0', N'" & DTP4 & "', N'" & DTP5 & "', N'" & 樣品單控制表.COUNTRY_cb.Text & "', N'', N'', N'" & gUserName & "', N'" & DTP3 & "', N'V01')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增預告訂單清單()
        ConnOpen()
        SQL1 = "INSERT INTO 預告訂單清單 (PAO, 項次, 顏色, 雙數, SPLS, BUYING, SELLING, 流水號, 版次, 備註) VALUES (N'" & 新流水號4 & "', N'" & PA &
                       "', N'" & PA1 & "', N'0', N'0', N'0', N'0', N'" & 新流水號5 & "', N'V01', N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增預告訂單部件表()
        ConnOpen()
        SQL1 = "INSERT INTO  預告訂單部件表 (PAO, 項次, 部件, 材料名稱, 材料說明, 備註, 廠商, 版次, 流水號) VALUES (N'" & 新流水號4 & "',
                            N'', N'" & PA1 & "', N'" & PA2 & "',  N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'V01', N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_中皮下拉選單()
        ConnOpen()
        SQL1 = "SELECT 中皮, 結構 FROM 中皮結構 WHERE 底台 LIKE N'" & 樣品單控制表.中皮_cb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_做法()
        ConnOpen()
        SQL1 = "SELECT 做法 FROM 中底做法 WHERE 中底 LIKE N'" & 樣品單控制表.中底_cb.Text & "'"
        CmdSet_For_dr()
    End Sub
    '---------------------樣品進度表------------------------------------------
    Friend Sub SQL_樣品訂單控制表1()
        ConnOpen()
        SQL1 = "SELECT   樣品訂單控制表.SO, 樣品訂單控制表.版次
                FROM     樣品訂單控制表 INNER JOIN
                         樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO INNER JOIN
                         樣品訂單部件表 ON 樣品訂單控制表.SO = 樣品訂單部件表.SO
                WHERE   (樣品訂單控制表.季節 LIKE N'" & 樣品進度表.SEASON_cb.Text & "') AND (樣品訂單控制表.客戶 LIKE N'" & 樣品進度表.CUST_cb.Text & "') AND 
                        (樣品訂單控制表.狀態 LIKE N'" & 樣品進度表分類1 & "')
                GROUP BY 樣品訂單控制表.型體號碼, 樣品訂單控制表.SO, 樣品訂單控制表.版次
                ORDER BY 樣品訂單控制表.型體號碼, 樣品訂單控制表.SO, 樣品訂單控制表.版次 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單控制表2()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'A.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單控制表3()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'B.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單控制表4()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'C.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單控制表5()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'D.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單控制表6()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'E.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單控制表7()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'F.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_進度表清單()
        ConnOpen()
        SQL1 = "SELECT      樣品訂單控制表.SO AS 序號, 鞋樣素描圖控制表.圖片, 樣品訂單控制表.SO, 樣品訂單控制表.版次, 
                            樣品訂單控制表.型體號碼, 樣品訂單控制表.型體名稱 AS STYLE, 樣品訂單控制表.工廠, 樣品訂單控制表.ISS_DATE, 
                            樣品訂單控制表.ETA, 樣品訂單清單.顏色, 樣品訂單清單.數量, 樣品訂單清單.SIZE, 樣品訂單清單.KEEP, 
                            樣品訂單清單.流水號, 樣品訂單清單.流水號 AS UPPER, 樣品訂單清單.流水號 AS LINING, 
                            樣品訂單清單.流水號 AS BUCKLE, 樣品訂單清單.流水號 AS [SOCK LINING], 樣品訂單清單.流水號 AS BOTTOM, 
                            樣品訂單清單.流水號 AS OTHER, METOO選擇按鈕.選擇
                FROM        樣品訂單控制表 LEFT OUTER JOIN
                            METOO選擇按鈕 ON 樣品訂單控制表.SO = METOO選擇按鈕.對應 LEFT OUTER JOIN
                            鞋樣素描圖控制表 ON 樣品訂單控制表.型體號碼 = 鞋樣素描圖控制表.型體編號 AND 
                            樣品訂單控制表.型體名稱 = 鞋樣素描圖控制表.型體名稱 FULL OUTER JOIN
                            樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO AND 樣品訂單控制表.版次 = 樣品訂單清單.版次
                 WHERE      (樣品訂單控制表.季節 LIKE N'" & 樣品進度表.SEASON_cb.Text & "') AND (樣品訂單控制表.客戶 LIKE N'" & 樣品進度表.CUST_cb.Text & "') 
                            AND (樣品訂單控制表.狀態 LIKE N'" & 樣品進度表分類1 & "') AND 
                            (樣品訂單控制表.SO LIKE '" & PA & "') AND 
                            (樣品訂單控制表.版次 LIKE '" & PA1 & "')
                 ORDER BY   樣品訂單控制表.型體號碼, 序號, 樣品訂單控制表.版次 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單控制表()
        ConnOpen()
        SQL1 = "SELECT 季節, 客戶 FROM 樣品訂單控制表 WHERE (狀態 LIKE '" & 樣品進度表分類1 & "') GROUP BY 季節, 客戶 ORDER BY 客戶, 季節"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_客戶簡稱()
        ConnOpen()
        SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 ORDER BY 客戶簡稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片導入2()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 圖片 FROM 鞋樣素描圖控制表 WHERE  型體編號  LIKE N'" & SSDD & "'"
        CmdSet_For_dr()
    End Sub
    '--------------------------樣品進度表_英文版_---------------------
    Friend Sub SQL_英文版次()
        ConnOpen()
        SQL1 = "SELECT SO, 版次 FROM 樣品訂單控制表 WHERE 季節 LIKE N'" & 樣品進度表_英文版_.SEASON_cb.Text & "' AND 客戶 LIKE N'" & 樣品進度表_英文版_.CUST_cb.Text & "' AND 狀態 LIKE N'" & 樣品進度表分類2 & "' ORDER BY 型體號碼, SO, 版次 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_讀取清單2()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'A.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_英文進度表()
        ConnOpen()
        SQL1 = "SELECT 樣品訂單控制表.SO AS 序號, 鞋樣素描圖控制表.圖片, 樣品訂單控制表.SO, 樣品訂單控制表.版次, 樣品訂單控制表.型體號碼, 樣品訂單控制表.型體名稱 AS STYLE, 樣品訂單控制表.工廠, 
                       樣品訂單控制表.ISS_DATE, 樣品訂單控制表.ETA, 樣品訂單清單.顏色, 樣品訂單清單.數量, 樣品訂單清單.SIZE, 樣品訂單清單.KEEP, 樣品訂單清單.流水號, 樣品訂單清單.流水號 AS UPPER, 
                       樣品訂單清單.流水號 AS LINING, 樣品訂單清單.流水號 AS BUCKLE, 樣品訂單清單.流水號 AS [SOCK LINING], 樣品訂單清單.流水號 AS BOTTOM, 樣品訂單清單.流水號 AS OTHER
                FROM 樣品訂單控制表 LEFT OUTER JOIN 鞋樣素描圖控制表 ON 樣品訂單控制表.型體號碼 = 鞋樣素描圖控制表.型體編號 AND 樣品訂單控制表.型體名稱 = 鞋樣素描圖控制表.型體名稱 FULL OUTER JOIN
                     樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO AND 樣品訂單控制表.版次 = 樣品訂單清單.版次
                WHERE (樣品訂單控制表.季節 LIKE N'" & 樣品進度表_英文版_.SEASON_cb.Text & "') AND (樣品訂單控制表.客戶 LIKE N'" & 樣品進度表_英文版_.CUST_cb.Text & "') AND 
                      (樣品訂單控制表.狀態 LIKE N'" & 樣品進度表分類2 & "') AND (樣品訂單控制表.SO LIKE '" & PA & "') AND 
                      (樣品訂單控制表.版次 LIKE '" & PA1 & "')
                ORDER BY   型體號碼, 樣品訂單控制表.SO, 樣品訂單控制表.版次 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_季節客戶()
        ConnOpen()
        SQL1 = "SELECT 季節, 客戶 FROM 樣品訂單控制表 WHERE (狀態 LIKE '" & 樣品進度表分類2 & "') GROUP BY 季節, 客戶 ORDER BY 客戶, 季節"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_圖片2()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 圖片 FROM 鞋樣素描圖控制表 WHERE  型體編號  LIKE N'" & SSDD & "'"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部件B()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'B.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部件C()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'C.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部件D()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'D.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部件E()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'E.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部件F()
        ConnOpen()
        SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號
                FROM 樣品訂單部件表
                WHERE (SO LIKE '" & PA & "') AND (版次 LIKE '" & PA1 & "') AND (部件 LIKE N'F.%')
                ORDER BY   SO, 版次, 流水號, 部件"
        CmdSet_For_DGV()
    End Sub
    '-----------------------樣品標籤批量列印----------------------------------------
    Friend Sub SQL_主表單()
        ConnOpen()
        SQL1 = "SELECT METOO選擇按鈕.選擇, 樣品訂單控制表.型體號碼, 樣品訂單控制表.型體名稱, 樣品訂單控制表.ETA AS ETD, 鞋樣素描圖控制表.楦頭編號, 鞋樣素描圖控制表.模具編號, 樣品訂單清單.顏色, 樣品訂單清單.數量, 
                       樣品訂單清單.SIZE, 樣品訂單控制表.SO AS 面料, 樣品訂單控制表.SO AS 大底, 樣品訂單清單.流水號
                FROM 樣品訂單控制表 INNER JOIN 鞋樣素描圖控制表 ON 樣品訂單控制表.型體號碼 = 鞋樣素描圖控制表.型體編號 AND 樣品訂單控制表.型體名稱 = 鞋樣素描圖控制表.型體名稱 INNER JOIN
                     樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO AND 樣品訂單控制表.版次 = 樣品訂單清單.版次 LEFT OUTER JOIN METOO選擇按鈕 ON 樣品訂單控制表.SO = METOO選擇按鈕.對應
                WHERE (樣品訂單控制表.狀態 LIKE N'" & 樣品進度表分類5 & "') AND (樣品訂單控制表.季節 LIKE N'" & 樣品標籤批量列印.季節_cb.Text & "') AND (樣品訂單控制表.客戶 LIKE N'" & 樣品標籤批量列印.季節1_cb.Text & "')
                ORDER BY 樣品訂單控制表.型體號碼, 樣品訂單清單.顏色"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_一筆材料名稱()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 材料名稱 FROM 樣品訂單部件表 
                    WHERE (流水號 LIKE N'" & PA & "') AND (部件 LIKE 'A.%') AND (部件 LIKE '%面料A' OR 部件 LIKE '%面料')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆材料名稱1()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 材料名稱 FROM 樣品訂單部件表 
                    WHERE (流水號 LIKE N'" & PA & "') AND (部件 LIKE N'E.OUTSOLE 大底')"
        CmdSet_For_dr()
    End Sub
    '--------------------------------樣品進度表FOR_METOO_PAG導入-----------------------------------
    Friend Sub SQL_樣品進度控制表METOO專用()
        ConnOpen()
        SQL1 = "SELECT 流水號 AS 序號, 流水號, 季節, 客戶, S_N AS Style, C_N, COLOR_NO AS Col_No, COLOR, LOTS, 檔案名稱
                FROM 樣品進度控制表METOO專用 WHERE 季節 LIKE N'" & 樣品進度表FOR_METOO_PAG導入.SEASON_cb.Text & "' AND 客戶 LIKE N'" & 樣品進度表FOR_METOO_PAG導入.CUST_cb.Text & "' ORDER BY S_N, COLOR_NO"
        CmdSet_For_DGV()
    End Sub
    '------------------------METOO專用PAGE導入------------------------------------------------------
    Friend Sub SQL_樣品進度控制表METOO專用1()
        ConnOpen()
        SQL1 = "SELECT 流水號, 季節, 客戶, S_N, C_N, COLOR_NO, COLOR, LOTS, 檔案名稱
                FROM 樣品進度控制表METOO專用 WHERE 檔案名稱 LIKE N'" & file_name & "' ORDER BY COLOR_NO"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品進度控制表METOO專用2()
        ConnOpen()
        SQL1 = "SELECT 樣品進度控制表METOO專用.流水號, 樣品進度控制表METOO專用.COLOR_NO, 樣品進度表UPPER資料METOO專用.UPPER_NO, 樣品進度表UPPER資料METOO專用.UPPER, 樣品進度表UPPER資料METOO專用.ARTIDE, 
                       樣品進度表UPPER資料METOO專用.COLOR 
                FROM 樣品進度控制表METOO專用 RIGHT OUTER JOIN 樣品進度表UPPER資料METOO專用 ON 樣品進度控制表METOO專用.流水號 = 樣品進度表UPPER資料METOO專用.流水號 AND 
                            樣品進度控制表METOO專用.COLOR_NO = 樣品進度表UPPER資料METOO專用.COLOR_NO
                WHERE (樣品進度控制表METOO專用.檔案名稱 LIKE N'" & file_name & "')
                ORDER BY 樣品進度控制表METOO專用.COLOR_NO"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品進度控制表METOO專用3()
        ConnOpen()
        SQL1 = "SELECT 樣品進度控制表METOO專用.流水號, 樣品進度控制表METOO專用.COLOR_NO, 樣品進度表其他部件資料METOO專用.Descriptin_N, 樣品進度表其他部件資料METOO專用.Description
                FROM 樣品進度控制表METOO專用 INNER JOIN 樣品進度表其他部件資料METOO專用 ON 樣品進度控制表METOO專用.流水號 = 樣品進度表其他部件資料METOO專用.流水號 AND 
                     樣品進度控制表METOO專用.COLOR_NO = 樣品進度表其他部件資料METOO專用.COLOR_NO
                WHERE (樣品進度控制表METOO專用.檔案名稱 LIKE N'" & file_name & "')
                ORDER BY 樣品進度控制表METOO專用.COLOR_NO"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_一筆檔案名稱()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 檔案名稱 FROM 樣品進度控制表METOO專用 WHERE 檔案名稱 LIKE N'" & file_name & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_流水號()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 流水號 FROM 樣品進度控制表METOO專用 ORDER BY 流水號 DESC"
        CmdSet_For_dr()
    End Sub
    '----------------------------樣品INVOICE------------------------------------------------
    Friend Sub SQL_樣品INVOICE表單2()
        ConnOpen()
        SQL1 = "SELECT 樣品訂單控制表.客戶, INVOICE樣品單.UPS, INVOICE樣品單.ATTN, INVOICE樣品單.CARTON, INVOICE樣品單.DATE
                FROM 樣品訂單控制表 INNER JOIN 樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO AND 樣品訂單控制表.版次 = 樣品訂單清單.版次 RIGHT OUTER JOIN
                     INVOICE樣品單 ON 樣品訂單清單.流水號 = INVOICE樣品單.對應流水號
                WHERE INVOICE樣品單.狀態 LIKE N'" & 樣品進度表分類4 & "'
                GROUP BY 樣品訂單控制表.客戶, INVOICE樣品單.UPS, INVOICE樣品單.ATTN, INVOICE樣品單.CARTON, INVOICE樣品單.DATE
                ORDER BY   INVOICE樣品單.UPS DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品INVOICE表單1()
        ConnOpen()
        SQL1 = "SELECT 樣品訂單控制表.客戶 AS Customer, 樣品訂單控制表.狀態 AS [Sample type], INVOICE樣品單.HTS_CODE AS [Hts Code], 樣品訂單控制表.型體號碼 AS [Styie Number], 
                       樣品訂單清單.顏色 AS Colorway, 樣品訂單清單.SO AS [Upper Material], 樣品訂單清單.SO AS [Outsole Material], INVOICE樣品單.G_S_F, INVOICE樣品單.PAIRS, 
                       INVOICE樣品單.UNIT AS [UNIT], INVOICE樣品單.PAIRS * INVOICE樣品單.UNIT AS [TTL], INVOICE樣品單.對應流水號
                FROM 樣品訂單控制表 INNER JOIN 樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO AND 樣品訂單控制表.版次 = 樣品訂單清單.版次 RIGHT OUTER JOIN INVOICE樣品單 ON 
                     樣品訂單清單.流水號 = INVOICE樣品單.對應流水號
                WHERE (INVOICE樣品單.UPS LIKE N'" & 樣品INVOICE.UPS_tb.Text & "')
                ORDER BY   [Styie Number], Colorway"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_第一筆材料名稱()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 材料名稱 FROM 樣品訂單部件表 
                    WHERE (流水號 LIKE N'" & PA & "') AND (部件 LIKE 'A.%') AND (部件 LIKE '%面料A' OR 部件 LIKE '%面料')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_第一筆材料名稱1()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 材料名稱 FROM 樣品訂單部件表 
                    WHERE (流水號 LIKE N'" & PA & "') AND (部件 LIKE N'E.OUTSOLE 大底')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品INVOICE表單3()
        ConnOpen()
        SQL1 = "SELECT 樣品訂單控制表.季節, 樣品訂單控制表.客戶, 樣品訂單控制表.SO, 樣品訂單控制表.版次, 樣品訂單控制表.型體號碼, 
                       樣品訂單控制表.型體名稱, 樣品訂單清單.顏色, 樣品訂單清單.數量, Try_CONVERT(float, 樣品訂單清單.KEEP) AS KEEP, 
                       樣品訂單清單.寄出, 樣品訂單清單.流水號
                FROM 樣品訂單清單 LEFT OUTER JOIN 樣品訂單控制表 ON 樣品訂單清單.SO = 樣品訂單控制表.SO AND 樣品訂單清單.版次 = 樣品訂單控制表.版次
                WHERE (樣品訂單清單.數量 - Try_CONVERT(float,樣品訂單清單.KEEP) - 樣品訂單清單.寄出 > 0) AND (樣品訂單控制表.狀態 LIKE N'" & 樣品進度表分類4 & "')
                ORDER BY   樣品訂單控制表.型體號碼, 樣品訂單控制表.型體名稱, 樣品訂單清單.顏色"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_下拉ATTN()
        ConnOpen()
        SQL1 = "SELECT  ATTN FROM INVOICE用客戶資料 ORDER BY ATTN"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品訂單清單3()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單清單 SET KEEP = N'0' WHERE (KEEP LIKE N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品訂單清單4()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單清單 SET 寄出 = N'0' WHERE (寄出 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除INVOICE樣品單()
        ConnOpen()
        SQL1 = "DELETE FROM INVOICE樣品單 WHERE (UPS = N'" & 樣品INVOICE.UPS_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_INVOICE用客戶資料()
        ConnOpen()
        SQL1 = "SELECT  TEL FROM INVOICE用客戶資料 WHERE ATTN LIKE N'" & 樣品INVOICE.ATTN_cb.Text & "' ORDER BY ATTN"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一筆UPS()
        ConnOpen()
        SQL1 = "SELECT TOP(1) UPS FROM INVOICE樣品單 WHERE UPS LIKE N'" & 樣品INVOICE.UPS_tb.Text & "'  ORDER BY ATTN"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取寄出()
        ConnOpen()
        SQL1 = "SELECT 寄出 FROM 樣品訂單清單 WHERE 流水號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品訂單清單5()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單清單 SET  寄出 = N'" & KKOO & "' WHERE (流水號 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取INVOICE樣品單()
        ConnOpen()
        SQL1 = "SELECT  UPS FROM INVOICE樣品單 WHERE UPS LIKE N'" & 樣品INVOICE.UPS_tb.Text & "' AND 對應流水號 LIKE N'" & 樣品INVOICE.流水號_tb.Text & "' ORDER BY ATTN"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增INVOICE樣品單()
        ConnOpen()
        SQL1 = "INSERT INTO INVOICE樣品單 (UPS, ATTN, DATE, CARTON, G_S_F, PAIRS, UNIT, 對應流水號, HTS_CODE, 狀態) 
                            VALUES (N'" & 樣品INVOICE.UPS_tb.Text & "', N'" & 樣品INVOICE.ATTN_cb.Text & "', N'" & DTP & "', N'" & 樣品INVOICE.Custon_cb.Text & "', N'" & 樣品INVOICE.GenderSizeFoot_cb.Text &
                                "', N'" & 樣品INVOICE.本次寄出數_tb.Text & "', N'2', N'" & 樣品INVOICE.流水號_tb.Text & "', N'" & GGHH & "', N'" & 樣品進度表分類4 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除INVOICE樣品單1()
        ConnOpen()
        SQL1 = "DELETE FROM INVOICE樣品單 WHERE (UPS = N'" & 樣品INVOICE.UPS_tb.Text & "') AND (對應流水號 = N'" & 樣品INVOICE.流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取寄出1()
        ConnOpen()
        SQL1 = "SELECT 寄出 FROM 樣品訂單清單 WHERE 流水號 LIKE N'" & 樣品INVOICE.流水號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品訂單清單6()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單清單 SET  寄出 = N'" & KKOO & "' WHERE (流水號 LIKE N'" & 樣品INVOICE.流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品訂單部件表4()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單部件表 WHERE (SO LIKE N'" & 樣品單資料庫除錯_1.so_tb.Text & "' AND 流水號 LIKE N'" & 樣品單資料庫除錯_1.流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '-----------------------------------列印_樣品貼標---------------------------------------------------------------------------
    Friend Sub SQL_標籤1清單()
        ConnOpen()
        SQL1 = "SELECT SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ FROM 樣品訂單控制表 " &
               "WHERE SO LIKE N'" & 列印用SQL & "' AND 版次 LIKE N'" & 列印用SQL2 & "' ORDER BY SO DESC, 版次 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_標籤2清單()
        ConnOpen()
        SQL1 = "SELECT METOO選擇按鈕.選擇, 樣品訂單部件表.材料名稱, 樣品訂單部件表.材料說明 FROM 樣品訂單部件表 INNER JOIN 部件清單 ON 樣品訂單部件表.部件 = 部件清單.部件 LEFT OUTER JOIN " &
               "METOO選擇按鈕 ON 樣品訂單部件表.部件 = METOO選擇按鈕.對應 WHERE (SO LIKE N'" & 列印用SQL & "') AND (版次 LIKE N'" & 列印用SQL2 & "') AND (流水號 LIKE N'" & 列印_樣品貼標.流水號_tb.Text & "') " &
               "AND (部件清單.貼標對應名稱 LIKE N'" & 列印_樣品貼標.大項_cb.Text & "') ORDER BY   樣品訂單部件表.項次, 樣品訂單部件表.部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_顏色下拉清單()
        ConnOpen()
        SQL1 = "SELECT 顏色 FROM 樣品訂單清單 WHERE (SO LIKE N'" & 列印用SQL & "' AND 版次 LIKE N'" & 列印用SQL2 & "') ORDER BY 項次"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_貼標對應名稱下拉()
        ConnOpen()
        SQL1 = "SELECT 貼標對應名稱 FROM 貼標對應名稱清單"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品訂單清單連動()
        ConnOpen()
        SQL1 = "SELECT SIZE, 流水號 FROM 樣品訂單清單 WHERE (SO LIKE N'" & 列印用SQL & "' AND 版次 LIKE N'" & 列印用SQL2 & "' AND 顏色 LIKE N'" & 列印_樣品貼標.Color_cb.Text & "') ORDER BY 項次"
        CmdSet_For_dr()
    End Sub
End Module