HSKIN-MIS-SYS
/
HSKIN-MIS-SYS-LEEHSIEHJUI
Observar 4
Favorito 0
Fork 0
Código Issues 0 Pull requests 0 Versões 0 Wiki Atividade
Nenhuma descrição
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
17 Commits
1 Branch
Branch: master
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de master
${ noResults }
HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_總務系統.vb

SQL_總務系統.vb 20KB
Link permanente Histórico Original

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315 
  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.     Friend Sub SQL_會議_明細表讀取()

  93.         ConnOpen_ERP()

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

  95.                         會議記錄明細表.簽名日期, 空白圖片用.圖片 AS 關閉

  96.                 FROM    會議記錄明細表 LEFT OUTER JOIN

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

  98.                 WHERE   控制表流水號 LIKE N'" & PA57 & "' AND (會議記錄明細表.關閉 IS NULL OR 會議記錄明細表.關閉 = 0)"

  99.         CmdSet_For_DGV()

  100.     End Sub

  101.     Friend Sub SQL_會議_明細表關閉(控制表流水號 As String, 人員 As String)

  102.         ConnOpen_ERP()

  103.         SQL1 = "UPDATE 會議記錄明細表 SET 關閉 = 1 WHERE (控制表流水號 LIKE N'" & 控制表流水號 & "' AND 人員 LIKE N'" & 人員 & "')"

  104.         CmdSet_For_dr()

  105.     End Sub

  106.     Friend Sub SQL_會議_明細表新增_驗證()

  107.         ConnOpen_ERP()

  108.         SQL1 = "SELECT 人員 FROM 會議記錄明細表 WHERE 控制表流水號 LIKE N'" & PA57 & "' AND  人員 LIKE N'" & PA58 & "'"

  109.         CmdSet_For_dr()

  110.     End Sub

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

  112.         ConnOpen_ERP()

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

  114.         CmdSet_For_dr()

  115.     End Sub

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

  117.         ConnOpen_ERP()

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

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

  120.         CmdSet_For_dr()

  121.     End Sub

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

  123.         ConnOpen_ERP()

  124.         If PA56 = "" Then

  125.             SQL2 = ""

  126.         Else

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

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

  129.         End If

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

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

  132.                 ORDER BY 流水號 DESC"

  133.         CmdSet_For_DGV()

  134.     End Sub

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

  136.         ConnOpen_ERP()

  137.         If PA56 = "" Then

  138.             SQL2 = ""

  139.         Else

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

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

  142.         End If

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

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

  145.                 ORDER BY 流水號 DESC"

  146.         CmdSet_For_DGV()

  147.     End Sub

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

  149.         ConnOpen_ERP()

  150.         If PA56 = "" Then

  151.             SQL2 = ""

  152.         Else

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

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

  155.         End If

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

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

  158.                 ORDER BY 流水號 DESC"

  159.         CmdSet_For_DGV()

  160.     End Sub

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

  162.         ConnOpen_ERP()

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

  164.         CmdSet_For_dr()

  165.     End Sub

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

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

  168.     End Sub

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

  170.         ConnOpen_ERP()

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

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

  173.         CmdSet_For_dr()

  174.     End Sub

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

  176.         ConnOpen_ERP()

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

  178.         CmdSet_For_dr()

  179.     End Sub

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

  181.         ConnOpen_ERP()

  182. 

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

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

  185.         CmdSet_For_dr()

  186.     End Sub

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

  188.         ConnOpen_ERP()

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

  190.         CmdSet_For_dr()

  191.     End Sub

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

  193.         ConnOpen_ERP()

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

  195.         CmdSet_For_dr()

  196.     End Sub

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

  198.         ConnOpen_ERP()

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

  200.         CmdSet_For_dr()

  201.     End Sub

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

  203.         ConnOpen()

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

  205.                 FROM       ras_Users 

  206.                 LEFT OUTER JOIN

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

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

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

  210.                 ORDER BY   編號"

  211.         CmdSet_For_DGV()

  212.     End Sub

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

  214.         ConnOpen_ERP()

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

  216.                 FROM    文件明細表 

  217.                 LEFT OUTER JOIN

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

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

  220.         CmdSet_For_DGV()

  221.     End Sub

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

  223.         ConnOpen_ERP()

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

  225.         CmdSet_For_dr()

  226.     End Sub

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

  228.         ConnOpen_ERP()

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

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

  231.         CmdSet_For_dr()

  232.     End Sub

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

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

  235.     End Sub

  236.     Friend Sub SQL_文件圖片()

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

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

  239.     End Sub

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

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

  242.     End Sub

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

  244.         ConnOpen_圖庫SQL()

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

  246.         CmdSet_For_dr_pic()

  247.     End Sub

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

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

  250.     End Sub

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

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

  253.     End Sub

  254.     Friend Sub SQL_會議未簽()

  255.         ConnOpen_ERP()

  256.         SQL1 = "SELECT    會議記錄控制表.會議項目, 會議記錄明細表.人員 AS 人員集合

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

  258.                           會議記錄控制表 ON 會議記錄明細表.控制表流水號 = 會議記錄控制表.會議編號 RIGHT OUTER JOIN

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

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

  261.                          (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0) AND (會議記錄控制表.已完成 = 0) AND (會議記錄明細表.關閉 IS NULL OR 會議記錄明細表.關閉 = 0) 

  262.                 ORDER BY  會議記錄明細表.控制表流水號 DESC"

  263.         CmdSet_For_DGV()

  264.     End Sub

  265.     Friend Sub SQL_會議未簽1()

  266.         ConnOpen_ERP()

  267.         SQL1 = "SELECT    會議記錄明細表.控制表流水號, 會議記錄控制表.會議項目

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

  269.                           會議記錄控制表 ON 會議記錄明細表.控制表流水號 = 會議記錄控制表.會議編號 INNER JOIN

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

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

  272.                          (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0) AND (會議記錄控制表.已完成 = 0) AND (會議記錄明細表.關閉 IS NULL OR 會議記錄明細表.關閉 = 0)

  273.                 GROUP BY  會議記錄控制表.會議項目, 會議記錄明細表.控制表流水號

  274.                 ORDER BY  會議記錄明細表.控制表流水號 DESC"

  275.         CmdSet_For_DGV()

  276.     End Sub

  277.     Friend Sub SQL_文件未簽()

  278.         ConnOpen_ERP()

  279.         SQL1 = "SELECT    文件控制表.主旨, STRING_AGG(文件明細表.人員, '、') AS 人員列表

  280.                 FROM      文件明細表 INNER JOIN

  281.                           Huang_PH_SYS.dbo.ras_Users ON 文件明細表.人員 = Huang_PH_SYS.dbo.ras_Users.UserName INNER JOIN

  282.                           文件控制表 ON 文件明細表.控制表流水號 = 文件控制表.流水號

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

  284.                          (文件明細表.人員 NOT LIKE '即時清') AND (文件控制表.已發行 = 1)

  285.                 GROUP BY  文件控制表.主旨, 文件明細表.控制表流水號

  286.                 ORDER BY  文件明細表.控制表流水號 DESC"

  287.         CmdSet_For_DGV()

  288.     End Sub

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

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

  291.     End Sub

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

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

  294.         ConnOpen_ERP() : CmdSet_For_dr()

  295.     End Sub

  296.     Friend Sub SQL_溫度紀錄(年分 As String, 跨距 As String, 條件 As String)

  297.         ConnOpen_ERP()

  298.         SQL1 = "SELECT    ROUND(AVG(CAST(感測器1溫度 AS FLOAT)), 0) AS 溫度1, ROUND(AVG(CAST(感測器1濕度 AS FLOAT)), 0) AS 濕度1, 

  299.                           ROUND(AVG(CAST(感測器1露點溫度 AS FLOAT)), 0) AS 露點1, ROUND(AVG(CAST(感測器2溫度 AS FLOAT)), 0) AS 溫度2, 

  300.                           ROUND(AVG(CAST(感測器2濕度 AS FLOAT)), 0) AS 濕度2, ROUND(AVG(CAST(感測器2露點溫度 AS FLOAT)), 0) AS 露點2, 

  301.                           LEFT(上傳時間, " & 跨距 & ") AS 日期

  302.                 FROM     [" & 年分 & "-溫控歷史記錄表]

  303.                 WHERE    (上傳時間 LIKE N'" & 條件 & "%')

  304.                 GROUP BY  LEFT(上傳時間, " & 跨距 & ")

  305.                 ORDER BY  日期"

  306.         CmdSet_For_DGV()

  307.     End Sub

  308.     Friend Sub SQL_當前溫度()

  309.         ConnOpen_ERP()

  310.         Dim 年度 As String = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 4)

  311.         SQL1 = "SELECT  TOP (1) 感測器1溫度 AS 溫度1, 感測器1濕度 AS 濕度1, 感測器2溫度 AS 溫度2, 感測器2濕度 AS 濕度2, 感測器1露點溫度 AS 露點1, 感測器2露點溫度 AS 露點2

  312.                 FROM    [" & 年度 & "-溫控歷史記錄表]  ORDER BY  上傳時間 DESC"

  313.         CmdSet_For_dr()

  314.     End Sub

  315. End Module