HX-PGS-ERP-SYS
/
Calculator-SYS-LEEHSIEHJUI
關注 4
收藏 0
複製 0
程式碼 問題 0 合併請求 0 版本發佈 0 Wiki 活動
暫無描述
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.
2 提交
1 分支
目錄樹: 4a76cad3ed
分支列表 標籤
${ item.name }
建立分支 ${ searchTerm }
從 '4a76cad3ed'
${ noResults }
Calculator-SYS-LEEHSIEHJUI/Calculator-SYS/0、MyModule/資料庫/SQL_人事系統管理.vb

SQL_人事系統管理.vb 40KB
歷史記錄 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419 
  1. Module SQL_人事系統管理

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

  3.         If PA25 = "-1" Or PA25 = "0" Or PA25 = "" 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  帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期

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

  176.         CmdSet_For_DGV()

  177.     End Sub

  178.     Friend Sub SQL_特殊供應商()

  179.         ConnOpen() : SQL1 = "SELECT  供應商編碼, 公司名  FROM  供應商資料表  WHERE  (特殊 = 1)" : CmdSet_For_DGV()

  180.     End Sub

  181.     Friend Sub SQL_使用地點()

  182.         ConnOpen() : SQL1 = "SELECT  使用地點  FROM  採購單控制表  GROUP BY　使用地點" : CmdSet_For_DGV()

  183.     End Sub

  184.     Friend Sub SQL_詢價人員()

  185.         ConnOpen() : SQL1 = "SELECT  詢價員  FROM  採購單控制表  GROUP BY 詢價員" : CmdSet_For_DGV()

  186.     End Sub

  187.     Friend Sub SQL_可用物料()

  188.         ConnOpen()

  189.         SQL1 = "SELECT    QQ.供應商編碼, QQ.單價, 物料規格表.料號, 物料編碼庫轉語言.品名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 

  190.                           物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料編碼庫.單位, 物料規格表.群組碼, 

  191.                           物料規格表.料號原則

  192.                 FROM      物料規格表 INNER JOIN 物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN

  193.                           物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN

  194.                          (SELECT    供應商產品清單.供應商編碼, 供應商產品清單.料號, 供應商產品清單.單價

  195.                           FROM      供應商產品清單 INNER JOIN  供應商資料表 ON 供應商產品清單.供應商編碼 = 供應商資料表.供應商編碼

  196.                           WHERE    (供應商資料表.特殊 = 1)

  197.                           GROUP BY  供應商產品清單.供應商編碼, 供應商產品清單.料號, 供應商產品清單.單價) AS QQ ON 

  198.                           物料規格表.料號 = QQ.料號

  199.                 WHERE    (物料規格表.特殊 = 1) AND (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "')

  200.                 ORDER BY  QQ.供應商編碼, 物料規格表.料號"

  201.         CmdSet_For_DGV()

  202.     End Sub

  203.     Friend Sub SQL_申請人()

  204.         ConnOpen() : SQL1 = "SELECT  申請人  FROM  採購單明細表  WHERE  (申請人 IS NOT NULL)  GROUP BY  申請人" : CmdSet_For_DGV()

  205.     End Sub

  206.     Friend Sub SQL_合約號()

  207.         ConnOpen() : SQL1 = "SELECT  合約號  FROM  採購單明細表  WHERE  (合約號 NOT LIKE 'P%') AND (合約號 NOT LIKE 'H%') AND (合約號 NOT LIKE '')  GROUP BY  合約號" : CmdSet_For_DGV()

  208.     End Sub

  209.     Friend Sub SQL_該月單號()

  210.         ConnOpen()

  211.         SQL1 = "SELECT  採購單號  FROM  採購單控制表  WHERE  (採購單號 LIKE '%" & 每月零用金設定.年份2_cb.Text & 每月零用金設定.月份2_cb.Text & "%')  ORDER BY  採購單號"

  212.         CmdSet_For_DGV()

  213.     End Sub

  214.     Friend Sub SQL_採購控制表1()

  215.         ConnOpen()

  216.         SQL1 = "SELECT * FROM  採購單控制表 WHERE  (採購單號 LIKE '%" & 每月零用金設定.年份2_cb.Text & 每月零用金設定.月份2_cb.Text & "%') AND  特殊 = 1 ORDER BY 採購單號"

  217.         CmdSet_For_DGV()

  218.     End Sub

  219.     Friend Sub SQL_採購明細表1()

  220.         ConnOpen() : SQL1 = "SELECT * FROM  採購單明細表 " & SQL2 & " ORDER BY 採購單號" : CmdSet_For_DGV()

  221.     End Sub

  222.     Friend Sub SQL_採購控制表()

  223.         ConnOpen() : SQL1 = "SELECT  TOP (" & CInt(每月零用金設定.開單數_nud.Value) & ") * FROM  採購單控制表" : CmdSet_For_DGV()

  224.     End Sub

  225.     Friend Sub SQL_採購明細表()

  226.         ConnOpen() : SQL1 = "SELECT  TOP (" & CInt(每月零用金設定.開單數_nud.Value) * 7 & ") * FROM  採購單明細表" : CmdSet_For_DGV()

  227.     End Sub

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

  229.         ConnOpen_管理SQL()

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

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

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

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

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

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

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

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

  238.         CmdSet_For_DGV()

  239.     End Sub

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

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

  242.         If BL = False Then

  243.             ConnOpen()

  244.             If PA = "" Then

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

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

  247.             Else

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

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

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

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

  252.                         GROUP BY 級別  ORDER BY  級別"

  253.             End If

  254.             CmdSet_For_dr()

  255.         Else

  256.             ConnOpen()

  257.             If PA = "" Then

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

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

  260.                         WHERE  (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09') " & SQL2 & "  GROUP BY 級別  ORDER BY 級別"

  261.             Else

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

  263.                         WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%') AND

  264.                                  (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09')) " & SQL2 & "

  265.                         GROUP BY 級別  ORDER BY  級別"

  266.             End If

  267.             CmdSet_For_dr()

  268.         End If

  269.     End Sub

  270.     Friend Sub SQL_年分清單()

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

  272.     End Sub

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

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

  275.     End Sub

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

  277.         ConnOpen_管理SQL()

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

  279.         CmdSet_For_dr()

  280.     End Sub

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

  282.         ConnOpen_管理SQL()

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

  284.         CmdSet_For_dr()

  285.     End Sub

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

  287.         ConnOpen_管理SQL()

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

  289.         CmdSet_For_dr()

  290.     End Sub

  291.     Friend Sub SQL_財務零用金紀錄_查詢()

  292.         ConnOpen() : SQL1 = "SELECT 金額 FROM 財務零用金紀錄 WHERE (時間 LIKE '" & PA & "')" : CmdSet_For_dr()

  293.     End Sub

  294.     Friend Sub SQL_財務零用金紀錄_新增()

  295.         ConnOpen() : SQL1 = "INSERT INTO 財務零用金紀錄 (時間, 金額) VALUES ('" & PA & "', '" & PA1 & "')" : CmdSet_For_dr()

  296.     End Sub

  297.     Friend Sub SQL_財務零用金紀錄_修改()

  298.         ConnOpen() : SQL1 = "UPDATE 財務零用金紀錄 SET 金額 = '" & PA1 & "' WHERE (時間 LIKE '" & PA & "')" : CmdSet_For_dr()

  299.     End Sub

  300.     Friend Sub SQL_虛擬採購控制表新增()

  301.         ConnOpen()

  302.         SQL1 = "INSERT INTO 採購單控制表 (採購單號, 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 

  303.                             簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 採購員, 採購日期, 已會計, 已出納, 現金, 備用金, 公帳, 一級核准, 

  304.                             一級核准核准日期, 一級核准簽名檔編號, 特殊) VALUES " & SQL2

  305.         CmdSet_For_dr()

  306.     End Sub

  307.     Friend Sub SQL_虛擬採購明細表新增()

  308.         ConnOpen()

  309.         SQL1 = "INSERT INTO 採購單明細表 (採購單號, 品名, 規格, 備註, 數量, 單位, 單價, 項次, 已收貨, 群組碼, 料號原則, 料號, 已入庫, 已申請入庫, 

  310.                             請購單號, 合約號, 申請人) VALUES " & SQL2

  311.         CmdSet_For_dr()

  312.     End Sub

  313.     Friend Sub SQL_財物支付單申請_查詢財務收支控制表()

  314.         ConnOpen()

  315.         SQL1 = "SELECT    財務收支明細表.流水號 AS [" & 表頭(107) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.申請人  AS [" & 表頭(1) & "], 

  316.                           財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫, 

  317.                           財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 AS [" & 表頭(2) & "], 財務收支明細表.備用金 AS [" & 表頭(3) & "], 

  318.                           財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行

  319.                 FROM      財務收支明細表 INNER JOIN

  320.                           財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號

  321.                 WHERE    (財務收支明細表.流水號 LIKE '%" & PA25 & "')

  322.                 ORDER BY  財務收支明細表.流水號 DESC"

  323.         CmdSet_For_DGV()

  324.     End Sub

  325.     Friend Sub SQL_財物支付單申請_查詢財務收支控制表1()

  326.         ConnOpen()

  327.         SQL1 = "SELECT    財務收支明細表.流水號 AS [" & 表頭(107) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.申請人  AS [" & 表頭(1) & "], 

  328.                           財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫, 

  329.                           財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 AS [" & 表頭(2) & "], 財務收支明細表.備用金 AS [" & 表頭(3) & "], 

  330.                           財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行

  331.                 FROM      財務收支明細表 INNER JOIN

  332.                           財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號

  333.                 WHERE    (財務收支明細表.流水號 NOT LIKE 'B%')

  334.                 ORDER BY  財務收支控制表.申請日期 DESC"

  335.         CmdSet_For_DGV()

  336.     End Sub

  337.     Friend Sub SQL_部門選單()

  338.         ConnOpen() : SQL1 = "SELECT  部門  FROM  財務部門  ORDER BY  部門" : CmdSet_For_dr()

  339.     End Sub

  340.     Friend Sub SQL_營運成本收支單申請_查詢第一筆公帳支付單號()

  341.         ConnOpen() : SQL1 = "SELECT TOP (1)  支付單號 FROM 財務收支控制表 WHERE ( 支付單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  342.     End Sub

  343.     Friend Sub SQL_營運成本收支單申請_新增一筆財務收支控制表()

  344.         ConnOpen()

  345.         SQL1 = "INSERT INTO 財務收支控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號, 特殊) " &

  346.                "VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'', '1')"

  347.         CmdSet_For_dr()

  348.     End Sub

  349.     Friend Sub SQL_財物支付單申請_查詢最後一筆公帳支付單號()

  350.         ConnOpen() : SQL1 = "SELECT TOP(1) 流水號 FROM 財務收支明細表  WHERE  (財務收支明細表.流水號 LIKE '%" & PA25 & "') ORDER BY  財務收支明細表.流水號 DESC" : CmdSet_For_dr()

  351.     End Sub

  352.     Friend Sub SQL_新增財物支付單明細表資料()

  353.         ConnOpen()

  354.         SQL1 = "INSERT INTO 財務收支明細表 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 出納日期, 零用金, 支票數, 

  355.                                             匯率, 備註, 大寫, 支付對象, 公司, 付款銀行, 銀行支行) 

  356.                 VALUES (N'" & PA19 & "', N'IDR', N'" & DTP & "', N'" & 指定會科 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA12 & "', N'" & gUserName & "', N'" & PA15 & "', 

  357.                         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 & "', 

  358.                         N'" & PA41 & "', N'" & PA42 & "')"

  359.         CmdSet_For_dr()

  360.     End Sub

  361.     Friend Sub SQL_營運成本收支單申請_刪除財務收支控制表()

  362.         ConnOpen()

  363.         SQL1 = "DELETE FROM 財務收支控制表 WHERE (支付單號 LIKE N'" & PA45 & "')"

  364.         CmdSet_For_dr()

  365.     End Sub

  366.     Friend Sub SQL_營運成本收支單申請_刪除財務收支明細表()

  367.         ConnOpen()

  368.         SQL1 = "DELETE FROM 財務收支明細表 WHERE (支付單號 LIKE N'" & PA45 & "')"

  369.         CmdSet_For_dr()

  370.     End Sub

  371.     Friend Sub SQL_營運成本收支單審核_審核人3()

  372.         ConnOpen()

  373.         SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & PA42 & "')"

  374.         CmdSet_For_dr()

  375.     End Sub

  376.     Friend Sub SQL_營運成本收支單審核_修改財務收支控制表()

  377.         ConnOpen()

  378.         SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & PA27 & "', 簽名編碼 = N'" & PA28 & "', 出納 = '" & gUserName & "', 

  379.                        出納日期 = N'" & DTP & "'

  380.                 WHERE (支付單號 = N'" & PA29 & "')"

  381.         CmdSet_For_dr()

  382.     End Sub

  383.     Friend Sub SQL_營運成本收支單審核_修改財務收支明細表()

  384.         ConnOpen() : SQL1 = "UPDATE 財務收支明細表 SET 出納 = '1', 出納日期 = N'" & DTP & "' WHERE (支付單號 LIKE N'" & PA29 & "')" : CmdSet_For_dr()

  385.     End Sub

  386.     Friend Sub SQL_營運成本收支單審核_修改財務收支明細表備用金()

  387.         ConnOpen()

  388.         SQL1 = "UPDATE 財務收支明細表 SET  備用金 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"

  389.         CmdSet_For_dr()

  390.     End Sub

  391.     Friend Sub SQL_營運成本收支單審核_修改財務收支明細表現金()

  392.         ConnOpen()

  393.         SQL1 = "UPDATE 財務收支明細表 SET  現金 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"

  394.         CmdSet_For_dr()

  395.     End Sub

  396.     Friend Sub SQL_營運成本收支單審核_修改財務收支明細表支出()

  397.         ConnOpen()

  398.         SQL1 = "UPDATE 財務收支明細表 SET  公帳 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"

  399.         CmdSet_For_dr()

  400.     End Sub

  401.     Friend Sub SQL_財務採購關聯表_反改查詢()

  402.         ConnOpen() : SQL1 = "SELECT 採購單號, 轉財務金額, 流水號 FROM 財務採購關聯表 WHERE (財務單號 LIKE '" & PA20 & "')" : CmdSet_For_DGV()

  403.     End Sub

  404.     Friend Sub SQL_財務採購關聯表_反改()

  405.         ConnOpen() : SQL1 = "DELETE 財務採購關聯表 WHERE (財務單號 LIKE '" & PA20 & "')" : CmdSet_For_dr()

  406.     End Sub

  407.     Friend Sub SQL_採購單控制表_反改查詢()

  408.         ConnOpen() : SQL1 = "SELECT 轉財務金額 FROM 採購單控制表 WHERE (採購單號 LIKE '" & PA21 & "')" : CmdSet_For_dr()

  409.     End Sub

  410.     Friend Sub SQL_採購單控制表_反改()

  411.         ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET 轉財務金額 = '" & PA22 & "' WHERE (採購單號 LIKE '" & PA21 & "')" : CmdSet_For_dr()

  412.     End Sub

  413.     Friend Sub SQL_採購單詢價_控制刪除()

  414.         ConnOpen() : SQL1 = "DELETE FROM 採購單控制表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  415.     End Sub

  416.     Friend Sub SQL_採購單詢價_明細刪除()

  417.         ConnOpen() : SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  418.     End Sub

  419. End Module