WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/MyModule/SQL_成本管理系統.vb

Module SQL_成本管理系統
    Friend Sub SQL_成本資料庫管理表單()
        ConnOpen()
        SQL1 = "SELECT     訂單控制表.BUYER, 訂單控制表.年份季度, 訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 訂單控制表.型體號碼, 訂單控制表.GOODBOX AS 型體名稱, 
                           訂單控制表.APMA確認 AS 顏色, 訂單控制表.TVW AS 楦型, 訂單控制表.訂單數量, 訂單控制表.客戶交期 AS 交期開始, 訂單控制表.客戶交期1 AS 交期結束, 訂單控制表.單價, 
                           訂單控制表.總金額 AS 銷售金額, 訂單控制表.備註, 訂單控制表.生產工廠, 訂單控制表.資料流水號, 訂單價格利潤明細表.Quantity, 訂單價格利潤明細表.Currency, 
                           訂單價格利潤明細表.Exchange, 訂單價格利潤明細表.Price, 訂單價格利潤明細表.Discount_price AS [Discount price], 
                           訂單價格利潤明細表.Commercial_invoice AS [Commercial invoice], 訂單價格利潤明細表.Overage_invoice AS [Overage invoice], 
                           訂單價格利潤明細表.Selling_price AS [Selling price], 訂單價格利潤明細表.HTS_code AS [HTS code], 訂單價格利潤明細表.Remark1, 
                           訂單價格利潤明細表.Fty_price AS [Fty price], 訂單價格利潤明細表.Mold_cost AS [Mold cost], 訂單價格利潤明細表.Collected_mold_cost AS [Collected mold cost], 
                           訂單價格利潤明細表.Amortization_qty AS [Amortization qty], 訂單價格利潤明細表.Profit, 訂單價格利潤明細表.Commission, 訂單價格利潤明細表.Remark2, 
                           訂單價格利潤明細表.Price AS 客戶付款, 訂單價格利潤明細表.Price AS 未收款項, 訂單價格利潤明細表.Price AS 預收款項, 訂單價格利潤明細表.Price AS 成本金額, 
                           訂單價格利潤明細表.Price AS 利潤, 訂單價格利潤明細表.Price AS 實際收款, 訂單價格利潤明細表.年份, 訂單價格利潤表暫存檔.利潤表流水號, 訂單價格利潤明細表.審核
                FROM       訂單控制表 INNER JOIN 訂單價格利潤表暫存檔 ON 訂單控制表.資料流水號 = 訂單價格利潤表暫存檔.資料流水號 LEFT OUTER JOIN
                           訂單價格利潤明細表 ON 訂單控制表.資料流水號 = 訂單價格利潤明細表.資料流水號
                WHERE (訂單價格利潤明細表.年份 LIKE '" & 成本資料庫管理.年份_cb.Text & "') AND (訂單控制表.CXL IS NULL OR 訂單控制表.CXL = 0) AND (訂單控制表.訂單流水號 IS NULL) 
                ORDER BY   訂單控制表.訂單流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單價格利潤明細表()
        ConnOpen()
        SQL1 = "SELECT 資料流水號, 訂單流水號, 客戶流水號, 年份, 利潤表流水號 FROM 訂單價格利潤明細表 WHERE (利潤表流水號 LIKE '" & 成本資料庫管理.利潤表流水號_tb.Text & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單價格利潤明細表1()
        ConnOpen()
        SQL1 = "SELECT 訂單價格利潤明細表.資料流水號, 訂單價格利潤明細表.天盾訂單號, 訂單價格利潤明細表.客戶流水號, 訂單價格利潤明細表.年份, 訂單價格利潤明細表.利潤表流水號, 訂單控制表.形體號, " &
                   "訂單控制表.顏色, 訂單控制表.楦型 FROM 訂單價格利潤明細表 LEFT OUTER JOIN 訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號 " &
                   "WHERE (訂單價格利潤明細表.天盾訂單號 LIKE '" & 成本資料庫管理.訂單流水號_tb.Text & "') ORDER BY 訂單控制表.形體號, 訂單控制表.顏色, 訂單控制表.楦型"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表單1()
        ConnOpen()
        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型 FROM 訂單控制表 WHERE (訂單流水號 LIKE '" & 成本資料庫管理.訂單流水號_tb.Text & "') ORDER BY   形體號, 顏色, 楦型"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單明細表()
        ConnOpen()
        SQL1 = "SELECT 天盾流水號, 客戶訂單號, ItemNumber, ProductName, ProductDescription, Color, DM FROM 訂單明細表 WHERE (天盾流水號 LIKE '" & 成本資料庫管理.訂單流水號_tb.Text & "') ORDER BY   ProductName, Color, DM"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表()
        ConnOpen()
        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型 FROM 訂單控制表 WHERE (資料流水號 LIKE '" & 成本資料庫管理.資料流水號_tb.Text & "') ORDER BY   形體號, 顏色, 楦型"
        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 = "DELETE FROM 訂單價格利潤表暫存檔"
        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 ('" & PA4 & "','" & WW & "', '" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單價格利潤表暫存檔1()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) " &
                   "VALUES ('" & PA6 & "','" & WW & "', '" & PA7 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_未建檔清單()
        ConnOpen()
        SQL1 = "SELECT          訂單控制表.訂單流水號
                FROM            訂單控制表 FULL OUTER JOIN 訂單價格利潤明細表 ON 訂單控制表.資料流水號 = 訂單價格利潤明細表.資料流水號
                WHERE          (訂單控制表.CXL IS NULL OR 訂單控制表.CXL = 0) AND (訂單控制表.CFMSPEC LIKE '" & 訂單價格利潤明細表.訂單屬性_cb.Text & "') AND 
                               (訂單價格利潤明細表.資料流水號 IS NULL) AND (訂單控制表.CFMSPEC LIKE '" & 訂單價格利潤明細表.訂單屬性_cb.Text & "')
                GROUP BY        訂單控制表.訂單流水號
                ORDER BY        訂單控制表.訂單流水號 DESC"
        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_新增訂單價格利潤表暫存檔2()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) " &
                           "VALUES ('" & 訂單價格利潤明細表.資料流水號_tb.Text & "','" & WW & "', '" & 訂單價格利潤明細表.訂單流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一筆利潤表流水號1()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤明細表 ORDER BY 利潤表流水號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單價格利潤明細表()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單價格利潤明細表 (資料流水號, 訂單流水號, 客戶訂單號, 利潤表流水號, 年份, Quantity, Exchange, 審核, 類型, Price, 
                            Discount_price, Commercial_invoice, Overage_invoice, Selling_price, HTS_code, Remark1, Fty_price, Mold_cost, 
                            Collected_mold_cost, Amortization_qty, Profit, Commission, Remark2, Currency) " &
               "VALUES ('" & 訂單價格利潤明細表.資料流水號_tb.Text & "', '" & 訂單價格利潤明細表.訂單流水號_tb.Text & "', '" & 訂單價格利潤明細表.客戶訂單號_tb.Text & "', '" & WW & "', '" & 訂單價格利潤明細表.年份_cb.Text & "', N'0', N'0', N'0', N'0', '" & 訂單價格利潤明細表.訂單屬性_cb.Text &
                        "', N'0', N'0', N'0', N'0', N'0', N'', N'', N'0', N'0', N'0', N'0', N'0', N'0', N'', '" & 訂單價格利潤明細表.Currency_cb.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_刪除拆分資料1()
        ConnOpen()
        SQL1 = "DELETE FROM 訂單價格利潤明細表 WHERE 利潤表流水號 LIKE '" & 訂單價格利潤明細表.利潤表流水號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查閱利潤表流水號()
        ConnOpen()
        SQL1 = "SELECT 利潤表流水號 FROM 訂單價格利潤明細表 WHERE (資料流水號 LIKE '" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表5()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET  單價 = '" & PA3 & "', 總金額 = '" & PA1 & "' " &
                       "WHERE (資料流水號 LIKE '" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單價格利潤明細表1()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單價格利潤明細表 (資料流水號, 訂單流水號, 客戶訂單號, 利潤表流水號, 年份, Quantity, Exchange, 審核, 類型, Price, 
                            Discount_price, Commercial_invoice, Overage_invoice, Selling_price, HTS_code, Remark1, Fty_price, Mold_cost, 
                            Collected_mold_cost, Amortization_qty, Profit, Commission, Remark2, Currency) " &
                       "VALUES ('" & PA & "', '" & PA2 &
                            "', '" & PA4 & "', '" & PA5 &
                            "', '" & 訂單價格利潤明細表.年份_cb.Text & "', '" & PA6 &
                            "', '" & PA7 & "', '" & PA8 & "', '" & 訂單價格利潤明細表.訂單屬性_cb.Text &
                            "', '" & PA9 & "', '" & PA10 &
                            "', '" & PA11 & "', '" & PA12 &
                            "', '" & PA13 & "', '" & PA14 &
                            "', '" & PA15 & "', '" & PA16 &
                            "', '" & PA17 & "', '" & PA18 &
                            "', '" & PA19 & "', '" & PA20 &
                            "', '" & PA21 & "', '" & PA22 & "', '" & 訂單價格利潤明細表.Currency_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢利潤表流水號()
        ConnOpen()
        SQL1 = "SELECT 利潤表流水號 FROM 訂單價格利潤明細表 WHERE (資料流水號 LIKE '" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單價格利潤明細表2()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單價格利潤明細表 (資料流水號, 訂單流水號, 客戶訂單號, 利潤表流水號, 年份, Quantity, Exchange, 審核, 類型, Price, 
                            Discount_price, Commercial_invoice, Overage_invoice, Selling_price, HTS_code, Remark1, Fty_price, Mold_cost, 
                            Collected_mold_cost, Amortization_qty, Profit, Commission, Remark2, Currency) " &
                       "VALUES ('" & PA3 & "', '" & PA4 &
                            "', '" & PA5 & "', '" & PA6 &
                            "', '" & 訂單價格利潤明細表.年份_cb.Text & "', '" & PA7 &
                            "', '" & PA8 & "', '" & PA9 & "', '" & 訂單價格利潤明細表.訂單屬性_cb.Text &
                            "', '" & PA10 & "', '" & PA11 &
                            "', '" & PA12 & "', '" & PA13 &
                            "', '" & PA14 & "', '" & PA15 &
                            "', '" & PA16 & "', '" & PA17 &
                            "', '" & PA18 & "', '" & PA19 &
                            "', '" & PA20 & "', '" & PA21 &
                            "', '" & PA22 & "', '" & PA23 & "', '" & 訂單價格利潤明細表.Currency_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表6()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET  單價 = '0.00', 總金額 = '0.00' " &
                       "WHERE (訂單流水號 LIKE '" & 訂單價格利潤明細表.訂單流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改訂單控制表4()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET  單價 = '" & PA & "', 總金額 = '" & PA1 & "' " &
                           "WHERE (資料流水號 LIKE '" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單價格利潤明細表()
        ConnOpen()
        SQL1 = "UPDATE 訂單價格利潤明細表 SET  年份 = '" & PA3 & "', Quantity = '" & PA4 &
                                                    "', Exchange = '" & PA5 & "', 審核 = '" & PA6 &
                                                    "', Price = '" & PA7 & "', Discount_price = '" & PA8 &
                                                    "', Commercial_invoice = '" & PA9 &
                                                    "', Overage_invoice = '" & PA10 &
                                                    "', Selling_price = '" & PA11 & "', HTS_code = '" & PA12 &
                                                    "', Remark1 = '" & PA13 & "', Fty_price = '" & PA14 &
                                                    "', Mold_cost = '" & PA15 &
                                                    "', Collected_mold_cost = '" & PA16 &
                                                    "', Amortization_qty = '" & PA17 & "' , Profit = '" & PA18 &
                                                    "', Commission = '" & PA19 & "', Remark2 = '" & PA20 &
                                                    "', Currency = '" & 訂單價格利潤明細表.Currency_cb.Text & "'
                        WHERE (利潤表流水號 LIKE '" & PA21 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表7()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET  單價 = '" & PA22 & "', 總金額 = '" & PA23 & "' " &
                           "WHERE (資料流水號 LIKE '" & PA24 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單控制表8()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET  單價 = '" & PA & "', 總金額 = '" & PA1 & "' " &
                       "WHERE (資料流水號 LIKE '" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改訂單價格利潤明細表1()
        ConnOpen()
        SQL1 = "UPDATE 訂單價格利潤明細表 SET  年份 = '" & PA & "', Quantity = '" & PA1 &
                                                    "', Exchange = '" & PA2 & "', 審核 = '" & PA3 &
                                                    "', Price = '" & PA4 & "', Discount_price = '" & PA5 &
                                                    "', Commercial_invoice = '" & PA6 &
                                                    "', Overage_invoice = '" & PA7 &
                                                    "', Selling_price = '" & PA8 & "', HTS_code = '" & PA9 &
                                                    "', Remark1 = '" & PA10 & "', Fty_price = '" & PA11 &
                                                    "', Mold_cost = '" & PA12 &
                                                    "', Collected_mold_cost = '" & PA13 &
                                                    "', Amortization_qty = '" & PA14 & "' , Profit = '" & PA15 &
                                                    "', Commission = '" & PA16 & "', Remark2 = '" & PA17 &
                                                    "', Currency = '" & 訂單價格利潤明細表.Currency_cb.Text & "'
                        WHERE (利潤表流水號 LIKE '" & PA18 & "')"
        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 = "SELECT 樣品訂單控制表.季節, 樣品訂單控制表.客戶, 樣品訂單控制表.工廠, 樣品訂單清單.SO, 樣品訂單清單.版次, 
                            樣品訂單清單.項次, 樣品訂單控制表.型體號碼, 樣品訂單控制表.型體名稱, 樣品訂單清單.顏色, 樣品訂單清單.數量, 
                            樣品訂單清單.已報價 AS 已建立報價, 樣品訂單清單.流水號
                            FROM 樣品訂單清單 LEFT OUTER JOIN
                            樣品訂單控制表 ON 樣品訂單清單.SO = 樣品訂單控制表.SO AND 樣品訂單清單.版次 = 樣品訂單控制表.版次
                            " & 條件變更 & "
                            ORDER BY   樣品訂單清單.SO, 樣品訂單清單.版次, 樣品訂單清單.項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品報價控制表單2()
        ConnOpen()
        If PA = "" Then

            SQL1 = "SELECT SEASON, CUST, FCTY, STYLE, STYLENAME, COLOR, SO, 版次, 項次, MATERIALS, MATERIAL_CLASS, 
                       OUTSOLE, INSOLE, FC, REMARK
                       FROM 樣品單價控制表 ORDER BY SO DESC, 版次, 項次"
        Else
            SQL1 = "SELECT SEASON, CUST, FCTY, STYLE, STYLENAME, COLOR, SO, 版次, 項次, MATERIALS, MATERIAL_CLASS, 
                       OUTSOLE, INSOLE, FC, REMARK
                       FROM 樣品單價控制表 
                       WHERE SEASON LIKE N'%" & PA & "%' OR CUST LIKE N'%" & PA & "%' OR FCTY LIKE N'%" & PA & "%' OR STYLE LIKE N'%" & PA & "%' OR STYLENAME LIKE N'%" & PA & "%' OR 
                       COLOR LIKE N'%" & PA & "%' OR SO LIKE N'%" & PA & "%' OR 版次 LIKE N'%" & PA & "%' OR 項次 LIKE N'%" & PA & "%' OR MATERIALS LIKE N'%" & PA & "%' OR 
                       MATERIAL_CLASS LIKE N'%" & PA & "%' OR OUTSOLE LIKE N'%" & PA & "%' OR INSOLE LIKE N'%" & PA & "%' OR REMARK LIKE N'%" & PA & "%' ORDER BY SO DESC, 版次, 項次"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品報價控制表單3()
        ConnOpen()
        SQL1 = "SELECT METOO選擇按鈕.選擇, 樣品訂單清單.項次, 樣品訂單部件表.部件, 樣品訂單部件表.材料名稱, 
                            樣品訂單部件表.材料說明 AS 顏色, 樣品訂單部件表.廠商, 樣品訂單部件表.備註, 樣品訂單部件表.版次, 
                            樣品訂單部件表.流水號, 樣品訂單部件表.項次 AS 排列
                            FROM 樣品訂單部件表 INNER JOIN
                            樣品訂單清單 ON 樣品訂單部件表.流水號 = 樣品訂單清單.流水號 LEFT OUTER JOIN
                            METOO選擇按鈕 ON 樣品訂單部件表.SO = METOO選擇按鈕.對應 " &
               "WHERE (樣品訂單部件表.SO LIKE N'" & 樣品報價控制表.SO_tb.Text & "') AND (樣品訂單部件表.版次 LIKE N'" & 樣品報價控制表.版次_tb.Text & "') AND (樣品訂單清單.項次 LIKE N'" & 樣品報價控制表.項次_tb.Text & "') " &
               "AND (LEFT(樣品訂單部件表.部件,1) LIKE N'A' OR LEFT(樣品訂單部件表.部件,1) LIKE N'E') " &
               "ORDER BY   樣品訂單部件表.流水號, 樣品訂單部件表.項次, 樣品訂單部件表.部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_修改樣品訂單清單2()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單清單 SET 已報價 = N'0' WHERE (已報價 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一張鞋型圖片資料庫()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
                       "WHERE 客戶 LIKE N'" & PA & "' AND 形體號 LIKE N'" & PA1 &
                       "' AND 形體名 LIKE N'" & PA2 & "' AND 類別 LIKE N'設計圖'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一張鞋型圖片資料庫1()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
                       "WHERE 客戶 LIKE N'" & PA & "' AND 形體號 LIKE N'" & PA1 &
                       "' AND 形體名 LIKE N'" & PA2 & "' AND 類別 LIKE N'設計圖'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品單價控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品單價控制表 (SEASON, CUST, FCTY, STYLE, STYLENAME, COLOR, SO, 版次, 項次, MATERIALS, MATERIAL_CLASS, OUTSOLE, INSOLE, FC, REMARK) " &
                       "VALUES (N'" & 樣品報價控制表.SEASON_tb.Text & "', N'" & 樣品報價控制表.CUST_tb.Text & "', N'" & 樣品報價控制表.FACTORY_tb.Text & "', N'" & 樣品報價控制表.STYLE_tb.Text & "', N'" & 樣品報價控制表.STYLENAME_tb.Text & "', N'" & 樣品報價控制表.COLOR_tb.Text & "', N'" & 樣品報價控制表.SO_tb.Text &
                       "', N'" & 樣品報價控制表.版次_tb.Text & "', N'" & 樣品報價控制表.項次_tb.Text & "', N'" & 樣品報價控制表.Materials_tb.Text & "', N'', N'" & 樣品報價控制表.Outsole_tb.Text & "', N'', N'0.0', N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改樣品訂單清單()
        ConnOpen()
        SQL1 = "UPDATE 樣品訂單清單 SET 已報價 = N'1' WHERE (流水號 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品單價控制表()
        ConnOpen()
        SQL1 = "UPDATE 樣品單價控制表 SET MATERIAL_CLASS = N'" & PA & "', INSOLE = N'" & PA1 &
                   "', FC = N'" & PA2 & "', REMARK = N'" & PA3 & "', MATERIALS = N'" & PA4 &
                   "', OUTSOLE = N'" & PA5 & "' " &
                   "WHERE (SO LIKE N'" & PA6 & "' AND 版次 LIKE N'" & PA7 & "' " &
                    "AND 項次 LIKE N'" & PA8 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品單價控制表()
        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 = "UPDATE 樣品訂單清單 SET 已報價 = N'0' 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()
        If PA = "" Then
            SQL1 = "SELECT 流水號, 客戶簡稱, 客戶備註 AS 客戶, XF1, XF2, 工廠, 形體號, 形體名, 鞋面, 顏色, 工廠價, 客戶價, 備註, 鞋圖編號 FROM 歷史單價紀錄表 ORDER BY 客戶簡稱, 形體號, 形體名,顏色"
        Else
            SQL1 = "SELECT 流水號, 客戶簡稱, 客戶備註 AS 客戶, XF1, XF2, 工廠, 形體號, 形體名, 鞋面, 顏色, 工廠價, 客戶價, 備註, 鞋圖編號 FROM 歷史單價紀錄表 " &
                   "WHERE (客戶簡稱 LIKE N'%" & PA & "%') OR (工廠 LIKE N'%" & PA & "%') OR (形體號 LIKE N'%" & PA & "%') OR (形體名 LIKE N'%" & PA & "%') OR (鞋面 LIKE N'%" & PA & "%') OR (顏色 LIKE N'%" & PA & "%') " &
                   "ORDER BY 客戶簡稱, 形體號, 形體名,顏色"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_顏色清單()
        ConnOpen()
        SQL1 = "SELECT 顏色 FROM 顏色清單 ORDER BY 顏色"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_型體控制表3()
        ConnOpen()
        SQL1 = "SELECT 型體號碼 FROM 型體控制表 WHERE 客戶簡稱 LIKE N'" & 歷史單價紀錄表.客戶簡稱_cb.Text & "' "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_型體控制表4()
        ConnOpen()
        SQL1 = "SELECT 型體名稱 FROM 型體控制表 WHERE 型體號碼 LIKE N'" & 歷史單價紀錄表.形體號碼_cb.Text & "' "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除歷史單價紀錄表()
        ConnOpen()
        SQL1 = "DELETE FROM 歷史單價紀錄表 WHERE (流水號 = '" & 歷史單價紀錄表.資料編碼_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_鞋型圖片資料庫5()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 鞋型圖片資料庫 WHERE 客戶 LIKE N'" & PA & "' AND 形體號 LIKE N'" & PA1 &
                       "' AND 形體名 LIKE N'" & PA2 & "' AND 顏色 LIKE N'" & PA3 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一筆鞋型圖片資料庫()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 客戶 LIKE N'" & PA4 & "' AND 形體號 LIKE N'" & PA5 &
                           "' AND 形體名 LIKE N'" & PA6 & "' AND 類別 LIKE N'設計圖'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一筆流水號3()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 流水號 FROM 歷史單價紀錄表 ORDER BY 流水號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增歷史單價紀錄表()
        ConnOpen()
        SQL1 = "INSERT INTO 歷史單價紀錄表 ( 流水號, 客戶簡稱, 客戶備註, XF1, XF2, 工廠, 形體號, 形體名, 鞋面, 顏色, 工廠價, 客戶價, 備註, 鞋圖編號) " &
               "VALUES (N'" & 歷史單價紀錄表.資料編碼_tb.Text & "',N'" & 歷史單價紀錄表.客戶簡稱_cb.Text & "',N'" & 歷史單價紀錄表.客戶備註_tb.Text & "','" & DTP1 & "','" & DTP2 & "', N'" & 歷史單價紀錄表.工廠_cb.Text & "', N'" & 歷史單價紀錄表.形體號碼_cb.Text & "', N'" & 歷史單價紀錄表.形體名稱_cb.Text &
                    "', N'" & 歷史單價紀錄表.鞋面_tb.Text & "', N'" & 歷史單價紀錄表.顏色_cb.Text & "', N'" & 歷史單價紀錄表.工廠價_tb.Text & "', N'" & 歷史單價紀錄表.客戶價_tb.Text & "', N'" & 歷史單價紀錄表.備註_tb.Text & "', N'" & 歷史單價紀錄表.鞋圖編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改歷史單價紀錄表()
        ConnOpen()
        SQL1 = "UPDATE 歷史單價紀錄表 SET 客戶簡稱 = N'" & 歷史單價紀錄表.客戶簡稱_cb.Text & "', 客戶備註 = N'" & 歷史單價紀錄表.客戶備註_tb.Text & "', XF1 = '" & DTP1 & "', XF2 = '" & DTP2 & "', 工廠 = N'" & 歷史單價紀錄表.工廠_cb.Text &
                   "', 形體號 = N'" & 歷史單價紀錄表.形體號碼_cb.Text & "', 形體名 = N'" & 歷史單價紀錄表.形體名稱_cb.Text & "', 鞋面 = N'" & 歷史單價紀錄表.鞋面_tb.Text & "', 顏色 = N'" & 歷史單價紀錄表.顏色_cb.Text & "', 工廠價 = N'" & 歷史單價紀錄表.工廠價_tb.Text &
                   "', 客戶價 = N'" & 歷史單價紀錄表.客戶價_tb.Text & "', 備註 = N'" & 歷史單價紀錄表.備註_tb.Text & "', 鞋圖編號 = N'" & 歷史單價紀錄表.鞋圖編號_tb.Text & "' WHERE (流水號 = '" & 歷史單價紀錄表.資料編碼_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除歷史單價紀錄表1()
        ConnOpen()
        SQL1 = "DELETE FROM 歷史單價紀錄表 WHERE (流水號 = '" & 歷史單價紀錄表.資料編碼_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
End Module