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