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

Module SQL_人事系統管理
    '---------------------系統組織結構圖-----------------------------------------------------------------------------------------------------------------
    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 N'00')) AS QQ ON 
                        系統跨部門權限表.姓名 = QQ.姓名
                WHERE  (使用者權限管理表.姓名 LIKE N'" & PA47 & "') AND (系統跨部門權限表.授權 = 1) AND (系統跨部門權限表.姓名 NOT LIKE N'" & PA47 & "')
                ORDER BY QQ.級別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_部門()
        ConnOpen() : SQL1 = "SELECT 部門 FROM ICS部門清單 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')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_處別()
        ConnOpen()
        SQL1 = "SELECT 處 FROM ICS職稱清單 WHERE (部 LIKE N'" & PA & "') AND (處 NOT LIKE N'%NA') GROUP BY   處 ORDER BY   處"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_處別1()
        ConnOpen()
        SQL1 = "SELECT 處 FROM ICS職稱清單 WHERE (處 NOT LIKE N'%NA') 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')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_課別()
        ConnOpen()
        SQL1 = "SELECT 課 FROM ICS職稱清單 WHERE (部 LIKE N'" & PA & "') AND (處 LIKE N'" & PA1 & "') AND (課 NOT LIKE N'%NA') GROUP BY   課 ORDER BY   課"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_課別1()
        ConnOpen()
        SQL1 = "SELECT 課 FROM ICS職稱清單 WHERE (課 NOT LIKE N'%NA') 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')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_組別()
        ConnOpen()
        SQL1 = "SELECT 組 FROM ICS職稱清單 WHERE (部 LIKE N'" & PA & "') AND (處 LIKE N'" & PA1 & "') AND (課 LIKE N'" & PA2 & "')  AND (組 NOT LIKE N'%NA') GROUP BY   組 ORDER BY   組"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_組別1()
        ConnOpen()
        SQL1 = "SELECT 組 FROM ICS職稱清單 WHERE (組 NOT LIKE N'%NA') GROUP BY 組 ORDER BY 組"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_組別_人員()
        ConnOpen()
        SQL1 = "SELECT  姓名 FROM  使用者權限管理表 WHERE (組別 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員()
        ConnOpen()
        SQL1 = "SELECT      使用者權限管理表.姓名 AS [" & 表頭(4) & "], 使用者權限管理表.職稱 AS [" & 表頭(9) & "], 使用者權限管理表.級別 AS [" & 表頭(138) & "], 使用者權限管理表.部門, 
                            使用者權限管理表.處別, 使用者權限管理表.課別, 使用者權限管理表.組別, 
                            使用者權限管理表.帳號
                FROM              使用者權限管理表 INNER JOIN
                                (SELECT            系統跨部門權限表.姓名
                                  FROM             系統跨部門權限表 INNER JOIN
                                                   ICS職稱清單 ON 系統跨部門權限表.職稱 = ICS職稱清單.職稱
                                  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 
                                                  (ICS職稱清單.部 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 
                                                  (ICS職稱清單.處 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 
                                                  (ICS職稱清單.課 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 
                                                  (ICS職稱清單.組 LIKE N'" & PA & "')
                GROUP BY   系統跨部門權限表.姓名) AS QQQ ON 使用者權限管理表.姓名 = QQQ.姓名
                ORDER BY   使用者權限管理表.級別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員1()
        ConnOpen()
        SQL1 = "SELECT 姓名, 職稱, 級別 FROM 使用者權限管理表 WHERE (級別 LIKE N'02')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員2()
        ConnOpen()
        SQL1 = "SELECT     系統跨部門權限表.姓名, 使用者權限管理表.職稱, 使用者權限管理表.級別
                FROM       系統跨部門權限表 INNER JOIN
                           使用者權限管理表 ON 系統跨部門權限表.姓名 = 使用者權限管理表.姓名 AND 
                           系統跨部門權限表.帳號 = 使用者權限管理表.帳號 RIGHT OUTER JOIN
                           ICS職稱清單 ON 系統跨部門權限表.職稱 = ICS職稱清單.職稱
                WHERE     (ICS職稱清單.部 LIKE N'" & PA & "') AND (ICS職稱清單.處 LIKE N'NA') AND (ICS職稱清單.課 LIKE N'NA') AND 
                          (ICS職稱清單.組 LIKE N'NA') AND (系統跨部門權限表.授權 = 1) AND (使用者權限管理表.級別 LIKE N'03')
                GROUP BY   系統跨部門權限表.姓名, 使用者權限管理表.職稱, 使用者權限管理表.級別
                ORDER BY   系統跨部門權限表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員3()
        ConnOpen()
        SQL1 = "SELECT     系統跨部門權限表.姓名, 使用者權限管理表.職稱, 使用者權限管理表.級別
                FROM       系統跨部門權限表 INNER JOIN
                           使用者權限管理表 ON 系統跨部門權限表.姓名 = 使用者權限管理表.姓名 AND 
                           系統跨部門權限表.帳號 = 使用者權限管理表.帳號 RIGHT OUTER JOIN
                           ICS職稱清單 ON 系統跨部門權限表.職稱 = ICS職稱清單.職稱
                WHERE     (ICS職稱清單.部 LIKE N'" & PA & "') AND (ICS職稱清單.處 LIKE N'" & PA1 & "') AND (ICS職稱清單.課 LIKE N'NA') AND 
                          (ICS職稱清單.組 LIKE N'NA') AND (系統跨部門權限表.授權 = 1) AND (使用者權限管理表.級別 LIKE N'04')
                GROUP BY   系統跨部門權限表.姓名, 使用者權限管理表.職稱, 使用者權限管理表.級別
                ORDER BY   系統跨部門權限表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員4()
        ConnOpen()
        SQL1 = "SELECT     系統跨部門權限表.姓名, 使用者權限管理表.職稱, 使用者權限管理表.級別
                FROM       系統跨部門權限表 INNER JOIN
                           使用者權限管理表 ON 系統跨部門權限表.姓名 = 使用者權限管理表.姓名 AND 
                           系統跨部門權限表.帳號 = 使用者權限管理表.帳號 RIGHT OUTER JOIN
                           ICS職稱清單 ON 系統跨部門權限表.職稱 = ICS職稱清單.職稱
                WHERE     (ICS職稱清單.部 LIKE N'" & PA & "') AND (ICS職稱清單.處 LIKE N'" & PA1 & "') AND (ICS職稱清單.課 LIKE N'" & PA2 & "') AND 
                          (ICS職稱清單.組 LIKE N'NA') AND (系統跨部門權限表.授權 = 1) AND (使用者權限管理表.級別 LIKE N'05')
                GROUP BY   系統跨部門權限表.姓名, 使用者權限管理表.職稱, 使用者權限管理表.級別
                ORDER BY   系統跨部門權限表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員5()
        ConnOpen()
        SQL1 = "SELECT     系統跨部門權限表.姓名, 使用者權限管理表.職稱, 使用者權限管理表.級別
                FROM       系統跨部門權限表 INNER JOIN
                           使用者權限管理表 ON 系統跨部門權限表.姓名 = 使用者權限管理表.姓名 AND 
                           系統跨部門權限表.帳號 = 使用者權限管理表.帳號 RIGHT OUTER JOIN
                           ICS職稱清單 ON 系統跨部門權限表.職稱 = ICS職稱清單.職稱
                WHERE     (ICS職稱清單.部 LIKE N'" & PA & "') AND (ICS職稱清單.處 LIKE N'" & PA1 & "') AND (ICS職稱清單.課 LIKE N'" & PA2 & "') AND 
                          (ICS職稱清單.組 LIKE N'" & PA3 & "') AND (系統跨部門權限表.授權 = 1) AND ((使用者權限管理表.級別 LIKE N'06') OR 
                          (使用者權限管理表.級別 LIKE N'07') OR (使用者權限管理表.級別 LIKE N'08') OR (使用者權限管理表.級別 LIKE N'09'))
                GROUP BY   系統跨部門權限表.姓名, 使用者權限管理表.職稱, 使用者權限管理表.級別
                ORDER BY   系統跨部門權限表.姓名"
        CmdSet_For_DGV()
    End Sub
End Module