Geen omschrijving
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.

SQL_財務管理系統.vb 5.4KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
  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. ConnOpen() : SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
  67. End Sub
  68. Friend Sub SQL_零用金支付表最後一筆資料()
  69. ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 零用金支付表 WHERE ( 流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
  70. End Sub
  71. End Module