GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/0.MyModule/主資料庫/SQL_業務管理系統.vb

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