Module SQL_工程系統管理 Friend Sub SQL_工程圖片資料庫管理查詢1() ConnOpen_ERP() : SQL1 = "SELECT 工程圖片資料庫, 是否可用 FROM 工程圖片資料庫管理 WHERE 工程圖片資料庫 LIKE N'" & 系統通用變數管理.圖片資料庫名稱_tb.Text & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程文件資料庫管理查詢1() ConnOpen_ERP() : SQL1 = "SELECT 工程文件資料庫, 是否可用 FROM 工程文件資料庫管理 WHERE 工程文件資料庫 LIKE N'" & 系統通用變數管理.文件資料庫名稱_tb.Text & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程圖片資料庫管理查詢新增() ConnOpen_ERP() SQL1 = "INSERT INTO 工程圖片資料庫管理 (工程圖片資料庫, 是否可用) VALUES ('" & 系統通用變數管理.圖片資料庫名稱_tb.Text & "','" & 系統通用變數管理.是否可用_ch.Checked & "')" CmdSet_For_dr() End Sub Friend Sub SQL_工程文件資料庫管理查詢新增() ConnOpen_ERP() SQL1 = "INSERT INTO 工程文件資料庫管理 (工程文件資料庫, 是否可用) VALUES ('" & 系統通用變數管理.文件資料庫名稱_tb.Text & "','" & 系統通用變數管理.是否可用1_ch.Checked & "')" CmdSet_For_dr() End Sub Friend Sub SQL_工程圖片資料庫管理查詢修改() ConnOpen_ERP() SQL1 = "UPDATE 工程圖片資料庫管理 SET 是否可用 = '" & 系統通用變數管理.是否可用_ch.Checked & "' WHERE 工程圖片資料庫 LIKE N'" & 系統通用變數管理.圖片資料庫名稱_tb.Text & "'" CmdSet_For_dr() End Sub Friend Sub SQL_工程文件資料庫管理查詢修改() ConnOpen_ERP() SQL1 = "UPDATE 工程文件資料庫管理 SET 是否可用 = '" & 系統通用變數管理.是否可用1_ch.Checked & "' WHERE 工程文件資料庫 LIKE N'" & 系統通用變數管理.文件資料庫名稱_tb.Text & "'" CmdSet_For_dr() End Sub Friend Sub SQL_資料庫大小查驗() ConnOpen_ERP() SQL1 = "SELECT size * 8.0 / 1024 AS '大小' FROM sys.master_files WHERE (DB_NAME(database_id) LIKE N'" & PA & "')" CmdSet_For_dr() End Sub '-------------------------合約文件圖庫管理------------------------------------------------------------------------------------------------------------------ Friend Sub SQL_合約工程文件資料庫管理查詢2() ConnOpen_工程SQL() : SQL1 = "SELECT 工程文件資料庫, 是否可用 FROM 工程文件資料庫管理 WHERE 是否可用 = 0 ORDER BY 工程文件資料庫" : CmdSet_For_DGV() End Sub Friend Sub SQL_合約工程文檔_文件號查詢() ConnOpen_工程SQL() : SQL1 = "SELECT TOP (1) 文件號 FROM 合約文檔控制表 ORDER BY 文件號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_版本號查詢() ConnOpen_工程SQL() : SQL1 = "SELECT TOP (1) 版次 FROM 合約文檔控制表 WHERE 文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "' ORDER BY 版次 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文件資料庫管理查詢修改1() ConnOpen_工程SQL() SQL1 = "UPDATE 工程文件資料庫管理 SET 是否可用 = 1 WHERE 工程文件資料庫 LIKE N'" & PA & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔控制表_新增() ConnOpen_工程SQL() SQL1 = "INSERT INTO 合約文檔控制表 ( 合約號, 文件號, 文檔類型, 檔案名稱, 副檔名, 版次, 上傳日期, 上傳人員, 圖庫) VALUES (N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'" & 合約文件圖庫管理.文檔類型_cb.Text & "', N'" & 合約文件圖庫管理.檔案名稱_tb.Text & "', N'" & 合約文件圖庫管理.副檔名_tb.Text & "', N'" & 合約文件圖庫管理.版本_tb.Text & "', N'" & 合約文件圖庫管理.上傳日期_dtp.Text & "', N'" & gUserName & "', '" & 圖片庫 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_檔案說明檢查() ConnOpen_工程SQL() SQL1 = "SELECT 文件號 FROM 合約文檔說明 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') GROUP BY 文件號" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_檔案說明新增1() ConnOpen_工程SQL() SQL1 = "INSERT INTO 合約文檔說明 (合約號, 文件號, 語言, 文檔說明) VALUES (N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'繁體中文', N'" & 合約文件圖庫管理.文檔說明1_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_檔案說明新增2() ConnOpen_工程SQL() SQL1 = "INSERT INTO 合約文檔說明 (合約號, 文件號, 語言, 文檔說明) VALUES (N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'English', N'" & 合約文件圖庫管理.文檔說明2_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_檔案說明新增3() ConnOpen_工程SQL() SQL1 = "INSERT INTO 合約文檔說明 (合約號, 文件號, 語言, 文檔說明) VALUES (N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'Indonesian', N'" & 合約文件圖庫管理.文檔說明3_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔控制表_修改() ConnOpen_工程SQL() SQL1 = "UPDATE 合約文檔控制表 SET 文檔類型 = N'" & 合約文件圖庫管理.文檔類型_cb.Text & "', 檔案名稱 = N'" & 合約文件圖庫管理.檔案名稱_tb.Text & "', 副檔名 = N'" & 合約文件圖庫管理.副檔名_tb.Text & "', 上傳日期 = N'" & 合約文件圖庫管理.上傳日期_dtp.Text & "', 上傳人員 = N'" & gUserName & "' WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔控制表_修改1() ConnOpen_工程SQL() SQL1 = "UPDATE 合約文檔控制表 SET 文檔類型 = N'" & 合約文件圖庫管理.文檔類型_cb.Text & "' WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_檔案說明修改1() ConnOpen_工程SQL() SQL1 = "UPDATE 合約文檔說明 SET 文檔說明 = N'" & 合約文件圖庫管理.文檔說明1_tb.Text & "' WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (語言 LIKE N'繁體中文')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_檔案說明修改2() ConnOpen_工程SQL() SQL1 = "UPDATE 合約文檔說明 SET 文檔說明 = N'" & 合約文件圖庫管理.文檔說明2_tb.Text & "' WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (語言 LIKE N'English')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_檔案說明修改3() ConnOpen_工程SQL() SQL1 = "UPDATE 合約文檔說明 SET 文檔說明 = N'" & 合約文件圖庫管理.文檔說明3_tb.Text & "' WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (語言 LIKE N'Indonesian')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_文檔入系統() ConnOpen_ERP() SQL1 = "INSERT INTO 合約文檔 (合約號, 文件號, 版次, 文檔) SELECT N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'" & 合約文件圖庫管理.版本_tb.Text & "', BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 合約文件圖庫管理.檔案名稱_tb.Text & 合約文件圖庫管理.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_文檔修改() ConnOpen_ERP() SQL1 = "UPDATE 合約文檔 SET 文檔 = BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 合約文件圖庫管理.檔案名稱_tb.Text & 合約文件圖庫管理.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔控制表() ConnOpen_工程SQL() SQL1 = "SELECT 文件號, 文檔類型, 檔案名稱, 副檔名, 版次, 上傳日期, 上傳人員, 圖庫 FROM 合約文檔控制表 WHERE 合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "' ORDER BY 文件號 DESC, 版次 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_合約工程文檔說明() ConnOpen_工程SQL() SQL1 = "SELECT 語言, 文檔說明 FROM 合約文檔說明 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') ORDER BY 語言" CmdSet_For_DGV() End Sub Friend Sub SQL_檔案類型下拉清單() ConnOpen_工程SQL() : SQL1 = "SELECT 文檔類型 FROM 合約文檔控制表 GROUP BY 文檔類型 ORDER BY 文檔類型" : CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_文檔下載() ConnOpen_ERP() SQL1 = "SELECT 文檔 FROM 合約文檔 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')" CmdSet_For_DGV() End Sub Friend Sub SQL_合約工程文檔操作紀錄() ConnOpen_工程SQL() SQL1 = "SELECT 版次, 人員, 動作, 時間 FROM 合約文檔操作紀錄 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') ORDER BY 時間 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_合約工程文檔操作紀錄_新增() ConnOpen_工程SQL() SQL1 = "INSERT INTO 合約文檔操作紀錄 (合約號, 文件號, 版次, 人員, 動作, 時間) SELECT N'" & 合約文件圖庫管理.合約號_tb.Text & "', N'" & 合約文件圖庫管理.文件號_tb.Text & "', N'" & 合約文件圖庫管理.版本_tb.Text & "', N'" & gUserName & "', N'" & PA43 & "', N'" & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss:fff") & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔控制表_刪除() ConnOpen_工程SQL() SQL1 = "DELETE 合約文檔控制表 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔_刪除() ConnOpen_ERP() SQL1 = "DELETE 合約文檔 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "') AND (版次 LIKE N'" & 合約文件圖庫管理.版本_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約工程文檔說明_刪除() ConnOpen_工程SQL() SQL1 = "DELETE 合約文檔說明 WHERE (合約號 LIKE N'" & 合約文件圖庫管理.合約號_tb.Text & "') AND (文件號 LIKE N'" & 合約文件圖庫管理.文件號_tb.Text & "')" CmdSet_For_dr() End Sub '-------------------------工程進度表----------------------------------------------------------------------------dbo------------------------------------- Friend Sub SQL_進度清單() ConnOpen_ERP() If PA = "" Then SQL1 = "SELECT 工程責任表.合約編號, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 工程責任表.工程名稱_中, 工程責任表.工程名稱_英, 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 工程責任表.間距 FROM 工程進度表 INNER JOIN 工程責任表 ON 工程進度表.合約編號 = 工程責任表.合約編號 WHERE (工程進度表.甲方 LIKE N'%" & PA46 & "%') GROUP BY 工程進度表.合約編號, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 工程責任表.合約編號, 工程責任表.工程名稱_中, 工程責任表.工程名稱_英, 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 工程責任表.間距 ORDER BY 工程進度表.甲方, 工程進度表.立約號 DESC, 工程進度表.序號 DESC" Else SQL1 = "SELECT 工程責任表.合約編號, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 工程責任表.工程名稱_中, 工程責任表.工程名稱_英, 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 工程責任表.間距 FROM 工程進度表 INNER JOIN 工程責任表 ON 工程進度表.合約編號 = 工程責任表.合約編號 WHERE (工程責任表.合約編號 LIKE N'%" & PA & "%') AND (工程進度表.甲方 LIKE N'%" & PA46 & "%') GROUP BY 工程進度表.合約編號, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 工程責任表.合約編號, 工程責任表.工程名稱_中, 工程責任表.工程名稱_英, 工程責任表.項目負責, 工程責任表.開始日期, 工程責任表.結束日期, 工程責任表.間距 ORDER BY 工程進度表.甲方, 工程進度表.立約號 DESC, 工程進度表.序號 DESC" End If CmdSet_For_DGV() End Sub Friend Sub SQL執行主管下拉() ConnOpen() SQL1 = "SELECT 使用者權限管理表.姓名, 使用者權限管理表.帳號, 使用者權限管理表.職稱 FROM 使用者權限管理表 RIGHT OUTER JOIN (SELECT 姓名, 帳號, 時效, 授權 FROM 系統跨部門權限表 WHERE (授權 = 1) GROUP BY 姓名, 帳號, 時效, 授權) AS QQ ON 使用者權限管理表.姓名 = QQ.姓名 ORDER BY 使用者權限管理表.職稱" CmdSet_For_dr() End Sub Friend Sub SQL_工程責任表_最後一筆資料() ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 流水號 FROM 工程責任表 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_工程責任表_新增資料() ConnOpen_ERP() SQL1 = "INSERT INTO 工程責任表 (流水號, 合約編號, 項目負責, 人員帳號, 人員職稱, 工程名稱_中, 工程名稱_英, 開始日期, 結束日期, 間距) VALUES (N'" & PA9 & "', N'" & PA & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA1 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_工程責任表_修改資料() ConnOpen_ERP() SQL1 = "UPDATE 工程責任表 SET 項目負責 = N'" & PA2 & "', 人員帳號 = N'" & PA3 & "', 人員職稱 = N'" & PA4 & "', 工程名稱_中 = N'" & PA5 & "', 工程名稱_英 = N'" & PA6 & "', 開始日期 = N'" & PA7 & "', 結束日期 = N'" & PA8 & "', 間距 = N'" & PA1 & "' WHERE 合約編號 LIKE '" & PA & "'" CmdSet_For_dr() End Sub Friend Sub SQL_工程進度表_最後一筆資料() ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 流水號 FROM 工程進度表 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_工程責任表_資料重複認證() ConnOpen_ERP() : SQL1 = "SELECT 流水號 FROM 工程責任表 WHERE 合約編號 LIKE '" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度表_新增資料() ConnOpen_ERP() SQL1 = "INSERT INTO 工程進度表 (流水號, 合約編號, 排序, 項次, 項目, 預計開始, 預計天數, 預計結束, 乙方, 甲方, 立約號, 序號, 紅, 黃, 綠, 藍, 紫) VALUES (N'" & PA9 & "', N'" & PA & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA12 & "', N'" & PA10 & "', N'" & PA11 & "', '0', '0', '1', '0', '0')" CmdSet_For_dr() End Sub Friend Sub SQL_工程進度表_修改資料() ConnOpen_ERP() SQL1 = "UPDATE 工程進度表 SET 排序 = N'" & PA2 & "', 項次 = N'" & PA3 & "', 項目 = N'" & PA4 & "', 預計開始 = N'" & PA5 & "', 預計天數 = N'" & PA6 & "', 預計結束 = N'" & PA7 & "', 紅 = '" & BL1 & "', 藍 = '" & BL2 & "', 綠 = '" & BL3 & "', 黃 = '" & BL4 & "', 紫 = '" & BL5 & "' WHERE (流水號 LIKE N'" & PA9 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_工程進度表_刪除資料() ConnOpen_ERP() : SQL1 = "DELETE 工程進度表 WHERE (流水號 LIKE N'" & PA9 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_進度明細清單() ConnOpen_ERP() SQL1 = "SELECT 工程進度表.流水號, 工程進度表.合約編號, 工程進度表.排序, 工程進度表.項次, 工程進度表.項目, 工程進度表.預計開始, 工程進度表.預計天數, 工程進度表.預計結束, 工程進度表.乙方, 工程進度表.甲方, 工程進度表.立約號, 工程進度表.序號, 工程進度表.紅, 工程進度表.黃, 工程進度表.綠, 工程進度表.藍, 工程進度表.紫 FROM 工程進度表 LEFT OUTER JOIN [HX-GPS-ERP-SYS].dbo.HX空白圖片 ON 工程進度表.流水號 = [HX-GPS-ERP-SYS].dbo.HX空白圖片.選擇 WHERE (工程進度表.合約編號 LIKE '" & PA & "') ORDER BY 工程進度表.排序" CmdSet_For_DGV() End Sub Friend Sub SQL_工程進度表_最後一筆排序() ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 排序 FROM 工程進度表 WHERE 合約編號 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度表_刪除總表1() ConnOpen_ERP() : SQL1 = "DELETE 工程進度表 WHERE (合約編號 LIKE N'" & PA & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度表_刪除總表2() ConnOpen_ERP() : SQL1 = "DELETE 工程責任表 WHERE (合約編號 LIKE N'" & PA & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度表_刪除總表3() ConnOpen_ERP() : SQL1 = "DELETE 工程人員統計表 WHERE (合約編號 LIKE N'" & PA & "')" : CmdSet_For_dr() End Sub '--------------------------------------派工人數紀錄表--------------------------------------------------------------------------------------------------------------- Friend Sub SQL_派工人數紀錄表() ConnOpen_工程SQL() SQL1 = "SELECT 工程進度表.專案結束 AS [" & 表頭(0) & "], 工程進度表.流水號 AS 專案流水, 工程責任表.項目負責, 工程進度表.排序, 工程進度表.合約編號 AS [" & 表頭(134) & "], 工程進度表.項次 AS [" & 表頭(11) & "], 工程進度表.項目 AS [" & 表頭(155) & "], 工程進度表.預計開始 AS [" & 表頭(1) & "], 工程進度表.預計天數 AS [" & 表頭(2) & "], 工程進度表.預計結束 AS [" & 表頭(3) & "], 工程進度表.預計結束 AS [" & 表頭(73) & "], QQ.案件主管, QQ.人員 AS [" & 表頭(15) & "], QQ.流水號, QQ.人員 AS 原始 FROM 工程進度表 INNER JOIN 工程責任表 ON 工程進度表.合約編號 = 工程責任表.合約編號 LEFT OUTER JOIN (SELECT 流水號, 進度流水號, 人員, 案件主管, 合約編號 FROM 工程人員統計表 WHERE (年 LIKE N'" & PA2 & "') AND (月 LIKE N'" & PA3 & "') AND (日 LIKE N'" & PA4 & "')) AS QQ ON 工程進度表.流水號 = QQ.進度流水號 WHERE (工程責任表.項目負責 LIKE N'" & PA1 & "') " & SQL2 & " AND (工程進度表.合約編號 LIKE '%" & PA5 & "%') ORDER BY 工程進度表.合約編號, 工程進度表.排序" CmdSet_For_DGV() End Sub Friend Sub SQL_人員統計表_最後一筆資料() ConnOpen_工程SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 工程人員統計表 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_人員統計表_新增資料() ConnOpen_工程SQL() SQL1 = "INSERT INTO 工程人員統計表 (流水號, 進度流水號, 年, 月, 日, 周, 人員, 案件主管, 合約編號) VALUES (N'" & PA9 & "', N'" & PA & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_人員統計表_修改資料() ConnOpen_工程SQL() SQL1 = "UPDATE 工程人員統計表 SET 進度流水號 = N'" & PA & "', 年 = N'" & PA2 & "', 月 = N'" & PA3 & "', 日 = N'" & PA4 & "', 人員 = N'" & PA6 & "', 案件主管 = N'" & PA7 & "' WHERE (流水號 LIKE N'" & PA9 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_人員統計彙總表() ConnOpen_工程SQL() SQL1 = "SELECT * FROM (SELECT 工程進度表.排序, 工程人員統計表.合約編號 AS [" & 表頭(134) & "], 工程進度表.項次 AS [" & 表頭(11) & "], 工程進度表.項目 AS [" & 表頭(155) & "], 工程進度表.項目 AS [" & 表頭(83) & "], 工程人員統計表.日, 工程人員統計表.人員 FROM 工程人員統計表 INNER JOIN 工程進度表 ON 工程人員統計表.進度流水號 = 工程進度表.流水號 INNER JOIN 工程責任表 ON 工程人員統計表.合約編號 = 工程責任表.合約編號 WHERE (工程人員統計表.年 LIKE '" & PA5 & "') AND (工程人員統計表.月 LIKE '" & PA6 & "') AND (工程人員統計表.合約編號 LIKE '%%') AND (工程責任表.項目負責 LIKE '%" & PA7 & "%')) AS X PIVOT (SUM(人員) FOR 日 IN (" & 清單列表 & ")) AS PVT ORDER BY [" & 表頭(134) & "], 排序" CmdSet_For_DGV() End Sub Friend Sub SQL_派工日期人數() ConnOpen_工程SQL() : SQL1 = "SELECT 日, SUM(人員) AS 人數 FROM 工程人員統計表 WHERE (年 LIKE '" & PA5 & "') AND (月 LIKE '" & PA6 & "') GROUP BY 日" : CmdSet_For_DGV() End Sub Friend Sub SQL_進度表清單() ConnOpen_工程SQL() : SQL1 = "SELECT 合約編號 FROM 工程進度表 WHERE (合約編號 LIKE '%" & PA & "%') GROUP BY 合約編號" : CmdSet_For_DGV() End Sub Friend Sub SQL_工程進度表_派工開關() ConnOpen_工程SQL() : SQL1 = "UPDATE 工程進度表 SET 專案結束 = '" & BL1 & "' WHERE (流水號 LIKE N'" & PA & "')" : CmdSet_For_dr() End Sub '--------------------------------------工程日報表--------------------------------------------------------------------------------------------------------------- Friend Sub SQL_工程日報表() ConnOpen_工程SQL() SQL1 = "SELECT 工程日報項目表.流水號, 工程日報項目表.工地 AS [" & 表頭(75) & "], 工程日報項目表.排序, 工程日報項目表.項次 AS [" & 表頭(11) & "], 工程日報項目表.項目 AS [" & 表頭(155) & "], 工程日報項目表.開始日期, 工程日報項目表.結束日期, QQ.建檔 AS [" & 表頭(28) & "], QQ.工作說明, QQ.圖片庫 FROM 工程日報項目表 LEFT OUTER JOIN (SELECT 進度流水號, 工程日期, 工作說明, 建檔, 圖片庫 FROM 工程進度明細表 WHERE (工程日期 LIKE '" & PA2 & "')) AS QQ ON 工程日報項目表.流水號 = QQ.進度流水號 WHERE (工程日報項目表.開始日期 BETWEEN 工程日報項目表.開始日期 AND '" & PA2 & "') AND (工程日報項目表.結束日期 BETWEEN '" & PA2 & "' AND 工程日報項目表.結束日期) AND (工程日報項目表.工地主管 LIKE N'" & PA1 & "') ORDER BY 工程日報項目表.工地, 工程日報項目表.項目" CmdSet_For_DGV() End Sub Friend Sub SQL_讀取工程日報控制() ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 上午開工, 下午開工, 上午天氣, 下午天氣 FROM 工程日報控制表 WHERE 工程日期 LIKE N'" & PA2 & "' AND 工地主管 LIKE N'" & PA1 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_上午控制_下拉清單() ConnOpen_工程SQL() : SQL1 = "SELECT 上下午 FROM 工程進度_時間 WHERE 時段 LIKE N'上午' ORDER BY 上下午" : CmdSet_For_dr() End Sub Friend Sub SQL_下午控制_下拉清單() ConnOpen_工程SQL() : SQL1 = "SELECT 上下午 FROM 工程進度_時間 WHERE 時段 LIKE N'下午' ORDER BY 上下午" : CmdSet_For_dr() End Sub Friend Sub SQL_天氣控制_下拉清單() ConnOpen_工程SQL() : SQL1 = "SELECT 天氣 FROM 工程進度_天氣 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 天氣" : CmdSet_For_dr() End Sub Friend Sub SQL_天氣控制_讀取() ConnOpen_工程SQL() : SQL1 = "SELECT 天氣 FROM 工程進度_天氣 WHERE 編碼 LIKE N'" & PA40 & "' AND 語言 LIKE N'" & 系統語言 & "' ORDER BY 天氣" : CmdSet_For_dr() End Sub Friend Sub SQL_工程日報控制表新增() ConnOpen_工程SQL() SQL1 = "INSERT INTO 工程日報控制表 (流水號, 工程日期, 工地主管, 上午開工, 下午開工, 上午天氣, 下午天氣) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_工程日報控制表修改() ConnOpen_工程SQL() SQL1 = "UPDATE 工程日報控制表 SET 上午開工 = N'" & PA4 & "', 下午開工 = N'" & PA5 & "', 上午天氣 = N'" & PA6 & "', 下午天氣 = N'" & PA7 & "' WHERE 流水號 LIKE N'" & PA1 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_工程日報控制表流水號查詢() ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 FROM 工程日報控制表 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度明細表查詢() ConnOpen_工程SQL() : SQL1 = "SELECT 工作說明, 建檔, 圖片庫 FROM 工程進度明細表 WHERE 進度流水號 LIKE N'" & PA10 & "' AND 工程日期 LIKE '" & PA2 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度明細表新增() ConnOpen_工程SQL() SQL1 = "INSERT INTO 工程進度明細表 (進度流水號, 工程日期, 工作說明, 建檔, 圖片庫) VALUES (N'" & PA10 & "', N'" & PA2 & "', N'" & PA3 & "', '1', N'" & PA5 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_工程進度明細表_工作說明單獨讀取() ConnOpen_工程SQL() SQL1 = "SELECT TOP (1) 工作說明 FROM 工程進度明細表 WHERE (進度流水號 LIKE '" & PA18 & "') ORDER BY 工程日期 DESC" CmdSet_For_dr() End Sub Friend Sub SQL_工程進度明細表修改() ConnOpen_工程SQL() : SQL1 = "UPDATE 工程進度明細表 SET 工作說明 = N'" & PA3 & "' WHERE (進度流水號 LIKE N'" & PA10 & "') AND (工程日期 LIKE N'" & PA2 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度明細表刪除() ConnOpen_工程SQL() : SQL1 = "DELETE 工程進度明細表 WHERE (進度流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_工程日報圖片清單() ConnOpen_ERP() : SQL1 = "SELECT 圖片號 AS Item, 圖片 AS IMG FROM 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' ORDER BY 圖片號" : CmdSet_For_DGV() End Sub Friend Sub SQL_工程日報圖片讀取() ConnOpen_ERP() SQL1 = "SELECT 圖片 FROM 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' AND 圖片號 LIKE '" & PA3 & "' ORDER BY 圖片號 DESC" CmdSet_For_dr() End Sub Friend Sub SQL_工程日報圖片最後一筆編號查詢() ConnOpen_ERP() : SQL1 = "SELECT 圖片號 FROM 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' ORDER BY 圖片號 DESC" : CmdSet_For_dr() End Sub 'Friend Sub SQL_工程日報圖片入系統() ' ConnOpen_ERP() ' SQL1 = "INSERT INTO 工程日報圖庫 (文件號, 工作內容, 圖片號, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', ' BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 工程日報表.檔案名稱_tb.Text & 工程日報表.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE" ' CmdSet_For_dr() 'End Sub Friend Sub SQL_工程日報圖片刪除() ConnOpen_ERP() : SQL1 = "DELETE 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "' AND 工作內容 LIKE '" & PA2 & "' AND 圖片號 LIKE '" & PA3 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程日報圖片刪除_全部() ConnOpen_ERP() : SQL1 = "DELETE 工程日報圖庫 WHERE 文件號 LIKE '" & PA1 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度項目新增() ConnOpen_ERP() SQL1 = "INSERT INTO 工程日報項目表 (流水號, 工地主管, 開始日期, 結束日期, 工地, 項次, 項目) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', '2100/01/01', N'" & PA4 & "', N'', N'" & PA25 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_工程進度項目修改() ConnOpen_ERP() : SQL1 = "UPDATE 工程日報項目表 SET 項目 = N'" & PA25 & "' WHERE 流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度項目刪除() ConnOpen_ERP() : SQL1 = "DELETE 工程日報項目表 WHERE 流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度項目流水號查詢() ConnOpen_ERP() : SQL1 = "SELECT 流水號 FROM 工程日報項目表 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_工程進度項目結案() ConnOpen_ERP() : SQL1 = "UPDATE 工程日報項目表 SET 結束日期 = '" & PA19 & "' WHERE (流水號 LIKE '" & PA1 & "')" : CmdSet_For_dr() End Sub End Module