HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
Слідкувати 4
В обрані 0
Форк 0
Код Проблеми 0 Запити на злиття 0 Релізи 0 Вікі Активність
Без опису
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
1 Коміт
1 Гілка
Гілка: master
Гілки Теги
${ item.name }
Створити гілку ${ searchTerm }
з 'master'
${ noResults }
HX-PGS-ERP-SYS-SIU/0、MyModule/子資料庫1/SQL_公司章程管理.vb

SQL_公司章程管理.vb 31KB
Постійне посилання Історія Неформатований

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423 
  1. Module SQL_公司章程管理

  2.     '--------------------------------主管名稱查詢--------------------------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_主管名稱(部門編號 As String, 處別編號 As String)

  4.         ConnOpen()

  5.         SQL1 = "SELECT  姓名  FROM  使用者權限管理表  

  6.                 WHERE  (部門 LIKE '" & 部門編號 & "%') AND (CC63 = 0) AND (部門 NOT LIKE '0%') AND (處別 LIKE '" & 處別編號 & "%') AND 

  7.                        (級別 LIKE '02' OR 級別 LIKE '03' OR 級別 LIKE '04' OR 級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07')  ORDER BY   職稱, 級別"

  8.         CmdSet_For_dr()

  9.     End Sub

  10.     Friend Sub SQL_簽名檔查詢(姓名 As String)

  11.         ConnOpen() : SQL1 = "SELECT  圖片流水號  FROM  HX主管簽名檔管理  WHERE  (簽名檔人名 LIKE '" & 姓名 & "')" : CmdSet_For_dr()

  12.     End Sub

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

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

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

  16.     End Sub

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

  18.         ConnOpen_工程圖庫SQL()

  19.         SQL1 = "INSERT INTO 聯絡函圖片 (聯絡單號, 項次, 檔案, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', @binary_file"

  20.         CmdSet_For_dr_pic()

  21.     End Sub

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

  23.         ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 聯絡函圖片 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()

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

  25.     End Sub

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

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

  28.     End Sub

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

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

  31.     End Sub

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

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

  34.     End Sub

  35.     Friend Sub SQL_職務代理人_下拉清單()

  36.         ConnOpen() : SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE 部門 NOT LIKE '0%' AND 部門 NOT LIKE '9%' AND CC63 = 0 ORDER BY 部門, 職稱, 課別, 組別, 姓名" : CmdSet_For_dr()

  37.     End Sub

  38.     '=======詩文新增===========

  39.     Friend Sub SQL_車輛_下拉清單()

  40.         ConnOpen_管理SQL() : SQL1 = "SELECT 車輛編號,車牌號碼,車輛品牌 FROM 車輛明細表 WHERE  (固定指派 LIKE N'0')" : CmdSet_For_dr()

  41.     End Sub

  42.     Friend Sub SQL_車輛地點_下拉清單()

  43.         ConnOpen_管理SQL() : SQL1 = "SELECT DISTINCT  外出地點 FROM 車輛外出明細表 " : CmdSet_For_dr()

  44.     End Sub

  45.     Friend Sub SQL_車輛時段_借車(車輛編號 As String, 借車時間 As String)

  46.         ConnOpen_管理SQL()

  47.         SQL1 = "SELECT          流水號, 車輛編號, 借車人, 借車時間, 還車時間, 外出地點, 聯絡函單號

  48.                          FROM              車輛外出明細表

  49.                          WHERE          (車輛編號 LIKE N'" & 車輛編號 & "') AND ('" & 借車時間 & "' BETWEEN 借車時間 AND 還車時間)"

  50.         CmdSet_For_dr()

  51.     End Sub

  52.     Friend Sub SQL_車輛時段_還車(車輛編號 As String, 還車時間 As String)

  53.         ConnOpen_管理SQL()

  54.         SQL1 = "SELECT          流水號, 車輛編號, 借車人, 借車時間, 還車時間, 外出地點, 聯絡函單號

  55.                          FROM              車輛外出明細表

  56.                          WHERE          (車輛編號 LIKE N'" & 車輛編號 & "') AND ('" & 還車時間 & "' BETWEEN 借車時間 AND 還車時間)"

  57.         CmdSet_For_dr()

  58.     End Sub

  59.     Friend Sub SQL_取得車輛外出最後一筆流水號()

  60.         ConnOpen_管理SQL()

  61.         SQL1 = "SELECT  TOP(1)  流水號    FROM  車輛外出明細表  ORDER  BY  流水號  DESC  "

  62.         CmdSet_For_dr()

  63.     End Sub

  64.     Friend Sub SQL_車輛外出明細_新增(流水號 As String, 車輛編號 As String, 借車時間 As String, 還車時間 As String, 外出地點 As String, 聯絡函單號 As String)

  65.         ConnOpen_管理SQL()

  66.         SQL1 = "INSERT INTO 車輛外出明細表 (流水號,車輛編號,借車時間,還車時間,外出地點,聯絡函單號,核准) 

  67.                         VALUES (N'" & 流水號 & "', N'" & 車輛編號 & "' , N'" & 借車時間 & "'  , N'" & 還車時間 & "'  , N'" & 外出地點 & "'  , N'" & 聯絡函單號 & "' , N'0' )"

  68.         CmdSet_For_dr()

  69.     End Sub

  70.     Friend Sub SQL_車輛外出明細_外發審核(聯絡函單號 As String)

  71.         ConnOpen_管理SQL()

  72.         SQL1 = "UPDATE 車輛外出明細表 SET 核准=N'1' WHERE 聯絡函單號 LIKE N'" & 聯絡函單號 & "'"

  73.         CmdSet_For_dr()

  74.     End Sub

  75.     Friend Sub SQL_車輛外出明細_刪除(聯絡函單號 As String)

  76.         ConnOpen_管理SQL()

  77.         SQL1 = "DELETE FROM 車輛外出明細表  WHERE 聯絡函單號 LIKE N'" & 聯絡函單號 & "'"

  78.         CmdSet_For_dr()

  79.     End Sub

  80.     Friend Sub SQL_車輛動態_清單()         '車牌號碼 狀態 借車時間 還車時間 申請人 196 197 198 199 200

  81.         ConnOpen_管理SQL()

  82.         SQL1 = "SELECT   車輛編號,  車牌號碼 AS [" & 表頭(196) & "], 車輛品牌, 車輛品牌 AS  [" & 表頭(197) & "], 車輛品牌 AS 外出地點, 車輛品牌 AS  [" & 表頭(198) & "], 

  83.                          車輛品牌 AS  [" & 表頭(199) & "], 車輛品牌 AS  [" & 表頭(200) & "]

  84.                 FROM     車輛明細表

  85.                 WHERE   (固定指派 LIKE N'0')"

  86.         CmdSet_For_DGV()

  87.     End Sub

  88.     Friend Sub SQL_車輛明細_清單(現主時 As String)

  89.         ConnOpen_管理SQL()

  90.         SQL1 = "SELECT  車輛外出明細表.流水號, 車輛外出明細表.車輛編號, 車輛外出明細表.借車時間, 車輛外出明細表.還車時間, 

  91.                         車輛外出明細表.外出地點, 車輛外出明細表.聯絡函單號, 車輛外出明細表.核准, 部門聯絡函.申請人

  92.                 FROM    車輛外出明細表 INNER JOIN 部門聯絡函 ON 車輛外出明細表.聯絡函單號 = 部門聯絡函.聯絡函單號

  93.                 WHERE  (車輛外出明細表.核准 LIKE N'1') AND ('" & 現主時 & "' BETWEEN 車輛外出明細表.借車時間 AND 

  94.                         車輛外出明細表.還車時間)"

  95.         CmdSet_For_DGV()

  96.     End Sub

  97.     Friend Sub SQL_車輛明細_履歷(車輛編號 As String)        ' .車牌號碼, .車輛品牌, .外出地點, .借車時間, .還車時間, .申請人, .申請日期, .聯絡函單號 180 181 182 183 184 185 186 187

  98.         ConnOpen_管理SQL()

  99.         SQL1 = "SELECT    車輛明細表.車牌號碼 AS [" & 表頭(180) & "], 車輛明細表.車輛品牌 AS [" & 表頭(181) & "], 車輛外出明細表.外出地點 AS [" & 表頭(182) & "], 

  100.                           車輛外出明細表.借車時間 AS [" & 表頭(183) & "], 車輛外出明細表.還車時間 AS [" & 表頭(184) & "], 部門聯絡函.申請人 AS [" & 表頭(185) & "], 

  101.                           部門聯絡函.申請日期 AS [" & 表頭(186) & "], 車輛外出明細表.聯絡函單號 AS [" & 表頭(187) & "], 車輛外出明細表.借車時間 AS 原始借車, 

  102.                           車輛外出明細表.還車時間  AS 原始還車

  103.                 FROM      車輛外出明細表 LEFT OUTER JOIN 部門聯絡函 ON 車輛外出明細表.聯絡函單號 = 部門聯絡函.聯絡函單號 LEFT OUTER JOIN 車輛明細表 ON 

  104.                           車輛外出明細表.車輛編號 = 車輛明細表.車輛編號

  105.                 WHERE    (車輛外出明細表.車輛編號 LIKE N'" & 車輛編號 & "')

  106.                 ORDER BY  車輛外出明細表.借車時間 DESC"

  107.         CmdSet_For_DGV()

  108.     End Sub

  109.     Friend Sub SQL_取得人員外出最後一筆流水號()

  110.         ConnOpen_管理SQL()

  111.         SQL1 = "SELECT  TOP(1)  流水號    FROM  人員外出明細表  ORDER  BY  流水號  DESC  "

  112.         CmdSet_For_dr()

  113.     End Sub

  114.     Friend Sub SQL_人員外出明細_新增(流水號 As String, 姓名 As String, 開始時間 As String, 結束時間 As String, 人員狀態 As String, 聯絡函單號 As String, 外出地點 As String)

  115.         ConnOpen_管理SQL()

  116.         SQL1 = "INSERT INTO 人員外出明細表 (流水號, 姓名, 開始時間, 結束時間, 人員狀態, 聯絡函單號, 核准 , 外出地點) 

  117.                         VALUES (N'" & 流水號 & "' ,N'" & 姓名 & "',N'" & 開始時間 & "',N'" & 結束時間 & "',N'" & 人員狀態 & "',N'" & 聯絡函單號 & "',N'0' ,N'" & 外出地點 & "'  )"

  118.         CmdSet_For_dr()

  119.     End Sub

  120.     Friend Sub SQL_人員外出明細_外發審核(聯絡函單號 As String)

  121.         ConnOpen_管理SQL()

  122.         SQL1 = "UPDATE 人員外出明細表 SET 核准=N'1' WHERE 聯絡函單號 LIKE N'" & 聯絡函單號 & "'"

  123.         CmdSet_For_dr()

  124.     End Sub

  125.     Friend Sub SQL_人員外出明細_刪除(聯絡函單號 As String)

  126.         ConnOpen_管理SQL()

  127.         SQL1 = "DELETE FROM 人員外出明細表  WHERE 聯絡函單號 LIKE N'" & 聯絡函單號 & "'"

  128.         CmdSet_For_dr()

  129.     End Sub

  130.     Friend Sub SQL_人員動態_清單()

  131.         ConnOpen()

  132.         SQL1 = "SELECT   姓名 AS [" & 表頭(190) & "], 帳號 AS [" & 表頭(191) & "] , 帳號 AS [" & 表頭(192) & "]  , 帳號 AS [" & 表頭(193) & "] , 

  133.                          帳號 AS [" & 表頭(194) & "], 帳號 AS [" & 表頭(195) & "]

  134.                 FROM     使用者權限管理表 WHERE (職稱 NOT LIKE '9%') AND (職稱 NOT LIKE '0%') ORDER BY 職稱 "

  135.         CmdSet_For_DGV()

  136.     End Sub

  137.     Friend Sub SQL_外出地點_下拉清單()

  138.         ConnOpen_管理SQL() : SQL1 = "SELECT DISTINCT  外出地點 FROM 人員外出明細表 " : CmdSet_For_dr()

  139.     End Sub

  140.     Friend Sub SQL_人員明細_清單(現主時 As String)

  141.         ConnOpen()

  142.         SQL1 = "SELECT    BB.流水號, 使用者權限管理表.姓名, BB.開始時間, BB.結束時間, BB.人員狀態, BB.聯絡函單號, BB.核准, 

  143.                           BB.外出地點, 使用者權限管理表.帳號, AA.第一, AA.第二, AA.第三, AA.第四, AA.第五, AA.第六

  144.                 FROM      使用者權限管理表 LEFT OUTER JOIN

  145.                          (SELECT  流水號, 姓名, 開始時間, 結束時間, 人員狀態, 聯絡函單號, 核准, 外出地點

  146.                           FROM    [HX-PGS-MSN].dbo.人員外出明細表

  147.                           WHERE  (核准 LIKE N'1') AND ('" & 現主時 & "' BETWEEN 開始時間 AND 結束時間)) AS BB ON 

  148.                           使用者權限管理表.帳號 = BB.姓名 LEFT OUTER JOIN

  149.                          (SELECT  ID卡號, 第一, 第二, 第三, 第四, 第五, 第六

  150.                           FROM    [HX-PGS-MSN].dbo.人事考勤明細表

  151.                           WHERE  (日期 LIKE '" & Strings.Format(Today(), "yyyy/MM/dd") & "')) AS AA ON 使用者權限管理表.ID卡號 = AA.ID卡號

  152.                 WHERE    (使用者權限管理表.職稱 NOT LIKE '9%') AND (使用者權限管理表.職稱 NOT LIKE '0%') AND (使用者權限管理表.CC63 = 0)

  153.                 ORDER BY  使用者權限管理表.職稱"

  154.         CmdSet_For_DGV()

  155.     End Sub

  156.     Friend Sub SQL_人員明細_履歷(帳號 As String)        '.姓名, .人員狀態, .外出地點, .開始時間, .結束時間, .聯絡函單號, .申請日期 180 181 182 183 184 185 186

  157.         ConnOpen_管理SQL()

  158.         SQL1 = "SELECT  [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名 AS [" & 表頭(180) & "], 人員外出明細表.人員狀態  AS [" & 表頭(181) & "], 

  159.                         人員外出明細表.外出地點  AS [" & 表頭(182) & "], 人員外出明細表.開始時間  AS [" & 表頭(183) & "], 人員外出明細表.結束時間  AS [" & 表頭(184) & "], 

  160.                         人員外出明細表.聯絡函單號  AS [" & 表頭(185) & "], 部門聯絡函.申請日期  AS [" & 表頭(186) & "], 人員外出明細表.開始時間 AS 原始開始, 

  161.                         人員外出明細表.結束時間 AS 原始結束

  162.                 FROM    人員外出明細表 LEFT OUTER JOIN 部門聯絡函 ON 人員外出明細表.聯絡函單號 = 部門聯絡函.聯絡函單號 LEFT OUTER JOIN

  163.                         [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 人員外出明細表.姓名 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號

  164.                 WHERE  (人員外出明細表.姓名 LIKE N'" & 帳號 & "')"

  165.         CmdSet_For_DGV()

  166.     End Sub

  167.     Friend Sub SQL_加班資料_新增(聯絡函單號 As String, 加班日期 As String)

  168.         ConnOpen_管理SQL()

  169.         SQL1 = "INSERT INTO  人員加班紀錄(聯絡函單號 , 加班日期) VALUES (N'" & 聯絡函單號 & "', N'" & 加班日期 & "'  )"

  170.         CmdSet_For_dr()

  171.     End Sub

  172.     Friend Sub SQL_部門聯絡函_修改考勤(加班狀態 As String, ID卡號 As String, 日期 As String)

  173.         ConnOpen_管理SQL()

  174.         SQL1 = "UPDATE 人事考勤明細表 SET 加班=N'" & 加班狀態 & "' WHERE ID卡號 LIKE N'" & ID卡號 & "' AND 日期 LIKE N'" & 日期 & "'  "

  175.         CmdSet_For_dr()

  176.     End Sub

  177.     Friend Sub SQL_部門聯絡函_查詢考勤(ID卡號 As String, 日期 As String)

  178.         ConnOpen_管理SQL()

  179.         SQL1 = "SELECT 加班  FROM  人事考勤明細表  WHERE ID卡號 LIKE N'" & ID卡號 & "' AND 日期 LIKE N'" & 日期 & "'  "

  180.         CmdSet_For_dr()

  181.     End Sub

  182.     Friend Sub SQL_部門聯絡函_新增考勤(ID卡號 As String, 日期 As String)

  183.         ConnOpen_管理SQL()

  184.         SQL1 = "INSERT INTO  人事考勤明細表(ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班, 假別, 備註)  VALUES (  '" & ID卡號 & "','" & 日期 & "' , '', '', '', '', '', '', '1', '', '' ) "

  185.         CmdSet_For_dr()

  186.     End Sub

  187.     Friend Sub SQL_部門聯絡函_查詢ID卡號(聯絡函單號 As String)

  188.         ConnOpen_管理SQL()

  189.         SQL1 = "SELECT   人員加班紀錄.聯絡函單號, 人員加班紀錄.加班日期, 部門聯絡函.申請人, 

  190.                             [HX-GPS-ERP-SYS].dbo.使用者權限管理表.ID卡號

  191.                          FROM              人員加班紀錄 INNER JOIN

  192.                                                      部門聯絡函 ON 人員加班紀錄.聯絡函單號 = 部門聯絡函.聯絡函單號 INNER JOIN

  193.                                                      [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 部門聯絡函.申請人 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名

  194.                          WHERE       人員加班紀錄.聯絡函單號 LIKE N'" & 聯絡函單號 & "' "

  195.         CmdSet_For_dr()

  196.     End Sub

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

  198.         ConnOpen_管理SQL()

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

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

  201.         CmdSet_For_DGV()

  202.     End Sub

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

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

  205.     End Sub

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

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

  208.     End Sub

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

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

  211.     End Sub

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

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

  214.     End Sub

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

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

  217.     End Sub

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

  219.         ConnOpen_管理SQL()

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

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

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

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

  224.         CmdSet_For_dr()

  225.     End Sub

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

  227.         ConnOpen_管理SQL()

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

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

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

  231.         CmdSet_For_dr()

  232.     End Sub

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

  234.         ConnOpen_管理SQL()

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

  236.         CmdSet_For_dr()

  237.     End Sub

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

  239.         ConnOpen_管理SQL()

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

  241.         CmdSet_For_dr()

  242.     End Sub

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

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

  245.         ConnOpen_管理SQL()

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

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

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

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

  250.         CmdSet_For_DGV()

  251.     End Sub

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

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

  254.     End Sub

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

  256.         ConnOpen_管理SQL()

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

  258.         CmdSet_For_dr()

  259.     End Sub

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

  261.         ConnOpen_管理SQL()

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

  263.         CmdSet_For_dr()

  264.     End Sub

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

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

  267.         ConnOpen_管理SQL()

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

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

  270.         CmdSet_For_DGV()

  271.     End Sub

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

  273.         ConnOpen_管理SQL()

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

  275.         CmdSet_For_dr()

  276.     End Sub

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

  278.         ConnOpen_管理SQL()

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

  280.         CmdSet_For_dr()

  281.     End Sub

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

  283.         ConnOpen_管理SQL()

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

  285.         CmdSet_For_dr()

  286.     End Sub

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

  288.         ConnOpen_管理SQL()

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

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

  291.         CmdSet_For_dr()

  292.     End Sub

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

  294.         ConnOpen_管理SQL()

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

  296.         CmdSet_For_dr()

  297.     End Sub

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

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

  300.         ConnOpen_管理SQL()

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

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

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

  304.         CmdSet_For_DGV()

  305.     End Sub

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

  307.         ConnOpen_管理SQL()

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

  309.         CmdSet_For_dr()

  310.     End Sub

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

  312.         ConnOpen_管理SQL()

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

  314.         CmdSet_For_dr()

  315.     End Sub

  316.     Friend Sub SQL_聯絡函最高主管審核_刪除(聯絡函單號 As String)

  317.         ConnOpen_管理SQL()

  318.         SQL1 = "DELETE FROM 人員請假紀錄  WHERE (單號 LIKE N'" & 聯絡函單號 & "')"

  319.         CmdSet_For_dr()

  320.         ConnOpen_管理SQL()

  321.         SQL1 = "DELETE FROM 人員外出明細表  WHERE (聯絡函單號 LIKE N'" & 聯絡函單號 & "')"

  322.         CmdSet_For_dr()

  323.         ConnOpen_管理SQL()

  324.         SQL1 = "DELETE FROM 部門聯絡函  WHERE (聯絡函單號 LIKE N'" & 聯絡函單號 & "')"

  325.         CmdSet_For_dr()

  326.     End Sub

  327.     Friend Sub SQL_查詢時間與ID卡號(聯絡函單號 As String)

  328.         ConnOpen_管理SQL()

  329.         SQL1 = "SELECT    人員請假紀錄.單號, 人員請假紀錄.人員, 人員請假紀錄.開始日期, 人員請假紀錄.結束日期, 

  330.                             人員請假紀錄.天數, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.ID卡號

  331.                         FROM              人員請假紀錄 INNER JOIN

  332.                             [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 人員請假紀錄.人員 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名  

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

  334.         CmdSet_For_dr()

  335.     End Sub

  336.     Friend Sub SQL_聯絡函最高主管審核_修改考勤(ID卡號 As String, 日期 As String)

  337.         ConnOpen_管理SQL()

  338.         SQL1 = "UPDATE  人事考勤明細表  SET  假別=N''  WHERE  ID卡號 LIKE N'" & ID卡號 & "' AND 日期 LIKE N'" & 日期 & "' "

  339.         CmdSet_For_dr()

  340.     End Sub

  341.     '--------------------------------會議記錄-------------------------------------------------------------------------------------------------------------------------

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

  343.         ConnOpen_管理SQL()

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

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

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

  347.         CmdSet_For_DGV()

  348.     End Sub

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

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

  351.     End Sub

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

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

  354.     End Sub

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

  356.         ConnOpen_管理SQL()

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

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

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

  360.         CmdSet_For_dr()

  361.     End Sub

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

  363.         ConnOpen_管理SQL()

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

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

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

  367.         CmdSet_For_dr()

  368.     End Sub

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

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

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

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

  373.     End Sub

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

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

  376.     End Sub

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

  378.         ConnOpen_管理SQL()

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

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

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

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

  383.         CmdSet_For_dr()

  384.     End Sub

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

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

  387.     End Sub

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

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

  390.     End Sub

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

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

  393.     End Sub

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

  395.         ConnOpen_管理SQL()

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

  397.         CmdSet_For_dr()

  398.     End Sub

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

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

  401.     End Sub

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

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

  404.     End Sub

  405.     Friend Sub SQL_會議圖片()

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

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

  408.     End Sub

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

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

  411.     End Sub

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

  413.         ConnOpen_工程圖庫SQL()

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

  415.         CmdSet_For_dr_pic()

  416.     End Sub

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

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

  419.     End Sub

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

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

  422.     End Sub

  423. End Module