HX-PGS-ERP-SYS
/
Calculator-Backend-SYS-LEEHSIEHJUI
Segui 4
Vota 0
Forka 0
Codice Problemi 0 Pull Requests 0 Rilasci 0 Wiki Attività
Nessuna descrizione
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4 Commit
1 Ramo (Branch)
Ramo (Branch): master
Rami (Branch) Tag
${ item.name }
Crea branch ${ searchTerm }
da 'master'
${ noResults }
Calculator-Backend-SYS-LEEH.../Calculator-Backend-SYS/SQL_語法_1.vb

SQL_語法_1.vb 63KB
Permalink Cronologia Originale

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593 
  1. Module SQL_語法_1

  2.     Friend Sub SQL_人員薪資表1()

  3.         If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5

  4.         ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5

  5.         ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If

  6.         If BL = False Then

  7.             ConnOpen()

  8.             If 在職 = True Then

  9.                 If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 

  10.                                                        AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  11.                 Else

  12.                     SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  13.                                     使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  14.                 End If

  15.             Else

  16.                 If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3

  17.                 Else

  18.                     SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  19.                                     姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  20.                 End If

  21.             End If

  22.             SQL1 = "SELECT       [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 

  23.                                   使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  

  24.                                  [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 

  25.                                   使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 

  26.                                  [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 

  27.                                  [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 

  28.                                  [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 

  29.                                   使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 

  30.                                   使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 

  31.                                   使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 

  32.                                   使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 

  33.                                   使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 

  34.                                   使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 

  35.                                   使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 

  36.                                   使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 

  37.                                   使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 

  38.                                   使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 

  39.                                   使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號

  40.                     FROM          使用者權限管理表 LEFT OUTER JOIN

  41.                                   HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN

  42.                                  [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "

  43.                     ORDER BY     " & SQL4

  44.             CmdSet_For_DGV()

  45.         Else

  46.             ConnOpen()

  47.             If 在職 = True Then

  48.                 If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  49.                                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  50.                 Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  51.                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If

  52.             Else

  53.                 If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  54.                                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  55.                 Else

  56.                     SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  57.                                   使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  58.                 End If

  59.             End If

  60.             SQL1 = "SELECT     [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 

  61.                                 使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 

  62.                                [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 

  63.                                 使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 

  64.                                [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 

  65.                                [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 

  66.                                [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 

  67.                                 使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 

  68.                                 使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 

  69.                                 使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 

  70.                                 使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 

  71.                                 使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 

  72.                                 使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 

  73.                                 使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 

  74.                                 使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 

  75.                                 使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 

  76.                                 使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 

  77.                                 使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號

  78.                     FROM        使用者權限管理表 LEFT OUTER JOIN

  79.                                 HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN

  80.                                 [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號

  81.                     WHERE      (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 

  82.                                 使用者權限管理表.級別 LIKE '09') " & SQL2 & " 

  83.                     ORDER BY     " & SQL4

  84.             CmdSet_For_DGV()

  85.         End If

  86.     End Sub

  87.     Friend Sub SQL_人員薪資表2()

  88.         If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5

  89.         ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5

  90.         ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If

  91.         If BL = False Then

  92.             ConnOpen()

  93.             If 在職 = True Then

  94.                 If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 

  95.                                                        AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  96.                 Else

  97.                     SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  98.                                     使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  99.                 End If

  100.             Else

  101.                 If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3

  102.                 Else

  103.                     SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  104.                                     姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  105.                 End If

  106.             End If

  107.             SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 

  108.                                     使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  

  109.                                    [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 

  110.                                     使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 

  111.                                    [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 

  112.                                    [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 

  113.                                    [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 

  114.                                     使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 

  115.                                     使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 

  116.                                     使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 

  117.                                     使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 

  118.                                     使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 

  119.                                     使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 

  120.                                     使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 

  121.                                     使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 

  122.                                     使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 

  123.                                     使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 

  124.                                     使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號

  125.                     FROM            使用者權限管理表 LEFT OUTER JOIN

  126.                                     HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN

  127.                                    [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "

  128.                     ORDER BY       " & SQL4

  129.             CmdSet_For_DGV()

  130.         Else

  131.             ConnOpen()

  132.             If 在職 = True Then

  133.                 If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  134.                                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  135.                 Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  136.                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If

  137.             Else

  138.                 If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  139.                                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  140.                 Else

  141.                     SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  142.                                   使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  143.                 End If

  144.             End If

  145.             SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 

  146.                                     使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 

  147.                                    [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 

  148.                                     使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 

  149.                                    [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 

  150.                                    [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 

  151.                                    [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 

  152.                                     使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 

  153.                                     使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 

  154.                                     使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 

  155.                                     使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 

  156.                                     使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 

  157.                                     使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 

  158.                                     使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 

  159.                                     使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 

  160.                                     使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 

  161.                                     使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 

  162.                                     使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號

  163.                     FROM            使用者權限管理表 LEFT OUTER JOIN

  164.                                     HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN

  165.                                     [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號

  166.                     WHERE          (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 

  167.                                     使用者權限管理表.級別 LIKE '09') " & SQL2 & " 

  168.                     ORDER BY        " & SQL4

  169.             CmdSet_For_DGV()

  170.         End If

  171.     End Sub

  172.     Friend Sub SQL_工人薪資彙總報表_查詢()

  173.         ConnOpen_管理SQL()

  174.         SQL1 = "SELECT 金額 FROM 工人薪資彙總報表 WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"

  175.         CmdSet_For_dr()

  176.     End Sub

  177.     Friend Sub SQL_工人薪資彙總報表_新增()

  178.         ConnOpen_管理SQL()

  179.         SQL1 = "INSERT INTO 工人薪資彙總報表 (年, 月, 周, 人數, 金額, 特殊) 

  180.                 VALUES (N'" & PA25 & "',N'" & PA26 & "',N'" & PA27 & "',N'" & PA28 & "',N'" & PA29 & "',N'" & PA30 & "')"

  181.         CmdSet_For_dr()

  182.     End Sub

  183.     Friend Sub SQL_工人薪資彙總報表_修改()

  184.         ConnOpen_管理SQL()

  185.         SQL1 = "UPDATE 工人薪資彙總報表 SET 人數 = N'" & PA28 & "', 金額 = N'" & PA29 & "'

  186.                 WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"

  187.         CmdSet_For_dr()

  188.     End Sub

  189.     Friend Sub SQL_工人薪資彙總報表_查詢_T()

  190.         ConnOpen_管理SQL_T()

  191.         SQL1 = "SELECT 金額 FROM 工人薪資彙總報表 WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"

  192.         CmdSet_For_dr()

  193.     End Sub

  194.     Friend Sub SQL_工人薪資彙總報表_新增_T()

  195.         ConnOpen_管理SQL_T()

  196.         SQL1 = "INSERT INTO 工人薪資彙總報表 (年, 月, 周, 人數, 金額, 特殊) 

  197.                 VALUES (N'" & PA25 & "',N'" & PA26 & "',N'" & PA27 & "',N'" & PA28 & "',N'" & PA29 & "',N'" & PA30 & "')"

  198.         CmdSet_For_dr()

  199.     End Sub

  200.     Friend Sub SQL_工人薪資彙總報表_修改_T()

  201.         ConnOpen_管理SQL_T()

  202.         SQL1 = "UPDATE 工人薪資彙總報表 SET 人數 = N'" & PA28 & "', 金額 = N'" & PA29 & "'

  203.                 WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"

  204.         CmdSet_For_dr()

  205.     End Sub

  206.     Friend Sub SQL_考勤虛擬表()

  207.         ConnOpen_管理SQL()

  208.         SQL1 = "SELECT  帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期

  209.                 FROM    虛擬考勤明細表  WHERE  (日期 LIKE '" & PA25 & "')"

  210.         CmdSet_For_DGV()

  211.     End Sub

  212.     Friend Sub SQL_考勤總明細()

  213.         ConnOpen_管理SQL()

  214.         SQL1 = "SELECT    QQ.ID卡號, 萬年曆.星期 AS MGB, 萬年曆.星期 AS [" & 表頭(2) & "], 萬年曆.日期 AS [" & 表頭(3) & "], QQ.第一, QQ.第二, QQ.第三, QQ.第四, QQ.第五, QQ.第六, 

  215.                           QQ.第一 AS [" & 表頭(4) & "], QQ.第一 AS [" & 表頭(5) & "], QQ.第一 AS [" & 表頭(6) & "], QQ.第一 AS [" & 表頭(7) & "], QQ.第一 AS [" & 表頭(8) & "],

  216.                           QQ.第一 AS [" & 表頭(9) & "], QQ.第一 AS [" & 表頭(10) & "], QQ.第一 AS [" & 表頭(11) & "], QQ.第一 AS [" & 表頭(12) & "], QQ.第一 AS [" & 表頭(13) & "],

  217.                           QQ.第一 AS [" & 表頭(14) & "], QQ.第一 AS [" & 表頭(15) & "], QQ.第一 AS [" & 表頭(16) & "], QQ.加班 AS [" & 表頭(17) & "], 萬年曆.假日 AS [" & 表頭(18) & "]

  218.                 FROM      萬年曆 LEFT OUTER JOIN  (SELECT  ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班

  219.                           FROM    人事考勤明細表) AS QQ ON 萬年曆.日期 = QQ.日期

  220.                 WHERE    (LEFT(萬年曆.日期, 7) LIKE '" & PA2 & "/" & PA3 & "')

  221.                 ORDER BY  LEFT(萬年曆.日期, 7), 萬年曆.日期"

  222.         CmdSet_For_DGV()

  223.     End Sub

  224.     Friend Sub SQL_考勤級別讀取()

  225.         ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (姓名 LIKE N'" & PA47 & "')" : CmdSet_For_dr()

  226.         If BL = False Then

  227.             ConnOpen()

  228.             If PA = "" Then

  229.                 If 在職 = True Then : SQL2 = " WHERE (CC63 = 0)" : Else : SQL2 = " WHERE (CC63 = 1)" : End If

  230.                 SQL1 = "SELECT  級別 FROM 使用者權限管理表 " & SQL2 & " GROUP BY 級別 ORDER BY 級別"

  231.             Else

  232.                 If 登入人級別 = "00" Then : SQL2 = "" : Else : If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If : End If

  233.                 SQL1 = "SELECT    級別 FROM 使用者權限管理表 

  234.                         WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR 

  235.                                  (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%')) " & SQL2 & "

  236.                         GROUP BY 級別  ORDER BY  級別"

  237.             End If

  238.             CmdSet_For_dr()

  239.         Else

  240.             ConnOpen()

  241.             If PA = "" Then

  242.                 If 在職 = True Then : SQL2 = " WHERE (CC63 = 0)" : Else : SQL2 = " WHERE (CC63 = 1)" : End If

  243.                 SQL1 = "SELECT  級別 FROM 使用者權限管理表 " & SQL2 & " GROUP BY 級別 ORDER BY 級別"

  244.             Else

  245.                 If 登入人級別 = "00" Then : SQL2 = "" : Else : If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If : End If

  246.                 SQL1 = "SELECT    級別 FROM 使用者權限管理表 

  247.                         WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR 

  248.                                  (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%')) " & SQL2 & "

  249.                         GROUP BY 級別  ORDER BY  級別"

  250.             End If

  251.             CmdSet_For_dr()

  252.         End If

  253.     End Sub

  254.     Friend Sub SQL_年分清單()

  255.         ConnOpen_管理SQL() : SQL1 = "SELECT  LEFT(日期, 4) AS 日期  FROM  人事考勤明細表  GROUP BY   LEFT(日期, 4)  ORDER BY  日期 DESC" : CmdSet_For_dr()

  256.     End Sub

  257.     Friend Sub SQL_人員薪資表_群組()

  258.         ConnOpen_管理SQL() : SQL1 = "SELECT 部門名稱 FROM 人員資料表 WHERE 部門名稱 IS NOT NULL AND 部門名稱 NOT LIKE '' GROUP BY 部門名稱 ORDER BY 部門名稱" : CmdSet_For_dr()

  259.     End Sub

  260.     Friend Sub SQL_人員薪資表_修改()

  261.         ConnOpen_管理SQL()

  262.         SQL1 = "UPDATE 人員資料表 SET 部門名稱 = N'" & PA30 & "', 群組 = N'" & PA31 & "', 薪資 = N'" & PA32 & "' WHERE 帳號 LIKE N'" & PA33 & "'"

  263.         CmdSet_For_dr()

  264.     End Sub

  265.     Friend Sub SQL_虛擬考勤明細表新增()

  266.         ConnOpen_管理SQL()

  267.         SQL1 = "INSERT INTO 虛擬考勤明細表 (帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期) VALUES " & SQL2

  268.         CmdSet_For_dr()

  269.     End Sub

  270.     Friend Sub SQL_虛擬考勤明細表刪除()

  271.         ConnOpen_管理SQL()

  272.         SQL1 = "DELETE 虛擬考勤明細表 WHERE 日期 LIKE '" & PA45 & "'"

  273.         CmdSet_For_dr()

  274.     End Sub

  275.     Friend Sub SQL_人員薪資表1_1()

  276.         If PA25 = "-1" Or PA25 = "0" Or PA25 = "" Or 工人 = True Then : SQL3 = "" & SQL5

  277.         ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5

  278.         ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If

  279.         If BL = False Then

  280.             ConnOpen()

  281.             If 在職 = True Then

  282.                 If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 

  283.                                                        AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  284.                 Else

  285.                     SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  286.                                     使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  287.                 End If

  288.             Else

  289.                 If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3

  290.                 Else

  291.                     SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  292.                                     姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  293.                 End If

  294.             End If

  295.             SQL1 = "SELECT       [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 

  296.                                   使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  

  297.                                  [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 

  298.                                   使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 

  299.                                  [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 

  300.                                  [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 

  301.                                  [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 

  302.                                   使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 

  303.                                   使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 

  304.                                   使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 

  305.                                   使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 

  306.                                   使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 

  307.                                   使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 

  308.                                   使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 

  309.                                   使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 

  310.                                   使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 

  311.                                   使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 

  312.                                   使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號

  313.                     FROM          使用者權限管理表 LEFT OUTER JOIN

  314.                                   HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN

  315.                                  [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "

  316.                     ORDER BY     " & SQL4

  317.             CmdSet_For_DGV()

  318.         Else

  319.             ConnOpen()

  320.             If 在職 = True Then

  321.                 If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  322.                                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  323.                 Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  324.                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If

  325.             Else

  326.                 If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  327.                                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  328.                 Else

  329.                     SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  330.                                   使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  331.                 End If

  332.             End If

  333.             SQL1 = "SELECT     [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 

  334.                                 使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 

  335.                                [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 

  336.                                 使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 

  337.                                [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 

  338.                                [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 

  339.                                [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 

  340.                                 使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 

  341.                                 使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 

  342.                                 使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 

  343.                                 使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 

  344.                                 使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 

  345.                                 使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 

  346.                                 使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 

  347.                                 使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 

  348.                                 使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 

  349.                                 使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 

  350.                                 使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號

  351.                     FROM        使用者權限管理表 LEFT OUTER JOIN

  352.                                 HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN

  353.                                 [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號

  354.                     WHERE      (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 

  355.                                 使用者權限管理表.級別 LIKE '09') " & SQL2 & " 

  356.                     ORDER BY     " & SQL4

  357.             CmdSet_For_DGV()

  358.         End If

  359.     End Sub

  360.     Friend Sub SQL_人員薪資表2_1()

  361.         If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5

  362.         ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5

  363.         ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If

  364.         If BL = False Then

  365.             ConnOpen()

  366.             If 在職 = True Then

  367.                 If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 

  368.                                                        AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  369.                 Else

  370.                     SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  371.                                     使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  372.                 End If

  373.             Else

  374.                 If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3

  375.                 Else

  376.                     SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  377.                                     姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  378.                 End If

  379.             End If

  380.             SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 

  381.                                     使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  

  382.                                    [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 

  383.                                     使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 

  384.                                    [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 

  385.                                    [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 

  386.                                    [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 

  387.                                     使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 

  388.                                     使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 

  389.                                     使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 

  390.                                     使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 

  391.                                     使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 

  392.                                     使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 

  393.                                     使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 

  394.                                     使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 

  395.                                     使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 

  396.                                     使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 

  397.                                     使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號

  398.                     FROM            使用者權限管理表 LEFT OUTER JOIN

  399.                                     HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN

  400.                                    [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "

  401.                     ORDER BY       " & SQL4

  402.             CmdSet_For_DGV()

  403.         Else

  404.             ConnOpen()

  405.             If 在職 = True Then

  406.                 If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  407.                                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  408.                 Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  409.                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If

  410.             Else

  411.                 If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'

  412.                                                 AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  413.                 Else

  414.                     SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 

  415.                                   使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3

  416.                 End If

  417.             End If

  418.             SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 

  419.                                     使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 

  420.                                    [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 

  421.                                     使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 

  422.                                    [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 

  423.                                    [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 

  424.                                    [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 

  425.                                     使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 

  426.                                     使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 

  427.                                     使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 

  428.                                     使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 

  429.                                     使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 

  430.                                     使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 

  431.                                     使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 

  432.                                     使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 

  433.                                     使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 

  434.                                     使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 

  435.                                     使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號

  436.                     FROM            使用者權限管理表 LEFT OUTER JOIN

  437.                                     HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN

  438.                                     [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號

  439.                     WHERE          (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 

  440.                                     使用者權限管理表.級別 LIKE '09') " & SQL2 & " 

  441.                     ORDER BY        " & SQL4

  442.             CmdSet_For_DGV()

  443.         End If

  444.     End Sub

  445.     '---------------------HX_PGS_ERP_SYS_登入通知---------------------------------------------------------------------------------------------------------

  446.     Friend Sub SQL_請購單申請未核准單數()

  447.         ConnOpen()

  448.         SQL1 = "SELECT      請購單控制表.請購單號 AS [NO.], 請購單控制表.需求日期 AS [需求 / Need], 請購單控制表.合約號, 

  449.                             合約控制表.工程名稱_中, 合約控制表.工程名稱_英

  450.                 FROM        請購單控制表 INNER JOIN 使用者權限管理表 ON 請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN

  451.                            (SELECT  姓名, 帳號, 職稱, 時效, 授權  FROM  系統跨部門權限表  WHERE  (姓名 LIKE N'李協叡') AND (授權 = 1)) AS QQQ ON 

  452.                             使用者權限管理表.職稱 = QQQ.職稱 INNER JOIN 合約控制表 ON 請購單控制表.合約號 = 合約控制表.合約編號

  453.                 WHERE      (請購單控制表.核准人 LIKE N'') AND 使用者權限管理表.CC63 = 0

  454.                 ORDER BY    [NO.] DESC"

  455.         CmdSet_For_DGV()

  456.     End Sub

  457.     Friend Sub SQL_採購單單數()

  458.         ConnOpen()

  459.         SQL1 = "SELECT      請購單明細表.請購單號 AS [NO.], 請購單控制表.核准日期 AS [核准 / Approved], 請購單控制表.合約號, 

  460.                             合約控制表.工程名稱_中, 合約控制表.工程名稱_英

  461.                 FROM        合約控制表 INNER JOIN 請購單控制表 ON 合約控制表.合約編號 = 請購單控制表.合約號 RIGHT OUTER JOIN

  462.                             請購單明細表 LEFT OUTER JOIN 採購單明細表 ON 請購單明細表.項次 = 採購單明細表.項次 AND 

  463.                             請購單明細表.請購單號 = 採購單明細表.請購單號 LEFT OUTER JOIN 物料圖庫 ON 請購單明細表.群組原則 = 物料圖庫.料號原則 ON 

  464.                             請購單控制表.請購單號 = 請購單明細表.請購單號 LEFT OUTER JOIN

  465.                             物料編碼庫 ON 請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  466.                             倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  467.                             物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN

  468.                             物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則

  469.                 WHERE      (請購單控制表.核准人 NOT LIKE N'') AND (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單明細表.已採購 IS NULL OR

  470.                             請購單明細表.已採購 = 0) AND (物料資訊控制表.規格庫編號 IS NOT NULL)

  471.                 GROUP BY    請購單明細表.請購單號, 請購單控制表.核准日期, 請購單控制表.合約號, 合約控制表.工程名稱_中, 合約控制表.工程名稱_英

  472.                 ORDER BY    [NO.]"

  473.         CmdSet_For_DGV()

  474.     End Sub

  475.     Friend Sub SQL_採購核准11()

  476.         ConnOpen()

  477.         SQL1 = "SELECT      採購單控制表.採購單號 AS [NO.], 採購單控制表.需求日期 AS [需求 / Need], 供應商資料表.公司名

  478.                 FROM        採購單控制表 INNER JOIN

  479.                             供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  480.                 WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.供應商編號 NOT LIKE N'') AND (採購單控制表.一級核准 LIKE N'' OR

  481.                             採購單控制表.一級核准 IS NULL)

  482.                 ORDER BY    [NO.] DESC"

  483.         CmdSet_For_DGV()

  484.     End Sub

  485.     Friend Sub SQL_採購核准12()

  486.         ConnOpen()

  487.         SQL1 = "SELECT      採購單控制表.採購單號 AS [NO.], 採購單控制表.需求日期 AS [需求 / Need], 供應商資料表.公司名

  488.                 FROM        採購單控制表 INNER JOIN

  489.                             供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  490.                 WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.一級核准 NOT LIKE N'')

  491.                 ORDER BY    [NO.] DESC"

  492.         CmdSet_For_DGV()

  493.     End Sub

  494.     Friend Sub SQL_合約未請款1()

  495.         ConnOpen()

  496.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  497.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第一期比例 <> 0) AND (預付款 <> 0 OR 預付款 IS NULL)"

  498.         CmdSet_For_DGV()

  499.     End Sub

  500.     Friend Sub SQL_合約未請款2()

  501.         ConnOpen()

  502.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  503.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第二期比例 <> 0) AND (到貨款 <> 0 OR 到貨款 IS NULL)"

  504.         CmdSet_For_DGV()

  505.     End Sub

  506.     Friend Sub SQL_合約未請款3()

  507.         ConnOpen()

  508.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  509.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第三期比例 <> 0) AND (施工款 <> 0 OR 施工款 IS NULL)"

  510.         CmdSet_For_DGV()

  511.     End Sub

  512.     Friend Sub SQL_合約未請款4()

  513.         ConnOpen()

  514.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  515.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第四期比例 <> 0) AND (驗收款 <> 0 OR 驗收款 IS NULL)"

  516.         CmdSet_For_DGV()

  517.     End Sub

  518.     Friend Sub SQL_合約未請款5()

  519.         ConnOpen()

  520.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  521.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第五期比例 <> 0) AND (保留款 <> 0 OR 保留款 IS NULL)"

  522.         CmdSet_For_DGV()

  523.     End Sub

  524.     Friend Sub SQL_合約未驗收()

  525.         ConnOpen()

  526.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表 

  527.                 WHERE  (作廢 = 0) AND (報價放行 = 1) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (驗收結果 = 0 OR 驗收結果 IS NULL)"

  528.         CmdSet_For_DGV()

  529.     End Sub

  530.     Friend Sub SQL_合約未指定主管()

  531.         ConnOpen()

  532.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 

  533.                 WHERE (作廢 = 0) AND (報價放行 = 1) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (工程主管 LIKE '' OR 工程主管 IS NULL)"

  534.         CmdSet_For_DGV()

  535.     End Sub

  536.     Friend Sub SQL_合約保固未簽()

  537.         ConnOpen()

  538.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  

  539.                 WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (驗收結果 = 1) AND (保固簽回 = 0 OR 保固簽回 IS NULL)"

  540.         CmdSet_For_DGV()

  541.     End Sub

  542.     Friend Sub SQL_合約驗收單未簽回()

  543.         ConnOpen()

  544.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  

  545.                 WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (驗收簽回 = 0 OR 驗收簽回 IS NULL)"

  546.         CmdSet_For_DGV()

  547.     End Sub

  548.     Friend Sub SQL_合約未簽回()

  549.         ConnOpen()

  550.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  

  551.                 WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (合約簽回 = 0 OR 合約簽回 IS NULL)"

  552.         CmdSet_For_DGV()

  553.     End Sub

  554.     Friend Sub SQL_報價未簽回()

  555.         ConnOpen()

  556.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 

  557.                 WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (報價簽回 = 0 OR 報價簽回 IS NULL)"

  558.         CmdSet_For_DGV()

  559.     End Sub

  560.     Friend Sub SQL_報價未完成()

  561.         ConnOpen() : SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (作廢 = 0) AND (合約停止 = 1)" : CmdSet_For_DGV()

  562.     End Sub

  563.     Friend Sub SQL_合約未設利潤()

  564.         ConnOpen()

  565.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (利潤比1 = 0 OR 利潤比1 IS NULL) AND (合約停止 = 0 OR 合約停止 IS NULL)"

  566.         CmdSet_For_DGV()

  567.     End Sub

  568.     Friend Sub SQL_合約未放行()

  569.         ConnOpen()

  570.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (報價放行 = 0 OR 報價放行 IS NULL) AND (合約停止 = 0 OR 合約停止 IS NULL)"

  571.         CmdSet_For_DGV()

  572.     End Sub

  573.     Friend Sub SQL_工程進度表未開()

  574.         ConnOpen()

  575.         SQL1 = "SELECT  合約控制表.合約編號, 合約控制表.工程主管, 合約控制表.工程名稱_中, 合約控制表.工程名稱_英

  576.                 FROM    合約控制表 FULL OUTER JOIN

  577.                        (SELECT   [PROJECT-SYS].dbo.工程進度表.合約編號, [PROJECT-SYS].dbo.工程責任表.項目負責

  578.                         FROM     [PROJECT-SYS].dbo.工程進度表 INNER JOIN [PROJECT-SYS].dbo.工程責任表 ON 

  579.                                  [PROJECT-SYS].dbo.工程進度表.合約編號 = [PROJECT-SYS].dbo.工程責任表.合約編號

  580.                         GROUP BY [PROJECT-SYS].dbo.工程進度表.合約編號, [PROJECT-SYS].dbo.工程責任表.項目負責) AS QQ ON 

  581.                         合約控制表.合約編號 = QQ.合約編號

  582.                 WHERE  (合約控制表.作廢 = 0) AND (合約控制表.合約停止 = 0) AND (合約控制表.驗收結果 = 0 OR 合約控制表.驗收結果 IS NULL) AND (QQ.項目負責 IS NULL)"

  583.         CmdSet_For_DGV()

  584.     End Sub

  585.     Friend Sub SQL_工作狀態匯總表_刪除()

  586.         ConnOpen_管理SQL() : SQL1 = "DELETE  工作狀態匯總表 " : CmdSet_For_dr()

  587.         ConnOpen_管理SQL_T() : SQL1 = "DELETE  工作狀態匯總表 " : CmdSet_For_dr()

  588.     End Sub

  589.     Friend Sub SQL_工作狀態匯總表_寫入()

  590.         ConnOpen_管理SQL() : SQL1 = "INSERT INTO 工作狀態匯總表 (表, 數量) VALUES " & SQL2 : CmdSet_For_dr()

  591.         ConnOpen_管理SQL_T() : SQL1 = "INSERT INTO 工作狀態匯總表 (表, 數量) VALUES " & SQL2 : CmdSet_For_dr()

  592.     End Sub

  593. End Module