Module SQL_排班系統
    Friend Sub SQL_排班系統_月份()
        ConnOpen_AM()
        SQL1 = "SELECT 萬年曆.日期, 萬年曆.星期, AQAQ.請假類別 AS 休假
                FROM   萬年曆 LEFT OUTER JOIN
                                (SELECT 日期 AS 日, 請假類別 FROM 人事請假單
                                 WHERE          (請假類別 NOT LIKE '特休') AND (請假類別 NOT LIKE '%假') 
                                 GROUP BY    日期, 請假類別) AS AQAQ ON 萬年曆.日期 = AQAQ.日
                WHERE (萬年曆.日期 LIKE '" & PA1 & "/" & PA2 & "%')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班系統_人員排班()
        ConnOpen_AM()
        SQL1 = "SELECT     姓名, COUNT(姓名) AS 天數, SUM(排時) AS 本月應上時數, SUM(排時) AS 已排班時數, SUM(排時) AS 未排班時數
                FROM       排班資料表
                WHERE     (日期 LIKE '" & PA & "%') AND (姓名 NOT LIKE '') AND (班別  NOT LIKE '休%')
                GROUP BY   姓名 ORDER BY   姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班系統_當天排班()
        ConnOpen_AM()
        SQL1 = "SELECT   班別, COUNT(姓名) AS 人數
                FROM     排班資料表
                WHERE   (日期 LIKE '" & PA & "') AND (姓名 NOT LIKE '')
                GROUP BY 班別 ORDER BY   班別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班系統_班別_下拉()
        ConnOpen_AM() : SQL1 = "SELECT 時段 FROM 時段設定 ORDER BY ID" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班系統_職務_下拉()
        ConnOpen_AM() : SQL1 = "SELECT 職務 FROM 工作職務 ORDER BY   職務" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班系統_班別_人員()
        ConnOpen_AM()
        SQL1 = "SELECT   DIN AS [No.], DIN AS 編號, UserName AS 姓名
                FROM     ras_Users
                WHERE   (IsLockedOut = 0) AND (DIN <> 18) AND (DIN <> 19) AND (DIN <> 21)
                ORDER BY   CAST(Password AS int)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班系統_班別_人員_全()
        ConnOpen_AM()
        SQL1 = "SELECT   DIN AS [No.], DIN AS 編號, UserName AS 姓名
                FROM     ras_Users
                WHERE   (DIN <> 18) AND (DIN <> 19) AND (DIN <> 21)
                ORDER BY   CAST(Password AS int)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班系統_班別_排班()
        ConnOpen_AM()
        SQL1 = "SELECT   姓名, 班別, 上班時段, 時數, 半天, 休息, 一段, 二段, 顏色1, 顏色2
                FROM     排班資料表
                WHERE   (日期 LIKE '" & PA & "')
                ORDER BY CAST(項次 AS INT)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班系統_個人整月排班()
        ConnOpen_AM()
        SQL1 = "SELECT   RIGHT(日期, 2) AS 項次, 姓名, 班別, 上班時段, 時數, 半天, 休息, 一段, 二段, 顏色1, 顏色2
                FROM     排班資料表
                WHERE   (日期 LIKE '" & PA & "%') AND (姓名 LIKE '" & PA2 & "')
                ORDER BY 日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班系統_個人整月星期()
        ConnOpen_AM()
        SQL1 = "SELECT 星期, 班表簽認 FROM 萬年曆 WHERE (日期 LIKE '" & PA & "%') ORDER BY 日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_排班明細_判斷是否有資料()
        ConnOpen_AM() : SQL1 = "SELECT 日期 FROM 排班資料表 WHERE 日期 LIKE '" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班明細_刪除當天()
        ConnOpen_AM() : SQL1 = "DELETE 排班資料表 WHERE 日期 LIKE '" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班明細_新增當天()
        ConnOpen_AM()
        SQL1 = "INSERT INTO 排班資料表 (日期, 項次, 姓名, 班別, 上班時段, 時數, 半天, 休息, 一段, 二段, 排時, 顏色1, 顏色2)
                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & Do2 & "', '" & BL1 & "', " & Do1 & ", N'" & PA5 & "', N'" & PA6 & "', '" & Do3 & "', 
                        N'" & PA7 & "', N'" & PA8 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班簽核讀取()
        ConnOpen_AM() : SQL1 = "SELECT 班表簽認, 值日生1, 值日生2 FROM 萬年曆 WHERE 日期 LIKE '" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班簽核()
        ConnOpen_AM() : SQL1 = "UPDATE 萬年曆 SET 班表簽認 = 'Y' WHERE 日期 LIKE '" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_值日生存檔()
        ConnOpen_AM() : SQL1 = "UPDATE 萬年曆 SET 值日生1 = '" & PA13 & "', 值日生2 = '" & PA14 & "' WHERE 日期 LIKE '" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班明細_上午上班()
        ConnOpen_AM() : SQL1 = "SELECT 上午上班 FROM 時段設定 WHERE 時段 like N'" & PA3 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_排班系統_星期()
        ConnOpen_AM()
        SQL1 = "SELECT 星期 FROM   萬年曆 WHERE (萬年曆.日期 LIKE '" & PA & "%')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_門診_健保()
        ConnOpen_AM()
        SQL1 = "SELECT 星期, 診別, 早, 中, 晚 FROM 門診資料 WHERE 星期 LIKE '" & PA6 & "' AND 診別 LIKE '健保'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_門診_美容()
        ConnOpen_AM()
        SQL1 = "SELECT 星期, 診別, 早, 中, 晚 FROM 門診資料 WHERE 星期 LIKE '" & PA6 & "' AND 診別 LIKE '美容'"
        CmdSet_For_dr()
    End Sub

End Module