123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269 |
- Module SQL_財務管理系統
- Friend Sub SQL_財務帳清單()
- ConnOpen() : SQL1 = "SELECT 流水號, 項次, 用途, 金額, 備註 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_財務單據()
- If PA = "一級未審核" Then
- If 登入人部門 = "NA" Then
- KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"
- Else
- KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "')
- ORDER BY 零用金支付表.流水號 DESC"
- End If
- ElseIf PA = "一級作廢" Then
- If 登入人部門 = "NA" Then
- KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"
- Else
- KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "')
- ORDER BY 零用金支付表.流水號 DESC"
- End If
- ElseIf PA = "二級未核准" Then
- If 登入人部門 = "NA" Then
- KKKJJ = " WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'') AND (核准人 LIKE N'') AND (帳本編號 LIKE '" & PA19 & "') ORDER BY 流水號 DESC"
- Else
- KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND
- (零用金支付表.核准人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "')
- ORDER BY 零用金支付表.流水號 DESC"
- End If
- ElseIf PA = "二級作廢" Then
- If 登入人部門 = "NA" Then
- KKKJJ = " WHERE (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND (零用金支付表.核准人 LIKE N'作廢%') AND
- (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 流水號 DESC"
- Else
- KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND
- (零用金支付表.核准人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "')
- ORDER BY 零用金支付表.流水號 DESC"
- End If
- ElseIf PA = "審核介面_一級未審核" Then
- If 登入人部門 = "NA" Then
- KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"
- Else
- KKKJJ = " WHERE (零用金支付表.部門 LIKE N'" & 登入人部門 & "%') AND (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "')
- ORDER BY 零用金支付表.流水號 DESC"
- End If
- ElseIf PA = "審核介面_一級作廢" Then
- If 登入人部門 = "NA" Then
- KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"
- Else
- KKKJJ = " WHERE (零用金支付表.部門 LIKE N'" & 登入人部門 & "%') AND (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "')
- ORDER BY 零用金支付表.流水號 DESC"
- End If
- End If
- ConnOpen()
- SQL1 = "SELECT 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10)
- AS 申請日期, 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期,
- 零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付表.備註,
- 財務帳本編號.帳本名稱 AS 帳本
- FROM 零用金支付表 INNER JOIN
- 財務帳本編號 ON 零用金支付表.帳本編號 = 財務帳本編號.編號 " & KKKJJ & ""
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_帳本下拉清單()
- ConnOpen() : SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 ORDER BY 編號" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_財務單據刪除()
- ConnOpen() : SQL1 = "DELETE FROM 零用金支付表 WHERE (流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_零用金支付表最後一筆資料()
- ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 零用金支付表 WHERE ( 流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
- End Sub
- Friend Sub SQL_新增零用金支付表1()
- ConnOpen()
- SQL1 = "INSERT INTO 零用金支付表 (流水號, 部門, 申請人, 申請日期, 審核人, 審核日期, 核准人, 核准日期, 會計, 作帳日期, 出納, 出納日期, 核准圖檔, 簽名編碼, 備註, 帳本編號) " &
- "VALUES (N'" & PA & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'" & 零用金支付申請.帳本編號_cb.Text & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_修改零用金支付明細()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 用途 = N'" & PA2 & "', 金額 = N'" & PA3 &
- "', 備註 = N'" & PA4 & "' WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "' AND 項次 LIKE N'" & PA5 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_最後一筆項次1()
- ConnOpen()
- SQL1 = "SELECT TOP(1) 項次 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "' ORDER BY 項次 DESC"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_新增零用金支付明細1()
- ConnOpen()
- SQL1 = "INSERT INTO 零用金支付明細 (流水號, 用途, 金額, 備註, 項次) " &
- "VALUES (N'" & 零用金支付申請.零用金單號_tb.Text & "',N'',N'0',N'',N'" & 新項次 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_刪除零用金支付明細()
- ConnOpen()
- SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "' AND 項次 LIKE N'" & 零用金支付申請.選擇_tb.Text & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_修改零用金支付明細1()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 項次 = N'" & 新項次 & "' WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "' AND 項次 LIKE N'" & PA5 & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_刪除零用金支付表()
- ConnOpen()
- SQL1 = "DELETE FROM 零用金支付表 WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_刪除零用金支付明細1()
- ConnOpen()
- SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & 零用金支付申請.零用金單號_tb.Text & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_簽名檔管理1()
- ConnOpen()
- If gUserName = "李協叡" Then
- SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 ORDER BY 圖片流水號"
- Else
- SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 WHERE 簽名檔人名 LIKE N'" & gUserName & "' ORDER BY 圖片流水號"
- End If
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_簽名檔管理2()
- ConnOpen()
- SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 零用金支付核准.圖片編碼_tb.Text & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_零用金支付表()
- ConnOpen()
- SQL1 = "SELECT 簽名編碼 FROM 零用金支付表 WHERE 簽名編碼 LIKE N'" & 零用金支付核准.驗證碼_tb.Text & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_修改零用金支付表()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付表 SET 核准人 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 核准圖檔 = N'" & 零用金支付核准.圖片編碼_tb.Text & "', 簽名編碼 = N'" & 零用金支付核准.驗證碼_tb.Text & "' " &
- "WHERE (流水號 = N'" & 零用金支付核准.零用金單號_tb.Text & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_修改零用金支付表2()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付表 SET 核准人 = N'作廢-" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (流水號 = N'" & 零用金支付核准.零用金單號_tb.Text & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_零用金支付表3()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "' WHERE (流水號 = N'" & 零用金支付審核.零用金單號_tb.Text & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_修改零用金支付表1()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (流水號 = N'" & 零用金支付審核.零用金單號_tb.Text & "')"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_已審核清單1()
- ConnOpen()
- If 登入人部門 = "NA" Then
- SQL1 = "SELECT 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) AS 申請日期,
- 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期, 零用金支付表.核准人,
- LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付表.核准圖檔, 零用金支付表.簽名編碼,
- 零用金支付明細.出納 AS 已出納
- FROM 零用金支付表 INNER JOIN
- 零用金支付明細 ON 零用金支付表.流水號 = 零用金支付明細.流水號
- WHERE (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND
- (零用金支付表.核准人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'') AND (帳本編號 LIKE '" & 零用金支付單一覽表.帳本編號_cb.Text & "')
- GROUP BY 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10),
- 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10), 零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10),
- 零用金支付表.核准圖檔, 零用金支付表.簽名編碼, 零用金支付明細.出納
- ORDER BY 零用金支付表.流水號 DESC"
- Else
- SQL1 = "SELECT 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) AS 申請日期,
- 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期, 零用金支付表.核准人,
- LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付表.核准圖檔, 零用金支付表.簽名編碼,
- 零用金支付明細.出納 AS 已出納
- FROM 零用金支付表 INNER JOIN
- 零用金支付明細 ON 零用金支付表.流水號 = 零用金支付明細.流水號
- WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND
- (零用金支付表.核准人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'') AND (帳本編號 LIKE '" & 零用金支付單一覽表.帳本編號_cb.Text & "')
- GROUP BY 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10),
- 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10), 零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10),
- 零用金支付表.核准圖檔, 零用金支付表.簽名編碼, 零用金支付明細.出納
- ORDER BY 零用金支付表.流水號 DESC"
- End If
- CmdSet_For_DGV()
- End Sub
- Friend Sub SQL_簽名檔管理3()
- ConnOpen()
- SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & PA & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_修改零用金支付明細2()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 出納 = N'" & PA & "' WHERE 流水號 LIKE N'" & PA1 & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_修改零用金支付表3()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付表 SET 出納 = N'" & gUserName & "', 出納日期 = '" & DTP & "' WHERE 流水號 LIKE N'" & PA1 & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_零用金支付_對帳表()
- ConnOpen()
- SQL1 = "SELECT 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) AS 申請日期, 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期, " &
- "零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付明細.項次, 零用金支付明細.用途, 零用金支付明細.金額, 零用金支付明細.會計 AS 會計作業, " &
- "零用金支付明細.出納 AS 出納作業, 零用金支付明細.備註, 零用金支付表.會計, 零用金支付表.作帳日期, 零用金支付表.出納, 零用金支付表.出納日期, 零用金支付明細.現金, 零用金支付明細.備用金, " &
- "零用金支付明細.公帳 FROM 零用金支付表 RIGHT OUTER JOIN 零用金支付明細 " &
- "ON 零用金支付表.流水號 = 零用金支付明細.流水號 WHERE (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'') AND (零用金支付表.核准人 NOT LIKE N'作廢%') " &
- " " & KKKJJ3 & KKKJJ & KKKJJ2 &
- " ORDER BY 零用金支付表.流水號 DESC, 零用金支付明細.項次"
- CmdSet_For_DGV()
- End Sub
- '------------------------------零用金支付_對帳表--------------------------------------------
- Friend Sub SQL_更改零用金支付明細()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 會計 = N'0' WHERE (會計 IS NULL)"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_更改零用金支付明細1()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 出納 = N'0' WHERE (出納 IS NULL)"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_更改零用金支付明細2()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 現金 = N'0' WHERE (現金 IS NULL)"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_更改零用金支付明細3()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 備用金 = N'0' WHERE (備用金 IS NULL)"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_更改零用金支付明細4()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 公帳 = N'0' WHERE (公帳 IS NULL)"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_零用金支付明細2()
- ConnOpen()
- SQL1 = "SELECT 會計, 出納 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & PA & "' AND 項次 LIKE N'" & PA1 & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_更新零用金支付明細()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 會計 = N'1' WHERE 流水號 LIKE N'" & PA & "' AND 項次 LIKE N'" & PA1 & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_更新零用金支付表()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付表 SET 會計 = N'" & gUserName & "', 作帳日期 = '" & DTP & "' WHERE 流水號 LIKE N'" & PA & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_更新零用金支付明細1()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 出納 = N'1' WHERE 流水號 LIKE N'" & PA & "' AND 項次 LIKE N'" & PA1 & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_更新零用金支付表1()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付表 SET 出納 = N'" & gUserName & "', 出納日期 = '" & DTP & "' WHERE 流水號 LIKE N'" & PA & "'"
- CmdSet_For_dr()
- End Sub
- Friend Sub SQL_修改零用金支付明細3()
- ConnOpen()
- SQL1 = "UPDATE 零用金支付明細 SET 現金 = '" & PA2 & "', 備用金 = '" & PA3 &
- "', 公帳 = '" & PA4 & "' WHERE 流水號 LIKE N'" & PA &
- "' AND 項次 LIKE N'" & PA1 & "'"
- CmdSet_For_dr()
- End Sub
-
- End Module
|