GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Seguir 4
Destacar 0
Cuchillo 0
Código Incidencias 0 Peticiones pull 0 Lanzamientos 0 Wiki Actividad
Sin descripción
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.
21 Commits
1 Rama
Árbol: 1ca4e5671c
Ramas Etiquetas
${ item.name }
Crear rama ${ searchTerm }
desde '1ca4e5671c'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/子資料庫1/SQL_工程系統管理.vb

SQL_工程系統管理.vb 34KB
Histórico Original

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451 
  1. Module SQL_工程系統管理

  2.     '--------------------------------------系統通用變數管理使用---------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_工程圖片資料庫管理查詢()

  4.         ConnOpen_工程SQL() : SQL1 = "SELECT 工程圖片資料庫 AS [" & 表頭(165) & "], 是否可用 AS [" & 表頭(166) & "] FROM 工程圖片資料庫管理 ORDER BY 工程圖片資料庫" : CmdSet_For_DGV()

  5.     End Sub

  6.     Friend Sub SQL_工程文件資料庫管理查詢()

  7.         ConnOpen_工程SQL() : SQL1 = "SELECT 工程文件資料庫 AS [" & 表頭(165) & "], 是否可用 AS [" & 表頭(166) & "] FROM 工程文件資料庫管理 ORDER BY 工程文件資料庫" : CmdSet_For_DGV()

  8.     End Sub

  9.     Friend Sub SQL_工程圖片資料庫管理查詢1()

  10.         ConnOpen_工程SQL() : SQL1 = "SELECT 工程圖片資料庫, 是否可用 FROM 工程圖片資料庫管理 WHERE 工程圖片資料庫 LIKE N'" & 系統通用變數管理.圖片資料庫名稱_tb.Text & "'" : CmdSet_For_dr()

  11.     End Sub

  12.     Friend Sub SQL_工程文件資料庫管理查詢1()

  13.         ConnOpen_工程SQL() : SQL1 = "SELECT 工程文件資料庫, 是否可用 FROM 工程文件資料庫管理 WHERE 工程文件資料庫 LIKE N'" & 系統通用變數管理.文件資料庫名稱_tb.Text & "'" : CmdSet_For_dr()

  14.     End Sub

  15.     Friend Sub SQL_工程圖片資料庫管理查詢新增()

  16.         ConnOpen_工程SQL()

  17.         SQL1 = "INSERT INTO 工程圖片資料庫管理 (工程圖片資料庫, 是否可用) VALUES ('" & 系統通用變數管理.圖片資料庫名稱_tb.Text & "','" & 系統通用變數管理.是否可用_ch.Checked & "')"

  18.         CmdSet_For_dr()

  19.     End Sub

  20.     Friend Sub SQL_工程文件資料庫管理查詢新增()

  21.         ConnOpen_工程SQL()

  22.         SQL1 = "INSERT INTO 工程文件資料庫管理 (工程文件資料庫, 是否可用) VALUES ('" & 系統通用變數管理.文件資料庫名稱_tb.Text & "','" & 系統通用變數管理.是否可用1_ch.Checked & "')"

  23.         CmdSet_For_dr()

  24.     End Sub

  25.     Friend Sub SQL_工程圖片資料庫管理查詢修改()

  26.         ConnOpen_工程SQL()

  27.         SQL1 = "UPDATE 工程圖片資料庫管理 SET 是否可用 = '" & 系統通用變數管理.是否可用_ch.Checked & "' WHERE 工程圖片資料庫 LIKE N'" & 系統通用變數管理.圖片資料庫名稱_tb.Text & "'"

  28.         CmdSet_For_dr()

  29.     End Sub

  30.     Friend Sub SQL_工程文件資料庫管理查詢修改()

  31.         ConnOpen_工程SQL()

  32.         SQL1 = "UPDATE 工程文件資料庫管理 SET 是否可用 = '" & 系統通用變數管理.是否可用1_ch.Checked & "' WHERE 工程文件資料庫 LIKE N'" & 系統通用變數管理.文件資料庫名稱_tb.Text & "'"

  33.         CmdSet_For_dr()

  34.     End Sub

  35.     Friend Sub SQL_資料庫大小查驗()

  36.         ConnOpen()

  37.         SQL1 = "SELECT  size * 8.0 / 1024 AS '大小' FROM    sys.master_files WHERE  (DB_NAME(database_id) LIKE N'" & PA & "')"

  38.         CmdSet_For_dr()

  39.     End Sub

  40.     '-------------------------合約文件圖庫管理------------------------------------------------------------------------------------------------------------------

  41.     Friend Sub SQL_合約工程文件資料庫管理查詢2()

  42.         ConnOpen_工程SQL() : SQL1 = "SELECT 工程文件資料庫, 是否可用 FROM 工程文件資料庫管理 WHERE 是否可用 = 0 ORDER BY 工程文件資料庫" : CmdSet_For_DGV()

  43.     End Sub

  44.     Friend Sub SQL_合約工程文檔_文件號查詢()

  45.         ConnOpen_工程SQL() : SQL1 = "SELECT TOP (1) 文件號 FROM 合約文檔控制表 ORDER BY 文件號 DESC" : CmdSet_For_dr()

  46.     End Sub

  47.     Friend Sub SQL_合約工程文檔_版本號查詢()

  48.         ConnOpen_工程SQL() : SQL1 = "SELECT TOP (1) 版次 FROM 合約文檔控制表 WHERE 文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "' ORDER BY 版次 DESC" : CmdSet_For_dr()

  49.     End Sub

  50.     Friend Sub SQL_合約工程文件資料庫管理查詢修改1()

  51.         ConnOpen_工程SQL()

  52.         SQL1 = "UPDATE 工程文件資料庫管理 SET 是否可用 = 1 WHERE 工程文件資料庫 LIKE N'" & PA & "'"

  53.         CmdSet_For_dr()

  54.     End Sub

  55.     Friend Sub SQL_合約工程文檔控制表_新增()

  56.         ConnOpen_工程SQL()

  57.         SQL1 = "INSERT INTO 合約文檔控制表 ( 合約號, 文件號, 文檔類型, 檔案名稱, 副檔名, 版次, 上傳日期, 上傳人員, 圖庫) 

  58.                 VALUES (N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'" & 合約文件圖庫管理.文檔類型_cb.Text & "', 

  59.                         N'" & 合約文件圖庫管理.檔案名稱_tb.Text & "', N'" & 合約文件圖庫管理.副檔名_tb.Text & "', N'" & 合約文件圖庫管理.版本_tb.Text & "', 

  60.                         N'" & 合約文件圖庫管理.上傳日期_dtp.Text & "', N'" & gUserName & "', '" & 圖片庫 & "')"

  61.         CmdSet_For_dr()

  62.     End Sub

  63.     Friend Sub SQL_合約工程文檔_檔案說明檢查()

  64.         ConnOpen_工程SQL()

  65.         SQL1 = "SELECT  文件號 FROM  合約文檔說明 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') GROUP BY 文件號"

  66.         CmdSet_For_dr()

  67.     End Sub

  68.     Friend Sub SQL_合約工程文檔_檔案說明新增1()

  69.         ConnOpen_工程SQL()

  70.         SQL1 = "INSERT INTO 合約文檔說明 (合約號, 文件號, 語言, 文檔說明) 

  71.                 VALUES (N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'繁體中文',  N'" & 合約文件圖庫管理.文檔說明1_tb.Text & "')"

  72.         CmdSet_For_dr()

  73.     End Sub

  74.     Friend Sub SQL_合約工程文檔_檔案說明新增2()

  75.         ConnOpen_工程SQL()

  76.         SQL1 = "INSERT INTO 合約文檔說明 (合約號, 文件號, 語言, 文檔說明) 

  77.                 VALUES (N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'English',  N'" & 合約文件圖庫管理.文檔說明2_tb.Text & "')"

  78.         CmdSet_For_dr()

  79.     End Sub

  80.     Friend Sub SQL_合約工程文檔_檔案說明新增3()

  81.         ConnOpen_工程SQL()

  82.         SQL1 = "INSERT INTO 合約文檔說明 (合約號, 文件號, 語言, 文檔說明) 

  83.                 VALUES (N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'Indonesian',  N'" & 合約文件圖庫管理.文檔說明3_tb.Text & "')"

  84.         CmdSet_For_dr()

  85.     End Sub

  86.     Friend Sub SQL_合約工程文檔控制表_修改()

  87.         ConnOpen_工程SQL()

  88.         SQL1 = "UPDATE 合約文檔控制表 SET 文檔類型 = N'" & 合約文件圖庫管理.文檔類型_cb.Text & "', 檔案名稱 = N'" & 合約文件圖庫管理.檔案名稱_tb.Text & "',

  89.                                           副檔名 = N'" & 合約文件圖庫管理.副檔名_tb.Text & "', 上傳日期 = N'" & 合約文件圖庫管理.上傳日期_dtp.Text & "',

  90.                                           上傳人員 = N'" & gUserName & "'

  91.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND 

  92.                       (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')"

  93.         CmdSet_For_dr()

  94.     End Sub

  95.     Friend Sub SQL_合約工程文檔控制表_修改1()

  96.         ConnOpen_工程SQL()

  97.         SQL1 = "UPDATE 合約文檔控制表 SET 文檔類型 = N'" & 合約文件圖庫管理.文檔類型_cb.Text & "'

  98.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND 

  99.                       (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')"

  100.         CmdSet_For_dr()

  101.     End Sub

  102.     Friend Sub SQL_合約工程文檔_檔案說明修改1()

  103.         ConnOpen_工程SQL()

  104.         SQL1 = "UPDATE 合約文檔說明 SET 文檔說明 = N'" & 合約文件圖庫管理.文檔說明1_tb.Text & "'

  105.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (語言 LIKE N'繁體中文')"

  106.         CmdSet_For_dr()

  107.     End Sub

  108.     Friend Sub SQL_合約工程文檔_檔案說明修改2()

  109.         ConnOpen_工程SQL()

  110.         SQL1 = "UPDATE 合約文檔說明 SET 文檔說明 = N'" & 合約文件圖庫管理.文檔說明2_tb.Text & "'

  111.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (語言 LIKE N'English')"

  112.         CmdSet_For_dr()

  113.     End Sub

  114.     Friend Sub SQL_合約工程文檔_檔案說明修改3()

  115.         ConnOpen_工程SQL()

  116.         SQL1 = "UPDATE 合約文檔說明 SET 文檔說明 = N'" & 合約文件圖庫管理.文檔說明3_tb.Text & "'

  117.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (語言 LIKE N'Indonesian')"

  118.         CmdSet_For_dr()

  119.     End Sub

  120.     Friend Sub SQL_合約工程文檔_文檔入系統()

  121.         ConnOpen_工程圖庫SQL()

  122.         SQL1 = "INSERT INTO 合約文檔 (合約號, 文件號, 版次, 文檔) 

  123.                 SELECT N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'" & 合約文件圖庫管理.版本_tb.Text & "', 

  124.                 BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 合約文件圖庫管理.檔案名稱_tb.Text & 合約文件圖庫管理.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  125.         CmdSet_For_dr()

  126.     End Sub

  127.     Friend Sub SQL_合約工程文檔_文檔修改()

  128.         ConnOpen_工程圖庫SQL()

  129.         SQL1 = "UPDATE 合約文檔 SET 文檔 = BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 合約文件圖庫管理.檔案名稱_tb.Text & 合約文件圖庫管理.副檔名_tb.Text & "', 

  130.                                            SINGLE_BLOB) AS EMPLOYEEPICTURE

  131.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND 

  132.                       (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')"

  133.         CmdSet_For_dr()

  134.     End Sub

  135.     Friend Sub SQL_合約工程文檔控制表()

  136.         ConnOpen_工程SQL()

  137.         SQL1 = "SELECT 文件號, 文檔類型, 檔案名稱, 副檔名, 版次, 上傳日期, 上傳人員, 圖庫 FROM 合約文檔控制表 

  138.                 WHERE 合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "' ORDER BY 文件號 DESC, 版次 DESC"

  139.         CmdSet_For_DGV()

  140.     End Sub

  141.     Friend Sub SQL_合約工程文檔說明()

  142.         ConnOpen_工程SQL()

  143.         SQL1 = "SELECT     語言, 文檔說明  FROM  合約文檔說明

  144.                 WHERE     (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "')

  145.                 ORDER BY   語言"

  146.         CmdSet_For_DGV()

  147.     End Sub

  148.     Friend Sub SQL_檔案類型下拉清單()

  149.         ConnOpen_工程SQL() : SQL1 = "SELECT  文檔類型 FROM 合約文檔控制表 GROUP BY 文檔類型 ORDER BY 文檔類型" : CmdSet_For_dr()

  150.     End Sub

  151.     Friend Sub SQL_合約工程文檔_文檔下載()

  152.         ConnOpen_工程圖庫SQL()

  153.         SQL1 = "SELECT 文檔 FROM 合約文檔        

  154.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND 

  155.                       (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')"

  156.         CmdSet_For_DGV()

  157.     End Sub

  158.     Friend Sub SQL_合約工程文檔操作紀錄()

  159.         ConnOpen_工程SQL()

  160.         SQL1 = "SELECT    版次, 人員, 動作, 時間

  161.                 FROM      合約文檔操作紀錄

  162.                 WHERE    (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "')

  163.                 ORDER BY  時間 DESC"

  164.         CmdSet_For_DGV()

  165.     End Sub

  166.     Friend Sub SQL_合約工程文檔操作紀錄_新增()

  167.         ConnOpen_工程SQL()

  168.         SQL1 = "INSERT INTO 合約文檔操作紀錄 (合約號, 文件號, 版次, 人員, 動作, 時間) 

  169.                 SELECT N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'" & 合約文件圖庫管理.版本_tb.Text & "', N'" & gUserName & "', 

  170.                        N'" & PA43 & "', N'" & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss:fff") & "'"

  171.         CmdSet_For_dr()

  172.     End Sub

  173.     Friend Sub SQL_合約工程文檔控制表_刪除()

  174.         ConnOpen_工程SQL()

  175.         SQL1 = "DELETE 合約文檔控制表 

  176.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND 

  177.                       (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')"

  178.         CmdSet_For_dr()

  179.     End Sub

  180.     Friend Sub SQL_合約工程文檔_刪除()

  181.         ConnOpen_工程圖庫SQL()

  182.         SQL1 = "DELETE 合約文檔        

  183.                 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND 

  184.                       (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')"

  185.         CmdSet_For_dr()

  186.     End Sub

  187.     Friend Sub SQL_合約工程文檔說明_刪除()

  188.         ConnOpen_工程SQL()

  189.         SQL1 = "DELETE  合約文檔說明

  190.                 WHERE     (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "')"

  191.         CmdSet_For_dr()

  192.     End Sub

  193. 

  194.     '-------------------------工程進度表------------------------------------------------------------------------------------------------------------------

  195.     Friend Sub SQL_進度清單()

  196.         ConnOpen_工程SQL()

  197.         If PA = "" Then

  198.             SQL1 = "SELECT    工程責任表.合約編號, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 

  199.                               工程責任表.工程名稱_中, 工程責任表.工程名稱_英, 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 

  200.                               工程責任表.間距

  201.                     FROM      工程進度表 INNER JOIN

  202.                               工程責任表 ON 工程進度表.合約編號 = 工程責任表.合約編號

  203.                     WHERE    (工程進度表.甲方 LIKE N'%" & PA46 & "%')

  204.                     GROUP BY  工程進度表.合約編號, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 

  205.                               工程責任表.合約編號, 工程責任表.工程名稱_中, 工程責任表.工程名稱_英, 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 

  206.                               工程責任表.間距

  207.                     ORDER BY  工程進度表.甲方, 工程進度表.立約號 DESC, 工程進度表.序號 DESC"

  208.         Else

  209.             SQL1 = "SELECT    工程責任表.合約編號, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 

  210.                               工程責任表.工程名稱_中, 工程責任表.工程名稱_英, 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 

  211.                               工程責任表.間距

  212.                     FROM      工程進度表 INNER JOIN

  213.                               工程責任表 ON 工程進度表.合約編號 = 工程責任表.合約編號

  214.                     WHERE    (工程責任表.合約編號 LIKE N'%" & PA & "%') AND (工程進度表.甲方 LIKE N'%" & PA46 & "%')

  215.                     GROUP BY  工程進度表.合約編號, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 

  216.                               工程責任表.合約編號, 工程責任表.工程名稱_中, 工程責任表.工程名稱_英, 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 

  217.                               工程責任表.間距

  218.                     ORDER BY  工程進度表.甲方, 工程進度表.立約號 DESC, 工程進度表.序號 DESC"

  219.         End If

  220.         CmdSet_For_DGV()

  221.     End Sub

  222.     Friend Sub SQL執行主管下拉()

  223.         ConnOpen()

  224.         SQL1 = "SELECT   使用者權限管理表.姓名, 使用者權限管理表.帳號, 使用者權限管理表.職稱

  225.                 FROM     使用者權限管理表 RIGHT OUTER JOIN

  226.                         (SELECT  姓名, 帳號, 時效, 授權  FROM  系統跨部門權限表  WHERE  (職稱 LIKE '3%') AND (授權 = 1)

  227.                          GROUP BY    姓名, 帳號, 時效, 授權) AS QQ ON 使用者權限管理表.姓名 = QQ.姓名

  228.                 WHERE   (使用者權限管理表.級別 NOT LIKE '00') AND (使用者權限管理表.級別 NOT LIKE '09') AND 

  229.                         (使用者權限管理表.級別 NOT LIKE '08') AND (使用者權限管理表.級別 NOT LIKE '07')

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

  231.         CmdSet_For_dr()

  232.     End Sub

  233.     Friend Sub SQL_工程責任表_最後一筆資料()

  234.         ConnOpen_工程SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 工程責任表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  235.     End Sub

  236.     Friend Sub SQL_工程責任表_新增資料()

  237.         ConnOpen_工程SQL()

  238.         SQL1 = "INSERT INTO 工程責任表 (流水號, 合約編號, 項目負責, 人員帳號, 人員職稱, 工程名稱_中, 工程名稱_英, 開始日期, 結束日期, 間距) 

  239.                 VALUES (N'" & PA9 & "', N'" & PA & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA1 & "')"

  240.         CmdSet_For_dr()

  241.     End Sub

  242.     Friend Sub SQL_工程責任表_修改資料()

  243.         ConnOpen_工程SQL()

  244.         SQL1 = "UPDATE 工程責任表 SET 項目負責 = N'" & PA2 & "', 人員帳號 = N'" & PA3 & "', 人員職稱 = N'" & PA4 & "', 工程名稱_中 = N'" & PA5 & "', 工程名稱_英 = N'" & PA6 & "', 

  245.                                       開始日期 = N'" & PA7 & "', 結束日期 = N'" & PA8 & "', 間距 = N'" & PA1 & "'

  246.                 WHERE  合約編號 LIKE '" & PA & "'"

  247.         CmdSet_For_dr()

  248.     End Sub

  249.     Friend Sub SQL_工程進度表_最後一筆資料()

  250.         ConnOpen_工程SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 工程進度表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  251.     End Sub

  252.     Friend Sub SQL_工程責任表_資料重複認證()

  253.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 FROM 工程責任表 WHERE  合約編號 LIKE '" & PA & "'" : CmdSet_For_dr()

  254.     End Sub

  255.     Friend Sub SQL_工程進度表_新增資料()

  256.         ConnOpen_工程SQL()

  257.         SQL1 = "INSERT INTO 工程進度表 (流水號, 合約編號, 排序, 項次, 項目, 預計開始, 預計天數, 預計結束, 乙方, 甲方, 立約號, 序號, 紅, 黃, 綠, 藍, 紫)

  258.                 VALUES (N'" & PA9 & "', N'" & PA & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', 

  259.                         N'" & PA8 & "', N'" & PA12 & "', N'" & PA10 & "', N'" & PA11 & "', '0', '0', '1', '0', '0')"

  260.         CmdSet_For_dr()

  261.     End Sub

  262.     Friend Sub SQL_工程進度表_修改資料()

  263.         ConnOpen_工程SQL()

  264.         SQL1 = "UPDATE 工程進度表 SET 排序 = N'" & PA2 & "', 項次 = N'" & PA3 & "', 項目 = N'" & PA4 & "', 預計開始 = N'" & PA5 & "', 預計天數 = N'" & PA6 & "', 預計結束 = N'" & PA7 & "', 

  265.                                       紅 = '" & BL1 & "', 藍 = '" & BL2 & "', 綠 = '" & BL3 & "', 黃 = '" & BL4 & "', 紫 = '" & BL5 & "'

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

  267.         CmdSet_For_dr()

  268.     End Sub

  269.     Friend Sub SQL_工程進度表_刪除資料()

  270.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程進度表 WHERE (流水號 LIKE N'" & PA9 & "')" : CmdSet_For_dr()

  271.     End Sub

  272.     Friend Sub SQL_進度明細清單()

  273.         ConnOpen_工程SQL()

  274.         SQL1 = "SELECT     工程進度表.流水號, 工程進度表.合約編號, 工程進度表.排序, 工程進度表.項次, 工程進度表.項目, 

  275.                            工程進度表.預計開始, 工程進度表.預計天數, 工程進度表.預計結束, 工程進度表.乙方, 工程進度表.甲方, 

  276.                            工程進度表.立約號, 工程進度表.序號, 工程進度表.紅, 工程進度表.黃, 工程進度表.綠, 工程進度表.藍, 

  277.                            工程進度表.紫

  278.                 FROM       工程進度表 LEFT OUTER JOIN

  279.                            [HX-GPS-ERP-SYS].dbo.HX空白圖片 ON 工程進度表.流水號 = [HX-GPS-ERP-SYS].dbo.HX空白圖片.選擇

  280.                 WHERE     (工程進度表.合約編號 LIKE '" & PA & "')

  281.                 ORDER BY   工程進度表.排序"

  282. 

  283.         CmdSet_For_DGV()

  284.     End Sub

  285.     Friend Sub SQL_工程進度表_最後一筆排序()

  286.         ConnOpen() : SQL1 = "SELECT TOP (1) 排序 FROM 工程進度表 WHERE 合約編號 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr()

  287.     End Sub

  288.     Friend Sub SQL_工程進度表_刪除總表1()

  289.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程進度表 WHERE (合約編號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  290.     End Sub

  291.     Friend Sub SQL_工程進度表_刪除總表2()

  292.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程責任表 WHERE (合約編號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  293.     End Sub

  294.     Friend Sub SQL_工程進度表_刪除總表3()

  295.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程人員統計表 WHERE (合約編號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  296.     End Sub

  297.     '--------------------------------------派工人數紀錄表---------------------------------------------------------------------------------------------------------------

  298.     Friend Sub SQL_派工人數紀錄表()

  299.         ConnOpen_工程SQL()

  300.         SQL1 = "SELECT    工程進度表.專案結束 AS [" & 表頭(0) & "], 工程進度表.流水號 AS 專案流水, 工程責任表.項目負責, 工程進度表.排序, 工程進度表.合約編號 AS [" & 表頭(134) & "], 

  301.                           工程進度表.項次 AS [" & 表頭(11) & "], 工程進度表.項目 AS [" & 表頭(155) & "], 工程進度表.預計開始 AS [" & 表頭(1) & "], 工程進度表.預計天數 AS [" & 表頭(2) & "], 

  302.                           工程進度表.預計結束 AS [" & 表頭(3) & "], 工程進度表.預計結束 AS [" & 表頭(73) & "], QQ.案件主管, QQ.人員 AS [" & 表頭(15) & "], QQ.流水號, QQ.人員 AS 原始

  303.                 FROM      工程進度表 INNER JOIN

  304.                           工程責任表 ON 工程進度表.合約編號 = 工程責任表.合約編號 LEFT OUTER JOIN

  305.                          (SELECT  流水號, 進度流水號, 人員, 案件主管, 合約編號  FROM  工程人員統計表

  306.                           WHERE  (年 LIKE N'" & PA2 & "') AND (月 LIKE N'" & PA3 & "') AND (日 LIKE N'" & PA4 & "')) AS QQ ON 

  307.                           工程進度表.流水號 = QQ.進度流水號

  308.                 WHERE    (工程責任表.項目負責 LIKE N'" & PA1 & "') " & SQL2 & " AND (工程進度表.合約編號 LIKE '%" & PA5 & "%')

  309.                 ORDER BY  工程進度表.合約編號, 工程進度表.排序"

  310.         CmdSet_For_DGV()

  311.     End Sub

  312.     Friend Sub SQL_人員統計表_最後一筆資料()

  313.         ConnOpen_工程SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 工程人員統計表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  314.     End Sub

  315.     Friend Sub SQL_人員統計表_新增資料()

  316.         ConnOpen_工程SQL()

  317.         SQL1 = "INSERT INTO 工程人員統計表 (流水號, 進度流水號, 年, 月, 日, 周, 人員, 案件主管, 合約編號)

  318.                             VALUES (N'" & PA9 & "', N'" & PA & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "')"

  319.         CmdSet_For_dr()

  320.     End Sub

  321.     Friend Sub SQL_人員統計表_修改資料()

  322.         ConnOpen_工程SQL()

  323.         SQL1 = "UPDATE 工程人員統計表 SET 進度流水號 = N'" & PA & "', 年 = N'" & PA2 & "', 月 = N'" & PA3 & "', 日 = N'" & PA4 & "', 人員 = N'" & PA6 & "', 案件主管 = N'" & PA7 & "'

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

  325.         CmdSet_For_dr()

  326.     End Sub

  327.     Friend Sub SQL_人員統計彙總表()

  328.         ConnOpen_工程SQL()

  329.         SQL1 = "SELECT  *

  330.                 FROM   (SELECT  工程進度表.排序, 工程人員統計表.合約編號 AS [" & 表頭(134) & "], 工程進度表.項次 AS [" & 表頭(11) & "], 工程進度表.項目 AS [" & 表頭(155) & "], 

  331.                                 工程進度表.項目 AS [" & 表頭(83) & "], 工程人員統計表.日, 工程人員統計表.人員

  332.                         FROM    工程人員統計表 INNER JOIN 工程進度表 ON 工程人員統計表.進度流水號 = 工程進度表.流水號 INNER JOIN 工程責任表 ON 工程人員統計表.合約編號 = 工程責任表.合約編號

  333.                         WHERE  (工程人員統計表.年 LIKE '" & PA5 & "') AND (工程人員統計表.月 LIKE '" & PA6 & "') AND (工程人員統計表.合約編號 LIKE '%%') AND 

  334.                                (工程責任表.項目負責 LIKE '%" & PA7 & "%')) AS X 

  335.                 PIVOT (SUM(人員) FOR 日 IN (" & 清單列表 & ")) AS PVT ORDER BY [" & 表頭(134) & "], 排序"

  336.         CmdSet_For_DGV()

  337.     End Sub

  338.     Friend Sub SQL_派工日期人數()

  339.         ConnOpen_工程SQL() : SQL1 = "SELECT  日, SUM(人員) AS 人數  FROM  工程人員統計表  WHERE  (年 LIKE '" & PA5 & "') AND (月 LIKE '" & PA6 & "')  GROUP BY  日" : CmdSet_For_DGV()

  340.     End Sub

  341.     Friend Sub SQL_進度表清單()

  342.         ConnOpen_工程SQL() : SQL1 = "SELECT  合約編號  FROM  工程進度表  WHERE  (合約編號 LIKE '%" & PA & "%')  GROUP BY  合約編號" : CmdSet_For_DGV()

  343.     End Sub

  344.     Friend Sub SQL_工程進度表_派工開關()

  345.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程進度表 SET 專案結束  = '" & BL1 & "' WHERE (流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  346.     End Sub

  347.     '--------------------------------------工程日報表---------------------------------------------------------------------------------------------------------------

  348.     Friend Sub SQL_工程日報表()

  349.         ConnOpen_工程SQL()

  350.         SQL1 = "SELECT    工程日報項目表.流水號, 工程日報項目表.工地 AS [" & 表頭(75) & "], 工程日報項目表.排序, 工程日報項目表.項次 AS [" & 表頭(11) & "], 

  351.                           工程日報項目表.項目 AS [" & 表頭(155) & "], 工程日報項目表.開始日期, 工程日報項目表.結束日期, QQ.建檔 AS [" & 表頭(28) & "], QQ.工作說明, 

  352.                           QQ.圖片庫

  353.                 FROM      工程日報項目表 LEFT OUTER JOIN

  354.                          (SELECT  進度流水號, 工程日期, 工作說明, 建檔, 圖片庫

  355.                           FROM    工程進度明細表

  356.                           WHERE  (工程日期 LIKE '" & PA2 & "')) AS QQ ON 工程日報項目表.流水號 = QQ.進度流水號

  357.                 WHERE    (工程日報項目表.開始日期 BETWEEN 工程日報項目表.開始日期 AND '" & PA2 & "') AND 

  358.                          (工程日報項目表.結束日期 BETWEEN '" & PA2 & "' AND 工程日報項目表.結束日期) AND (工程日報項目表.工地主管 LIKE N'" & PA1 & "')

  359.                 ORDER BY  工程日報項目表.工地, 工程日報項目表.項目"

  360.         CmdSet_For_DGV()

  361.     End Sub

  362.     Friend Sub SQL_讀取工程日報控制()

  363.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 上午開工, 下午開工, 上午天氣, 下午天氣 FROM 工程日報控制表 WHERE 工程日期 LIKE N'" & PA2 & "' AND 工地主管 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  364.     End Sub

  365.     Friend Sub SQL_上午控制_下拉清單()

  366.         ConnOpen_工程SQL() : SQL1 = "SELECT 上下午 FROM 工程進度_時間  WHERE 時段 LIKE N'上午' ORDER BY 上下午" : CmdSet_For_dr()

  367.     End Sub

  368.     Friend Sub SQL_下午控制_下拉清單()

  369.         ConnOpen_工程SQL() : SQL1 = "SELECT 上下午 FROM 工程進度_時間 WHERE 時段 LIKE N'下午' ORDER BY 上下午" : CmdSet_For_dr()

  370.     End Sub

  371.     Friend Sub SQL_天氣控制_下拉清單()

  372.         ConnOpen_工程SQL() : SQL1 = "SELECT 天氣 FROM 工程進度_天氣 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 天氣" : CmdSet_For_dr()

  373.     End Sub

  374.     Friend Sub SQL_天氣控制_讀取()

  375.         ConnOpen_工程SQL() : SQL1 = "SELECT 天氣 FROM 工程進度_天氣 WHERE 編碼 LIKE N'" & PA40 & "' AND 語言 LIKE N'" & 系統語言 & "' ORDER BY 天氣" : CmdSet_For_dr()

  376.     End Sub

  377.     Friend Sub SQL_工程日報控制表新增()

  378.         ConnOpen_工程SQL()

  379.         SQL1 = "INSERT INTO 工程日報控制表 (流水號, 工程日期, 工地主管, 上午開工, 下午開工, 上午天氣, 下午天氣)

  380.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "')"

  381.         CmdSet_For_dr()

  382.     End Sub

  383.     Friend Sub SQL_工程日報控制表修改()

  384.         ConnOpen_工程SQL()

  385.         SQL1 = "UPDATE 工程日報控制表 SET 上午開工 = N'" & PA4 & "', 下午開工 =  N'" & PA5 & "', 上午天氣 = N'" & PA6 & "', 下午天氣 = N'" & PA7 & "' WHERE 流水號 LIKE N'" & PA1 & "'"

  386.         CmdSet_For_dr()

  387.     End Sub

  388.     Friend Sub SQL_工程日報控制表流水號查詢()

  389.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 FROM 工程日報控制表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  390.     End Sub

  391.     Friend Sub SQL_工程進度明細表查詢()

  392.         ConnOpen_工程SQL() : SQL1 = "SELECT 工作說明, 建檔, 圖片庫 FROM 工程進度明細表 WHERE 進度流水號 LIKE N'" & PA10 & "' AND 工程日期 LIKE '" & PA2 & "'" : CmdSet_For_dr()

  393.     End Sub

  394.     Friend Sub SQL_工程進度明細表新增()

  395.         ConnOpen_工程SQL()

  396.         SQL1 = "INSERT INTO 工程進度明細表 (進度流水號, 工程日期, 工作說明, 建檔, 圖片庫) VALUES (N'" & PA10 & "', N'" & PA2 & "', N'" & PA3 & "', '1', N'" & PA5 & "')"

  397.         CmdSet_For_dr()

  398.     End Sub

  399.     Friend Sub SQL_工程進度明細表_工作說明單獨讀取()

  400.         ConnOpen_工程SQL()

  401.         SQL1 = "SELECT TOP (1) 工作說明 FROM 工程進度明細表 WHERE (進度流水號 LIKE '" & PA18 & "') ORDER BY 工程日期 DESC"

  402.         CmdSet_For_dr()

  403.     End Sub

  404.     Friend Sub SQL_工程進度明細表修改()

  405.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程進度明細表 SET 工作說明  = N'" & PA3 & "' WHERE (進度流水號 LIKE N'" & PA10 & "') AND (工程日期 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  406.     End Sub

  407.     Friend Sub SQL_工程進度明細表刪除()

  408.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程進度明細表 WHERE (進度流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  409.     End Sub

  410.     Friend Sub SQL_工程日報圖片清單()

  411.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 圖片號 AS Item, 圖片 AS IMG FROM 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' ORDER BY 圖片號" : CmdSet_For_DGV()

  412.     End Sub

  413.     Friend Sub SQL_工程日報圖片讀取()

  414.         ConnOpen_工程圖庫SQL()

  415.         SQL1 = "SELECT 圖片 FROM 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' AND 圖片號 LIKE '" & PA3 & "' ORDER BY 圖片號 DESC"

  416.         CmdSet_For_dr()

  417.     End Sub

  418.     Friend Sub SQL_工程日報圖片最後一筆編號查詢()

  419.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 圖片號 FROM 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' ORDER BY 圖片號 DESC" : CmdSet_For_dr()

  420.     End Sub

  421.     Friend Sub SQL_工程日報圖片入系統()

  422.         ConnOpen_工程圖庫SQL()

  423.         SQL1 = "INSERT INTO 工程日報圖庫 (文件號, 工作內容, 圖片號, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', 

  424.                 BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 工程日報表.檔案名稱_tb.Text & 工程日報表.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  425.         CmdSet_For_dr()

  426.     End Sub

  427.     Friend Sub SQL_工程日報圖片刪除()

  428.         ConnOpen_工程圖庫SQL() : SQL1 = "DELETE 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' AND 圖片號 LIKE '" & PA3 & "'" : CmdSet_For_dr()

  429.     End Sub

  430.     Friend Sub SQL_工程日報圖片刪除_全部()

  431.         ConnOpen_工程圖庫SQL() : SQL1 = "DELETE 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "'" : CmdSet_For_dr()

  432.     End Sub

  433.     Friend Sub SQL_工程進度項目新增()

  434.         ConnOpen_工程SQL()

  435.         SQL1 = "INSERT INTO 工程日報項目表 (流水號, 工地主管, 開始日期, 結束日期, 工地, 項次, 項目) 

  436.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', '2100/01/01', N'" & PA4 & "', N'', N'" & PA25 & "')"

  437.         CmdSet_For_dr()

  438.     End Sub

  439.     Friend Sub SQL_工程進度項目修改()

  440.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程日報項目表 SET 項目 = N'" & PA25 & "' WHERE 流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  441.     End Sub

  442.     Friend Sub SQL_工程進度項目刪除()

  443.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程日報項目表 WHERE 流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  444.     End Sub

  445.     Friend Sub SQL_工程進度項目流水號查詢()

  446.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 FROM 工程日報項目表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  447.     End Sub

  448.     Friend Sub SQL_工程進度項目結案()

  449.         ConnOpen_工程SQL() : SQL1 = "UPDATE  工程日報項目表  SET  結束日期 = '" & PA19 & "'  WHERE  (流水號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  450.     End Sub

  451. End Module