WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/MyModule/SQL_量產訂單管理系�...

Module SQL_量產訂單管理系統
    Friend Sub SQL_訂單明細表抬頭清單()
        ConnOpen()
        If PA = "" Then : DDFF = "" : Else
            DDFF = " WHERE 訂單流水號 LIKE N'%" & PA & "%' OR 客戶訂單號 LIKE N'%" & PA & "%' OR ConstructionName LIKE N'%" & PA & "%' OR ModeOfDelivery LIKE N'%" & PA & "%' OR 
                           DeliveryTerms LIKE N'%" & PA & "%' OR OrgShipDate LIKE N'%" & PA & "%' OR FromPort LIKE N'%" & PA & "%' OR ToPort LIKE N'%" & PA & "%' OR 
                           ShippingCarrier LIKE N'%" & PA & "%' OR VendorReference LIKE N'%" & PA & "%' OR ModifiedDate LIKE N'%" & PA & "%' OR CustomerName LIKE N'%" & PA & "%' OR 
                           ShipDate LIKE N'%" & PA & "%' OR SalesOrder LIKE N'%" & PA & "%' OR DeliveryAddress LIKE N'%" & PA & "%' OR 下單日 LIKE N'%" & PA & "%' OR 交期 LIKE N'%" & PA & "%' OR 
                           ETADate LIKE N'%" & PA & "%' OR CreatedDate LIKE N'%" & PA & "%' OR Brand LIKE N'%" & PA & "%' OR CustomerRequisition LIKE N'%" & PA & "%' OR 工廠 LIKE N'%" & PA & "%' "
        End If
        SQL1 = "SELECT 訂單流水號, 客戶訂單號, ConstructionName, ModeOfDelivery, DeliveryTerms, OrgShipDate, FromPort, ToPort, 
                       ShippingCarrier, VendorReference, ModifiedDate, CustomerName, ShipDate, SalesOrder, DeliveryAddress, 下單日, 
                       交期, ETADate, CreatedDate, Brand, CustomerRequisition, 工廠
                FROM 訂單明細表抬頭  " & DDFF & " ORDER BY 訂單流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單顏色清單()
        ConnOpen()
        SQL1 = "SELECT     訂單顏色清單.顏色, METOO選擇按鈕.選擇 FROM  訂單顏色清單 LEFT OUTER JOIN  METOO選擇按鈕 ON 訂單顏色清單.顏色 = METOO選擇按鈕.對應
                WHERE      訂單顏色清單.顏色 LIKE N'%" & 量產訂單輸入.搜尋顏色_tb.Text & "%'
                ORDER BY   訂單顏色清單.顏色"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表清單()
        ConnOpen()
        SQL1 = "SELECT 資料流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 工廠回復交期 AS  工廠交期, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 
                       單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC AS 訂單屬性, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 
                       實際離廠日, 訂單流水號, 明細建檔, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 出貨地, 
                       楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 驗貨報告圖片
                FROM 訂單控制表 WHERE 訂單流水號 LIKE N'" & 量產訂單輸入.訂單流水號_tb.Text & "' ORDER BY 資料流水號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單明細表清單()
        ConnOpen()
        SQL1 = "SELECT 資料流水號, 客戶訂單號, ItemNumber, ProductName, Color, DM, [4], [4.5], [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], 訂單流水號
                FROM 訂單明細表 WHERE 訂單流水號 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_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_TOPORT()
        ConnOpen()
        SQL1 = "SELECT TOPORT FROM TOPORT ORDER BY TOPORT"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_REMARK()
        ConnOpen()
        SQL1 = "SELECT REMARK FROM DELIVERYADDRESS  ORDER BY REMARK"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工廠控制表1()
        ConnOpen()
        SQL1 = "SELECT 工廠 FROM 工廠控制表 GROUP BY 工廠 ORDER BY 工廠"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_型體號碼()
        ConnOpen()
        SQL1 = "SELECT 型體號碼 FROM 型體控制表 WHERE 客戶簡稱 LIKE N'" & PA33 & "' GROUP BY 型體號碼 ORDER BY 型體號碼"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_型體控制表2()
        ConnOpen()
        SQL1 = "SELECT 型體名稱 FROM 型體控制表 WHERE 型體號碼 LIKE N'" & PA33 & "' GROUP BY 型體名稱 ORDER BY 型體名稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_模具開發控制表3()
        ConnOpen()
        SQL1 = "SELECT CN FROM 模具開發控制表 WHERE (CN NOT LIKE '') GROUP BY CN ORDER BY   CN"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MTTOOCUST清單()
        ConnOpen()
        SQL1 = "SELECT  CUST FROM MTTOOCUST清單 ORDER BY CUST"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_DELIVERYADDRESS()
        ConnOpen()
        SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE DELIVERYADDRESS LIKE '" & 量產訂單輸入.備註3_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_工廠控制表2()
        ConnOpen()
        SQL1 = "SELECT 工廠, 供應商資料, 供應商地址 FROM 工廠控制表 WHERE 工廠 LIKE '" & 量產訂單輸入.工廠_cb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除訂單控制表()
        ConnOpen()
        SQL1 = "DELETE FROM 訂單控制表 WHERE (資料流水號 LIKE N'" & 量產訂單輸入.資料流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除訂單明細表()
        ConnOpen()
        SQL1 = "DELETE FROM 訂單明細表 WHERE (資料流水號 LIKE N'" & 量產訂單輸入.資料流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_第一筆訂單流水號()
        ConnOpen()
        SQL1 = "SELECT TOP (1)  訂單流水號 FROM 訂單控制表 WHERE ( 訂單流水號 LIKE '" & 量產訂單輸入.訂單流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單明細表抬頭()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單明細表抬頭 (客戶訂單號, 訂單流水號, ConstructionName, ModeOfDelivery, DeliveryTerms, OrgShipDate, FromPort, ToPort, 
                            ShippingCarrier, VendorReference, ModifiedDate, CustomerName, ShipDate, SalesOrder, DeliveryAddress, 下單日, 
                            交期, ETADate, CreatedDate, Brand, CustomerRequisition, 工廠) 
                    VALUES (N'" & 量產訂單輸入.客戶訂單號_tb.Text & "', N'" & 量產訂單輸入.訂單流水號_tb.Text & "', N'" & 量產訂單輸入.C_N_cb.Text & "', N'" & 量產訂單輸入.ModeOfDelivery_cb.Text & "', N'" & 量產訂單輸入.DeliveryTerms_cb.Text &
                        "', N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") &
                        "', N'" & 量產訂單輸入.FromPort_cb.Text & "', N'" & 量產訂單輸入.ToPort_cb.Text & "', N'', N'', N'" & Format(量產訂單輸入.下單日_dtp.Value, "yyyy/MM/dd") & "', N'" & 量產訂單輸入.客戶名稱_cb.Text &
                        "', N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") & "', N'', N'" & 量產訂單輸入.備註3_tb.Text &
                        "', N'" & Format(量產訂單輸入.下單日_dtp.Value, "yyyy/MM/dd") & "', N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") & "', N'', N'" & Format(量產訂單輸入.下單日_dtp.Value, "yyyy/MM/dd") &
                        "', N'" & 量產訂單輸入.客戶_cb.Text & "', N'', N'" & 量產訂單輸入.工廠_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料流水號()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 資料流水號 FROM 訂單控制表 GROUP BY 資料流水號 ORDER BY 資料流水號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單控制表 (訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX, 訂單數量, 客戶交期, 客戶交期1, 單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC, 
                                                    CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, 
                                                    LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 出貨地, TVW, 楦頭號, 
                                                    材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, APMA確認, 
                                                    驗貨報告圖片, 工廠回復交期) 
                        VALUES (N'" & 量產訂單輸入.訂單流水號_tb.Text & "', N'" & 量產訂單輸入.季節_cb.Text & "', N'" & 量產訂單輸入.客戶訂單號_tb.Text & "', N'" & 量產訂單輸入.型體號碼_cb.Text & "', N'" & 量產訂單輸入.型體名稱_cb.Text &
                            "', N'0', N'" & Format(量產訂單輸入.DateTimePicker3.Value, "yyyy/MM/dd") & "', N'" & Format(量產訂單輸入.DateTimePicker4.Value, "yyyy/MM/dd") &
                            "', N'0', N'0', N'', N'" & 量產訂單輸入.工廠_cb.Text & "', N'', N'" & 量產訂單輸入.客戶_cb.Text & "', N'" & 量產訂單輸入.訂單屬性_cb.Text &
                            "', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'" & 量產訂單輸入.資料流水號_tb.Text & "', N'1', N'', N'', N'0', N'', N'0', N'', N'', N'', N'', N'', N'', N'" &
                            "', N'" & 量產訂單輸入.DM_cb.Text & "', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'0', N'', N'', N'" & PA3 &
                            "', N'', N'" & Format(量產訂單輸入.DateTimePicker2.Value, "yyyy/MM/dd") & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單明細表()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單明細表 (訂單流水號, 客戶訂單號, ItemNumber, ProductName, Color, DM, [4], [4.5], [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], 資料流水號)
                        VALUES (N'" & 量產訂單輸入.訂單流水號_tb.Text & "', N'" & 量產訂單輸入.客戶訂單號_tb.Text & "', N'" & 量產訂單輸入.型體號碼_cb.Text & "', N'" & 量產訂單輸入.型體名稱_cb.Text & "', N'" & PA3 &
                                "', N'" & 量產訂單輸入.DM_cb.Text & "', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0" &
                                "', N'" & 量產訂單輸入.資料流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單明細表抬頭()
        ConnOpen()
        SQL1 = "UPDATE 訂單明細表抬頭 SET ModeOfDelivery = N'" & 量產訂單輸入.ModeOfDelivery_cb.Text & "', DeliveryTerms = N'" & 量產訂單輸入.DeliveryTerms_cb.Text & "', FromPort = N'" & 量產訂單輸入.FromPort_cb.Text & "', 
                                          ToPort = N'" & 量產訂單輸入.ToPort_cb.Text & "', 工廠 = N'" & 量產訂單輸入.工廠_cb.Text & "', DeliveryAddress = N'" & 量產訂單輸入.備註3_tb.Text & "', 
                                          交期 = N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") & "', ShipDate =  N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") & "', 
                                          OrgShipDate =  N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") & "', Brand = N'" & 量產訂單輸入.客戶_cb.Text & "'
                WHERE (訂單流水號 LIKE N'" & 量產訂單輸入.訂單流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 訂單數量 = N'" & PA4 & "', 客戶交期 = N'" & PA5 &
                                     "', 客戶交期1 = N'" & PA6 & "', 備註 = N'" & PA7 &
                                     "', 工廠回復交期 = N'" & PA8 & "', BUYER = N'" & PA9 &
                                     "', CFMSPEC = N'" & 量產訂單輸入.訂單屬性_cb.Text & "', APMA確認 = N'" & PA10 & "', 生產工廠 = N'" & 量產訂單輸入.工廠_cb.Text & "' 
                    WHERE (資料流水號 LIKE N'" & PA11 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單明細表()
        ConnOpen()
        SQL1 = "UPDATE 訂單明細表 SET [4] = N'" & PA12 & "', [4.5] = N'" & PA13 &
                                      "', [5] = N'" & PA14 & "', [5.5] = N'" & PA15 &
                                      "', [6] = N'" & PA16 & "', [6.5] = N'" & PA17 &
                                      "', [7] = N'" & PA18 & "', [7.5] = N'" & PA19 &
                                      "', [8] = N'" & PA20 & "', [8.5] = N'" & PA21 &
                                      "', [9] = N'" & PA22 & "', [9.5] = N'" & PA23 &
                                      "', [10] = N'" & PA24 & "', [10.5] = N'" & PA25 &
                                      "', [11] = N'" & PA26 & "', [11.5] = N'" & PA27 &
                                      "', [12] = N'" & PA28 & "', [12.5] = N'" & PA29 &
                                      "', [13] = N'" & PA30 & "', [14] = N'" & PA31 &
                                      "', Color = N'" & PA32 & "'
                    WHERE (資料流水號 LIKE N'" & PA33 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改訂單控制表()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 型體號碼 = N'" & 量產訂單輸入.型體號碼_cb.Text & "', GOODBOX = N'" & 量產訂單輸入.型體名稱_cb.Text & "' WHERE 資料流水號 LIKE '" & 量產訂單輸入.資料流水號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改訂單明細表()
        ConnOpen()
        SQL1 = "UPDATE 訂單明細表 SET ItemNumber = N'" & 量產訂單輸入.型體號碼_cb.Text & "', ProductName = N'" & 量產訂單輸入.型體名稱_cb.Text & "' WHERE 資料流水號 LIKE '" & 量產訂單輸入.資料流水號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    '----------------------------量產訂單控制表---------------------------------------------------------------
    Friend Sub SQL_控制表清單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT  訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 工廠回復交期 AS 工廠交期, 客戶交期 AS 交期開始, 
                            客戶交期1 AS 交期結束, 單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC AS 訂單屬性, 明細建檔, 材質, 東莞業務備註, LEATHER AS 手剪全套, LEA_Note AS 斬刀全套, 
                            面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 工廠進度表備註1 AS 驗貨結果, 工廠進度表備註2 AS 工廠備註, 
                            資料流水號, 實際離廠日, 出貨數量, CXL, CXLTime, 驗貨報告圖片,
                            CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 貼標時間, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, 
                            Special_Packaging, Remarks, 出貨地, 楦頭號, 長期試穿, 七號模具, 國標測試, 客戶包裝確認, 驗報圖庫
                    FROM 訂單控制表  
                    WHERE ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)
                    ORDER BY 訂單流水號 DESC, 型體號碼, APMA確認, TVW"
        Else
            SQL1 = "SELECT  訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 工廠回復交期 AS 工廠交期, 客戶交期 AS 交期開始, 
                            客戶交期1 AS 交期結束, 單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC AS 訂單屬性, 明細建檔, 材質, 東莞業務備註, LEATHER AS 手剪全套, LEA_Note AS 斬刀全套, 
                            面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 工廠進度表備註1 AS 驗貨結果, 工廠進度表備註2 AS 工廠備註, 
                            資料流水號, 實際離廠日, 出貨數量, CXL, CXLTime, 驗貨報告圖片,
                            CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 貼標時間, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, 
                            Special_Packaging, Remarks, 出貨地, 楦頭號, 長期試穿, 七號模具, 國標測試, 客戶包裝確認, 驗報圖庫
                    FROM 訂單控制表
                    WHERE ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0) AND 
                         (訂單流水號 LIKE N'%" & PA & "%' OR 年份季度 LIKE N'%" & PA & "%' OR 客戶訂單號 LIKE N'%" & PA & "%' OR 型體號碼 LIKE N'%" & PA & "%' OR GOODBOX LIKE N'%" & PA & "%' OR 
                          APMA確認 LIKE N'%" & PA & "%' OR TVW LIKE N'%" & PA & "%' OR 訂單數量 LIKE N'%" & PA & "%' OR 客戶交期 LIKE N'%" & PA & "%' OR 客戶交期1 LIKE N'%" & PA & "%' OR 
                          備註 LIKE N'%" & PA & "%' OR 生產工廠 LIKE N'%" & PA & "%' OR 訂單種類 LIKE N'%" & PA & "%' OR BUYER LIKE N'%" & PA & "%' OR CFMSPEC LIKE N'%" & PA & "%')
                    ORDER BY 訂單流水號 DESC, 型體號碼, APMA確認, TVW"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_刪除貨款匯入出款明細表()
        ConnOpen()
        SQL1 = "DELETE FROM 貨款匯入出款明細表 WHERE (出貨數量 = 0)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_鞋型圖片資料庫一張圖片()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & PA & "'  AND 類別 LIKE N'設計圖'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_驗貨報告()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除訂單明細表抬頭()
        ConnOpen()
        SQL1 = "DELETE FROM 訂單明細表抬頭 WHERE (訂單流水號 LIKE N'" & 量產訂單控制表.訂單流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除訂單控制表1()
        ConnOpen()
        SQL1 = "DELETE FROM 訂單控制表 WHERE (訂單流水號 LIKE N'" & 量產訂單控制表.訂單流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除訂單明細表1()
        ConnOpen()
        SQL1 = "DELETE FROM 訂單明細表 WHERE (訂單流水號 LIKE N'" & 量產訂單控制表.訂單流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表1()
        ConnOpen()
        If 量產訂單控制表.整張訂單CXL_ch.Checked = False Then
            SQL1 = "UPDATE 訂單控制表 SET CXL = '1', CXLTime = '" & Format(Today, "yyyy/MM/dd") & "' WHERE (資料流水號 = '" & 量產訂單控制表.資料流水號_tb.Text & "')"
        ElseIf 量產訂單控制表.整張訂單CXL_ch.Checked = True Then
            SQL1 = "UPDATE 訂單控制表 SET CXL = '1', CXLTime = '" & Format(Today, "yyyy/MM/dd") & "' WHERE (訂單流水號 = '" & 量產訂單控制表.訂單流水號_tb.Text & "')"
        End If
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_次清單()
        ConnOpen()
        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 
                                       單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 
                                       驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, 
                                       Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 
                                       驗貨報告圖片 FROM 訂單控制表 
                                WHERE (資料流水號 = '" & 量產訂單控制表.資料流水號_tb.Text & "') AND (CXL <> 1)"
        CmdSet_For_DGV()
    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 ('" & ESTR & "','" & PA2 & "','" & PA3 &
                           "','" & PA4 & "','" & PA5 &
                           "','" & PA6 & "','" & PA7 &
                           "','" & PA8 & "','" & PA9 &
                           "','" & 量產訂單控制表.出貨數量_tb.Text & "', '', '" & Format(量產訂單控制表.時間_dtp.Value, "yyyy/MM/dd") & "', '', '', '')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表3()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = '" & Format(量產訂單控制表.時間_dtp.Value, "yyyy/MM/dd") & "', 出貨數量 = '" & EDRW & "' " &
                           "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_新增貨款匯入出款明細表2()
        ConnOpen()
        SQL1 = "INSERT INTO 貨款匯入出款明細表 (貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 出貨數量, " &
                           "工廠價格, 實際離廠日, 匯款時間, 入帳時間, 貨款備註) " &
                           "VALUES ('" & ESTR & "','" & PA10 & "','" & PA11 &
                           "','" & PA12 & "','" & PA13 &
                           "','" & PA14 & "','" & PA15 &
                           "','" & PA16 & "','" & PA17 &
                           "','" & EDRW & "', '', '" & Format(量產訂單控制表.時間_dtp.Value, "yyyy/MM/dd") & "', '', '', '')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改訂單控制表1()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = '" & Format(量產訂單控制表.時間_dtp.Value, "yyyy/MM/dd") & "', 出貨數量 = 訂單數量 " &
                       "WHERE (訂單流水號 = '" & 量產訂單控制表.訂單流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增貨款匯入出款明細表3()
        ConnOpen()
        SQL1 = "INSERT INTO 貨款匯入出款明細表 (貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 出貨數量, " &
                       "工廠價格, 實際離廠日, 匯款時間, 入帳時間, 貨款備註) " &
                       "VALUES ('" & ESTR & "','" & PA18 & "','" & PA19 &
                       "','" & PA20 & "','" & PA21 &
                       "','" & PA22 & "','" & PA23 &
                       "','" & PA24 & "','" & PA25 &
                       "','" & PA26 & "', '', '" & Format(量產訂單控制表.時間_dtp.Value, "yyyy/MM/dd") & "', '', '', '')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表2()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = '" & Format(量產訂單控制表.時間_dtp.Value, "yyyy/MM/dd") & "', 出貨數量 = '" & PA27 & "' " &
                       "WHERE (資料流水號 = '" & PA28 & "')"
        CmdSet_For_dr()
    End Sub
    '----------------------------------------量產生產進度表---------------------------------------------------------
    Friend Sub SQL_量產生產進度表清單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT  訂單明細表抬頭.下單日 AS 接單日, 訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 
                            訂單控制表.GOODBOX AS 型體名稱, 訂單控制表.型體號碼, 訂單控制表.年份季度, 訂單控制表.TVW AS 楦型, 
                            訂單控制表.APMA確認 AS 顏色, 訂單控制表.訂單數量, 訂單控制表.工廠回復交期 AS 最後交期, 訂單控制表.BUYER, 
                            訂單控制表.材質, 訂單控制表.東莞業務備註, 訂單控制表.LEATHER AS 手剪全套, 訂單控制表.LEA_Note AS 斬刀全套, 
                            訂單控制表.面料, 訂單控制表.副料, 訂單控制表.中底, 訂單控制表.鞋墊, 訂單控制表.大底, 訂單控制表.跟, 
                            訂單控制表.包裝確認時間 AS 包裝, 訂單控制表.裁斷時間 AS 裁斷, 訂單控制表.針車時間 AS 針車, 
                            訂單控制表.成型時間 AS 成形, 訂單控制表.驗貨時間 AS 驗貨, 訂單控制表.工廠進度表備註1 AS 驗貨結果, 
                            訂單控制表.工廠進度表備註2 AS 工廠備註, 訂單控制表.驗貨報告圖片, 訂單控制表.驗報圖庫
                    FROM    訂單控制表 LEFT OUTER JOIN
                            訂單明細表抬頭 ON 訂單控制表.客戶訂單號 = 訂單明細表抬頭.客戶訂單號 AND 
                            訂單控制表.訂單流水號 = 訂單明細表抬頭.訂單流水號
                    WHERE  (訂單控制表.CXL = 0 OR 訂單控制表.CXL IS NULL) AND (訂單控制表.訂單數量 - 訂單控制表.出貨數量 <> 0) AND 
                           (訂單控制表.年份季度 LIKE '%" & 量產生產進度表.季節_cb.Text & "%') AND (訂單控制表.型體號碼 LIKE '%" & 量產生產進度表.型體號碼_cb.Text & "%') AND 
                           (訂單控制表.生產工廠 LIKE '%" & 量產生產進度表.工廠_cb.Text & "%') AND (訂單控制表.GOODBOX LIKE '%" & 量產生產進度表.型體名稱_cb.Text & "%') AND 
                           (訂單控制表.BUYER LIKE '%" & 量產生產進度表.客戶_cb.Text & "%')
                    ORDER BY   訂單控制表.訂單流水號 DESC, 訂單控制表.客戶交期1, 訂單控制表.型體號碼, 顏色, 楦型"
        Else
            SQL1 = "SELECT  訂單明細表抬頭.下單日 AS 接單日, 訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 
                            訂單控制表.GOODBOX AS 型體名稱, 訂單控制表.型體號碼, 訂單控制表.年份季度, 訂單控制表.TVW AS 楦型, 
                            訂單控制表.APMA確認 AS 顏色, 訂單控制表.訂單數量, 訂單控制表.工廠回復交期 AS 最後交期, 訂單控制表.BUYER, 
                            訂單控制表.材質, 訂單控制表.東莞業務備註, 訂單控制表.LEATHER AS 手剪全套, 訂單控制表.LEA_Note AS 斬刀全套, 
                            訂單控制表.面料, 訂單控制表.副料, 訂單控制表.中底, 訂單控制表.鞋墊, 訂單控制表.大底, 訂單控制表.跟, 
                            訂單控制表.包裝確認時間 AS 包裝, 訂單控制表.裁斷時間 AS 裁斷, 訂單控制表.針車時間 AS 針車, 
                            訂單控制表.成型時間 AS 成形, 訂單控制表.驗貨時間 AS 驗貨, 訂單控制表.工廠進度表備註1 AS 驗貨結果, 
                            訂單控制表.工廠進度表備註2 AS 工廠備註, 訂單控制表.驗貨報告圖片, 訂單控制表.驗報圖庫
                    FROM    訂單控制表 LEFT OUTER JOIN
                            訂單明細表抬頭 ON 訂單控制表.客戶訂單號 = 訂單明細表抬頭.客戶訂單號 AND 
                            訂單控制表.訂單流水號 = 訂單明細表抬頭.訂單流水號
                    WHERE ((訂單控制表.CXL = 0 OR 訂單控制表.CXL IS NULL) AND (訂單控制表.訂單數量 - 訂單控制表.出貨數量 <> 0)) AND ((訂單控制表.訂單流水號 LIKE '%" & PA & "%') OR 
                           (訂單控制表.年份季度 LIKE '%" & PA & "%') OR (訂單控制表.客戶訂單號 LIKE '%" & PA & "%') OR (訂單控制表.型體號碼 LIKE '%" & PA & "%') OR 
                           (訂單控制表.APMA確認 LIKE '%" & PA & "%') OR (訂單控制表.TVW LIKE '%" & PA & "%') OR (訂單控制表.生產工廠 LIKE '%" & PA & "%') OR (訂單控制表.訂單種類 LIKE '%" & PA & "%'))
                    ORDER BY   訂單控制表.訂單流水號 DESC, 訂單控制表.客戶交期1, 訂單控制表.型體號碼, 顏色, 楦型"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_圖片1()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_森康列印清單()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 Set LEATHER = N'" & PA & "', " &
                                            "LEA_Note = N'" & PA1 & "', " &
                                                "面料 = N'" & PA2 & "', " &
                                                "副料 = N'" & PA3 & "', " &
                                                "中底 = N'" & PA4 & "', " &
                                                "鞋墊 = N'" & PA5 & "', " &
                                                "大底 = N'" & PA6 & "', " &
                                                  "跟 = N'" & PA7 & "', " &
                                        "包裝確認時間 = N'" & PA8 & "', " &
                                            "裁斷時間 = N'" & PA9 & "', " &
                                            "針車時間 = N'" & PA10 & "', " &
                                            "成型時間 = N'" & PA11 & "', " &
                                            "驗貨時間 = N'" & PA12 & "', " &
                                     "工廠進度表備註1 = N'" & PA13 & "', " &
                                     "工廠進度表備註2 = N'" & PA14 & "' " &
                       "WHERE (客戶訂單號 LIKE N'" & PA15 & "') AND (GOODBOX LIKE N'" & PA16 & "') AND (APMA確認 LIKE N'" & PA17 & "') " &
                       "AND (TVW LIKE N'" & PA18 & "') AND (訂單數量 = " & PA19 & ")  AND (型體號碼 LIKE N'" & PA20 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_巨益列印清單()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 Set 材質 = N'" & PA21 & "', " &
                                     "東莞業務備註 = N'" & PA22 & "',
                        WHERE (客戶訂單號 LIKE N'" & PA23 & "') AND (GOODBOX LIKE N'" & PA24 & "') AND (APMA確認 LIKE N'" & PA25 & "') AND 
                              (TVW LIKE N'" & PA26 & "') AND (訂單數量 = " & PA27 & ")  AND (型體號碼 LIKE N'" & PA28 & "')"
        CmdSet_For_dr()
    End Sub
    '--------------------------------CXL訂單紀錄表--------------------------
    Friend Sub SQL_CXL訂單紀錄表單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT TOP(500) 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 單價, 總金額, 備註, 生產工廠, 
                       訂單種類, BUYER, CFMSPEC AS 訂單種類, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, 
                       CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 
                       七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 驗貨報告圖片
                    FROM 訂單控制表  
                    WHERE  CXL = '1'
                    ORDER BY 訂單流水號, 型體號碼, APMA確認, TVW"
        Else
            SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 單價, 總金額, 備註, 生產工廠, 
                       訂單種類, BUYER, CFMSPEC AS 訂單種類, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, 
                       CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 
                       七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 驗貨報告圖片
                    FROM 訂單控制表
                    WHERE (CXL = '1') AND 
                         (訂單流水號 LIKE N'" & PA & "' OR 年份季度 LIKE N'" & PA & "' OR 客戶訂單號 LIKE N'" & PA & "' OR 型體號碼 LIKE N'" & PA & "' OR GOODBOX LIKE N'" & PA & "' OR APMA確認 LIKE N'" & PA &
                       "' OR TVW LIKE N'" & PA & "' OR 訂單數量 LIKE N'" & PA & "' OR 客戶交期 LIKE N'" & PA & "' OR 客戶交期1 LIKE N'" & PA & "' OR 備註 LIKE N'" & PA & "' OR 生產工廠 LIKE N'" & PA &
                       "' OR 訂單種類 LIKE N'" & PA & "' OR BUYER LIKE N'" & PA & "' OR CFMSPEC LIKE N'" & PA & "')
                    ORDER BY 訂單流水號, 型體號碼, APMA確認, TVW"
        End If
        CmdSet_For_DGV()
    End Sub
    '----------------------------------- 量產出貨明細表單()--------------------------------
    Friend Sub SQL_量產出貨明細表單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT  貨款匯入出款明細表.貨款流水號, 貨款匯入出款明細表.訂單流水號, 貨款匯入出款明細表.年份季度, 
                            貨款匯入出款明細表.客戶訂單號, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 
                            貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 訂單控制表.備註, 
                            訂單控制表.生產工廠, 訂單控制表.訂單種類, 訂單控制表.工廠回復交期, 訂單控制表.客戶交期 AS 交期開始, 
                            訂單控制表.客戶交期1 AS 交期結束, 貨款匯入出款明細表.實際離廠日, 訂單控制表.明細建檔, 
                            訂單控制表.驗貨報告圖片, 貨款匯入出款明細表.資料流水號, 訂單控制表.驗報圖庫
                    FROM    貨款匯入出款明細表 LEFT OUTER JOIN 訂單控制表 ON 貨款匯入出款明細表.資料流水號 = 訂單控制表.資料流水號 
                   " & kkk1 & kkk2 & kkk3 & kkk4 & kkk5 & kkk6 & "" &
                   "ORDER BY 貨款匯入出款明細表.訂單流水號 DESC, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 貨款匯入出款明細表.楦型"
        Else
            SQL1 = "SELECT  貨款匯入出款明細表.貨款流水號, 貨款匯入出款明細表.訂單流水號, 貨款匯入出款明細表.年份季度, 
                            貨款匯入出款明細表.客戶訂單號, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 
                            貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 訂單控制表.備註, 
                            訂單控制表.生產工廠, 訂單控制表.訂單種類, 訂單控制表.工廠回復交期, 訂單控制表.客戶交期 AS 交期開始, 
                            訂單控制表.客戶交期1 AS 交期結束, 貨款匯入出款明細表.實際離廠日, 訂單控制表.明細建檔, 
                            訂單控制表.驗貨報告圖片, 貨款匯入出款明細表.資料流水號, 訂單控制表.驗報圖庫
                    FROM    貨款匯入出款明細表 LEFT OUTER JOIN 訂單控制表 ON 貨款匯入出款明細表.資料流水號 = 訂單控制表.資料流水號
                   " & kkk1 & kkk2 & kkk3 & kkk4 & kkk5 & kkk6 & "
                     AND (貨款匯入出款明細表.訂單流水號 LIKE '%" & PA & "%' OR 貨款匯入出款明細表.客戶訂單號 LIKE '%" & PA & "%' OR 貨款匯入出款明細表.形體號 LIKE '%" & PA & "%' 
                          OR 貨款匯入出款明細表.顏色 LIKE '%" & PA & "%' OR 貨款匯入出款明細表.楦型 LIKE '%" & PA & "%' OR 訂單控制表.備註 LIKE '%" & PA & "%') " &
                   "ORDER BY 貨款匯入出款明細表.訂單流水號 DESC, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 貨款匯入出款明細表.楦型"
        End If

        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_季節清單1()
        ConnOpen()
        SQL1 = "SELECT SEASON FROM 季節清單 ORDER BY SEASON DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表4()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = N'" & Format(量產出貨明細表.實際離場_dtp.Value, "yyyy/MM/dd") & "' WHERE 資料流水號 LIKE N'" & 量產出貨明細表.資料流水號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_貨款匯入出款明細表()
        ConnOpen()
        SQL1 = "UPDATE 貨款匯入出款明細表 SET 實際離廠日 = N'" & Format(量產出貨明細表.實際離場_dtp.Value, "yyyy/MM/dd") & "' WHERE 資料流水號 LIKE N'" & 量產出貨明細表.資料流水號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    '-------------------------------------------------------量產訂單明細表-------------------------------------------------
    Friend Sub SQL_基本資料載入()
        ConnOpen()
        SQL1 = "SELECT 訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠, 工廠控制表.供應商資料, 工廠控制表.供應商地址, " &
                   "SUM(訂單控制表.訂單數量) AS 訂單數量 FROM 訂單控制表 INNER JOIN 工廠控制表 ON 訂單控制表.生產工廠 = 工廠控制表.工廠 " &
                   "WHERE (訂單控制表.訂單流水號 LIKE '" & 量產訂單明細表.訂單號_tb.Text & "') " &
                   "GROUP BY 訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠, 工廠控制表.供應商資料, 工廠控制表.供應商地址"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_訂單清單()
        ConnOpen()
        SQL1 = "SELECT      訂單明細表.訂單流水號, 訂單明細表.客戶訂單號, 訂單明細表.ItemNumber, 訂單控制表.GOODBOX AS ProductName, 
                            訂單明細表.Color, 訂單明細表.DM, 訂單明細表.[4], 訂單明細表.[4.5], 訂單明細表.[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], 
                            訂單明細表.[4] + 訂單明細表.[4.5] + 訂單明細表.[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        訂單明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單明細表.資料流水號 = 訂單控制表.資料流水號
                WHERE      (訂單明細表.客戶訂單號 LIKE N'" & 量產訂單明細表.Number_tb.Text & "') AND (訂單明細表.訂單流水號 LIKE N'" & 量產訂單明細表.訂單號_tb.Text & "')
                ORDER BY   資料流水號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單清單1()
        ConnOpen()
        SQL1 = "SELECT      訂單明細表.訂單流水號, 訂單明細表.客戶訂單號, 訂單明細表.ItemNumber, 訂單控制表.GOODBOX AS ProductName, 
                            訂單明細表.Color, 訂單明細表.DM, 訂單明細表.[4], 訂單明細表.[4.5], 訂單明細表.[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], 
                            訂單明細表.[4] + 訂單明細表.[4.5] + 訂單明細表.[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        訂單明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單明細表.資料流水號 = 訂單控制表.資料流水號
                WHERE      (訂單明細表.客戶訂單號 LIKE N'" & 量產訂單明細表.Number_tb.Text & "') AND (訂單明細表.訂單流水號 LIKE N'" & 量產訂單明細表.訂單號_tb.Text & "')
                ORDER BY   ProductName, 訂單明細表.Color"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單附件資料()
        ConnOpen()
        SQL1 = "SELECT 訂單流水號, 附件數 FROM 訂單附件資料 WHERE 訂單流水號 LIKE N'" & 量產訂單明細表.訂單號_tb.Text & "' ORDER BY 附件數"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表1()
        ConnOpen()
        SQL1 = "SELECT  資料流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 工廠回復交期 AS 工廠交期, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 
                        單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 
                        訂單流水號, 明細建檔, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 
                        面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 驗貨報告圖片
                FROM    訂單控制表 WHERE 訂單流水號 LIKE N'" & 量產訂單明細表.訂單號_tb.Text & "' ORDER BY 資料流水號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_客戶控制表()
        ConnOpen()
        SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢資料()
        ConnOpen()
        SQL1 = "SELECT 訂單明細表抬頭.客戶訂單號, 訂單明細表抬頭.訂單流水號, 訂單明細表抬頭.ModeOfDelivery, 訂單明細表抬頭.DeliveryTerms, 訂單明細表抬頭.OrgShipDate, " &
                   "訂單明細表抬頭.FromPort, 訂單明細表抬頭.ToPort, 訂單明細表抬頭.ShippingCarrier, 訂單明細表抬頭.VendorReference, 訂單明細表抬頭.ModifiedDate, 訂單明細表抬頭.CustomerName, " &
                   "訂單明細表抬頭.ShipDate, 訂單明細表抬頭.SalesOrder, 訂單明細表抬頭.DeliveryAddress, 訂單明細表抬頭.下單日, 訂單明細表抬頭.交期, 訂單明細表抬頭.ETADate, 訂單明細表抬頭.CreatedDate, " &
                   "訂單明細表抬頭.Brand, 訂單明細表抬頭.CustomerRequisition, DELIVERYADDRESS.REMARK FROM 訂單明細表抬頭 INNER JOIN DELIVERYADDRESS ON 訂單明細表抬頭.DeliveryAddress = " &
                   "DELIVERYADDRESS.DELIVERYADDRESS WHERE (訂單明細表抬頭.客戶訂單號 LIKE '" & 量產訂單明細表.Number_tb.Text & "') AND (訂單明細表抬頭.訂單流水號 LIKE '" & 量產訂單明細表.訂單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆鞋型圖片資料庫1()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & PA5 & "'  AND 類別 LIKE N'設計圖'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆鞋型圖片資料庫2()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & PA5 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆鞋型圖片資料庫3()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & PA5 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆訂單附件資料()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 訂單附件資料 WHERE 訂單流水號 LIKE N'" & PA6 & "' AND 附件數 LIKE N'" & PA7 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆鞋型圖片資料庫4()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & PA6 & "'  AND 類別 LIKE N'設計圖'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆鞋型圖片資料庫5()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & PA6 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆鞋型圖片資料庫6()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & PA6 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_DELIVERYADDRESS2()
        ConnOpen()
        SQL1 = "SELECT DELIVERYADDRESS FROM DELIVERYADDRESS WHERE REMARK LIKE '" & 量產訂單明細表.Remark_cb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改訂單明細表抬頭()
        ConnOpen()
        SQL1 = "UPDATE 訂單明細表抬頭 SET ModeOfDelivery = N'" & 量產訂單明細表.Delivery_cb.Text & "', DeliveryTerms = N'" & 量產訂單明細表.Terms_cb.Text & "', FromPort = N'" & 量產訂單明細表.FromPort_cb.Text & "', ToPort = N'" & 量產訂單明細表.ToPort_cb.Text & "', 
                                          工廠 = N'" & 量產訂單明細表.工廠_tb.Text & "', DeliveryAddress = N'" & 量產訂單明細表.DeliveryAddress_tb.Text & "', CustomerRequisition = N'" & 量產訂單明細表.CustomerRequisition_tb.Text & "', OrgShipDate = N'" & DTPs(1) & "', 
                                          ShippingCarrier = N'" & 量產訂單明細表.ShippingCarrier_tb.Text & "', VendorReference = N'" & 量產訂單明細表.VendorReference_tb.Text & "', ModifiedDate = N'" & DTPs(2) & "', ShipDate = N'" & DTPs(3) & "', 
                                          SalesOrder = N'" & 量產訂單明細表.SalesOrder_tb.Text & "', CustomerName = N'" & 量產訂單明細表.CustomerName_tb.Text & "', 下單日 = N'" & DTPs(4) & "', 交期 = N'" & DTPs(5) & "', ETADate = N'" & DTPs(6) & "', 
                                          CreatedDate = N'" & DTPs(0) & "', Brand = N'" & 量產訂單明細表.Brand_cb.Text & "'
                WHERE (訂單流水號 LIKE N'" & 量產訂單明細表.訂單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改訂單控制表5()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 訂單數量 = N'" & PA8 & "', 客戶交期 = N'" & PA9 &
                                     "', 客戶交期1 = N'" & PA10 & "', 備註 = N'" & PA11 &
                                     "', 工廠回復交期 = N'" & PA12 & "', BUYER = N'" & PA13 & "'
                    WHERE (資料流水號 LIKE N'" & PA14 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改訂單明細表1()
        ConnOpen()
        SQL1 = "UPDATE 訂單明細表 SET [4] = N'" & PA15 & "', [4.5] = N'" & PA16 &
                                      "', [5] = N'" & PA17 & "', [5.5] = N'" & PA18 &
                                      "', [6] = N'" & PA19 & "', [6.5] = N'" & PA20 &
                                      "', [7] = N'" & PA21 & "', [7.5] = N'" & PA22 &
                                      "', [8] = N'" & PA23 & "', [8.5] = N'" & PA24 &
                                      "', [9] = N'" & PA25 & "', [9.5] = N'" & PA26 &
                                      "', [10] = N'" & PA27 & "', [10.5] = N'" & PA28 &
                                      "', [11] = N'" & PA29 & "', [11.5] = N'" & PA30 &
                                      "', [12] = N'" & PA31 & "', [12.5] = N'" & PA32 &
                                      "', [13] = N'" & PA33 & "', [14] = N'" & PA7 & "'
                    WHERE (資料流水號 LIKE N'" & PA4 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_訂單附件資料1()
        ConnOpen()
        SQL1 = "SELECT 附件數 FROM 訂單附件資料 WHERE 訂單流水號 LIKE N'" & 量產訂單明細表.訂單號_tb.Text & "' ORDER BY 附件數 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單附件資料()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單附件資料 (訂單流水號, 附件數, 圖片) SELECT N'" & 量產訂單明細表.訂單號_tb.Text & "',N'" & 量產訂單明細表.TextBox3.Text & "',
                                          BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(1) & "\" & 量產訂單明細表.TextBox4.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_訂單附件資料3()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 訂單附件資料 WHERE 訂單流水號 LIKE N'" & 量產訂單明細表.訂單號_tb.Text & "' AND 附件數 LIKE N'" & 量產訂單明細表.TextBox3.Text & "'"
        CmdSet_For_dr()
    End Sub
End Module