Module SQL_採購系統管理 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'',N'" & 一般物料請購單一覽表.帳本編號_cb.Text & "')" 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'" & 樣品物料調料單申請.for_cb.Text & "', 制表人 = N'" & gUserName & "', 供應商編號 = N'" & 樣品物料調料單申請.供應商編碼_cb.Text & "', SHOW年 = N'" & 樣品物料調料單申請.年份_cb.Text & "', SHOW月 = N'" & 樣品物料調料單申請.月份_cb.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'" & 樣品物料調料單核準.圖片編碼_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 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單核準.供應商編碼_cb.Text & "') ORDER BY 廠商" CmdSet_For_dr() End Sub Friend Sub SQL_更改核准簽名() ConnOpen() SQL1 = "UPDATE 樣品物料調料單抬頭 SET 核准簽名 = N'" & 樣品物料調料單核準.圖片編碼_tb.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'" & 供應商_一般物料.公司傳真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'" & 供應商_一般物料.聯繫人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'" & 供應商_一般物料.公司傳真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 & "', 聯繫人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