123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419 |
- Module SQL_人事系統管理
- Friend Sub SQL_人員薪資表1()
- If PA25 = "-1" Or PA25 = "0" Or PA25 = "" 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 使用者權限管理表.級別 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 使用者權限管理表.級別 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], [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 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
- AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
- Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') 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 使用者權限管理表.級別 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 使用者權限管理表.級別 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 使用者權限管理表.級別 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 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
- AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
- Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') 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 使用者權限管理表.級別 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_考勤虛擬表()
- ConnOpen_管理SQL()
- SQL1 = "SELECT 帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期
- FROM 虛擬考勤明細表 WHERE (日期 LIKE '" & PA25 & "')"
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_特殊供應商()
- ConnOpen() : SQL1 = "SELECT 供應商編碼, 公司名 FROM 供應商資料表 WHERE (特殊 = 1)" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_使用地點()
- ConnOpen() : SQL1 = "SELECT 使用地點 FROM 採購單控制表 GROUP BY 使用地點" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_詢價人員()
- ConnOpen() : SQL1 = "SELECT 詢價員 FROM 採購單控制表 GROUP BY 詢價員" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_可用物料()
- ConnOpen()
- SQL1 = "SELECT QQ.供應商編碼, QQ.單價, 物料規格表.料號, 物料編碼庫轉語言.品名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3,
- 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料編碼庫.單位, 物料規格表.群組碼,
- 物料規格表.料號原則
- FROM 物料規格表 INNER JOIN 物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN
- 物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN
- (SELECT 供應商產品清單.供應商編碼, 供應商產品清單.料號, 供應商產品清單.單價
- FROM 供應商產品清單 INNER JOIN 供應商資料表 ON 供應商產品清單.供應商編碼 = 供應商資料表.供應商編碼
- WHERE (供應商資料表.特殊 = 1)
- GROUP BY 供應商產品清單.供應商編碼, 供應商產品清單.料號, 供應商產品清單.單價) AS QQ ON
- 物料規格表.料號 = QQ.料號
- WHERE (物料規格表.特殊 = 1) AND (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "')
- ORDER BY QQ.供應商編碼, 物料規格表.料號"
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_申請人()
- ConnOpen() : SQL1 = "SELECT 申請人 FROM 採購單明細表 WHERE (申請人 IS NOT NULL) GROUP BY 申請人" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_合約號()
- ConnOpen() : SQL1 = "SELECT 合約號 FROM 採購單明細表 WHERE (合約號 NOT LIKE 'P%') AND (合約號 NOT LIKE 'H%') AND (合約號 NOT LIKE '') GROUP BY 合約號" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_該月單號()
- ConnOpen()
- SQL1 = "SELECT 採購單號 FROM 採購單控制表 WHERE (採購單號 LIKE '%" & 每月零用金設定.年份2_cb.Text & 每月零用金設定.月份2_cb.Text & "%') ORDER BY 採購單號"
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_採購控制表1()
- ConnOpen()
- SQL1 = "SELECT * FROM 採購單控制表 WHERE (採購單號 LIKE '%" & 每月零用金設定.年份2_cb.Text & 每月零用金設定.月份2_cb.Text & "%') AND 特殊 = 1 ORDER BY 採購單號"
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_採購明細表1()
- ConnOpen() : SQL1 = "SELECT * FROM 採購單明細表 " & SQL2 & " ORDER BY 採購單號" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_採購控制表()
- ConnOpen() : SQL1 = "SELECT TOP (" & CInt(每月零用金設定.開單數_nud.Value) & ") * FROM 採購單控制表" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_採購明細表()
- ConnOpen() : SQL1 = "SELECT TOP (" & CInt(每月零用金設定.開單數_nud.Value) * 7 & ") * FROM 採購單明細表" : 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() : 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 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 部門名稱 IS NOT NULL AND 部門名稱 NOT LIKE '' GROUP BY 部門名稱 ORDER BY 部門名稱" : 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 虛擬考勤明細表 (帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期) 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() : SQL1 = "SELECT 金額 FROM 財務零用金紀錄 WHERE (時間 LIKE '" & PA & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_財務零用金紀錄_新增()
- ConnOpen() : SQL1 = "INSERT INTO 財務零用金紀錄 (時間, 金額) VALUES ('" & PA & "', '" & PA1 & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_財務零用金紀錄_修改()
- ConnOpen() : SQL1 = "UPDATE 財務零用金紀錄 SET 金額 = '" & PA1 & "' WHERE (時間 LIKE '" & PA & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_虛擬採購控制表新增()
- ConnOpen()
- SQL1 = "INSERT INTO 採購單控制表 (採購單號, 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期,
- 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 採購員, 採購日期, 已會計, 已出納, 現金, 備用金, 公帳, 一級核准,
- 一級核准核准日期, 一級核准簽名檔編號, 特殊) VALUES " & SQL2
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_虛擬採購明細表新增()
- ConnOpen()
- SQL1 = "INSERT INTO 採購單明細表 (採購單號, 品名, 規格, 備註, 數量, 單位, 單價, 項次, 已收貨, 群組碼, 料號原則, 料號, 已入庫, 已申請入庫,
- 請購單號, 合約號, 申請人) VALUES " & SQL2
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_財物支付單申請_查詢財務收支控制表()
- ConnOpen()
- SQL1 = "SELECT 財務收支明細表.流水號 AS [" & 表頭(107) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.申請人 AS [" & 表頭(1) & "],
- 財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫,
- 財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 AS [" & 表頭(2) & "], 財務收支明細表.備用金 AS [" & 表頭(3) & "],
- 財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行
- FROM 財務收支明細表 INNER JOIN
- 財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號
- WHERE (財務收支明細表.流水號 LIKE '%" & PA25 & "')
- ORDER BY 財務收支明細表.流水號 DESC"
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_財物支付單申請_查詢財務收支控制表1()
- ConnOpen()
- SQL1 = "SELECT 財務收支明細表.流水號 AS [" & 表頭(107) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.申請人 AS [" & 表頭(1) & "],
- 財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫,
- 財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 AS [" & 表頭(2) & "], 財務收支明細表.備用金 AS [" & 表頭(3) & "],
- 財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行
- FROM 財務收支明細表 INNER JOIN
- 財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號
- WHERE (財務收支明細表.流水號 NOT LIKE 'B%')
- ORDER BY 財務收支控制表.申請日期 DESC"
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_部門選單()
- ConnOpen() : SQL1 = "SELECT 部門 FROM 財務部門 ORDER BY 部門" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
- ConnOpen() : SQL1 = "SELECT TOP (1) 支付單號 FROM 財務收支控制表 WHERE ( 支付單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單申請_新增一筆財務收支控制表()
- ConnOpen()
- SQL1 = "INSERT INTO 財務收支控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號, 特殊) " &
- "VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'', '1')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_財物支付單申請_查詢最後一筆公帳支付單號()
- ConnOpen() : SQL1 = "SELECT TOP(1) 流水號 FROM 財務收支明細表 WHERE (財務收支明細表.流水號 LIKE '%" & PA25 & "') ORDER BY 財務收支明細表.流水號 DESC" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_新增財物支付單明細表資料()
- ConnOpen()
- SQL1 = "INSERT INTO 財務收支明細表 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 出納日期, 零用金, 支票數,
- 匯率, 備註, 大寫, 支付對象, 公司, 付款銀行, 銀行支行)
- VALUES (N'" & PA19 & "', N'IDR', N'" & DTP & "', N'" & 指定會科 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA12 & "', N'" & gUserName & "', N'" & PA15 & "',
- N'" & PA11 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'1', N'" & PA37 & "', N'" & PA38 & "', N'" & PA39 & "', N'" & PA40 & "',
- N'" & PA41 & "', N'" & PA42 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單申請_刪除財務收支控制表()
- ConnOpen()
- SQL1 = "DELETE FROM 財務收支控制表 WHERE (支付單號 LIKE N'" & PA45 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單申請_刪除財務收支明細表()
- ConnOpen()
- SQL1 = "DELETE FROM 財務收支明細表 WHERE (支付單號 LIKE N'" & PA45 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單審核_審核人3()
- ConnOpen()
- SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & PA42 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單審核_修改財務收支控制表()
- ConnOpen()
- SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & PA27 & "', 簽名編碼 = N'" & PA28 & "', 出納 = '" & gUserName & "',
- 出納日期 = N'" & DTP & "'
- WHERE (支付單號 = N'" & PA29 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單審核_修改財務收支明細表()
- ConnOpen() : SQL1 = "UPDATE 財務收支明細表 SET 出納 = '1', 出納日期 = N'" & DTP & "' WHERE (支付單號 LIKE N'" & PA29 & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單審核_修改財務收支明細表備用金()
- ConnOpen()
- SQL1 = "UPDATE 財務收支明細表 SET 備用金 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單審核_修改財務收支明細表現金()
- ConnOpen()
- SQL1 = "UPDATE 財務收支明細表 SET 現金 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_營運成本收支單審核_修改財務收支明細表支出()
- ConnOpen()
- SQL1 = "UPDATE 財務收支明細表 SET 公帳 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_財務採購關聯表_反改查詢()
- ConnOpen() : SQL1 = "SELECT 採購單號, 轉財務金額, 流水號 FROM 財務採購關聯表 WHERE (財務單號 LIKE '" & PA20 & "')" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_財務採購關聯表_反改()
- ConnOpen() : SQL1 = "DELETE 財務採購關聯表 WHERE (財務單號 LIKE '" & PA20 & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_採購單控制表_反改查詢()
- ConnOpen() : SQL1 = "SELECT 轉財務金額 FROM 採購單控制表 WHERE (採購單號 LIKE '" & PA21 & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_採購單控制表_反改()
- ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET 轉財務金額 = '" & PA22 & "' WHERE (採購單號 LIKE '" & PA21 & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_採購單詢價_控制刪除()
- ConnOpen() : SQL1 = "DELETE FROM 採購單控制表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_採購單詢價_明細刪除()
- ConnOpen() : SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
- End Sub
- End Module
|