WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/SQL_品保系統.vb

Module SQL_品保系統
    Friend Sub SQL_預告訂單控制表單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT PAO, SO, 季節, 客戶, BUYER, 工廠, 型體號碼, 型體名稱, 總數量, ETD, ISSUE_DATE, FOB, ConstructionName, PS, 制單人, 制單時間, 版次 FROM 預告訂單控制表 ORDER BY PAO DESC, 版次 DESC"
        Else
            SQL1 = "SELECT PAO, SO, 季節, 客戶, BUYER, 工廠, 型體號碼, 型體名稱, 總數量, ETD, ISSUE_DATE, FOB, ConstructionName, PS, 制單人, 制單時間, 版次 FROM 預告訂單控制表 " &
                   "WHERE (SO LIKE N'%" & PA & "%') OR (季節 LIKE N'%" & PA & "%') OR (客戶 LIKE N'%" & PA & "%') OR (型體號碼 LIKE N'%" & PA & "%') OR (型體名稱 LIKE N'%" & PA & "%') " &
                   "OR (ISSUE_DATE LIKE N'%" & PA & "%') OR (ETD LIKE N'%" & PA & "%') OR (FOB LIKE N'%" & PA & "%') OR (ConstructionName LIKE N'%" & PA & "%') OR (PS LIKE N'%" & PA & "%') " &
                   "OR (制單人 LIKE N'%" & PA & "%') ORDER BY   PAO DESC, 版次 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_明細1()
        ConnOpen()
        SQL1 = "SELECT 預告訂單控制表.PAO, 預告訂單控制表.版次, 預告訂單控制表.季節, 預告訂單控制表.客戶, 
                       預告訂單控制表.型體名稱 AS STYLE_NAME, 預告訂單清單.顏色 AS COLOR, 
                       預告訂單清單.顏色 AS MATERIAL_DESCRIPTION, 預告訂單控制表.ETD AS XF, 
                       預告訂單控制表.SO AS [REFERENCE SAMPL], 預告訂單清單.FITTING_COMMENTS AS [FITTING COMMENTS], 
                       預告訂單清單.MATERAIL_COMMENTS AS [MATERAL COMMENTS], 預告訂單清單.FITTING回簽確認, 預告訂單清單.FITTING回簽日期, 
                       預告訂單清單.MATERAIL回簽確認 AS MATERAIL回簽確認, 預告訂單清單.MATERAIL回簽日期 AS MATERAIL回簽日期, 預告訂單清單.流水號, 預告訂單控制表.型體號碼
                FROM 預告訂單控制表 INNER JOIN
                     預告訂單清單 ON 預告訂單控制表.PAO = 預告訂單清單.PAO AND 預告訂單控制表.版次 = 預告訂單清單.版次
                WHERE (預告訂單控制表.PAO LIKE '" & 試穿_訂料授權書.預告訂單單號_tb.Text & "') AND (預告訂單控制表.版次 LIKE '" & 試穿_訂料授權書.版次_tb.Text & "')
                GROUP BY 預告訂單控制表.PAO, 預告訂單控制表.版次, 預告訂單控制表.SO, 預告訂單控制表.季節, 預告訂單控制表.客戶, 
                         預告訂單清單.顏色, 預告訂單控制表.ETD, 預告訂單控制表.型體名稱, 預告訂單清單.FITTING_COMMENTS, 
                         預告訂單清單.MATERAIL_COMMENTS, 預告訂單清單.FITTING回簽確認, 預告訂單清單.FITTING回簽日期, 
                         預告訂單清單.MATERAIL回簽確認 , 預告訂單清單.MATERAIL回簽日期, 預告訂單清單.流水號, 預告訂單控制表.型體號碼"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_明細2()
        ConnOpen()
        SQL1 = "SELECT 預告訂單清單.PAO, 預告訂單部件表.部件, 預告訂單部件表.材料名稱, 預告訂單部件表.材料說明, 
                       預告訂單部件表.備註, 預告訂單部件表.流水號
                FROM 預告訂單清單 INNER JOIN
                     預告訂單部件表 ON 預告訂單清單.PAO = 預告訂單部件表.PAO AND 
                     預告訂單清單.版次 = 預告訂單部件表.版次
                WHERE (預告訂單清單.PAO LIKE '" & 試穿_訂料授權書.預告訂單單號_tb.Text & "') AND (預告訂單清單.版次 LIKE '" & 試穿_訂料授權書.版次_tb.Text & "') AND (預告訂單部件表.部件 LIKE 'A%')
                GROUP BY 預告訂單清單.PAO, 預告訂單部件表.部件, 預告訂單部件表.材料名稱, 預告訂單部件表.材料說明, 
                            預告訂單部件表.備註, 預告訂單部件表.流水號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_鞋型圖片資料庫()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
           "WHERE 客戶 LIKE N'" & PA & "' AND 形體號 LIKE N'" & PA1 & "'"
        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'" & PA3 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_鞋型圖片資料庫2()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
                   "WHERE 客戶 LIKE N'" & PA4 & "' AND 形體號 LIKE N'" & PA5 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改預告訂單清單()
        ConnOpen()
        SQL1 = "UPDATE  預告訂單清單 SET FITTING_COMMENTS = N'" & PA & "',MATERAIL_COMMENTS = N'" & PA1 & "',
                                         FITTING回簽確認 = N'" & PA2 & "', FITTING回簽日期 = N'" & PA3 & "', 
                                         MATERAIL回簽確認 = N'" & PA4 & "', MATERAIL回簽日期 = N'" & PA5 &
                                         "' WHERE (流水號 LIKE N'" & PA6 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_鞋型圖片資料庫3()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 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_鞋型圖片資料庫4()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 " &
                   "WHERE 客戶 LIKE N'" & PA4 & "' AND 形體號 LIKE N'" & PA5 & "'"
        CmdSet_For_dr()
    End Sub
    '-----------------------驗貨報告圖片導入資料庫-----------------------------
    Friend Sub SQL_資料庫選擇()
        ConnOpen() : SQL1 = "SELECT  TOP (1) 圖片資料庫  FROM  圖片資料庫管理  WHERE  (是否可用 = 0)  ORDER BY  圖片資料庫" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_訂單控制表單()
        ConnOpen()
        SQL1 = "SELECT      訂單控制表.訂單流水號, 訂單控制表.年份季度, 訂單控制表.客戶訂單號, 
                            訂單控制表.GOODBOX AS 型體名稱, 訂單控制表.型體號碼, 訂單控制表.APMA確認 AS 顏色, 
                            訂單控制表.訂單數量, 訂單控制表.CFMSPEC AS 訂單屬性, 訂單控制表.工廠回復交期 AS 工廠交期, 
                            METOO選擇按鈕.選擇, 訂單控制表.資料流水號
                FROM        訂單控制表 LEFT OUTER JOIN
                            METOO選擇按鈕 ON 訂單控制表.訂單流水號 = METOO選擇按鈕.對應
                WHERE      (訂單控制表.CXL = 0 OR
                            訂單控制表.CXL IS NULL) AND (訂單控制表.訂單數量 - 訂單控制表.出貨數量 <> 0) AND (訂單控制表.驗貨報告圖片 LIKE '')
                ORDER BY   訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 型體名稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表查詢()
        ConnOpen()
        SQL1 = "SELECT      訂單控制表.訂單流水號, 訂單控制表.年份季度, 訂單控制表.客戶訂單號, 
                            訂單控制表.GOODBOX AS 型體名稱, 訂單控制表.型體號碼, 訂單控制表.APMA確認 AS 顏色, 
                            訂單控制表.訂單數量, 訂單控制表.CFMSPEC AS 訂單屬性, 訂單控制表.工廠回復交期 AS 工廠交期, 
                            METOO選擇按鈕.選擇, 訂單控制表.資料流水號
                FROM        訂單控制表 LEFT OUTER JOIN
                            METOO選擇按鈕 ON 訂單控制表.訂單流水號 = METOO選擇按鈕.對應
                WHERE      (訂單控制表.CXL = 0 OR
                            訂單控制表.CXL IS NULL) AND (訂單控制表.訂單數量 - 訂單控制表.出貨數量 <> 0) AND 
                           (訂單控制表.驗貨報告圖片 LIKE '') AND (訂單流水號 LIKE '%" & PA & "%' OR 訂單控制表.年份季度 LIKE '%" & PA & "%' OR 
                            訂單控制表.客戶訂單號 LIKE '%" & PA & "%' OR 訂單控制表.型體號碼 LIKE '%" & PA & "%' OR 訂單控制表.生產工廠 LIKE '%" & PA & "%' OR 
                           訂單控制表.GOODBOX LIKE '%" & PA & "%' OR 訂單控制表.APMA確認 LIKE '%" & PA & "%')
                ORDER BY   訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 型體名稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_驗貨報告圖庫()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT 客戶訂單號 FROM 驗貨報告圖庫 WHERE 客戶訂單號 LIKE '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "' AND 型體名稱 LIKE '" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_驗貨報告最後一筆編碼()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT TOP (1) 驗貨報告編號 FROM 驗貨報告圖庫 ORDER BY 驗貨報告編號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增驗貨報告圖庫()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "INSERT INTO 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "',
                                          '" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', @binary_file"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_修改訂單控制表2()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "UPDATE 訂單控制表 SET 驗貨時間 = '" & DTP & "', 驗貨報告圖片 = '" & 驗貨報告圖片導入資料庫.TextBox3.Text & "', 驗報圖庫 = '" & 圖片庫 & "' 
                WHERE (客戶訂單號 = '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "' AND GOODBOX = '" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_最後一筆驗貨報告編號()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT TOP (1) 驗貨報告編號 FROM 驗貨報告圖庫 ORDER BY 驗貨報告編號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改訂單控制表3()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 驗貨時間 = '" & DTP & "', 驗貨報告圖片 = '" & 驗貨報告圖片導入資料庫.TextBox3.Text & "', 驗報圖庫 = '" & 圖片庫 & "' 
                WHERE (資料流水號 = '" & PA & "')"
        CmdSet_For_dr()
    End Sub
    '------------------------------驗貨報告資料庫------------------------------------
    Friend Sub SQL_驗貨報告圖庫表單()
        ConnOpen()
        SQL1 = "SELECT    訂單控制表.訂單流水號, 訂單控制表.年份季度, [" & PA20 & "].dbo.驗貨報告圖庫.客戶訂單號, [" & PA20 & "].dbo.驗貨報告圖庫.型體名稱, 訂單控制表.APMA確認 AS 顏色,  
                          [" & PA20 & "].dbo.驗貨報告圖庫.驗貨報告編號
                FROM      [" & PA20 & "].dbo.驗貨報告圖庫 LEFT OUTER JOIN 訂單控制表 ON [" & PA20 & "].dbo.驗貨報告圖庫.客戶訂單號 = 訂單控制表.客戶訂單號
                WHERE    (訂單控制表.訂單流水號 IS NOT NULL)
                GROUP BY  訂單控制表.訂單流水號, 訂單控制表.年份季度, [" & PA20 & "].dbo.驗貨報告圖庫.客戶訂單號, [" & PA20 & "].dbo.驗貨報告圖庫.型體名稱, 訂單控制表.APMA確認,  
                          [" & PA20 & "].dbo.驗貨報告圖庫.驗貨報告編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_驗貨報告圖庫3()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_驗貨報告圖庫查詢()
        ConnOpen()
        SQL1 = "SELECT    訂單控制表.訂單流水號, 訂單控制表.年份季度, [" & PA20 & "].dbo.驗貨報告圖庫.客戶訂單號, [" & PA20 & "].dbo.驗貨報告圖庫.型體名稱, 訂單控制表.APMA確認 AS 顏色,  
                          [" & PA20 & "].dbo.驗貨報告圖庫.驗貨報告編號 
                FROM      [" & PA20 & "].dbo.驗貨報告圖庫 LEFT OUTER JOIN 訂單控制表 ON [" & PA20 & "].dbo.驗貨報告圖庫.客戶訂單號 = 訂單控制表.客戶訂單號 
                WHERE     訂單控制表.訂單流水號 LIKE '%" & PA & "%' OR 訂單控制表.年份季度 LIKE '%" & PA & "%' OR [" & PA20 & "].dbo.驗貨報告圖庫.客戶訂單號 LIKE '%" & PA & "%' OR 
                          [" & PA20 & "].dbo.驗貨報告圖庫.型體名稱 LIKE '%" & PA & "%'
                GROUP BY  訂單控制表.訂單流水號, 訂單控制表.年份季度, [" & PA20 & "].dbo.驗貨報告圖庫.客戶訂單號, [" & PA20 & "].dbo.驗貨報告圖庫.型體名稱, 訂單控制表.APMA確認, 
                          [" & PA20 & "].dbo.驗貨報告圖庫.驗貨報告編號 
                ORDER BY  [" & PA20 & "].dbo.驗貨報告圖庫.客戶訂單號, [" & PA20 & "].dbo.驗貨報告圖庫.型體名稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_驗貨報告圖庫1()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改驗貨報告圖庫()
        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = @binary_file  WHERE (驗貨報告編號 = '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "')"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_驗貨報告大圖()
        SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
        SQL1 = "Select TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 Like '" & 驗貨報告 & "'"
        CmdSet_For_dr()
    End Sub
End Module