Module SQL_公司章程管理
    '--------------------------------部門聯絡函申請--------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_聯絡函圖片最後一筆編號查詢()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 項次 FROM 聯絡函圖片 WHERE 聯絡單號 LIKE '" & PA1 & "'  ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_聯絡函圖片入系統()
        ConnOpen_工程圖庫SQL()
        SQL1 = "INSERT INTO 聯絡函圖片 (聯絡單號, 項次, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', 
                BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & PA3 & PA4 & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_聯絡函圖片()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 項次 AS Item, 圖片 AS IMG FROM 聯絡函圖片 WHERE 聯絡單號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_聯絡函圖片讀取()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 圖片 FROM 聯絡函圖片 WHERE 聯絡單號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_姓名_下拉清單()
        ConnOpen() : SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE (部門 LIKE '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 聯絡函單號 AS [" & 表頭(99) & "], 申請部門 AS [" & 表頭(6) & "], 申請人 AS [" & 表頭(19) & "], 申請日期 AS [" & 表頭(20) & "], 
                       聯絡部門 AS [" & 表頭(7) & "], 聯絡人 AS [" & 表頭(4) & "], 主題 AS [" & 表頭(117) & "], 圖片庫 FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部門聯絡函_聯絡事項()
        ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡事項 FROM 部門聯絡函 WHERE 聯絡函單號 LIKE '" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_擬辦()
        ConnOpen_管理SQL() : SQL1 = "SELECT 擬辦 FROM 部門聯絡函 WHERE 聯絡函單號 LIKE '" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_建議()
        ConnOpen_管理SQL() : SQL1 = "SELECT 建議 FROM 部門聯絡函 WHERE 聯絡函單號 LIKE '" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_刪除()
        ConnOpen_管理SQL() : SQL1 = "DELETE FROM 部門聯絡函 WHERE (聯絡函單號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_單號查詢()
        ConnOpen_管理SQL() : SQL1 = "SELECT TOP (1)   聯絡函單號 FROM 部門聯絡函 WHERE (  聯絡函單號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO  部門聯絡函 (聯絡函單號, 申請部門, 申請人, 申請日期, 聯絡部門, 聯絡人, 主題, 聯絡事項, 審核人, 審核日期, 申請核准, 
                                         核准日期, 接收核准, 接收日期, 已作業, 已驗收, 長期執行, 執行部門, 執行人, 擬辦, 建議, 圖片庫) 
                VALUES (N'" & PA1 & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'" & PA2 & "',N'" & PA3 & "',N'',N'',N'',N''
                       ,N'',N'',N'',N'',N'0',N'0',N'0',N'',N'',N'',N'',N'" & PA20 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_修改聯絡事項()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 部門聯絡函 SET  聯絡部門 = N'" & PA2 & "', 執行部門 = N'" & PA3 & "', 聯絡人 = N'" & PA4 & "', 主題 = N'" & PA5 & "', 
                                           聯絡事項 = N'" & PA6 & "' 
                WHERE (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函_修改存檔()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 部門聯絡函 SET  聯絡部門 = N'" & PA2 & "', 聯絡人 = N'" & PA4 & "', 主題 = N'" & PA5 & "', 聯絡事項 = N'" & PA6 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    '--------------------------------部門聯絡函一覽表--------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_部門聯絡函一覽表_清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  聯絡函單號 AS [" & 表頭(99) & "], 申請部門 AS [" & 表頭(6) & "], 申請人 AS [" & 表頭(19) & "], 申請日期 AS [" & 表頭(20) & "], 
                        聯絡部門 AS [" & 表頭(7) & "], 聯絡人 AS [" & 表頭(4) & "], 主題 AS [" & 表頭(117) & "], 已作業 AS [" & 表頭(72) & "], 
                        已驗收 AS [" & 表頭(187) & "], 長期執行 AS [" & 表頭(5) & "], 執行部門, 執行人, 圖片庫 
                FROM    部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部門聯絡函一覽表_已驗收()
        ConnOpen_管理SQL() : SQL1 = "UPDATE 部門聯絡函 SET  已驗收 = N'" & BL1 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函一覽表_已作業()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 部門聯絡函 SET  已作業 = N'" & BL1 & "',  長期執行 = N'" & BL2 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函一覽表_擬辦存檔()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE  部門聯絡函 SET  擬辦 = N'" & PA2 & "', 執行部門 = N'" & PA3 & "', 執行人 = N'" & PA4 & "' WHERE  (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    '--------------------------------部門聯絡函部門主管審核--------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_部門聯絡函部門主管審核_清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 聯絡函單號 AS [" & 表頭(99) & "], 申請部門 AS [" & 表頭(6) & "], 申請人 AS [" & 表頭(19) & "], 申請日期 AS [" & 表頭(20) & "], 
                       聯絡部門 AS [" & 表頭(7) & "], 聯絡人 AS [" & 表頭(4) & "], 主題 AS [" & 表頭(117) & "], 圖片庫 FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部門聯絡函部門主管審核_外發審核()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 部門聯絡函 SET  審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 建議 = N'" & PA2 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函部門主管審核_外發未准()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 部門聯絡函 SET  審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 建議 = N'" & PA2 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函部門主管審核_接收確認()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE  部門聯絡函 SET  接收核准 = N'" & gUserName & "', 接收日期 = N'" & DTP & "', 擬辦 = N'" & PA2 & "', 執行部門 = N'" & PA3 & "', 執行人 = N'" & PA4 & "'
                WHERE  (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函部門主管審核_無法執行()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 部門聯絡函 SET  接收核准 = N'作廢-" & gUserName & "', 接收日期 = N'" & DTP & "', 擬辦 = N'" & PA2 & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    '--------------------------------聯絡函最高主管核准-------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_聯絡函最高主管核准_清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 聯絡函單號 AS [" & 表頭(99) & "], 申請部門 AS [" & 表頭(6) & "], 申請人 AS [" & 表頭(19) & "], 申請日期 AS [" & 表頭(20) & "], 
                       聯絡部門 AS [" & 表頭(7) & "], 聯絡人 AS [" & 表頭(4) & "], 主題 AS [" & 表頭(117) & "], 執行部門, 執行人, 圖片庫 
                FROM   部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_聯絡函最高主管核准_審核()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 部門聯絡函 SET  申請核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_聯絡函最高主管核准_未准()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 部門聯絡函 SET  申請核准 = N'作廢-" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (聯絡函單號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    '--------------------------------會議記錄-------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_會議記錄清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 會議編號, 時間 AS [" & 表頭(116) & "], 地點, 會議項目 AS [" & 表頭(155) & "], 細項說明, 執行時間 AS [" & 表頭(10) & "], 執行情況 AS [" & 表頭(17) & "], 
                       預計完成 AS [" & 表頭(3) & "], 備註 AS [" & 表頭(14) & "], 已完成 AS [" & 表頭(159) & "], 長期執行 AS [" & 表頭(5) & "], 圖片庫 
                FROM   會議記錄控制表 " & SQL2 & " ORDER BY 時間 DESC, 會議編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議記錄_單號查詢()
        ConnOpen_管理SQL() : SQL1 = "SELECT TOP (1) 會議編號 FROM 會議記錄控制表 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄_會議地點()
        ConnOpen_管理SQL() : SQL1 = "SELECT 地點 FROM 會議記錄控制表 GROUP BY 地點 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 & "', N'" & PA8 & "', 
                        N'" & PA9 & "', N'" & BL1 & "', N'" & BL2 & "', N'" & PA10 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 會議記錄控制表 SET 時間 = N'" & PA2 & "', 地點 = N'" & PA3 & "', 會議項目 = N'" & PA4 & "', 細項說明 = N'" & PA5 & "', 執行時間 = N'" & PA6 & "', 
                                          執行情況 = N'" & PA7 & "', 預計完成 = N'" & PA8 & "', 備註 = N'" & PA9 & "', 已完成 = N'" & BL1 & "', 長期執行 = N'" & BL2 & "'
                WHERE (會議編號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄刪除()
        ConnOpen_管理SQL() : SQL1 = "DELETE 會議記錄控制表 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
        ConnOpen_管理SQL() : SQL1 = "DELETE 會議決議執行人 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
        ConnOpen_工程圖庫SQL() : SQL1 = "DELETE 會議記錄圖片 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄_執行時間_下拉清單()
        ConnOpen_管理SQL() : SQL1 = "SELECT 執行時間 FROM 會議記錄控制表 WHERE 執行時間 NOT LIKE '' GROUP BY 執行時間 ORDER BY 執行時間" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄_預計完成_下拉清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 預計完成 FROM 會議記錄控制表 
                WHERE 預計完成 NOT LIKE '' AND 預計完成 NOT LIKE '1%' AND 預計完成 NOT LIKE '2%' AND 預計完成 NOT LIKE '3%' AND 預計完成 NOT LIKE '4%' AND 
                      預計完成 NOT LIKE '5%' AND 預計完成 NOT LIKE '6%' AND 預計完成 NOT LIKE '7%' AND 預計完成 NOT LIKE '8%' AND 預計完成 NOT LIKE '9%' AND 
                      預計完成 NOT LIKE '0%' GROUP BY 預計完成 ORDER BY 預計完成"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄_執行情況_下拉清單()
        ConnOpen_管理SQL() : SQL1 = "SELECT 執行情況 FROM 會議記錄控制表 WHERE 執行情況 NOT LIKE '' GROUP BY 執行情況 ORDER BY 執行情況" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄_姓名_下拉清單()
        ConnOpen() : SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE (部門 NOT LIKE '9.%') ORDER BY 部門" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議決議執行人_單號查詢()
        ConnOpen_管理SQL() : SQL1 = "SELECT TOP (1) 會議編號 FROM 會議決議執行人 WHERE (會議編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議決議執行人新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO  會議決議執行人 (會議編號, 項次, 執行人) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議決議執行人刪除()
        ConnOpen_管理SQL() : SQL1 = "DELETE 會議決議執行人 WHERE 會議編號 LIKE '" & PA1 & "' AND 執行人 LIKE N'" & PA3 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議決議執行人()
        ConnOpen_管理SQL() : SQL1 = "SELECT 項次, 執行人 FROM 會議決議執行人 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議圖片()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 項次 AS Item FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議圖片最後一筆編號查詢()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 項次 FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議圖片入系統()
        ConnOpen_工程圖庫SQL()
        SQL1 = "INSERT INTO 會議記錄圖片 (會議編號, 項次, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', 
                BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 會議記錄.檔案名稱_tb.Text & 會議記錄.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議圖片讀取()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 圖片 FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
End Module