Module SQL_倉儲管理系統 '---------------------物料檔案----------------------------------------------------------------------------------------------------------------- Friend Sub SQL_物料檔案_清單() ConnOpen() If 物料資料庫.查詢_tb.Text = "" Then If 物料資料庫.供應商編碼_cb.Text = "" Then SQL2 = "" Else SQL2 = " WHERE 物料資料庫.供應商編號 LIKE N'" & 物料資料庫.供應商編碼_cb.Text & "' " End If Else If 物料資料庫.供應商編碼_cb.Text = "" Then SQL2 = " WHERE (物料資料庫.料號 LIKE N'" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%') " Else SQL2 = " WHERE (物料資料庫.供應商編號 LIKE N'" & 物料資料庫.供應商編碼_cb.Text & "') AND (物料資料庫.料號 LIKE N'" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%' OR 物料資料庫.車種年份 LIKE N'%" & PA & "%') " End If End If SQL1 = "SELECT 物料資料庫.料號,物料資料庫.車種年份,物料資料庫.品名,物料資料庫.廠牌, 物料資料庫.最低庫存量,物料資料庫.成本, 物料資料庫.單位,物料資料庫.倉庫, 供應商資料表.公司名 AS 廠商, 物料資料庫.狀態 , 物料資料庫.停用,物料資料庫.是否有圖 AS 圖片, 物料資料庫.供應商編號 AS 供應商 ,物料資料庫.是否有圖 AS 刪除 FROM 物料資料庫 INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 " & SQL2 & " ORDER BY 物料資料庫.料號" 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 = "UPDATE 物料資料庫 SET 圖片 = @binary_file , 是否有圖 = N'1' WHERE (料號 = N'" & PA & "')" CmdSet_For_dr_pic() End Sub Friend Sub SQL_物料檔案_圖片修改() ConnOpen() SQL1 = "UPDATE 物料資料庫 SET 是否有圖 = N'1', 圖片 = BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 物料資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE WHERE (料號 LIKE N'" & 物料資料庫.料號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料圖庫_圖片下載() ConnOpen() : SQL1 = "SELECT 圖片 FROM 物料資料庫 WHERE 料號 LIKE N'" & 物料資料庫.料號_tb.Text & "'" : CmdSet_For_DGV() End Sub Friend Sub SQL_物料檔案_料號_最後一筆資料() ConnOpen() : SQL1 = "SELECT TOP (1) 料號 FROM 物料資料庫 WHERE (料號 LIKE N'" & 物料資料庫.供應商編碼_cb.Text & "%') ORDER BY 料號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_物料檔案_新增() ConnOpen() SQL1 = "INSERT INTO 物料資料庫 (料號, 供應商編號, 成本, 品名, 停用, 是否有圖, 最低庫存量,供應商類別) VALUES (N'" & 物料資料庫.料號_tb.Text & "', N'" & 物料資料庫.供應商編碼_cb.Text & "', N'0', N'', N'0', N'0', N'0',N'" & 物料資料庫.地區_cb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料檔案_修改() ConnOpen() : SQL1 = "UPDATE 物料資料庫 SET 成本 = N'" & NU1 & "', 品名 = N'" & PA1 & "', 停用 = N'" & BL1 & "', 最低庫存量 = N'" & NU2 & "' , 車種年份 = N'" & 物料資料庫.車種年份_tb.Text & "', 廠牌 = N'" & 物料資料庫.廠牌_tb.Text & "', 單位 = N'" & 物料資料庫.單位_cb.Text & "' , 倉庫 = N'" & 物料資料庫.倉庫_tb.Text & "', 狀態 = N'" & 物料資料庫.狀態_cb.Text & "' WHERE (料號 = N'" & PA2 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料檔案_刪除() ConnOpen() : SQL1 = "DELETE 物料資料庫 WHERE (料號 = N'" & PA20 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫單位_下拉清單() ConnOpen() : SQL1 = "SELECT 單位 FROM 物料資料庫 GROUP BY 單位 ORDER BY 單位 " : CmdSet_For_dr() End Sub Friend Sub SQL_物料入庫系統_物料清單() 'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If ConnOpen() If PA56 = "" Then SQL1 = "SELECT 料號,車種年份,品名,廠牌,成本,單位 FROM 物料資料庫 INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 WHERE 供應商資料表.公司名 LIKE N'%" & 物料入庫系統.選擇供應商_cb.Text & "%' ORDER BY 物料資料庫.料號" Else SQL1 = "SELECT 料號,車種年份,品名,廠牌,成本,單位 FROM 物料資料庫 INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 WHERE 供應商資料表.公司名 LIKE N'%" & 物料入庫系統.選擇供應商_cb.Text & "%' AND (物料資料庫.品名 LIKE N'%" & PA56 & "%' OR 物料資料庫.車種年份 LIKE N'%" & PA56 & "%' OR 物料資料庫.廠牌 LIKE N'%" & PA56 & "%') ORDER BY 物料資料庫.料號 " End If CmdSet_For_DGV() End Sub Friend Sub SQL_物料入庫系統_查詢入庫明細流水號() ConnOpen() SQL1 = "SELECT 流水號 FROM 倉儲明細表 WHERE (流水號 ='" & PA19 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料入庫系統_新增明細表() ConnOpen() SQL1 = "INSERT INTO 倉儲明細表 (流水號, 申請人, 申請日期, 料號, 入庫數量,單價,備註,出庫數量,狀態) " & "VALUES (N'" & PA19 & "', N'" & gUserName & "', N'" & 物料入庫系統.選擇日期_dtp.Text & "', N'" & 物料入庫系統.料號_tb.Text & "', N'0', N'0', N'', N'0',N'銷貨入庫')" CmdSet_For_dr() End Sub Friend Sub SQL_物料入庫系統_新增明細表1() ConnOpen() SQL1 = "INSERT INTO 倉儲明細表 (流水號, 申請人, 申請日期, 料號, 入庫數量,單價,備註,出庫數量,狀態) " & "VALUES (N'" & PA19 & "', N'" & gUserName & "', N'" & 物料入庫系統.選擇日期_dtp.Text & "', N'" & PA5 & "', N'0', '" & PA3 & "', N'" & PA4 & "', N'" & PA2 & "',N'沖抵項')" CmdSet_For_dr() End Sub Friend Sub SQL_物料入庫系統_明細表清單() ConnOpen() SQL1 = "SELECT 倉儲明細表.流水號 , 倉儲明細表.料號 ,物料資料庫.成本 ,物料資料庫.廠牌 ,物料資料庫.車種年份 ,物料資料庫.品名 , 倉儲明細表.入庫數量,倉儲明細表.單價,倉儲明細表.單價 AS 總額,倉儲明細表.備註 ,倉儲明細表.申請人,倉儲明細表.申請日期 ,物料資料庫.停用 AS 是否儲存 FROM 倉儲明細表 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 WHERE 倉儲明細表.申請日期 LIKE N'" & 物料入庫系統.選擇日期_dtp.Text & "' AND 倉儲明細表.狀態 = N'銷貨入庫' AND 供應商資料表.公司名 LIKE N'%" & 物料入庫系統.選擇供應商1_cb.Text & "%'" 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_物料入庫系統_刪除明細表1() ConnOpen() SQL1 = "DELETE FROM 倉儲明細表 WHERE 申請人 LIKE N'" & PA8 & "' AND 申請日期 LIKE N'" & PA9 & "' AND 料號 LIKE N'" & PA5 & "' AND 入庫數量 LIKE N'0' AND 單價 LIKE N'" & PA11 & "' AND 出庫數量 LIKE N'" & PA10 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_物料入庫系統_修改明細表() ConnOpen() SQL1 = "UPDATE 倉儲明細表 SET 入庫數量 = N'" & PA2 & "', 單價 = N'" & PA3 & "', 備註 = N'" & PA4 & "' WHERE (流水號 LIKE N'" & PA1 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_倉儲對帳表_明細表清單() ConnOpen() SQL1 = "SELECT 倉儲明細表.流水號 , 倉儲明細表.料號 ,物料資料庫.成本 ,物料資料庫.車種年份 ,物料資料庫.品名 ,物料資料庫.廠牌 , 倉儲明細表.入庫數量 AS 數量,倉儲明細表.單價,倉儲明細表.單價 AS 總額,倉儲明細表.備註 ,倉儲明細表.申請人,倉儲明細表.申請日期 FROM 倉儲明細表 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 WHERE 倉儲明細表.狀態 = N'銷貨入庫' AND (倉儲明細表.申請日期 BETWEEN '" & Strings.Format(倉儲對帳表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(倉儲對帳表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 供應商資料表.公司名 LIKE N'%" & 倉儲對帳表.選擇供應商_cb.Text & "%' ORDER BY 流水號" CmdSet_For_DGV() End Sub Friend Sub SQL_倉儲對帳表_供應商資料() ConnOpen() SQL1 = "SELECT 供應商編碼 AS 編號,公司名 AS 名稱,公司地址 AS 地址,公司電話1 AS 電話,公司傳真1 AS 傳真 FROM 供應商資料表 WHERE 公司名=N'" & 倉儲對帳表.選擇供應商_cb.Text & "'" CmdSet_For_dr() End Sub Friend Sub SQL_倉儲管理系統_倉儲明細表(ByVal 符號 As String) ConnOpen() SQL1 = "SELECT 物料資料庫.料號, 物料資料庫.品名, 物料資料庫.廠牌, 物料資料庫.車種年份, SUM(CAST(倉儲明細表.入庫數量 AS float) - CAST(倉儲明細表.出庫數量 AS float)) AS 庫存量 FROM 物料資料庫 INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 LEFT JOIN 倉儲明細表 ON 物料資料庫.料號 = 倉儲明細表.料號 WHERE 物料資料庫.狀態 LIKE N'物料' AND 物料資料庫.品名 NOT LIKE N'稅金' GROUP BY 物料資料庫.料號, 物料資料庫.品名, 物料資料庫.廠牌, 物料資料庫.車種年份 HAVING SUM(CAST(倉儲明細表.入庫數量 AS float) - CAST(倉儲明細表.出庫數量 AS float)) " & 符號 & "0 AND SUM(CAST(倉儲明細表.入庫數量 AS float) - CAST(倉儲明細表.出庫數量 AS float)) IS NOT NULL ORDER BY 庫存量 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_倉儲管理系統_倉儲明細表明細(ByVal 料號 As String) ConnOpen() SQL1 = "SELECT 申請日期 ,入庫數量,出庫數量 ,狀態 FROM 倉儲明細表 WHERE 料號 LIKE N'" & 料號 & "' ORDER BY 流水號 DESC" CmdSet_For_DGV() End Sub End Module