GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/SQL_人事系統管理.vb

Module SQL_人事系統管理
    '---------------------人員ID卡系統配置設定-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_人員ID卡系統配置設定_清單()
        ConnOpen_ERP()
        If Val(登入人級別) <= 1 Then
            SQL1 = "SELECT 姓名 AS [" & 表頭(4) & "], 帳號 AS [" & 表頭(5) & "], 部門 AS [" & 表頭(6) & "], 課別 AS [" & 表頭(7) & "], 組別 AS [" & 表頭(8) & "], 
                           職稱 AS [" & 表頭(9) & "], ID卡號 AS [" & 表頭(10) & "] FROM 我的資料庫.dbo.使用者權限管理表 ORDER BY 職稱"
        Else
            SQL1 = "SELECT 姓名 AS [" & 表頭(4) & "], 帳號 AS [" & 表頭(5) & "], 部門 AS [" & 表頭(6) & "], 課別 AS [" & 表頭(7) & "], 組別 AS [" & 表頭(8) & "], 
                           職稱 AS [" & 表頭(9) & "], ID卡號 AS [" & 表頭(10) & "] FROM 我的資料庫.dbo.使用者權限管理表 WHERE CC24 = 0 ORDER BY 職稱"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員ID卡系統配置設定_配卡()
        ConnOpen_ERP()
        SQL1 = "UPDATE 我的資料庫.dbo.使用者權限管理表 SET ID卡號 = N'" & 人員ID卡系統配置設定.ID卡號_tb.Text & "' 
                WHERE (帳號 = N'" & 人員ID卡系統配置設定.帳號_tb.Text & "') AND (姓名 = N'" & 人員ID卡系統配置設定.姓名_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------系統組織結構圖-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_系統組織結_級別讀取()
        ConnOpen_ERP() : SQL1 = "SELECT 級別 FROM 我的資料庫.dbo.使用者權限管理表 WHERE (姓名 LIKE N'" & PA47 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_單位主管1()
        SQL_系統組織結_級別讀取()
        If dr.Read Then : PA46 = dr("級別") : End If
        ConnOpen_ERP()
        SQL1 = "SELECT  QQ.姓名 AS Lead, QQ.級別 as Level, QQ.職稱 AS Jobtitle
                FROM    我的資料庫.dbo.使用者權限管理表 INNER JOIN  我的資料庫.dbo.系統跨部門權限表 ON 我的資料庫.dbo.使用者權限管理表.職稱 = 我的資料庫.dbo.系統跨部門權限表.職稱 INNER JOIN
                       (SELECT  姓名, 級別, 職稱  FROM  我的資料庫.dbo.使用者權限管理表 AS 使用者權限管理表_1  WHERE  (CAST(級別 AS int) < " & PA46 & ") AND (級別 NOT LIKE '00')) AS QQ ON 
                        我的資料庫.dbo.系統跨部門權限表.姓名 = QQ.姓名
                WHERE  (我的資料庫.dbo.使用者權限管理表.姓名 LIKE N'" & PA47 & "') AND (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'" & PA47 & "')
                ORDER BY QQ.級別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_部門()
        ConnOpen_ERP() : 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_ERP()
        SQL1 = "SELECT  姓名 FROM  我的資料庫.dbo.使用者權限管理表 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_ERP()
        SQL1 = "SELECT 處 FROM HX職稱清單 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 HX職稱清單 WHERE (處 NOT LIKE N'%NA') GROUP BY 處 ORDER BY   處"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_處別_人員()
        ConnOpen()
        SQL1 = "SELECT  姓名 FROM  我的資料庫.dbo.使用者權限管理表 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 HX職稱清單 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 HX職稱清單 WHERE (課 NOT LIKE N'%NA') GROUP BY   課 ORDER BY   課"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_課別_人員()
        ConnOpen()
        SQL1 = "SELECT  姓名 FROM  我的資料庫.dbo.使用者權限管理表 WHERE (課別 LIKE N'" & PA & "') AND (組別 LIKE N'0000.NA')"
        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') GROUP BY   組 ORDER BY   組"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_組別1()
        ConnOpen()
        SQL1 = "SELECT 組 FROM HX職稱清單 WHERE (組 NOT LIKE N'%NA') GROUP BY 組 ORDER BY 組"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_組別_人員()
        ConnOpen()
        SQL1 = "SELECT  姓名 FROM  我的資料庫.dbo.使用者權限管理表 WHERE (組別 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員()
        ConnOpen()
        SQL1 = "SELECT      我的資料庫.dbo.使用者權限管理表.姓名 AS [" & 表頭(4) & "], 我的資料庫.dbo.使用者權限管理表.職稱 AS [" & 表頭(9) & "], 我的資料庫.dbo.使用者權限管理表.級別 AS [" & 表頭(138) & "], 我的資料庫.dbo.使用者權限管理表.部門, 
                            我的資料庫.dbo.使用者權限管理表.處別, 我的資料庫.dbo.使用者權限管理表.課別, 我的資料庫.dbo.使用者權限管理表.組別, 
                            我的資料庫.dbo.使用者權限管理表.帳號
                FROM              我的資料庫.dbo.使用者權限管理表 INNER JOIN
                                (SELECT            我的資料庫.dbo.系統跨部門權限表.姓名
                                  FROM             我的資料庫.dbo.系統跨部門權限表 INNER JOIN
                                                   HX職稱清單 ON 我的資料庫.dbo.系統跨部門權限表.職稱 = HX職稱清單.職稱
                                  WHERE           (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'NA') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'李協叡') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'LIN HSING HAO') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'%test%') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'%測試%') AND 
                                                  (HX職稱清單.部 LIKE N'" & PA & "') OR
                                                  (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'NA') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'李協叡') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'LIN HSING HAO') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'%test%') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'%測試%') AND 
                                                  (HX職稱清單.處 LIKE N'" & PA & "') OR
                                                  (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'NA') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'李協叡') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'LIN HSING HAO') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'%test%') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'%測試%') AND 
                                                  (HX職稱清單.課 LIKE N'" & PA & "') OR
                                                  (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'NA') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'李協叡') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'LIN HSING HAO') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'%test%') AND 
                                                  (我的資料庫.dbo.系統跨部門權限表.姓名 NOT LIKE N'%測試%') AND 
                                                  (HX職稱清單.組 LIKE N'" & PA & "')
                GROUP BY   我的資料庫.dbo.系統跨部門權限表.姓名) AS QQQ ON 我的資料庫.dbo.使用者權限管理表.姓名 = QQQ.姓名
                ORDER BY   我的資料庫.dbo.使用者權限管理表.級別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員1()
        ConnOpen()
        SQL1 = "SELECT 姓名, 職稱, 級別 FROM 我的資料庫.dbo.使用者權限管理表 WHERE (級別 LIKE N'02')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員2()
        ConnOpen()
        SQL1 = "SELECT     我的資料庫.dbo.系統跨部門權限表.姓名, 我的資料庫.dbo.使用者權限管理表.職稱, 我的資料庫.dbo.使用者權限管理表.級別
                FROM       我的資料庫.dbo.系統跨部門權限表 INNER JOIN
                           我的資料庫.dbo.使用者權限管理表 ON 我的資料庫.dbo.系統跨部門權限表.姓名 = 我的資料庫.dbo.使用者權限管理表.姓名 AND 
                           我的資料庫.dbo.系統跨部門權限表.帳號 = 我的資料庫.dbo.使用者權限管理表.帳號 RIGHT OUTER JOIN
                           HX職稱清單 ON 我的資料庫.dbo.系統跨部門權限表.職稱 = HX職稱清單.職稱
                WHERE     (HX職稱清單.部 LIKE N'" & PA & "') AND (HX職稱清單.處 LIKE N'NA') AND (HX職稱清單.課 LIKE N'NA') AND 
                          (HX職稱清單.組 LIKE N'NA') AND (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND (我的資料庫.dbo.使用者權限管理表.級別 LIKE N'03')
                GROUP BY   我的資料庫.dbo.系統跨部門權限表.姓名, 我的資料庫.dbo.使用者權限管理表.職稱, 我的資料庫.dbo.使用者權限管理表.級別
                ORDER BY   我的資料庫.dbo.系統跨部門權限表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員3()
        ConnOpen()
        SQL1 = "SELECT     我的資料庫.dbo.系統跨部門權限表.姓名, 我的資料庫.dbo.使用者權限管理表.職稱, 我的資料庫.dbo.使用者權限管理表.級別
                FROM       我的資料庫.dbo.系統跨部門權限表 INNER JOIN
                           我的資料庫.dbo.使用者權限管理表 ON 我的資料庫.dbo.系統跨部門權限表.姓名 = 我的資料庫.dbo.使用者權限管理表.姓名 AND 
                           我的資料庫.dbo.系統跨部門權限表.帳號 = 我的資料庫.dbo.使用者權限管理表.帳號 RIGHT OUTER JOIN
                           HX職稱清單 ON 我的資料庫.dbo.系統跨部門權限表.職稱 = HX職稱清單.職稱
                WHERE     (HX職稱清單.部 LIKE N'" & PA & "') AND (HX職稱清單.處 LIKE N'" & PA1 & "') AND (HX職稱清單.課 LIKE N'NA') AND 
                          (HX職稱清單.組 LIKE N'NA') AND (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND (我的資料庫.dbo.使用者權限管理表.級別 LIKE N'04')
                GROUP BY   我的資料庫.dbo.系統跨部門權限表.姓名, 我的資料庫.dbo.使用者權限管理表.職稱, 我的資料庫.dbo.使用者權限管理表.級別
                ORDER BY   我的資料庫.dbo.系統跨部門權限表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員4()
        ConnOpen()
        SQL1 = "SELECT     我的資料庫.dbo.系統跨部門權限表.姓名, 我的資料庫.dbo.使用者權限管理表.職稱, 我的資料庫.dbo.使用者權限管理表.級別
                FROM       我的資料庫.dbo.系統跨部門權限表 INNER JOIN
                           我的資料庫.dbo.使用者權限管理表 ON 我的資料庫.dbo.系統跨部門權限表.姓名 = 我的資料庫.dbo.使用者權限管理表.姓名 AND 
                           我的資料庫.dbo.系統跨部門權限表.帳號 = 我的資料庫.dbo.使用者權限管理表.帳號 RIGHT OUTER JOIN
                           HX職稱清單 ON 我的資料庫.dbo.系統跨部門權限表.職稱 = HX職稱清單.職稱
                WHERE     (HX職稱清單.部 LIKE N'" & PA & "') AND (HX職稱清單.處 LIKE N'" & PA1 & "') AND (HX職稱清單.課 LIKE N'" & PA2 & "') AND 
                          (HX職稱清單.組 LIKE N'NA') AND (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND (我的資料庫.dbo.使用者權限管理表.級別 LIKE N'05')
                GROUP BY   我的資料庫.dbo.系統跨部門權限表.姓名, 我的資料庫.dbo.使用者權限管理表.職稱, 我的資料庫.dbo.使用者權限管理表.級別
                ORDER BY   我的資料庫.dbo.系統跨部門權限表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統組織結構圖_人員5()
        ConnOpen()
        SQL1 = "SELECT     我的資料庫.dbo.系統跨部門權限表.姓名, 我的資料庫.dbo.使用者權限管理表.職稱, 我的資料庫.dbo.使用者權限管理表.級別
                FROM       我的資料庫.dbo.系統跨部門權限表 INNER JOIN
                           我的資料庫.dbo.使用者權限管理表 ON 我的資料庫.dbo.系統跨部門權限表.姓名 = 我的資料庫.dbo.使用者權限管理表.姓名 AND 
                           我的資料庫.dbo.系統跨部門權限表.帳號 = 我的資料庫.dbo.使用者權限管理表.帳號 RIGHT OUTER JOIN
                           HX職稱清單 ON 我的資料庫.dbo.系統跨部門權限表.職稱 = HX職稱清單.職稱
                WHERE     (HX職稱清單.部 LIKE N'" & PA & "') AND (HX職稱清單.處 LIKE N'" & PA1 & "') AND (HX職稱清單.課 LIKE N'" & PA2 & "') AND 
                          (HX職稱清單.組 LIKE N'" & PA3 & "') AND (我的資料庫.dbo.系統跨部門權限表.授權 = 1) AND ((我的資料庫.dbo.使用者權限管理表.級別 LIKE N'06') OR 
                          (我的資料庫.dbo.使用者權限管理表.級別 LIKE N'07') OR (我的資料庫.dbo.使用者權限管理表.級別 LIKE N'08') OR (我的資料庫.dbo.使用者權限管理表.級別 LIKE N'09'))
                GROUP BY   我的資料庫.dbo.系統跨部門權限表.姓名, 我的資料庫.dbo.使用者權限管理表.職稱, 我的資料庫.dbo.使用者權限管理表.級別
                ORDER BY   我的資料庫.dbo.系統跨部門權限表.姓名"
        CmdSet_For_DGV()
    End Sub
End Module