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