HSKIN-MIS-SYS
/
HSKIN-MIS-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
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.
14 Commits
1 Branch
Tree: 7a6e8cbd80
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '7a6e8cbd80'
${ noResults }
HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_總務系統.vb

SQL_總務系統.vb 13KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222 
  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. 

  158.     Friend Sub SQL_通用_新增一筆公函控制表()

  159.         ConnOpen_ERP()

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

  161.                "VALUES (N'" & PA & "', N'', N'" & PA1 & "', N'', N'',0,0,0,N'" & gUserName & "',0)"

  162.         CmdSet_For_dr()

  163.     End Sub

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

  165.         ConnOpen_ERP()

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

  167.         CmdSet_For_dr()

  168.     End Sub

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

  170.         ConnOpen_ERP()

  171. 

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

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

  174.         CmdSet_For_dr()

  175.     End Sub

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

  177.         ConnOpen_ERP()

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

  179.         CmdSet_For_dr()

  180.     End Sub

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

  182.         ConnOpen_ERP()

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

  184.         CmdSet_For_dr()

  185.     End Sub

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

  187.         ConnOpen_ERP()

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

  189.         CmdSet_For_dr()

  190.     End Sub

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

  192.         ConnOpen()

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

  194.                 FROM       ras_Users 

  195.                 LEFT OUTER JOIN

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

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

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

  199.                 ORDER BY   編號"

  200.         CmdSet_For_DGV()

  201.     End Sub

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

  203.         ConnOpen_ERP()

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

  205.                 FROM    文件明細表 

  206.                 LEFT OUTER JOIN

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

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

  209.         CmdSet_For_DGV()

  210.     End Sub

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

  212.         ConnOpen_ERP()

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

  214.         CmdSet_For_dr()

  215.     End Sub

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

  217.         ConnOpen_ERP()

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

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

  220.         CmdSet_For_dr()

  221.     End Sub

  222. End Module