Module SQL_業務管理系統 '---------------------客戶資料表----------------------------------------------------------------------------------------------------------------- Friend Sub SQL_客戶資料表_清單() ConnOpen() If PA = "" Then SQL2 = "" Else SQL2 = " WHERE 簡稱 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 公司電話 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%' OR 負責人 LIKE N'%" & PA & "%' OR 負責人電話 LIKE N'%" & PA & "%' OR 聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人1電話 LIKE N'%" & PA & "%' OR 聯繫人1郵件 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人2電話 LIKE N'%" & PA & "%' OR 聯繫人2郵件 LIKE N'%" & PA & "%' " End If SQL1 = "SELECT 簡稱 AS [NO.], 簡稱 AS [" & 表頭(50) & "], 客戶名稱 AS [" & 表頭(51) & "], 公司電話 AS [" & 表頭(53) & "], 地址 AS [" & 表頭(52) & "], 負責人 AS [" & 表頭(145) & "], 負責人電話 AS [" & 表頭(146) & "], 聯繫人1 AS [" & 表頭(59) & "], 聯繫人1電話 AS [" & 表頭(147) & "], 聯繫人1郵件 AS [" & 表頭(148) & "], 聯繫人2 AS [" & 表頭(60) & "], 聯繫人2電話 AS [" & 表頭(149) & "], 聯繫人2郵件 AS [" & 表頭(150) & "], 流水號,客戶車號 FROM 客戶資料表 " & SQL2 & " 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 客戶資料表 GROUP BY 簡稱 ORDER BY 簡稱 DESC" : 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_客戶資料表_最後一筆資料1() ConnOpen() : SQL1 = "SELECT TOP (1) 簡稱 FROM 客戶資料表 WHERE 簡稱 LIKE N'GR%' ORDER BY 簡稱 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表_新增() ConnOpen() SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號) VALUES (N'" & 客戶資料表.供應商編號_tb.Text & "', N'" & 客戶資料表.客戶簡稱_cb.Text & "', N'" & 客戶資料表.客戶名稱_tb.Text & "', N'" & 客戶資料表.電話1_tb.Text & "', N'" & 客戶資料表.地址_tb.Text & "', N'" & 客戶資料表.負責人_tb.Text & "', N'" & 客戶資料表.負責人電話_tb.Text & "', N'" & 客戶資料表.聯繫人1_tb.Text & "', N'" & 客戶資料表.聯繫電話1_tb.Text & "', N'" & 客戶資料表.信箱1_tb.Text & "', N'" & 客戶資料表.聯繫人2_tb.Text & "', N'" & 客戶資料表.聯繫電話2_tb.Text & "', N'" & 客戶資料表.信箱2_tb.Text & "', N'" & 客戶資料表.客戶車號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表_修改() ConnOpen() SQL1 = "UPDATE 客戶資料表 SET 簡稱 = N'" & 客戶資料表.客戶簡稱_cb.Text & "', 客戶名稱 = N'" & 客戶資料表.客戶名稱_tb.Text & "', 地址 = N'" & 客戶資料表.地址_tb.Text & "', 公司電話 = N'" & 客戶資料表.電話1_tb.Text & "', 負責人 = N'" & 客戶資料表.負責人_tb.Text & "', 負責人電話 = N'" & 客戶資料表.負責人電話_tb.Text & "', 聯繫人1 = N'" & 客戶資料表.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 客戶資料表.聯繫人2_tb.Text & "', 聯繫人1電話 = N'" & 客戶資料表.聯繫電話1_tb.Text & "', 聯繫人2電話 = N'" & 客戶資料表.聯繫電話2_tb.Text & "', 聯繫人1郵件 = N'" & 客戶資料表.信箱1_tb.Text & "', 聯繫人2郵件 = N'" & 客戶資料表.信箱2_tb.Text & "' , 客戶車號 = N'" & 客戶資料表.客戶車號_tb.Text & "' WHERE (流水號 = N'" & 客戶資料表.供應商編號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表_刪除() ConnOpen() : SQL1 = "DELETE FROM 客戶資料表 WHERE (流水號 = N'" & 客戶資料表.供應商編號_tb.Text & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表1_新增() ConnOpen() SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號) VALUES (N'" & 信眾資料表.供應商編號_tb.Text & "', N'" & 信眾資料表.客戶簡稱_cb.Text & "', N'" & 信眾資料表.客戶名稱_tb.Text & "', N'" & 信眾資料表.電話1_tb.Text & "', N'" & 信眾資料表.地址_tb.Text & "', N'" & 信眾資料表.性別_cb.Text & "', N'" & 信眾資料表.生肖_cb.Text & "', N'" & 信眾資料表.聯繫人1_tb.Text & "', N'" & 信眾資料表.聯繫電話1_tb.Text & "', N'" & 信眾資料表.信箱1_tb.Text & "', N'" & 信眾資料表.聯繫人2_tb.Text & "', N'" & 信眾資料表.聯繫電話2_tb.Text & "', N'" & 信眾資料表.信箱2_tb.Text & "', N'')" CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表1_修改() ConnOpen() SQL1 = "UPDATE 客戶資料表 SET 簡稱 = N'" & 信眾資料表.客戶簡稱_cb.Text & "', 客戶名稱 = N'" & 信眾資料表.客戶名稱_tb.Text & "', 地址 = N'" & 信眾資料表.地址_tb.Text & "', 公司電話 = N'" & 信眾資料表.電話1_tb.Text & "', 負責人 = N'" & 信眾資料表.性別_cb.Text & "', 負責人電話 = N'" & 信眾資料表.生肖_cb.Text & "', 聯繫人1 = N'" & 信眾資料表.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 信眾資料表.聯繫人2_tb.Text & "', 聯繫人1電話 = N'" & 信眾資料表.聯繫電話1_tb.Text & "', 聯繫人2電話 = N'" & 信眾資料表.聯繫電話2_tb.Text & "', 聯繫人1郵件 = N'" & 信眾資料表.信箱1_tb.Text & "', 聯繫人2郵件 = N'" & 信眾資料表.信箱2_tb.Text & "' WHERE (流水號 = N'" & 信眾資料表.供應商編號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表1_刪除() ConnOpen() : SQL1 = "DELETE FROM 客戶資料表 WHERE (流水號 = N'" & 信眾資料表.供應商編號_tb.Text & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_群組編號_搜尋() ConnOpen() : SQL1 = "SELECT 簡稱 FROM 客戶資料表 WHERE 簡稱 LIKE N'" & 信眾資料表.客戶簡稱_cb.Text & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_群組編號_搜尋1() ConnOpen() : SQL1 = "SELECT 簡稱 FROM 客戶資料表 WHERE 簡稱 LIKE N'" & 快速加入.客戶簡稱_cb.Text & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_單號查詢() ConnOpen() : SQL1 = "SELECT TOP (1) 控制表單號 FROM 車輛銷售控制表 WHERE ( 控制表單號 LIKE N'" & PA & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_重複查詢() ConnOpen() : SQL1 = "SELECT * FROM 車輛銷售控制表 WHERE ( 買入牌照號碼 LIKE N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "' AND 買入車主名稱 LIKE N'" & 車輛銷售管理.買入車主名稱_tb.Text & "') AND 狀態 = N'車輛買賣'" : CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_控制表新增() ConnOpen() If 車廠型態 = True Then SQL1 = "INSERT INTO 車輛銷售控制表 (控制表單號,狀態,買入進價,買入車主地址,買入車主名稱,買入牌照號碼) VALUES (N'" & PA & "',N'" & 狀態 & "',0,N'',N'" & 車輛銷售管理.買入車主名稱_tb.Text & "',N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "')" Else SQL1 = "INSERT INTO 車輛銷售控制表 (控制表單號,狀態,買入進價,買入車主地址) VALUES (N'" & PA & "',N'" & 狀態 & "',0,N'')" End If CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_控制表清單() 'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If ConnOpen() If PA56 = "" Then SQL2 = "" Else SQL2 = " AND 車輛銷售控制表.買入牌照號碼 LIKE N'%" & PA56 & "%' OR 車輛銷售控制表.年份型式 LIKE N'%" & PA56 & "%' OR 車輛銷售控制表.買入車主名稱 LIKE N'%" & PA56 & "%' OR 車輛銷售控制表.引擎號碼 LIKE N'%" & PA56 & "%'" End If SQL1 = "SELECT 車輛銷售控制表.控制表單號 ,車輛銷售控制表.廠牌 ,車輛銷售控制表.年份型式 ,車輛銷售控制表.引擎號碼 ,車輛銷售控制表.買入日期 ,車輛銷售控制表.買入牌照號碼 AS 車號, 車輛銷售控制表.買入顏色 ,車輛銷售控制表.買入車主名稱 AS 車主,車輛銷售控制表.買入車主電話 ,車輛銷售控制表.買入車主地址 ,車輛銷售控制表.買入進價 ,車輛銷售控制表.買入經手人 , 車輛銷售控制表.支出合計 ,車輛銷售控制表.買入總成本 ,車輛銷售控制表.賣出日期 ,車輛銷售控制表.賣出牌照號碼 ,車輛銷售控制表.賣出顏色 ,車輛銷售控制表.賣出車主名稱 , 車輛銷售控制表.賣出車主電話 ,車輛銷售控制表.賣出車主地址 ,車輛銷售控制表.賣出售價 ,車輛銷售控制表.賣出經手人 ,車輛銷售控制表.備註 ,車輛銷售控制表.檢測日期 , 車輛銷售控制表.已交車 ,車輛銷售控制表.進廠里程 ,車輛銷售控制表.出廠里程 FROM 車輛銷售控制表 WHERE 狀態 = N'" & 狀態 & "' " & SQL2 & " " & PA55 & " ORDER BY 車輛銷售控制表.控制表單號 DESC" CmdSet_For_DGV() 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'%" & PA56 & "%' OR 物料資料庫.廠牌 LIKE N'%" & PA56 & "%' OR 物料資料庫.車種年份 LIKE N'%" & PA56 & "%') AND 供應商資料表.公司名 LIKE N'%" & 車輛銷售管理.選擇供應商_cb.Text & "%' ORDER BY 物料資料庫.料號 " End If CmdSet_For_DGV() End Sub Friend Sub SQL_車輛銷售管理_控制表修改() ConnOpen() If 車廠型態 = True Then SQL1 = "UPDATE 車輛銷售控制表 SET 廠牌 = N'" & 車輛銷售管理.廠牌_tb.Text & "', 年份型式 = N'" & 車輛銷售管理.年分_tb.Text & "', 引擎號碼 = N'" & 車輛銷售管理.引擎_tb.Text & "', 買入日期 = N'" & 車輛銷售管理.買入日期_dtp.Text & "', 買入牌照號碼 = N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "', 買入顏色 = N'" & 車輛銷售管理.買入顏色_tb.Text & "', 買入車主名稱 = N'" & 車輛銷售管理.買入車主名稱_tb.Text & "', 買入車主電話 = N'" & 車輛銷售管理.買入車主電話_tb.Text & "', 買入車主地址 = N'" & 車輛銷售管理.買入車主地址_tb.Text & "', 買入進價 = N'" & 車輛銷售管理.進價_tb.Text & "', 買入經手人 = N'" & 車輛銷售管理.買入經手人_tb.Text & "', 賣出日期 = N'" & 車輛銷售管理.賣出日期_dtp.Text & "', 賣出牌照號碼 = N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "', 賣出顏色 = N'" & 車輛銷售管理.賣出顏色_tb.Text & "', 賣出車主名稱 = N'" & 車輛銷售管理.賣出車主名稱_tb.Text & "', 賣出車主電話 = N'" & 車輛銷售管理.賣出車主電話_tb.Text & "', 賣出車主地址 = N'" & 車輛銷售管理.賣出車主地址_tb.Text & "', 賣出售價 = N'" & 車輛銷售管理.售價_tb.Text & "', 賣出經手人 = N'" & 車輛銷售管理.賣出經手人_tb.Text & "', 備註 = N'" & 車輛銷售管理.備註_tb.Text & "', 檢測日期 = N'" & 車輛銷售管理.檢測日期_dtp.Text & "', 買入總成本 = N'" & 車輛銷售管理.利潤率.Value & "', 已交車 = N'" & 車輛銷售管理.已交車_cb.Checked & "',進廠里程 = N'" & 車輛銷售管理.進廠里程_tb.Text & "', 出廠里程 = N'" & 車輛銷售管理.出廠里程_tb.Text & "' WHERE (控制表單號 = N'" & 車輛銷售管理.單號_tb.Text & "')" Else SQL1 = "UPDATE 車輛銷售控制表 SET 廠牌 = N'" & 車輛銷售管理.車型_tb.Text & "', 年份型式 = N'" & 車輛銷售管理.年_tb.Text & "', 引擎號碼 = N'" & 車輛銷售管理.引擎號碼1_tb.Text & "', 買入日期 = N'" & 車輛銷售管理.入廠日期_dtp.Text & "', 買入牌照號碼 = N'" & 車輛銷售管理.車號_tb.Text & "', 買入顏色 = N'" & 車輛銷售管理.輪胎尺寸_tb.Text & "', 買入車主名稱 = N'" & 車輛銷售管理.車主名稱_tb.Text & "', 買入車主電話 = N'" & 車輛銷售管理.電話_tb.Text & "', 買入車主地址 = N'" & 車輛銷售管理.地址_tb.Text & "', 買入進價 = N'" & 車輛銷售管理.全部_tb.Text & "', 買入經手人 = N'" & 車輛銷售管理.出險公司_tb.Text & "', 賣出日期 = N'', 賣出牌照號碼 = N'', 賣出顏色 = N'', 賣出車主名稱 = N'', 賣出車主電話 = N'', 賣出車主地址 = N'" & 車輛銷售管理.賒帳_tb.Text & "', 賣出售價 = N'" & 車輛銷售管理.現金_tb.Text & "', 賣出經手人 = N'', 備註 = N'', 檢測日期 = N'" & 車輛銷售管理.應驗車日_dtp.Text & "', 買入總成本 = N'" & 車輛銷售管理.信用卡_tb.Text & "', 支出合計 = N'" & 車輛銷售管理.支票_tb.Text & "', 已交車 = N'" & 車輛銷售管理.是否收稅_cb.Checked & "',進廠里程 = N'" & 車輛銷售管理.里程_tb.Text & "', 出廠里程 = N'" & 車輛銷售管理.保養預示_tb.Text & "' WHERE (控制表單號 = N'" & 車輛銷售管理.單號_tb.Text & "')" End If CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_車號備註查詢() ConnOpen() : SQL1 = "SELECT 備註 FROM 客戶資料表 WHERE ( 客戶名稱 LIKE N'" & 車輛銷售管理.車主名稱_tb.Text & "') AND (客戶車號 = N'" & 車輛銷售管理.車號_tb.Text & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_車號備註儲存() ConnOpen() SQL1 = "UPDATE 客戶資料表 SET 備註 = N'" & 車輛銷售管理.備註1_tb.Text & "' WHERE (客戶名稱 = N'" & 車輛銷售管理.車主名稱_tb.Text & "') AND (客戶車號 = N'" & 車輛銷售管理.車號_tb.Text & "') " CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_控制表刪除() ConnOpen() SQL1 = "DELETE FROM 車輛銷售控制表 WHERE (控制表單號= N'" & 車輛銷售管理.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_明細表刪除() ConnOpen() SQL1 = "DELETE FROM 車輛銷售明細表 WHERE (控制表單號=N'" & 車輛銷售管理.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_倉儲明細表刪除() ConnOpen() SQL1 = "DELETE FROM 倉儲明細表 WHERE (控制表單號= N'" & 車輛銷售管理.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_查詢明細表流水號() ConnOpen() SQL1 = "SELECT 流水號 FROM 車輛銷售明細表 WHERE (流水號 =N'" & PA19 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_查詢最後一筆單號項次() ConnOpen() SQL1 = "SELECT TOP(1) 項次 FROM 車輛銷售明細表 WHERE 控制表單號 LIKE N'" & PA & "' ORDER BY 項次 DESC" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_新增明細表() ConnOpen() SQL1 = "INSERT INTO 車輛銷售明細表 (流水號, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 項次,成本,已儲存,狀態) " & "VALUES (N'" & PA19 & "', N'', N'0', '0', N'', N'" & 車輛銷售管理.單號_tb.Text & "', N'', N'" & PA15 & "','0','0',N'免')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_新增明細表1() ConnOpen() SQL1 = "INSERT INTO 車輛銷售明細表 (流水號, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 項次,成本,已儲存,狀態) " & "VALUES (N'" & PA19 & "', N'" & 車輛銷售管理.品名.Text & "', N'0', '0', N'', N'" & 車輛銷售管理.單號_tb.Text & "', N'" & 車輛銷售管理.料號_tb.Text & "', N'" & PA15 & "'," & 車輛銷售管理.成本.Text & ",'0',N'" & 車輛銷售管理.狀態_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_查詢明細表() ConnOpen() SQL1 = "SELECT 車輛銷售明細表.控制表單號,車輛銷售明細表.項次 ,車輛銷售明細表.各項支出名稱,車輛銷售明細表.數量,車輛銷售明細表.成本, 車輛銷售明細表.金額 AS 售價,車輛銷售明細表.金額 AS 總成本,車輛銷售明細表.金額 AS 總售價,車輛銷售明細表.金額 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 & "' AND 項次 LIKE N'" & 車輛銷售管理.流水號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_修改明細表項次() ConnOpen() SQL1 = "UPDATE 車輛銷售明細表 SET 項次 = N'" & PA18 & "' WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "' AND 項次 LIKE N'" & PA17 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_修改明細表() ConnOpen() SQL1 = "UPDATE 車輛銷售明細表 SET 各項支出名稱 = N'" & PA1 & "', 數量 = N'" & PA2 & "', 金額 = N'" & PA3 & "', 備註 = N'" & PA4 & "' , 料號 = N'" & PA5 & "', 項次 = N'" & PA6 & "', 成本 = N'" & PA8 & "',已儲存 ='1',狀態 =N'" & PA7 & "' WHERE (流水號 LIKE N'" & PA10 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_修改支出合計() ConnOpen() SQL1 = "UPDATE 車輛銷售控制表 SET 支出合計 = N'" & PA7 & "' WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_供應商類別下拉() ConnOpen() SQL1 = "SELECT 物料資料庫.供應商類別 FROM 物料資料庫 GROUP BY 物料資料庫.供應商類別 " CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_查詢客戶資料() ConnOpen() If 車廠型態 = True Then SQL1 = "SELECT * FROM 客戶資料表 WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.買入車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "')" Else SQL1 = "SELECT * FROM 客戶資料表 WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.車號_tb.Text & "')" End If CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_修改客戶資料() ConnOpen() If 車廠型態 = True Then SQL1 = "UPDATE 客戶資料表 SET 客戶名稱 = N'" & 車輛銷售管理.買入車主名稱_tb.Text & "', 公司電話 = N'" & 車輛銷售管理.買入車主電話_tb.Text & "', 地址 = N'" & 車輛銷售管理.買入車主地址_tb.Text & "',客戶車號 = N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "' WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.買入車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "')" Else SQL1 = "UPDATE 客戶資料表 SET 客戶名稱 = N'" & 車輛銷售管理.車主名稱_tb.Text & "', 公司電話 = N'" & 車輛銷售管理.電話_tb.Text & "', 地址 = N'" & 車輛銷售管理.地址_tb.Text & "',客戶車號 = N'" & 車輛銷售管理.車號_tb.Text & "',備註 = N'" & 車輛銷售管理.備註1_tb.Text & "' WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.車號_tb.Text & "')" End If CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_新增客戶資料() ConnOpen() If 車廠型態 = True Then SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號) VALUES (N'" & 車輛銷售管理.供應商編號_tb.Text & "', N'', N'" & 車輛銷售管理.買入車主名稱_tb.Text & "', N'" & 車輛銷售管理.買入車主電話_tb.Text & "', N'" & 車輛銷售管理.買入車主地址_tb.Text & "', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "')" Else SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號,備註) VALUES (N'" & 車輛銷售管理.供應商編號_tb.Text & "', N'', N'" & 車輛銷售管理.車主名稱_tb.Text & "', N'" & 車輛銷售管理.電話_tb.Text & "', N'" & 車輛銷售管理.地址_tb.Text & "', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車輛銷售管理.車號_tb.Text & "', N'')" End If CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_查詢客戶資料1() ConnOpen() SQL1 = "SELECT * 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'" & 車輛銷售管理.賣出車主名稱_tb.Text & "', 公司電話 = N'" & 車輛銷售管理.賣出車主電話_tb.Text & "', 地址 = N'" & 車輛銷售管理.賣出車主地址_tb.Text & "',客戶車號 = N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "' WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.賣出車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_新增客戶資料1() ConnOpen() SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號) VALUES (N'" & 車輛銷售管理.供應商編號_tb.Text & "', N'', N'" & 車輛銷售管理.賣出車主名稱_tb.Text & "', N'" & 車輛銷售管理.賣出車主電話_tb.Text & "', N'" & 車輛銷售管理.賣出車主地址_tb.Text & "', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_新增倉儲明細表() ConnOpen() SQL1 = "INSERT INTO 倉儲明細表 (流水號, 申請人, 申請日期, 料號, 入庫數量,單價,備註,出庫數量,狀態,控制表單號) " & "VALUES (N'" & PA19 & "', N'" & gUserName & "', N'" & DTP4 & "', N'" & PA5 & "', N'0', N'" & PA3 & "', N'" & PA4 & "', N'" & PA2 & "',N'使用出庫',N'" & 車輛銷售管理.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_修改倉儲明細表() ConnOpen() SQL1 = "UPDATE 倉儲明細表 SET 單價 = N'" & PA3 & "', 出庫數量 = N'" & PA2 & "' WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "') AND (料號 LIKE N'" & PA5 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_刪除倉儲明細表() ConnOpen() SQL1 = "DELETE FROM 倉儲明細表 WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "' AND 料號 LIKE N'" & 車輛銷售管理.料號1_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_查詢庫存量() ConnOpen() SQL1 = "SELECT 入庫數量,出庫數量 FROM 倉儲明細表 WHERE 料號 LIKE N'" & 車輛銷售管理.料號1_tb.Text & "'" CmdSet_For_DGV() End Sub Friend Sub SQL_車輛銷售管理_儲存列印資訊() ConnOpen() SQL1 = "UPDATE 系統預設值 SET 列印1 = N'" & 車輛銷售管理.註解1_tb.Text & "',列印2 = N'" & 車輛銷售管理.註解2_tb.Text & "', 列印3 = N'" & 車輛銷售管理.註解3_tb.Text & "',列印4 = N'" & 車輛銷售管理.註解4_tb.Text & "'" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_讀取列印資訊() ConnOpen() SQL1 = "SELECT 列印1,列印2,列印3,列印4 FROM 系統預設值" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售管理_人員明細(ByVal 姓名 As String, ByVal 車號 As String) ConnOpen() SQL1 = "SELECT TOP(1) 廠牌 ,年份型式,引擎號碼,買入顏色 FROM 車輛銷售控制表 WHERE 買入車主名稱 LIKE N'%" & 姓名 & "%' AND 買入牌照號碼 LIKE N'%" & 車號 & "%' ORDER BY 控制表單號 DESC " CmdSet_For_dr() End Sub Friend Sub SQL_連動模組_人員清單() ConnOpen() If PA57 = "" Then SQL1 = "SELECT 客戶資料表.流水號,客戶資料表.簡稱 AS 群組編號,客戶資料表.客戶名稱 AS 姓名,客戶資料表.公司電話 AS 電話,客戶資料表.地址 ,客戶資料表.客戶車號 , 客戶資料表.負責人 AS 性別 , 客戶資料表.負責人電話 , 客戶資料表.備註 AS 生肖 FROM 客戶資料表 ORDER BY 客戶資料表.流水號" Else SQL1 = "SELECT 客戶資料表.流水號,客戶資料表.簡稱 AS 群組編號,客戶資料表.客戶名稱 AS 姓名,客戶資料表.公司電話 AS 電話,客戶資料表.地址 ,客戶資料表.客戶車號 , 客戶資料表.負責人 AS 性別 , 客戶資料表.負責人電話, 客戶資料表.備註 AS 生肖 FROM 客戶資料表 WHERE 客戶資料表.客戶名稱 LIKE N'%" & PA57 & "%' OR 客戶資料表.公司電話 LIKE N'%" & PA57 & "%' OR 客戶資料表.地址 LIKE N'%" & PA57 & "%' OR 客戶資料表.客戶車號 LIKE N'%" & PA57 & "%' OR 客戶資料表.簡稱 LIKE N'%" & PA57 & "%' 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 & "' , 客戶車號 = N'" & 連動模組.車號_tb.Text & "' WHERE (流水號 LIKE N'" & 連動模組.流水號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_車輛銷售報表_車種(價 As String, 狀態 As String) ConnOpen() SQL1 = "SELECT 廠牌, COUNT(*) AS 次數, SUM(" & 價 & ") AS 總價 FROM 車輛銷售控制表 WHERE (控制表單號 LIKE N'CR-" & PA58 & "%') AND (狀態 LIKE N'" & 狀態 & "') GROUP BY 廠牌 ORDER BY 次數 DESC, 總價 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_車輛銷售報表_車種合計(價 As String, 狀態 As String) ConnOpen() SQL1 = "SELECT TOP(1) 廠牌, COUNT(*) AS 次數, SUM(" & 價 & ") AS 總價 FROM 車輛銷售控制表 WHERE (狀態 LIKE N'" & 狀態 & "') GROUP BY 廠牌 ORDER BY 次數 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_車輛銷售報表_日期(價 As String, 狀態 As String) ConnOpen() SQL1 = "SELECT SUBSTRING(控制表單號, 4, 8) AS 日期, SUM(" & 價 & ") AS 總價 FROM 車輛銷售控制表 WHERE (SUBSTRING(控制表單號, 4, 6) = N'" & PA58 & "') AND (狀態 LIKE N'" & 狀態 & "') GROUP BY SUBSTRING(控制表單號, 4, 8) ORDER BY 日期" CmdSet_For_DGV() End Sub Friend Sub SQL_車輛銷售報表_日期年(價 As String, 狀態 As String) ConnOpen() SQL1 = "SELECT SUBSTRING(控制表單號, 4, 6) AS 日期, SUM(" & 價 & ") AS 總價 FROM 車輛銷售控制表 WHERE (SUBSTRING(控制表單號, 4, 4) = N'" & PA58 & "') AND (狀態 LIKE N'" & 狀態 & "') GROUP BY SUBSTRING(控制表單號, 4, 6) ORDER BY 日期" CmdSet_For_DGV() End Sub Friend Sub SQL_車輛銷售報表_日期合計(價 As String, 狀態 As String) ConnOpen() SQL1 = "SELECT TOP(1) SUBSTRING(控制表單號, 4, 8) AS 日期, SUM(" & 價 & ") AS 總價 FROM 車輛銷售控制表 WHERE (狀態 LIKE N'" & 狀態 & "') GROUP BY SUBSTRING(控制表單號, 4, 8) ORDER BY 日期" CmdSet_For_DGV() End Sub Friend Sub SQL_估價單_單號查詢() ConnOpen() : SQL1 = "SELECT TOP (1) 控制表單號 FROM 估價單控制表 WHERE ( 控制表單號 LIKE N'" & PA & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_估價單_控制表新增() ConnOpen() SQL1 = "INSERT INTO 估價單控制表 (控制表單號,客戶,報價日期,廠牌車種,進廠,車身型式,業務,總計,備註,付款方式) VALUES (N'" & PA & "',N'',N'',N'',N'',N'',N'',N'0',N'',N'')" CmdSet_For_dr() End Sub Friend Sub SQL_估價單_控制表修改() ConnOpen() SQL1 = "UPDATE 估價單控制表 SET 客戶 = N'" & 估價單.客戶_tb.Text & "', 報價日期 = N'" & 估價單.選擇日期_dtp.Text & "', 廠牌車種 = N'" & 估價單.廠牌_tb.Text & "', 進廠= N'" & 估價單.進廠_tb.Text & "', 車身型式 = N'" & 估價單.年分_tb.Text & "', 業務 = N'" & 估價單.業務_tb.Text & "', 總計 = N'" & 估價單.總價_tb.Text & "', 備註 = N'" & 估價單.備註_tb.Text & "', 付款方式 = N'" & 估價單.付款_tb.Text & "' WHERE (控制表單號 = N'" & 估價單.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_估價單_控制表刪除() ConnOpen() SQL1 = "DELETE FROM 估價單控制表 WHERE (控制表單號= N'" & 估價單.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_估價單_明細表刪除() ConnOpen() SQL1 = "DELETE FROM 估價單明細表 WHERE (控制表單號=N'" & 估價單.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_估價單_控制表清單() 'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If ConnOpen() If PA56 = "" Then SQL2 = "" Else SQL2 = "WHERE 估價單控制表.客戶 LIKE N'%" & PA56 & "%' OR 估價單控制表.廠牌車種 LIKE N'%" & PA56 & "%'" End If SQL1 = "SELECT 估價單控制表.控制表單號,估價單控制表.客戶,估價單控制表.報價日期,估價單控制表.廠牌車種, 估價單控制表.進廠,估價單控制表.車身型式,估價單控制表.業務,估價單控制表.總計, 估價單控制表.備註,估價單控制表.付款方式 FROM 估價單控制表 " & SQL2 & " ORDER BY 估價單控制表.控制表單號 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_估價單_查詢明細表() ConnOpen() SQL1 = "SELECT 估價單明細表.控制表單號,估價單明細表.項次 ,估價單明細表.內容 FROM 估價單明細表 WHERE (估價單明細表.控制表單號 LIKE N'" & 估價單.單號_tb.Text & "') ORDER BY 估價單明細表.項次" CmdSet_For_DGV() 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'" & PA15 & "',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'" & PA2 & "' WHERE (控制表單號 LIKE N'" & 估價單.單號_tb.Text & "' AND 項次 LIKE N'" & PA1 & "') " CmdSet_For_dr() End Sub Friend Sub SQL_估價單_明細表項次更新() ConnOpen() SQL1 = "WITH NumberedRows AS ( SELECT 項次, ROW_NUMBER() OVER (ORDER BY 項次) AS RowNum FROM 估價單明細表 ) UPDATE 估價單明細表 SET 項次 = RowNum FROM NumberedRows WHERE 估價單明細表.項次 = NumberedRows.項次; " CmdSet_For_dr() End Sub Friend Sub SQL_點燈_查詢第一筆單號() ConnOpen() SQL1 = "SELECT TOP (1) 單號 FROM 點燈控制表 WHERE ( 單號 LIKE N'" & PA & "')" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_新增一筆點燈控制表() ConnOpen() SQL1 = "INSERT INTO 點燈控制表 (單號, 日期, 住址, 電話, 內容, 金額, 主任委員, 收款人, 姓名,財務單號,群組編號,已收款,已點燈) " & "VALUES (N'" & PA & "', N'" & PA1 & "', N'', N'', N'', '', N'', N'', N'', N'', N'', '0', '0')" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_控制表刪除() ConnOpen() SQL1 = "DELETE FROM 點燈控制表 WHERE (單號 = N'" & PA & "')" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_明細表刪除() ConnOpen() SQL1 = "DELETE FROM 點燈明細表 WHERE (控制表單號 = N'" & PA & "')" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_控制表修改() ConnOpen() SQL1 = "UPDATE 點燈控制表 SET 住址 = N'" & 點燈系統.地址_tb.Text & "', 電話 = N'" & 點燈系統.電話_tb.Text & "', 姓名= N'" & 點燈系統.車主名稱_tb.Text & "' , 群組編號= N'" & 點燈系統.群組編號_cb.Text & "', 金額= N'" & 點燈系統.總金額_tb.Text & "' WHERE (單號 =N'" & 點燈系統.單號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_收款查詢() ConnOpen() SQL1 = "SELECT 姓名, 會計科目, 科目編號, 內容, 非點燈收款, CH1, CH2, CH3, CH4, CH5, CH6, CH7, CH8, CH9, CH10,性別,生肖 FROM 點燈收款資料 WHERE (單號 LIKE N'" & PA1 & "') ORDER BY 項 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_點燈_未安查詢() ConnOpen() SQL1 = "SELECT 燈區年度分配.年度, 燈區年度分配.區編, 燈區年度分配.燈種, 燈位資料.牆柱位, 燈位資料.列位, 燈位資料.層位, 燈位資料.編號 FROM 燈區年度分配 INNER JOIN 燈位資料 ON 燈區年度分配.區編 = 燈位資料.區編 WHERE (燈區年度分配.年度 LIKE N'110') AND (燈區年度分配.燈種 LIKE N'解厄燈') AND (NOT EXISTS (SELECT 1 AS Expr1 FROM 點燈明細表 WHERE (年度 LIKE N'110') AND (燈位資料.編號 = 位置))) ORDER BY 燈位資料.層位, 燈區年度分配.區編, 燈位資料.列位" CmdSet_For_DGV() End Sub Friend Sub SQL_點燈_剩餘查詢() ConnOpen() SQL1 = "SELECT 燈區年度分配.燈種, COUNT(AA.編號) AS 燈數 FROM 燈區年度分配 INNER JOIN (SELECT 區編, 編號 FROM 燈位資料 WHERE (NOT EXISTS (SELECT 1 AS Expr1 FROM 點燈明細表 WHERE (燈位資料.編號 = 位置) AND (年度 LIKE N'" & PA & "')))) AS AA ON 燈區年度分配.區編 = AA.區編 WHERE (燈區年度分配.年度 LIKE N'" & PA & "') GROUP BY 燈區年度分配.燈種 ORDER BY 燈區年度分配.燈種" CmdSet_For_DGV() End Sub Friend Sub SQL_點燈_收款新增() ConnOpen() : SQL1 = "INSERT INTO 點燈收款資料 (單號, 項, 姓名, 會計科目, 科目編號, 內容, 非點燈收款 " & SQL2 & ",性別,生肖) VALUES " & SQL3 & "" : CmdSet_For_dr() End Sub Friend Sub SQL_點燈_收款刪除() ConnOpen() : SQL1 = "DELETE 點燈收款資料 WHERE 單號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_點燈_控制表清單() ConnOpen() If PA56 = "" Then : SQL2 = "" : Else SQL2 = "WHERE 點燈控制表.住址 LIKE N'%" & PA56 & "%' OR 點燈控制表.電話 LIKE N'%" & PA56 & "%' OR 點燈控制表.姓名 LIKE N'%" & PA56 & "%' " End If SQL1 = "SELECT 點燈控制表.單號 ,點燈控制表.住址 ,點燈控制表.電話 ,點燈控制表.日期 ,點燈控制表.內容 ,點燈控制表.金額 ,點燈控制表.主任委員 , 點燈控制表.收款人 ,點燈控制表.姓名 ,點燈控制表.財務單號,點燈控制表.群組編號,點燈控制表.已收款 FROM 點燈控制表 " & SQL2 & " ORDER BY 點燈控制表.單號 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_點燈_人員下拉清單() ConnOpen() : SQL1 = "SELECT 客戶名稱,負責人,負責人電話 FROM 客戶資料表 WHERE (簡稱 =N'" & 點燈系統.群組編號_cb.Text & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_點燈_明細表清單() ConnOpen() SQL1 = "SELECT 選擇 AS 姓名,是否 AS 光明燈 ,是否 AS 太歲燈 ,是否 AS 智慧燈 ,是否 AS 財利燈 ,是否 AS 姻緣燈 , 是否 AS 延壽燈 ,是否 AS 解厄燈 , 選擇 AS 金額 FROM GCM空白圖片 " CmdSet_For_DGV() End Sub Friend Sub SQL_登牆清單() ConnOpen() SQL1 = "SELECT 燈位資料.廳位, 燈位資料.區編, 燈位資料.牆柱位, 燈區年度分配.燈種, COUNT(燈位資料.編號) AS 燈數,燈區年度分配.價格,燈區年度分配.排序 FROM 燈位資料 INNER JOIN 燈區年度分配 ON 燈位資料.區編 = 燈區年度分配.區編 WHERE (燈區年度分配.年度 LIKE N'" & PA & "') GROUP BY 燈位資料.廳位, 燈位資料.區編, 燈位資料.牆柱位, 燈區年度分配.燈種,燈區年度分配.價格,燈區年度分配.排序 ORDER BY 燈位資料.廳位, 燈位資料.區編, 燈位資料.牆柱位" CmdSet_For_DGV() End Sub Friend Sub SQL_燈號明細() ConnOpen() SQL1 = "SELECT 燈位資料.列位, 燈位資料.層位, 燈位資料.編號, AA.姓名, AA.流水號 FROM 燈位資料 LEFT OUTER JOIN (SELECT 姓名, 位置, 流水號 FROM 點燈明細表 WHERE (年度 LIKE N'" & PA10 & "')) AS AA ON 燈位資料.編號 = AA.位置 WHERE (燈位資料.區編 LIKE N'" & PA & "') AND (燈位資料.牆柱位 LIKE N'" & PA1 & "') ORDER BY 燈位資料.層位, 燈位資料.列位" CmdSet_For_DGV() End Sub Friend Sub SQL_燈號明細_列數() ConnOpen() SQL1 = "SELECT 列位 FROM 燈位資料 WHERE (區編 LIKE N'" & PA & "') AND (牆柱位 LIKE N'" & PA1 & "') GROUP BY 列位 ORDER BY 列位 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_點燈明細查詢() ConnOpen() SQL1 = "SELECT 點燈明細表.控制表單號, 點燈明細表.姓名, 點燈明細表.燈種, 點燈明細表.金額, 點燈明細表.位置, 點燈明細表.年度 ,客戶資料表.負責人,客戶資料表.負責人電話 FROM 點燈明細表 LEFT OUTER JOIN 客戶資料表 ON 客戶資料表.客戶名稱 = 點燈明細表.姓名 WHERE (點燈明細表.流水號 LIKE N'" & PA20 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_燈年份() ConnOpen() : SQL1 = "SELECT 年度 FROM 燈區年度分配 GROUP BY 年度 ORDER BY 年度 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_燈年份新增() ConnOpen() : SQL1 = "INSERT INTO 燈區年度分配 (年度, 區編, 燈種,排序) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "',N'順排')" : CmdSet_For_dr() End Sub Friend Sub SQL_燈年份刪除() ConnOpen() : SQL1 = "DELETE 燈區年度分配 WHERE 年度 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_燈價格() ConnOpen() SQL1 = "SELECT 燈區年度分配.年度, 燈區年度分配.燈種, 燈區年度分配.價格, 燈區年度分配.科目編號, 會計科目.會計科目,燈區年度分配.排序 FROM 燈區年度分配 LEFT OUTER JOIN 會計科目 ON 燈區年度分配.科目編號 = 會計科目.編號 WHERE (燈區年度分配.年度 LIKE N'" & PA & "') GROUP BY 燈區年度分配.年度, 燈區年度分配.燈種, 燈區年度分配.價格, 燈區年度分配.科目編號, 會計科目.會計科目,燈區年度分配.排序 ORDER BY 燈區年度分配.年度, 燈區年度分配.燈種, 燈區年度分配.價格" CmdSet_For_DGV() End Sub Friend Sub SQL_燈價格修改() ConnOpen() : SQL1 = "UPDATE 燈區年度分配 SET 價格 = N'" & PA2 & "' WHERE (年度 LIKE N'" & PA & "') AND (燈種 LIKE N'" & PA1 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_燈價格修改_科目() ConnOpen() : SQL1 = "UPDATE 燈區年度分配 SET 科目編號 = N'" & PA3 & "' WHERE (年度 LIKE N'" & PA & "') AND (燈種 LIKE N'" & PA1 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_燈價格查詢() ConnOpen() SQL1 = "SELECT 燈區年度分配.燈種, 燈區年度分配.價格, 燈區年度分配.科目編號, 會計科目.會計科目,燈區年度分配.排序 FROM 燈區年度分配 LEFT OUTER JOIN 會計科目 ON 燈區年度分配.科目編號 = 會計科目.編號 WHERE (燈區年度分配.年度 LIKE N'" & PA & "') GROUP BY 燈區年度分配.燈種, 燈區年度分配.價格, 燈區年度分配.科目編號, 會計科目.會計科目,燈區年度分配.排序 ORDER BY 燈區年度分配.燈種" CmdSet_For_DGV() End Sub Friend Sub SQL_燈科目查詢() ConnOpen() SQL1 = "SELECT 燈區年度分配.科目編號, 會計科目.會計科目 FROM 燈區年度分配 LEFT OUTER JOIN 會計科目 ON 燈區年度分配.科目編號 = 會計科目.編號 WHERE (燈區年度分配.年度 LIKE N'" & PA & "') GROUP BY 燈區年度分配.科目編號, 會計科目.會計科目 ORDER BY 燈區年度分配.科目編號" CmdSet_For_DGV() End Sub Friend Sub SQL_燈科目讀取() ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE N'C-03-07%') AND (層級 LIKE N'3') AND (停用 = 0)" : CmdSet_For_dr() End Sub Friend Sub SQL_燈科目讀取1() ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE N'C-03-07%') AND (層級 LIKE N'3') AND (停用 = 0) " & SQL2 : 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 (N'" & PA7 & "', N'" & PA & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_點燈明細修改() ConnOpen() SQL1 = "UPDATE 點燈明細表 SET 姓名 = N'" & PA2 & "', 燈種 = N'" & PA3 & "', 金額 = N'" & PA4 & "', 位置 = N'" & PA5 & "', 年度 = N'" & PA6 & "' WHERE 流水號 LIKE N'" & PA & "'" CmdSet_For_dr() End Sub Friend Sub SQL_點燈自動搜尋位置() ConnOpen() SQL1 = "SELECT TOP(1) 燈區年度分配.年度, 燈區年度分配.燈種, 燈位資料.區編, 燈位資料.列位, 燈位資料.層位, 燈位資料.編號 FROM 燈位資料 LEFT OUTER JOIN 燈區年度分配 ON 燈區年度分配.區編 = 燈位資料.區編 WHERE 燈區年度分配.年度 = N'" & PA6 & "' AND 燈區年度分配.燈種 = N'" & PA3 & "' AND NOT EXISTS ( SELECT 1 FROM 點燈明細表 WHERE 點燈明細表.年度 = N'" & PA6 & "' AND 點燈明細表.燈種 = N'" & PA3 & "' AND 點燈明細表.位置 = 燈位資料.編號 ) ORDER BY 燈位資料.區編, 燈位資料.層位 " & PA21 & ", 燈位資料.列位" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_控制表已收款修改() ConnOpen() SQL1 = "UPDATE 點燈控制表 SET 已收款 = '1' WHERE (單號 =N'" & 點燈系統.單號_tb.Text & "')" 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 = "UPDATE 燈區年度分配 SET 排序 =N'" & PA8 & "' WHERE 年度=N'" & PA9 & "' AND 燈種=N'" & PA7 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_個人燈位查詢() ConnOpen() SQL1 = "SELECT 點燈明細表.控制表單號,點燈明細表.姓名,點燈明細表.燈種,點燈明細表.位置,點燈明細表.年度,點燈明細表.金額,點燈明細表.位置 AS 座標 FROM 點燈明細表 LEFT OUTER JOIN 點燈控制表 ON 點燈控制表.單號 = 點燈明細表.控制表單號 WHERE 點燈控制表.群組編號 =N'" & PA10 & "' AND 點燈明細表.姓名 =N'" & PA11 & "'" CmdSet_For_DGV() End Sub Friend Sub SQL_點燈_控制表財務單號修改() ConnOpen() SQL1 = "UPDATE 點燈控制表 SET 財務單號 =N'" & PA & "' WHERE 單號=N'" & PA1 & "' " CmdSet_For_dr() End Sub Friend Sub SQL_點燈_新增公帳流水帳資料() ConnOpen() SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " & "VALUES (N'" & PA19 & "', N'台幣現金', N'" & DTP & "', N'" & PA12 & "', N'" & PA13 & "', N'0', N'" & PA15 & "', N'" & gUserName & "', N'" & PA & "', N'" & PA14 & "', N'0', N'1', N'1', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'1', N'' ,'0')" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_新增一筆公帳控制表() ConnOpen() SQL1 = "INSERT INTO 公帳控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號,流動,平帳) " & "VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP4 & "', N'" & gUserName & "', N'" & DTP4 & "', N'', N'', N'" & gUserName & "', N'" & DTP4 & "', N'', N'" & PA50 & "',N'0',N'0')" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_單號年度查詢() ConnOpen() SQL1 = "SELECT 點燈明細表.年度 FROM 點燈控制表 INNER JOIN 點燈明細表 ON 點燈明細表.控制表單號 = 點燈控制表.單號 WHERE 點燈控制表.單號 = N'" & PA20 & "' GROUP BY 點燈明細表.年度" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_單號收款日查詢() ConnOpen() SQL1 = "SELECT 公帳流水帳.日期 FROM 點燈控制表 INNER JOIN 公帳流水帳 ON 公帳流水帳.支付單號 = 點燈控制表.財務單號 WHERE 點燈控制表.單號 = N'" & 點燈系統.單號_tb.Text & "' GROUP BY 公帳流水帳.日期" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_支付單號查詢() ConnOpen() SQL1 = "SELECT TOP (1) 支付單號 FROM 公帳控制表 WHERE 支付單號 LIKE N'%" & DTP1 & "%' ORDER BY 支付單號 DESC" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_支付明細流水號查詢() ConnOpen() SQL1 = "SELECT TOP (1) 流水號 FROM 公帳流水帳 WHERE (流水號 LIKE N'%" & PA19 & "%') ORDER BY 流水號 DESC" CmdSet_For_dr() End Sub Friend Sub SQL_點燈_控制表已點燈修改() ConnOpen() SQL1 = "UPDATE 點燈控制表 SET 已點燈 = '1' WHERE (單號 =N'" & PA & "')" CmdSet_For_dr() End Sub Friend Sub SQL_自動點燈_控制表清單() ConnOpen() SQL1 = "SELECT 點燈控制表.單號 ,點燈控制表.住址 ,點燈控制表.電話 ,點燈控制表.日期 ,點燈控制表.內容 ,點燈控制表.金額 ,點燈控制表.主任委員 , 點燈控制表.收款人 ,點燈控制表.姓名 ,點燈控制表.財務單號,點燈控制表.群組編號,點燈控制表.已收款 FROM 點燈控制表 WHERE 點燈控制表.已點燈 = '0' ORDER BY 點燈控制表.單號 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_自動點燈_未點控制表搜尋() ConnOpen() SQL1 = "SELECT 點燈收款資料.單號,點燈收款資料.CH1,點燈收款資料.CH2,點燈收款資料.CH3,點燈收款資料.CH4,點燈收款資料.CH5, 點燈收款資料.CH6,點燈收款資料.CH7,點燈收款資料.CH8,點燈收款資料.CH9,點燈收款資料.CH10 FROM 點燈收款資料 WHERE (單號 =N'" & PA2 & "')" CmdSet_For_DGV() End Sub Friend Sub SQL_快速加入_客戶資料表新增() ConnOpen() SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號) VALUES (N'" & PA30 & "', N'" & PA31 & "', N'" & PA32 & "', N'" & PA33 & "', N'" & PA34 & "', N'" & PA35 & "', N'" & PA36 & "', N'', N'', N'', N'', N'', N'', N'')" CmdSet_For_dr() End Sub End Module