MAOJI-ERP-SYS
/
MAOJI-ERP-SYS-LEEHSIEHJUI
关注 4
点赞 0
派生 0
代码 工单 0 合并请求 0 版本发布 0 百科 动态
暂无描述
您最多选择25个主题 主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
13 提交
1 分支
目录树: c6efb1a105
分支列表 标签列表
${ item.name }
创建分支 ${ searchTerm }
从 'c6efb1a105'
${ noResults }
MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module/SQL_跨介面共用.vb

SQL_跨介面共用.vb 16KB
文件历史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228 
  1. Module SQL_跨介面共用

  2.     Friend Sub SQL_倉儲明細表新增()

  3.         ConnOpen()

  4.         SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 單據編號, 供應商編號, 料號, 金額, 匯率, 入庫, 出庫, 狀態, 採購下單, 入庫日期, 出庫日期, 備註, 倉儲作業, 客戶編號, 售價, 公司編號, 倉名編號, 交期) 

  5.                 VALUES (N'" & PA1 & "'  ,N'" & PA2 & "',N'" & PA3 & "',  N'" & PA4 & "',N'" & NU1 & "', N'" & NU2 & "',N'" & NU3 & "',N'" & NU4 & "',N'" & PA5 & "',N'" & PA6 &

  6.                      "',N'',N'',N'',N'',N'" & PA7 & "',N'" & NU5 & "',N'" & 公司編號 & "',N'" & PA8 & "',N'" & PA9 & "')"

  7.         CmdSet_For_dr()

  8.     End Sub

  9.     Friend Sub SQL_倉儲明細表新增_含訂單編號()

  10.         ConnOpen()

  11.         SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 單據編號, 供應商編號, 料號, 金額, 匯率, 入庫, 出庫, 狀態, 採購下單, 入庫日期, 出庫日期, 備註, 倉儲作業, 客戶編號, 售價, 公司編號, 倉名編號, 交期, 

  12.                                         訂單流水號) 

  13.                 VALUES (N'" & PA1 & "'  ,N'" & PA2 & "',N'" & PA3 & "',  N'" & PA4 & "',N'" & NU1 & "', N'" & NU2 & "',N'" & NU3 & "',N'" & NU4 & "',N'" & PA5 & "',N'" & PA6 &

  14.                      "',N'',N'',N'',N'',N'" & PA7 & "',N'" & NU5 & "',N'" & 公司編號 & "',N'" & PA8 & "',N'" & PA9 & "', N'" & PA10 & "')"

  15.         CmdSet_For_dr()

  16.     End Sub

  17.     Friend Sub SQL_FTP資料夾路徑分配()

  18.         ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理" : CmdSet_For_DGV()

  19.     End Sub

  20.     Friend Sub SQL_系統版本號驗證()

  21.         ConnOpen() : SQL1 = "SELECT 系統認證版本號, 系統鎖定 FROM 版本號管理 " : CmdSet_For_dr()

  22.     End Sub

  23.     Friend Sub SQL_公司基本資料宣告()

  24.         ConnOpen() : SQL1 = "SELECT 公司編號, 統編, 電話, 地址 FROM MJ公司基本資料 WHERE 公司名 LIKE N'" & PA & "'" : CmdSet_For_dr()

  25.     End Sub

  26.     Friend Sub SQL_職別查詢()

  27.         ConnOpen() : SQL1 = "SELECT 職別, 編號 FROM MJ職別 WHERE 職別 LIKE N'" & PA & "' ORDER BY 編號" : CmdSet_For_dr()

  28.     End Sub

  29.     Friend Sub SQL_負責區域查詢()

  30.         ConnOpen() : SQL1 = "SELECT 負責區域, 編號 FROM  MJ負責區域 WHERE 負責區域 LIKE N'" & PA & "' ORDER BY 編號" : CmdSet_For_dr()

  31.     End Sub

  32.     Friend Sub SQL_倉名編號取得()

  33.         ConnOpen() : SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 WHERE 倉名 LIKE N'" & PA & "'" : CmdSet_For_dr()

  34.     End Sub

  35.     Friend Sub SQL_倉名下拉清單()

  36.         ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE 倉名 NOT LIKE 'NA' ORDER BY 倉名編號" : CmdSet_For_dr()

  37.     End Sub

  38.     Friend Sub SQL_年份清單查詢()

  39.         ConnOpen() : SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE '" & PA & "'" : CmdSet_For_dr()

  40.     End Sub

  41.     Friend Sub SQL_使用者權限圖片顯示()

  42.         ConnOpen() : SQL1 = "SELECT 簽名檔圖片 FROM MJ主管簽名檔管理 WHERE 圖片流水號 LIKE '" & PA & "'" : CmdSet_For_dr()

  43.     End Sub

  44.     Friend Sub SQL_付款方式查詢()

  45.         ConnOpen() : SQL1 = "SELECT 付款方式 FROM MJ付款方式 WHERE 付款方式 LIKE N'" & PA & "'  ORDER BY 編號" : CmdSet_For_dr()

  46.     End Sub

  47.     Friend Sub SQL_物料頁碼清單()

  48.         ConnOpen() : SQL1 = "SELECT LEFT(頁碼, 3) AS 頁碼 FROM 物料資料庫 GROUP BY LEFT(頁碼, 3) ORDER BY 頁碼" : CmdSet_For_dr()

  49.     End Sub

  50.     Friend Sub SQL_倉儲明細表流水號最後一筆()

  51.         ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 倉儲明細表 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()

  52.     End Sub

  53.     Friend Sub SQL_物料資料庫成本查詢()

  54.         ConnOpen() : SQL1 = "SELECT 成本 FROM 物料資料庫 WHERE (料號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  55.     End Sub

  56.     Friend Sub SQL_物料資料庫成本修改()

  57.         ConnOpen() : SQL1 = "UPDATE 物料資料庫 SET  成本 = N'" & NU1 & "' WHERE (料號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  58.     End Sub

  59.     Friend Sub SQL_倉儲明細表生成單據編號()

  60.         ConnOpen() : SQL1 = "SELECT 單據編號 FROM 倉儲明細表 WHERE ( 單據編號 LIKE N'" & PA1 & "') GROUP BY 單據編號" : CmdSet_For_dr()

  61.     End Sub

  62.     Friend Sub SQL_倉儲明細表_入庫日期讀取()

  63.         ConnOpen() : SQL1 = "SELECT 入庫日期 FROM 倉儲明細表 WHERE ( 資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  64.     End Sub

  65.     Friend Sub SQL_倉儲明細表刪除()

  66.         ConnOpen() : SQL1 = "DELETE FROM 倉儲明細表 WHERE (資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  67.     End Sub

  68.     Friend Sub SQL_付款方式_編號()

  69.         ConnOpen() : SQL1 = "SELECT 編號 FROM MJ付款方式 WHERE 付款方式 LIKE N'" & PA1 & "' ORDER BY 編號" : CmdSet_For_dr()

  70.     End Sub

  71.     Friend Sub SQL_供應商資料表下拉清單()

  72.         ConnOpen() : SQL1 = "SELECT 編號, 簡稱 FROM 供應商資料表 WHERE (停用 = 0 OR 停用 IS NULL) AND (編號 NOT LIKE 'FI00000000') ORDER BY 名稱" : CmdSet_For_dr()

  73.     End Sub

  74.     Friend Sub SQL_供應商資料表關鍵字查詢()

  75.         ConnOpen() : SQL1 = "SELECT 編號, 簡稱 FROM 供應商資料表 WHERE (簡稱 LIKE '%" & PA & "%') AND (停用 = 0 OR 停用 IS NULL) AND (編號 NOT LIKE 'FI00000000') ORDER BY 名稱" : CmdSet_For_dr()

  76.     End Sub

  77.     Friend Sub SQL_客戶資料表_下拉清單讀取()

  78.         ConnOpen() : SQL1 = "SELECT 編號, 簡稱 FROM  客戶資料表 ORDER BY 簡稱" : CmdSet_For_dr()

  79.     End Sub

  80.     Friend Sub SQL_訂單控制表_出貨備齊()

  81.         ConnOpen() : SQL1 = "UPDATE 訂單控制表 SET  出貨備齊  = N'1' WHERE (訂單流水號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  82.     End Sub

  83.     Friend Sub SQL_客戶資料表關鍵字查詢()

  84.         ConnOpen() : SQL1 = "SELECT 編號, 簡稱 FROM 客戶資料表 WHERE (簡稱 LIKE '%" & PA & "%') AND (編號 NOT LIKE 'CI00000000') ORDER BY 簡稱" : CmdSet_For_dr()

  85.     End Sub

  86.     Friend Sub SQL_傭金比例下拉清單()

  87.         ConnOpen() : SQL1 = "SELECT 比例 FROM 佣金比例 ORDER BY 比例" : CmdSet_For_dr()

  88.     End Sub

  89.     Friend Sub SQL_員工名稱下拉清單()

  90.         ConnOpen() : SQL1 = "SELECT 名稱 FROM 員工資料表 ORDER BY 名稱" : CmdSet_For_dr()

  91.     End Sub

  92.     Friend Sub SQL_出貨單業務司機指定()

  93.         ConnOpen()

  94.         SQL1 = "UPDATE 倉儲明細表 SET 業務 = N'" & PA1 & "', 業務比例 = N'" & NU1 & "', 司機 = N'" & PA2 & "', 司機比例 = N'" & NU2 & "' WHERE 單據編號 LIKE N'" & PA & "' AND 狀態 LIKE '銷售出庫'"

  95.         CmdSet_For_dr()

  96.     End Sub

  97.     Friend Sub SQL_營運成本收支單申請_支付單號流水號()

  98.         ConnOpen() : SQL1 = "SELECT TOP (1)  支付單號 FROM 營運成本控制表 WHERE ( 支付單號 LIKE '" & PA & "')" : CmdSet_For_dr()

  99.     End Sub

  100.     Friend Sub SQL_營運成本控制表新增()

  101.         ConnOpen()

  102.         SQL1 = "INSERT INTO 營運成本控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號) 

  103.                 VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'" & 公司編號 & "')"

  104.         CmdSet_For_dr()

  105.     End Sub

  106.     Friend Sub SQL_營運成本明細表項次新增查詢()

  107.         ConnOpen() : SQL1 = "SELECT TOP(1) 項次 FROM 營運成本明細表 WHERE 流水號 LIKE '" & PA & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  108.     End Sub

  109.     Friend Sub SQL_營運成本明細表新增()

  110.         ConnOpen()

  111.         SQL1 = "INSERT INTO 營運成本明細表 (流水號, 項次, 會計科目, 用途, 金額, 備註, 收款, 零用金, 支票數, 會計, 出納, 現金, 備用金, 公帳, 支票, 作帳日期, 出納日期, 公司編號, 狀態, 登錄人) 

  112.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & NU1 & "', N'" & PA5 & "', N'" & NU2 & "', N'" & NU3 & "', N'" & NU4 &

  113.                     "', N'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'', N'" & 公司編號 & "', N'" & PA6 & "', N'" & PA7 & "')"

  114.         CmdSet_For_dr()

  115.     End Sub

  116.     Friend Sub SQL_倉儲明細表_出庫日期讀取()

  117.         ConnOpen() : SQL1 = "SELECT 出庫日期 FROM 倉儲明細表 WHERE ( 資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  118.     End Sub

  119.     Friend Sub SQL_出貨單申請_零售客戶記錄表流水號最後一筆()

  120.         ConnOpen() : SQL1 = "SELECT TOP (1) 零售流水號 FROM 零售客戶記錄表 ORDER BY 零售流水號 DESC" : CmdSet_For_dr()

  121.     End Sub

  122.     Friend Sub SQL_通用預設值管理查詢()

  123.         ConnOpen() : SQL1 = "SELECT 預設值 FROM 通用預設值管理表一 WHERE ( 流水號 LIKE N'" & 關鍵字編號 & "')" : CmdSet_For_dr()

  124.     End Sub

  125.     Friend Sub SQL_會計科目_第一階_不含流動票務()

  126.         ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) AND (第一階 NOT LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號" : CmdSet_For_dr()

  127.     End Sub

  128.     Friend Sub SQL_會計科目_第二階_不含流動票務()

  129.         ConnOpen()

  130.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 NOT LIKE '流動%')

  131.                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"

  132.         CmdSet_For_dr()

  133.     End Sub

  134.     Friend Sub SQL_會計科目_第三階_不含流動票務()

  135.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號" : CmdSet_For_dr()

  136.     End Sub

  137.     Friend Sub SQL_會計科目_關鍵字_不含流動票務()

  138.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號" : CmdSet_For_dr()

  139.     End Sub

  140.     Friend Sub SQL_會計科目_第一階_只含流動票務()

  141.         ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) AND (第一階 LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號" : CmdSet_For_dr()

  142.     End Sub

  143.     Friend Sub SQL_會計科目_第二階_只含流動票務()

  144.         ConnOpen()

  145.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 LIKE '流動%')

  146.                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"

  147.         CmdSet_For_dr()

  148.     End Sub

  149.     Friend Sub SQL_會計科目_第三階_只含流動票務()

  150.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號" : CmdSet_For_dr()

  151.     End Sub

  152.     Friend Sub SQL_會計科目_關鍵字_只含流動票務()

  153.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號" : CmdSet_For_dr()

  154.     End Sub

  155.     Friend Sub SQL_倉儲入庫驗收確認()

  156.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 入庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "', 倉名編號 = '" & PA1 & "' WHERE (資料流水號 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  157.     End Sub

  158.     Friend Sub SQL_採購單申請_倉儲明細表修改_入庫()

  159.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  金額  = N'" & NU1 & "', 入庫 = N'" & NU2 & "' , 備註 = N'" & PA1 & "', 交期 = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA3 & "')" : CmdSet_For_dr()

  160.     End Sub

  161.     Friend Sub SQL_出貨單申請_零售客戶記錄表刪除()

  162.         ConnOpen() : SQL1 = "DELETE FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 出貨單申請.單據編號_tb.Text & "')" : CmdSet_For_dr()

  163.     End Sub

  164.     Friend Sub SQL_出貨單申請_倉儲明細表修改_出庫()

  165.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  金額  = N'" & NU1 & "', 出庫 = N'" & NU2 & "', 備註 = N'" & PA1 & "', 交期 = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA3 & "')" : CmdSet_For_dr()

  166.     End Sub

  167.     Friend Sub SQL_營運成本控制表刪除()

  168.         ConnOpen() : SQL1 = "DELETE FROM 營運成本控制表 WHERE (支付單號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  169.     End Sub

  170.     Friend Sub SQL_營運成本明細表刪除()

  171.         ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  172.     End Sub

  173.     Friend Sub SQL_營運成本明細表刪除單筆()

  174.         ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()

  175.     End Sub

  176.     Friend Sub SQL_營運成本明細表項次修改()

  177.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 項次 = N'" & PA1 & "' WHERE (流水號 LIKE '" & PA2 & "' AND 項次 LIKE '" & PA3 & "')" : CmdSet_For_dr()

  178.     End Sub

  179.     Friend Sub SQL_支票收支單申請_客戶資料_零售()

  180.         ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  181.     End Sub

  182.     Friend Sub SQL_支票收支單申請_兌現科目_下拉清單一()

  183.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'A-01-02%') AND (層級 LIKE '3')" : CmdSet_For_dr()

  184.     End Sub

  185.     Friend Sub SQL_支票收支單申請_兌現科目_下拉清單二()

  186.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'E%' OR 編號 LIKE 'F%') AND (統制科目 = 0) AND (停用 = 0) ORDER BY 編號" : CmdSet_For_dr()

  187.     End Sub

  188.     Friend Sub SQL_支票收支單申請修改()

  189.         ConnOpen()

  190.         SQL1 = "UPDATE 營運成本明細表 SET  用途 = N'" & PA1 & "', 金額 = N'" & NU1 & "', 備註 = N'" & PA2 & "' , 會計科目 = N'" & PA3 & "', 收款 = N'" & NU2 & "', 零用金 = N'" & NU3 &

  191.                                      "', 支票數 = N'" & NU4 & "', 狀態 = N'" & PA6 & "', 登錄人 = N'" & PA7 & "', 發票人帳號 = N'" & PA8 & "', 兌現科目 = N'" & PA9 & "', 付款銀行 = N'" & PA10 &

  192.                                      "', 倉儲單號 = N'" & PA11 & "', 支票號碼 = N'" & PA12 & "', 開票人 = N'" & PA13 & "', 到期日 = N'" & PA14 & "', 預定兌現日 = N'" & PA15 &

  193.                                      "', 開收票日 = N'" & PA16 & "'

  194.                 WHERE (流水號 LIKE '" & PA4 & "' AND 項次 LIKE '" & PA5 & "')"

  195.         CmdSet_For_dr()

  196.     End Sub

  197.     Friend Sub SQL_支票收支單客戶供應商查詢()

  198.         If Left(PA, 1) = "F" Then

  199.             KKKJJ = "WHERE     (倉儲明細表.供應商編號 LIKE '" & PA & "')"

  200.         Else

  201.             KKKJJ = "WHERE     (倉儲明細表.客戶編號 LIKE '" & PA & "')"

  202.         End If

  203.         ConnOpen()

  204.         SQL1 = "SELECT     倉儲明細表.客戶編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 客戶資料表.簡稱 AS 客戶

  205.                 FROM       倉儲明細表 INNER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 INNER JOIN

  206.                            客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號

  207.                 " & KKKJJ & "

  208.                 GROUP BY   倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 供應商資料表.簡稱, 客戶資料表.簡稱"

  209.         CmdSet_For_dr()

  210.     End Sub

  211.     Friend Sub SQL_應收應付單號連接暫存檔刪除()

  212.         ConnOpen() : SQL1 = "DELETE FROM 應收應付單號連接暫存檔" : CmdSet_For_dr()

  213.     End Sub

  214.     Friend Sub SQL_應收應付單號連接暫存檔新增()

  215.         ConnOpen() : SQL1 = "INSERT INTO 應收應付單號連接暫存檔 (流水單號)  VALUES (N'" & PA19 & "')" : CmdSet_For_dr()

  216.     End Sub

  217.     Friend Sub SQL_支票收支單申請_付款銀行_下拉清單()

  218.         ConnOpen() : SQL1 = "SELECT 付款銀行 FROM 營運成本明細表 WHERE 付款銀行 IS NOT NULL GROUP BY   付款銀行" : CmdSet_For_dr()

  219.     End Sub

  220.     Friend Sub SQL_營運成本收支單申請_申請日期修改()

  221.         ConnOpen()

  222.         SQL1 = "UPDATE 營運成本明細表 SET  作帳日期 = N'" & DTP1 & "' WHERE (流水號 LIKE '" & PA4 & "')"

  223.         CmdSet_For_dr()

  224.         ConnOpen()

  225.         SQL1 = "UPDATE 營運成本控制表 SET  申請日期 = N'" & DTP1 & "' WHERE (支付單號 LIKE '" & PA4 & "')"

  226.         CmdSet_For_dr()

  227.     End Sub

  228. End Module