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