HSKIN-MIS-SYS
/
HSKIN-MIS-SYS-LEEHSIEHJUI
關注 4
收藏 0
複製 0
程式碼 問題 0 合併請求 0 版本發佈 0 Wiki 活動
暫無描述
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.
15 提交
1 分支
目錄樹: 223009e923
分支列表 標籤
${ item.name }
建立分支 ${ searchTerm }
從 '223009e923'
${ noResults }
HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_總務系統.vb

SQL_總務系統.vb 17KB
歷史記錄 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282 
  1. Module SQL_總務系統

  2.     Friend Sub SQL_圖片資料庫查詢()

  3.         ConnOpen() : SQL1 = "SELECT TOP (1) 圖片資料庫, 是否可用 FROM 圖片資料庫管理 WHERE 是否可用 = 0 ORDER BY 圖片資料庫" : CmdSet_For_dr()

  4.     End Sub

  5.     Friend Sub SQL_會議記錄_姓名_下拉清單()

  6.         ConnOpen()

  7.         SQL1 = "SELECT  UserName AS 姓名  FROM  ras_Users  WHERE  (IsLockedOut = 0) AND (DIN NOT LIKE '15') AND (DIN NOT LIKE '21') AND (DIN NOT LIKE '999')  ORDER BY   UserName"

  8.         CmdSet_For_dr()

  9.     End Sub

  10.     Friend Sub SQL_會議記錄_執行時間_下拉清單()

  11.         ConnOpen_ERP()

  12.         SQL1 = "SELECT 執行時間 FROM 會議記錄控制表 WHERE 執行時間 NOT LIKE '' GROUP BY 執行時間 ORDER BY 執行時間"

  13.         CmdSet_For_dr()

  14.     End Sub

  15.     Friend Sub SQL_會議記錄清單()

  16.         ConnOpen_ERP()

  17.         SQL1 = "SELECT 會議編號, 時間, 地點, 會議項目, 細項說明, 執行時間, 執行情況, 預計完成, 備註, 已完成, 長期執行, 圖片庫, 核准, 核准狀態 

  18.                 FROM   會議記錄控制表 " & SQL2 & " ORDER BY 時間 DESC, 會議編號"

  19.         CmdSet_For_DGV()

  20.     End Sub

  21.     Friend Sub SQL_會議記錄_預計完成_下拉清單()

  22.         ConnOpen_ERP()

  23.         SQL1 = "SELECT 預計完成 FROM 會議記錄控制表 

  24.                 WHERE 預計完成 NOT LIKE '' AND 預計完成 NOT LIKE '1%' AND 預計完成 NOT LIKE '2%' AND 預計完成 NOT LIKE '3%' AND 預計完成 NOT LIKE '4%' AND 

  25.                       預計完成 NOT LIKE '5%' AND 預計完成 NOT LIKE '6%' AND 預計完成 NOT LIKE '7%' AND 預計完成 NOT LIKE '8%' AND 預計完成 NOT LIKE '9%' AND 

  26.                       預計完成 NOT LIKE '0%' GROUP BY 預計完成 ORDER BY 預計完成"

  27.         CmdSet_For_dr()

  28.     End Sub

  29.     Friend Sub SQL_會議記錄_執行情況_下拉清單()

  30.         ConnOpen_ERP() : SQL1 = "SELECT 執行情況 FROM 會議記錄控制表 WHERE 執行情況 NOT LIKE '' GROUP BY 執行情況 ORDER BY 執行情況" : CmdSet_For_dr()

  31.     End Sub

  32.     Friend Sub SQL_會議決議執行人()

  33.         ConnOpen_ERP() : SQL1 = "SELECT 項次, 執行人 FROM 會議決議執行人 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()

  34.     End Sub

  35.     Friend Sub SQL_會議記錄_單號查詢()

  36.         ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 會議編號 FROM 會議記錄控制表 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  37.     End Sub

  38.     Friend Sub SQL_會議記錄修改()

  39.         ConnOpen_ERP()

  40.         SQL1 = "UPDATE 會議記錄控制表 SET 時間 = N'" & PA2 & "', 地點 = N'" & PA3 & "', 會議項目 = N'" & PA4 & "', 細項說明 = N'" & PA5 & "', 執行時間 = N'" & PA6 & "', 

  41.                                           執行情況 = N'" & PA7 & "', 預計完成 = N'" & PA8 & "', 備註 = N'" & PA9 & "', 已完成 = N'" & BL1 & "', 長期執行 = N'" & BL2 & "', 

  42.                                           核准 = N'" & BL3 & "' 

  43.                 WHERE (會議編號 LIKE '" & PA1 & "')"

  44.         CmdSet_For_dr()

  45.     End Sub

  46.     Friend Sub SQL_會議記錄修改1()

  47.         ConnOpen_ERP()

  48.         SQL1 = "UPDATE 會議記錄控制表 SET  核准 = N'" & BL3 & "', 備註 = N'" & PA9 & "', 核准狀態  = N'" & PA10 & "' WHERE (會議編號 LIKE '" & PA1 & "')"

  49.         CmdSet_For_dr()

  50.     End Sub

  51.     Friend Sub SQL_會議記錄新增()

  52.         ConnOpen_ERP()

  53.         SQL1 = "INSERT INTO  會議記錄控制表 (會議編號, 時間, 地點, 會議項目, 細項說明, 執行時間, 執行情況, 預計完成, 備註, 已完成, 長期執行, 圖片庫, 核准) 

  54.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', 

  55.                         N'" & PA9 & "', N'" & BL1 & "', N'" & BL2 & "', N'" & PA10 & "', N'" & BL3 & "')"

  56.         CmdSet_For_dr()

  57.     End Sub

  58.     Friend Sub SQL_會議決議執行人刪除()

  59.         ConnOpen_ERP() : SQL1 = "DELETE 會議決議執行人 WHERE 會議編號 LIKE '" & PA1 & "' AND 執行人 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  60.     End Sub

  61.     Friend Sub SQL_會議決議執行人_單號查詢()

  62.         ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 會議編號 FROM 會議決議執行人 WHERE (會議編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()

  63.     End Sub

  64.     Friend Sub SQL_會議決議執行人新增()

  65.         ConnOpen_ERP()

  66.         SQL1 = "INSERT INTO  會議決議執行人 (會議編號, 項次, 執行人) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')"

  67.         CmdSet_For_dr()

  68.     End Sub

  69.     Friend Sub SQL_會議記錄刪除()

  70.         ConnOpen_ERP() : SQL1 = "DELETE 會議記錄控制表 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  71.         ConnOpen_ERP() : SQL1 = "DELETE 會議決議執行人 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  72.         ConnOpen_圖庫SQL() : SQL1 = "DELETE 會議記錄圖片 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  73.     End Sub

  74.     Friend Sub SQL_會議圖片讀取()

  75.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  76.     End Sub

  77.     Friend Sub SQL_會議圖片()

  78.         ConnOpen_圖庫SQL() : SQL1 = "UPDATE 會議記錄圖片 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()

  79.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 AS Item, 檔案 AS [File.] FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()

  80.     End Sub

  81.     Friend Sub SQL_會議圖片讀取1()

  82.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_DGV()

  83.     End Sub

  84.     Friend Sub SQL_會議圖片入系統()

  85.         ConnOpen_圖庫SQL()

  86.         SQL1 = "INSERT INTO 會議記錄圖片 (會議編號, 項次, 檔案, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', @binary_file"

  87.         CmdSet_For_dr_pic()

  88.     End Sub

  89.     Friend Sub SQL_會議圖片最後一筆編號查詢()

  90.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  91.     End Sub

  92. 

  93.     Friend Sub SQL_會議_明細表讀取()

  94.         ConnOpen_ERP()

  95.         SQL1 = "SELECT  會議記錄明細表.控制表流水號, 會議記錄明細表.人員 AS 姓名, 會議記錄明細表.圖片資料庫, 會議記錄明細表.圖片流水號 , 空白圖片用.圖片, 會議記錄明細表.簽名日期

  96.                 FROM    會議記錄明細表 

  97.                 LEFT OUTER JOIN

  98.                          空白圖片用 ON 會議記錄明細表.圖片資料庫 = 空白圖片用.選擇

  99.                 WHERE   控制表流水號 =N'" & PA57 & "'"

  100.         CmdSet_For_DGV()

  101.     End Sub

  102.     Friend Sub SQL_會議_明細表新增()

  103.         ConnOpen_ERP()

  104.         SQL1 = "INSERT INTO 會議記錄明細表 (控制表流水號, 人員, 圖片資料庫, 圖片流水號,簽名日期) VALUES (N'" & PA57 & "', N'" & PA58 & "', N'', N'', N'')"

  105.         CmdSet_For_dr()

  106.     End Sub

  107.     Friend Sub SQL_會議_明細表刪除()

  108.         ConnOpen_ERP()

  109.         SQL1 = "DELETE FROM 會議記錄明細表 

  110.                 WHERE   控制表流水號 =N'" & PA1 & "'"

  111.         CmdSet_For_dr()

  112.     End Sub

  113.     Friend Sub SQL_通用_控制表清單()

  114.         ConnOpen_ERP()

  115.         If PA56 = "" Then

  116.             SQL2 = ""

  117.         Else

  118.             SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'

  119.                     OR 文件控制表.開單人 Like N'%" & PA56 & "%'"

  120.         End If

  121.         SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表

  122.                 WHERE (已儲存 = 1) AND (已作廢 = 0) AND (已發行 = 0) " & SQL2 & " 

  123.                 ORDER BY 流水號 DESC"

  124.         CmdSet_For_DGV()

  125.     End Sub

  126.     Friend Sub SQL_通用_控制表清單1()

  127.         ConnOpen_ERP()

  128.         If PA56 = "" Then

  129.             SQL2 = ""

  130.         Else

  131.             SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'

  132.                      OR 文件控制表.開單人 Like N'%" & PA56 & "%'"

  133.         End If

  134.         SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表

  135.                 WHERE 已作廢 = 1  " & SQL2 & " 

  136.                 ORDER BY 流水號 DESC"

  137.         CmdSet_For_DGV()

  138.     End Sub

  139.     Friend Sub SQL_通用_控制表清單2()

  140.         ConnOpen_ERP()

  141.         If PA56 = "" Then

  142.             SQL2 = ""

  143.         Else

  144.             SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'

  145.                      OR 文件控制表.開單人 Like N'%" & PA56 & "%'"

  146.         End If

  147.         SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表

  148.                 WHERE 已發行 = 1  " & SQL2 & " 

  149.                 ORDER BY 流水號 DESC"

  150.         CmdSet_For_DGV()

  151.     End Sub

  152.     Friend Sub SQL_通用_查詢第一筆單號()

  153.         ConnOpen_ERP()

  154.         SQL1 = "SELECT TOP (1)  流水號 FROM 文件控制表 ORDER BY 流水號 DESC"

  155.         CmdSet_For_dr()

  156.     End Sub

  157.     Friend Sub SQL_文件沒存檔的全部存檔()

  158.         ConnOpen_ERP() : SQL1 = "UPDATE  文件控制表  SET  已儲存 = 1  WHERE  (已儲存 = 0)" : CmdSet_For_dr()

  159.     End Sub

  160.     Friend Sub SQL_通用_新增一筆公函控制表(ByVal 檔案名稱 As String, ByVal 圖片庫 As String)

  161.         ConnOpen_ERP()

  162.         SQL1 = "INSERT INTO 文件控制表 (流水號 ,檔案名稱,選擇日期,主旨,說明,已儲存,已作廢,已發行,開單人,全選, 圖片庫) " &

  163.                "VALUES (N'" & PA & "', N'" & 檔案名稱 & "', N'" & PA1 & "', N'', N'',0,0,0,N'" & gUserName & "',0, N'" & 圖片庫 & "')"

  164.         CmdSet_For_dr()

  165.     End Sub

  166.     Friend Sub SQL_通用_控制表刪除(ByVal 流水號 As String)

  167.         ConnOpen_ERP()

  168.         SQL1 = "DELETE FROM 文件控制表 WHERE (流水號 LIKE N'" & 流水號 & "')"

  169.         CmdSet_For_dr()

  170.     End Sub

  171.     Friend Sub SQL_通用_控制表修改(ByVal 檔案名稱 As String, ByVal 主旨 As String, ByVal 說明 As String, ByVal 流水號 As String, ByVal 全選 As Boolean)

  172.         ConnOpen_ERP()

  173. 

  174.         SQL1 = "UPDATE 文件控制表 SET 檔案名稱 = N'" & 檔案名稱 & "', 主旨 = N'" & 主旨 & "',  說明= N'" & 說明 & "' , 已儲存 = 1  , 全選 =N'" & 全選 & "'

  175.                  WHERE (流水號 LIKE N'" & 流水號 & "')"

  176.         CmdSet_For_dr()

  177.     End Sub

  178.     Friend Sub SQL_通用_控制表作廢(ByVal 流水號 As String)

  179.         ConnOpen_ERP()

  180.         SQL1 = "UPDATE 文件控制表 SET 已作廢 = 1 WHERE (流水號 LIKE N'" & 流水號 & "') "

  181.         CmdSet_For_dr()

  182.     End Sub

  183.     Friend Sub SQL_通用_控制表鎖定(ByVal 流水號 As String)

  184.         ConnOpen_ERP()

  185.         SQL1 = "UPDATE 文件控制表 SET 已儲存 = 1 WHERE (流水號 LIKE N'" & 流水號 & "') "

  186.         CmdSet_For_dr()

  187.     End Sub

  188.     Friend Sub SQL_通用_控制表發行(ByVal 流水號 As String)

  189.         ConnOpen_ERP()

  190.         SQL1 = "UPDATE 文件控制表 SET 已發行 = 1 WHERE (流水號 LIKE N'" & 流水號 & "') "

  191.         CmdSet_For_dr()

  192.     End Sub

  193.     Friend Sub SQL_通用_人員清單()

  194.         ConnOpen()

  195.         SQL1 = "SELECT     ras_Users.DIN AS 編號, ras_Users.UserName AS 姓名 ,ISNULL(空白選擇.選擇, 0) AS 選擇

  196.                 FROM       ras_Users 

  197.                 LEFT OUTER JOIN

  198.                          空白選擇 ON ras_Users.DIN = 空白選擇.選擇

  199.                 WHERE     (ras_Users.IsLockedOut = 0)  AND (ras_Users.DIN NOT LIKE '18') AND 

  200.                           (ras_Users.DIN NOT LIKE '19') AND (ras_Users.DIN NOT LIKE '21') AND (ras_Users.DIN NOT LIKE '999')  

  201.                 ORDER BY   編號"

  202.         CmdSet_For_DGV()

  203.     End Sub

  204.     Friend Sub SQL_通用_明細表讀取()

  205.         ConnOpen_ERP()

  206.         SQL1 = "SELECT  文件明細表.控制表流水號, 文件明細表.人員 AS 姓名, 文件明細表.圖片資料庫, 文件明細表.圖片流水號 , 空白圖片用.圖片, 文件明細表.簽名日期

  207.                 FROM    文件明細表 

  208.                 LEFT OUTER JOIN

  209.                          空白圖片用 ON 文件明細表.圖片資料庫 = 空白圖片用.選擇

  210.                 WHERE   控制表流水號 =N'" & PA57 & "'"

  211.         CmdSet_For_DGV()

  212.     End Sub

  213.     Friend Sub SQL_通用_明細表新增()

  214.         ConnOpen_ERP()

  215.         SQL1 = "INSERT INTO 文件明細表 (控制表流水號, 人員, 圖片資料庫, 圖片流水號,簽名日期) VALUES (N'" & PA57 & "', N'" & PA58 & "', N'', N'', N'')"

  216.         CmdSet_For_dr()

  217.     End Sub

  218.     Friend Sub SQL_通用_明細表刪除()

  219.         ConnOpen_ERP()

  220.         SQL1 = "DELETE FROM 文件明細表 

  221.                 WHERE   控制表流水號 =N'" & PA57 & "'"

  222.         CmdSet_For_dr()

  223.     End Sub

  224.     Friend Sub SQL_文件圖片讀取()

  225.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  226.     End Sub

  227.     Friend Sub SQL_文件圖片()

  228.         ConnOpen_圖庫SQL() : SQL1 = "UPDATE 文件圖片庫 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()

  229.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 AS Item, 檔案 AS [File.] FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()

  230.     End Sub

  231.     Friend Sub SQL_文件圖片讀取1()

  232.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_DGV()

  233.     End Sub

  234.     Friend Sub SQL_文件圖片入系統()

  235.         ConnOpen_圖庫SQL()

  236.         SQL1 = "INSERT INTO 文件圖片庫 (文件編號, 項次, 檔案, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', @binary_file"

  237.         CmdSet_For_dr_pic()

  238.     End Sub

  239.     Friend Sub SQL_文件圖片最後一筆編號查詢()

  240.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  241.     End Sub

  242.     Friend Sub SQL_文件圖片刪除()

  243.         ConnOpen_圖庫SQL() : SQL1 = "DELETE 文件圖片庫 WHERE (文件編號 LIKE '" & PA57 & "')" : CmdSet_For_dr()

  244.     End Sub

  245.     Friend Sub SQL_會議未簽()

  246.         ConnOpen_ERP()

  247.         SQL1 = "SELECT    會議記錄控制表.會議項目, QQ.人員集合

  248.                 FROM      會議記錄控制表 INNER JOIN

  249.                          (SELECT    會議記錄明細表.控制表流水號, COUNT(會議記錄明細表.人員) AS 人員集合

  250.                           FROM      會議記錄明細表 INNER JOIN

  251.                                     Huang_PH_SYS.dbo.ras_Users ON 

  252.                                     會議記錄明細表.人員 = Huang_PH_SYS.dbo.ras_Users.UserName

  253.                           WHERE    (會議記錄明細表.圖片流水號 LIKE '') AND (會議記錄明細表.人員 NOT LIKE '即時清') AND 

  254.                                    (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0)

  255.                           GROUP BY  會議記錄明細表.控制表流水號) AS QQ ON 會議記錄控制表.會議編號 = QQ.控制表流水號

  256.                 WHERE    (會議記錄控制表.核准 = 0)

  257.                 ORDER BY  會議記錄控制表.會議編號 DESC"

  258.         CmdSet_For_DGV()

  259.     End Sub

  260.     Friend Sub SQL_文件未簽()

  261.         ConnOpen_ERP()

  262.         SQL1 = "SELECT    文件控制表.檔案名稱, QQ.人員集合

  263.                 FROM      文件控制表 INNER JOIN

  264.                          (SELECT    文件明細表.控制表流水號, COUNT(文件明細表.人員) AS 人員集合

  265.                           FROM      文件明細表 INNER JOIN

  266.                                     Huang_PH_SYS.dbo.ras_Users ON 

  267.                                     文件明細表.人員 = Huang_PH_SYS.dbo.ras_Users.UserName

  268.                           WHERE    (文件明細表.圖片流水號 LIKE '') AND (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0) AND 

  269.                                    (文件明細表.人員 NOT LIKE '即時清')

  270.                           GROUP BY  文件明細表.控制表流水號) AS QQ ON 文件控制表.流水號 = QQ.控制表流水號

  271.                 WHERE    (文件控制表.已發行 = 1)

  272.                 ORDER BY  文件控制表.流水號"

  273.         CmdSet_For_DGV()

  274.     End Sub

  275.     Friend Sub SQL_判斷是否已經通知()

  276.         ConnOpen_ERP() : SQL1 = "SELECT  發訊日期  FROM  到期LINE通知 WHERE 發訊日期 LIKE N'" & Strings.Format(Today(), "yyyy/MM/dd") & "'" : CmdSet_For_dr()

  277.     End Sub

  278.     Friend Sub SQL_到期LINE通知寫入()

  279.         SQL1 = "INSERT INTO  到期LINE通知 (發訊日期) VALUES (N'" & Strings.Format(Today(), "yyyy/MM/dd") & "')"

  280.         ConnOpen_ERP() : CmdSet_For_dr()

  281.     End Sub

  282. End Module