GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Sledovat 4
Oblíbit 0
Rozštěpit 0
Zdrojový kód Úkoly 0 Požadavky na natažení 0 Vydání 0 Wiki Activity
Bez popisu
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.
22 Revize
1 Větev
Strom: ff807716c3
Větve Značky
${ item.name }
Create branch ${ searchTerm }
from 'ff807716c3'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/子資料庫1/SQL_公司章程管理.vb

SQL_公司章程管理.vb 15KB
Historie Surový

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209 
  1. Module SQL_公司章程管理

  2.     '--------------------------------部門聯絡函申請--------------------------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_聯絡函圖片最後一筆編號查詢()

  4.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 項次 FROM 聯絡函圖片 WHERE 聯絡單號 LIKE '" & PA1 & "'  ORDER BY 項次 DESC" : CmdSet_For_dr()

  5.     End Sub

  6.     Friend Sub SQL_聯絡函圖片入系統()

  7.         ConnOpen_工程圖庫SQL()

  8.         SQL1 = "INSERT INTO 聯絡函圖片 (聯絡單號, 項次, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', 

  9.                 BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & PA3 & PA4 & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  10.         CmdSet_For_dr()

  11.     End Sub

  12.     Friend Sub SQL_聯絡函圖片()

  13.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 項次 AS Item, 圖片 AS IMG FROM 聯絡函圖片 WHERE 聯絡單號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()

  14.     End Sub

  15.     Friend Sub SQL_聯絡函圖片讀取()

  16.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 圖片 FROM 聯絡函圖片 WHERE 聯絡單號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  17.     End Sub

  18.     Friend Sub SQL_部門聯絡函_姓名_下拉清單()

  19.         ConnOpen() : SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE (部門 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  20.     End Sub

  21.     Friend Sub SQL_部門聯絡函_清單()

  22.         ConnOpen_管理SQL()

  23.         SQL1 = "SELECT 聯絡函單號 AS [" & 表頭(99) & "], 申請部門 AS [" & 表頭(6) & "], 申請人 AS [" & 表頭(19) & "], 申請日期 AS [" & 表頭(20) & "], 

  24.                        聯絡部門 AS [" & 表頭(7) & "], 聯絡人 AS [" & 表頭(4) & "], 主題 AS [" & 表頭(117) & "], 圖片庫 FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC"

  25.         CmdSet_For_DGV()

  26.     End Sub

  27.     Friend Sub SQL_部門聯絡函_聯絡事項()

  28.         ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡事項 FROM 部門聯絡函 WHERE 聯絡函單號 LIKE '" & PA1 & "'" : CmdSet_For_dr()

  29.     End Sub

  30.     Friend Sub SQL_部門聯絡函_擬辦()

  31.         ConnOpen_管理SQL() : SQL1 = "SELECT 擬辦 FROM 部門聯絡函 WHERE 聯絡函單號 LIKE '" & PA1 & "'" : CmdSet_For_dr()

  32.     End Sub

  33.     Friend Sub SQL_部門聯絡函_建議()

  34.         ConnOpen_管理SQL() : SQL1 = "SELECT 建議 FROM 部門聯絡函 WHERE 聯絡函單號 LIKE '" & PA1 & "'" : CmdSet_For_dr()

  35.     End Sub

  36.     Friend Sub SQL_部門聯絡函_刪除()

  37.         ConnOpen_管理SQL() : SQL1 = "DELETE FROM 部門聯絡函 WHERE (聯絡函單號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  38.     End Sub

  39.     Friend Sub SQL_部門聯絡函_單號查詢()

  40.         ConnOpen_管理SQL() : SQL1 = "SELECT TOP (1)   聯絡函單號 FROM 部門聯絡函 WHERE (  聯絡函單號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  41.     End Sub

  42.     Friend Sub SQL_部門聯絡函_新增()

  43.         ConnOpen_管理SQL()

  44.         SQL1 = "INSERT INTO  部門聯絡函 (聯絡函單號, 申請部門, 申請人, 申請日期, 聯絡部門, 聯絡人, 主題, 聯絡事項, 審核人, 審核日期, 申請核准, 

  45.                                          核准日期, 接收核准, 接收日期, 已作業, 已驗收, 長期執行, 執行部門, 執行人, 擬辦, 建議, 圖片庫) 

  46.                 VALUES (N'" & PA1 & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'" & PA2 & "',N'" & PA3 & "',N'',N'',N'',N''

  47.                        ,N'',N'',N'',N'',N'0',N'0',N'0',N'',N'',N'',N'',N'" & PA20 & "')"

  48.         CmdSet_For_dr()

  49.     End Sub

  50.     Friend Sub SQL_部門聯絡函_修改聯絡事項()

  51.         ConnOpen_管理SQL()

  52.         SQL1 = "UPDATE 部門聯絡函 SET  聯絡部門 = N'" & PA2 & "', 執行部門 = N'" & PA3 & "', 聯絡人 = N'" & PA4 & "', 主題 = N'" & PA5 & "', 

  53.                                            聯絡事項 = N'" & PA6 & "' 

  54.                 WHERE (聯絡函單號 LIKE '" & PA1 & "')"

  55.         CmdSet_For_dr()

  56.     End Sub

  57.     Friend Sub SQL_部門聯絡函_修改存檔()

  58.         ConnOpen_管理SQL()

  59.         SQL1 = "UPDATE 部門聯絡函 SET  聯絡部門 = N'" & PA2 & "', 聯絡人 = N'" & PA4 & "', 主題 = N'" & PA5 & "', 聯絡事項 = N'" & PA6 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"

  60.         CmdSet_For_dr()

  61.     End Sub

  62.     '--------------------------------部門聯絡函一覽表--------------------------------------------------------------------------------------------------------------------------------

  63.     Friend Sub SQL_部門聯絡函一覽表_清單()

  64.         ConnOpen_管理SQL()

  65.         SQL1 = "SELECT  聯絡函單號 AS [" & 表頭(99) & "], 申請部門 AS [" & 表頭(6) & "], 申請人 AS [" & 表頭(19) & "], 申請日期 AS [" & 表頭(20) & "], 

  66.                         聯絡部門 AS [" & 表頭(7) & "], 聯絡人 AS [" & 表頭(4) & "], 主題 AS [" & 表頭(117) & "], 已作業 AS [" & 表頭(72) & "], 

  67.                         已驗收 AS [" & 表頭(187) & "], 長期執行 AS [" & 表頭(5) & "], 執行部門, 執行人, 圖片庫 

  68.                 FROM    部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC"

  69.         CmdSet_For_DGV()

  70.     End Sub

  71.     Friend Sub SQL_部門聯絡函一覽表_已驗收()

  72.         ConnOpen_管理SQL() : SQL1 = "UPDATE 部門聯絡函 SET  已驗收 = N'" & BL1 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  73.     End Sub

  74.     Friend Sub SQL_部門聯絡函一覽表_已作業()

  75.         ConnOpen_管理SQL()

  76.         SQL1 = "UPDATE 部門聯絡函 SET  已作業 = N'" & BL1 & "',  長期執行 = N'" & BL2 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"

  77.         CmdSet_For_dr()

  78.     End Sub

  79.     Friend Sub SQL_部門聯絡函一覽表_擬辦存檔()

  80.         ConnOpen_管理SQL()

  81.         SQL1 = "UPDATE  部門聯絡函 SET  擬辦 = N'" & PA2 & "', 執行部門 = N'" & PA3 & "', 執行人 = N'" & PA4 & "' WHERE  (聯絡函單號 LIKE '" & PA1 & "')"

  82.         CmdSet_For_dr()

  83.     End Sub

  84.     '--------------------------------部門聯絡函部門主管審核--------------------------------------------------------------------------------------------------------------------------------

  85.     Friend Sub SQL_部門聯絡函部門主管審核_清單()

  86.         ConnOpen_管理SQL()

  87.         SQL1 = "SELECT 聯絡函單號 AS [" & 表頭(99) & "], 申請部門 AS [" & 表頭(6) & "], 申請人 AS [" & 表頭(19) & "], 申請日期 AS [" & 表頭(20) & "], 

  88.                        聯絡部門 AS [" & 表頭(7) & "], 聯絡人 AS [" & 表頭(4) & "], 主題 AS [" & 表頭(117) & "], 圖片庫 FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC"

  89.         CmdSet_For_DGV()

  90.     End Sub

  91.     Friend Sub SQL_部門聯絡函部門主管審核_外發審核()

  92.         ConnOpen_管理SQL()

  93.         SQL1 = "UPDATE 部門聯絡函 SET  審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 建議 = N'" & PA2 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"

  94.         CmdSet_For_dr()

  95.     End Sub

  96.     Friend Sub SQL_部門聯絡函部門主管審核_外發未准()

  97.         ConnOpen_管理SQL()

  98.         SQL1 = "UPDATE 部門聯絡函 SET  審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 建議 = N'" & PA2 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"

  99.         CmdSet_For_dr()

  100.     End Sub

  101.     Friend Sub SQL_部門聯絡函部門主管審核_接收確認()

  102.         ConnOpen_管理SQL()

  103.         SQL1 = "UPDATE  部門聯絡函 SET  接收核准 = N'" & gUserName & "', 接收日期 = N'" & DTP & "', 擬辦 = N'" & PA2 & "', 執行部門 = N'" & PA3 & "', 執行人 = N'" & PA4 & "'

  104.                 WHERE  (聯絡函單號 LIKE '" & PA1 & "')"

  105.         CmdSet_For_dr()

  106.     End Sub

  107.     Friend Sub SQL_部門聯絡函部門主管審核_無法執行()

  108.         ConnOpen_管理SQL()

  109.         SQL1 = "UPDATE 部門聯絡函 SET  接收核准 = N'作廢-" & gUserName & "', 接收日期 = N'" & DTP & "', 擬辦 = N'" & PA2 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"

  110.         CmdSet_For_dr()

  111.     End Sub

  112.     '--------------------------------聯絡函最高主管核准-------------------------------------------------------------------------------------------------------------------------

  113.     Friend Sub SQL_聯絡函最高主管核准_清單()

  114.         ConnOpen_管理SQL()

  115.         SQL1 = "SELECT 聯絡函單號 AS [" & 表頭(99) & "], 申請部門 AS [" & 表頭(6) & "], 申請人 AS [" & 表頭(19) & "], 申請日期 AS [" & 表頭(20) & "], 

  116.                        聯絡部門 AS [" & 表頭(7) & "], 聯絡人 AS [" & 表頭(4) & "], 主題 AS [" & 表頭(117) & "], 執行部門, 執行人, 圖片庫 

  117.                 FROM   部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC"

  118.         CmdSet_For_DGV()

  119.     End Sub

  120.     Friend Sub SQL_聯絡函最高主管核准_審核()

  121.         ConnOpen_管理SQL()

  122.         SQL1 = "UPDATE 部門聯絡函 SET  申請核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"

  123.         CmdSet_For_dr()

  124.     End Sub

  125.     Friend Sub SQL_聯絡函最高主管核准_未准()

  126.         ConnOpen_管理SQL()

  127.         SQL1 = "UPDATE 部門聯絡函 SET  申請核准 = N'作廢-" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"

  128.         CmdSet_For_dr()

  129.     End Sub

  130.     '--------------------------------會議記錄-------------------------------------------------------------------------------------------------------------------------

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

  132.         ConnOpen_管理SQL()

  133.         SQL1 = "SELECT 會議編號, 時間 AS [" & 表頭(116) & "], 地點, 會議項目 AS [" & 表頭(155) & "], 細項說明, 執行時間 AS [" & 表頭(10) & "], 執行情況 AS [" & 表頭(17) & "], 

  134.                        預計完成 AS [" & 表頭(3) & "], 備註 AS [" & 表頭(14) & "], 已完成 AS [" & 表頭(159) & "], 長期執行 AS [" & 表頭(5) & "], 圖片庫 

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

  136.         CmdSet_For_DGV()

  137.     End Sub

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

  139.         ConnOpen_管理SQL() : SQL1 = "SELECT TOP (1) 會議編號 FROM 會議記錄控制表 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  140.     End Sub

  141.     Friend Sub SQL_會議記錄_會議地點()

  142.         ConnOpen_管理SQL() : SQL1 = "SELECT 地點 FROM 會議記錄控制表 GROUP BY 地點 ORDER BY 地點" : CmdSet_For_dr()

  143.     End Sub

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

  145.         ConnOpen_管理SQL()

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

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

  148.                         N'" & PA9 & "', N'" & BL1 & "', N'" & BL2 & "', N'" & PA10 & "')"

  149.         CmdSet_For_dr()

  150.     End Sub

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

  152.         ConnOpen_管理SQL()

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

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

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

  156.         CmdSet_For_dr()

  157.     End Sub

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

  159.         ConnOpen_管理SQL() : SQL1 = "DELETE 會議記錄控制表 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  160.         ConnOpen_管理SQL() : SQL1 = "DELETE 會議決議執行人 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

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

  162.     End Sub

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

  164.         ConnOpen_管理SQL() : SQL1 = "SELECT 執行時間 FROM 會議記錄控制表 WHERE 執行時間 NOT LIKE '' GROUP BY 執行時間 ORDER BY 執行時間" : CmdSet_For_dr()

  165.     End Sub

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

  167.         ConnOpen_管理SQL()

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

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

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

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

  172.         CmdSet_For_dr()

  173.     End Sub

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

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

  176.     End Sub

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

  178.         ConnOpen() : SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE (部門 NOT LIKE '9.%') ORDER BY 部門" : CmdSet_For_dr()

  179.     End Sub

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

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

  182.     End Sub

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

  184.         ConnOpen_管理SQL()

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

  186.         CmdSet_For_dr()

  187.     End Sub

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

  189.         ConnOpen_管理SQL() : SQL1 = "DELETE 會議決議執行人 WHERE 會議編號 LIKE '" & PA1 & "' AND 執行人 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  190.     End Sub

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

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

  193.     End Sub

  194.     Friend Sub SQL_會議圖片()

  195.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 項次 AS Item FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()

  196.     End Sub

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

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

  199.     End Sub

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

  201.         ConnOpen_工程圖庫SQL()

  202.         SQL1 = "INSERT INTO 會議記錄圖片 (會議編號, 項次, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', 

  203.                 BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 會議記錄.檔案名稱_tb.Text & 會議記錄.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  204.         CmdSet_For_dr()

  205.     End Sub

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

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

  208.     End Sub

  209. End Module