HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
Observar 4
Favorito 0
Fork 0
Código Issues 0 Pull requests 0 Versões 0 Wiki Atividade
Nenhuma descrição
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
1 Commit
1 Branch
Branch: master
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de master
${ noResults }
HX-PGS-ERP-SYS-SIU/0、MyModule/子資料庫1/SQL_工程系統管理.vb

SQL_工程系統管理.vb 37KB
Link permanente Histórico Original

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485 
  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.     Friend Sub SQL_進度清單()

  195.         ConnOpen_工程SQL()

  196.         If PA = "" Then

  197.             SQL1 = "SELECT    工程責任表.合約編號 AS [" & 表頭(0) & "], 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 

  198.                               工程責任表.工程名稱_中 AS [" & 表頭(1) & "], 工程責任表.工程名稱_英 AS [" & 表頭(2) & "], 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 

  199.                               工程責任表.間距

  200.                     FROM      工程進度表 INNER JOIN

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

  202.                     WHERE    (工程進度表.甲方 LIKE N'%" & PA46 & "%') AND (項目負責 LIKE N'%" & PA45 & "')

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

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

  205.                               工程責任表.間距

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

  207.         Else

  208.             SQL1 = "SELECT    工程責任表.合約編號 AS [" & 表頭(0) & "], 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 

  209.                               工程責任表.工程名稱_中 AS [" & 表頭(1) & "], 工程責任表.工程名稱_英 AS [" & 表頭(2) & "], 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 

  210.                               工程責任表.間距

  211.                     FROM      工程進度表 INNER JOIN

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

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

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

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

  216.                               工程責任表.間距

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

  218.         End If

  219.         CmdSet_For_DGV()

  220.     End Sub

  221.     Friend Sub SQL未建立甘特圖清單()

  222.         ConnOpen()

  223.         SQL1 = "SELECT    合約編號 AS [" & 表頭(0) & "], 合約編號 AS 乙方, 約號甲方 AS 甲方, 約號排序 AS 立約號, 約號尾序 AS 序號, 工程名稱_中 AS [" & 表頭(1) & "], 

  224.                           工程名稱_英 AS [" & 表頭(2) & "], 工程主管 AS 項目負責, 立約日期 AS 開始日期, 立約日期 AS 結束日期, 合約編號 AS 間距, 工期

  225.                 FROM      合約控制表

  226.                 WHERE    (工程主管 LIKE '" & PA45 & "%') AND (NOT EXISTS (SELECT  合約編號  FROM   [PROJECT-SYS].dbo.工程責任表  WHERE  (合約編號 = 合約控制表.合約編號)))

  227.                 ORDER BY  立約號 DESC"

  228.         CmdSet_For_DGV()

  229.     End Sub

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

  231.         ConnOpen()

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

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

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

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

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

  237.                         (使用者權限管理表.級別 NOT LIKE '08') AND (使用者權限管理表.級別 NOT LIKE '07') AND 使用者權限管理表.CC63 = 0

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

  239.         CmdSet_For_dr()

  240.     End Sub

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

  242.         ConnOpen()

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

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

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

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

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

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

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

  250.         CmdSet_For_dr()

  251.     End Sub

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

  253.         ConnOpen_工程SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 工程責任表 ORDER BY 流水號 DESC" : 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 & "', N'" & PA8 & "', N'" & PA1 & "')"

  259.         CmdSet_For_dr()

  260.     End Sub

  261.     Friend Sub SQL_工程責任表_新增檔案1()

  262.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程責任表 SET 清單 = @binary_file WHERE 合約編號 LIKE N'" & PA1 & "'" : CmdSet_For_dr_pic()

  263.     End Sub

  264.     Friend Sub SQL_工程責任表_新增檔案2()

  265.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程責任表 SET 連線 = @binary_file WHERE 合約編號 LIKE N'" & PA1 & "'" : CmdSet_For_dr_pic()

  266.     End Sub

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

  268.         ConnOpen_工程SQL()

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

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

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

  272.         CmdSet_For_dr()

  273.     End Sub

  274.     Friend Sub SQL_工程進度表讀取()

  275.         ConnOpen_工程SQL() : SQL1 = "SELECT 清單, 連線 FROM 工程責任表 WHERE (合約編號 LIKE '" & PA5 & "')" : CmdSet_For_DGV()

  276.     End Sub

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

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

  279.     End Sub

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

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

  282.     End Sub

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

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

  285.     End Sub

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

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

  288.     End Sub

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

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

  291.         ConnOpen_工程SQL()

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

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

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

  295.                 FROM      工程進度表 INNER JOIN

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

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

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

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

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

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

  302.         CmdSet_For_DGV()

  303.     End Sub

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

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

  306.     End Sub

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

  308.         ConnOpen_工程SQL()

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

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

  311.         CmdSet_For_dr()

  312.     End Sub

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

  314.         ConnOpen_工程SQL()

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

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

  317.         CmdSet_For_dr()

  318.     End Sub

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

  320.         ConnOpen_工程SQL()

  321.         SQL1 = "SELECT  *

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

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

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

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

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

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

  328.         CmdSet_For_DGV()

  329.     End Sub

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

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

  332.     End Sub

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

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

  335.     End Sub

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

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

  338.     End Sub

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

  340.     Friend Sub SQL_新工程日報表(工程主管 As String, 結案 As Boolean)

  341.         ConnOpen()

  342.         Dim tf As String : If 結案 = True Then : tf = "AND 合約控制表.結案 LIKE N'1'" : Else : tf = "AND (合約控制表.結案 LIKE N'0'  OR  合約控制表.結案 IS NULL )" : End If

  343.         SQL1 = "SELECT   DISTINCT    合約控制表.合約編號 AS [" & 表頭(156) & "], 合約控制表.結案  AS [" & 表頭(157) & "], 合約控制表.工程主管, [PROJECT-SYS].dbo.工程進度明細表.圖片庫

  344.                         FROM              合約控制表 LEFT OUTER JOIN

  345.                                                     [PROJECT-SYS].dbo.工程進度明細表 ON 

  346.                                                     合約控制表.合約編號 = [PROJECT-SYS].dbo.工程進度明細表.進度流水號  

  347.                         WHERE 工程主管 LIKE N'" & 工程主管 & "'  " & tf & "

  348.                         ORDER BY   合約控制表.合約編號 DESC"

  349.         CmdSet_For_DGV()

  350.     End Sub

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

  352.         ConnOpen_工程SQL()

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

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

  355.                           QQ.圖片庫

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

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

  358.                           FROM    工程進度明細表

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

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

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

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

  363.         CmdSet_For_DGV()

  364.     End Sub

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

  366.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 上午開工, 下午開工, 上午天氣, 下午天氣 FROM 工程日報控制表 WHERE 工程日期 LIKE N'" & PA2 & "' AND 工地主管 LIKE N'" & PA1 & "'" : 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'" & 系統語言 & "' ORDER BY 天氣" : CmdSet_For_dr()

  376.     End Sub

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

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

  379.     End Sub

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

  381.         ConnOpen_工程SQL()

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

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

  384.         CmdSet_For_dr()

  385.     End Sub

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

  387.         ConnOpen_工程SQL()

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

  389.         CmdSet_For_dr()

  390.     End Sub

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

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

  393.     End Sub

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

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

  396.     End Sub

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

  398.         ConnOpen_工程SQL()

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

  400.         CmdSet_For_dr()

  401.     End Sub

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

  403.         ConnOpen_工程SQL()

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

  405.         CmdSet_For_dr()

  406.     End Sub

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

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

  409.     End Sub

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

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

  412.     End Sub

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

  414.         ConnOpen_工程圖庫SQL()

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

  416.     End Sub

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

  418.         ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 工程日報圖庫 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()

  419.         ConnOpen_工程圖庫SQL()

  420.         SQL1 = "SELECT 圖片號 AS Item, 檔案 AS [File.] FROM 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' ORDER BY 圖片號"

  421.         CmdSet_For_DGV()

  422.     End Sub

  423.     Friend Sub SQL_新工程日報_圖片清單(合約編號 As String)

  424.         ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 工程日報圖庫 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()

  425.         ConnOpen_工程圖庫SQL()

  426.         SQL1 = "SELECT 工作內容 AS 日期 , 圖片號 AS Item, 檔案 AS [File.] FROM 工程日報圖庫 WHERE 文件號 LIKE '" & 合約編號 & "'  ORDER BY 工作內容 DESC"

  427.         CmdSet_For_DGV()

  428.     End Sub

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

  430.         ConnOpen_工程圖庫SQL()

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

  432.         CmdSet_For_DGV()

  433.     End Sub

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

  435.         ConnOpen_工程圖庫SQL()

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

  437.         CmdSet_For_dr()

  438.     End Sub

  439. 

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

  441.         ConnOpen_工程圖庫SQL()

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

  443.         CmdSet_For_DGV()

  444.     End Sub

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

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

  447.     End Sub

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

  449.         ConnOpen_工程圖庫SQL()

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

  451.         CmdSet_For_dr_pic()

  452.     End Sub

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

  454.         ConnOpen_工程圖庫SQL()

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

  456.         CmdSet_For_dr_pic()

  457.     End Sub

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

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

  460.     End Sub

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

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

  463.     End Sub

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

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

  466.     End Sub

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

  468.         ConnOpen_工程SQL()

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

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

  471.         CmdSet_For_dr()

  472.     End Sub

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

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

  475.     End Sub

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

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

  478.     End Sub

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

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

  481.     End Sub

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

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

  484.     End Sub

  485. End Module