GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Наблюдаван 4
Харесван 0
Разклонения 0
Код Задачи 0 Заявки за сливане 0 Версии 0 Уики Activity
Няма описание
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.
19 Ревизии
1 Клон
ИН на ревизия: a1dbb4b61b
Клонове Маркери
${ item.name }
Create branch ${ searchTerm }
от 'a1dbb4b61b'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/SQL_工程系統管理.vb

SQL_工程系統管理.vb 33KB
История Директен файл

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444 
  1. Module SQL_工程系統管理

  2. 

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

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

  5.     End Sub

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

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

  8.     End Sub

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

  10.         ConnOpen_ERP()

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

  12.         CmdSet_For_dr()

  13.     End Sub

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

  15.         ConnOpen_ERP()

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

  17.         CmdSet_For_dr()

  18.     End Sub

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

  20.         ConnOpen_ERP()

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

  22.         CmdSet_For_dr()

  23.     End Sub

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

  25.         ConnOpen_ERP()

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

  27.         CmdSet_For_dr()

  28.     End Sub

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

  30.         ConnOpen_ERP()

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

  32.         CmdSet_For_dr()

  33.     End Sub

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

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

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

  37.     End Sub

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

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

  40.     End Sub

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

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

  43.     End Sub

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

  45.         ConnOpen_工程SQL()

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

  47.         CmdSet_For_dr()

  48.     End Sub

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

  50.         ConnOpen_工程SQL()

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

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

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

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

  55.         CmdSet_For_dr()

  56.     End Sub

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

  58.         ConnOpen_工程SQL()

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

  60.         CmdSet_For_dr()

  61.     End Sub

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

  63.         ConnOpen_工程SQL()

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

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

  66.         CmdSet_For_dr()

  67.     End Sub

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

  69.         ConnOpen_工程SQL()

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

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

  72.         CmdSet_For_dr()

  73.     End Sub

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

  75.         ConnOpen_工程SQL()

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

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

  78.         CmdSet_For_dr()

  79.     End Sub

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

  81.         ConnOpen_工程SQL()

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

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

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

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

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

  87.         CmdSet_For_dr()

  88.     End Sub

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

  90.         ConnOpen_工程SQL()

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

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

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

  94.         CmdSet_For_dr()

  95.     End Sub

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

  97.         ConnOpen_工程SQL()

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

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

  100.         CmdSet_For_dr()

  101.     End Sub

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

  103.         ConnOpen_工程SQL()

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

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

  106.         CmdSet_For_dr()

  107.     End Sub

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

  109.         ConnOpen_工程SQL()

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

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

  112.         CmdSet_For_dr()

  113.     End Sub

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

  115.         ConnOpen_ERP()

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

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

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

  119.         CmdSet_For_dr()

  120.     End Sub

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

  122.         ConnOpen_ERP()

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

  124.                                            SINGLE_BLOB) AS EMPLOYEEPICTURE

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

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

  127.         CmdSet_For_dr()

  128.     End Sub

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

  130.         ConnOpen_工程SQL()

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

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

  133.         CmdSet_For_DGV()

  134.     End Sub

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

  136.         ConnOpen_工程SQL()

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

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

  139.                 ORDER BY   語言"

  140.         CmdSet_For_DGV()

  141.     End Sub

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

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

  144.     End Sub

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

  146.         ConnOpen_ERP()

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

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

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

  150.         CmdSet_For_DGV()

  151.     End Sub

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

  153.         ConnOpen_工程SQL()

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

  155.                 FROM      合約文檔操作紀錄

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

  157.                 ORDER BY  時間 DESC"

  158.         CmdSet_For_DGV()

  159.     End Sub

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

  161.         ConnOpen_工程SQL()

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

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

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

  165.         CmdSet_For_dr()

  166.     End Sub

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

  168.         ConnOpen_工程SQL()

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

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

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

  172.         CmdSet_For_dr()

  173.     End Sub

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

  175.         ConnOpen_ERP()

  176.         SQL1 = "DELETE 合約文檔        

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

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

  179.         CmdSet_For_dr()

  180.     End Sub

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

  182.         ConnOpen_工程SQL()

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

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

  185.         CmdSet_For_dr()

  186.     End Sub

  187. 

  188.     '-------------------------工程進度表----------------------------------------------------------------------------dbo-------------------------------------

  189.     Friend Sub SQL_進度清單()

  190.         ConnOpen_ERP()

  191.         If PA = "" Then

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

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

  194.                               工程責任表.間距

  195.                     FROM      工程進度表 INNER JOIN

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

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

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

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

  200.                               工程責任表.間距

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

  202.         Else

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

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

  205.                               工程責任表.間距

  206.                     FROM      工程進度表 INNER JOIN

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

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

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

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

  211.                               工程責任表.間距

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

  213.         End If

  214.         CmdSet_For_DGV()

  215.     End Sub

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

  217.         ConnOpen()

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

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

  220.                          (SELECT  姓名, 帳號, 時效, 授權  FROM    系統跨部門權限表   WHERE  (授權 = 1)

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

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

  223.         CmdSet_For_dr()

  224.     End Sub

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

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

  227.     End Sub

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

  229.         ConnOpen_ERP()

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

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

  232.         CmdSet_For_dr()

  233.     End Sub

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

  235.         ConnOpen_ERP()

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

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

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

  239.         CmdSet_For_dr()

  240.     End Sub

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

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

  243.     End Sub

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

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

  246.     End Sub

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

  248.         ConnOpen_ERP()

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

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

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

  252.         CmdSet_For_dr()

  253.     End Sub

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

  255.         ConnOpen_ERP()

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

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

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

  259.         CmdSet_For_dr()

  260.     End Sub

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

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

  263.     End Sub

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

  265.         ConnOpen_ERP()

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

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

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

  269.                            工程進度表.紫

  270.                 FROM       工程進度表 LEFT OUTER JOIN

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

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

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

  274. 

  275.         CmdSet_For_DGV()

  276.     End Sub

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

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

  279.     End Sub

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

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

  282.     End Sub

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

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

  285.     End Sub

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

  287.         ConnOpen_ERP() : 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_工程日報表()

  341.         ConnOpen_工程SQL()

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

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

  344.                           QQ.圖片庫

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

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

  347.                           FROM    工程進度明細表

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

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

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

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

  352.         CmdSet_For_DGV()

  353.     End Sub

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

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

  356.     End Sub

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

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

  359.     End Sub

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

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

  362.     End Sub

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

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

  365.     End Sub

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

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

  368.     End Sub

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

  370.         ConnOpen_工程SQL()

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

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

  373.         CmdSet_For_dr()

  374.     End Sub

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

  376.         ConnOpen_工程SQL()

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

  378.         CmdSet_For_dr()

  379.     End Sub

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

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

  382.     End Sub

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

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

  385.     End Sub

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

  387.         ConnOpen_工程SQL()

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

  389.         CmdSet_For_dr()

  390.     End Sub

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

  392.         ConnOpen_工程SQL()

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

  394.         CmdSet_For_dr()

  395.     End Sub

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

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

  398.     End Sub

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

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

  401.     End Sub

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

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

  404.     End Sub

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

  406.         ConnOpen_ERP()

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

  408.         CmdSet_For_dr()

  409.     End Sub

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

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

  412.     End Sub

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

  414.     '    ConnOpen_ERP()

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

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

  417.     '    CmdSet_For_dr()

  418.     'End Sub

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

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

  421.     End Sub

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

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

  424.     End Sub

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

  426.         ConnOpen_ERP()

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

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

  429.         CmdSet_For_dr()

  430.     End Sub

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

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

  433.     End Sub

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

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

  436.     End Sub

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

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

  439.     End Sub

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

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

  442.     End Sub

  443. End Module