WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-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.
35 Commit
1 Ramo (Branch)
Albero (Tree): df95874fc2
Rami (Branch) Tag
${ item.name }
Crea branch ${ searchTerm }
da 'df95874fc2'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/SQL_財務管理系統.vb

SQL_財務管理系統.vb 18KB
Cronologia Originale

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269 
  1. Module SQL_財務管理系統

  2.     Friend Sub SQL_財務帳清單()

  3.         ConnOpen() : SQL1 = "SELECT 流水號, 項次, 用途, 金額, 備註 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()

  4.     End Sub

  5.     Friend Sub SQL_財務單據()

  6.         If PA = "一級未審核" Then

  7.             If 登入人部門 = "NA" Then

  8.                 KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"

  9.             Else

  10.                 KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 

  11.                           ORDER BY 零用金支付表.流水號 DESC"

  12.             End If

  13.         ElseIf PA = "一級作廢" Then

  14.             If 登入人部門 = "NA" Then

  15.                 KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"

  16.             Else

  17.                 KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 

  18.                           ORDER BY 零用金支付表.流水號 DESC"

  19.             End If

  20.         ElseIf PA = "二級未核准" Then

  21.             If 登入人部門 = "NA" Then

  22.                 KKKJJ = " WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'') AND (核准人 LIKE N'') AND (帳本編號 LIKE '" & PA19 & "') ORDER BY 流水號 DESC"

  23.             Else

  24.                 KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'')  AND 

  25.                                 (零用金支付表.核准人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 

  26.                           ORDER BY 零用金支付表.流水號 DESC"

  27.             End If

  28.         ElseIf PA = "二級作廢" Then

  29.             If 登入人部門 = "NA" Then

  30.                 KKKJJ = " WHERE (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'')  AND (零用金支付表.核准人 LIKE N'作廢%') AND 

  31.                                 (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 流水號 DESC"

  32.             Else

  33.                 KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'')  AND 

  34.                                 (零用金支付表.核准人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 

  35.                           ORDER BY 零用金支付表.流水號 DESC"

  36.             End If

  37.         ElseIf PA = "審核介面_一級未審核" Then

  38.             If 登入人部門 = "NA" Then

  39.                 KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"

  40.             Else

  41.                 KKKJJ = " WHERE (零用金支付表.部門 LIKE N'" & 登入人部門 & "%') AND (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 

  42.                           ORDER BY 零用金支付表.流水號 DESC"

  43.             End If

  44.         ElseIf PA = "審核介面_一級作廢" Then

  45.             If 登入人部門 = "NA" Then

  46.                 KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"

  47.             Else

  48.                 KKKJJ = " WHERE (零用金支付表.部門 LIKE N'" & 登入人部門 & "%') AND (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 

  49.                           ORDER BY 零用金支付表.流水號 DESC"

  50.             End If

  51.         End If

  52.         ConnOpen()

  53.         SQL1 = "SELECT      零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) 

  54.                             AS 申請日期, 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期, 

  55.                             零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付表.備註, 

  56.                             財務帳本編號.帳本名稱 AS 帳本

  57.                 FROM        零用金支付表 INNER JOIN

  58.                             財務帳本編號 ON 零用金支付表.帳本編號 = 財務帳本編號.編號 " & KKKJJ & ""

  59.         CmdSet_For_DGV()

  60.     End Sub

  61.     Friend Sub SQL_帳本下拉清單()

  62.         ConnOpen() : SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 ORDER BY 編號" : CmdSet_For_dr()

  63.     End Sub

  64.     Friend Sub SQL_財務單據刪除()

  65.         ConnOpen() : SQL1 = "DELETE FROM 零用金支付表 WHERE (流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  66.     End Sub

  67.     Friend Sub SQL_零用金支付表最後一筆資料()

  68.         ConnOpen() : SQL1 = "SELECT TOP (1)  流水號 FROM 零用金支付表 WHERE ( 流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  69.     End Sub

  70.     Friend Sub SQL_新增零用金支付表1()

  71.         ConnOpen()

  72.         SQL1 = "INSERT INTO 零用金支付表 (流水號, 部門, 申請人, 申請日期, 審核人, 審核日期, 核准人, 核准日期, 會計, 作帳日期, 出納, 出納日期, 核准圖檔, 簽名編碼, 備註, 帳本編號) " &

  73.                "VALUES (N'" & PA & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'" & 零用金支付申請.帳本編號_cb.Text & "')"

  74.         CmdSet_For_dr()

  75.     End Sub

  76.     Friend Sub SQL_修改零用金支付明細()

  77.         ConnOpen()

  78.         SQL1 = "UPDATE 零用金支付明細 SET  用途 = N'" & PA2 & "', 金額 = N'" & PA3 &

  79.                    "', 備註 = N'" & PA4 & "' WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "' AND 項次 LIKE N'" & PA5 & "')"

  80.         CmdSet_For_dr()

  81.     End Sub

  82.     Friend Sub SQL_最後一筆項次1()

  83.         ConnOpen()

  84.         SQL1 = "SELECT TOP(1) 項次 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "' ORDER BY 項次 DESC"

  85.         CmdSet_For_dr()

  86.     End Sub

  87.     Friend Sub SQL_新增零用金支付明細1()

  88.         ConnOpen()

  89.         SQL1 = "INSERT INTO 零用金支付明細 (流水號, 用途, 金額, 備註, 項次) " &

  90.                "VALUES (N'" & 零用金支付申請.零用金單號_tb.Text & "',N'',N'0',N'',N'" & 新項次 & "')"

  91.         CmdSet_For_dr()

  92.     End Sub

  93.     Friend Sub SQL_刪除零用金支付明細()

  94.         ConnOpen()

  95.         SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "' AND 項次 LIKE N'" & 零用金支付申請.選擇_tb.Text & "')"

  96.         CmdSet_For_dr()

  97.     End Sub

  98.     Friend Sub SQL_修改零用金支付明細1()

  99.         ConnOpen()

  100.         SQL1 = "UPDATE 零用金支付明細 SET 項次 = N'" & 新項次 & "' WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "' AND 項次 LIKE N'" & PA5 & "')"

  101.         CmdSet_For_dr()

  102.     End Sub

  103.     Friend Sub SQL_刪除零用金支付表()

  104.         ConnOpen()

  105.         SQL1 = "DELETE FROM 零用金支付表 WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "')"

  106.         CmdSet_For_dr()

  107.     End Sub

  108.     Friend Sub SQL_刪除零用金支付明細1()

  109.         ConnOpen()

  110.         SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "')"

  111.         CmdSet_For_dr()

  112.     End Sub

  113.     Friend Sub SQL_簽名檔管理1()

  114.         ConnOpen()

  115.         If gUserName = "李協叡" Then

  116.             SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 ORDER BY 圖片流水號"

  117.         Else

  118.             SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 WHERE 簽名檔人名 LIKE N'" & gUserName & "' ORDER BY 圖片流水號"

  119.         End If

  120.         CmdSet_For_DGV()

  121.     End Sub

  122.     Friend Sub SQL_簽名檔管理2()

  123.         ConnOpen()

  124.         SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 零用金支付核准.圖片編碼_tb.Text & "'"

  125.         CmdSet_For_dr()

  126.     End Sub

  127.     Friend Sub SQL_零用金支付表()

  128.         ConnOpen()

  129.         SQL1 = "SELECT 簽名編碼 FROM 零用金支付表 WHERE 簽名編碼 LIKE N'" & 零用金支付核准.驗證碼_tb.Text & "'"

  130.         CmdSet_For_dr()

  131.     End Sub

  132.     Friend Sub SQL_修改零用金支付表()

  133.         ConnOpen()

  134.         SQL1 = "UPDATE 零用金支付表 SET 核准人 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 核准圖檔 = N'" & 零用金支付核准.圖片編碼_tb.Text & "', 簽名編碼 = N'" & 零用金支付核准.驗證碼_tb.Text & "' " &

  135.                        "WHERE (流水號 = N'" & 零用金支付核准.零用金單號_tb.Text & "')"

  136.         CmdSet_For_dr()

  137.     End Sub

  138.     Friend Sub SQL_修改零用金支付表2()

  139.         ConnOpen()

  140.         SQL1 = "UPDATE 零用金支付表 SET 核准人 = N'作廢-" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (流水號 = N'" & 零用金支付核准.零用金單號_tb.Text & "')"

  141.         CmdSet_For_dr()

  142.     End Sub

  143.     Friend Sub SQL_零用金支付表3()

  144.         ConnOpen()

  145.         SQL1 = "UPDATE 零用金支付表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "' WHERE (流水號 = N'" & 零用金支付審核.零用金單號_tb.Text & "')"

  146.         CmdSet_For_dr()

  147.     End Sub

  148.     Friend Sub SQL_修改零用金支付表1()

  149.         ConnOpen()

  150.         SQL1 = "UPDATE 零用金支付表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (流水號 = N'" & 零用金支付審核.零用金單號_tb.Text & "')"

  151.         CmdSet_For_dr()

  152.     End Sub

  153.     Friend Sub SQL_已審核清單1()

  154.         ConnOpen()

  155.         If 登入人部門 = "NA" Then

  156.             SQL1 = "SELECT 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) AS 申請日期, 

  157.                            零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期, 零用金支付表.核准人, 

  158.                            LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付表.核准圖檔, 零用金支付表.簽名編碼, 

  159.                            零用金支付明細.出納 AS 已出納

  160.                     FROM 零用金支付表 INNER JOIN

  161.                            零用金支付明細 ON 零用金支付表.流水號 = 零用金支付明細.流水號

  162.                     WHERE (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND 

  163.                             (零用金支付表.核准人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'') AND (帳本編號 LIKE '" & 零用金支付單一覽表.帳本編號_cb.Text & "')

  164.                     GROUP BY 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10), 

  165.                             零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10), 零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10), 

  166.                             零用金支付表.核准圖檔, 零用金支付表.簽名編碼, 零用金支付明細.出納

  167.                     ORDER BY 零用金支付表.流水號 DESC"

  168.         Else

  169.             SQL1 = "SELECT 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) AS 申請日期, 

  170.                            零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期, 零用金支付表.核准人, 

  171.                            LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付表.核准圖檔, 零用金支付表.簽名編碼, 

  172.                            零用金支付明細.出納 AS 已出納

  173.                     FROM 零用金支付表 INNER JOIN

  174.                            零用金支付明細 ON 零用金支付表.流水號 = 零用金支付明細.流水號

  175.                     WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND 

  176.                           (零用金支付表.核准人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'') AND (帳本編號 LIKE '" & 零用金支付單一覽表.帳本編號_cb.Text & "')

  177.                     GROUP BY 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10), 

  178.                             零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10), 零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10), 

  179.                             零用金支付表.核准圖檔, 零用金支付表.簽名編碼, 零用金支付明細.出納

  180.                     ORDER BY 零用金支付表.流水號 DESC"

  181.         End If

  182.         CmdSet_For_DGV()

  183.     End Sub

  184.     Friend Sub SQL_簽名檔管理3()

  185.         ConnOpen()

  186.         SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & PA & "'"

  187.         CmdSet_For_dr()

  188.     End Sub

  189.     Friend Sub SQL_修改零用金支付明細2()

  190.         ConnOpen()

  191.         SQL1 = "UPDATE 零用金支付明細 SET 出納 = N'" & PA & "' WHERE 流水號 LIKE N'" & PA1 & "'"

  192.         CmdSet_For_dr()

  193.     End Sub

  194.     Friend Sub SQL_修改零用金支付表3()

  195.         ConnOpen()

  196.         SQL1 = "UPDATE 零用金支付表 SET 出納 = N'" & gUserName & "', 出納日期 = '" & DTP & "' WHERE 流水號 LIKE N'" & PA1 & "'"

  197.         CmdSet_For_dr()

  198.     End Sub

  199.     Friend Sub SQL_零用金支付_對帳表()

  200.         ConnOpen()

  201.         SQL1 = "SELECT 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) AS 申請日期, 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期, " &

  202.                "零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付明細.項次, 零用金支付明細.用途, 零用金支付明細.金額, 零用金支付明細.會計 AS 會計作業, " &

  203.                "零用金支付明細.出納 AS 出納作業, 零用金支付明細.備註, 零用金支付表.會計, 零用金支付表.作帳日期, 零用金支付表.出納, 零用金支付表.出納日期, 零用金支付明細.現金, 零用金支付明細.備用金, " &

  204.                "零用金支付明細.公帳 FROM 零用金支付表 RIGHT OUTER JOIN 零用金支付明細 " &

  205.                "ON 零用金支付表.流水號 = 零用金支付明細.流水號 WHERE (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'') AND (零用金支付表.核准人 NOT LIKE N'作廢%') " &

  206.                " " & KKKJJ3 & KKKJJ & KKKJJ2 &

  207.                " ORDER BY   零用金支付表.流水號 DESC, 零用金支付明細.項次"

  208.         CmdSet_For_DGV()

  209.     End Sub

  210.     '------------------------------零用金支付_對帳表--------------------------------------------

  211.     Friend Sub SQL_更改零用金支付明細()

  212.         ConnOpen()

  213.         SQL1 = "UPDATE 零用金支付明細 SET 會計 = N'0' WHERE (會計 IS NULL)"

  214.         CmdSet_For_dr()

  215.     End Sub

  216.     Friend Sub SQL_更改零用金支付明細1()

  217.         ConnOpen()

  218.         SQL1 = "UPDATE 零用金支付明細 SET 出納 = N'0' WHERE (出納 IS NULL)"

  219.         CmdSet_For_dr()

  220.     End Sub

  221.     Friend Sub SQL_更改零用金支付明細2()

  222.         ConnOpen()

  223.         SQL1 = "UPDATE 零用金支付明細 SET 現金 = N'0' WHERE (現金 IS NULL)"

  224.         CmdSet_For_dr()

  225.     End Sub

  226.     Friend Sub SQL_更改零用金支付明細3()

  227.         ConnOpen()

  228.         SQL1 = "UPDATE 零用金支付明細 SET 備用金 = N'0' WHERE (備用金 IS NULL)"

  229.         CmdSet_For_dr()

  230.     End Sub

  231.     Friend Sub SQL_更改零用金支付明細4()

  232.         ConnOpen()

  233.         SQL1 = "UPDATE 零用金支付明細 SET 公帳 = N'0' WHERE (公帳 IS NULL)"

  234.         CmdSet_For_dr()

  235.     End Sub

  236.     Friend Sub SQL_零用金支付明細2()

  237.         ConnOpen()

  238.         SQL1 = "SELECT 會計, 出納 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & PA & "' AND 項次  LIKE N'" & PA1 & "'"

  239.         CmdSet_For_dr()

  240.     End Sub

  241.     Friend Sub SQL_更新零用金支付明細()

  242.         ConnOpen()

  243.         SQL1 = "UPDATE 零用金支付明細 SET 會計 = N'1' WHERE 流水號 LIKE N'" & PA & "' AND 項次  LIKE N'" & PA1 & "'"

  244.         CmdSet_For_dr()

  245.     End Sub

  246.     Friend Sub SQL_更新零用金支付表()

  247.         ConnOpen()

  248.         SQL1 = "UPDATE 零用金支付表 SET 會計 = N'" & gUserName & "', 作帳日期 = '" & DTP & "' WHERE 流水號 LIKE N'" & PA & "'"

  249.         CmdSet_For_dr()

  250.     End Sub

  251.     Friend Sub SQL_更新零用金支付明細1()

  252.         ConnOpen()

  253.         SQL1 = "UPDATE 零用金支付明細 SET 出納 = N'1' WHERE 流水號 LIKE N'" & PA & "' AND 項次  LIKE N'" & PA1 & "'"

  254.         CmdSet_For_dr()

  255.     End Sub

  256.     Friend Sub SQL_更新零用金支付表1()

  257.         ConnOpen()

  258.         SQL1 = "UPDATE 零用金支付表 SET 出納 = N'" & gUserName & "', 出納日期 = '" & DTP & "' WHERE 流水號 LIKE N'" & PA & "'"

  259.         CmdSet_For_dr()

  260.     End Sub

  261.     Friend Sub SQL_修改零用金支付明細3()

  262.         ConnOpen()

  263.         SQL1 = "UPDATE 零用金支付明細 SET 現金 = '" & PA2 & "', 備用金 = '" & PA3 &

  264.                 "', 公帳 = '" & PA4 & "' WHERE 流水號 LIKE N'" & PA &

  265.                 "' AND 項次  LIKE N'" & PA1 & "'"

  266.         CmdSet_For_dr()

  267.     End Sub

  268. 

  269. End Module