HX-PGS-ERP-SYS-SIU/0、MyModule/主資料庫/SQL_人事系統管理.vb

Module SQL_人事系統管理
    '---------------------考勤明細表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_考勤級別讀取()
        ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (姓名 LIKE N'" & PA47 & "')" : CmdSet_For_dr()
        If BL = False Then
            ConnOpen()
            If PA = "" Then
                If 在職 = True Then : SQL2 = " WHERE (CC63 = 0)" : Else : SQL2 = " WHERE (CC63 = 1)" : End If
                SQL1 = "SELECT  級別 FROM 使用者權限管理表 " & SQL2 & " GROUP BY 級別 ORDER BY 級別"
            Else
                If 登入人級別 = "00" Then : SQL2 = "" : Else : If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If : End If
                SQL1 = "SELECT    級別 FROM 使用者權限管理表 
                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR 
                                 (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%')) " & SQL2 & "
                        GROUP BY 級別  ORDER BY  級別"
            End If
            CmdSet_For_dr()
        Else
            ConnOpen()
            If PA = "" Then
                If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If
                SQL1 = "SELECT  級別 FROM 使用者權限管理表 
                        WHERE  (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09') " & SQL2 & "  GROUP BY 級別  ORDER BY 級別"
            Else
                SQL1 = "SELECT    級別 FROM 使用者權限管理表 
                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%') AND
                                 (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09')) " & SQL2 & "
                        GROUP BY 級別  ORDER BY  級別"
            End If
            CmdSet_For_dr()
        End If
    End Sub
    Friend Sub SQL_人事考勤明細表查詢()
        ConnOpen_管理SQL() : SQL1 = "SELECT 日期 FROM 人事考勤明細表 WHERE 日期 LIKE N'" & PA15 & "' AND ID卡號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人事考勤明細表修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人事考勤明細表 SET 加班 = '" & BL1 & "', 假別 = N'" & PA17 & "', 備註 = N'" & PA18 & "' WHERE 日期 LIKE N'" & PA15 & "' AND ID卡號 LIKE N'" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人事考勤明細表修改1()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人事考勤明細表 SET " & SQL2 & " = N'" & PA45 & "' WHERE 日期 LIKE N'" & PA15 & "' AND ID卡號 LIKE N'" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人事考勤明細表新增1()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 人事考勤明細表 (ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六) 
                VALUES (N'" & PA1 & "',N'" & PA15 & "',N'" & PA9 & "',N'" & PA10 & "',N'" & PA11 & "',N'" & PA12 & "',N'" & PA13 & "',N'" & PA14 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人事考勤明細表新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 人事考勤明細表 (ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班, 假別, 備註) 
                VALUES (N'" & PA1 & "',N'" & PA15 & "',N'',N'',N'',N'',N'',N'','" & BL1 & "', N'" & PA17 & "', N'" & PA18 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_虛擬考勤明細表新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 虛擬考勤明細表 (帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期) VALUES " & SQL2
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_虛擬考勤明細表刪除()
        ConnOpen_管理SQL()
        SQL1 = "DELETE 虛擬考勤明細表 WHERE 日期 LIKE '" & PA45 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_萬年曆_休假標註()
        ConnOpen_管理SQL() : SQL1 = "UPDATE 萬年曆 SET 假日 = '" & BL1 & "' WHERE 日期 LIKE N'" & PA15 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_考勤查詢清單()
        If 登入人級別 = "02" Then : SQL4 = "使用者權限管理表.級別 LIKE '02' OR 使用者權限管理表.級別 LIKE '03' OR 使用者權限管理表.級別 LIKE '04' OR "
        ElseIf 登入人級別 = "03" Then : SQL4 = "使用者權限管理表.級別 LIKE '03' OR 使用者權限管理表.級別 LIKE '04' OR "
        ElseIf 登入人級別 = "04" Then : SQL4 = "使用者權限管理表.級別 LIKE '04' OR " : Else : SQL4 = "" : End If

        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = ""
        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' "
        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " : End If
        If BL = False Then
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND 
                                                      [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                End If
            Else
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND 
                                                      [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                End If
            End If
            SQL1 = "SELECT      使用者權限管理表.姓名, 使用者權限管理表.ID卡號, DD.MGB, 使用者權限管理表.部門 AS [" & 表頭(19) & "], 使用者權限管理表.級別 AS [" & 表頭(1) & "], 
                                DD.[" & 表頭(2) & "], DD.[" & 表頭(3) & "], DD.第一, DD.第二, DD.第三, 
                                DD.第四, DD.第五, DD.第六, DD.[" & 表頭(4) & "], DD.[" & 表頭(5) & "], DD.[" & 表頭(6) & "], DD.[" & 表頭(7) & "], DD.[" & 表頭(8) & "], 
                                DD.[" & 表頭(9) & "], DD.[" & 表頭(10) & "], DD.[" & 表頭(11) & "], DD.[" & 表頭(12) & "], DD.[" & 表頭(13) & "], DD.[" & 表頭(14) & "], 
                                DD.[" & 表頭(15) & "], DD.[" & 表頭(16) & "], DD.[" & 表頭(17) & "], DD.[" & 表頭(18) & "], DD.[" & 表頭(26) & "], DD.[" & 表頭(27) & "],
                                DD.假別編號
                    FROM        使用者權限管理表 LEFT OUTER JOIN
                               [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 LEFT OUTER JOIN
                               (SELECT  QQ.ID卡號, [HX-PGS-MSN].dbo.萬年曆.星期 AS MGB, [HX-PGS-MSN].dbo.萬年曆.星期 AS [" & 表頭(2) & "], 
                                       [HX-PGS-MSN].dbo.萬年曆.日期 AS [" & 表頭(3) & "], QQ.第一, 
                                        QQ.第二, QQ.第三, QQ.第四, QQ.第五, QQ.第六, QQ.第一 AS [" & 表頭(4) & "], QQ.第一 AS [" & 表頭(5) & "], 
                                        QQ.第一 AS [" & 表頭(6) & "], QQ.第一 AS [" & 表頭(7) & "], QQ.第一 AS [" & 表頭(8) & "], QQ.第一 AS [" & 表頭(9) & "], 
                                        QQ.第一 AS [" & 表頭(10) & "], QQ.第一 AS [" & 表頭(11) & "], QQ.第一 AS [" & 表頭(12) & "], QQ.第一 AS [" & 表頭(13) & "], 
                                        QQ.第一 AS [" & 表頭(14) & "], QQ.第一 AS [" & 表頭(15) & "], QQ.第一 AS [" & 表頭(16) & "], QQ.加班 AS [" & 表頭(17) & "], 
                                       [HX-PGS-MSN].dbo.萬年曆.假日 AS [" & 表頭(18) & "], QQ.假別 AS [" & 表頭(26) & "], QQ.備註 AS [" & 表頭(27) & "], QQ.假別 AS 假別編號
                               FROM    [HX-PGS-MSN].dbo.萬年曆 LEFT OUTER JOIN
                              (SELECT  ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班, 假別, 備註  FROM  [HX-PGS-MSN].dbo.人事考勤明細表) AS QQ ON 
                              [HX-PGS-MSN].dbo.萬年曆.日期 = QQ.日期  WHERE  ([HX-PGS-MSN].dbo.萬年曆.日期 LIKE '" & PA15 & "')) AS DD ON  使用者權限管理表.ID卡號 = DD.ID卡號 " & SQL2 & "
                    ORDER BY   使用者權限管理表.部門, 使用者權限管理表.職稱, 使用者權限管理表.課別, 使用者權限管理表.組別, 使用者權限管理表.姓名"
            CmdSet_For_DGV()
        Else
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                Else
                    SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                End If
            Else
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                Else
                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                End If
            End If
            SQL1 = "SELECT      使用者權限管理表.姓名, 使用者權限管理表.ID卡號, DD.MGB, 使用者權限管理表.部門 AS [" & 表頭(19) & "], 使用者權限管理表.級別 AS [" & 表頭(1) & "], 
                                DD.[" & 表頭(2) & "], DD.[" & 表頭(3) & "], DD.第一, DD.第二, DD.第三, 
                                DD.第四, DD.第五, DD.第六, DD.[" & 表頭(4) & "], DD.[" & 表頭(5) & "], DD.[" & 表頭(6) & "], DD.[" & 表頭(7) & "], DD.[" & 表頭(8) & "], 
                                DD.[" & 表頭(9) & "], DD.[" & 表頭(10) & "], DD.[" & 表頭(11) & "], DD.[" & 表頭(12) & "], DD.[" & 表頭(13) & "], DD.[" & 表頭(14) & "], 
                                DD.[" & 表頭(15) & "], DD.[" & 表頭(16) & "], DD.[" & 表頭(17) & "], DD.[" & 表頭(18) & "], DD.[" & 表頭(26) & "], DD.[" & 表頭(27) & "],
                                DD.假別編號
                    FROM        使用者權限管理表 LEFT OUTER JOIN
                               [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 LEFT OUTER JOIN
                               (SELECT  QQ.ID卡號, [HX-PGS-MSN].dbo.萬年曆.星期 AS MGB, [HX-PGS-MSN].dbo.萬年曆.星期 AS [" & 表頭(2) & "], 
                               [HX-PGS-MSN].dbo.萬年曆.日期 AS [" & 表頭(3) & "], QQ.第一, 
                                        QQ.第二, QQ.第三, QQ.第四, QQ.第五, QQ.第六, QQ.第一 AS [" & 表頭(4) & "], QQ.第一 AS [" & 表頭(5) & "], 
                                        QQ.第一 AS [" & 表頭(6) & "], QQ.第一 AS [" & 表頭(7) & "], QQ.第一 AS [" & 表頭(8) & "], QQ.第一 AS [" & 表頭(9) & "], 
                                        QQ.第一 AS [" & 表頭(10) & "], QQ.第一 AS [" & 表頭(11) & "], QQ.第一 AS [" & 表頭(12) & "], QQ.第一 AS [" & 表頭(13) & "], 
                                        QQ.第一 AS [" & 表頭(14) & "], QQ.第一 AS [" & 表頭(15) & "], QQ.第一 AS [" & 表頭(16) & "], QQ.加班 AS [" & 表頭(17) & "], 
                                       [HX-PGS-MSN].dbo.萬年曆.假日 AS [" & 表頭(18) & "], QQ.假別 AS [" & 表頭(26) & "], QQ.備註 AS [" & 表頭(27) & "], QQ.假別 AS 假別編號
                               FROM    [HX-PGS-MSN].dbo.萬年曆 LEFT OUTER JOIN
                              (SELECT  ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班, 假別, 備註  FROM  [HX-PGS-MSN].dbo.人事考勤明細表) AS QQ ON 
                              [HX-PGS-MSN].dbo.萬年曆.日期 = QQ.日期  WHERE  ([HX-PGS-MSN].dbo.萬年曆.日期 LIKE '" & PA15 & "')) AS DD ON  使用者權限管理表.ID卡號 = DD.ID卡號 
                    WHERE     (" & SQL4 & "使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
                               使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
                    ORDER BY   使用者權限管理表.部門, 使用者權限管理表.職稱, 使用者權限管理表.課別, 使用者權限管理表.組別, 使用者權限管理表.姓名"
            CmdSet_For_DGV()
        End If
    End Sub
    Friend Sub SQL_萬年曆()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  星期 AS MGB, 星期 AS [" & 表頭(2) & "], 日期 AS [" & 表頭(3) & "], 假日 AS [" & 表頭(18) & "]  FROM  萬年曆  
                WHERE  (LEFT(日期, 7) LIKE '" & PA2 & "/" & PA3 & "')  ORDER BY  日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_年分清單()
        ConnOpen_管理SQL() : SQL1 = "SELECT  LEFT(日期, 4) AS 日期  FROM  人事考勤明細表  GROUP BY   LEFT(日期, 4)  ORDER BY  日期 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_考勤虛擬表()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期
                FROM    虛擬考勤明細表  WHERE  (日期 LIKE '" & PA25 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤總明細()
        ConnOpen_管理SQL()
        SQL1 = "SELECT    QQ.ID卡號, 萬年曆.星期 AS MGB, 萬年曆.星期 AS [" & 表頭(2) & "], 萬年曆.日期 AS [" & 表頭(3) & "], QQ.第一, QQ.第二, QQ.第三, QQ.第四, QQ.第五, QQ.第六, 
                          QQ.第一 AS [" & 表頭(4) & "], QQ.第一 AS [" & 表頭(5) & "], QQ.第一 AS [" & 表頭(6) & "], QQ.第一 AS [" & 表頭(7) & "], QQ.第一 AS [" & 表頭(8) & "],
                          QQ.第一 AS [" & 表頭(9) & "], QQ.第一 AS [" & 表頭(10) & "], QQ.第一 AS [" & 表頭(11) & "], QQ.第一 AS [" & 表頭(12) & "], QQ.第一 AS [" & 表頭(13) & "],
                          QQ.第一 AS [" & 表頭(14) & "], QQ.第一 AS [" & 表頭(15) & "], QQ.第一 AS [" & 表頭(16) & "], QQ.加班 AS [" & 表頭(17) & "], 萬年曆.假日 AS [" & 表頭(18) & "]
                FROM      萬年曆 LEFT OUTER JOIN  (SELECT  ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班
                          FROM    人事考勤明細表) AS QQ ON 萬年曆.日期 = QQ.日期
                WHERE    (LEFT(萬年曆.日期, 7) LIKE '" & PA2 & "/" & PA3 & "')
                ORDER BY  LEFT(萬年曆.日期, 7), 萬年曆.日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤明細()
        ConnOpen_管理SQL()
        SQL1 = "SELECT    萬年曆.星期 AS MGB, 萬年曆.星期 AS [" & 表頭(2) & "], 萬年曆.日期 AS [" & 表頭(3) & "], QQ.第一, QQ.第二, QQ.第三, QQ.第四, QQ.第五, QQ.第六, 
                          QQ.第一 AS [" & 表頭(4) & "], QQ.第一 AS [" & 表頭(5) & "], QQ.第一 AS [" & 表頭(6) & "], QQ.第一 AS [" & 表頭(7) & "], QQ.第一 AS [" & 表頭(8) & "],
                          QQ.第一 AS [" & 表頭(9) & "], QQ.第一 AS [" & 表頭(10) & "], QQ.第一 AS [" & 表頭(11) & "], QQ.第一 AS [" & 表頭(12) & "], QQ.第一 AS [" & 表頭(13) & "],
                          QQ.第一 AS [" & 表頭(14) & "], QQ.第一 AS [" & 表頭(15) & "], QQ.第一 AS [" & 表頭(16) & "], QQ.加班 AS [" & 表頭(17) & "], 萬年曆.假日 AS [" & 表頭(18) & "], 
                          QQ.假別 AS [" & 表頭(26) & "], QQ.備註 AS [" & 表頭(27) & "], QQ.假別 AS 假別編號, QQ.假別 AS C_No
                FROM      萬年曆 LEFT OUTER JOIN  (SELECT  ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班, 假別, 備註
                          FROM    人事考勤明細表  WHERE  (ID卡號 LIKE N'" & PA1 & "')) AS QQ ON 萬年曆.日期 = QQ.日期
                WHERE    (LEFT(萬年曆.日期, 7) LIKE '" & PA2 & "/" & PA3 & "')
                ORDER BY  LEFT(萬年曆.日期, 7), 萬年曆.日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員薪資表_群組()
        ConnOpen_管理SQL() : SQL1 = "SELECT 部門名稱 FROM 人員資料表 WHERE 部門名稱 IS NOT NULL AND 部門名稱 NOT LIKE '' GROUP BY 部門名稱 ORDER BY 部門名稱" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資彙總報表_查詢()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 金額 FROM 工人薪資彙總報表 WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資彙總報表_新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 工人薪資彙總報表 (年, 月, 周, 人數, 金額, 特殊) 
                VALUES (N'" & PA25 & "',N'" & PA26 & "',N'" & PA27 & "',N'" & PA28 & "',N'" & PA29 & "',N'" & PA30 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資彙總報表_修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 工人薪資彙總報表 SET 人數 = N'" & PA28 & "', 金額 = N'" & PA29 & "'
                WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員薪資表_修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人員資料表 SET 部門名稱 = N'" & PA30 & "', 群組 = N'" & PA31 & "', 薪資 = N'" & PA32 & "' WHERE 帳號 LIKE N'" & PA33 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資表_新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO  工人薪資表 (開始日期, 結束日期, ID卡號, 工資, 調整)
                VALUES (N'" & Strings.Format(人員薪資.開始日期_dtp.Value, "yyyy/MM/dd") & "',N'" & Strings.Format(人員薪資.結束日期_dtp.Value, "yyyy/MM/dd") & "',
                        N'" & PA34 & "',N'" & PA32 & "',N'" & PA35 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資表_修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 工人薪資表 SET 工資 = N'" & PA32 & "', 調整 = N'" & PA35 & "' WHERE ID卡號 LIKE N'" & PA34 & "' AND 
                開始日期 LIKE N'" & Strings.Format(人員薪資.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 結束日期 LIKE N'" & Strings.Format(人員薪資.結束日期_dtp.Value, "yyyy/MM/dd") & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資表_查詢()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 調整 FROM 工人薪資表 WHERE ID卡號 LIKE N'" & PA34 & "' AND 
                開始日期 LIKE N'" & Strings.Format(人員薪資.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 結束日期 LIKE N'" & Strings.Format(人員薪資.結束日期_dtp.Value, "yyyy/MM/dd") & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員薪資表1()
        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5
        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
        If BL = False Then
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%'  AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' 
                                                       AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'  AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            Else
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' 
                                                          AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            End If
            SQL1 = "SELECT       [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
                                  使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], QQ.工資, QQ.調整 AS [" & 表頭(64) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "],   
                                  使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
                    FROM          使用者權限管理表 LEFT OUTER JOIN
                                 (SELECT  ID卡號, 工資, 調整  FROM  [HX-PGS-MSN].dbo.工人薪資表
                                  WHERE  (開始日期 LIKE N'" & Strings.Format(人員薪資.開始日期_dtp.Value, "yyyy/MM/dd") & "') AND 
                                         (結束日期 LIKE N'" & Strings.Format(人員薪資.結束日期_dtp.Value, "yyyy/MM/dd") & "')) AS QQ ON 使用者權限管理表.ID卡號 = QQ.ID卡號  LEFT OUTER JOIN
                                  HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
                                 [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
                    ORDER BY     " & SQL4
            CmdSet_For_DGV()   ', [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "] [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "]
        Else
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%')  AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' 
                                                AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'  AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%')  AND 使用者權限管理表.姓名 NOT LIKE '未啟用%'  
                                AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'  AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
            Else
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%'  AND 使用者權限管理表.姓名 NOT LIKE '未啟用%'  
                                                AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'  AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else
                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            End If
            SQL1 = "SELECT     [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
                                使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
                               [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
                               [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
                    FROM        使用者權限管理表 LEFT OUTER JOIN
                                HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
                                [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
                    WHERE      (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
                                使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
                    ORDER BY     " & SQL4
            CmdSet_For_DGV()
        End If
    End Sub
    Friend Sub SQL_人員薪資表2()
        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5
        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
        If BL = False Then
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' 
                                                        AND  AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'   AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            Else
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%'  
                                                                        AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            End If
            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
                    FROM            使用者權限管理表 LEFT OUTER JOIN
                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
                                   [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
                    ORDER BY       " & SQL4
            CmdSet_For_DGV()
        Else
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.姓名 NOT LIKE '未啟用%'  
                                                AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'  AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%')    AND 使用者權限管理表.姓名 NOT LIKE '未啟用%'  
                                AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'   AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
            Else
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%'  AND 使用者權限管理表.姓名 NOT LIKE '未啟用%'  
                                                AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'   AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else
                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            End If
            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
                    FROM            使用者權限管理表 LEFT OUTER JOIN
                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
                                    [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
                    WHERE          (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
                                    使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
                    ORDER BY        " & SQL4
            CmdSet_For_DGV()
        End If
    End Sub
    Friend Sub SQL_考勤明細表清單()
        If 登入人級別 = "02" Then : SQL4 = "使用者權限管理表.級別 LIKE '02' OR 使用者權限管理表.級別 LIKE '03' OR 使用者權限管理表.級別 LIKE '04' OR "
        ElseIf 登入人級別 = "03" Then : SQL4 = "使用者權限管理表.級別 LIKE '03' OR 使用者權限管理表.級別 LIKE '04' OR "
        ElseIf 登入人級別 = "04" Then : SQL4 = "使用者權限管理表.級別 LIKE '04' OR " : Else : SQL4 = "" : End If

        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = ""
        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' "
        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " : End If
        If BL = False Then
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND 
                                                      [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                End If
            Else
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND 
                                                      [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                End If
            End If
            SQL1 = "SELECT    使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 使用者權限管理表.ID卡號, 
                                 [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [" & 表頭(23) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "] 
                        FROM      使用者權限管理表 LEFT OUTER JOIN [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
                        ORDER BY  使用者權限管理表.部門, 使用者權限管理表.職稱, 使用者權限管理表.課別, 使用者權限管理表.組別, 使用者權限管理表.姓名"
            CmdSet_For_DGV()
        Else
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND 
                                               [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND 
                               [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3 : End If
            Else
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND 
                                                [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                Else
                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'" & SQL3
                End If
            End If
            SQL1 = "SELECT    使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 使用者權限管理表.ID卡號, 
                                 [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [" & 表頭(23) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "]
                        FROM      使用者權限管理表 LEFT OUTER JOIN
                                 [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號  
                        WHERE    (" & SQL4 & "使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 
                                  使用者權限管理表.級別 LIKE '08' OR 使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
                        ORDER BY  使用者權限管理表.部門, 使用者權限管理表.職稱, 使用者權限管理表.課別, 使用者權限管理表.組別, 使用者權限管理表.姓名"
            CmdSet_For_DGV()
        End If
    End Sub
    '---------------------考勤打卡-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_打卡人員資料讀取()
        ConnOpen()
        SQL1 = "SELECT 姓名, 職稱, 帳號 FROM 使用者權限管理表 WHERE (ID卡號 = '" & 考勤打卡.打卡啟動_tb.Text & "') AND CC63 = 0  AND 姓名 NOT LIKE N'未啟用/Not Enabled'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_打卡人員明細讀取()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 第一, 第二, 第三, 第四, 第五, 第六 FROM 人事考勤明細表 WHERE ID卡號 LIKE '" & 考勤打卡.打卡啟動_tb.Text & "' AND 日期 LIKE '" & Format(Today(), "yyyy/MM/dd") & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_打卡第一格()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 人事考勤明細表 (ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六) 
                VALUES (N'" & 考勤打卡.打卡啟動_tb.Text & "',N'" & DTP & "',N'" & PA45 & "',N'',N'',N'',N'',N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_打卡紀錄寫入()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人事考勤明細表 SET " & SQL2 & " = N'" & PA45 & "' WHERE ID卡號 LIKE N'" & 考勤打卡.打卡啟動_tb.Text & "' AND 日期 LIKE N'" & DTP & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員資料讀取5()
        ConnOpen_管理SQL() : SQL1 = "SELECT  照片位置  FROM  人員資料表  WHERE  (帳號 LIKE '" & PA5 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員資料讀取0()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 圖片, 身分證 FROM  人事圖片  WHERE  (帳號 LIKE '" & PA5 & "')" : CmdSet_For_dr()
    End Sub
    '---------------------人員ID卡系統配置設定-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_人員ID卡系統配置設定_清單()
        ConnOpen()
        If Val(登入人級別) <= 1 Then
            SQL1 = "SELECT 姓名 AS [" & 表頭(4) & "], 帳號 AS [" & 表頭(5) & "], 部門 AS [" & 表頭(6) & "], 課別 AS [" & 表頭(7) & "], 組別 AS [" & 表頭(8) & "], 
                           職稱 AS [" & 表頭(9) & "], ID卡號 AS [" & 表頭(10) & "] FROM 使用者權限管理表 WHERE CC63 = 0 ORDER BY 職稱"
        Else
            SQL1 = "SELECT 姓名 AS [" & 表頭(4) & "], 帳號 AS [" & 表頭(5) & "], 部門 AS [" & 表頭(6) & "], 課別 AS [" & 表頭(7) & "], 組別 AS [" & 表頭(8) & "], 
                           職稱 AS [" & 表頭(9) & "], ID卡號 AS [" & 表頭(10) & "] FROM 使用者權限管理表 WHERE CC24 = 0 AND CC63 = 0 ORDER BY 職稱"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員ID卡系統配置設定_配卡()
        ConnOpen()
        SQL1 = "UPDATE 使用者權限管理表 SET ID卡號 = N'" & PA42 & "'  WHERE (帳號 = N'" & PA43 & "') AND (姓名 = N'" & PA44 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_ID卡號修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 工人薪資表 SET ID卡號 = N'" & PA42 & "'  WHERE (ID卡號 LIKE N'" & 人員基本資料.ID卡號2_tb.Text & "')"
        CmdSet_For_dr()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人事考勤明細表 SET ID卡號 = N'" & PA42 & "'  WHERE (ID卡號 LIKE N'" & 人員基本資料.ID卡號2_tb.Text & "')"
        CmdSet_For_dr()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 門禁時間紀錄表 SET 卡號 = N'" & PA42 & "'  WHERE (卡號 LIKE N'" & 人員基本資料.ID卡號2_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員ID卡系統配置設定_驗證()
        ConnOpen() : SQL1 = "SELECT ID卡號 FROM 使用者權限管理表 WHERE (ID卡號 LIKE N'" & PA42 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統帳號確認()
        ConnOpen() : SQL1 = "SELECT 帳號 FROM 使用者權限管理表 WHERE (帳號 LIKE N'" & PA32 & "')" : CmdSet_For_dr()
    End Sub
    '---------------------系統組織結構圖-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_系統組織結_級別讀取()
        ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (姓名 LIKE N'" & PA47 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_單位主管1()
        SQL_系統組織結_級別讀取()
        If dr.Read Then : PA46 = dr("級別") : End If
        ConnOpen()
        SQL1 = "SELECT  QQ.姓名 AS Lead, QQ.級別 as Level, QQ.職稱 AS Jobtitle
                FROM    使用者權限管理表 INNER JOIN  系統跨部門權限表 ON 使用者權限管理表.職稱 = 系統跨部門權限表.職稱 INNER JOIN
                       (SELECT  姓名, 級別, 職稱  FROM  使用者權限管理表 AS 使用者權限管理表_1  WHERE  (CAST(級別 AS int) < " & PA46 & ") AND (級別 NOT LIKE '00')) AS QQ ON 
                        系統跨部門權限表.姓名 = QQ.姓名
                WHERE  (使用者權限管理表.姓名 LIKE N'" & PA47 & "') AND (系統跨部門權限表.授權 = 1) AND (系統跨部門權限表.姓名 NOT LIKE N'" & PA47 & "') AND 使用者權限管理表.CC63 = 0
                ORDER BY QQ.級別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_部門()
        ConnOpen() : SQL1 = "SELECT 部門 FROM HX部門清單 WHERE (部門 NOT LIKE N'%NA') AND (部門 NOT LIKE N'9%') ORDER BY 部門" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_部門_人員()
        ConnOpen()
        SQL1 = "SELECT  姓名 FROM  使用者權限管理表 WHERE (部門 LIKE N'" & PA & "') AND (處別 LIKE N'00.NA') AND (課別 LIKE N'000.NA') AND (組別 LIKE N'0000.NA') AND CC63 = 0"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_處別()
        ConnOpen()
        SQL1 = "SELECT 處 FROM HX職稱清單 WHERE (部 LIKE N'" & PA & "') AND (處 NOT LIKE N'%NA') AND (處 NOT LIKE N'9%') GROUP BY   處 ORDER BY   處"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_處別1()
        ConnOpen()
        SQL1 = "SELECT 處 FROM HX職稱清單 WHERE (處 NOT LIKE N'%NA') AND (處 NOT LIKE N'9%')  GROUP BY 處 ORDER BY   處"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_處別_人員()
        ConnOpen()
        SQL1 = "SELECT  姓名 FROM  使用者權限管理表 WHERE (處別 LIKE N'" & PA & "') AND (課別 LIKE N'000.NA') AND (組別 LIKE N'0000.NA') AND CC63 = 0"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_課別()
        ConnOpen()
        SQL1 = "SELECT 課 FROM HX職稱清單 WHERE (部 LIKE N'" & PA & "') AND (處 LIKE N'" & PA1 & "') AND (課 NOT LIKE N'%NA') AND (課 NOT LIKE N'9%') GROUP BY   課 ORDER BY   課"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_課別1()
        ConnOpen()
        SQL1 = "SELECT 課 FROM HX職稱清單 WHERE (課 NOT LIKE N'%NA') AND (課 NOT LIKE N'9%') GROUP BY   課 ORDER BY   課"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_課別_人員()
        ConnOpen()
        SQL1 = "SELECT  姓名 FROM  使用者權限管理表 WHERE (課別 LIKE N'" & PA & "') AND (組別 LIKE N'0000.NA') AND CC63 = 0"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_組別()
        ConnOpen()
        SQL1 = "SELECT 組 FROM HX職稱清單 
                WHERE (部 LIKE N'" & PA & "') AND (處 LIKE N'" & PA1 & "') AND (課 LIKE N'" & PA2 & "')  AND (組 NOT LIKE N'%NA') AND (組 NOT LIKE N'9%') GROUP BY   組 ORDER BY   組"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_組別1()
        ConnOpen()
        SQL1 = "SELECT 組 FROM HX職稱清單 WHERE (組 NOT LIKE N'%NA') AND (組 NOT LIKE N'9%') GROUP BY 組 ORDER BY 組"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_組別_人員()
        ConnOpen()
        SQL1 = "SELECT  姓名 FROM  使用者權限管理表 WHERE (組別 LIKE N'" & PA & "') AND CC63 = 0"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員()
        ConnOpen()
        SQL1 = "SELECT      使用者權限管理表.姓名 AS [" & 表頭(4) & "], 使用者權限管理表.職稱 AS [" & 表頭(9) & "], 使用者權限管理表.級別 AS [" & 表頭(138) & "], 使用者權限管理表.部門, 
                            使用者權限管理表.處別, 使用者權限管理表.課別, 使用者權限管理表.組別, 
                            使用者權限管理表.帳號
                FROM              使用者權限管理表 INNER JOIN
                                (SELECT            系統跨部門權限表.姓名
                                  FROM             系統跨部門權限表 INNER JOIN
                                                   HX職稱清單 ON 系統跨部門權限表.職稱 = HX職稱清單.職稱
                                  WHERE           (系統跨部門權限表.授權 = 1) AND (系統跨部門權限表.姓名 NOT LIKE N'NA') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'李協叡') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'LIN HSING HAO') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'%test%') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'%測試%') AND 
                                                  (HX職稱清單.部 LIKE N'" & PA & "') OR
                                                  (系統跨部門權限表.授權 = 1) AND (系統跨部門權限表.姓名 NOT LIKE N'NA') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'李協叡') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'LIN HSING HAO') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'%test%') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'%測試%') AND 
                                                  (HX職稱清單.處 LIKE N'" & PA & "') OR
                                                  (系統跨部門權限表.授權 = 1) AND (系統跨部門權限表.姓名 NOT LIKE N'NA') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'李協叡') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'LIN HSING HAO') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'%test%') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'%測試%') AND 
                                                  (HX職稱清單.課 LIKE N'" & PA & "') OR
                                                  (系統跨部門權限表.授權 = 1) AND (系統跨部門權限表.姓名 NOT LIKE N'NA') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'李協叡') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'LIN HSING HAO') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'%test%') AND 
                                                  (系統跨部門權限表.姓名 NOT LIKE N'%測試%') AND 
                                                  (HX職稱清單.組 LIKE N'" & PA & "')
                GROUP BY   系統跨部門權限表.姓名) AS QQQ ON 使用者權限管理表.姓名 = QQQ.姓名
                WHERE      使用者權限管理表.CC63 = 0
                ORDER BY   使用者權限管理表.級別"
        CmdSet_For_DGV()
    End Sub
    '---------------------門禁系統設定-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_門禁清單()
        ConnOpen_管理SQL() : SQL1 = "SELECT  編號, 位置 AS [位置(中)], 名稱_英文 AS [位置(英)], 名稱_印尼文 AS [位置(印)], IP位置  FROM  門禁控制表 ORDER BY 編號" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_門禁清單_修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 門禁控制表 SET 位置 = N'" & PA1 & "', 名稱_英文 = N'" & PA2 & "', 名稱_印尼文 = N'" & PA3 & "', IP位置 = N'" & PA4 & "'  WHERE (編號 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_門禁權限清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  [HX-GPS-ERP-SYS].dbo.HX處級清單.處, 門禁權限預設.DC01 AS [" & 表頭(0) & "], 門禁權限預設.DC02 AS [" & 表頭(1) & "], 門禁權限預設.DC03 AS [" & 表頭(2) & "], 
                         門禁權限預設.DC04 AS [" & 表頭(3) & "], 門禁權限預設.DC05 AS [" & 表頭(4) & "], 門禁權限預設.DC06 AS [" & 表頭(5) & "], 門禁權限預設.DC07 AS [" & 表頭(6) & "], 
                         門禁權限預設.DC08 AS [" & 表頭(7) & "], 門禁權限預設.DC09 AS [" & 表頭(8) & "], 門禁權限預設.DC10 AS [" & 表頭(9) & "], 門禁權限預設.DC11 AS [" & 表頭(10) & "], 
                         門禁權限預設.DC12 AS [" & 表頭(11) & "]
                FROM     門禁權限預設 RIGHT OUTER JOIN [HX-GPS-ERP-SYS].dbo.HX處級清單 ON 門禁權限預設.處別 = [HX-GPS-ERP-SYS].dbo.HX處級清單.處 ORDER BY [HX-GPS-ERP-SYS].dbo.HX處級清單.處"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_門禁權限清單_修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 門禁權限預設 SET DC01 = N'" & PA1 & "', DC02 = N'" & PA2 & "', DC03 = N'" & PA3 & "', DC04 = N'" & PA4 & "', DC05 = N'" & PA5 & "', DC06 = N'" & PA6 & "' , 
                                        DC07 = N'" & PA7 & "', DC08 = N'" & PA8 & "', DC09 = N'" & PA9 & "', DC10 = N'" & PA10 & "', DC11 = N'" & PA11 & "', DC12 = N'" & PA12 & "'
                WHERE (處別 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員門禁權限()
        ConnOpen()
        If 登入人級別 = "00" Then : SQL2 = "WHERE     (處別 NOT LIKE '9%') AND (CC63 <> 1)"
        Else : SQL2 = "WHERE     (級別 NOT LIKE '09') AND (級別 NOT LIKE '00') AND (級別 NOT LIKE '01') AND (級別 NOT LIKE '02') AND (級別 NOT LIKE '03') AND (CC63 <> 1)"
        End If
        SQL1 = "SELECT     姓名  AS [Name], 處別 AS [Office], ID卡號 AS [IDNo.], 級別, DC01 AS [" & 表頭(0) & "], DC02 AS [" & 表頭(1) & "], DC03 AS [" & 表頭(2) & "], DC04 AS [" & 表頭(3) & "], 
                           DC05 AS [" & 表頭(4) & "], DC06 AS [" & 表頭(5) & "], DC07 AS [" & 表頭(6) & "], DC08 AS [" & 表頭(7) & "], DC09 AS [" & 表頭(8) & "], DC10 AS [" & 表頭(9) & "], 
                           DC11 AS [" & 表頭(10) & "], DC12 AS [" & 表頭(11) & "]
                FROM       使用者權限管理表 " & SQL2 & "  ORDER BY   部門, 職稱, 課別, 組別, 姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員門禁權限_修改()
        ConnOpen()
        SQL1 = "UPDATE 使用者權限管理表 SET DC01 = N'" & PA1 & "', DC02 = N'" & PA2 & "', DC03 = N'" & PA3 & "', DC04 = N'" & PA4 & "', DC05 = N'" & PA5 & "', DC06 = N'" & PA6 & "' , 
                                        DC07 = N'" & PA7 & "', DC08 = N'" & PA8 & "', DC09 = N'" & PA9 & "', DC10 = N'" & PA10 & "', DC11 = N'" & PA11 & "', DC12 = N'" & PA12 & "'
                WHERE (ID卡號 LIKE N'" & PA & "')"
        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 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請假資料查詢()
        ConnOpen_管理SQL()
        SQL1 = "SELECT      部門聯絡函.聯絡函單號, 部門聯絡函.申請部門 AS [" & 表頭(6) & "], 部門聯絡函.申請人 AS [" & 表頭(19) & "], 
                            部門聯絡函.申請日期 AS [" & 表頭(20) & "], 部門聯絡函.聯絡事項, 部門聯絡函.聯絡人,  部門聯絡函.主題, 
                            人員請假紀錄.開始日期, 人員請假紀錄.結束日期, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.ID卡號
                FROM        部門聯絡函 INNER JOIN  人員請假紀錄 ON 部門聯絡函.聯絡函單號 = 人員請假紀錄.單號 INNER JOIN
                            [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON  人員請假紀錄.人員 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名
                WHERE      (部門聯絡函.主題 NOT LIKE N'') AND (部門聯絡函.聯絡事項 NOT LIKE N'') AND (部門聯絡函.審核人 NOT LIKE N'') AND 
                           (部門聯絡函.審核人 NOT LIKE N'作廢%') AND (部門聯絡函.接收核准 LIKE N'') AND 
                           (部門聯絡函.接收核准 NOT LIKE N'作廢%')
                ORDER BY   部門聯絡函.聯絡函單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_門禁查詢1()
        ConnOpen_管理SQL()
        SQL1 = "SELECT   [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名 AS Name, 門禁時間紀錄表.時間 AS Time, 門禁時間紀錄表.使用者 AS State
                FROM      門禁時間紀錄表 LEFT OUTER JOIN [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 門禁時間紀錄表.卡號 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.ID卡號
                WHERE    (門禁時間紀錄表.名稱 LIKE '" & PA30 & "')  ORDER BY  Time DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_門禁查詢2()
        ConnOpen()
        SQL1 = "SELECT    [HX-PGS-MSN].dbo.門禁控制表." & SQL2 & " AS Door, [HX-PGS-MSN].dbo.門禁時間紀錄表.時間 AS Time, [HX-PGS-MSN].dbo.門禁時間紀錄表.使用者 AS State
                FROM       使用者權限管理表 INNER JOIN  [HX-PGS-MSN].dbo.門禁時間紀錄表 ON 使用者權限管理表.ID卡號 = [HX-PGS-MSN].dbo.門禁時間紀錄表.卡號 INNER JOIN
                          [HX-PGS-MSN].dbo.門禁控制表 ON [HX-PGS-MSN].dbo.門禁時間紀錄表.名稱 = [HX-PGS-MSN].dbo.門禁控制表.編號
                WHERE     (使用者權限管理表.姓名 LIKE '" & PA30 & "')
                ORDER BY  [HX-PGS-MSN].dbo.門禁時間紀錄表.時間 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤查詢1()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  ID卡號  FROM  人事考勤明細表  WHERE  (ID卡號 LIKE '" & PA1 & "') AND (日期 LIKE '" & PA15 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班系統_月份()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  日期, 星期, 星期 AS 休假   FROM  萬年曆  WHERE  (日期 LIKE N'" & PA1 & "/" & PA2 & "%') ORDER BY 日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班系統_當天排班()
        ConnOpen_管理SQL()
        SQL1 = "SELECT     人事考勤明細表.假別 AS [" & 表頭(0) & "], STRING_AGG([HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名, N'、') AS [" & 表頭(1) & "]
                FROM       人事考勤明細表 INNER JOIN [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 
                           人事考勤明細表.ID卡號 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.ID卡號
                WHERE     (人事考勤明細表.假別 NOT LIKE '') AND (人事考勤明細表.假別 IS NOT NULL) AND (人事考勤明細表.日期  LIKE N'" & PA & "') 
                GROUP BY   人事考勤明細表.假別  ORDER BY  人事考勤明細表.假別"
        CmdSet_For_DGV()
    End Sub
    '------車輛管理------
    Friend Sub SQL_車輛管理_品牌下拉()
        ConnOpen_管理SQL()
        SQL1 = "SELECT DISTINCT  車輛品牌  FROM  車輛明細表"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛管理_位置下拉()
        ConnOpen_管理SQL()
        SQL1 = "SELECT DISTINCT  車輛位置  FROM  車輛明細表"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛管理_人員下拉()
        ConnOpen()
        SQL1 = "SELECT DISTINCT  姓名  FROM  使用者權限管理表  WHERE  (級別 <= 05) AND (姓名 NOT LIKE N'未啟用%') AND (CC63 LIKE N'0')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛管理_清單()
        '車輛編號, 車輛品牌, 車牌號碼, 車輛位置, 固定指派, 使用人員
        '170 171 172 173 174 175
        ConnOpen_管理SQL()
        SQL1 = "SELECT   車輛編號 AS [" & 表頭(170) & "], 車輛品牌 AS [" & 表頭(171) & "], 車牌號碼 AS [" & 表頭(172) & "], 車輛位置 AS [" & 表頭(173) & "], 
                                         固定指派 AS [" & 表頭(174) & "], 使用人員 AS [" & 表頭(175) & "]  
                         FROM  車輛明細表 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_車輛管理_修改(車輛編號 As String, 車輛品牌 As String, 車牌號碼 As String, 車輛位置 As String, 固定指派 As String, 使用人員 As String)
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 車輛明細表 SET 車輛品牌=N'" & 車輛品牌 & "',車牌號碼=N'" & 車牌號碼 & "',車輛位置=N'" & 車輛位置 & "',固定指派=N'" & 固定指派 & "',使用人員=N'" & 使用人員 & "' WHERE  車輛編號 LIKE N'" & 車輛編號 & "' "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛管理_刪除(車輛編號 As String)
        ConnOpen_管理SQL()
        SQL1 = "DELETE 車輛明細表 WHERE 車輛編號 LIKE N'" & 車輛編號 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛管理_新增(車輛編號 As String)
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 車輛明細表(車輛編號) VALUES (N'" & 車輛編號 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛動態_日曆(車輛編號 As String, 日期 As String)
        ConnOpen_管理SQL()
        SQL1 = "SELECT      DISTINCT     車輛明細表.車牌號碼, 部門聯絡函.申請人, 車輛外出明細表.外出地點
                        FROM              車輛外出明細表 INNER JOIN
                                                    部門聯絡函 ON 車輛外出明細表.聯絡函單號 = 部門聯絡函.聯絡函單號 LEFT OUTER JOIN
                                                    車輛明細表 ON 車輛外出明細表.車輛編號 = 車輛明細表.車輛編號
                        WHERE           (車輛外出明細表.核准 LIKE N'1')    AND ('" & 日期 & "' BETWEEN LEFT(車輛外出明細表.借車時間, 8) AND 
                            LEFT(車輛外出明細表.還車時間, 8))"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員動態_日曆(日期 As String)
        ConnOpen_管理SQL()
        SQL1 = "SELECT     DISTINCT      [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名, 人員外出明細表.人員狀態, 人員外出明細表.外出地點
                        FROM              人員外出明細表 LEFT OUTER JOIN
                                                    [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 
                                                    人員外出明細表.姓名 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號
                        WHERE          (人員外出明細表.核准 LIKE N'1') AND ('" & 日期 & "' BETWEEN LEFT(人員外出明細表.開始時間, 8) AND 
                            LEFT(人員外出明細表.結束時間, 8))"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_載入請假資料(聯絡函單號 As String)
        ConnOpen_管理SQL()
        SQL1 = "SELECT      部門聯絡函.聯絡函單號, 部門聯絡函.申請部門 , 部門聯絡函.申請人, 
                            部門聯絡函.申請日期 , 部門聯絡函.聯絡事項, 部門聯絡函.聯絡人,  部門聯絡函.主題, 
                            人員請假紀錄.開始日期, 人員請假紀錄.結束日期, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.ID卡號
                FROM        部門聯絡函 INNER JOIN  人員請假紀錄 ON 部門聯絡函.聯絡函單號 = 人員請假紀錄.單號 INNER JOIN
                            [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON  人員請假紀錄.人員 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名
                WHERE       部門聯絡函.聯絡函單號 LIKE N'" & 聯絡函單號 & "'
                ORDER BY   部門聯絡函.聯絡函單號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函人事明細表修改(加班 As Boolean, 假別 As String, 備註 As String, 日期 As String, ID卡號 As String)
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人事考勤明細表 SET 加班 = N'" & 加班 & "', 假別 = N'" & 假別 & "', 備註 = N'" & 備註 & "' WHERE 日期 LIKE N'" & 日期 & "' AND ID卡號 LIKE N'" & ID卡號 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部門聯絡函人事考勤明細表新增(ID卡號 As String, 日期 As String, 加班 As Boolean, 假別 As String, 備註 As String)
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 人事考勤明細表 (ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班, 假別, 備註) 
                VALUES (N'" & ID卡號 & "',N'" & 日期 & "',N'',N'',N'',N'',N'',N'','" & 加班 & "', N'" & 假別 & "', N'" & 備註 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_考勤系統手機綁定清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT    [HX-GPS-ERP-SYS].dbo.使用者權限管理表.職稱 AS [" & 表頭(0) & "], [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名 AS [" & 表頭(1) & "], 
                          [HX-GPS-ERP-SYS].dbo.使用者權限管理表.級別, 手機打卡驗證管理.機碼 AS [" & 表頭(2) & "], [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號, 
                          手機打卡驗證管理.獨立打卡 AS [" & 表頭(3) & "], 手機打卡驗證管理.不鎖定 AS [" & 表頭(4) & "], [HX-GPS-ERP-SYS].dbo.使用者權限管理表.CC63 AS [" & 表頭(5) & "]
                FROM      手機打卡驗證管理 LEFT OUTER JOIN
                          [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 
                          手機打卡驗證管理.帳號 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號
                ORDER BY  [HX-GPS-ERP-SYS].dbo.使用者權限管理表.職稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤系統手機綁定資料重複確認()
        ConnOpen_管理SQL() : SQL1 = "SELECT * FROM  手機打卡驗證管理  WHERE  (帳號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_考勤系統手機綁定資料新增()
        ConnOpen_管理SQL() : SQL1 = "INSERT INTO 手機打卡驗證管理 (帳號, 機碼, 獨立打卡, 不鎖定) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_考勤系統手機綁定資料修改()
        ConnOpen_管理SQL() : SQL1 = "UPDATE 手機打卡驗證管理 SET 機碼 = N'" & PA2 & "', 獨立打卡 = N'" & PA3 & "', 不鎖定 = N'" & PA4 & "' WHERE 帳號 LIKE N'" & PA1 & "'" : 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_管理SQL()
        SQL1 = "SELECT  地點 AS [" & 表頭(0) & "], 經度 AS [" & 表頭(1) & "], 緯度 AS [" & 表頭(2) & "], 容許誤差 AS [" & 表頭(3) & "]  FROM  考勤位置設定"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤地點新增()
        ConnOpen_管理SQL() : SQL1 = "INSERT INTO 考勤位置設定 (地點, 經度, 緯度, 容許誤差) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_考勤地點修改()
        ConnOpen_管理SQL() : SQL1 = "UPDATE 考勤位置設定 SET 經度 = N'" & PA2 & "', 緯度 = N'" & PA3 & "', 容許誤差 = N'" & PA4 & "' WHERE 地點 LIKE N'" & PA1 & "'" : 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_管理SQL()
        SQL1 = "SELECT    使用者權限管理表_1.姓名 AS [" & 表頭(0) & "], 手機打卡考勤表.打卡時間 AS [" & 表頭(8) & "], QQ.姓名 AS [" & 表頭(1) & "], 手機打卡考勤表.經度 AS [" & 表頭(2) & "], 
                          手機打卡考勤表.緯度 AS [" & 表頭(3) & "], 手機打卡考勤表.狀態, 手機打卡考勤表.機碼, 手機打卡考勤表.狀態 AS [" & 表頭(4) & "]
                FROM      手機打卡考勤表  INNER JOIN
                         (SELECT  手機打卡驗證管理.機碼, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名, 
                                  [HX-GPS-ERP-SYS].dbo.使用者權限管理表.職稱
                          FROM    手機打卡驗證管理 LEFT OUTER JOIN
                                  [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 
                          手機打卡驗證管理.帳號 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號) AS QQ ON 
                          手機打卡考勤表.機碼 = QQ.機碼 LEFT OUTER JOIN
                          [HX-GPS-ERP-SYS].dbo.使用者權限管理表 AS 使用者權限管理表_1 ON 
                          手機打卡考勤表.主管機台 = 使用者權限管理表_1.帳號 " & SQL2 & "
                ORDER BY  手機打卡考勤表.打卡時間, QQ.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤位置清單()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  地點 AS [" & 表頭(5) & "], 經度 AS [" & 表頭(2) & "], 緯度 AS [" & 表頭(3) & "], 容許誤差 AS [" & 表頭(6) & "], 地點 AS [" & 表頭(9) & "], 地點 AS [" & 表頭(7) & "]  
                FROM  考勤位置設定"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤地點異常修改()
        ConnOpen_管理SQL() : SQL1 = "UPDATE 手機打卡考勤表 SET 狀態 = N'" & PA3 & "'  WHERE 機碼 LIKE N'" & PA1 & "' AND 打卡時間 = N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者資料讀取_中()
        ConnOpen()
        SQL1 = "SELECT  帳號, CASE WHEN CHARINDEX('.', 部門) > 0 AND CHARINDEX(' ', 部門) > 0 THEN SUBSTRING(部門, CHARINDEX('.', 
                        部門) + 1, CHARINDEX(' ', 部門) - CHARINDEX('.', 部門) - 1) WHEN CHARINDEX('.', 部門) > 0 THEN SUBSTRING(部門, 
                        CHARINDEX('.', 部門) + 1, LEN(部門) - CHARINDEX('.', 部門)) ELSE 部門 END AS 部門, CASE WHEN CHARINDEX('.', 
                        職稱) > 0 AND CHARINDEX('/', 職稱) > 0 THEN SUBSTRING(職稱, CHARINDEX('.', 職稱) + 1, CHARINDEX('/', 職稱) 
                         - CHARINDEX('.', 職稱) - 1) WHEN CHARINDEX('.', 職稱) > 0 THEN SUBSTRING(職稱, CHARINDEX('.', 職稱) + 1, 
                        LEN(職稱) - CHARINDEX('.', 職稱)) ELSE 職稱 END AS 職稱
                FROM    使用者權限管理表
                WHERE  (姓名 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者資料讀取_英()
        ConnOpen()
        SQL1 = "SELECT  帳號, CASE WHEN 部門 LIKE '0.NA' THEN 'NA' WHEN CHARINDEX(' ', 部門) > 0 THEN SUBSTRING(部門, 
                        CHARINDEX(' ', 部門) + 1, LEN(部門) - CHARINDEX(' ', 部門)) ELSE 部門 END AS 部門, 
                        CASE WHEN 職稱 LIKE '%.NA' THEN 'NA' WHEN CHARINDEX('/', 職稱) > 0 AND LEN(SUBSTRING(職稱, 
                        CHARINDEX('/', 職稱) + 1, LEN(職稱))) > 0 THEN SUBSTRING(職稱, CHARINDEX('/', 職稱) + 1, LEN(職稱) 
                         - CHARINDEX('/', 職稱)) ELSE 職稱 END AS 職稱
                FROM    使用者權限管理表
                WHERE  (姓名 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者資料讀取1()
        ConnOpen()
        SQL1 = "SELECT    姓名  FROM  使用者權限管理表  WHERE  (級別 NOT LIKE N'00') AND (級別 NOT LIKE N'01') AND (級別 NOT LIKE N'02') AND (姓名 NOT LIKE N'%未啟用%') AND (CC63 <> 1)
                ORDER BY  部門, 級別, 姓名"
        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 = "SELECT    人員加班紀錄.聯絡函單號, 人員加班紀錄.加班日期 AS [" & 表頭(0) & "], [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名 AS [" & 表頭(1) & "], 
                          人員加班紀錄.帳號, 人員加班紀錄.理由, 人員加班紀錄.加班地點, 人員加班紀錄.開始日期, 人員加班紀錄.開時時間, 
                          人員加班紀錄.結束日期, 人員加班紀錄.結束時間, 人員加班紀錄.加班時數, 人員加班紀錄.簽核時數, 
                          人員加班紀錄.申請人 AS [" & 表頭(2) & "], 人員加班紀錄.申請日期, 人員加班紀錄.單位主管 AS [" & 表頭(3) & "], 人員加班紀錄.簽核日期1, 
                          人員加班紀錄.部門主管 AS [" & 表頭(4) & "], 人員加班紀錄.簽核日期2, 人員加班紀錄.管理部, 人員加班紀錄.簽核日期3
                FROM      人員加班紀錄 INNER JOIN
                          [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 
                          人員加班紀錄.帳號 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號 " & SQL2 & "
                ORDER BY  人員加班紀錄.加班日期 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_加班申請()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 人員加班紀錄 (聯絡函單號, 加班日期, 帳號, 理由, 加班地點, 開始日期, 開時時間, 結束日期, 結束時間, 加班時數, 簽核時數, 申請人, 申請日期, 
                                          單位主管, 簽核日期1, 部門主管, 簽核日期2, 管理部, 簽核日期3) 
                VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', 
                        N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', '', '', '', '', '', '')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_加班申請簽核()
        ConnOpen_管理SQL() : SQL1 = "UPDATE 人員加班紀錄 SET  " & SQL2 & "  WHERE  聯絡函單號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_加班申請修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人員加班紀錄 SET  理由 = N'" & PA4 & "', 加班地點 = N'" & PA5 & "', 開始日期 = N'" & PA6 & "', 開時時間 = N'" & PA7 & "',  結束日期 = N'" & PA8 & "', 
                                         結束時間 = N'" & PA9 & "', 加班時數 = N'" & PA10 & "', 簽核時數 = N'" & PA11 & "', 申請日期 = N'" & PA13 & "'  
                WHERE  聯絡函單號 LIKE N'" & PA1 & "'"
        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_管理SQL()
        SQL1 = "SELECT    加班地點  FROM  人員加班紀錄  WHERE  (帳號 IS NOT NULL) GROUP BY  加班地點  ORDER BY  加班地點"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_加班單查詢(聯絡函單號 As String)
        ConnOpen_管理SQL()
        SQL1 = "SELECT    [HX-GPS-ERP-SYS].dbo.使用者權限管理表.ID卡號, 人員加班紀錄.開始日期
                FROM      人員加班紀錄 INNER JOIN [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 人員加班紀錄.帳號 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號 
                WHERE     人員加班紀錄.聯絡函單號 LIKE N'" & 聯絡函單號 & "' 
                ORDER BY  人員加班紀錄.加班日期 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_調薪紀錄表()
        ConnOpen()
        If 系統語言 = "繁體中文" Then
            SQL2 = "CASE WHEN CHARINDEX('.', 職稱) > 0 AND CHARINDEX('/', 職稱) > 0 THEN SUBSTRING(職稱, CHARINDEX('.', 職稱) + 1, CHARINDEX('/', 職稱) 
                    - CHARINDEX('.', 職稱) - 1) WHEN CHARINDEX('.', 職稱) > 0 THEN SUBSTRING(職稱, CHARINDEX('.', 職稱) + 1, 
                    LEN(職稱) - CHARINDEX('.', 職稱)) ELSE 職稱 END AS [" & 表頭(1) & "]"
        Else
            SQL2 = "CASE WHEN 職稱 LIKE '%.NA' THEN 'NA' WHEN CHARINDEX('/', 職稱) > 0 AND LEN(SUBSTRING(職稱, 
                    CHARINDEX('/', 職稱) + 1, LEN(職稱))) > 0 THEN SUBSTRING(職稱, CHARINDEX('/', 職稱) + 1, LEN(職稱) 
                    - CHARINDEX('/', 職稱)) ELSE 職稱 END AS [" & 表頭(1) & "]"
        End If
        SQL1 = "SELECT    使用者權限管理表.密碼 AS [No.], 使用者權限管理表.帳號 AS STT, [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(0) & "], " & SQL2 & ", 
                          使用者權限管理表.級別 AS [" & 表頭(3) & "], 使用者權限管理表.姓名 AS [" & 表頭(4) & "], [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(5) & "], 
                          [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(6) & "], [HX-PGS-MSN].dbo.人員資料表.津貼 AS [" & 表頭(7) & "], 
                          [HX-PGS-MSN].dbo.人員資料表.備註 AS [" & 表頭(8) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(9) & "], 
                          [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS 薪資編號, [HX-PGS-MSN].dbo.人員資料表.群組 AS 群組編碼, 
                          [HX-PGS-MSN].dbo.人員資料表.群組 AS 存檔, 使用者權限管理表.部門, [HX-PGS-MSN].dbo.人員資料表.公司 AS [" & 表頭(10) & "]
                FROM      使用者權限管理表 INNER JOIN
                          [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
                WHERE    (使用者權限管理表.CC63 <> 1) " & SQL3 & " AND (使用者權限管理表.部門 NOT LIKE N'0.NA') AND 
                         (使用者權限管理表.姓名 NOT LIKE N'未啟用%')
                ORDER BY  使用者權限管理表.部門, 使用者權限管理表.級別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員資料表編輯(部門名稱 As String, 群組 As String, 薪資狀態 As String, 薪資 As String, 津貼 As String, 備註 As String, 帳號 As String, 公司 As String)
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人員資料表 SET 部門名稱 = N'" & 部門名稱 & "', 群組 = N'" & 群組 & "', 薪資狀態 = N'" & 薪資狀態 & "', 薪資 = N'" & 薪資 & "', 
                       津貼 = N'" & 津貼 & "', 備註 = N'" & 備註 & "', 公司 = N'" & 公司 & "' WHERE 帳號 LIKE N'" & 帳號 & "'"
        CmdSet_For_dr()
    End Sub
End Module