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

Imports System.Windows.Forms.VisualStyles.VisualStyleElement

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 & "%' OR 客戶車號 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_客戶資料表_明細車號修改(舊車號 As String)
        ConnOpen()
        SQL1 = "UPDATE 車輛銷售控制表 SET 買入牌照號碼 = N'" & 客戶資料表.客戶車號_tb.Text & "'
                 WHERE (買入牌照號碼 = N'" & 舊車號 & "') AND (買入車主名稱 = N'" & 客戶資料表.客戶名稱_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料表_明細車號修改1(舊車號 As String)
        ConnOpen()
        SQL1 = "UPDATE 車輛銷售控制表 SET 賣出牌照號碼 = N'" & 客戶資料表.客戶車號_tb.Text & "'
                 WHERE (賣出牌照號碼 = N'" & 舊車號 & "') AND (賣出車主名稱 = 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 簡稱 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_車輛銷售管理_物料清單(選擇供應商 As String)
        'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If
        ConnOpen()
        If PA56 = "" Then
            SQL1 = "SELECT 物料資料庫.料號,物料資料庫.品名  ,物料資料庫.廠牌,物料資料庫.車種年份 ,物料資料庫.狀態 ,物料資料庫.成本 FROM 物料資料庫
                    INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
                    WHERE 供應商資料表.公司名 LIKE N'%" & 選擇供應商 & "%' ORDER BY 物料資料庫.料號"

        Else
            SQL1 = "SELECT 物料資料庫.料號,物料資料庫.品名  ,物料資料庫.廠牌,物料資料庫.車種年份 ,物料資料庫.狀態 ,物料資料庫.成本 FROM 物料資料庫
                    INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
                    WHERE (物料資料庫.品名 LIKE N'%" & PA56 & "%'  OR  物料資料庫.廠牌 LIKE N'%" & PA56 & "%' OR 物料資料庫.車種年份 LIKE N'%" & PA56 & "%')  AND
                    供應商資料表.公司名 LIKE N'%" & 選擇供應商 & "%' 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'1', '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'')"
        CmdSet_For_dr()
    End Sub

    Friend Sub SQL_估價單_控制表修改()
        ConnOpen()
        SQL1 = "UPDATE 估價單控制表 SET 車主名稱 = N'" & 估價單.車主名稱_tb.Text & "', 報價日期 = N'" & 估價單.報價日期_dtp.Value.ToString("yyyy/MM/dd") & "', 
                                        車主電話 = 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      流水號, CAST(項次 AS INT) AS 項次, 各項支出名稱, 數量, 成本, 金額 AS 售價, 成本 AS 總成本, 金額 AS 總售價, 金額 AS 利潤,備註, 
                            控制表單號, 料號 ,狀態
                FROM        估價單明細表
                WHERE       (控制表單號 LIKE N'" & 估價單.單號_tb.Text & "')
                ORDER BY    CAST(項次 AS INT) "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_估價單_查詢最後一筆單號項次()
        ConnOpen()
        SQL1 = "SELECT TOP(1) CAST(項次 AS INT) AS 項次 FROM 估價單明細表 WHERE 控制表單號 LIKE N'" & 估價單.單號_tb.Text & "' ORDER BY CAST(項次 AS INT) DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_估價單_新增明細表(項次 As String, 項 As String, 控制表單號 As String, 料號 As String, 成本 As String, 狀態 As String)
        ConnOpen()
        SQL1 = "INSERT INTO 估價單明細表 (流水號, 項次, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 成本, 狀態) " &
                   "VALUES (N'', N'" & 項次 & "',N'" & 項 & "',N'1',N'0',N'',N'" & 控制表單號 & "',N'" & 料號 & "',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_估價單_修改明細表(項次 As String, 項 As String, 控制表單號 As String, 數量 As String, 金額 As String, 備註 As String)
        ConnOpen()
        SQL1 = "UPDATE 估價單明細表 SET 各項支出名稱 = N'" & 項 & "' , 數量 = N'" & 數量 & "',金額 = N'" & 金額 & "',備註 = N'" & 備註 & "'
                WHERE  (控制表單號 LIKE N'" & 控制表單號 & "' AND 項次 LIKE N'" & 項次 & "') "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_估價單_車輛銷售控制表新增(單號 As String, 狀態 As String, 車主 As String, 車號 As String, 日期 As String, 電話 As String, 稅 As String, 合計 As String,
                                 廠牌 As String, 年份 As String, 引擎號碼 As String, 輪胎尺寸 As String)
        ConnOpen()
        SQL1 = "INSERT INTO 車輛銷售控制表 (控制表單號,狀態,買入車主名稱,買入牌照號碼,買入日期,買入車主電話,已交車,買入進價,備註,廠牌, 年份型式,引擎號碼, 買入顏色,買入車主地址,
                            買入經手人,賣出日期,賣出牌照號碼,賣出顏色,賣出車主名稱,賣出車主電話,賣出車主地址,賣出售價,賣出經手人, 檢測日期,買入總成本,支出合計,進廠里程,出廠里程) 
                VALUES ( N'" & 單號 & "',N'" & 狀態 & "',N'" & 車主 & "',N'" & 車號 & "',N'" & 日期 & "',N'" & 電話 & "',N'" & 稅 & "',N'" & 合計 & "',N'',N'" & 廠牌 & "',
                         N'" & 年份 & "',N'" & 引擎號碼 & "',N'" & 輪胎尺寸 & "',N'',N'',N'',N'',N'',N'',N'',N'',N'0',N'',N'',N'0',N'0',N'',N'')"
        CmdSet_For_dr()

        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 Sub
    Friend Sub SQL_估價單_車輛銷售明細表新增(流水 As String, 項 As String, 數量 As String, 金額 As String, 備註 As String, 單號 As String, 料號 As String, 項次 As String, 成本 As String, 狀態 As String)
        ConnOpen()
        SQL1 = "INSERT INTO 車輛銷售明細表 (流水號, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 項次,成本,已儲存,狀態) 
                VALUES (N'" & 流水 & "', N'" & 項 & "', N'" & 數量 & "', N'" & 金額 & "', N'" & 備註 & "', N'" & 單號 & "', N'" & 料號 & "', N'" & 項次 & "'," & 成本 & ",'0',N'" & 狀態 & "')"
        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_估價單_查詢客戶資料(車主 As String, 車號 As String)
        ConnOpen()
        SQL1 = "SELECT * FROM 客戶資料表 
                WHERE  (客戶名稱 LIKE N'" & 車主 & "') AND (客戶車號 LIKE N'" & 車號 & "')"

        CmdSet_For_dr()
    End Sub

    Friend Sub SQL_估價單_新增客戶資料(流水 As String, 車主 As String, 車號 As String, 電話 As String, 備註 As String)
        ConnOpen()
        SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號,備註) 
                VALUES (N'" & 流水 & "', N'', N'" & 車主 & "', N'" & 電話 & "', 
                        N'', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車號 & "', N'" & 備註 & "')"

        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_估價單_修改客戶資料(車主 As String, 車號 As String, 電話 As String, 備註 As String)
        ConnOpen()
        SQL1 = "UPDATE 客戶資料表 SET  公司電話 = N'" & 電話 & "', 備註 = N'" & 備註 & "'
                WHERE  (客戶名稱 LIKE N'" & 車主 & "') AND (客戶車號 LIKE N'" & 車號 & "')"

        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