Module SQL_語法_1
    Friend Sub SQL_人員薪資表1()
        If PA25 = "-1" Or PA25 = "0" Or PA25 = "" Or 工人 = True Then : SQL3 = "" & SQL5
        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
        If BL = False Then
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 
                                                       AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            Else
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            End If
            SQL1 = "SELECT       [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
                                  使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
                                 [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
                                  使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
                    FROM          使用者權限管理表 LEFT OUTER JOIN
                                  HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
                                 [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
                    ORDER BY     " & SQL4
            CmdSet_For_DGV()
        Else
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
            Else
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else
                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            End If
            SQL1 = "SELECT     [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
                                使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
                               [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
                               [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
                                使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
                    FROM        使用者權限管理表 LEFT OUTER JOIN
                                HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
                                [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
                    WHERE      (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
                                使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
                    ORDER BY     " & SQL4
            CmdSet_For_DGV()
        End If
    End Sub
    Friend Sub SQL_人員薪資表2()
        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5
        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
        If BL = False Then
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 
                                                       AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            Else
                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
                Else
                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            End If
            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
                    FROM            使用者權限管理表 LEFT OUTER JOIN
                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
                                   [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
                    ORDER BY       " & SQL4
            CmdSet_For_DGV()
        Else
            ConnOpen()
            If 在職 = True Then
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
            Else
                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                Else
                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
                End If
            End If
            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
                    FROM            使用者權限管理表 LEFT OUTER JOIN
                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
                                    [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
                    WHERE          (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
                                    使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
                    ORDER BY        " & SQL4
            CmdSet_For_DGV()
        End If
    End Sub
    Friend Sub SQL_考勤虛擬表()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期
                FROM    虛擬考勤明細表  WHERE  (日期 LIKE '" & PA25 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_特殊供應商()
        ConnOpen() : SQL1 = "SELECT  供應商編碼, 公司名  FROM  供應商資料表  WHERE  (特殊 = 1)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_使用地點()
        ConnOpen() : SQL1 = "SELECT  使用地點  FROM  採購單控制表  GROUP BY　使用地點" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_詢價人員()
        ConnOpen() : SQL1 = "SELECT  詢價員  FROM  採購單控制表  GROUP BY 詢價員" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_可用物料()
        ConnOpen()
        SQL1 = "SELECT    QQ.供應商編碼, QQ.單價, 物料規格表.料號, 物料編碼庫轉語言.品名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 
                          物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料編碼庫.單位, 物料規格表.群組碼, 
                          物料規格表.料號原則
                FROM      物料規格表 INNER JOIN 物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN
                          物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN
                         (SELECT    供應商產品清單.供應商編碼, 供應商產品清單.料號, 供應商產品清單.單價
                          FROM      供應商產品清單 INNER JOIN  供應商資料表 ON 供應商產品清單.供應商編碼 = 供應商資料表.供應商編碼
                          WHERE    (供應商資料表.特殊 = 1)
                          GROUP BY  供應商產品清單.供應商編碼, 供應商產品清單.料號, 供應商產品清單.單價) AS QQ ON 
                          物料規格表.料號 = QQ.料號
                WHERE    (物料規格表.特殊 = 1) AND (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "')
                ORDER BY  QQ.供應商編碼, 物料規格表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_申請人()
        ConnOpen() : SQL1 = "SELECT  申請人  FROM  採購單明細表  WHERE  (申請人 IS NOT NULL)  GROUP BY  申請人" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約號()
        ConnOpen() : SQL1 = "SELECT  合約號  FROM  採購單明細表  WHERE  (合約號 NOT LIKE 'P%') AND (合約號 NOT LIKE 'H%') AND (合約號 NOT LIKE '')  GROUP BY  合約號" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_該月單號()
        ConnOpen()
        SQL1 = "SELECT  採購單號  FROM  採購單控制表  WHERE  (採購單號 LIKE '%" & 每月零用金設定.年份2_cb.Text & 每月零用金設定.月份2_cb.Text & "%')  ORDER BY  採購單號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購控制表1()
        ConnOpen()
        SQL1 = "SELECT * FROM  採購單控制表 WHERE  (採購單號 LIKE '%" & 每月零用金設定.年份2_cb.Text & 每月零用金設定.月份2_cb.Text & "%') AND  特殊 = 1 ORDER BY 採購單號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購明細表1()
        ConnOpen() : SQL1 = "SELECT * FROM  採購單明細表 " & SQL2 & " ORDER BY 採購單號" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購控制表()
        ConnOpen() : SQL1 = "SELECT  TOP (" & CInt(每月零用金設定.開單數_nud.Value) & ") * FROM  採購單控制表" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購明細表()
        ConnOpen() : SQL1 = "SELECT  TOP (" & CInt(每月零用金設定.開單數_nud.Value) * 7 & ") * FROM  採購單明細表" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤總明細()
        ConnOpen_管理SQL()
        SQL1 = "SELECT    QQ.ID卡號, 萬年曆.星期 AS MGB, 萬年曆.星期 AS [" & 表頭(2) & "], 萬年曆.日期 AS [" & 表頭(3) & "], QQ.第一, QQ.第二, QQ.第三, QQ.第四, QQ.第五, QQ.第六, 
                          QQ.第一 AS [" & 表頭(4) & "], QQ.第一 AS [" & 表頭(5) & "], QQ.第一 AS [" & 表頭(6) & "], QQ.第一 AS [" & 表頭(7) & "], QQ.第一 AS [" & 表頭(8) & "],
                          QQ.第一 AS [" & 表頭(9) & "], QQ.第一 AS [" & 表頭(10) & "], QQ.第一 AS [" & 表頭(11) & "], QQ.第一 AS [" & 表頭(12) & "], QQ.第一 AS [" & 表頭(13) & "],
                          QQ.第一 AS [" & 表頭(14) & "], QQ.第一 AS [" & 表頭(15) & "], QQ.第一 AS [" & 表頭(16) & "], QQ.加班 AS [" & 表頭(17) & "], 萬年曆.假日 AS [" & 表頭(18) & "]
                FROM      萬年曆 LEFT OUTER JOIN  (SELECT  ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班
                          FROM    人事考勤明細表) AS QQ ON 萬年曆.日期 = QQ.日期
                WHERE    (LEFT(萬年曆.日期, 7) LIKE '" & PA2 & "/" & PA3 & "')
                ORDER BY  LEFT(萬年曆.日期, 7), 萬年曆.日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤級別讀取()
        ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (姓名 LIKE N'" & PA47 & "')" : CmdSet_For_dr()
        If BL = False Then
            ConnOpen()
            If PA = "" Then
                If 在職 = True Then : SQL2 = " WHERE (CC63 = 0)" : Else : SQL2 = " WHERE (CC63 = 1)" : End If
                SQL1 = "SELECT  級別 FROM 使用者權限管理表 " & SQL2 & " GROUP BY 級別 ORDER BY 級別"
            Else
                If 登入人級別 = "00" Then : SQL2 = "" : Else : If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If : End If
                SQL1 = "SELECT    級別 FROM 使用者權限管理表 
                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR 
                                 (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%')) " & SQL2 & "
                        GROUP BY 級別  ORDER BY  級別"
            End If
            CmdSet_For_dr()
        Else
            ConnOpen()
            If PA = "" Then
                If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If
                SQL1 = "SELECT  級別 FROM 使用者權限管理表 
                        WHERE  (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09') " & SQL2 & "  GROUP BY 級別  ORDER BY 級別"
            Else
                SQL1 = "SELECT    級別 FROM 使用者權限管理表 
                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%') AND
                                 (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09')) " & SQL2 & "
                        GROUP BY 級別  ORDER BY  級別"
            End If
            CmdSet_For_dr()
        End If
    End Sub
    Friend Sub SQL_年分清單()
        ConnOpen_管理SQL() : SQL1 = "SELECT  LEFT(日期, 4) AS 日期  FROM  人事考勤明細表  GROUP BY   LEFT(日期, 4)  ORDER BY  日期 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員薪資表_群組()
        ConnOpen_管理SQL() : SQL1 = "SELECT 部門名稱 FROM 人員資料表 WHERE 部門名稱 IS NOT NULL AND 部門名稱 NOT LIKE '' GROUP BY 部門名稱 ORDER BY 部門名稱" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員薪資表_修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人員資料表 SET 部門名稱 = N'" & PA30 & "', 群組 = N'" & PA31 & "', 薪資 = N'" & PA32 & "' WHERE 帳號 LIKE N'" & PA33 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_虛擬考勤明細表新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 虛擬考勤明細表 (帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期) VALUES " & SQL2
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_虛擬考勤明細表刪除()
        ConnOpen_管理SQL()
        SQL1 = "DELETE 虛擬考勤明細表 WHERE 日期 LIKE '" & PA45 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_財務零用金紀錄_查詢()
        ConnOpen() : SQL1 = "SELECT 金額 FROM 財務零用金紀錄 WHERE (時間 LIKE '" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_財務零用金紀錄_新增()
        ConnOpen() : SQL1 = "INSERT INTO 財務零用金紀錄 (時間, 金額) VALUES ('" & PA & "', '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_財務零用金紀錄_修改()
        ConnOpen() : SQL1 = "UPDATE 財務零用金紀錄 SET 金額 = '" & PA1 & "' WHERE (時間 LIKE '" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_虛擬採購控制表新增()
        ConnOpen()
        SQL1 = "INSERT INTO 採購單控制表 (採購單號, 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 
                            簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 採購員, 採購日期, 已會計, 已出納, 現金, 備用金, 公帳, 一級核准, 
                            一級核准核准日期, 一級核准簽名檔編號, 特殊) VALUES " & SQL2
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_虛擬採購明細表新增()
        ConnOpen()
        SQL1 = "INSERT INTO 採購單明細表 (採購單號, 品名, 規格, 備註, 數量, 單位, 單價, 項次, 已收貨, 群組碼, 料號原則, 料號, 已入庫, 已申請入庫, 
                            請購單號, 合約號, 申請人) VALUES " & SQL2
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_財物支付單申請_查詢財務收支控制表()
        ConnOpen()
        SQL1 = "SELECT    財務收支明細表.流水號 AS [" & 表頭(107) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.申請人  AS [" & 表頭(1) & "], 
                          財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫, 
                          財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 AS [" & 表頭(2) & "], 財務收支明細表.備用金 AS [" & 表頭(3) & "], 
                          財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行
                FROM      財務收支明細表 INNER JOIN
                          財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號
                WHERE    (財務收支明細表.流水號 LIKE '%" & PA25 & "')
                ORDER BY  財務收支明細表.流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_財物支付單申請_查詢財務收支控制表1()
        ConnOpen()
        SQL1 = "SELECT    財務收支明細表.流水號 AS [" & 表頭(107) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.申請人  AS [" & 表頭(1) & "], 
                          財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫, 
                          財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 AS [" & 表頭(2) & "], 財務收支明細表.備用金 AS [" & 表頭(3) & "], 
                          財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行
                FROM      財務收支明細表 INNER JOIN
                          財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號
                WHERE    (財務收支明細表.流水號 NOT LIKE 'B%')
                ORDER BY  財務收支控制表.申請日期 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部門選單()
        ConnOpen() : SQL1 = "SELECT  部門  FROM  財務部門  ORDER BY  部門" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
        ConnOpen() : SQL1 = "SELECT TOP (1)  支付單號 FROM 財務收支控制表 WHERE ( 支付單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_新增一筆財務收支控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 財務收支控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號, 特殊) " &
               "VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'', '1')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_財物支付單申請_查詢最後一筆公帳支付單號()
        ConnOpen() : SQL1 = "SELECT TOP(1) 流水號 FROM 財務收支明細表  WHERE  (財務收支明細表.流水號 LIKE '%" & PA25 & "') ORDER BY  財務收支明細表.流水號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增財物支付單明細表資料()
        ConnOpen()
        SQL1 = "INSERT INTO 財務收支明細表 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 出納日期, 零用金, 支票數, 
                                            匯率, 備註, 大寫, 支付對象, 公司, 付款銀行, 銀行支行) 
                VALUES (N'" & PA19 & "', N'IDR', N'" & DTP & "', N'" & 指定會科 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA12 & "', N'" & gUserName & "', N'" & PA15 & "', 
                        N'" & PA11 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'1', N'" & PA37 & "', N'" & PA38 & "', N'" & PA39 & "', N'" & PA40 & "', 
                        N'" & PA41 & "', N'" & PA42 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_刪除財務收支控制表()
        ConnOpen()
        SQL1 = "DELETE FROM 財務收支控制表 WHERE (支付單號 LIKE N'" & PA45 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單申請_刪除財務收支明細表()
        ConnOpen()
        SQL1 = "DELETE FROM 財務收支明細表 WHERE (支付單號 LIKE N'" & PA45 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_審核人3()
        ConnOpen()
        SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & PA42 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支控制表()
        ConnOpen()
        SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & PA27 & "', 簽名編碼 = N'" & PA28 & "', 出納 = '" & gUserName & "', 
                       出納日期 = N'" & DTP & "'
                WHERE (支付單號 = N'" & PA29 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表()
        ConnOpen() : SQL1 = "UPDATE 財務收支明細表 SET 出納 = '1', 出納日期 = N'" & DTP & "' WHERE (支付單號 LIKE N'" & PA29 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表備用金()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET  備用金 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表現金()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET  現金 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表支出()
        ConnOpen()
        SQL1 = "UPDATE 財務收支明細表 SET  公帳 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_財務採購關聯表_反改查詢()
        ConnOpen() : SQL1 = "SELECT 採購單號, 轉財務金額, 流水號 FROM 財務採購關聯表 WHERE (財務單號 LIKE '" & PA20 & "')" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_財務採購關聯表_反改()
        ConnOpen() : SQL1 = "DELETE 財務採購關聯表 WHERE (財務單號 LIKE '" & PA20 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單控制表_反改查詢()
        ConnOpen() : SQL1 = "SELECT 轉財務金額 FROM 採購單控制表 WHERE (採購單號 LIKE '" & PA21 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單控制表_反改()
        ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET 轉財務金額 = '" & PA22 & "' WHERE (採購單號 LIKE '" & PA21 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單詢價_控制刪除()
        ConnOpen() : SQL1 = "DELETE FROM 採購單控制表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單詢價_明細刪除()
        ConnOpen() : SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資彙總報表_查詢()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 金額 FROM 工人薪資彙總報表 WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資彙總報表_新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 工人薪資彙總報表 (年, 月, 周, 人數, 金額, 特殊) 
                VALUES (N'" & PA25 & "',N'" & PA26 & "',N'" & PA27 & "',N'" & PA28 & "',N'" & PA29 & "',N'" & PA30 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資彙總報表_修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 工人薪資彙總報表 SET 人數 = N'" & PA28 & "', 金額 = N'" & PA29 & "'
                WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工人薪資彙總報表_查詢1()
        ConnOpen_管理SQL()
        SQL1 = "SELECT 年 AS 計數, 年, 月, 周, 人數, 金額 AS 總金額, 特殊 FROM 工人薪資彙總報表 WHERE 年 LIKE N'" & PA25 & "' AND 特殊 = N'" & PA30 & "'  ORDER BY   特殊, 月, 周"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工人薪資彙總報表_查詢2()
        ConnOpen_管理SQL()
        SQL1 = "SELECT    LEFT(萬年曆.日期, 4) AS 年, SUBSTRING(萬年曆.日期, 6, 2) AS 月, QQ.人數, QQ.金額 AS 總金額, QQ.金額 AS 總額, QQ.金額 AS 比例
                FROM      萬年曆 LEFT OUTER JOIN
                         (SELECT    年, 月, 月 AS 人數, SUM(金額) AS 金額
                          FROM      工人薪資彙總報表
                          WHERE    (年 LIKE N'" & PA25 & "') AND (特殊 = N'" & PA30 & "')
                          GROUP BY  年, 月) AS QQ ON SUBSTRING(萬年曆.日期, 6, 2) = QQ.月 AND LEFT(萬年曆.日期, 4) = QQ.年
                WHERE    (LEFT(萬年曆.日期, 4) LIKE N'" & PA25 & "')
                GROUP BY  LEFT(萬年曆.日期, 4), SUBSTRING(萬年曆.日期, 6, 2), QQ.人數, QQ.金額
                ORDER BY  月"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購總額彙總報表_查詢1()
        ConnOpen_管理SQL()
        SQL1 = "SELECT    LEFT(萬年曆.日期, 4) AS 年, SUBSTRING(萬年曆.日期, 6, 2) AS 月, WW.資料筆數, QQ.總金額, QQ.總金額 AS 總計, QQ.總金額 AS 比例
                FROM      萬年曆 LEFT OUTER JOIN
                         (SELECT    SUBSTRING(採購單號, 7, 4) AS 年, SUBSTRING(採購單號, 11, 2) AS 月, COUNT(採購單號) AS 資料筆數  FROM   [HX-GPS-ERP-SYS].dbo.採購單控制表  
                          WHERE    (特殊 = 0 OR 特殊 IS NULL) AND (SUBSTRING(採購單號, 7, 4) LIKE '" & PA25 & "')
                          GROUP BY  SUBSTRING(採購單號, 7, 4), SUBSTRING(採購單號, 11, 2)) AS WW ON LEFT(萬年曆.日期, 4) = WW.年 AND SUBSTRING(萬年曆.日期, 6, 2) = WW.月 LEFT OUTER JOIN
                         (SELECT    SUBSTRING(採購單控制表_1.採購單號, 7, 4) AS 年, SUBSTRING(採購單控制表_1.採購單號, 11, 2) AS 月, 
                                    SUM(([HX-GPS-ERP-SYS].dbo.採購單明細表.數量 * [HX-GPS-ERP-SYS].dbo.採購單明細表.單價 - [HX-GPS-ERP-SYS].dbo.採購單明細表.數量 * 
                                   [HX-GPS-ERP-SYS].dbo.採購單明細表.單價 * 採購單控制表_1.DISC / 100) + [HX-GPS-ERP-SYS].dbo.採購單明細表.數量 * 
                                   [HX-GPS-ERP-SYS].dbo.採購單明細表.單價 * 採購單控制表_1.PPN / 100) AS 總金額
                          FROM     [HX-GPS-ERP-SYS].dbo.採購單控制表 AS 採購單控制表_1 INNER JOIN [HX-GPS-ERP-SYS].dbo.採購單明細表 ON 採購單控制表_1.採購單號 = 
                                   [HX-GPS-ERP-SYS].dbo.採購單明細表.採購單號
                          WHERE    (採購單控制表_1.特殊 = 0 OR 採購單控制表_1.特殊 IS NULL) AND (SUBSTRING(採購單控制表_1.採購單號, 7, 4) LIKE '" & PA25 & "')
                          GROUP BY  SUBSTRING(採購單控制表_1.採購單號, 7, 4), SUBSTRING(採購單控制表_1.採購單號, 11, 2)) AS QQ ON LEFT(萬年曆.日期, 4) = 
                          QQ.年 AND SUBSTRING(萬年曆.日期, 6, 2) = QQ.月
                WHERE    (LEFT(萬年曆.日期, 4) LIKE '" & PA25 & "')
                GROUP BY  LEFT(萬年曆.日期, 4), SUBSTRING(萬年曆.日期, 6, 2), WW.資料筆數, QQ.總金額"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購總額彙總報表_查詢2()
        ConnOpen_管理SQL()
        SQL1 = "SELECT    LEFT(萬年曆.日期, 4) AS 年, SUBSTRING(萬年曆.日期, 6, 2) AS 月, WW.資料筆數, QQ.總金額, QQ.總金額 AS 總計, QQ.總金額 AS 比例
                FROM      萬年曆 LEFT OUTER JOIN
                         (SELECT    SUBSTRING(採購單號, 7, 4) AS 年, SUBSTRING(採購單號, 11, 2) AS 月, COUNT(採購單號) AS 資料筆數  FROM   [HX-GPS-ERP-SYS].dbo.採購單控制表  
                          WHERE    (特殊 = 1) AND (SUBSTRING(採購單號, 7, 4) LIKE '" & PA25 & "')
                          GROUP BY  SUBSTRING(採購單號, 7, 4), SUBSTRING(採購單號, 11, 2)) AS WW ON LEFT(萬年曆.日期, 4) = WW.年 AND SUBSTRING(萬年曆.日期, 6, 2) = WW.月 LEFT OUTER JOIN
                         (SELECT    SUBSTRING(採購單控制表_1.採購單號, 7, 4) AS 年, SUBSTRING(採購單控制表_1.採購單號, 11, 2) AS 月, 
                                    SUM(([HX-GPS-ERP-SYS].dbo.採購單明細表.數量 * [HX-GPS-ERP-SYS].dbo.採購單明細表.單價 - [HX-GPS-ERP-SYS].dbo.採購單明細表.數量 * 
                                   [HX-GPS-ERP-SYS].dbo.採購單明細表.單價 * 採購單控制表_1.DISC / 100) + [HX-GPS-ERP-SYS].dbo.採購單明細表.數量 * 
                                   [HX-GPS-ERP-SYS].dbo.採購單明細表.單價 * 採購單控制表_1.PPN / 100) AS 總金額
                          FROM     [HX-GPS-ERP-SYS].dbo.採購單控制表 AS 採購單控制表_1 INNER JOIN [HX-GPS-ERP-SYS].dbo.採購單明細表 ON 採購單控制表_1.採購單號 = 
                                   [HX-GPS-ERP-SYS].dbo.採購單明細表.採購單號
                          WHERE    (採購單控制表_1.特殊 = 1) AND (SUBSTRING(採購單控制表_1.採購單號, 7, 4) LIKE '" & PA25 & "')
                          GROUP BY  SUBSTRING(採購單控制表_1.採購單號, 7, 4), SUBSTRING(採購單控制表_1.採購單號, 11, 2)) AS QQ ON LEFT(萬年曆.日期, 4) = 
                          QQ.年 AND SUBSTRING(萬年曆.日期, 6, 2) = QQ.月
                WHERE    (LEFT(萬年曆.日期, 4) LIKE '" & PA25 & "')
                GROUP BY  LEFT(萬年曆.日期, 4), SUBSTRING(萬年曆.日期, 6, 2), WW.資料筆數, QQ.總金額"
        CmdSet_For_DGV()
        'AND (一級核准 NOT LIKE '') AND (一級核准 NOT LIKE '作廢%') AND (核准 NOT LIKE '') AND (核准 NOT LIKE '作廢%')
        ' AND 
        '(採購單控制表_1.一級核准 NOT LIKE '') AND (採購單控制表_1.一級核准 NOT LIKE '作廢%') AND (採購單控制表_1.核准 NOT LIKE '') AND 
        '(採購單控制表_1.核准 NOT LIKE '作廢%')
    End Sub
    Friend Sub SQL_採購未付款清單1()
        ConnOpen()
        SQL1 = "SELECT    QQ.類別 AS [" & 表頭(10) & "], QQ.公司名 AS [" & 表頭(17) & "], QQ.DISC, QQ.PPN, QQ.採購單號 AS [" & 表頭(18) & "], 
                          QQ.總價 AS [" & 表頭(20) & "], QQ.折扣金額 AS [" & 表頭(21) & "], QQ.稅金 AS [" & 表頭(22) & "], QQ.需求日期 AS [" & 表頭(23) & "], 
                          QQ.核准日期 AS [" & 表頭(24) & "], QQ.使用地點 AS [" & 表頭(25) & "], QQ.合約號, HX空白圖片.圖片 AS [" & 表頭(28) & "]
                FROM      HX空白圖片 RIGHT OUTER JOIN
                         (SELECT    供應商類別.類別, 供應商資料表.公司名, 採購單控制表.DISC, 採購單控制表.PPN, 
                                    採購單控制表.採購單號, SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總價, 
                                    SUM(採購單明細表.數量 * 採購單明細表.單價) AS 折扣金額, 
                                    SUM(採購單明細表.數量 * 採購單明細表.單價) AS 稅金, 採購單控制表.需求日期, 
                                    採購單控制表.核准日期, 採購單控制表.使用地點, 採購單明細表.合約號
                          FROM      供應商類別 INNER JOIN
                                    供應商資料表 ON 供應商類別.編碼 = 供應商資料表.供應商簡稱 RIGHT OUTER JOIN
                                    採購單控制表 ON 供應商資料表.供應商編碼 = 採購單控制表.供應商編號 FULL OUTER JOIN
                                    採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號
                          WHERE    (採購單控制表.核准 NOT LIKE '') AND (採購單控制表.核准 NOT LIKE '作廢%') AND 
                                   " & SQL2 & " AND (供應商類別.語言 LIKE '" & 系統語言 & "')
                          GROUP BY  供應商資料表.公司名, 採購單控制表.DISC, 採購單控制表.PPN, 採購單控制表.採購單號, 
                                    供應商類別.類別, 採購單控制表.需求日期, 採購單控制表.核准日期, 採購單控制表.使用地點, 採購單明細表.合約號) 
                          AS QQ ON HX空白圖片.選擇 = QQ.類別
                ORDER BY  QQ.公司名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購付款彙總0()
        ConnOpen()
        SQL1 = "SELECT  TOP(1) 供應商類別.類別 AS [" & 表頭(10) & "], 採購單明細表.單價 AS [" & 表頭(29) & "], 採購單明細表.單價 AS 比例1
                FROM    供應商類別 LEFT OUTER JOIN 採購單明細表 ON 供應商類別.編碼 = 採購單明細表.採購單號
                WHERE  (供應商類別.語言 LIKE '" & 系統語言 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購付款彙總1()
        ConnOpen()
        SQL1 = "SELECT  供應商類別.類別 AS [" & 表頭(10) & "], 採購單明細表.單價 AS [" & 表頭(29) & "], 採購單明細表.單價 AS 比例1
                FROM    供應商類別 LEFT OUTER JOIN 採購單明細表 ON 供應商類別.編碼 = 採購單明細表.採購單號
                WHERE  (供應商類別.語言 LIKE '" & 系統語言 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購付款彙總2()
        ConnOpen()
        SQL1 = "SELECT     供應商資料表.公司名 AS [" & 表頭(17) & "], 採購單明細表.數量 AS [" & 表頭(29) & "], 採購單明細表.數量 AS 比例1
                FROM       供應商資料表 INNER JOIN 供應商類別 ON 供應商資料表.供應商簡稱 = 供應商類別.編碼 LEFT OUTER JOIN
                           採購單明細表 ON 供應商資料表.供應商編碼 = 採購單明細表.採購單號
                WHERE     (供應商類別.語言 LIKE '" & 系統語言 & "') AND (供應商類別.類別 LIKE '%" & PA10 & "%')
                GROUP BY   供應商資料表.公司名, 採購單明細表.數量
                ORDER BY   供應商資料表.公司名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購付款彙總3()
        ConnOpen()
        SQL1 = "SELECT     TOP(1) 供應商資料表.公司名 AS [" & 表頭(17) & "], 採購單明細表.數量 AS [" & 表頭(29) & "], 採購單明細表.數量 AS 比例1
                FROM       供應商資料表 INNER JOIN 供應商類別 ON 供應商資料表.供應商簡稱 = 供應商類別.編碼 LEFT OUTER JOIN
                           採購單明細表 ON 供應商資料表.供應商編碼 = 採購單明細表.採購單號
                WHERE     (供應商類別.語言 LIKE '" & 系統語言 & "') AND (供應商類別.類別 LIKE '%" & PA10 & "%')
                GROUP BY   供應商資料表.公司名, 採購單明細表.數量
                ORDER BY   供應商資料表.公司名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購付款彙總4()
        ConnOpen()
        SQL1 = "SELECT     合約編號 AS [" & 表頭(30) & "], 約號排序, 約號尾序, 約號甲方, 預估材料報價, 預估材料成本 AS [" & 表頭(31) & "], 預估材料報價 AS [" & 表頭(34) & "], 
                           預估材料報價 AS [" & 表頭(35) & "], 預估材料報價 AS 比例1, 預估材料報價 AS [" & 表頭(29) & "], 預估材料報價 AS [" & 表頭(36) & "], 預估材料報價 AS 比例2
                FROM       合約控制表
                WHERE     (合約停止 = 0 OR 合約停止 IS NULL) AND (預估材料成本 IS NOT NULL OR 預估材料成本 = 0) AND (作廢 = 0 OR 作廢 IS NULL) " & SQL2 & "
                ORDER BY   約號排序 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購付款彙總5()
        ConnOpen()
        SQL1 = "SELECT     TOP(1) 合約編號 AS [" & 表頭(30) & "], 約號排序, 約號尾序, 約號甲方, 預估材料報價, 預估材料成本 AS [" & 表頭(31) & "], 預估材料報價 AS [" & 表頭(34) & "], 
                           預估材料報價 AS [" & 表頭(35) & "], 預估材料報價 AS 比例1, 預估材料報價 AS [" & 表頭(29) & "], 預估材料報價 AS [" & 表頭(36) & "], 預估材料報價 AS 比例2
                FROM       合約控制表
                WHERE     (合約停止 = 0 OR 合約停止 IS NULL) AND (預估材料成本 > 0) AND (作廢 = 0 OR 作廢 IS NULL)
                ORDER BY   約號排序 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購單明細表1()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If
        SQL1 = "SELECT      採購單明細表.採購單號, 採購單明細表.項次 AS [" & 表頭(11) & "],採購單明細表.合約號 AS [" & 表頭(134) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 
                            物料規格表.A1 AS [" & 表頭(13) & "], 採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 
                            採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 
                            採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 
                            採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次 AS 項次01, 物料規格表.A2, 物料規格表.A3, 
                            物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 
                            物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 採購單明細表.請購單號 AS [KEY],
                            採購單明細表.單價 AS OUP, 採購單明細表.申請人 AS [SP%] , 採購單明細表.申請人 AS [" & 表頭(19) & "]" & 低網 & "
                FROM        採購單明細表 INNER JOIN
                            物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN
                            物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN
                            物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                WHERE      (採購單明細表.合約號 LIKE N'" & PA10 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                ORDER BY   採購單明細表.項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約甲方()
        ConnOpen()
        SQL1 = "SELECT  約號甲方  FROM  合約控制表  
                WHERE  (作廢 = 0) AND (工程總價 IS NOT NULL) AND (工程總價 > 0) AND (合約編號 NOT LIKE '&GCM&') GROUP BY 約號甲方  ORDER BY  約號甲方"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_請款清單()
        ConnOpen()
        SQL1 = "SELECT  合約編號, 申請時間, 期數, 請款金額, 稅金, 請款總額, 請款總額 - 請款金額 AS 稅額, 本收, 稅收  FROM  合約請款  ORDER BY  合約編號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約報表計算2()
        ConnOpen()
        SQL1 = "SELECT  TOP(1) 約號甲方 AS 甲方, SUM(工程總價) AS [合約數量], SUM(工程總價) AS [工程總價], SUM(工程總價) AS [總報價], SUM(工程總價) AS [稅金], 
                        SUM(工程總價) AS [已請款], SUM(工程總價) AS [未請款], SUM(工程總價) AS 比例1, SUM(工程總價) AS [已收款], SUM(工程總價) AS [已請未收款], 
                        SUM(工程總價) AS 比例2, SUM(工程總價) AS [已請稅], SUM(工程總價) AS [未請稅], SUM(工程總價) AS 比例3, SUM(工程總價) AS [已收稅], 
                        SUM(工程總價) AS [已請未收稅], SUM(工程總價) AS 比例4 
                FROM    合約控制表  
                WHERE  (作廢 = 0) AND (工程總價 IS NOT NULL) AND (工程總價 > 0) AND (合約編號 NOT LIKE '&GCM&') " & SQL2 & " GROUP BY 約號甲方  ORDER BY  約號甲方"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約報表計算1()
        ConnOpen()
        SQL1 = "SELECT  約號甲方 AS [" & 表頭(11) & "], SUM(工程總價) AS [" & 表頭(12) & "], SUM(工程總價) AS [" & 表頭(13) & "], SUM(工程總價) AS [總報價], SUM(工程總價) AS [稅金], 
                        SUM(工程總價) AS [" & 表頭(14) & "], SUM(工程總價) AS [" & 表頭(15) & "], SUM(工程總價) AS 比例1, SUM(工程總價) AS [" & 表頭(16) & "], SUM(工程總價) AS [" & 表頭(17) & "], 
                        SUM(工程總價) AS 比例2, SUM(工程總價) AS [" & 表頭(18) & "], SUM(工程總價) AS [" & 表頭(19) & "], SUM(工程總價) AS 比例3, SUM(工程總價) AS [" & 表頭(20) & "], 
                        SUM(工程總價) AS [" & 表頭(21) & "], SUM(工程總價) AS 比例4 
                FROM    合約控制表  
                WHERE  (作廢 = 0) AND (工程總價 IS NOT NULL) AND (工程總價 > 0) AND (合約編號 NOT LIKE '&GCM&') " & SQL2 & " GROUP BY 約號甲方  ORDER BY  約號甲方"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約彙總()
        ConnOpen()
        SQL1 = "SELECT    合約控制表.合約編號 AS [" & 表頭(9) & "], 合約控制表.工程總價, 合約控制表.總報價, 合約控制表.工程總價 AS 稅金, 合約控制表.總報價 AS 已請款, 
                          合約控制表.總報價 AS 未請款, 合約控制表.總報價 AS 已收款, 合約控制表.總報價 AS 已請未收款, 合約控制表.工程總價 AS 已請稅, 合約控制表.工程總價 AS 未請稅, 
                          合約控制表.總報價 AS 已收稅, 合約控制表.總報價 AS 已請未收稅, 合約控制表.總報價 AS 計數, 合約控制表.約號甲方 AS 甲方
                FROM      合約控制表 LEFT OUTER JOIN
                         (SELECT  合約號碼, 總價  FROM  合約報價總表  WHERE  (內容 LIKE N'管理費%')) AS 管理費表 ON  合約控制表.合約編號 = 管理費表.合約號碼 LEFT OUTER JOIN
                         (SELECT  合約號碼, 總價  FROM  合約報價總表 AS 合約報價總表_2  WHERE  (內容 LIKE N'折讓%')) AS 折讓表 ON  合約控制表.合約編號 = 折讓表.合約號碼 LEFT OUTER JOIN
                         (SELECT  合約號碼, 總價  FROM  合約報價總表 AS 合約報價總表_1  WHERE  (內容 LIKE N'稅金%')) AS 稅金表 ON 合約控制表.合約編號 = 稅金表.合約號碼
                WHERE    (合約控制表.作廢 = 0) AND (合約控制表.工程總價 IS NOT NULL) AND (合約控制表.工程總價 > 0) AND (合約控制表.合約編號 NOT LIKE '&GCM&') AND 
                         (合約控制表.結案 = 0 OR 合約控制表.結案 IS NULL)
                GROUP BY  合約控制表.合約編號, 合約控制表.工程總價, 合約控制表.總報價, 合約控制表.約號甲方
                ORDER BY  合約控制表.約號甲方"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約報表計算3()
        ConnOpen()
        SQL1 = "SELECT  合約編號 AS [" & 表頭(11) & "], SUM(工程總價) AS [" & 表頭(12) & "], SUM(工程總價) AS [" & 表頭(13) & "], SUM(工程總價) AS [總報價], SUM(工程總價) AS [稅金], 
                        SUM(工程總價) AS [" & 表頭(14) & "], SUM(工程總價) AS [" & 表頭(15) & "], SUM(工程總價) AS 比例1, SUM(工程總價) AS [" & 表頭(16) & "], SUM(工程總價) AS [" & 表頭(17) & "], 
                        SUM(工程總價) AS 比例2, SUM(工程總價) AS [" & 表頭(18) & "], SUM(工程總價) AS [" & 表頭(19) & "], SUM(工程總價) AS 比例3, SUM(工程總價) AS [" & 表頭(20) & "], 
                        SUM(工程總價) AS [" & 表頭(21) & "], SUM(工程總價) AS 比例4 
                FROM    合約控制表  
                WHERE  (作廢 = 0) AND (工程總價 IS NOT NULL) AND (工程總價 > 0) AND (合約編號 NOT LIKE '&GCM&') AND (約號甲方 LIKE N'" & PA & "') 
                GROUP BY   合約編號, 約號排序, 約號尾序 ORDER BY   約號排序 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 = "SELECT      會計科目.層級 AS [" & 表頭(100) & "], 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS [" & 表頭(117) & "], 會計科目.第二階  AS [" & 表頭(118) & "], 
                            會計科目.會計科目  AS [" & 表頭(119) & "], QQWW.主項金額 AS [" & 表頭(131) & "], WWEE.子項金額 AS [" & 表頭(132) & "], EERR.細項金額 AS [" & 表頭(133) & "], 
                            會計科目.第一階 AS [" & 表頭(131) & ".], 會計科目.第一階 AS [" & 表頭(132) & ".], 會計科目.第一階 AS [" & 表頭(132) & ".]
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/01')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/02')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/03')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/04')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/05')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/06')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/07')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/08')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/09')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/10')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/11')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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'" & 財務報表4.年份_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'" & 財務報表4.年份_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'" & 財務報表4.年份_cb.Text & "/12')
                                GROUP BY    LEFT(財務收支明細表_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                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) AND (會計科目.英文名稱 = N'" & 系統語言 & "')
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_說明顯示查詢()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  使用者, 介面, 開啟次數, 公告次數 FROM 系統說明管理 
                WHERE 使用者 LIKE N'" & gUserName & "' AND  介面 LIKE '" & 介面 & "' AND 年 LIKE '" & PA45 & "' AND 月 LIKE '" & PA46 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_說明顯示新增()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 系統說明管理 (使用者, 介面, 開啟次數, 公告次數, 年, 月) 
                VALUES (N'" & gUserName & "', N'" & 介面 & "', N'" & PA47 & "', N'" & PA48 & "', N'" & PA45 & "', N'" & PA46 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_說明顯示修改()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 系統說明管理 SET 開啟次數 = N'" & PA47 & "', 公告次數 = N'" & PA48 & "' 
                WHERE 使用者 LIKE N'" & gUserName & "' AND  介面 LIKE '" & 介面 & "' AND 年 LIKE '" & PA45 & "' AND 月 LIKE '" & PA46 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會計科目第一層()
        ConnOpen() : SQL1 = "SELECT  會計科目, 編號  FROM  會計科目  WHERE  (層級 LIKE '1') AND (英文名稱 LIKE N'" & 系統語言 & "')" : CmdSet_For_dr()
    End Sub
End Module
