GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/主資料庫/SQL_財務系統管理.vb



Module SQL_財務系統管理
    '---------------------匯率管理.------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_匯率管理_歷史匯率清單()
        ConnOpen()
        SQL1 = "SELECT 年 AS " & 表頭(89) & ", 月 AS " & 表頭(90) & ", 買進匯率 AS " & 表頭(91) & ", 賣出匯率  AS " & 表頭(92) & ", 中心匯率 AS [" & 表頭(93) & "], 
                       美金匯率 AS [" & 表頭(94) & "], 印尼盾 AS [" & 表頭(95) & "] 
                FROM 歷史匯率表 
                ORDER BY 年 DESC, 月 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_匯率管理_查詢指定匯率()
        ConnOpen()
        SQL1 = "SELECT  買進匯率, 賣出匯率,中心匯率, 美金匯率,印尼盾 FROM 歷史匯率表 WHERE (年 LIKE N'" & 匯率管理.年_tb.Text & "%') AND (月 LIKE N'" & 匯率管理.月_tb.Text & "%')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_匯率管理_修改匯率()
        ConnOpen()
        SQL1 = "UPDATE 歷史匯率表 SET 買進匯率 = '" & 匯率管理.買進匯率_tb.Text & "', 賣出匯率 = '" & 匯率管理.賣出匯率_tb.Text & "',中心匯率 = '" & 匯率管理.中心匯率_tb.Text & "', 
                                      美金匯率 = '" & 匯率管理.美金匯率_tb.Text & "' ,印尼盾 ='" & 匯率管理.印尼盾_tb.Text & "'
                WHERE (年 LIKE N'" & 匯率管理.年_tb.Text & "%') AND (月 LIKE N'" & 匯率管理.月_tb.Text & "%')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_匯率管理_新增匯率()
        ConnOpen()
        SQL1 = "INSERT INTO 歷史匯率表 (年, 月, 買進匯率,賣出匯率, 中心匯率, 美金匯率,印尼盾) 
                VALUES ('" & 匯率管理.年_tb.Text & "','" & 匯率管理.月_tb.Text & " ','" & 匯率管理.買進匯率_tb.Text & "', '" & 匯率管理.賣出匯率_tb.Text & "', 
                        '" & 匯率管理.中心匯率_tb.Text & "', '" & 匯率管理.美金匯率_tb.Text & "','" & 匯率管理.印尼盾_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_匯率管理_查詢人民幣匯率()
        ConnOpen() : SQL1 = "SELECT 匯率 FROM 匯率表 WHERE (對應 = '人民幣兌台幣')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_匯率管理_修改人民幣匯率()
        ConnOpen() : SQL1 = "UPDATE 匯率表 SET 匯率 = '" & 匯率管理.中心匯率_tb.Text & "' WHERE (對應 = '人民幣兌台幣')" : CmdSet_For_dr()
    End Sub
    '---------------------會計科目管理.------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_會計科目管理_查詢會計科目()
        ConnOpen()
        SQL1 = "SELECT    第一階  AS [" & 表頭(96) & "], 第二階 AS [" & 表頭(97) & "], 會計科目 AS [" & 表頭(98) & "], 
                          編號  AS [" & 表頭(99) & "], 層級 AS [" & 表頭(100) & "], 英文名稱 AS [" & 表頭(101) & "], 統制科目 AS [" & 表頭(102) & "],
                          抵銷科目 AS [" & 表頭(103) & "], 停用 AS [" & 表頭(104) & "] , 附註 AS [" & 表頭(105) & "], 顯示 AS [" & 表頭(106) & "]
                FROM      會計科目 WHERE 編號 LIKE N'" & 會計科目管理.ComboBox2.Text & "%' 
                ORDER BY  編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會計科目管理_查詢第一階編號()
        ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目 GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_查詢第二階編號()
        ConnOpen()
        SQL1 = "SELECT   LEFT(編號, 7) AS 編號, 第二階, 層級 
                FROM     會計科目
                WHERE   (LEFT(編號, 4) LIKE N'" & 會計科目管理.ComboBox2.Text & "') AND (層級 LIKE N'" & 會計科目管理.ComboBox5.Text & "')
                GROUP BY LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_查詢最後一筆編號1()
        ConnOpen()
        SQL1 = "SELECT TOP (1) LEFT(編號, 7) AS 編號 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 會計科目管理.ComboBox2.Text & "') AND (層級 LIKE N'2') 
                                GROUP BY   LEFT(編號, 7) ORDER BY   編號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_查詢最後一筆編號2()
        ConnOpen()
        SQL1 = "SELECT TOP (1) LEFT(編號, 10) AS 編號 FROM  會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 會計科目管理.ComboBox4.Text & "') AND (層級 LIKE N'3') 
                                GROUP BY   LEFT(編號, 10) ORDER BY   編號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_修改會計科目()
        ConnOpen()
        SQL1 = "UPDATE 會計科目 SET 會計科目 = N'" & 會計科目管理.TextBox8.Text & "', 層級 = N'" & 會計科目管理.ComboBox6.Text & "', 
                                    英文名稱 = N'" & 會計科目管理.英文名稱_tb.Text & "', 統制科目 = N'" & 會計科目管理.統制科目_cb.Checked & "',   
                                    抵銷科目 = N'" & 會計科目管理.抵銷科目_cb.Checked & "', 停用 = N'" & 會計科目管理.停用_cb.Checked & "', 
                                    附註 = N'" & 會計科目管理.TextBox18.Text & "', 第一階 = N'" & 會計科目管理.ComboBox1.Text & "', 第二階 = N'" & 會計科目管理.ComboBox3.Text & "' , 
                                    顯示 = N'" & 會計科目管理.顯示_cb.Checked & "'
                WHERE 編號 LIKE N'" & 會計科目管理.TextBox16.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_刪除會計科目()
        ConnOpen()
        SQL1 = "DELETE FROM 會計科目 WHERE (編號 = N'" & 會計科目管理.TextBox16.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_查詢會計科目編號()
        ConnOpen()
        SQL1 = "SELECT 編號 FROM 會計科目 WHERE 編號 LIKE N'" & 會計科目管理.TextBox16.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_快速修改會計科目()
        ConnOpen()
        SQL1 = "UPDATE 會計科目 SET 會計科目 = N'" & PA1 & "', 層級 = N'" & PA2 & "', 英文名稱 = N'" & PA3 & "', 統制科目 = N'" & PA4 &
                                    "', 抵銷科目 = N'" & PA5 & "', 停用 = N'" & PA6 & "', 附註 = N'" & PA7 & "', 第一階 = N'" & PA8 &
                                    "', 第二階 = N'" & PA9 & "' , 顯示 = N'" & PA10 & "'
                WHERE  編號 LIKE N'" & PA11 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_新增會計科目編號1()
        ConnOpen()
        SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 
                VALUES (N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.TextBox16.Text & "', N'" & 會計科目管理.ComboBox6.Text & "', N'" & 會計科目管理.英文名稱_tb.Text & "', 
                        N'" & 會計科目管理.統制科目_cb.Checked & "', N'" & 會計科目管理.抵銷科目_cb.Checked & "', N'" & 會計科目管理.停用_cb.Checked & "', N'" & 會計科目管理.TextBox18.Text & "', 
                        N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.顯示_cb.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_新增會計科目編號2()
        ConnOpen()
        SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 
                VALUES (N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.TextBox16.Text & "', N'" & 會計科目管理.ComboBox6.Text & "', N'" & 會計科目管理.英文名稱_tb.Text & "', 
                        N'" & 會計科目管理.統制科目_cb.Checked & "', N'" & 會計科目管理.抵銷科目_cb.Checked & "', N'" & 會計科目管理.停用_cb.Checked & "', N'" & 會計科目管理.TextBox18.Text & "', 
                        N'" & 會計科目管理.ComboBox1.Text & "', N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.顯示_cb.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_新增會計科目編號3()
        ConnOpen()
        SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 
                VALUES (N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.TextBox16.Text & "', N'" & 會計科目管理.ComboBox6.Text & "', N'" & 會計科目管理.英文名稱_tb.Text & "', 
                        N'" & 會計科目管理.統制科目_cb.Checked & "', N'" & 會計科目管理.抵銷科目_cb.Checked & "', N'" & 會計科目管理.停用_cb.Checked & "', N'" & 會計科目管理.TextBox18.Text & "', 
                        N'" & 會計科目管理.ComboBox1.Text & "', N'" & 會計科目管理.ComboBox3.Text & "', N'" & 會計科目管理.顯示_cb.Checked & "')"
        CmdSet_For_dr()
    End Sub
    ''---------------------營運成本收支單申請.------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_營運成本收支單申請_審核人1()
        PA20 = "WHERE (審核人 LIKE N'') "
    End Sub
    Friend Sub SQL_營運成本收支單申請_審核人2()
        PA20 = "WHERE (審核人 LIKE N'作廢%') "
    End Sub
    Friend Sub SQL_營運成本收支單申請_審核人3()
        PA20 = "WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'') "
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢財務收支控制表()
        ConnOpen()
        SQL1 = "SELECT 支付單號  AS [" & 表頭(107) & "], 申請日期 AS [" & 表頭(20) & "], 審核日期 AS [" & 表頭(108) & "], 申請人 FROM 財務收支控制表 " & PA20 & " ORDER BY 申請日期 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢費用清單()
        ConnOpen()
        SQL1 = "SELECT      財務收支明細表.支付單號, 財務收支明細表.項次 AS [" & 表頭(11) & "], 會計科目.會計科目 AS [" & 表頭(98) & "], 財務收支明細表.明細  AS [" & 表頭(109) & "], 
                            財務收支明細表.零用金 AS [" & 表頭(110) & "], 財務收支明細表.支票數  AS [" & 表頭(111) & "],Cast(財務收支明細表.收入 AS money)   AS [" & 表頭(39) & "], 
                            Cast(財務收支明細表.支出 AS money) AS [" & 表頭(112) & "],財務收支明細表.備註  AS [" & 表頭(113) & "], 財務收支明細表.匯率 AS [" & 表頭(114) & "], 
                            財務收支明細表.銀行 AS [" & 表頭(115) & "], 財務收支明細表.類別, 財務收支明細表.流水號
                FROM        財務收支明細表 INNER JOIN
                            會計科目 ON 財務收支明細表.類別 = 會計科目.編號
                WHERE       (財務收支明細表.支付單號 LIKE N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')
                ORDER BY    財務收支明細表.項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢財務收支控制表會計科目()
        ConnOpen()
        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 營運成本收支單申請.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢最後一筆財務收支控制表會計科目()
        ConnOpen()
        SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢最左邊財務收支控制表會計科目()
        ConnOpen()
        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 營運成本收支單申請.ComboBox2.Text & "') AND (層級 NOT LIKE N'3') AND (停用 = 0)
                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢匯率()
        ConnOpen()
        SQL1 = "SELECT 中心匯率, 美金匯率, 印尼盾 FROM 歷史匯率表 
                WHERE (年 LIKE N'" & Strings.Left(Format(營運成本收支單申請.申請日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND 
                      (月 LIKE N'" & Strings.Mid(Format(營運成本收支單申請.申請日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_營運成本會計科目查詢()
        ConnOpen()
        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & 營運成本收支單申請.關鍵字查詢會計科目_tb.Text & "%') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_修改收支單申請表()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET  明細 = N'" & PA1 & "', 支出 = N'" & PA2 & "', 
                       備註 = N'" & PA3 & "' , 類別 = N'" & PA4 & "', 收入 = N'" & PA5 & "',
                       零用金 = N'" & PA6 & "', 支票數 = N'" & PA7 & "', 匯率 = N'" & PA8 & "'
                WHERE  (支付單號 LIKE N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE N'" & PA9 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢收支單公帳流水號()
        ConnOpen()
        SQL1 = "SELECT 流水號 FROM 財務收支明細表 WHERE (流水號 ='" & PA19 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
        ConnOpen()
        SQL1 = "SELECT TOP (1)  支付單號 FROM 財務收支控制表 WHERE ( 支付單號 LIKE N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_新增一筆財務收支控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 財務收支控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號) " &
               "VALUES (N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'雅邸家具')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目管理_開立零用金支付單()
        ConnOpen()
        SQL1 = "INSERT INTO 財務收支明細表 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
                            出納日期, 零用金, 支票數, 匯率, 備註) 
                    VALUES (N'" & PA19 & "', N'" & PA21 & "', N'" & DTP & "', N'" & PA22 & "', N'" & PA23 & "', N'" & PA24 & "', N'" & PA25 & "', '', 
                            N'" & gUserName & "', N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & PA26 & "', '1', '0', '0', '0', '0', '0', '" & DTP & "', N'" & PA27 & "', 
                            N'" & PA28 & "', N'" & PA29 & "', N'" & PA30 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單申請_刪除財務收支控制表()
        ConnOpen()
        SQL1 = "DELETE FROM 財務收支控制表 WHERE (支付單號 LIKE N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')"
        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_營運成本收支單申請_刪除財務收支明細表支付單號()
        ConnOpen()
        SQL1 = "DELETE FROM 財務收支明細表 WHERE (支付單號 LIKE N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE N'" & 營運成本收支單申請.選擇項次_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_修改財務收支明細表支付單號()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 項次 = N'" & PA18 & "' WHERE (支付單號 LIKE N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE N'" & PA17 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 項次 FROM 財務收支明細表 WHERE 支付單號 LIKE N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' ORDER BY 項次 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_新增財務收支明細表資料()
        ConnOpen()
        SQL1 = "INSERT INTO 財務收支明細表 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 出納日期, 零用金, 支票數, 匯率, 備註) 
                VALUES (N'" & PA19 & "', N'" & 營運成本收支單申請.幣別_cb.Text & "', N'" & DTP & "', N'" & 營運成本收支單申請.ComboBox6.Text & "', N'0', N'0', N'', N'" & gUserName & "', 
                        N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & PA15 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & PA16 & "', N'')"
        CmdSet_For_dr()
    End Sub
    ''---------------------營運成本收支單審核.------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_營運成本收支單審核_審核人1()
        PA = "WHERE (審核人 LIKE N'') "
    End Sub
    Friend Sub SQL_營運成本收支單審核_審核人2()
        PA = "WHERE (審核人 LIKE N'作廢%') "
    End Sub
    Friend Sub SQL_營運成本收支單審核_審核人3()
        ConnOpen()
        SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_查詢收支單審核()
        ConnOpen()
        SQL1 = "SELECT 支付單號 AS [" & 表頭(107) & "], 申請日期 AS [" & 表頭(20) & "], 審核日期 AS [" & 表頭(108) & "], 申請人 FROM 財務收支控制表 " & PA & " ORDER BY 支付單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單審核_查詢費用清單()
        ConnOpen()
        SQL1 = "SELECT      財務收支明細表.支付單號 AS [" & 表頭(107) & "], 財務收支明細表.項次 AS [" & 表頭(11) & "], 會計科目.會計科目 AS [" & 表頭(98) & "], 財務收支明細表.明細 AS  [" & 表頭(109) & "], 
                            Cast(財務收支明細表.零用金 AS money) AS [" & 表頭(110) & "], Cast(財務收支明細表.支票數 AS money) AS [" & 表頭(111) & "], Cast(財務收支明細表.收入 AS money) AS [" & 表頭(39) & "], 
                            Cast(財務收支明細表.支出 AS money) AS [" & 表頭(112) & "], 財務收支明細表.備註 AS [" & 表頭(113) & "], 財務收支明細表.匯率 AS [" & 表頭(114) & "], 
                            財務收支明細表.銀行 AS [" & 表頭(115) & "], 財務收支明細表.類別, 財務收支明細表.流水號
                FROM        財務收支明細表 INNER JOIN
                            會計科目 ON 財務收支明細表.類別 = 會計科目.編號
                WHERE      (財務收支明細表.支付單號 LIKE N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')
                ORDER BY    財務收支明細表.項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單審核_查詢圖片流水號()
        ConnOpen()
        SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM HX主管簽名檔管理 ORDER BY 圖片流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單審核_查詢簽名檔圖片()
        ConnOpen()
        SQL1 = "SELECT 簽名檔圖片 FROM HX主管簽名檔管理 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 & "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "'
                WHERE (支付單號 = N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 出納 = '1', 出納日期 = N'" & DTP & "'
                WHERE (支付單號 LIKE N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表備用金()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET  備用金 = N'1' WHERE (支付單號 LIKE N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表現金()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET  現金 = N'1' WHERE (支付單號 LIKE N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表支出()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET  公帳 = N'1' WHERE (支付單號 LIKE N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    ''---------------------營運成本收支單一覽表.-------------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_營運成本收支單一覽表_查詢清單()
        ConnOpen()
        SQL1 = "SELECT 支付單號 AS [" & 表頭(107) & "], 申請人, 申請日期 AS [" & 表頭(20) & "] , 審核人, 審核日期 AS [" & 表頭(108) & "], 核准圖檔,  簽名編碼 FROM 財務收支控制表 
                WHERE (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(營運成本收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "'
                ORDER BY 審核日期 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單一覽表_查詢清單2()
        ConnOpen()
        SQL1 = "SELECT      LEFT(財務收支控制表.審核日期, 7) AS [" & 表頭(116) & "], 會計科目.第一階 AS [" & 表頭(117) & "], 會計科目.第二階 AS [" & 表頭(118) & "], 
                            會計科目.會計科目 AS [" & 表頭(119) & "], SUM(財務收支明細表.零用金) AS [" & 表頭(110) & "], SUM(財務收支明細表.支票數)  AS [" & 表頭(111) & "],
                            SUM(Cast(財務收支明細表.收入 AS money)) AS [" & 表頭(39) & "], SUM(Cast(財務收支明細表.支出 AS money)) AS [" & 表頭(112) & "], 
                            財務收支明細表.銀行 AS [ " & 表頭(115) & "], 財務收支明細表.匯率 AS [" & 表頭(114) & "]
                FROM        財務收支控制表 RIGHT OUTER JOIN
                            財務收支明細表 ON 財務收支控制表.支付單號 = 財務收支明細表.支付單號 RIGHT OUTER JOIN
                            會計科目 ON 財務收支明細表.類別 = 會計科目.編號
                WHERE      (財務收支控制表.審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' 
                             AND '" & Strings.Format(營運成本收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
                GROUP BY    會計科目.第一階, 會計科目.第二階, 會計科目.會計科目, LEFT(會計科目.編號, 7), 
                            LEFT(財務收支控制表.審核日期, 7), 財務收支明細表.銀行 , 財務收支明細表.匯率
                ORDER BY   [ " & 表頭(115) & "], LEFT(財務收支控制表.審核日期, 7), LEFT(會計科目.編號, 7)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單一覽表_查詢費用清單()
        ConnOpen()
        SQL1 = "SELECT      財務收支明細表.支付單號 , 財務收支明細表.項次 AS [" & 表頭(11) & "], 會計科目.會計科目 AS [" & 表頭(98) & "], 財務收支明細表.明細 AS [" & 表頭(109) & "], 
                            Cast(財務收支明細表.零用金 AS money) AS [" & 表頭(110) & "], Cast(財務收支明細表.支票數 AS money) AS [" & 表頭(111) & "], Cast(財務收支明細表.收入 AS money) AS [" & 表頭(39) & "], 
                            Cast(財務收支明細表.支出 AS money) AS [" & 表頭(112) & "], 財務收支明細表.備註 AS [" & 表頭(113) & "], 財務收支明細表.匯率 AS[" & 表頭(114) & "], 
                            財務收支明細表.銀行 AS [" & 表頭(115) & "], 財務收支明細表.類別, 財務收支明細表.流水號
                FROM        財務收支明細表 INNER JOIN
                            會計科目 ON 財務收支明細表.類別 = 會計科目.編號
                WHERE      (財務收支明細表.支付單號 LIKE N'" & 營運成本收支單一覽表.收支單號_tb.Text & "')
                ORDER BY    財務收支明細表.項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運成本收支單一覽表_查詢簽名檔圖片()
        ConnOpen()
        SQL1 = "SELECT 簽名檔圖片 FROM HX主管簽名檔管理 WHERE 圖片流水號 LIKE N'" & 營運成本收支單一覽表.圖片編碼_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    ''---------------------營運成本收支單_對帳表.----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_營運成本收支單對帳表_查詢最後一筆清單()
        ConnOpen()
        SQL1 = "SELECT      財務收支控制表.支付單號 AS [" & 表頭(107) & "], 財務收支控制表.申請人 AS [" & 表頭(19) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.審核人 AS [" & 表頭(120) & "], 
                            財務收支控制表.審核日期 AS [" & 表頭(121) & "], 財務收支明細表.項次 AS [" & 表頭(11) & "], 會計科目.會計科目 AS [" & 表頭(98) & "], 財務收支明細表.明細  AS [" & 表頭(122) & "], 
                            財務收支明細表.零用金 AS [" & 表頭(110) & "], 財務收支明細表.支票數  AS [" & 表頭(111) & "], Cast(財務收支明細表.收入 AS money) AS [" & 表頭(39) & "], 
                            Cast(財務收支明細表.支出 AS money) AS [" & 表頭(112) & "], 財務收支明細表.備註 AS [" & 表頭(113) & "], 財務收支明細表.會計 AS [" & 表頭(130) & "], 
                            財務收支明細表.日期 AS [" & 表頭(123) & "], 財務收支明細表.出納 AS [" & 表頭(124) & "], 財務收支明細表.出納日期 AS [" & 表頭(125) & "], 財務收支明細表.備用金 AS [" & 表頭(126) & "], 
                            財務收支明細表.支票 AS [" & 表頭(127) & "], 財務收支明細表.現金 AS [" & 表頭(128) & "], 財務收支明細表.公帳 AS [" & 表頭(129) & "], 財務收支明細表.匯率 AS [" & 表頭(114) & "], 
                            財務收支明細表.銀行 AS [" & 表頭(115) & "]
                FROM        財務收支明細表 INNER JOIN
                            會計科目 ON 財務收支明細表.類別 = 會計科目.編號 FULL OUTER JOIN
                            財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號
                WHERE      (財務收支控制表.審核人 NOT LIKE N'') AND 
                           (財務收支控制表.審核人 NOT LIKE N'作廢%') " & PA20 & PA19 & PA18 & " 
                ORDER BY   [" & 表頭(107) & "] DESC, 財務收支明細表.項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_年份清單()
        ConnOpen()
        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改會計()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 會計 = N'0' WHERE (會計 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改出納()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 出納 = N'0' WHERE (出納 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改現金()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 現金 = N'0' WHERE (現金 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改備用金()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 備用金 = N'0' WHERE (備用金 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改公帳()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 公帳 = N'0' WHERE (公帳 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改支票()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 支票 = N'0' WHERE (支票 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改日期()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 日期 = N'' WHERE (日期 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改出納日期()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 出納日期 = N'' WHERE (出納日期 IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單對帳表_修改對帳記錄存檔()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET 現金 = '" & PA15 & "', 備用金 = '" & PA14 & "', 
                                      公帳 = '" & PA13 & "', 支票 = '" & PA12 & "' 
                WHERE  支付單號   LIKE       '" & PA11 & "' AND 項次 Like '" & PA10 & "'"
        CmdSet_For_dr()
    End Sub
    ''---------------------營運報表.-------------------------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_營運報表_年份查詢()
        ConnOpen()
        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運報表_查詢清單()
        ConnOpen()
        SQL1 = "SELECT      會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS [" & 表頭(117) & "], 會計科目.第二階  AS [" & 表頭(118) & "], 
                            會計科目.會計科目  AS [" & 表頭(119) & "], QQWW.主項金額 AS [" & 表頭(131) & "], WWEE.子項金額 AS [" & 表頭(132) & "], EERR.細項金額 AS [" & 表頭(133) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,4) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "')
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS 主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,4) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS 子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,4) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢一月份清單()
        ConnOpen()
        SQL1 = "SELECT      會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/01') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS 主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/01')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS 子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/01')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢二月份清單()
        ConnOpen()
        SQL1 = "SELECT       會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/02') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS  主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/02')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS 子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/02')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢三月份清單()
        ConnOpen()
        SQL1 = "SELECT     會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/03') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS  主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/03')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS  子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/03')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢四月份清單()
        ConnOpen()
        SQL1 = "SELECT       會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/04') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS  主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/04')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS  子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/04')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢五月份清單()
        ConnOpen()
        SQL1 = "SELECT        會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS  細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/05') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS   主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/05')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS  子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/05')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢六月份清單()
        ConnOpen()
        SQL1 = "SELECT    會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/06') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS 主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/06')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS  子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/06')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢七月份清單()
        ConnOpen()
        SQL1 = "SELECT    會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS  細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/07') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS 主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/07')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS   子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/07')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢八月份清單()
        ConnOpen()
        SQL1 = "SELECT      會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/08') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS  主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/08')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS   子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/08')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢九月份清單()
        ConnOpen()
        SQL1 = "SELECT      會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/09') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS  主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/09')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS   子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/09')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢十月份清單()
        ConnOpen()
        SQL1 = "SELECT    會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/10') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS  主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/10')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS  子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/10')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢十一月份清單()
        ConnOpen()
        SQL1 = "SELECT     會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/11') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS 主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/11')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS  子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/11')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢十二月份清單()
        ConnOpen()
        SQL1 = "SELECT      會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, 
                            QQWW.主項金額, WWEE.子項金額, EERR.細項金額, EERR.細項金額 AS [" & 表頭(27) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                WHERE (LEFT(財務收支控制表_3.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/12') 
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS 主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                WHERE (LEFT(財務收支控制表_2.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/12')
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS 子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                WHERE (LEFT(財務收支控制表_1.審核日期,7) LIKE N'" & 營運成本收支決算表.年份_cb.Text & "/12')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_營運報表_查詢會計科目()
        ConnOpen()
        SQL1 = "SELECT      會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS [" & 表頭(117) & "], 會計科目.第二階 AS [" & 表頭(118) & "], 
                            會計科目.會計科目 AS [" & 表頭(119) & "], QQWW.主項金額 AS [" & 表頭(131) & "], WWEE.子項金額 AS [" & 表頭(132) & "], EERR. [" & 表頭(133) & "]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務收支明細表_3.類別 AS 細項, SUM(財務收支明細表_3.零用金 * (財務收支明細表_3.匯率)) + SUM(財務收支明細表_3.支票數 * (財務收支明細表_3.匯率)) + 
                                       SUM(Cast(財務收支明細表_3.收入 AS money) * (財務收支明細表_3.匯率)) - SUM(Cast(財務收支明細表_3.支出 AS money) * (財務收支明細表_3.匯率)) AS 細項金額
                                FROM   財務收支明細表 AS 財務收支明細表_3 INNER JOIN 財務收支控制表 AS 財務收支控制表_3 ON 財務收支明細表_3.支付單號 = 財務收支控制表_3.支付單號
                                GROUP BY    財務收支明細表_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_2.類別, 4) AS 主碼, SUM(財務收支明細表_2.零用金 * (財務收支明細表_2.匯率)) + SUM(財務收支明細表_2.支票數 * (財務收支明細表_2.匯率)) + 
                                       SUM(Cast(財務收支明細表_2.收入 AS money) * (財務收支明細表_2.匯率)) - SUM(Cast(財務收支明細表_2.支出 AS money) * (財務收支明細表_2.匯率)) AS  主項金額
                                FROM   財務收支明細表 AS 財務收支明細表_2 INNER JOIN 財務收支控制表 AS 財務收支控制表_2 ON 財務收支明細表_2.支付單號 = 財務收支控制表_2.支付單號
                                GROUP BY    LEFT(財務收支明細表_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務收支明細表_1.類別, 7) AS 子碼, SUM(財務收支明細表_1.零用金 * (財務收支明細表_1.匯率)) + SUM(財務收支明細表_1.支票數 * (財務收支明細表_1.匯率)) + 
                                       SUM(Cast(財務收支明細表_1.收入 AS money) * (財務收支明細表_1.匯率)) - SUM(Cast(財務收支明細表_1.支出 AS money) * (財務收支明細表_1.匯率)) AS  子項金額
                                FROM   財務收支明細表 AS 財務收支明細表_1 INNER JOIN 財務收支控制表 AS 財務收支控制表_1 ON 財務收支明細表_1.支付單號 = 財務收支控制表_1.支付單號
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    ''---------------------匯入EXCEL.------------------------------------------------------------------------------------------------------------------------------------------
    'Friend Sub SQL_薪資轉帳表_流水號_最後一筆資料()
    '    ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 薪資轉帳表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
    'End Sub
    'Friend Sub SQL_薪資轉帳表_匯入EXCEL_新增(ByVal NoColumns As Integer)
    '    ConnOpen()
    '    SQL1 = "INSERT INTO 薪資轉帳表 (流水號, 姓名, 身分證, 結算日期, 獎金, 薪資, 領現, 薪資合計, 領現合計, 給付方式, 人事資料流水號) 
    '            VALUES (N'" & 匯入EXCEL.流水號_tb.Text & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(7, NoColumns).Value & "',
    '                    N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(2, NoColumns).Value & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(8, NoColumns).Value & "',
    '                    N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(3, NoColumns).Value & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(4, NoColumns).Value & "', 
    '                    N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(5, NoColumns).Value & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(6, NoColumns).Value & "', 
    '                    N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(5, NoColumns).Value & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(9, NoColumns).Value & "', 
    '                    N'" & 匯入EXCEL.人事流水號_tb.Text & "')"
    '    CmdSet_For_dr()
    'End Sub
    ''---------------------匯出EXCEL.------------------------------------------------------------------------------------------------------------------------------------------
    'Friend Sub 薪資轉帳表_匯出EXCEL_月份清單(ByVal Str_Date As String)
    '    ConnOpen()
    '    SQL1 = "SELECT      薪資轉帳表.流水號, 人事資料表.舊編, 人事資料表.薪資帳號, 人事資料表.身分證, 薪資轉帳表.獎金, 薪資轉帳表.薪資, 
    '                        薪資轉帳表.領現, 薪資轉帳表.薪資合計, 人事資料表.姓名, 薪資轉帳表.結算日期, 薪資轉帳表.給付方式, 薪資轉帳表.人事資料流水號
    '            FROM        薪資轉帳表  LEFT OUTER JOIN
    '                        人事資料表 ON 薪資轉帳表.人事資料流水號 = 人事資料表.流水號
    '            WHERE      (薪資轉帳表.結算日期 NOT LIKE N'')  
    '                       AND (薪資轉帳表.結算日期 LIKE N'" & Str_Date & "%" & "')
    '           ORDER BY    薪資轉帳表.流水號"
    '    CmdSet_For_DGV()
    'End Sub
    ''---------------------薪資轉帳.------------------------------------------------------------------------------------------------------------------------------------------
    'Friend Sub 薪資轉帳表_月份清單()
    '    ConnOpen()
    '    SQL1 = "SELECT      薪資轉帳表.流水號, 人事資料表.姓名, 人事資料表.身分證, 薪資轉帳表.結算日期, 薪資轉帳表.獎金, 薪資轉帳表.薪資, 薪資轉帳表.領現, 
    '                        薪資轉帳表.薪資合計, 薪資轉帳表.領現合計, 薪資轉帳表.給付方式, 薪資轉帳表.人事資料流水號, 
    '                        人事資料表.薪資帳號, 人事資料表.職務, 人事資料表.電話, 人事資料表.手機
    '            FROM        薪資轉帳表  LEFT OUTER JOIN
    '                        人事資料表 ON 薪資轉帳表.人事資料流水號 = 人事資料表.流水號
    '            WHERE      (薪資轉帳表.結算日期 NOT LIKE N'')  
    '                       AND (薪資轉帳表.結算日期 LIKE N'" & Strings.Left(Format(薪資轉帳表.結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "%" & "')
    '           ORDER BY    薪資轉帳表.流水號"
    '    CmdSet_For_DGV()
    'End Sub
    'Friend Sub 薪資轉帳表_姓名選擇()
    '    ConnOpen() : SQL1 = "SELECT  姓名 FROM 人事資料表 GROUP BY 姓名" : CmdSet_For_dr()
    'End Sub
    'Friend Sub SQL_薪資轉帳表_新增()
    '    ConnOpen()
    '    SQL1 = "INSERT INTO 薪資轉帳表 (流水號, 身分證, 結算日期, 獎金, 薪資, 領現, 薪資合計, 領現合計, 給付方式, 人事資料流水號) 
    '            VALUES (N'" & 薪資轉帳表.流水號_tb.Text & "', N'" & 薪資轉帳表.身分證_tb.Text & "', N'" & 薪資轉帳表.結束日期_dtp.Value.ToString("yyyy/MM/dd") & "', N'', N'', N'', N'', N'', N'', N'" & 薪資轉帳表.人事流水號_tb.Text & "')"
    '    CmdSet_For_dr()
    'End Sub
    'Friend Sub SQL_薪資轉帳表_修改()
    '    ConnOpen()
    '    SQL1 = "UPDATE 薪資轉帳表 SET 結算日期 = N'" & 薪資轉帳表.結束日期_dtp.Value.ToString("yyyy/MM/dd") & "', 姓名 = N'" & 薪資轉帳表.姓名_cb.Text & "',
    '                                  身分證 = N'" & 薪資轉帳表.身分證_tb.Text & "', 獎金 = N'" & 薪資轉帳表.獎金_tb.Text & "',
    '                                  薪資 = N'" & 薪資轉帳表.薪資_tb.Text & "', 領現 = N'" & 薪資轉帳表.領現_tb.Text & "', 
    '                                  薪資合計 = N'" & 薪資轉帳表.薪資總金額_tb.Text & "', 領現合計 = N'" & 薪資轉帳表.領現總金額_tb.Text & "',
    '                                  給付方式 = N'" & 薪資轉帳表.給付方式_cb.Text & "', 人事資料流水號 = N'" & 薪資轉帳表.人事流水號_tb.Text & "'
    '                    WHERE (流水號 = N'" & 薪資轉帳表.流水號_tb.Text & "')"
    '    CmdSet_For_dr()
    'End Sub
    'Friend Sub SQL_薪資轉帳表_刪除()
    '    ConnOpen() : SQL1 = "DELETE 薪資轉帳表 WHERE (流水號 = N'" & 薪資轉帳表.流水號_tb.Text & "')" : CmdSet_For_dr()
    'End Sub
    'Friend Sub SQL_薪資轉帳表_批量存檔薪轉資料()
    '    ConnOpen()
    '    SQL1 = "UPDATE 會計科目       SET 流水號 = N'" & PA1 & "', 姓名 = N'" & PA2 & "', 身分證 = N'" & PA3 & "', 結算日期 = N'" & PA4 &
    '                                  "', 獎金 = N'" & PA5 & "', 薪资 = N'" & PA6 & "', 領現 = N'" & PA7 & "', 薪資合計 = N'" & PA8 &
    '                                  "', 領現合計 = N'" & PA9 & "' , 給付方式 = N'" & PA10 & "', 薪資帳號 = N'" & PA11 &
    '                                  "', 職務 = N'" & PA12 & "', 電話 = N'" & PA13 & "', 手機 = N'" & PA14 & "'
    '            WHERE  流水號         LIKE N'" & PA15 & "'"
    '    CmdSet_For_DGV()
    'End Sub
    '將SQL_薪資轉帳表_批量存檔薪轉資料()SQL語法的key做更動
End Module