HSKIN-MIS-SYS
/
HSKIN-MIS-SYS-LEEHSIEHJUI
Bevaka 4
Stjärnmärk 0
Förgrening 0
Kod Ärenden 0 Pull-förfrågningar 0 Släpp 0 Wiki Aktiviteter
Ingen beskrivning
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.
12 Incheckningar
1 Gren
Träd: da128a4d3e
Grenar Taggar
${ item.name }
Skapa branchen ${ searchTerm }
från 'da128a4d3e'
${ noResults }
HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_總務系統.vb

SQL_總務系統.vb 12KB
Historik Rå

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202 
  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.         If PA56 = "" Then

  96.             SQL2 = ""

  97.         Else

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

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

  100.         End If

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

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

  103.                 ORDER BY 流水號 DESC"

  104.         CmdSet_For_DGV()

  105.     End Sub

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

  107.         ConnOpen_ERP()

  108.         If PA56 = "" Then

  109.             SQL2 = ""

  110.         Else

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

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

  113.         End If

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

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

  116.                 ORDER BY 流水號 DESC"

  117.         CmdSet_For_DGV()

  118.     End Sub

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

  120.         ConnOpen_ERP()

  121.         If PA56 = "" Then

  122.             SQL2 = ""

  123.         Else

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

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

  126.         End If

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

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

  129.                 ORDER BY 流水號 DESC"

  130.         CmdSet_For_DGV()

  131.     End Sub

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

  133.         ConnOpen_ERP()

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

  135.         CmdSet_For_dr()

  136.     End Sub

  137. 

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

  139.         ConnOpen_ERP()

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

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

  142.         CmdSet_For_dr()

  143.     End Sub

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

  145.         ConnOpen_ERP()

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

  147.         CmdSet_For_dr()

  148.     End Sub

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

  150.         ConnOpen_ERP()

  151. 

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

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

  154.         CmdSet_For_dr()

  155.     End Sub

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

  157.         ConnOpen_ERP()

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

  159.         CmdSet_For_dr()

  160.     End Sub

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

  162.         ConnOpen_ERP()

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

  164.         CmdSet_For_dr()

  165.     End Sub

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

  167.         ConnOpen_ERP()

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

  169.         CmdSet_For_dr()

  170.     End Sub

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

  172.         ConnOpen()

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

  174.                 FROM       ras_Users 

  175.                 LEFT OUTER JOIN

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

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

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

  179.                 ORDER BY   編號"

  180.         CmdSet_For_DGV()

  181.     End Sub

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

  183.         ConnOpen_ERP()

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

  185.                 FROM    文件明細表 

  186.                 LEFT OUTER JOIN

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

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

  189.         CmdSet_For_DGV()

  190.     End Sub

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

  192.         ConnOpen_ERP()

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

  194.         CmdSet_For_dr()

  195.     End Sub

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

  197.         ConnOpen_ERP()

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

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

  200.         CmdSet_For_dr()

  201.     End Sub

  202. End Module