No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

SQL_業務管理系統.vb 61KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882
  1. Imports System.Windows.Forms.VisualStyles.VisualStyleElement
  2. Module SQL_業務管理系統
  3. '---------------------客戶資料表-----------------------------------------------------------------------------------------------------------------
  4. Friend Sub SQL_客戶資料表_清單()
  5. ConnOpen()
  6. If PA = "" Then
  7. SQL2 = ""
  8. Else
  9. SQL2 = " WHERE 簡稱 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 公司電話 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%' OR 負責人 LIKE N'%" & PA & "%' OR
  10. 負責人電話 LIKE N'%" & PA & "%' OR 聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人1電話 LIKE N'%" & PA & "%' OR 聯繫人1郵件 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR
  11. 聯繫人2電話 LIKE N'%" & PA & "%' OR 聯繫人2郵件 LIKE N'%" & PA & "%' OR 客戶車號 LIKE N'%" & PA & "%'"
  12. End If
  13. SQL1 = "SELECT 簡稱 AS [NO.], 簡稱 AS [" & 表頭(50) & "], 客戶名稱 AS [" & 表頭(51) & "], 公司電話 AS [" & 表頭(53) & "], 地址 AS [" & 表頭(52) & "], 負責人 AS [" & 表頭(145) & "],
  14. 負責人電話 AS [" & 表頭(146) & "], 聯繫人1 AS [" & 表頭(59) & "], 聯繫人1電話 AS [" & 表頭(147) & "], 聯繫人1郵件 AS [" & 表頭(148) & "], 聯繫人2 AS [" & 表頭(60) & "],
  15. 聯繫人2電話 AS [" & 表頭(149) & "], 聯繫人2郵件 AS [" & 表頭(150) & "], 流水號,客戶車號
  16. FROM 客戶資料表 " & SQL2 & "
  17. ORDER BY 流水號"
  18. CmdSet_For_DGV()
  19. End Sub
  20. Friend Sub SQL_客戶資料表_明細車號修改(舊車號 As String)
  21. ConnOpen()
  22. SQL1 = "UPDATE 車輛銷售控制表 SET 買入牌照號碼 = N'" & 客戶資料表.客戶車號_tb.Text & "'
  23. WHERE (買入牌照號碼 = N'" & 舊車號 & "') AND (買入車主名稱 = N'" & 客戶資料表.客戶名稱_tb.Text & "')"
  24. CmdSet_For_dr()
  25. End Sub
  26. Friend Sub SQL_客戶資料表_明細車號修改1(舊車號 As String)
  27. ConnOpen()
  28. SQL1 = "UPDATE 車輛銷售控制表 SET 賣出牌照號碼 = N'" & 客戶資料表.客戶車號_tb.Text & "'
  29. WHERE (賣出牌照號碼 = N'" & 舊車號 & "') AND (賣出車主名稱 = N'" & 客戶資料表.客戶名稱_tb.Text & "')"
  30. CmdSet_For_dr()
  31. End Sub
  32. Friend Sub SQL_客戶資料表_下拉清單()
  33. ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 客戶資料表 ORDER BY 客戶名稱" : CmdSet_For_dr()
  34. End Sub
  35. Friend Sub SQL_客戶資料表簡稱_下拉清單()
  36. ConnOpen() : SQL1 = "SELECT 簡稱 FROM 客戶資料表 GROUP BY 簡稱 ORDER BY 簡稱 DESC" : CmdSet_For_dr()
  37. End Sub
  38. Friend Sub SQL_客戶資料表_最後一筆資料()
  39. ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 客戶資料表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
  40. End Sub
  41. Friend Sub SQL_客戶資料表_最後一筆資料1()
  42. ConnOpen() : SQL1 = "SELECT TOP (1) 簡稱 FROM 客戶資料表 WHERE 簡稱 LIKE N'GR%' ORDER BY 簡稱 DESC" : CmdSet_For_dr()
  43. End Sub
  44. Friend Sub SQL_客戶資料表_新增()
  45. ConnOpen()
  46. SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號)
  47. VALUES (N'" & 客戶資料表.供應商編號_tb.Text & "', N'" & 客戶資料表.客戶簡稱_cb.Text & "', N'" & 客戶資料表.客戶名稱_tb.Text & "', N'" & 客戶資料表.電話1_tb.Text & "',
  48. N'" & 客戶資料表.地址_tb.Text & "', N'" & 客戶資料表.負責人_tb.Text & "', N'" & 客戶資料表.負責人電話_tb.Text & "', N'" & 客戶資料表.聯繫人1_tb.Text & "',
  49. N'" & 客戶資料表.聯繫電話1_tb.Text & "', N'" & 客戶資料表.信箱1_tb.Text & "', N'" & 客戶資料表.聯繫人2_tb.Text & "', N'" & 客戶資料表.聯繫電話2_tb.Text & "',
  50. N'" & 客戶資料表.信箱2_tb.Text & "', N'" & 客戶資料表.客戶車號_tb.Text & "')"
  51. CmdSet_For_dr()
  52. End Sub
  53. Friend Sub SQL_客戶資料表_修改()
  54. ConnOpen()
  55. SQL1 = "UPDATE 客戶資料表 SET 簡稱 = N'" & 客戶資料表.客戶簡稱_cb.Text & "', 客戶名稱 = N'" & 客戶資料表.客戶名稱_tb.Text & "',
  56. 地址 = N'" & 客戶資料表.地址_tb.Text & "', 公司電話 = N'" & 客戶資料表.電話1_tb.Text & "',
  57. 負責人 = N'" & 客戶資料表.負責人_tb.Text & "', 負責人電話 = N'" & 客戶資料表.負責人電話_tb.Text & "',
  58. 聯繫人1 = N'" & 客戶資料表.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 客戶資料表.聯繫人2_tb.Text & "',
  59. 聯繫人1電話 = N'" & 客戶資料表.聯繫電話1_tb.Text & "', 聯繫人2電話 = N'" & 客戶資料表.聯繫電話2_tb.Text & "',
  60. 聯繫人1郵件 = N'" & 客戶資料表.信箱1_tb.Text & "', 聯繫人2郵件 = N'" & 客戶資料表.信箱2_tb.Text & "' ,
  61. 客戶車號 = N'" & 客戶資料表.客戶車號_tb.Text & "'
  62. WHERE (流水號 = N'" & 客戶資料表.供應商編號_tb.Text & "')"
  63. CmdSet_For_dr()
  64. End Sub
  65. Friend Sub SQL_客戶資料表_刪除()
  66. ConnOpen() : SQL1 = "DELETE FROM 客戶資料表 WHERE (流水號 = N'" & 客戶資料表.供應商編號_tb.Text & "')" : CmdSet_For_dr()
  67. End Sub
  68. Friend Sub SQL_客戶資料表1_新增()
  69. ConnOpen()
  70. SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號)
  71. VALUES (N'" & 信眾資料表.供應商編號_tb.Text & "', N'" & 信眾資料表.客戶簡稱_cb.Text & "', N'" & 信眾資料表.客戶名稱_tb.Text & "', N'" & 信眾資料表.電話1_tb.Text & "',
  72. N'" & 信眾資料表.地址_tb.Text & "', N'" & 信眾資料表.性別_cb.Text & "', N'" & 信眾資料表.生肖_cb.Text & "', N'" & 信眾資料表.聯繫人1_tb.Text & "',
  73. N'" & 信眾資料表.聯繫電話1_tb.Text & "', N'" & 信眾資料表.信箱1_tb.Text & "', N'" & 信眾資料表.聯繫人2_tb.Text & "', N'" & 信眾資料表.聯繫電話2_tb.Text & "',
  74. N'" & 信眾資料表.信箱2_tb.Text & "', N'')"
  75. CmdSet_For_dr()
  76. End Sub
  77. Friend Sub SQL_客戶資料表1_修改()
  78. ConnOpen()
  79. SQL1 = "UPDATE 客戶資料表 SET 簡稱 = N'" & 信眾資料表.客戶簡稱_cb.Text & "', 客戶名稱 = N'" & 信眾資料表.客戶名稱_tb.Text & "',
  80. 地址 = N'" & 信眾資料表.地址_tb.Text & "', 公司電話 = N'" & 信眾資料表.電話1_tb.Text & "',
  81. 負責人 = N'" & 信眾資料表.性別_cb.Text & "', 負責人電話 = N'" & 信眾資料表.生肖_cb.Text & "',
  82. 聯繫人1 = N'" & 信眾資料表.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 信眾資料表.聯繫人2_tb.Text & "',
  83. 聯繫人1電話 = N'" & 信眾資料表.聯繫電話1_tb.Text & "', 聯繫人2電話 = N'" & 信眾資料表.聯繫電話2_tb.Text & "',
  84. 聯繫人1郵件 = N'" & 信眾資料表.信箱1_tb.Text & "', 聯繫人2郵件 = N'" & 信眾資料表.信箱2_tb.Text & "'
  85. WHERE (流水號 = N'" & 信眾資料表.供應商編號_tb.Text & "')"
  86. CmdSet_For_dr()
  87. End Sub
  88. Friend Sub SQL_客戶資料表1_刪除()
  89. ConnOpen() : SQL1 = "DELETE FROM 客戶資料表 WHERE (流水號 = N'" & 信眾資料表.供應商編號_tb.Text & "')" : CmdSet_For_dr()
  90. End Sub
  91. Friend Sub SQL_群組編號_搜尋()
  92. ConnOpen() : SQL1 = "SELECT 簡稱 FROM 客戶資料表 WHERE 簡稱 LIKE N'" & 信眾資料表.客戶簡稱_cb.Text & "'" : CmdSet_For_dr()
  93. End Sub
  94. Friend Sub SQL_群組編號_搜尋1()
  95. ConnOpen() : SQL1 = "SELECT 簡稱 FROM 客戶資料表 WHERE 簡稱 LIKE N'" & 快速加入.客戶簡稱_cb.Text & "'" : CmdSet_For_dr()
  96. End Sub
  97. Friend Sub SQL_車輛銷售管理_單號查詢()
  98. ConnOpen() : SQL1 = "SELECT TOP (1) 控制表單號 FROM 車輛銷售控制表 WHERE ( 控制表單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
  99. End Sub
  100. Friend Sub SQL_車輛銷售管理_重複查詢()
  101. ConnOpen() : SQL1 = "SELECT * FROM 車輛銷售控制表 WHERE ( 買入牌照號碼 LIKE N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "'
  102. AND 買入車主名稱 LIKE N'" & 車輛銷售管理.買入車主名稱_tb.Text & "') AND 狀態 = N'車輛買賣'" : CmdSet_For_dr()
  103. End Sub
  104. Friend Sub SQL_車輛銷售管理_控制表新增()
  105. ConnOpen()
  106. If 車廠型態 = True Then
  107. SQL1 = "INSERT INTO 車輛銷售控制表 (控制表單號,狀態,買入進價,買入車主地址,買入車主名稱,買入牌照號碼) VALUES (N'" & PA & "',N'" & 狀態 & "',0,N'',N'" & 車輛銷售管理.買入車主名稱_tb.Text & "',N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "')"
  108. Else
  109. SQL1 = "INSERT INTO 車輛銷售控制表 (控制表單號,狀態,買入進價,買入車主地址) VALUES (N'" & PA & "',N'" & 狀態 & "',0,N'')"
  110. End If
  111. CmdSet_For_dr()
  112. End Sub
  113. Friend Sub SQL_車輛銷售管理_控制表清單()
  114. 'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If
  115. ConnOpen()
  116. If PA56 = "" Then
  117. SQL2 = ""
  118. Else
  119. SQL2 = " AND 車輛銷售控制表.買入牌照號碼 LIKE N'%" & PA56 & "%' OR 車輛銷售控制表.年份型式 LIKE N'%" & PA56 & "%' OR 車輛銷售控制表.買入車主名稱 LIKE N'%" & PA56 & "%' OR 車輛銷售控制表.引擎號碼 LIKE N'%" & PA56 & "%'"
  120. End If
  121. SQL1 = "SELECT 車輛銷售控制表.控制表單號 ,車輛銷售控制表.廠牌 ,車輛銷售控制表.年份型式 ,車輛銷售控制表.引擎號碼 ,車輛銷售控制表.買入日期 ,車輛銷售控制表.買入牌照號碼 AS 車號,
  122. 車輛銷售控制表.買入顏色 ,車輛銷售控制表.買入車主名稱 AS 車主,車輛銷售控制表.買入車主電話 ,車輛銷售控制表.買入車主地址 ,車輛銷售控制表.買入進價 ,車輛銷售控制表.買入經手人 ,
  123. 車輛銷售控制表.支出合計 ,車輛銷售控制表.買入總成本 ,車輛銷售控制表.賣出日期 ,車輛銷售控制表.賣出牌照號碼 ,車輛銷售控制表.賣出顏色 ,車輛銷售控制表.賣出車主名稱 ,
  124. 車輛銷售控制表.賣出車主電話 ,車輛銷售控制表.賣出車主地址 ,車輛銷售控制表.賣出售價 ,車輛銷售控制表.賣出經手人 ,車輛銷售控制表.備註 ,車輛銷售控制表.檢測日期 ,
  125. 車輛銷售控制表.已交車 ,車輛銷售控制表.進廠里程 ,車輛銷售控制表.出廠里程 FROM 車輛銷售控制表
  126. WHERE 狀態 = N'" & 狀態 & "' " & SQL2 & " " & PA55 & "
  127. ORDER BY 車輛銷售控制表.控制表單號 DESC"
  128. CmdSet_For_DGV()
  129. End Sub
  130. Friend Sub SQL_車輛銷售管理_物料清單(選擇供應商 As String)
  131. 'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If
  132. ConnOpen()
  133. If PA56 = "" Then
  134. SQL1 = "SELECT 物料資料庫.料號,物料資料庫.品名 ,物料資料庫.廠牌,物料資料庫.車種年份 ,物料資料庫.狀態 ,物料資料庫.成本 FROM 物料資料庫
  135. INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
  136. WHERE 供應商資料表.公司名 LIKE N'%" & 選擇供應商 & "%' ORDER BY 物料資料庫.料號"
  137. Else
  138. SQL1 = "SELECT 物料資料庫.料號,物料資料庫.品名 ,物料資料庫.廠牌,物料資料庫.車種年份 ,物料資料庫.狀態 ,物料資料庫.成本 FROM 物料資料庫
  139. INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
  140. WHERE (物料資料庫.品名 LIKE N'%" & PA56 & "%' OR 物料資料庫.廠牌 LIKE N'%" & PA56 & "%' OR 物料資料庫.車種年份 LIKE N'%" & PA56 & "%') AND
  141. 供應商資料表.公司名 LIKE N'%" & 選擇供應商 & "%' ORDER BY 物料資料庫.料號 "
  142. End If
  143. CmdSet_For_DGV()
  144. End Sub
  145. Friend Sub SQL_車輛銷售管理_控制表修改()
  146. ConnOpen()
  147. If 車廠型態 = True Then
  148. SQL1 = "UPDATE 車輛銷售控制表 SET 廠牌 = N'" & 車輛銷售管理.廠牌_tb.Text & "', 年份型式 = N'" & 車輛銷售管理.年分_tb.Text & "',
  149. 引擎號碼 = N'" & 車輛銷售管理.引擎_tb.Text & "', 買入日期 = N'" & 車輛銷售管理.買入日期_dtp.Text & "',
  150. 買入牌照號碼 = N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "', 買入顏色 = N'" & 車輛銷售管理.買入顏色_tb.Text & "',
  151. 買入車主名稱 = N'" & 車輛銷售管理.買入車主名稱_tb.Text & "', 買入車主電話 = N'" & 車輛銷售管理.買入車主電話_tb.Text & "',
  152. 買入車主地址 = N'" & 車輛銷售管理.買入車主地址_tb.Text & "', 買入進價 = N'" & 車輛銷售管理.進價_tb.Text & "',
  153. 買入經手人 = N'" & 車輛銷售管理.買入經手人_tb.Text & "', 賣出日期 = N'" & 車輛銷售管理.賣出日期_dtp.Text & "',
  154. 賣出牌照號碼 = N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "', 賣出顏色 = N'" & 車輛銷售管理.賣出顏色_tb.Text & "',
  155. 賣出車主名稱 = N'" & 車輛銷售管理.賣出車主名稱_tb.Text & "', 賣出車主電話 = N'" & 車輛銷售管理.賣出車主電話_tb.Text & "',
  156. 賣出車主地址 = N'" & 車輛銷售管理.賣出車主地址_tb.Text & "', 賣出售價 = N'" & 車輛銷售管理.售價_tb.Text & "',
  157. 賣出經手人 = N'" & 車輛銷售管理.賣出經手人_tb.Text & "', 備註 = N'" & 車輛銷售管理.備註_tb.Text & "',
  158. 檢測日期 = N'" & 車輛銷售管理.檢測日期_dtp.Text & "', 買入總成本 = N'" & 車輛銷售管理.利潤率.Value & "',
  159. 已交車 = N'" & 車輛銷售管理.已交車_cb.Checked & "',進廠里程 = N'" & 車輛銷售管理.進廠里程_tb.Text & "',
  160. 出廠里程 = N'" & 車輛銷售管理.出廠里程_tb.Text & "'
  161. WHERE (控制表單號 = N'" & 車輛銷售管理.單號_tb.Text & "')"
  162. Else
  163. SQL1 = "UPDATE 車輛銷售控制表 SET 廠牌 = N'" & 車輛銷售管理.車型_tb.Text & "', 年份型式 = N'" & 車輛銷售管理.年_tb.Text & "',
  164. 引擎號碼 = N'" & 車輛銷售管理.引擎號碼1_tb.Text & "', 買入日期 = N'" & 車輛銷售管理.入廠日期_dtp.Text & "',
  165. 買入牌照號碼 = N'" & 車輛銷售管理.車號_tb.Text & "', 買入顏色 = N'" & 車輛銷售管理.輪胎尺寸_tb.Text & "',
  166. 買入車主名稱 = N'" & 車輛銷售管理.車主名稱_tb.Text & "', 買入車主電話 = N'" & 車輛銷售管理.電話_tb.Text & "',
  167. 買入車主地址 = N'" & 車輛銷售管理.地址_tb.Text & "', 買入進價 = N'" & 車輛銷售管理.全部_tb.Text & "',
  168. 買入經手人 = N'" & 車輛銷售管理.出險公司_tb.Text & "', 賣出日期 = N'',
  169. 賣出牌照號碼 = N'', 賣出顏色 = N'',
  170. 賣出車主名稱 = N'', 賣出車主電話 = N'',
  171. 賣出車主地址 = N'" & 車輛銷售管理.賒帳_tb.Text & "', 賣出售價 = N'" & 車輛銷售管理.現金_tb.Text & "',
  172. 賣出經手人 = N'', 備註 = N'',
  173. 檢測日期 = N'" & 車輛銷售管理.應驗車日_dtp.Text & "', 買入總成本 = N'" & 車輛銷售管理.信用卡_tb.Text & "',
  174. 支出合計 = N'" & 車輛銷售管理.支票_tb.Text & "',
  175. 已交車 = N'" & 車輛銷售管理.是否收稅_cb.Checked & "',進廠里程 = N'" & 車輛銷售管理.里程_tb.Text & "',
  176. 出廠里程 = N'" & 車輛銷售管理.保養預示_tb.Text & "'
  177. WHERE (控制表單號 = N'" & 車輛銷售管理.單號_tb.Text & "')"
  178. End If
  179. CmdSet_For_dr()
  180. End Sub
  181. Friend Sub SQL_車輛銷售管理_車號備註查詢()
  182. ConnOpen() : SQL1 = "SELECT 備註 FROM 客戶資料表 WHERE ( 客戶名稱 LIKE N'" & 車輛銷售管理.車主名稱_tb.Text & "')
  183. AND (客戶車號 = N'" & 車輛銷售管理.車號_tb.Text & "')" : CmdSet_For_dr()
  184. End Sub
  185. Friend Sub SQL_車輛銷售管理_車號備註儲存()
  186. ConnOpen()
  187. SQL1 = "UPDATE 客戶資料表 SET 備註 = N'" & 車輛銷售管理.備註1_tb.Text & "'
  188. WHERE (客戶名稱 = N'" & 車輛銷售管理.車主名稱_tb.Text & "') AND (客戶車號 = N'" & 車輛銷售管理.車號_tb.Text & "') "
  189. CmdSet_For_dr()
  190. End Sub
  191. Friend Sub SQL_車輛銷售管理_控制表刪除()
  192. ConnOpen()
  193. SQL1 = "DELETE FROM 車輛銷售控制表 WHERE (控制表單號= N'" & 車輛銷售管理.單號_tb.Text & "')"
  194. CmdSet_For_dr()
  195. End Sub
  196. Friend Sub SQL_車輛銷售管理_明細表刪除()
  197. ConnOpen()
  198. SQL1 = "DELETE FROM 車輛銷售明細表 WHERE (控制表單號=N'" & 車輛銷售管理.單號_tb.Text & "')"
  199. CmdSet_For_dr()
  200. End Sub
  201. Friend Sub SQL_車輛銷售管理_倉儲明細表刪除()
  202. ConnOpen()
  203. SQL1 = "DELETE FROM 倉儲明細表 WHERE (控制表單號= N'" & 車輛銷售管理.單號_tb.Text & "')"
  204. CmdSet_For_dr()
  205. End Sub
  206. Friend Sub SQL_車輛銷售管理_查詢明細表流水號()
  207. ConnOpen()
  208. SQL1 = "SELECT 流水號 FROM 車輛銷售明細表 WHERE (流水號 =N'" & PA19 & "')"
  209. CmdSet_For_dr()
  210. End Sub
  211. Friend Sub SQL_車輛銷售管理_查詢最後一筆單號項次()
  212. ConnOpen()
  213. SQL1 = "SELECT TOP(1) 項次 FROM 車輛銷售明細表 WHERE 控制表單號 LIKE N'" & PA & "' ORDER BY 項次 DESC"
  214. CmdSet_For_dr()
  215. End Sub
  216. Friend Sub SQL_車輛銷售管理_新增明細表()
  217. ConnOpen()
  218. SQL1 = "INSERT INTO 車輛銷售明細表 (流水號, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 項次,成本,已儲存,狀態) " &
  219. "VALUES (N'" & PA19 & "', N'', N'0', '0', N'', N'" & 車輛銷售管理.單號_tb.Text & "', N'', N'" & PA15 & "','0','0',N'免')"
  220. CmdSet_For_dr()
  221. End Sub
  222. Friend Sub SQL_車輛銷售管理_新增明細表1()
  223. ConnOpen()
  224. SQL1 = "INSERT INTO 車輛銷售明細表 (流水號, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 項次,成本,已儲存,狀態) " &
  225. "VALUES (N'" & PA19 & "', N'" & 車輛銷售管理.品名.Text & "', N'1', '0', N'', N'" & 車輛銷售管理.單號_tb.Text & "', N'" & 車輛銷售管理.料號_tb.Text & "', N'" & PA15 & "'," & 車輛銷售管理.成本.Text & ",'0',N'" & 車輛銷售管理.狀態_tb.Text & "')"
  226. CmdSet_For_dr()
  227. End Sub
  228. Friend Sub SQL_車輛銷售管理_查詢明細表()
  229. ConnOpen()
  230. SQL1 = "SELECT 車輛銷售明細表.控制表單號,車輛銷售明細表.項次 ,車輛銷售明細表.各項支出名稱,車輛銷售明細表.數量,車輛銷售明細表.成本,
  231. 車輛銷售明細表.金額 AS 售價,車輛銷售明細表.金額 AS 總成本,車輛銷售明細表.金額 AS 總售價,車輛銷售明細表.金額 AS 利潤,車輛銷售明細表.備註,
  232. 車輛銷售明細表.料號,車輛銷售明細表.流水號,車輛銷售明細表.已儲存,車輛銷售明細表.狀態
  233. FROM 車輛銷售明細表
  234. WHERE (車輛銷售明細表.控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "')
  235. ORDER BY 車輛銷售明細表.項次"
  236. CmdSet_For_DGV()
  237. End Sub
  238. Friend Sub SQL_車輛銷售管理_刪除明細表項次()
  239. ConnOpen()
  240. SQL1 = "DELETE FROM 車輛銷售明細表 WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "' AND 項次 LIKE N'" & 車輛銷售管理.流水號_tb.Text & "')"
  241. CmdSet_For_dr()
  242. End Sub
  243. Friend Sub SQL_車輛銷售管理_修改明細表項次()
  244. ConnOpen()
  245. SQL1 = "UPDATE 車輛銷售明細表 SET 項次 = N'" & PA18 & "' WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "' AND 項次 LIKE N'" & PA17 & "')"
  246. CmdSet_For_dr()
  247. End Sub
  248. Friend Sub SQL_車輛銷售管理_修改明細表()
  249. ConnOpen()
  250. SQL1 = "UPDATE 車輛銷售明細表 SET 各項支出名稱 = N'" & PA1 & "', 數量 = N'" & PA2 & "', 金額 = N'" & PA3 & "',
  251. 備註 = N'" & PA4 & "' , 料號 = N'" & PA5 & "', 項次 = N'" & PA6 & "', 成本 = N'" & PA8 & "',已儲存 ='1',狀態 =N'" & PA7 & "'
  252. WHERE (流水號 LIKE N'" & PA10 & "')"
  253. CmdSet_For_dr()
  254. End Sub
  255. Friend Sub SQL_車輛銷售管理_修改支出合計()
  256. ConnOpen()
  257. SQL1 = "UPDATE 車輛銷售控制表 SET 支出合計 = N'" & PA7 & "' WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "')"
  258. CmdSet_For_dr()
  259. End Sub
  260. Friend Sub SQL_車輛銷售管理_供應商類別下拉()
  261. ConnOpen()
  262. SQL1 = "SELECT 物料資料庫.供應商類別 FROM 物料資料庫 GROUP BY 物料資料庫.供應商類別 "
  263. CmdSet_For_dr()
  264. End Sub
  265. Friend Sub SQL_車輛銷售管理_查詢客戶資料()
  266. ConnOpen()
  267. If 車廠型態 = True Then
  268. SQL1 = "SELECT * FROM 客戶資料表
  269. WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.買入車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "')"
  270. Else
  271. SQL1 = "SELECT * FROM 客戶資料表
  272. WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.車號_tb.Text & "')"
  273. End If
  274. CmdSet_For_dr()
  275. End Sub
  276. Friend Sub SQL_車輛銷售管理_修改客戶資料()
  277. ConnOpen()
  278. If 車廠型態 = True Then
  279. SQL1 = "UPDATE 客戶資料表 SET 客戶名稱 = N'" & 車輛銷售管理.買入車主名稱_tb.Text & "', 公司電話 = N'" & 車輛銷售管理.買入車主電話_tb.Text & "',
  280. 地址 = N'" & 車輛銷售管理.買入車主地址_tb.Text & "',客戶車號 = N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "'
  281. WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.買入車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "')"
  282. Else
  283. SQL1 = "UPDATE 客戶資料表 SET 客戶名稱 = N'" & 車輛銷售管理.車主名稱_tb.Text & "', 公司電話 = N'" & 車輛銷售管理.電話_tb.Text & "',
  284. 地址 = N'" & 車輛銷售管理.地址_tb.Text & "',客戶車號 = N'" & 車輛銷售管理.車號_tb.Text & "',備註 = N'" & 車輛銷售管理.備註1_tb.Text & "'
  285. WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.車號_tb.Text & "')"
  286. End If
  287. CmdSet_For_dr()
  288. End Sub
  289. Friend Sub SQL_車輛銷售管理_新增客戶資料()
  290. ConnOpen()
  291. If 車廠型態 = True Then
  292. SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號)
  293. VALUES (N'" & 車輛銷售管理.供應商編號_tb.Text & "', N'', N'" & 車輛銷售管理.買入車主名稱_tb.Text & "', N'" & 車輛銷售管理.買入車主電話_tb.Text & "',
  294. N'" & 車輛銷售管理.買入車主地址_tb.Text & "', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車輛銷售管理.買入牌照號碼_tb.Text & "')"
  295. Else
  296. SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號,備註)
  297. VALUES (N'" & 車輛銷售管理.供應商編號_tb.Text & "', N'', N'" & 車輛銷售管理.車主名稱_tb.Text & "', N'" & 車輛銷售管理.電話_tb.Text & "',
  298. N'" & 車輛銷售管理.地址_tb.Text & "', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車輛銷售管理.車號_tb.Text & "', N'')"
  299. End If
  300. CmdSet_For_dr()
  301. End Sub
  302. Friend Sub SQL_車輛銷售管理_查詢客戶資料1()
  303. ConnOpen()
  304. SQL1 = "SELECT * FROM 客戶資料表
  305. WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.賣出車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "')"
  306. CmdSet_For_dr()
  307. End Sub
  308. Friend Sub SQL_車輛銷售管理_修改客戶資料1()
  309. ConnOpen()
  310. SQL1 = "UPDATE 客戶資料表 SET 客戶名稱 = N'" & 車輛銷售管理.賣出車主名稱_tb.Text & "', 公司電話 = N'" & 車輛銷售管理.賣出車主電話_tb.Text & "',
  311. 地址 = N'" & 車輛銷售管理.賣出車主地址_tb.Text & "',客戶車號 = N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "'
  312. WHERE (客戶名稱 LIKE N'" & 車輛銷售管理.賣出車主名稱_tb.Text & "') AND (客戶車號 LIKE N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "')"
  313. CmdSet_For_dr()
  314. End Sub
  315. Friend Sub SQL_車輛銷售管理_新增客戶資料1()
  316. ConnOpen()
  317. SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號)
  318. VALUES (N'" & 車輛銷售管理.供應商編號_tb.Text & "', N'', N'" & 車輛銷售管理.賣出車主名稱_tb.Text & "', N'" & 車輛銷售管理.賣出車主電話_tb.Text & "',
  319. N'" & 車輛銷售管理.賣出車主地址_tb.Text & "', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車輛銷售管理.賣出牌照號碼_tb.Text & "')"
  320. CmdSet_For_dr()
  321. End Sub
  322. Friend Sub SQL_車輛銷售管理_新增倉儲明細表()
  323. ConnOpen()
  324. SQL1 = "INSERT INTO 倉儲明細表 (流水號, 申請人, 申請日期, 料號, 入庫數量,單價,備註,出庫數量,狀態,控制表單號) " &
  325. "VALUES (N'" & PA19 & "', N'" & gUserName & "', N'" & DTP4 & "', N'" & PA5 & "', N'0', N'" & PA3 & "', N'" & PA4 & "', N'" & PA2 & "',N'使用出庫',N'" & 車輛銷售管理.單號_tb.Text & "')"
  326. CmdSet_For_dr()
  327. End Sub
  328. Friend Sub SQL_車輛銷售管理_修改倉儲明細表()
  329. ConnOpen()
  330. SQL1 = "UPDATE 倉儲明細表 SET 單價 = N'" & PA3 & "', 出庫數量 = N'" & PA2 & "'
  331. WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "') AND (料號 LIKE N'" & PA5 & "')"
  332. CmdSet_For_dr()
  333. End Sub
  334. Friend Sub SQL_車輛銷售管理_刪除倉儲明細表()
  335. ConnOpen()
  336. SQL1 = "DELETE FROM 倉儲明細表 WHERE (控制表單號 LIKE N'" & 車輛銷售管理.單號_tb.Text & "' AND 料號 LIKE N'" & 車輛銷售管理.料號1_tb.Text & "')"
  337. CmdSet_For_dr()
  338. End Sub
  339. Friend Sub SQL_車輛銷售管理_查詢庫存量()
  340. ConnOpen()
  341. SQL1 = "SELECT 入庫數量,出庫數量 FROM 倉儲明細表 WHERE 料號 LIKE N'" & 車輛銷售管理.料號1_tb.Text & "'"
  342. CmdSet_For_DGV()
  343. End Sub
  344. Friend Sub SQL_車輛銷售管理_儲存列印資訊()
  345. ConnOpen()
  346. SQL1 = "UPDATE 系統預設值 SET 列印1 = N'" & 車輛銷售管理.註解1_tb.Text & "',列印2 = N'" & 車輛銷售管理.註解2_tb.Text & "',
  347. 列印3 = N'" & 車輛銷售管理.註解3_tb.Text & "',列印4 = N'" & 車輛銷售管理.註解4_tb.Text & "'"
  348. CmdSet_For_dr()
  349. End Sub
  350. Friend Sub SQL_車輛銷售管理_讀取列印資訊()
  351. ConnOpen()
  352. SQL1 = "SELECT 列印1,列印2,列印3,列印4 FROM 系統預設值"
  353. CmdSet_For_dr()
  354. End Sub
  355. Friend Sub SQL_車輛銷售管理_人員明細(ByVal 姓名 As String, ByVal 車號 As String)
  356. ConnOpen()
  357. SQL1 = "SELECT TOP(1) 廠牌 ,年份型式,引擎號碼,買入顏色 FROM 車輛銷售控制表 WHERE 買入車主名稱 LIKE N'%" & 姓名 & "%' AND 買入牌照號碼 LIKE N'%" & 車號 & "%' ORDER BY 控制表單號 DESC "
  358. CmdSet_For_dr()
  359. End Sub
  360. Friend Sub SQL_連動模組_人員清單()
  361. ConnOpen()
  362. If PA57 = "" Then
  363. SQL1 = "SELECT 客戶資料表.流水號,客戶資料表.簡稱 AS 群組編號,客戶資料表.客戶名稱 AS 姓名,客戶資料表.公司電話 AS 電話,客戶資料表.地址 ,客戶資料表.客戶車號 ,
  364. 客戶資料表.負責人 AS 性別 , 客戶資料表.負責人電話 , 客戶資料表.備註 AS 生肖 FROM 客戶資料表 ORDER BY 客戶資料表.流水號"
  365. Else
  366. SQL1 = "SELECT 客戶資料表.流水號,客戶資料表.簡稱 AS 群組編號,客戶資料表.客戶名稱 AS 姓名,客戶資料表.公司電話 AS 電話,客戶資料表.地址 ,客戶資料表.客戶車號 ,
  367. 客戶資料表.負責人 AS 性別 , 客戶資料表.負責人電話, 客戶資料表.備註 AS 生肖 FROM 客戶資料表
  368. WHERE 客戶資料表.客戶名稱 LIKE N'%" & PA57 & "%' OR 客戶資料表.公司電話 LIKE N'%" & PA57 & "%' OR
  369. 客戶資料表.地址 LIKE N'%" & PA57 & "%' OR 客戶資料表.客戶車號 LIKE N'%" & PA57 & "%' OR 客戶資料表.簡稱 LIKE N'%" & PA57 & "%'
  370. ORDER BY 客戶資料表.流水號"
  371. End If
  372. CmdSet_For_DGV()
  373. End Sub
  374. Friend Sub SQL_連動模組_修改客戶資料()
  375. ConnOpen()
  376. SQL1 = "UPDATE 客戶資料表 SET 客戶名稱 = N'" & 連動模組.買入車主名稱_tb.Text & "', 公司電話 = N'" & 連動模組.買入車主電話_tb.Text & "',
  377. 地址 = N'" & 連動模組.買入車主地址_tb.Text & "' , 客戶車號 = N'" & 連動模組.車號_tb.Text & "'
  378. WHERE (流水號 LIKE N'" & 連動模組.流水號_tb.Text & "')"
  379. CmdSet_For_dr()
  380. End Sub
  381. Friend Sub SQL_車輛銷售報表_車種(價 As String, 狀態 As String)
  382. ConnOpen()
  383. SQL1 = "SELECT 廠牌, COUNT(*) AS 次數, SUM(" & 價 & ") AS 總價
  384. FROM 車輛銷售控制表
  385. WHERE (控制表單號 LIKE N'CR-" & PA58 & "%') AND (狀態 LIKE N'" & 狀態 & "')
  386. GROUP BY 廠牌
  387. ORDER BY 次數 DESC, 總價 DESC"
  388. CmdSet_For_DGV()
  389. End Sub
  390. Friend Sub SQL_車輛銷售報表_車種合計(價 As String, 狀態 As String)
  391. ConnOpen()
  392. SQL1 = "SELECT TOP(1) 廠牌, COUNT(*) AS 次數, SUM(" & 價 & ") AS 總價
  393. FROM 車輛銷售控制表 WHERE (狀態 LIKE N'" & 狀態 & "')
  394. GROUP BY 廠牌
  395. ORDER BY 次數 DESC"
  396. CmdSet_For_DGV()
  397. End Sub
  398. Friend Sub SQL_車輛銷售報表_日期(價 As String, 狀態 As String)
  399. ConnOpen()
  400. SQL1 = "SELECT SUBSTRING(控制表單號, 4, 8) AS 日期, SUM(" & 價 & ") AS 總價
  401. FROM 車輛銷售控制表
  402. WHERE (SUBSTRING(控制表單號, 4, 6) = N'" & PA58 & "') AND (狀態 LIKE N'" & 狀態 & "')
  403. GROUP BY SUBSTRING(控制表單號, 4, 8)
  404. ORDER BY 日期"
  405. CmdSet_For_DGV()
  406. End Sub
  407. Friend Sub SQL_車輛銷售報表_日期年(價 As String, 狀態 As String)
  408. ConnOpen()
  409. SQL1 = "SELECT SUBSTRING(控制表單號, 4, 6) AS 日期, SUM(" & 價 & ") AS 總價
  410. FROM 車輛銷售控制表
  411. WHERE (SUBSTRING(控制表單號, 4, 4) = N'" & PA58 & "') AND (狀態 LIKE N'" & 狀態 & "')
  412. GROUP BY SUBSTRING(控制表單號, 4, 6)
  413. ORDER BY 日期"
  414. CmdSet_For_DGV()
  415. End Sub
  416. Friend Sub SQL_車輛銷售報表_日期合計(價 As String, 狀態 As String)
  417. ConnOpen()
  418. SQL1 = "SELECT TOP(1) SUBSTRING(控制表單號, 4, 8) AS 日期, SUM(" & 價 & ") AS 總價
  419. FROM 車輛銷售控制表 WHERE (狀態 LIKE N'" & 狀態 & "')
  420. GROUP BY SUBSTRING(控制表單號, 4, 8)
  421. ORDER BY 日期"
  422. CmdSet_For_DGV()
  423. End Sub
  424. Friend Sub SQL_估價單_單號查詢()
  425. ConnOpen() : SQL1 = "SELECT TOP (1) 控制表單號 FROM 估價單控制表 WHERE ( 控制表單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
  426. End Sub
  427. Friend Sub SQL_估價單_控制表新增()
  428. ConnOpen()
  429. SQL1 = "INSERT INTO 估價單控制表 (控制表單號, 車主名稱, 車主電話, 車號, 報價日期, 備註, 里程)
  430. VALUES (N'" & PA & "',N'',N'',N'',N'',N'',N'')"
  431. CmdSet_For_dr()
  432. End Sub
  433. Friend Sub SQL_估價單_控制表修改()
  434. ConnOpen()
  435. SQL1 = "UPDATE 估價單控制表 SET 車主名稱 = N'" & 估價單.車主名稱_tb.Text & "', 報價日期 = N'" & 估價單.報價日期_dtp.Value.ToString("yyyy/MM/dd") & "',
  436. 車主電話 = N'" & 估價單.電話_tb.Text & "', 車號= N'" & 估價單.車號_tb.Text & "',
  437. 備註 = N'" & 估價單.備註_tb.Text & "' , 里程= N'" & 估價單.里程_tb.Text & "'
  438. WHERE (控制表單號 = N'" & 估價單.單號_tb.Text & "')"
  439. CmdSet_For_dr()
  440. End Sub
  441. Friend Sub SQL_估價單_控制表刪除()
  442. ConnOpen()
  443. SQL1 = "DELETE FROM 估價單控制表 WHERE (控制表單號= N'" & 估價單.單號_tb.Text & "')"
  444. CmdSet_For_dr()
  445. End Sub
  446. Friend Sub SQL_估價單_明細表刪除()
  447. ConnOpen()
  448. SQL1 = "DELETE FROM 估價單明細表 WHERE (控制表單號=N'" & 估價單.單號_tb.Text & "')"
  449. CmdSet_For_dr()
  450. End Sub
  451. Friend Sub SQL_估價單_控制表清單()
  452. 'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If
  453. ConnOpen()
  454. If PA56 = "" Then
  455. SQL2 = ""
  456. Else
  457. SQL2 = "WHERE 客戶 LIKE N'%" & PA56 & "%' OR 車號 LIKE N'%" & PA56 & "%'"
  458. End If
  459. SQL1 = "SELECT 控制表單號, 車主名稱, 車主電話, 車號, 報價日期, 備註, 里程
  460. FROM 估價單控制表 " & SQL2 & "
  461. ORDER BY 控制表單號 DESC"
  462. CmdSet_For_DGV()
  463. End Sub
  464. Friend Sub SQL_估價單_查詢明細表()
  465. ConnOpen()
  466. SQL1 = "SELECT 流水號, 項次, 各項支出名稱, 數量, 成本, 金額 AS 售價, 成本 AS 總成本, 金額 AS 總售價, 金額 AS 利潤,備註,
  467. 控制表單號, 料號 ,狀態
  468. FROM 估價單明細表
  469. WHERE (控制表單號 LIKE N'" & 估價單.單號_tb.Text & "')
  470. ORDER BY 項次"
  471. CmdSet_For_DGV()
  472. End Sub
  473. Friend Sub SQL_估價單_查詢最後一筆單號項次()
  474. ConnOpen()
  475. SQL1 = "SELECT TOP(1) 項次 FROM 估價單明細表 WHERE 控制表單號 LIKE N'" & 估價單.單號_tb.Text & "' ORDER BY 項次 DESC"
  476. CmdSet_For_dr()
  477. End Sub
  478. Friend Sub SQL_估價單_新增明細表(項次 As String, 項 As String, 控制表單號 As String, 料號 As String, 成本 As String, 狀態 As String)
  479. ConnOpen()
  480. SQL1 = "INSERT INTO 估價單明細表 (流水號, 項次, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 成本, 狀態) " &
  481. "VALUES (N'', N'" & 項次 & "',N'" & 項 & "',N'1',N'0',N'',N'" & 控制表單號 & "',N'" & 料號 & "',N'" & 成本 & "',N'" & 狀態 & "')"
  482. CmdSet_For_dr()
  483. End Sub
  484. Friend Sub SQL_估價單_刪除明細表項次()
  485. ConnOpen()
  486. SQL1 = "DELETE FROM 估價單明細表 WHERE (控制表單號 LIKE N'" & 估價單.單號_tb.Text & "' AND 項次 LIKE N'" & 估價單.項次_tb.Text & "')"
  487. CmdSet_For_dr()
  488. End Sub
  489. Friend Sub SQL_估價單_修改明細表(項次 As String, 項 As String, 控制表單號 As String, 數量 As String, 金額 As String, 備註 As String)
  490. ConnOpen()
  491. SQL1 = "UPDATE 估價單明細表 SET 各項支出名稱 = N'" & 項 & "' , 數量 = N'" & 數量 & "',金額 = N'" & 金額 & "',備註 = N'" & 備註 & "'
  492. WHERE (控制表單號 LIKE N'" & 控制表單號 & "' AND 項次 LIKE N'" & 項次 & "') "
  493. CmdSet_For_dr()
  494. End Sub
  495. Friend Sub SQL_估價單_車輛銷售控制表新增(單號 As String, 狀態 As String, 車主 As String, 車號 As String, 日期 As String, 電話 As String, 稅 As String, 合計 As String,
  496. 廠牌 As String, 年份 As String, 引擎號碼 As String, 輪胎尺寸 As String)
  497. ConnOpen()
  498. SQL1 = "INSERT INTO 車輛銷售控制表 (控制表單號,狀態,買入車主名稱,買入牌照號碼,買入日期,買入車主電話,已交車,買入進價,備註,廠牌, 年份型式,引擎號碼, 買入顏色,買入車主地址,
  499. 買入經手人,賣出日期,賣出牌照號碼,賣出顏色,賣出車主名稱,賣出車主電話,賣出車主地址,賣出售價,賣出經手人, 檢測日期,買入總成本,支出合計,進廠里程,出廠里程)
  500. VALUES ( N'" & 單號 & "',N'" & 狀態 & "',N'" & 車主 & "',N'" & 車號 & "',N'" & 日期 & "',N'" & 電話 & "',N'" & 稅 & "',N'" & 合計 & "',N'',N'" & 廠牌 & "',
  501. N'" & 年份 & "',N'" & 引擎號碼 & "',N'" & 輪胎尺寸 & "',N'',N'',N'',N'',N'',N'',N'',N'',N'0',N'',N'',N'0',N'0',N'',N'')"
  502. CmdSet_For_dr()
  503. SQL1 = "UPDATE 車輛銷售控制表 SET 廠牌 = N'" & 車輛銷售管理.車型_tb.Text & "', 年份型式 = N'" & 車輛銷售管理.年_tb.Text & "',
  504. 引擎號碼 = N'" & 車輛銷售管理.引擎號碼1_tb.Text & "', 買入日期 = N'" & 車輛銷售管理.入廠日期_dtp.Text & "',
  505. 買入牌照號碼 = N'" & 車輛銷售管理.車號_tb.Text & "', 買入顏色 = N'" & 車輛銷售管理.輪胎尺寸_tb.Text & "',
  506. 買入車主名稱 = N'" & 車輛銷售管理.車主名稱_tb.Text & "', 買入車主電話 = N'" & 車輛銷售管理.電話_tb.Text & "',
  507. 買入車主地址 = N'" & 車輛銷售管理.地址_tb.Text & "', 買入進價 = N'" & 車輛銷售管理.全部_tb.Text & "',
  508. 買入經手人 = N'" & 車輛銷售管理.出險公司_tb.Text & "', 賣出日期 = N'',
  509. 賣出牌照號碼 = N'', 賣出顏色 = N'',
  510. 賣出車主名稱 = N'', 賣出車主電話 = N'',
  511. 賣出車主地址 = N'" & 車輛銷售管理.賒帳_tb.Text & "', 賣出售價 = N'" & 車輛銷售管理.現金_tb.Text & "',
  512. 賣出經手人 = N'', 備註 = N'',
  513. 檢測日期 = N'" & 車輛銷售管理.應驗車日_dtp.Text & "', 買入總成本 = N'" & 車輛銷售管理.信用卡_tb.Text & "',
  514. 支出合計 = N'" & 車輛銷售管理.支票_tb.Text & "',
  515. 已交車 = N'" & 車輛銷售管理.是否收稅_cb.Checked & "',進廠里程 = N'" & 車輛銷售管理.里程_tb.Text & "',
  516. 出廠里程 = N'" & 車輛銷售管理.保養預示_tb.Text & "'
  517. WHERE (控制表單號 = N'" & 車輛銷售管理.單號_tb.Text & "')"
  518. End Sub
  519. Friend Sub SQL_估價單_車輛銷售明細表新增(流水 As String, 項 As String, 數量 As String, 金額 As String, 備註 As String, 單號 As String, 料號 As String, 項次 As String, 成本 As String, 狀態 As String)
  520. ConnOpen()
  521. SQL1 = "INSERT INTO 車輛銷售明細表 (流水號, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 項次,成本,已儲存,狀態)
  522. VALUES (N'" & 流水 & "', N'" & 項 & "', N'" & 數量 & "', N'" & 金額 & "', N'" & 備註 & "', N'" & 單號 & "', N'" & 料號 & "', N'" & 項次 & "'," & 成本 & ",'0',N'" & 狀態 & "')"
  523. CmdSet_For_dr()
  524. End Sub
  525. Friend Sub SQL_估價單_明細表項次更新()
  526. ConnOpen()
  527. SQL1 = "WITH NumberedRows AS (
  528. SELECT
  529. 項次,
  530. ROW_NUMBER() OVER (ORDER BY 項次) AS RowNum
  531. FROM
  532. 估價單明細表 )
  533. UPDATE 估價單明細表
  534. SET 項次 = RowNum
  535. FROM NumberedRows
  536. WHERE 估價單明細表.項次 = NumberedRows.項次; "
  537. CmdSet_For_dr()
  538. End Sub
  539. Friend Sub SQL_估價單_查詢客戶資料(車主 As String, 車號 As String)
  540. ConnOpen()
  541. SQL1 = "SELECT * FROM 客戶資料表
  542. WHERE (客戶名稱 LIKE N'" & 車主 & "') AND (客戶車號 LIKE N'" & 車號 & "')"
  543. CmdSet_For_dr()
  544. End Sub
  545. Friend Sub SQL_估價單_新增客戶資料(流水 As String, 車主 As String, 車號 As String, 電話 As String, 備註 As String)
  546. ConnOpen()
  547. SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號,備註)
  548. VALUES (N'" & 流水 & "', N'', N'" & 車主 & "', N'" & 電話 & "',
  549. N'', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車號 & "', N'" & 備註 & "')"
  550. CmdSet_For_dr()
  551. End Sub
  552. Friend Sub SQL_估價單_修改客戶資料(車主 As String, 車號 As String, 電話 As String, 備註 As String)
  553. ConnOpen()
  554. SQL1 = "UPDATE 客戶資料表 SET 公司電話 = N'" & 電話 & "', 備註 = N'" & 備註 & "'
  555. WHERE (客戶名稱 LIKE N'" & 車主 & "') AND (客戶車號 LIKE N'" & 車號 & "')"
  556. CmdSet_For_dr()
  557. End Sub
  558. Friend Sub SQL_點燈_查詢第一筆單號()
  559. ConnOpen()
  560. SQL1 = "SELECT TOP (1) 單號 FROM 點燈控制表 WHERE ( 單號 LIKE N'" & PA & "')"
  561. CmdSet_For_dr()
  562. End Sub
  563. Friend Sub SQL_點燈_新增一筆點燈控制表()
  564. ConnOpen()
  565. SQL1 = "INSERT INTO 點燈控制表 (單號, 日期, 住址, 電話, 內容, 金額, 主任委員, 收款人, 姓名,財務單號,群組編號,已收款,已點燈) " &
  566. "VALUES (N'" & PA & "', N'" & PA1 & "', N'', N'', N'', '', N'', N'', N'', N'', N'', '0', '0')"
  567. CmdSet_For_dr()
  568. End Sub
  569. Friend Sub SQL_點燈_控制表刪除()
  570. ConnOpen()
  571. SQL1 = "DELETE FROM 點燈控制表 WHERE (單號 = N'" & PA & "')"
  572. CmdSet_For_dr()
  573. End Sub
  574. Friend Sub SQL_點燈_明細表刪除()
  575. ConnOpen()
  576. SQL1 = "DELETE FROM 點燈明細表 WHERE (控制表單號 = N'" & PA & "')"
  577. CmdSet_For_dr()
  578. End Sub
  579. Friend Sub SQL_點燈_控制表修改()
  580. ConnOpen()
  581. SQL1 = "UPDATE 點燈控制表 SET 住址 = N'" & 點燈系統.地址_tb.Text & "', 電話 = N'" & 點燈系統.電話_tb.Text & "', 姓名= N'" & 點燈系統.車主名稱_tb.Text & "'
  582. , 群組編號= N'" & 點燈系統.群組編號_cb.Text & "', 金額= N'" & 點燈系統.總金額_tb.Text & "' WHERE (單號 =N'" & 點燈系統.單號_tb.Text & "')"
  583. CmdSet_For_dr()
  584. End Sub
  585. Friend Sub SQL_點燈_收款查詢()
  586. ConnOpen()
  587. SQL1 = "SELECT 姓名, 會計科目, 科目編號, 內容, 非點燈收款, CH1, CH2, CH3, CH4, CH5, CH6, CH7, CH8, CH9, CH10,性別,生肖
  588. FROM 點燈收款資料 WHERE (單號 LIKE N'" & PA1 & "') ORDER BY 項 DESC"
  589. CmdSet_For_DGV()
  590. End Sub
  591. Friend Sub SQL_點燈_未安查詢()
  592. ConnOpen()
  593. SQL1 = "SELECT 燈區年度分配.年度, 燈區年度分配.區編, 燈區年度分配.燈種, 燈位資料.牆柱位, 燈位資料.列位,
  594. 燈位資料.層位, 燈位資料.編號
  595. FROM 燈區年度分配 INNER JOIN 燈位資料 ON 燈區年度分配.區編 = 燈位資料.區編
  596. WHERE (燈區年度分配.年度 LIKE N'110') AND (燈區年度分配.燈種 LIKE N'解厄燈') AND (NOT EXISTS
  597. (SELECT 1 AS Expr1 FROM 點燈明細表 WHERE (年度 LIKE N'110') AND (燈位資料.編號 = 位置)))
  598. ORDER BY 燈位資料.層位, 燈區年度分配.區編, 燈位資料.列位"
  599. CmdSet_For_DGV()
  600. End Sub
  601. Friend Sub SQL_點燈_剩餘查詢()
  602. ConnOpen()
  603. SQL1 = "SELECT 燈區年度分配.燈種, COUNT(AA.編號) AS 燈數
  604. FROM 燈區年度分配 INNER JOIN
  605. (SELECT 區編, 編號 FROM 燈位資料
  606. WHERE (NOT EXISTS
  607. (SELECT 1 AS Expr1
  608. FROM 點燈明細表
  609. WHERE (燈位資料.編號 = 位置) AND (年度 LIKE N'" & PA & "')))) AS AA ON
  610. 燈區年度分配.區編 = AA.區編
  611. WHERE (燈區年度分配.年度 LIKE N'" & PA & "')
  612. GROUP BY 燈區年度分配.燈種
  613. ORDER BY 燈區年度分配.燈種"
  614. CmdSet_For_DGV()
  615. End Sub
  616. Friend Sub SQL_點燈_收款新增()
  617. ConnOpen() : SQL1 = "INSERT INTO 點燈收款資料 (單號, 項, 姓名, 會計科目, 科目編號, 內容, 非點燈收款 " & SQL2 & ",性別,生肖) VALUES " & SQL3 & "" : CmdSet_For_dr()
  618. End Sub
  619. Friend Sub SQL_點燈_收款刪除()
  620. ConnOpen() : SQL1 = "DELETE 點燈收款資料 WHERE 單號 LIKE N'" & PA & "'" : CmdSet_For_dr()
  621. End Sub
  622. Friend Sub SQL_點燈_控制表清單()
  623. ConnOpen()
  624. If PA56 = "" Then : SQL2 = "" : Else
  625. SQL2 = "WHERE 點燈控制表.住址 LIKE N'%" & PA56 & "%' OR 點燈控制表.電話 LIKE N'%" & PA56 & "%' OR 點燈控制表.姓名 LIKE N'%" & PA56 & "%' "
  626. End If
  627. SQL1 = "SELECT 點燈控制表.單號 ,點燈控制表.住址 ,點燈控制表.電話 ,點燈控制表.日期 ,點燈控制表.內容 ,點燈控制表.金額 ,點燈控制表.主任委員 ,
  628. 點燈控制表.收款人 ,點燈控制表.姓名 ,點燈控制表.財務單號,點燈控制表.群組編號,點燈控制表.已收款
  629. FROM 點燈控制表 " & SQL2 & " ORDER BY 點燈控制表.單號 DESC"
  630. CmdSet_For_DGV()
  631. End Sub
  632. Friend Sub SQL_點燈_人員下拉清單()
  633. ConnOpen() : SQL1 = "SELECT 客戶名稱,負責人,負責人電話 FROM 客戶資料表 WHERE (簡稱 =N'" & 點燈系統.群組編號_cb.Text & "')" : CmdSet_For_dr()
  634. End Sub
  635. Friend Sub SQL_點燈_明細表清單()
  636. ConnOpen()
  637. SQL1 = "SELECT 選擇 AS 姓名,是否 AS 光明燈 ,是否 AS 太歲燈 ,是否 AS 智慧燈 ,是否 AS 財利燈 ,是否 AS 姻緣燈 ,
  638. 是否 AS 延壽燈 ,是否 AS 解厄燈 , 選擇 AS 金額
  639. FROM GCM空白圖片 "
  640. CmdSet_For_DGV()
  641. End Sub
  642. Friend Sub SQL_登牆清單()
  643. ConnOpen()
  644. SQL1 = "SELECT 燈位資料.廳位, 燈位資料.區編, 燈位資料.牆柱位, 燈區年度分配.燈種, COUNT(燈位資料.編號) AS 燈數,燈區年度分配.價格,燈區年度分配.排序
  645. FROM 燈位資料 INNER JOIN
  646. 燈區年度分配 ON 燈位資料.區編 = 燈區年度分配.區編
  647. WHERE (燈區年度分配.年度 LIKE N'" & PA & "')
  648. GROUP BY 燈位資料.廳位, 燈位資料.區編, 燈位資料.牆柱位, 燈區年度分配.燈種,燈區年度分配.價格,燈區年度分配.排序
  649. ORDER BY 燈位資料.廳位, 燈位資料.區編, 燈位資料.牆柱位"
  650. CmdSet_For_DGV()
  651. End Sub
  652. Friend Sub SQL_燈號明細()
  653. ConnOpen()
  654. SQL1 = "SELECT 燈位資料.列位, 燈位資料.層位, 燈位資料.編號, AA.姓名, AA.流水號
  655. FROM 燈位資料 LEFT OUTER JOIN
  656. (SELECT 姓名, 位置, 流水號
  657. FROM 點燈明細表
  658. WHERE (年度 LIKE N'" & PA10 & "')) AS AA ON 燈位資料.編號 = AA.位置
  659. WHERE (燈位資料.區編 LIKE N'" & PA & "') AND (燈位資料.牆柱位 LIKE N'" & PA1 & "')
  660. ORDER BY 燈位資料.層位, 燈位資料.列位"
  661. CmdSet_For_DGV()
  662. End Sub
  663. Friend Sub SQL_燈號明細_列數()
  664. ConnOpen()
  665. SQL1 = "SELECT 列位 FROM 燈位資料 WHERE (區編 LIKE N'" & PA & "') AND (牆柱位 LIKE N'" & PA1 & "') GROUP BY 列位 ORDER BY 列位 DESC"
  666. CmdSet_For_DGV()
  667. End Sub
  668. Friend Sub SQL_點燈明細查詢()
  669. ConnOpen()
  670. SQL1 = "SELECT 點燈明細表.控制表單號, 點燈明細表.姓名, 點燈明細表.燈種, 點燈明細表.金額, 點燈明細表.位置, 點燈明細表.年度 ,客戶資料表.負責人,客戶資料表.負責人電話 FROM 點燈明細表
  671. LEFT OUTER JOIN 客戶資料表 ON 客戶資料表.客戶名稱 = 點燈明細表.姓名
  672. WHERE (點燈明細表.流水號 LIKE N'" & PA20 & "')"
  673. CmdSet_For_dr()
  674. End Sub
  675. Friend Sub SQL_燈年份()
  676. ConnOpen() : SQL1 = "SELECT 年度 FROM 燈區年度分配 GROUP BY 年度 ORDER BY 年度 DESC" : CmdSet_For_dr()
  677. End Sub
  678. Friend Sub SQL_燈年份新增()
  679. ConnOpen() : SQL1 = "INSERT INTO 燈區年度分配 (年度, 區編, 燈種,排序) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "',N'順排')" : CmdSet_For_dr()
  680. End Sub
  681. Friend Sub SQL_燈年份刪除()
  682. ConnOpen() : SQL1 = "DELETE 燈區年度分配 WHERE 年度 LIKE N'" & PA & "'" : CmdSet_For_dr()
  683. End Sub
  684. Friend Sub SQL_燈價格()
  685. ConnOpen()
  686. SQL1 = "SELECT 燈區年度分配.年度, 燈區年度分配.燈種, 燈區年度分配.價格, 燈區年度分配.科目編號, 會計科目.會計科目,燈區年度分配.排序
  687. FROM 燈區年度分配 LEFT OUTER JOIN
  688. 會計科目 ON 燈區年度分配.科目編號 = 會計科目.編號
  689. WHERE (燈區年度分配.年度 LIKE N'" & PA & "')
  690. GROUP BY 燈區年度分配.年度, 燈區年度分配.燈種, 燈區年度分配.價格, 燈區年度分配.科目編號, 會計科目.會計科目,燈區年度分配.排序
  691. ORDER BY 燈區年度分配.年度, 燈區年度分配.燈種, 燈區年度分配.價格"
  692. CmdSet_For_DGV()
  693. End Sub
  694. Friend Sub SQL_燈價格修改()
  695. ConnOpen() : SQL1 = "UPDATE 燈區年度分配 SET 價格 = N'" & PA2 & "' WHERE (年度 LIKE N'" & PA & "') AND (燈種 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
  696. End Sub
  697. Friend Sub SQL_燈價格修改_科目()
  698. ConnOpen() : SQL1 = "UPDATE 燈區年度分配 SET 科目編號 = N'" & PA3 & "' WHERE (年度 LIKE N'" & PA & "') AND (燈種 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
  699. End Sub
  700. Friend Sub SQL_燈價格查詢()
  701. ConnOpen()
  702. SQL1 = "SELECT 燈區年度分配.燈種, 燈區年度分配.價格, 燈區年度分配.科目編號, 會計科目.會計科目,燈區年度分配.排序
  703. FROM 燈區年度分配 LEFT OUTER JOIN
  704. 會計科目 ON 燈區年度分配.科目編號 = 會計科目.編號
  705. WHERE (燈區年度分配.年度 LIKE N'" & PA & "') GROUP BY 燈區年度分配.燈種, 燈區年度分配.價格, 燈區年度分配.科目編號, 會計科目.會計科目,燈區年度分配.排序
  706. ORDER BY 燈區年度分配.燈種"
  707. CmdSet_For_DGV()
  708. End Sub
  709. Friend Sub SQL_燈科目查詢()
  710. ConnOpen()
  711. SQL1 = "SELECT 燈區年度分配.科目編號, 會計科目.會計科目
  712. FROM 燈區年度分配 LEFT OUTER JOIN
  713. 會計科目 ON 燈區年度分配.科目編號 = 會計科目.編號
  714. WHERE (燈區年度分配.年度 LIKE N'" & PA & "') GROUP BY 燈區年度分配.科目編號, 會計科目.會計科目 ORDER BY 燈區年度分配.科目編號"
  715. CmdSet_For_DGV()
  716. End Sub
  717. Friend Sub SQL_燈科目讀取()
  718. ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE N'C-03-07%') AND (層級 LIKE N'3') AND (停用 = 0)" : CmdSet_For_dr()
  719. End Sub
  720. Friend Sub SQL_燈科目讀取1()
  721. ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE N'C-03-07%') AND (層級 LIKE N'3') AND (停用 = 0) " & SQL2 : CmdSet_For_dr()
  722. End Sub
  723. Friend Sub SQL_點燈流水號()
  724. ConnOpen() : SQL1 = "SELECT TOP(1) 流水號 FROM 點燈明細表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
  725. End Sub
  726. Friend Sub SQL_點燈明細新增()
  727. ConnOpen()
  728. SQL1 = "INSERT INTO 點燈明細表 (流水號, 控制表單號, 姓名, 燈種, 金額, 位置, 年度)
  729. VALUES (N'" & PA7 & "', N'" & PA & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "')"
  730. CmdSet_For_dr()
  731. End Sub
  732. Friend Sub SQL_點燈明細修改()
  733. ConnOpen()
  734. SQL1 = "UPDATE 點燈明細表 SET 姓名 = N'" & PA2 & "', 燈種 = N'" & PA3 & "', 金額 = N'" & PA4 & "', 位置 = N'" & PA5 & "', 年度 = N'" & PA6 & "'
  735. WHERE 流水號 LIKE N'" & PA & "'"
  736. CmdSet_For_dr()
  737. End Sub
  738. Friend Sub SQL_點燈自動搜尋位置()
  739. ConnOpen()
  740. SQL1 = "SELECT TOP(1) 燈區年度分配.年度, 燈區年度分配.燈種, 燈位資料.區編, 燈位資料.列位, 燈位資料.層位, 燈位資料.編號
  741. FROM 燈位資料
  742. LEFT OUTER JOIN 燈區年度分配 ON 燈區年度分配.區編 = 燈位資料.區編
  743. WHERE 燈區年度分配.年度 = N'" & PA6 & "' AND 燈區年度分配.燈種 = N'" & PA3 & "'
  744. AND NOT EXISTS (
  745. SELECT 1
  746. FROM 點燈明細表
  747. WHERE 點燈明細表.年度 = N'" & PA6 & "' AND 點燈明細表.燈種 = N'" & PA3 & "' AND 點燈明細表.位置 = 燈位資料.編號
  748. )
  749. ORDER BY 燈位資料.區編, 燈位資料.層位 " & PA21 & ", 燈位資料.列位"
  750. CmdSet_For_dr()
  751. End Sub
  752. Friend Sub SQL_點燈_控制表已收款修改()
  753. ConnOpen()
  754. SQL1 = "UPDATE 點燈控制表 SET 已收款 = '1' WHERE (單號 =N'" & 點燈系統.單號_tb.Text & "')"
  755. CmdSet_For_dr()
  756. End Sub
  757. Friend Sub SQL_點燈_明細表流水號查詢()
  758. ConnOpen()
  759. SQL1 = "SELECT TOP(1) 流水號 FROM 點燈明細表 ORDER BY 流水號 DESC"
  760. CmdSet_For_dr()
  761. End Sub
  762. Friend Sub SQL_點燈_排序修改()
  763. ConnOpen()
  764. SQL1 = "UPDATE 燈區年度分配 SET 排序 =N'" & PA8 & "' WHERE 年度=N'" & PA9 & "' AND 燈種=N'" & PA7 & "'"
  765. CmdSet_For_dr()
  766. End Sub
  767. Friend Sub SQL_個人燈位查詢()
  768. ConnOpen()
  769. SQL1 = "SELECT 點燈明細表.控制表單號,點燈明細表.姓名,點燈明細表.燈種,點燈明細表.位置,點燈明細表.年度,點燈明細表.金額,點燈明細表.位置 AS 座標 FROM 點燈明細表
  770. LEFT OUTER JOIN 點燈控制表 ON 點燈控制表.單號 = 點燈明細表.控制表單號
  771. WHERE 點燈控制表.群組編號 =N'" & PA10 & "' AND 點燈明細表.姓名 =N'" & PA11 & "'"
  772. CmdSet_For_DGV()
  773. End Sub
  774. Friend Sub SQL_點燈_控制表財務單號修改()
  775. ConnOpen()
  776. SQL1 = "UPDATE 點燈控制表 SET 財務單號 =N'" & PA & "' WHERE 單號=N'" & PA1 & "' "
  777. CmdSet_For_dr()
  778. End Sub
  779. Friend Sub SQL_點燈_新增公帳流水帳資料()
  780. ConnOpen()
  781. SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票,
  782. 出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " &
  783. "VALUES (N'" & PA19 & "', N'台幣現金', N'" & DTP & "', N'" & PA12 & "', N'" & PA13 & "', N'0', N'" & PA15 & "', N'" & gUserName & "', N'" & PA & "', N'" & PA14 &
  784. "', N'0', N'1', N'1', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'1', N'' ,'0')"
  785. CmdSet_For_dr()
  786. End Sub
  787. Friend Sub SQL_點燈_新增一筆公帳控制表()
  788. ConnOpen()
  789. SQL1 = "INSERT INTO 公帳控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號,流動,平帳) " &
  790. "VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP4 & "', N'" & gUserName & "', N'" & DTP4 & "', N'', N'', N'" & gUserName & "',
  791. N'" & DTP4 & "', N'', N'" & PA50 & "',N'0',N'0')"
  792. CmdSet_For_dr()
  793. End Sub
  794. Friend Sub SQL_點燈_單號年度查詢()
  795. ConnOpen()
  796. SQL1 = "SELECT 點燈明細表.年度 FROM 點燈控制表 INNER JOIN 點燈明細表 ON 點燈明細表.控制表單號 = 點燈控制表.單號 WHERE 點燈控制表.單號 = N'" & PA20 & "' GROUP BY 點燈明細表.年度"
  797. CmdSet_For_dr()
  798. End Sub
  799. Friend Sub SQL_點燈_單號收款日查詢()
  800. ConnOpen()
  801. SQL1 = "SELECT 公帳流水帳.日期 FROM 點燈控制表 INNER JOIN 公帳流水帳 ON 公帳流水帳.支付單號 = 點燈控制表.財務單號
  802. WHERE 點燈控制表.單號 = N'" & 點燈系統.單號_tb.Text & "' GROUP BY 公帳流水帳.日期"
  803. CmdSet_For_dr()
  804. End Sub
  805. Friend Sub SQL_點燈_支付單號查詢()
  806. ConnOpen()
  807. SQL1 = "SELECT TOP (1) 支付單號 FROM 公帳控制表 WHERE 支付單號 LIKE N'%" & DTP1 & "%' ORDER BY 支付單號 DESC"
  808. CmdSet_For_dr()
  809. End Sub
  810. Friend Sub SQL_點燈_支付明細流水號查詢()
  811. ConnOpen()
  812. SQL1 = "SELECT TOP (1) 流水號 FROM 公帳流水帳 WHERE (流水號 LIKE N'%" & PA19 & "%') ORDER BY 流水號 DESC"
  813. CmdSet_For_dr()
  814. End Sub
  815. Friend Sub SQL_點燈_控制表已點燈修改()
  816. ConnOpen()
  817. SQL1 = "UPDATE 點燈控制表 SET 已點燈 = '1' WHERE (單號 =N'" & PA & "')"
  818. CmdSet_For_dr()
  819. End Sub
  820. Friend Sub SQL_自動點燈_控制表清單()
  821. ConnOpen()
  822. SQL1 = "SELECT 點燈控制表.單號 ,點燈控制表.住址 ,點燈控制表.電話 ,點燈控制表.日期 ,點燈控制表.內容 ,點燈控制表.金額 ,點燈控制表.主任委員 ,
  823. 點燈控制表.收款人 ,點燈控制表.姓名 ,點燈控制表.財務單號,點燈控制表.群組編號,點燈控制表.已收款
  824. FROM 點燈控制表 WHERE 點燈控制表.已點燈 = '0' ORDER BY 點燈控制表.單號 DESC"
  825. CmdSet_For_DGV()
  826. End Sub
  827. Friend Sub SQL_自動點燈_未點控制表搜尋()
  828. ConnOpen()
  829. SQL1 = "SELECT 點燈收款資料.單號,點燈收款資料.CH1,點燈收款資料.CH2,點燈收款資料.CH3,點燈收款資料.CH4,點燈收款資料.CH5,
  830. 點燈收款資料.CH6,點燈收款資料.CH7,點燈收款資料.CH8,點燈收款資料.CH9,點燈收款資料.CH10
  831. FROM 點燈收款資料 WHERE (單號 =N'" & PA2 & "')"
  832. CmdSet_For_DGV()
  833. End Sub
  834. Friend Sub SQL_快速加入_客戶資料表新增()
  835. ConnOpen()
  836. SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號)
  837. VALUES (N'" & PA30 & "', N'" & PA31 & "', N'" & PA32 & "', N'" & PA33 & "', N'" & PA34 & "', N'" & PA35 & "', N'" & PA36 & "', N'', N'', N'', N'', N'', N'', N'')"
  838. CmdSet_For_dr()
  839. End Sub
  840. End Module