WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/採購系統管理.vb

Module 採購系統管理
    Friend Sub SQL_一般物料請購單明細表()
        ConnOpen()
        SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 WHERE 請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_一般物料請購單明細表1()
        ConnOpen()
        SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 WHERE 請購單號 LIKE N'" & 一般物料請購單核准.一般物料請購單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_查詢明細()
        ConnOpen()
        SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 WHERE 請購單號 LIKE N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_未審核清單()
        ConnOpen()
        If 登入人部門 = "NA" Then
            SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 一般物料請購單控制表 " &
                   "WHERE (核准人 LIKE N'') ORDER BY 請購單號 DESC"
        Else
            SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 一般物料請購單控制表 " &
                   "WHERE (申請人 LIKE N'" & gUserName & "') AND (核准人 LIKE N'') ORDER BY 請購單號 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_未核准清單()
        ConnOpen()
        If 登入人部門 = "NA" Then
            SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 一般物料請購單控制表 " &
                   "WHERE (核准人 LIKE N'作廢%') ORDER BY 請購單號 DESC"
        Else
            SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 一般物料請購單控制表 " &
                   "WHERE (申請人 LIKE N'" & gUserName & "') AND (核准人 LIKE N'作廢%') ORDER BY 請購單號 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_審核清單()
        ConnOpen()
        If 登入人部門 = "NA" Then
            SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期, 已採購, 轉請款, 零用金單號 FROM 一般物料請購單控制表 " &
                   "WHERE (核准人 NOT LIKE N'') AND (核准人 NOT LIKE N'作廢%') ORDER BY 請購單號 DESC"
        Else
            SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期, 已採購, 轉請款, 零用金單號 FROM 一般物料請購單控制表 " &
                   "WHERE (申請人 LIKE N'" & gUserName & "') AND (核准人 NOT LIKE N'') AND (核准人 NOT LIKE N'作廢%') ORDER BY 請購單號 DESC"
        End If
        CmdSet_For_DGV()
    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 N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增一般物料請購單控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 一般物料請購單控制表 (請購單號, 申請人, 申請日期, 核准人, 核准日期, 已採購, 轉請款, 零用金單號) " &
               "VALUES (N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'0',N'0',N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改一般物料請購單明細表()
        ConnOpen()
        SQL1 = "UPDATE 一般物料請購單明細表 SET  品名 = N'" & PA & "', 規格 = N'" & PA1 & "', 
                                                 備註 = N'" & PA2 & "', 數量 = N'" & PA3 & "', 
                                                 單價 = N'" & PA4 & "', 用途 = N'" & PA5 & "' 
                   WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' AND 項次 LIKE N'" & PA6 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢最後一筆項次()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 項次 FROM 一般物料請購單明細表 WHERE 請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' ORDER BY 項次 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增一般物料請購單明細表()
        ConnOpen()
        SQL1 = "INSERT INTO 一般物料請購單明細表 (請購單號, 品名, 規格, 備註, 數量, 單價, 用途, 項次) " &
               "VALUES (N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "',N'',N'',N'',N'0',N'0',N'',N'" & 新項次 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除一般物料請購單明細表()
        ConnOpen()
        SQL1 = "DELETE FROM 一般物料請購單明細表 WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' AND 項次 LIKE N'" & 一般物料請購單申請.項次_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改項次()
        ConnOpen()
        SQL1 = "UPDATE 一般物料請購單明細表 SET 項次 = N'" & 新項次 & "' WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' AND 項次 LIKE N'" & PA9 & "')"
        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_一般物料核准()
        ConnOpen()
        SQL1 = "UPDATE 一般物料請購單控制表 SET 核准人 = N'" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & 一般物料請購單核准.一般物料請購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一般物料作廢()
        ConnOpen()
        SQL1 = "UPDATE 一般物料請購單控制表 SET 核准人 = N'作廢-" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & 一般物料請購單核准.一般物料請購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢已採購()
        ConnOpen()
        SQL1 = "SELECT 已採購 FROM 一般物料請購單控制表 WHERE ( 請購單號 LIKE N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_一般物料已採購()
        ConnOpen()
        SQL1 = "UPDATE 一般物料請購單控制表 SET 已採購 = N'1' WHERE (請購單號 = N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢轉請款()
        ConnOpen()
        SQL1 = "SELECT 轉請款 FROM 一般物料請購單控制表 WHERE ( 請購單號 LIKE N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_流水號新增()
        ConnOpen()
        SQL1 = "SELECT TOP (1)  流水號 FROM 零用金支付表 WHERE ( 流水號 LIKE N'" & WWW & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增零用金支付表()
        ConnOpen()
        SQL1 = "INSERT INTO 零用金支付表 (流水號, 部門, 申請人, 申請日期, 審核人, 審核日期, 核准人, 核准日期, 會計, 作帳日期, 出納, 出納日期, 核准圖檔, 簽名編碼, 備註) " &
                           "VALUES (N'" & WWW & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增零用金支付明細()
        ConnOpen()
        SQL1 = "INSERT INTO 零用金支付明細 (流水號, 用途, 金額, 備註, 項次) " &
               "VALUES (N'" & WWW & "',N'" & PA & "',N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改請購單控制表()
        ConnOpen()
        SQL1 = "UPDATE 一般物料請購單控制表 SET 轉請款 = N'1', 零用金單號 = '" & WWW & "' WHERE (請購單號 = N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub

    Friend Sub SQL_廠商類別()
        ConnOpen()
        SQL1 = "SELECT 廠商, 供應商編碼 FROM 供應商清單 WHERE 公司傳真3 LIKE '" & 樣品物料調料單申請.廠商類別_cb.Text & "' AND 停用 = 0 ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_廠商停用()
        ConnOpen()
        SQL1 = "SELECT 廠商, 供應商編碼 FROM 供應商清單 WHERE 停用 = 0 ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_權限表()
        ConnOpen()
        SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE (CC49 = 0) 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 公司傳真3 AS 類別 FROM 供應商清單 GROUP BY 公司傳真3 ORDER BY 公司傳真3"
        CmdSet_For_dr()
    End Sub

    Friend Sub SQL_查詢公司電話()
        ConnOpen()
        SQL1 = "SELECT 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單申請.供應商編碼_cb.Text & "') ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_調料單清單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 
                           樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 
                           樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號
                    FROM 樣品物料調料單抬頭 INNER JOIN
                         供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼
                    WHERE (樣品物料調料單抬頭.核准簽名 LIKE '')
                    ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"
        Else
            SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 
                           樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 
                           樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號
                    FROM 樣品物料調料單抬頭 INNER JOIN
                         供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼
                    WHERE (樣品物料調料單抬頭.核准簽名 LIKE '') AND ((樣品物料調料單抬頭.調料單號 LIKE N'%" & PA & "%') OR (供應商清單.廠商 LIKE N'%" & PA & "%') OR 
                          (樣品物料調料單抬頭.客戶 LIKE N'%" & PA & "%') OR 
                          (樣品物料調料單抬頭.SHOW年 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.SHOW月 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.日期 LIKE N'%" & PA & "%') OR 
                          (樣品物料調料單抬頭.發件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.收件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.制表人 LIKE N'%" & PA & "%')) 
                    ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_明細清單()
        ConnOpen()
        SQL1 = "SELECT 調料單號, 項次, 名稱, 規格, 顏色, 單位, 數量, 單價, 數量 * 單價 AS 金額, 備註 FROM  樣品物料調料單明細 WHERE 調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    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 年份 FROM 年份清單 ORDER BY 年份"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單()
        ConnOpen()
        SQL1 = "SELECT 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單申請.供應商編碼_cb.Text & "') ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增調料單號()
        ConnOpen()
        SQL1 = "SELECT TOP (1)  調料單號 FROM 樣品物料調料單抬頭 WHERE ( 調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品物料調料單抬頭()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品物料調料單抬頭 (調料單號, 日期, 發件人, 收件人, 客戶, 制表人, 核准簽名, 供應商編號, SHOW年, SHOW月) " &
               "VALUES (N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品物料調料單抬頭()
        ConnOpen()
        SQL1 = "UPDATE 樣品物料調料單抬頭 SET  日期 = N'" & DTP & "', 發件人 = N'" & 樣品物料調料單申請.發件人_cb.Text & "', 收件人 = N'" & 樣品物料調料單申請.提取人_cb.Text & "', 客戶 = N'" & 樣品物料調料單申請.ComboBox7.Text &
               "', 制表人 = N'" & gUserName & "', 供應商編號 = N'" & 樣品物料調料單申請.供應商編碼_cb.Text & "', SHOW年 = N'" & 樣品物料調料單申請.ComboBox5.Text & "', SHOW月 = N'" & 樣品物料調料單申請.ComboBox6.Text &
               "' WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改樣品物料調料單明細()
        ConnOpen()
        SQL1 = "UPDATE 樣品物料調料單明細 SET  名稱 = N'" & PA5 & "', 規格 = N'" & PA6 &
                   "', 顏色 = N'" & PA7 & "', 單位 = N'" & PA8 & "', 數量 = N'" & PA9 &
                   "', 單價 = N'" & PA10 & "', 備註 = N'" & PA11 &
                   "' WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' AND 項次 LIKE N'" & PA12 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢最後一筆項次1()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 項次 FROM 樣品物料調料單明細 WHERE 調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' ORDER BY 項次 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增樣品物料調料單明細()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品物料調料單明細 (調料單號, 項次, 名稱, 規格, 顏色, 單位, 數量, 單價, 備註) " &
               "VALUES (N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "',N'" & 新項次 & "',N'',N'',N'',N'',N'0',N'0',N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除樣品物料調料單明細2()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品物料調料單明細 WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' AND 項次 LIKE N'" & 樣品物料調料單申請.項次_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改項次1()
        ConnOpen()
        SQL1 = "UPDATE 樣品物料調料單明細 SET 項次 = N'" & 新項次 & "' WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' AND 項次 LIKE N'" & PA16 & "')"
        CmdSet_For_dr()
    End Sub
    '-----------------------------樣品物料調料單核准介面------------------------------------------------------------------------------------------
    Friend Sub SQL_清單查詢()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 
                           樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 
                           樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號
                    FROM 樣品物料調料單抬頭 INNER JOIN
                         供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼
                    WHERE (樣品物料調料單抬頭.核准簽名 LIKE '')
                    ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"
        Else
            SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 
                           樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 
                           樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號
                    FROM 樣品物料調料單抬頭 INNER JOIN
                         供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼
                    WHERE (樣品物料調料單抬頭.核准簽名 LIKE '') AND ((樣品物料調料單抬頭.調料單號 LIKE N'%" & PA & "%') OR (供應商清單.廠商 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.客戶 LIKE N'%" & PA & "%') OR 
                          (樣品物料調料單抬頭.SHOW年 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.SHOW月 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.日期 LIKE N'%" & PA & "%') OR 
                          (樣品物料調料單抬頭.發件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.收件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.制表人 LIKE N'%" & PA & "%')) 
                    ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_明細查詢()
        ConnOpen()
        SQL1 = "SELECT 調料單號, 項次, 名稱, 規格, 顏色, 單位, 數量, 單價, 數量 * 單價 AS 金額, 備註 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_使用者表()
        ConnOpen()
        SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE (CC49 = 0) ORDER BY 姓名"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片流水號()
        ConnOpen()
        If gUserName = "李協叡" Then
            SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 ORDER BY 圖片流水號"
        Else
            SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 WHERE 簽名檔人名 LIKE N'" & gUserName & "' ORDER BY 圖片流水號"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_簽名檔圖片()
        ConnOpen()
        SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 樣品物料調料單核準.TextBox14.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_填入驗證碼()
        ConnOpen()
        SQL1 = "SELECT 驗證碼 FROM 樣品物料調料單抬頭 WHERE 驗證碼 LIKE N'" & 樣品物料調料單核準.驗證碼_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_聯繫人()
        ConnOpen()
        SQL1 = "SELECT 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單核準.供應商編碼_cb.Text & "') ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改核准簽名()
        ConnOpen()
        SQL1 = "UPDATE 樣品物料調料單抬頭 SET  核准簽名 = N'" & 樣品物料調料單核準.TextBox14.Text & "', 驗證碼 = N'" & 樣品物料調料單核準.驗證碼_tb.Text & "' 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_已審核清單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 
                           樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 
                           樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號, 樣品物料調料單抬頭.驗證碼
                    FROM 樣品物料調料單抬頭 INNER JOIN
                         供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼
                    WHERE (樣品物料調料單抬頭.核准簽名 NOT LIKE '')
                    ORDER BY 樣品物料調料單抬頭.SHOW年 DESC, 樣品物料調料單抬頭.SHOW月 DESC"
        Else
            SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 
                           樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 
                           樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號, 樣品物料調料單抬頭.驗證碼
                    FROM 樣品物料調料單抬頭 INNER JOIN
                         供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼
                    WHERE (樣品物料調料單抬頭.核准簽名 NOT LIKE '') AND ((樣品物料調料單抬頭.調料單號 LIKE N'%" & PA & "%') OR (供應商清單.廠商 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.客戶 LIKE N'%" & PA & "%') OR 
                          (樣品物料調料單抬頭.SHOW年 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.SHOW月 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.日期 LIKE N'%" & PA & "%') OR 
                          (樣品物料調料單抬頭.發件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.收件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.制表人 LIKE N'%" & PA & "%')) 
                    ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_明細清單1()
        ConnOpen()
        SQL1 = "SELECT 調料單號, 項次, 名稱, 規格, 顏色, 單位, 數量, 單價, 數量 * 單價 AS 金額, 備註 
                FROM  樣品物料調料單明細 WHERE 調料單號 LIKE N'" & 樣品物料調料單一覽表.樣品物料調料單單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_簽名檔管理()
        ConnOpen()
        SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 樣品物料調料單一覽表.圖片編碼_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_公司電話1()
        ConnOpen()
        SQL1 = "SELECT 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單一覽表.供應商編碼_cb.Text & "') ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢最後一碼()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商清單_一般物料 ORDER BY 供應商編碼 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增供應商清單_一般物料()
        ConnOpen()
        SQL1 = "INSERT INTO 供應商清單_一般物料 (供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, " &
                  "聯繫人1職稱, 聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱) VALUES (N'" & 供應商_一般物料.供應商編號_tb.Text & "',N'" & 供應商_一般物料.供應商簡稱_tb.Text &
                      "',N'" & 供應商_一般物料.公司名_tb.Text & "',N'" & 供應商_一般物料.公司地址_tb.Text & "',N'" & 供應商_一般物料.公司電話1_tb.Text & "',N'" & 供應商_一般物料.公司電話2_tb.Text & "',N'" & 供應商_一般物料.公司電話3_tb.Text & "',N'" & 供應商_一般物料.公司傳真1_tb.Text &
                      "',N'" & 供應商_一般物料.公司傳真2_tb.Text & "',N'" & 供應商_一般物料.TextBox10.Text & "',N'" & 供應商_一般物料.聯繫人1_tb.Text & "',N'" & 供應商_一般物料.聯繫人2_tb.Text & "',N'" & 供應商_一般物料.聯繫人3_tb.Text & "',N'" & 供應商_一般物料.聯繫人1職稱_tb.Text &
                      "',N'" & 供應商_一般物料.聯繫人2職稱_tb.Text & "',N'" & 供應商_一般物料.聯繫人3職稱_tb.Text & "',N'" & 供應商_一般物料.聯繫人1電話_tb.Text & "',N'" & 供應商_一般物料.聯繫人2電話_tb.Text & "',N'" & 供應商_一般物料.聯繫人3電話_tb.Text & "',N'" & 供應商_一般物料.聯繫人1信箱_tb.Text &
                      "',N'" & 供應商_一般物料.聯繫人2信箱_tb.Text & "',N'" & 供應商_一般物料.聯繫人3信箱_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取供應商料表清單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &
                   "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商清單_一般物料 ORDER BY 供應商編碼"
        Else
            SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &
                   "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商清單_一般物料 " &
                   "WHERE 供應商編碼 LIKE N'%" & PA & "%' OR 廠商 LIKE N'%" & PA & "%' OR 公司名 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR " &
                   "聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人3 LIKE N'%" & PA & "%' ORDER BY 供應商編碼"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_更改供應商清單_一般物料()
        ConnOpen()
        SQL1 = "UPDATE   供應商清單_一般物料 SET 廠商 = N'" & 供應商_一般物料.供應商簡稱_tb.Text & "', 公司名 = N'" & 供應商_一般物料.公司名_tb.Text & "', 公司地址 = N'" & 供應商_一般物料.公司地址_tb.Text &
               "', 公司電話1 = N'" & 供應商_一般物料.公司電話1_tb.Text & "', 公司電話2 = N'" & 供應商_一般物料.公司電話2_tb.Text & "', 公司電話3 = N'" & 供應商_一般物料.公司電話3_tb.Text & "', 公司傳真1 = N'" & 供應商_一般物料.公司傳真1_tb.Text &
               "', 公司傳真2 = N'" & 供應商_一般物料.公司傳真2_tb.Text & "', 公司傳真3 = N'" & 供應商_一般物料.TextBox10.Text & "', 聯繫人1 = N'" & 供應商_一般物料.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 供應商_一般物料.聯繫人2_tb.Text &
               "', 聯繫人3 = N'" & 供應商_一般物料.聯繫人3_tb.Text & "', 聯繫人1職稱 = N'" & 供應商_一般物料.聯繫人1職稱_tb.Text & "', 聯繫人2職稱 = N'" & 供應商_一般物料.聯繫人2職稱_tb.Text & "', 聯繫人3職稱 = N'" & 供應商_一般物料.聯繫人3職稱_tb.Text &
               "', 聯繫人1電話 = N'" & 供應商_一般物料.聯繫人1電話_tb.Text & "', 聯繫人2電話 = N'" & 供應商_一般物料.聯繫人2電話_tb.Text & "', 聯繫人3電話 = N'" & 供應商_一般物料.聯繫人3電話_tb.Text & "', 聯繫人1郵箱 = N'" & 供應商_一般物料.聯繫人1信箱_tb.Text &
               "', 聯繫人2郵箱 = N'" & 供應商_一般物料.聯繫人2信箱_tb.Text & "', 聯繫人3郵箱 = N'" & 供應商_一般物料.聯繫人3信箱_tb.Text & "' WHERE (供應商編碼 = '" & 供應商_一般物料.供應商編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除供應商清單()
        ConnOpen()
        SQL1 = "DELETE FROM 供應商清單_一般物料 WHERE (供應商編碼 = '" & 供應商_一般物料.供應商編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '-------------------------------------------供應商管理_製鞋樣品----------------------------
    Friend Sub SQL_查閱讀取商表()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3 AS 廠商類別, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &
                   "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用 FROM 供應商清單 ORDER BY 供應商編碼"
        Else
            SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &
                   "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用 FROM 供應商清單 " &
                   "WHERE 供應商編碼 LIKE N'%" & PA & "%' OR 廠商 LIKE N'%" & PA & "%' OR 公司名 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR " &
                   "聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人3 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_查詢供應商編碼()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商清單 ORDER BY 供應商編碼 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增供應商清單()
        ConnOpen()
        SQL1 = "INSERT INTO 供應商清單 (供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, " &
                  "聯繫人1職稱, 聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用) VALUES (N'" & 供應商管理_製鞋樣品.供應商編號_tb.Text &
                      "',N'" & 供應商管理_製鞋樣品.供應商簡稱_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司名_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司地址_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司電話1_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司電話2_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司電話3_tb.Text &
                      "',N'" & 供應商管理_製鞋樣品.公司傳真1_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司傳真2_tb.Text & "',N'" & 供應商管理_製鞋樣品.廠商類別_cb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人1_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人2_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人3_tb.Text &
                      "',N'" & 供應商管理_製鞋樣品.聯繫人1職稱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人2職稱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人3職稱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人1電話_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人2電話_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人3電話_tb.Text &
                      "',N'" & 供應商管理_製鞋樣品.聯繫人1信箱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人2信箱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人3信箱_tb.Text & "', N'0')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改供應商清單()
        ConnOpen()
        SQL1 = "UPDATE    供應商清單 SET 公司名 = N'" & 供應商管理_製鞋樣品.公司名_tb.Text & "', 公司地址 = N'" & 供應商管理_製鞋樣品.公司地址_tb.Text &
               "', 公司電話1 = N'" & 供應商管理_製鞋樣品.公司電話1_tb.Text & "', 公司電話2 = N'" & 供應商管理_製鞋樣品.公司電話2_tb.Text & "', 公司電話3 = N'" & 供應商管理_製鞋樣品.公司電話3_tb.Text & "', 公司傳真1 = N'" & 供應商管理_製鞋樣品.公司傳真1_tb.Text &
               "', 公司傳真2 = N'" & 供應商管理_製鞋樣品.公司傳真2_tb.Text & "', 公司傳真3 = N'" & 供應商管理_製鞋樣品.廠商類別_cb.Text & "', 聯繫人1 = N'" & 供應商管理_製鞋樣品.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 供應商管理_製鞋樣品.聯繫人2_tb.Text &
               "', 聯繫人3 = N'" & 供應商管理_製鞋樣品.聯繫人3_tb.Text & "', 聯繫人1職稱 = N'" & 供應商管理_製鞋樣品.聯繫人1職稱_tb.Text & "', 聯繫人2職稱 = N'" & 供應商管理_製鞋樣品.聯繫人2職稱_tb.Text & "', 聯繫人3職稱 = N'" & 供應商管理_製鞋樣品.聯繫人3職稱_tb.Text &
               "', 聯繫人1電話 = N'" & 供應商管理_製鞋樣品.聯繫人1電話_tb.Text & "', 聯繫人2電話 = N'" & 供應商管理_製鞋樣品.聯繫人2電話_tb.Text & "', 聯繫人3電話 = N'" & 供應商管理_製鞋樣品.聯繫人3電話_tb.Text & "', 聯繫人1郵箱 = N'" & 供應商管理_製鞋樣品.聯繫人1信箱_tb.Text &
               "', 聯繫人2郵箱 = N'" & 供應商管理_製鞋樣品.聯繫人2信箱_tb.Text & "', 聯繫人3郵箱 = N'" & 供應商管理_製鞋樣品.聯繫人3信箱_tb.Text & "', 停用 = '" & 供應商管理_製鞋樣品.停用_ch.Checked & "' WHERE (供應商編碼 = '" & 供應商管理_製鞋樣品.供應商編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢廠商()
        ConnOpen()
        SQL1 = "SELECT 廠商 FROM 樣品訂單部件表 WHERE (廠商 = N'" & 供應商管理_製鞋樣品.供應商簡稱_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