2021082701開發完成

YD-ERP-SYS/Module/SQL_Module.vb

@@ -5,8 +5,8 @@ Module SQL_Module
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String : Public DTP4 As String
     Public 登入權限 As String = "姓名, 帳號, 密碼, 職稱, 級別, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21,
                                  CC22, CC23, CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42, CC43, CC44, CC45, CC46, CC47, 
-                                 CC48, CC49, CC50, CC51, CC52 "
-    Public 權限數量 As Integer = 52
+                                 CC48, CC49, CC50, CC51, CC52, CC53, CC54, CC55 "
+    Public 權限數量 As Integer = 55
     Friend Sub ConnOpen()
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub

YD-ERP-SYS/Module/SQL_業績計算系統.vb

@@ -0,0 +1,249 @@
+Module SQL_業績計算系統
+    Friend Sub SQL_業績主表3()
+        ConnOpen()
+        SQL1 = "SELECT     LEFT(銷售控制表.單號, 1) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 
+                           SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
+                           SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金, 
+                           銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 業績機算基礎.階級2, 業績機算基礎.比例2, 
+                           業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 業績機算基礎.比例4, 業績機算基礎.階級5, 
+                           業績機算基礎.比例5, 業績機算基礎.階級6, 業績機算基礎.比例6, 業績機算基礎.階級7, 業績機算基礎.比例7, 
+                           業績機算基礎.階級8, 業績機算基礎.比例8, 業績機算基礎.階級9, 業績機算基礎.比例9, 業績機算基礎.階級10, 
+                           業績機算基礎.比例10
+                FROM       銷售控制表 INNER JOIN
+                           業績機算基礎 ON 銷售控制表.獎金基礎 = 業績機算基礎.獎金計算 LEFT OUTER JOIN
+                                (SELECT     舊編, 姓名
+                                 FROM       人事資料表) AS QQ ON LEFT(銷售控制表.單號, 1) = QQ.舊編 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
+                          (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   LEFT(銷售控制表.單號, 1), QQ.姓名, 銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 
+                           業績機算基礎.階級2, 業績機算基礎.比例2, 業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 
+                           業績機算基礎.比例4, 業績機算基礎.階級5, 業績機算基礎.比例5, 業績機算基礎.階級6, 業績機算基礎.比例6, 
+                           業績機算基礎.階級7, 業績機算基礎.比例7, 業績機算基礎.階級8, 業績機算基礎.比例8, 業績機算基礎.階級9, 
+                           業績機算基礎.比例9, 業績機算基礎.階級10, 業績機算基礎.比例10
+                ORDER BY   編號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績主表2()
+        ConnOpen()
+        SQL1 = "SELECT      銷售控制表.單號 AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 
+                            SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
+                            SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金, 
+                            銷售控制表.獎金基礎
+                FROM        銷售控制表  LEFT OUTER JOIN
+                                (SELECT    舊編, 姓名
+                                 FROM      人事資料表) AS QQ ON LEFT(銷售控制表.單號, 1) = QQ.舊編 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
+                          (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   銷售控制表.單號, QQ.姓名, 銷售控制表.獎金基礎
+                ORDER BY   編號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績主表1()
+        ConnOpen()
+        SQL1 = "SELECT     LEFT(銷售控制表.單號, 1) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 
+                           SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
+                           SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金
+                FROM       銷售控制表 LEFT OUTER JOIN
+                                (SELECT   舊編, 姓名
+                                 FROM     人事資料表) AS QQ ON LEFT(銷售控制表.單號, 1) = QQ.舊編 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
+                          (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   LEFT(銷售控制表.單號, 1), QQ.姓名
+                ORDER BY   編號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績彙總1()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號, SUM(銷售明細表.售價 * 銷售明細表.數量) AS 銷貨總額, SUM(銷售明細表.成本 * 銷售明細表.數量) 
+                           AS 成本, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用
+                FROM       銷售控制表 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 NOT LIKE '1%') AND
+                          (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用
+                ORDER BY   銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績彙總2()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號, SUM(銷售衍生運費.支出) AS 衍生運費
+                FROM       銷售控制表 INNER JOIN
+                           銷售衍生運費 ON 銷售控制表.單號 = 銷售衍生運費.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
+                          (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   銷售控制表.單號
+                ORDER BY   銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績彙總3()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號, SUM(銷售備註表.支出 - 銷售備註表.收入) AS 其他支出
+                FROM       銷售控制表 LEFT OUTER JOIN
+                           銷售備註表 ON 銷售控制表.單號 = 銷售備註表.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售備註表.支出 - 銷售備註表.收入 <> 0) AND 
+                          (銷售備註表.備註 NOT LIKE '%外車%') AND (銷售備註表.備註 NOT LIKE '%車資%') AND (銷售備註表.備註 NOT LIKE '%運費%') AND
+                          (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   銷售控制表.單號
+                ORDER BY   銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績彙總4()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號, SUM(銷售明細表.售價 * 銷售明細表.數量) AS [外車_收], SUM(銷售明細表.成本 * 銷售明細表.數量) AS [外車_支]
+                FROM       銷售控制表 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 LIKE '1003%')AND
+                          (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售明細表.成本, 銷售明細表.售價
+                ORDER BY   銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績彙總5()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號, (SUM(銷售明細表.成本 * 銷售明細表.數量) - SUM(銷售明細表.售價 * 銷售明細表.數量)) AS [料號1_收支]
+                FROM       銷售控制表 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 NOT LIKE '1003%') AND (銷售明細表.料號 LIKE '1%') AND
+                          (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售明細表.成本, 銷售明細表.售價
+                ORDER BY   銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績彙總6()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號, SUM(銷售備註表.支出 - 銷售備註表.收入) AS 備註車資
+                FROM       銷售控制表 LEFT OUTER JOIN
+                           銷售備註表 ON 銷售控制表.單號 = 銷售備註表.單號 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售備註表.支出 - 銷售備註表.收入 <> 0) AND 
+                          (銷售備註表.備註 LIKE '%外車%' OR 銷售備註表.備註 LIKE '%車資%' OR 銷售備註表.備註 LIKE '%運費%') AND
+                          (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                GROUP BY   銷售控制表.單號
+                ORDER BY   銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_獎金計算基礎()
+        ConnOpen()
+        SQL1 = "SELECT 獎金計算, 階級1, 比例1, 階級2, 比例2, 階級3, 比例3, 階級4, 比例4, 階級5, 比例5, 階級6, 比例6, 階級7, 比例7, 階級8, 比例8, 階級9, 比例9, 階級10, 比例10
+                FROM   業績機算基礎"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_獎金計算基礎_刪除()
+        ConnOpen()
+        SQL1 = "DELETE 業績機算基礎 WHERE 獎金計算 LIKE N'" & PA & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_獎金計算基礎_修改()
+        ConnOpen()
+        SQL1 = "UPDATE 業績機算基礎 SET 階級1 = N'" & PA1 & "', 比例1 = N'" & PA11 & "', 階級2 = N'" & PA2 & "', 比例2 = N'" & PA12 & "', 階級3 = N'" & PA3 & "', 比例3 = N'" & PA13 & "', 
+                                        階級4 = N'" & PA4 & "', 比例4 = N'" & PA14 & "', 階級5 = N'" & PA5 & "', 比例5 = N'" & PA15 & "', 階級6 = N'" & PA6 & "', 比例6 = N'" & PA16 & "', 
+                                        階級7 = N'" & PA7 & "', 比例7 = N'" & PA17 & "', 階級8 = N'" & PA8 & "', 比例8 = N'" & PA18 & "', 階級9 = N'" & PA9 & "', 比例9 = N'" & PA19 & "', 
+                                        階級10 = N'" & PA10 & "', 比例10 = N'" & PA20 & "' 
+                WHERE 獎金計算 LIKE N'" & PA & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售控制表_獎金基礎修改()
+        ConnOpen() : SQL1 = "UPDATE 銷售控制表 SET 獎金基礎 = N'" & PA & "' WHERE 獎金基礎 LIKE N'" & PA21 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_獎金計算基礎_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 業績機算基礎 (獎金計算, 階級1, 比例1, 階級2, 比例2, 階級3, 比例3, 階級4, 比例4, 階級5, 比例5, 階級6, 比例6, 階級7, 比例7, 階級8, 比例8, 階級9, 比例9, 階級10, 比例10) 
+                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA11 & "', N'" & PA2 & "', N'" & PA12 & "', N'" & PA3 & "', N'" & PA13 & "', N'" & PA4 & "', N'" & PA14 & "', N'" & PA5 & "', N'" & PA15 & "', 
+                        N'" & PA6 & "', N'" & PA16 & "', N'" & PA7 & "', N'" & PA17 & "', N'" & PA8 & "', N'" & PA18 & "', N'" & PA9 & "', N'" & PA19 & "', N'" & PA10 & "', N'" & PA20 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_獎金計算基礎_查詢()
+        ConnOpen() : SQL1 = "SELECT 獎金計算 FROM 業績機算基礎 WHERE 獎金計算 LIKE N'" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售控制表_查詢()
+        ConnOpen() : SQL1 = "SELECT 獎金基礎 FROM 銷售控制表 WHERE 獎金基礎 LIKE N'" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售控制表_空值修正1()
+        ConnOpen() : SQL1 = "UPDATE 銷售控制表 SET 獎金基礎 = N'' WHERE 獎金基礎 IS NULL" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售控制表_空值修正2()
+        ConnOpen() : SQL1 = "UPDATE 銷售控制表 SET 轉業績日期 = N'' WHERE 轉業績日期 IS NULL" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_業績運費計算_查詢()
+        ConnOpen()
+        SQL1 = "SELECT 扣運費, 已出未收, 代運費 FROM 業績運費計算 WHERE 日期區間 LIKE N'" & 業績獎金彙總表.開始日期_dtp.Value & "-" & 業績獎金彙總表.結束日期_dtp.Value & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_業績運費計算_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 業績運費計算 (日期區間, 扣運費, 已出未收, 代運費) 
+                VALUES (N'" & 業績獎金彙總表.開始日期_dtp.Value & "-" & 業績獎金彙總表.結束日期_dtp.Value & "', 
+                        N'" & 業績獎金彙總表.NUD2.Value & "', N'" & 業績獎金彙總表.NUD3.Value & "', N'" & 業績獎金彙總表.NUD4.Value & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_業績運費計算_修正()
+        ConnOpen()
+        SQL1 = "UPDATE 業績運費計算 SET 扣運費 = N'" & 業績獎金彙總表.NUD2.Value & "', 已出未收 = N'" & 業績獎金彙總表.NUD3.Value & "', 代運費 = N'" & 業績獎金彙總表.NUD4.Value & "' 
+                WHERE 日期區間 LIKE N'" & 業績獎金彙總表.開始日期_dtp.Value & "-" & 業績獎金彙總表.結束日期_dtp.Value & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_業績完單1()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號, SUM(銷售明細表.售價 * 銷售明細表.數量) AS 銷貨總額, SUM(銷售明細表.成本 * 銷售明細表.數量) 
+                           AS 成本, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎
+                FROM       銷售控制表 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN 銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                          (銷售控制表.轉業績日期 IS NULL OR 銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1%') AND 
+                          (銷售控制表.單號 LIKE N'" & 業績單據完單設定.查詢單號_tb.Text & "%')
+                GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎
+                ORDER BY   銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績完單2()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號, SUM(銷售明細表.售價 * 銷售明細表.數量) AS 銷貨總額, SUM(銷售明細表.成本 * 銷售明細表.數量) 
+                           AS 成本, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎
+                FROM       銷售控制表 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN 銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                           銷售控制表.轉業績日期 IS NOT NULL AND 銷售控制表.轉業績日期 NOT LIKE '' AND (銷售明細表.料號 NOT LIKE '1%') AND 
+                          (銷售控制表.單號 LIKE N'" & 業績單據完單設定.查詢單號_tb.Text & "%')
+                GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎
+                ORDER BY   銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_獎金基礎下拉()
+        ConnOpen() : SQL1 = "SELECT 獎金計算 FROM 業績機算基礎 ORDER BY 獎金計算" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_業績完單_修正()
+        ConnOpen()
+        SQL1 = "UPDATE 銷售控制表 SET 轉業績日期 = N'" & 業績單據完單設定.開始日期_dtp.Text & "', 獎金基礎 = N'" & 業績單據完單設定.獎金基礎_ch.Text & "' 
+                WHERE 單號 LIKE N'" & 業績單據完單設定.業務單號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+End Module

YD-ERP-SYS/Module/SQL_財務系統管理.vb

@@ -311,12 +311,24 @@
                 WHERE (支付單號 = N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_營運成本收支單審核_修改公帳控制表_應負帳款用()
+        ConnOpen()
+        SQL1 = "UPDATE 公帳控制表 SET 審核人 = N'" & PA31 & "', 審核日期 = N'" & PA32 & "', 核准圖檔 = N'" & PA33 & "', 簽名編碼 = N'" & PA34 & "', 出納 = '" & PA35 & "', 出納日期 = N'" & PA36 & "'
+                WHERE (支付單號 = N'" & 採購應付帳款.營運成本收支單號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳流水帳()
         ConnOpen()
         SQL1 = "UPDATE 公帳流水帳 SET 出納 = '1', 出納日期 = N'" & DTP & "'
                 WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_營運成本收支單審核_修改公帳流水帳_應付帳款用()
+        ConnOpen()
+        SQL1 = "UPDATE 公帳流水帳 SET 出納 = '1', 出納日期 = N'" & DTP & "'
+                WHERE (支付單號 LIKE '" & 採購應付帳款.營運成本收支單號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳流水帳備用金()
         ConnOpen()
         SQL1 = "UPDATE 公帳流水帳 SET  備用金 = N'1' WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
@@ -332,6 +344,11 @@
         SQL1 = "UPDATE 公帳流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_營運成本收支單審核_修改公帳流水帳支出_應付帳款用()
+        ConnOpen()
+        SQL1 = "UPDATE 公帳流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & 採購應付帳款.營運成本收支單號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
     '---------------------營運成本收支單一覽表.-------------------------------------------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運成本收支單一覽表_查詢清單()
         ConnOpen()
@@ -453,19 +470,19 @@
                                (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 & "')
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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 & "')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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 & "')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",4) LIKE N'" & 營運報表.年份_cb.Text & "')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -479,19 +496,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/01')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -505,19 +522,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/02')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -531,19 +548,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/03')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -557,19 +574,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/04')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -583,19 +600,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/05')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -609,19 +626,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/06')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -635,19 +652,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/07')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -661,19 +678,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/08')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -687,19 +704,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/09')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -713,19 +730,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/10')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -739,19 +756,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/11')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -765,19 +782,19 @@
                                (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') 
+                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",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')
+                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/12')
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -877,7 +894,9 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL採購應負帳款_查詢審核狀態()
-        ConnOpen() : SQL1 = "SELECT 審核人 FROM 公帳控制表 WHERE  (支付單號 LIKE N'" & 採購應付帳款.營運成本收支單號_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen()
+        SQL1 = "SELECT 審核人, 審核日期, 核准圖檔, 簽名編碼, 出納, 出納日期 FROM 公帳控制表 WHERE  (支付單號 LIKE N'" & 採購應付帳款.營運成本收支單號_tb.Text & "')"
+        CmdSet_For_dr()
     End Sub
     Friend Sub SQL採購轉財務_刪除控制表()
         ConnOpen() : SQL1 = "DELETE 公帳控制表 WHERE (支付單號 = N'" & 採購應付帳款.營運成本收支單號_tb.Text & "')" : CmdSet_For_dr()

YD-ERP-SYS/Module/SQL_資料庫系統管理.vb

@@ -46,7 +46,8 @@
                         N'" & 系統使用者管理.CheckBox41.Checked & "',N'" & 系統使用者管理.CheckBox42.Checked & "',N'" & 系統使用者管理.CheckBox43.Checked & "',
                         N'" & 系統使用者管理.CheckBox44.Checked & "',N'" & 系統使用者管理.CheckBox45.Checked & "',N'" & 系統使用者管理.CheckBox46.Checked & "',
                         N'" & 系統使用者管理.CheckBox47.Checked & "',N'" & 系統使用者管理.CheckBox48.Checked & "',N'" & 系統使用者管理.CheckBox49.Checked & "',
-                        N'" & 系統使用者管理.CheckBox50.Checked & "',N'" & 系統使用者管理.CheckBox51.Checked & "',N'" & 系統使用者管理.CheckBox52.Checked & "')"
+                        N'" & 系統使用者管理.CheckBox50.Checked & "',N'" & 系統使用者管理.CheckBox51.Checked & "',N'" & 系統使用者管理.CheckBox52.Checked & "',
+                        N'" & 系統使用者管理.CheckBox53.Checked & "',N'" & 系統使用者管理.CheckBox54.Checked & "',N'" & 系統使用者管理.CheckBox55.Checked & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者密碼顯示()
@@ -72,7 +73,8 @@
                                        CC42 = N'" & 系統使用者管理.CheckBox42.Checked & "', CC43 = N'" & 系統使用者管理.CheckBox43.Checked & "', CC44 = N'" & 系統使用者管理.CheckBox44.Checked & "', 
                                        CC45 = N'" & 系統使用者管理.CheckBox45.Checked & "', CC46 = N'" & 系統使用者管理.CheckBox46.Checked & "', CC47 = N'" & 系統使用者管理.CheckBox47.Checked & "', 
                                        CC48 = N'" & 系統使用者管理.CheckBox48.Checked & "', CC49 = N'" & 系統使用者管理.CheckBox49.Checked & "', CC50 = N'" & 系統使用者管理.CheckBox50.Checked & "', 
-                                       CC51 = N'" & 系統使用者管理.CheckBox51.Checked & "', CC52 = N'" & 系統使用者管理.CheckBox52.Checked & "'
+                                       CC51 = N'" & 系統使用者管理.CheckBox51.Checked & "', CC52 = N'" & 系統使用者管理.CheckBox52.Checked & "', CC53 = N'" & 系統使用者管理.CheckBox53.Checked & "', 
+                                       CC54 = N'" & 系統使用者管理.CheckBox54.Checked & "', CC55 = N'" & 系統使用者管理.CheckBox55.Checked & "'
                 WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub

YD-ERP-SYS/Module/全域變數.vb

@@ -4,7 +4,7 @@
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 業務號碼 As String
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021082101"
+    Public 版本 As String = "2021082701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String
@@ -18,7 +18,7 @@
     Public PA18 As String = "" : Public PA19 As String = "" : Public PA20 As String = ""
     Public PA21 As String = "" : Public PA22 As String = "" : Public PA23 As String = "" : Public PA24 As String = "" : Public PA25 As String = "" : Public PA26 As String = ""
     Public PA27 As String = "" : Public PA28 As String = "" : Public PA29 As String = "" : Public PA30 As String = "" : Public PA31 As String = "" : Public PA32 As String = ""
-    Public PA35 As String = "" : Public PA36 As String = ""
+    Public PA33 As String = "" : Public PA34 As String = "" : Public PA35 As String = "" : Public PA36 As String = ""
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double
     '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/YD-ERP-SYS.Designer.vb

@@ -25,8 +25,8 @@ Partial Class YD_ERP_SYS
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(YD_ERP_SYS))
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.MenuStrip = New System.Windows.Forms.MenuStrip()
         Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem()
         Me.個人帳號管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -80,7 +80,8 @@ Partial Class YD_ERP_SYS
         Me.物料檔案_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.倉儲分區控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.財務系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.薪資轉帳表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.業績獎金彙總表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.業績單據完單設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
         Me.營運成本收支單申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.營運成本收支單審核_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -89,8 +90,10 @@ Partial Class YD_ERP_SYS
         Me.營運成本收支單對帳表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.營運報表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
+        Me.薪資轉帳表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.匯率管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.會計科目管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.業務獎金計算基礎_tcm = New System.Windows.Forms.ToolStripMenuItem()
         Me.資料庫系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統使用者管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
@@ -498,20 +501,28 @@ Partial Class YD_ERP_SYS
         '
         '財務系統管理_tsm
         '
-        Me.財務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.薪資轉帳表_tsm, Me.ToolStripSeparator15, Me.營運成本收支單申請_tsm, Me.營運成本收支單審核_tsm, Me.營運成本收支單一覽表_tsm, Me.ToolStripSeparator12, Me.營運成本收支單對帳表_tsm, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.匯率管理_tsm, Me.會計科目管理_tsm})
+        Me.財務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業績獎金彙總表_tsm, Me.業績單據完單設定_tsm, Me.ToolStripSeparator15, Me.營運成本收支單申請_tsm, Me.營運成本收支單審核_tsm, Me.營運成本收支單一覽表_tsm, Me.ToolStripSeparator12, Me.營運成本收支單對帳表_tsm, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.薪資轉帳表_tsm, Me.匯率管理_tsm, Me.會計科目管理_tsm, Me.業務獎金計算基礎_tcm})
         Me.財務系統管理_tsm.ForeColor = System.Drawing.Color.Red
         Me.財務系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment1
         Me.財務系統管理_tsm.Name = "財務系統管理_tsm"
         Me.財務系統管理_tsm.Size = New System.Drawing.Size(107, 20)
         Me.財務系統管理_tsm.Text = "財務系統管理"
         '
-        '薪資轉帳表_tsm
+        '業績獎金彙總表_tsm
         '
-        Me.薪資轉帳表_tsm.ForeColor = System.Drawing.Color.Red
-        Me.薪資轉帳表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment2
-        Me.薪資轉帳表_tsm.Name = "薪資轉帳表_tsm"
-        Me.薪資轉帳表_tsm.Size = New System.Drawing.Size(181, 22)
-        Me.薪資轉帳表_tsm.Text = "薪資轉帳表"
+        Me.業績獎金彙總表_tsm.ForeColor = System.Drawing.Color.Red
+        Me.業績獎金彙總表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment2
+        Me.業績獎金彙總表_tsm.Name = "業績獎金彙總表_tsm"
+        Me.業績獎金彙總表_tsm.Size = New System.Drawing.Size(181, 22)
+        Me.業績獎金彙總表_tsm.Text = "業績獎金彙總表"
+        '
+        '業績單據完單設定_tsm
+        '
+        Me.業績單據完單設定_tsm.ForeColor = System.Drawing.Color.Red
+        Me.業績單據完單設定_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen
+        Me.業績單據完單設定_tsm.Name = "業績單據完單設定_tsm"
+        Me.業績單據完單設定_tsm.Size = New System.Drawing.Size(181, 22)
+        Me.業績單據完單設定_tsm.Text = "業績單據完單設定"
         '
         'ToolStripSeparator15
         '
@@ -568,6 +579,14 @@ Partial Class YD_ERP_SYS
         Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
         Me.ToolStripSeparator13.Size = New System.Drawing.Size(178, 6)
         '
+        '薪資轉帳表_tsm
+        '
+        Me.薪資轉帳表_tsm.ForeColor = System.Drawing.Color.Red
+        Me.薪資轉帳表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment2
+        Me.薪資轉帳表_tsm.Name = "薪資轉帳表_tsm"
+        Me.薪資轉帳表_tsm.Size = New System.Drawing.Size(181, 22)
+        Me.薪資轉帳表_tsm.Text = "薪資轉帳表"
+        '
         '匯率管理_tsm
         '
         Me.匯率管理_tsm.ForeColor = System.Drawing.Color.Red
@@ -584,6 +603,14 @@ Partial Class YD_ERP_SYS
         Me.會計科目管理_tsm.Size = New System.Drawing.Size(181, 22)
         Me.會計科目管理_tsm.Text = "會計科目管理"
         '
+        '業務獎金計算基礎_tcm
+        '
+        Me.業務獎金計算基礎_tcm.ForeColor = System.Drawing.Color.Red
+        Me.業務獎金計算基礎_tcm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
+        Me.業務獎金計算基礎_tcm.Name = "業務獎金計算基礎_tcm"
+        Me.業務獎金計算基礎_tcm.Size = New System.Drawing.Size(181, 22)
+        Me.業務獎金計算基礎_tcm.Text = "業務獎金計算基礎"
+        '
         '資料庫系統管理_tsm
         '
         Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.ToolStripSeparator5, Me.系統編碼規則_tsm, Me.系統執行檔版本管理_tsm, Me.ToolStripSeparator4, Me.FTP資料夾管理_tsm, Me.ToolStripSeparator14, Me.簽名檔管理ToolStripMenuItem})
@@ -696,18 +723,18 @@ Partial Class YD_ERP_SYS
         '
         '銷售單據_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.銷售單據_dgv.Location = New System.Drawing.Point(1149, 60)
+        Me.銷售單據_dgv.Location = New System.Drawing.Point(639, 90)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.銷售單據_dgv.RowTemplate.Height = 24
-        Me.銷售單據_dgv.Size = New System.Drawing.Size(146, 141)
+        Me.銷售單據_dgv.Size = New System.Drawing.Size(542, 465)
         Me.銷售單據_dgv.TabIndex = 1257
         Me.銷售單據_dgv.Visible = False
         '
@@ -826,4 +853,7 @@ Partial Class YD_ERP_SYS
     Friend WithEvents 業務_cb As ComboBox
     Friend WithEvents 銷售單據_dgv As DataGridView
     Friend WithEvents Timer1 As Timer
+    Friend WithEvents 業績獎金彙總表_tsm As ToolStripMenuItem
+    Friend WithEvents 業務獎金計算基礎_tcm As ToolStripMenuItem
+    Friend WithEvents 業績單據完單設定_tsm As ToolStripMenuItem
 End Class

YD-ERP-SYS/YD-ERP-SYS.vb

@@ -42,7 +42,7 @@ Public Class YD_ERP_SYS
         銷售單據_dgv.RowTemplate.Height = 25
 
         ConnOpen()
-        SQL1 = "SELECT TOP (1) 單號, 開單日期 FROM 銷售控制表 WHERE (LEFT(單號, 1) LIKE '" & 業務_cb.Text & "') ORDER BY 單號 DESC"
+        SQL1 = "SELECT 單號, 開單日期 FROM 銷售控制表 WHERE (LEFT(單號, 1) LIKE '" & 業務_cb.Text & "') ORDER BY 單號 DESC"
         CmdSet_For_DGV()
         da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
@@ -77,16 +77,18 @@ Public Class YD_ERP_SYS
         '----------財務系統管理---------------------------------------------------------------------------------------------------------------
         財務系統管理_tsm.Enabled = CC(38) : 薪資轉帳表_tsm.Enabled = CC(39) : 營運成本收支單申請_tsm.Enabled = CC(40) : 營運成本收支單審核_tsm.Enabled = CC(41)
         營運成本收支單一覽表_tsm.Enabled = CC(42) : 營運成本收支單對帳表_tsm.Enabled = CC(43) : 營運報表_tsm.Enabled = CC(44) : 匯率管理_tsm.Enabled = CC(45)
-        會計科目管理_tsm.Enabled = CC(46)
+        會計科目管理_tsm.Enabled = CC(46) : 業績獎金彙總表_tsm.Enabled = CC(53) : 業績單據完單設定_tsm.Enabled = CC(54) : 業務獎金計算基礎_tcm.Enabled = CC(55)
         Timer1.Enabled = True
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
-        狀態 = "銷售單據入系統狀態"
+        狀態 = "銷售單據入系統狀態" : Dim 單數 As Integer
         For i As Integer = 0 To 業務_cb.Items.Count - 1
             業務_cb.SelectedIndex = i
             Set_清單1()
             If 銷售單據_dgv.Rows.Count > 0 Then
-                狀態1 = 業務_cb.Text & " 號業務單最後入單單號 [ " & 銷售單據_dgv.Rows(0).Cells("單號").Value & " ]，開單日期是 [ " & 銷售單據_dgv.Rows(0).Cells("開單日期").Value & " ]。"
+                單數 = (Strings.Right(銷售單據_dgv.Rows(0).Cells("單號").Value, 6) - Strings.Right(銷售單據_dgv.Rows(銷售單據_dgv.Rows.Count - 1).Cells("單號").Value, 6)) - 銷售單據_dgv.Rows.Count
+                狀態1 = 業務_cb.Text & " 號業務單最後入單單號 [ " & 銷售單據_dgv.Rows(0).Cells("單號").Value & " ]，開單日期是 [ " & 銷售單據_dgv.Rows(0).Cells("開單日期").Value & " ]。 
+   由單號 [" & 銷售單據_dgv.Rows(銷售單據_dgv.Rows.Count - 1).Cells("單號").Value & "]  到系統中最後一單，約有 " & 單數 & " 張單據未補齊。"
                 狀態 = 狀態 & vbCrLf &
                            狀態1
             End If
@@ -231,13 +233,25 @@ Public Class YD_ERP_SYS
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 營運成本收支單審核.Show() : 營運成本收支單審核.BringToFront()
     End Sub
+    Private Sub 業績獎金彙總表_tsm_Click(sender As Object, e As EventArgs) Handles 業績獎金彙總表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 業績獎金彙總表.Show() : 業績獎金彙總表.BringToFront()
+    End Sub
+    Private Sub 業務獎金計算基礎_tcm_Click(sender As Object, e As EventArgs) Handles 業務獎金計算基礎_tcm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 業務獎金計算基礎.Show() : 業務獎金計算基礎.BringToFront()
+    End Sub
+    Private Sub 業績單據完單設定_tsm_Click(sender As Object, e As EventArgs) Handles 業績單據完單設定_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 業績單據完單設定.Show() : 業績單據完單設定.BringToFront()
+    End Sub
     Private Sub 營運成本收支單一覽表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單一覽表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 營運成本收支單一覽表.Show() : 營運成本收支單一覽表.BringToFront()
+        PA = "" : PA18 = "" : PA19 = "" : PA20 = "" : 營運成本收支單一覽表.Show() : 營運成本收支單一覽表.BringToFront()
     End Sub
     Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支單對帳表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 營運成本收支單_對帳表.Show() : 營運成本收支單_對帳表.BringToFront()
+        PA = "" : PA18 = "" : PA19 = "" : PA20 = "" : 營運成本收支單_對帳表.Show() : 營運成本收支單_對帳表.BringToFront()
     End Sub
     Private Sub 營運成本收支決算表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運報表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

YD-ERP-SYS/YD-ERP-SYS.vbproj

@@ -129,6 +129,7 @@
     <Compile Include="Module\SQL_倉儲系統管理.vb" />
     <Compile Include="Module\SQL_採購系統管理.vb" />
     <Compile Include="Module\SQL_業務系統管理.vb" />
+    <Compile Include="Module\SQL_業績計算系統.vb" />
     <Compile Include="Module\SQL_財務系統管理.vb" />
     <Compile Include="Module\SQL_連線字串.vb" />
     <Compile Include="人事系統管理\人事資料表.Designer.vb">
@@ -311,6 +312,24 @@
     <Compile Include="財務系統管理\會計科目管理.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="財務系統管理\業務獎金計算基礎.Designer.vb">
+      <DependentUpon>業務獎金計算基礎.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\業務獎金計算基礎.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="財務系統管理\業績單據完單設定.Designer.vb">
+      <DependentUpon>業績單據完單設定.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\業績單據完單設定.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="財務系統管理\業績獎金彙總表.Designer.vb">
+      <DependentUpon>業績獎金彙總表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\業績獎金彙總表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="財務系統管理\營運報表.Designer.vb">
       <DependentUpon>營運報表.vb</DependentUpon>
     </Compile>
@@ -514,6 +533,15 @@
     <EmbeddedResource Include="財務系統管理\會計科目管理.resx">
       <DependentUpon>會計科目管理.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\業務獎金計算基礎.resx">
+      <DependentUpon>業務獎金計算基礎.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\業績單據完單設定.resx">
+      <DependentUpon>業績單據完單設定.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\業績獎金彙總表.resx">
+      <DependentUpon>業績獎金彙總表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="財務系統管理\營運報表.resx">
       <DependentUpon>營運報表.vb</DependentUpon>
     </EmbeddedResource>

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-25b0f12fd7149d7b57549456701d43f6ca100f7f
+925f96eada3b8933ee6d9a387b39de39c623d377

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -507,3 +507,6 @@ D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般申請_採購單.r
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售申請_採購單.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損審核.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購應付帳款.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績獎金彙總表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業務獎金計算基礎.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績單據完單設定.resources

YD-ERP-SYS/採購系統管理/採購應付帳款.vb

@@ -277,6 +277,8 @@ Public Class 採購應付帳款
             Set_申請與採購日期隱藏() : Set_銷售單號隱藏()
         End If
         首次開啟 = True
+
+        日期_dtp.Value = 結束日期_dtp.Value
     End Sub
     Private Sub 採購對帳單_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
         If 首次開啟 = True Then
@@ -406,7 +408,6 @@ Public Class 採購應付帳款
                 End If
             End If : conn.Close()
         End If
-
     End Sub
     Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
         If 會計月_ch.Checked = True Then
@@ -418,7 +419,7 @@ Public Class 採購應付帳款
             開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
             結束日期_dtp.Value = 中間日期_dtp.Value
         End If
-        日期格式()
+        日期格式() : 日期_dtp.Value = 結束日期_dtp.Value
     End Sub
     Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
         If 會計月_ch.Checked = True Then
@@ -430,7 +431,7 @@ Public Class 採購應付帳款
             開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
             結束日期_dtp.Value = 中間日期_dtp.Value
         End If
-        日期格式()
+        日期格式() : 日期_dtp.Value = 結束日期_dtp.Value
     End Sub
     Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
         Set_清單1() : Set_清單2()
@@ -743,19 +744,39 @@ Public Class 採購應付帳款
         End If
     End Sub
     Private Sub Set_日期格式轉換()
-        DTP3 = Strings.Format(日期_dtp.Value, "yyyyMMdd") : DTP4 = Strings.Format(日期_dtp.Value, "yyyy/MM/dd")
+        DTP3 = Strings.Format(日期_dtp.Value, "yyyyMMdd") : DTP4 = Strings.Format(日期_dtp.Value, "yyyy/MM/dd") : DTP = Strings.Format(日期_dtp.Value, "yyyy/MM/dd")
     End Sub
-    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
-        SQL採購應負帳款_查詢明細()
-        If dr.Read() Then : 新支付單號 = dr("支付單號") : Else : 新支付單號 = "" : End If : conn.Close()
+    Private Sub 確認動作後執行()
         營運成本收支單號_tb.Text = 新支付單號
         SQL採購應負帳款_查詢審核狀態()
-        If dr.Read() Then : 狀態 = Strings.Left(dr("審核人"), 2) : Else : 狀態 = "" : End If : conn.Close()
+        If dr.Read() Then
+            狀態 = Strings.Left(dr("審核人"), 2)
+            PA31 = dr("審核人").ToString : PA32 = dr("審核日期").ToString : PA33 = dr("核准圖檔").ToString
+            PA34 = dr("簽名編碼").ToString : PA35 = dr("出納").ToString : PA36 = dr("出納日期").ToString
+        Else
+            狀態 = ""
+        End If : conn.Close()
+
         If (狀態 = "" Or 狀態 = "作廢") Then
             SQL採購轉財務_刪除控制表() : SQL採購轉財務_刪除流水帳() : conn.Close()
             開單_bt.PerformClick()
         Else
-            MsgBox("這張單據已經被審核過")
+            SQL採購轉財務_刪除控制表() : SQL採購轉財務_刪除流水帳() : conn.Close()
+            開單_bt.PerformClick()
+            SQL_營運成本收支單審核_修改公帳控制表_應負帳款用() : SQL_營運成本收支單審核_修改公帳流水帳_應付帳款用() : SQL_營運成本收支單審核_修改公帳流水帳支出_應付帳款用() : conn.Close()
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        SQL採購應負帳款_查詢明細()
+        If dr.Read() Then
+            新支付單號 = dr("支付單號") : conn.Close()
+            Dim aa1 As MsgBoxResult = MsgBox("已有財務資料是否更新?", MsgBoxStyle.OkCancel)
+            If aa1 = MsgBoxResult.Ok Then
+                確認動作後執行()
+            End If
+        Else
+            新支付單號 = "" : conn.Close()
+            確認動作後執行()
         End If
     End Sub
     Private Sub 開立零用金支付單()

YD-ERP-SYS/業務系統管理/客戶資料表.vb

@@ -12,8 +12,6 @@ Public Class 客戶資料表
         SQL_客戶資料表_清單()
         da.Fill(ds1) : 客戶_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
-
-
         客戶_dgv.Columns(0).Visible = False : 客戶_dgv.Columns(1).FillWeight = 50 : 客戶_dgv.Columns(2).FillWeight = 50 : 客戶_dgv.Columns(3).FillWeight = 100
         客戶_dgv.Columns(4).FillWeight = 80 : 客戶_dgv.Columns(5).FillWeight = 80 : 客戶_dgv.Columns(6).FillWeight = 150 : 客戶_dgv.Columns(7).FillWeight = 80
         客戶_dgv.Columns(8).FillWeight = 150
@@ -25,11 +23,13 @@ Public Class 客戶資料表
         Next i
     End Sub
     Private Sub 客戶資料表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        業務_cb.Text = 業務號碼
         If 客戶資料強制對話框模式 = False Then
             Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
             帶入銷售_bt.Visible = False
         Else
-            帶入銷售_bt.Visible = True
+            帶入銷售_bt.Visible = True : 查詢_tb.Text = PA30 : PA = PA30
+            業務_cb.Text = 銷售單申請.業務_cb.Text
         End If
 
         流水號_tb.Visible = False : 編號_tb.Enabled = False : 第一次開啟判斷 = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
@@ -40,7 +40,7 @@ Public Class 客戶資料表
         Else
             刪除ToolStripMenuItem.Enabled = False : 刪除_bt.Enabled = False
         End If
-        首次開啟 = False : Set_清單() : 業務_cb.Text = 業務號碼 : 首次開啟 = True '--------------------資料讀取
+        首次開啟 = False : Set_清單() : 首次開啟 = True '--------------------資料讀取
     End Sub
     Private Sub 客戶資料表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
         If 第一次開啟判斷 = True Then
@@ -76,7 +76,6 @@ Public Class 客戶資料表
             MsgBox("沒有選擇業務編號")
         Else
             流水號_tb.Text = "" : 編號_tb.Text = "" : 客戶_tb.Text = "" : 住址_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = "" '--------------------控件清空
-            查詢_tb.Text = ""
             資料新增判斷 = True '--------------------目前的編輯狀態
             狀態_lb.Text = "編輯
 狀態"
@@ -107,31 +106,31 @@ Public Class 客戶資料表
             End If : 編號_tb.Text = ESTR1 : PA17 = ESTR1
 
             SQL_客戶資料表_新增() '--------------------人事資料表中寫入一筆資料
+
+            If 帶入銷售_bt.Visible = True Then
+                客戶_tb.Text = PA30 : 住址_tb.Text = PA29 : 電話1_tb.Text = PA28 : 電話2_tb.Text = PA27 : 公司_tb.Text = PA26 : 統編_tb.Text = PA25
+            End If
         End If
     End Sub
     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
-        If 業務_cb.Text = "" Then '--------------------設定條件讓業務控件不為空
-            MsgBox("沒有選擇業務編號。")
+        If 客戶_tb.Text = "" Then '--------------------設定條件讓客戶控件不為空
+            MsgBox("是客戶就一定有名稱，請填入資料。")
         Else
-            If 客戶_tb.Text = "" Then '--------------------設定條件讓客戶控件不為空
-                MsgBox("是客戶就一定有名稱，請填入資料。")
+            If 電話1_tb.Text = "" Then '--------------------設定條件讓電話1控件不為空
+                MsgBox("最少要留下一支電話，不然怎麼追貨款。")
             Else
-                If 電話1_tb.Text = "" Then '--------------------設定條件讓電話1控件不為空
-                    MsgBox("最少要留下一支電話，不然怎麼追貨款。")
+                If 住址_tb.Text = "" Then '--------------------設定條件讓住址控件不為空
+                    MsgBox("沒有留地址是無法送貨的喔。")
                 Else
-                    If 住址_tb.Text = "" Then '--------------------設定條件讓住址控件不為空
-                        MsgBox("沒有留地址是無法送貨的喔。")
-                    Else
-                        資料新增判斷 = False '--------------------目前的編輯狀態
-                        狀態_lb.Text = "預覽
+                    資料新增判斷 = False '--------------------目前的編輯狀態
+                    狀態_lb.Text = "預覽
 狀態"
-                        客戶_dgv.Enabled = True : 查詢_tb.Enabled = True '--------------------開啟DGV與關鍵字查詢控件的點選控制功能
+                    客戶_dgv.Enabled = True : 查詢_tb.Enabled = True '--------------------開啟DGV與關鍵字查詢控件的點選控制功能
 
-                        PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
-                        PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 流水號_tb.Text
-                        SQL_客戶資料表_修改() '--------------------資料修改
-                        Set_清單() '--------------------資料修改後重新讀取清單
-                    End If
+                    PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                    PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 流水號_tb.Text
+                    SQL_客戶資料表_修改() '--------------------資料修改
+                    Set_清單() '--------------------資料修改後重新讀取清單
                 End If
             End If
         End If

YD-ERP-SYS/業務系統管理/銷售單申請.vb

@@ -806,6 +806,7 @@ Public Class 銷售單申請
                 客戶編號_tb.Text = 客戶資料_dgv.Rows(0).Cells("舊編").Value
             ElseIf 客戶資料_dgv.Rows.Count > 1 Then
                 MsgBox("即將幫您打開客戶資料表，請在客戶資料表中查詢，選取您確認的正確訊息，並指定到銷售申請單。")
+                PA30 = 客戶_tb.Text : PA29 = 住址_tb.Text : PA28 = 電話1_tb.Text : PA27 = 電話2_tb.Text : PA26 = 公司_tb.Text : PA25 = 統編_tb.Text
                 客戶資料查詢_bt.PerformClick()
             ElseIf 客戶資料_dgv.Rows.Count = 0 Then
                 Dim aa1 As MsgBoxResult = MsgBox("資料庫中查詢不到該客戶資料，是否依照目前資料新增客戶資料?", MsgBoxStyle.OkCancel)

YD-ERP-SYS/財務系統管理/業務獎金計算基礎.Designer.vb

@@ -0,0 +1,648 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 業務獎金計算基礎
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.彙總1_dgv = New System.Windows.Forms.DataGridView()
+        Me.基礎_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.階級1_nud = New System.Windows.Forms.NumericUpDown()
+        Me.比例1_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.比例2_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.階級2_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.比例3_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.階級3_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.比例4_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.階級4_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.比例5_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.階級5_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.比例6_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.階級6_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.比例7_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.階級7_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.比例8_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.階級8_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.比例9_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.階級9_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.比例10_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.階級10_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.新增_bt = New System.Windows.Forms.Button()
+        Me.修改_bt = New System.Windows.Forms.Button()
+        Me.刪除_bt = New System.Windows.Forms.Button()
+        CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級1_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例1_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例2_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級2_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例3_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級3_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例4_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級4_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例5_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級5_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例6_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級6_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例7_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級7_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例8_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級8_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例9_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級9_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.比例10_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.階級10_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '彙總1_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.彙總1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.彙總1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總1_dgv.Location = New System.Drawing.Point(5, 85)
+        Me.彙總1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.彙總1_dgv.Name = "彙總1_dgv"
+        Me.彙總1_dgv.RowHeadersWidth = 5
+        Me.彙總1_dgv.RowTemplate.Height = 24
+        Me.彙總1_dgv.Size = New System.Drawing.Size(1311, 509)
+        Me.彙總1_dgv.TabIndex = 967
+        '
+        '基礎_tb
+        '
+        Me.基礎_tb.Location = New System.Drawing.Point(45, 4)
+        Me.基礎_tb.Name = "基礎_tb"
+        Me.基礎_tb.Size = New System.Drawing.Size(100, 23)
+        Me.基礎_tb.TabIndex = 968
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(7, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(32, 16)
+        Me.Label1.TabIndex = 969
+        Me.Label1.Text = "基礎"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(7, 36)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(39, 16)
+        Me.Label2.TabIndex = 970
+        Me.Label2.Text = "階級1"
+        '
+        '階級1_nud
+        '
+        Me.階級1_nud.Location = New System.Drawing.Point(48, 33)
+        Me.階級1_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級1_nud.Name = "階級1_nud"
+        Me.階級1_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級1_nud.TabIndex = 971
+        Me.階級1_nud.ThousandsSeparator = True
+        '
+        '比例1_nud
+        '
+        Me.比例1_nud.Location = New System.Drawing.Point(48, 58)
+        Me.比例1_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例1_nud.Name = "比例1_nud"
+        Me.比例1_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例1_nud.TabIndex = 973
+        Me.比例1_nud.ThousandsSeparator = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(7, 61)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(39, 16)
+        Me.Label3.TabIndex = 972
+        Me.Label3.Text = "比例1"
+        '
+        '比例2_nud
+        '
+        Me.比例2_nud.Location = New System.Drawing.Point(176, 58)
+        Me.比例2_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例2_nud.Name = "比例2_nud"
+        Me.比例2_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例2_nud.TabIndex = 977
+        Me.比例2_nud.ThousandsSeparator = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(135, 61)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(39, 16)
+        Me.Label4.TabIndex = 976
+        Me.Label4.Text = "比例2"
+        '
+        '階級2_nud
+        '
+        Me.階級2_nud.Location = New System.Drawing.Point(176, 33)
+        Me.階級2_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級2_nud.Name = "階級2_nud"
+        Me.階級2_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級2_nud.TabIndex = 975
+        Me.階級2_nud.ThousandsSeparator = True
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(135, 36)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(39, 16)
+        Me.Label5.TabIndex = 974
+        Me.Label5.Text = "階級2"
+        '
+        '比例3_nud
+        '
+        Me.比例3_nud.Location = New System.Drawing.Point(304, 58)
+        Me.比例3_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例3_nud.Name = "比例3_nud"
+        Me.比例3_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例3_nud.TabIndex = 981
+        Me.比例3_nud.ThousandsSeparator = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(263, 61)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(39, 16)
+        Me.Label6.TabIndex = 980
+        Me.Label6.Text = "比例3"
+        '
+        '階級3_nud
+        '
+        Me.階級3_nud.Location = New System.Drawing.Point(304, 33)
+        Me.階級3_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級3_nud.Name = "階級3_nud"
+        Me.階級3_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級3_nud.TabIndex = 979
+        Me.階級3_nud.ThousandsSeparator = True
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(263, 36)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(39, 16)
+        Me.Label7.TabIndex = 978
+        Me.Label7.Text = "階級3"
+        '
+        '比例4_nud
+        '
+        Me.比例4_nud.Location = New System.Drawing.Point(432, 58)
+        Me.比例4_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例4_nud.Name = "比例4_nud"
+        Me.比例4_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例4_nud.TabIndex = 985
+        Me.比例4_nud.ThousandsSeparator = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(391, 61)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(39, 16)
+        Me.Label8.TabIndex = 984
+        Me.Label8.Text = "比例4"
+        '
+        '階級4_nud
+        '
+        Me.階級4_nud.Location = New System.Drawing.Point(432, 33)
+        Me.階級4_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級4_nud.Name = "階級4_nud"
+        Me.階級4_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級4_nud.TabIndex = 983
+        Me.階級4_nud.ThousandsSeparator = True
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(391, 36)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(39, 16)
+        Me.Label9.TabIndex = 982
+        Me.Label9.Text = "階級4"
+        '
+        '比例5_nud
+        '
+        Me.比例5_nud.Location = New System.Drawing.Point(560, 58)
+        Me.比例5_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例5_nud.Name = "比例5_nud"
+        Me.比例5_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例5_nud.TabIndex = 989
+        Me.比例5_nud.ThousandsSeparator = True
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(519, 61)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(39, 16)
+        Me.Label10.TabIndex = 988
+        Me.Label10.Text = "比例5"
+        '
+        '階級5_nud
+        '
+        Me.階級5_nud.Location = New System.Drawing.Point(560, 33)
+        Me.階級5_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級5_nud.Name = "階級5_nud"
+        Me.階級5_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級5_nud.TabIndex = 987
+        Me.階級5_nud.ThousandsSeparator = True
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(519, 36)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(39, 16)
+        Me.Label11.TabIndex = 986
+        Me.Label11.Text = "階級5"
+        '
+        '比例6_nud
+        '
+        Me.比例6_nud.Location = New System.Drawing.Point(688, 57)
+        Me.比例6_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例6_nud.Name = "比例6_nud"
+        Me.比例6_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例6_nud.TabIndex = 993
+        Me.比例6_nud.ThousandsSeparator = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(647, 60)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(39, 16)
+        Me.Label12.TabIndex = 992
+        Me.Label12.Text = "比例6"
+        '
+        '階級6_nud
+        '
+        Me.階級6_nud.Location = New System.Drawing.Point(688, 32)
+        Me.階級6_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級6_nud.Name = "階級6_nud"
+        Me.階級6_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級6_nud.TabIndex = 991
+        Me.階級6_nud.ThousandsSeparator = True
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(647, 35)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(39, 16)
+        Me.Label13.TabIndex = 990
+        Me.Label13.Text = "階級6"
+        '
+        '比例7_nud
+        '
+        Me.比例7_nud.Location = New System.Drawing.Point(816, 58)
+        Me.比例7_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例7_nud.Name = "比例7_nud"
+        Me.比例7_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例7_nud.TabIndex = 997
+        Me.比例7_nud.ThousandsSeparator = True
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(775, 61)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(39, 16)
+        Me.Label14.TabIndex = 996
+        Me.Label14.Text = "比例7"
+        '
+        '階級7_nud
+        '
+        Me.階級7_nud.Location = New System.Drawing.Point(816, 33)
+        Me.階級7_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級7_nud.Name = "階級7_nud"
+        Me.階級7_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級7_nud.TabIndex = 995
+        Me.階級7_nud.ThousandsSeparator = True
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(775, 36)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(39, 16)
+        Me.Label15.TabIndex = 994
+        Me.Label15.Text = "階級7"
+        '
+        '比例8_nud
+        '
+        Me.比例8_nud.Location = New System.Drawing.Point(944, 57)
+        Me.比例8_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例8_nud.Name = "比例8_nud"
+        Me.比例8_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例8_nud.TabIndex = 1001
+        Me.比例8_nud.ThousandsSeparator = True
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(903, 60)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(39, 16)
+        Me.Label16.TabIndex = 1000
+        Me.Label16.Text = "比例8"
+        '
+        '階級8_nud
+        '
+        Me.階級8_nud.Location = New System.Drawing.Point(944, 32)
+        Me.階級8_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級8_nud.Name = "階級8_nud"
+        Me.階級8_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級8_nud.TabIndex = 999
+        Me.階級8_nud.ThousandsSeparator = True
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(903, 35)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(39, 16)
+        Me.Label17.TabIndex = 998
+        Me.Label17.Text = "階級8"
+        '
+        '比例9_nud
+        '
+        Me.比例9_nud.Location = New System.Drawing.Point(1072, 57)
+        Me.比例9_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例9_nud.Name = "比例9_nud"
+        Me.比例9_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例9_nud.TabIndex = 1005
+        Me.比例9_nud.ThousandsSeparator = True
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(1031, 60)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(39, 16)
+        Me.Label18.TabIndex = 1004
+        Me.Label18.Text = "比例9"
+        '
+        '階級9_nud
+        '
+        Me.階級9_nud.Location = New System.Drawing.Point(1072, 32)
+        Me.階級9_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級9_nud.Name = "階級9_nud"
+        Me.階級9_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級9_nud.TabIndex = 1003
+        Me.階級9_nud.ThousandsSeparator = True
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Location = New System.Drawing.Point(1031, 35)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(39, 16)
+        Me.Label19.TabIndex = 1002
+        Me.Label19.Text = "階級9"
+        '
+        '比例10_nud
+        '
+        Me.比例10_nud.Location = New System.Drawing.Point(1203, 57)
+        Me.比例10_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.比例10_nud.Name = "比例10_nud"
+        Me.比例10_nud.Size = New System.Drawing.Size(84, 23)
+        Me.比例10_nud.TabIndex = 1009
+        Me.比例10_nud.ThousandsSeparator = True
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(1158, 60)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(46, 16)
+        Me.Label20.TabIndex = 1008
+        Me.Label20.Text = "比例10"
+        '
+        '階級10_nud
+        '
+        Me.階級10_nud.Location = New System.Drawing.Point(1203, 32)
+        Me.階級10_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.階級10_nud.Name = "階級10_nud"
+        Me.階級10_nud.Size = New System.Drawing.Size(84, 23)
+        Me.階級10_nud.TabIndex = 1007
+        Me.階級10_nud.ThousandsSeparator = True
+        '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.Location = New System.Drawing.Point(1158, 35)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(46, 16)
+        Me.Label21.TabIndex = 1006
+        Me.Label21.Text = "階級10"
+        '
+        '新增_bt
+        '
+        Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.新增_bt.ForeColor = System.Drawing.Color.Blue
+        Me.新增_bt.Location = New System.Drawing.Point(149, 3)
+        Me.新增_bt.Name = "新增_bt"
+        Me.新增_bt.Size = New System.Drawing.Size(80, 25)
+        Me.新增_bt.TabIndex = 1187
+        Me.新增_bt.Text = "新增" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.新增_bt.UseVisualStyleBackColor = True
+        '
+        '修改_bt
+        '
+        Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.修改_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.修改_bt.Location = New System.Drawing.Point(232, 3)
+        Me.修改_bt.Name = "修改_bt"
+        Me.修改_bt.Size = New System.Drawing.Size(80, 25)
+        Me.修改_bt.TabIndex = 1188
+        Me.修改_bt.Text = "修改"
+        Me.修改_bt.UseVisualStyleBackColor = True
+        '
+        '刪除_bt
+        '
+        Me.刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除_bt.Location = New System.Drawing.Point(316, 3)
+        Me.刪除_bt.Name = "刪除_bt"
+        Me.刪除_bt.Size = New System.Drawing.Size(80, 25)
+        Me.刪除_bt.TabIndex = 1189
+        Me.刪除_bt.Text = "刪除"
+        Me.刪除_bt.UseVisualStyleBackColor = True
+        '
+        '業務獎金計算基礎
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1322, 600)
+        Me.Controls.Add(Me.刪除_bt)
+        Me.Controls.Add(Me.修改_bt)
+        Me.Controls.Add(Me.新增_bt)
+        Me.Controls.Add(Me.比例10_nud)
+        Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.階級10_nud)
+        Me.Controls.Add(Me.Label21)
+        Me.Controls.Add(Me.比例9_nud)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.階級9_nud)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.比例8_nud)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.階級8_nud)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.比例7_nud)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.階級7_nud)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.比例6_nud)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.階級6_nud)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.比例5_nud)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.階級5_nud)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.比例4_nud)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.階級4_nud)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.比例3_nud)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.階級3_nud)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.比例2_nud)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.階級2_nud)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.比例1_nud)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.階級1_nud)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.基礎_tb)
+        Me.Controls.Add(Me.彙總1_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "業務獎金計算基礎"
+        Me.Text = "業務獎金計算基礎"
+        CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級1_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例1_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例2_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級2_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例3_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級3_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例4_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級4_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例5_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級5_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例6_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級6_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例7_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級7_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例8_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級8_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例9_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級9_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.比例10_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.階級10_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 彙總1_dgv As DataGridView
+    Friend WithEvents 基礎_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 階級1_nud As NumericUpDown
+    Friend WithEvents 比例1_nud As NumericUpDown
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 比例2_nud As NumericUpDown
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 階級2_nud As NumericUpDown
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 比例3_nud As NumericUpDown
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 階級3_nud As NumericUpDown
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 比例4_nud As NumericUpDown
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 階級4_nud As NumericUpDown
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 比例5_nud As NumericUpDown
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 階級5_nud As NumericUpDown
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 比例6_nud As NumericUpDown
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 階級6_nud As NumericUpDown
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 比例7_nud As NumericUpDown
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 階級7_nud As NumericUpDown
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 比例8_nud As NumericUpDown
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 階級8_nud As NumericUpDown
+    Friend WithEvents Label17 As Label
+    Friend WithEvents 比例9_nud As NumericUpDown
+    Friend WithEvents Label18 As Label
+    Friend WithEvents 階級9_nud As NumericUpDown
+    Friend WithEvents Label19 As Label
+    Friend WithEvents 比例10_nud As NumericUpDown
+    Friend WithEvents Label20 As Label
+    Friend WithEvents 階級10_nud As NumericUpDown
+    Friend WithEvents Label21 As Label
+    Friend WithEvents 新增_bt As Button
+    Friend WithEvents 修改_bt As Button
+    Friend WithEvents 刪除_bt As Button
+End Class

YD-ERP-SYS/財務系統管理/業務獎金計算基礎.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

YD-ERP-SYS/財務系統管理/業務獎金計算基礎.vb

@@ -0,0 +1,77 @@
+Public Class 業務獎金計算基礎
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6 As New DataSet
+
+    Private Sub Set_清單1()
+        彙總1_dgv.DataSource = Nothing : ds1.Clear()
+        彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總1_dgv.ColumnHeadersHeight = 25
+        彙總1_dgv.AllowUserToAddRows = False
+        彙總1_dgv.RowTemplate.Height = 35
+
+        SQL_獎金計算基礎()
+        da.Fill(ds1) : 彙總1_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For I As Integer = 1 To 20
+            彙總1_dgv.Columns(I).DefaultCellStyle.Format = "#,##0" : 彙總1_dgv.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+    End Sub
+    Private Sub 業務獎金計算基礎_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Set_清單1()
+    End Sub
+    Private Sub 彙總1_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 彙總1_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            基礎_tb.Text = 彙總1_dgv(0, e.RowIndex).Value.ToString : PA21 = 彙總1_dgv(0, e.RowIndex).Value.ToString
+            階級1_nud.Value = 彙總1_dgv(1, e.RowIndex).Value : 比例1_nud.Value = 彙總1_dgv(2, e.RowIndex).Value
+            階級2_nud.Value = 彙總1_dgv(3, e.RowIndex).Value : 比例2_nud.Value = 彙總1_dgv(4, e.RowIndex).Value
+            階級3_nud.Value = 彙總1_dgv(5, e.RowIndex).Value : 比例3_nud.Value = 彙總1_dgv(6, e.RowIndex).Value
+            階級4_nud.Value = 彙總1_dgv(7, e.RowIndex).Value : 比例4_nud.Value = 彙總1_dgv(8, e.RowIndex).Value
+            階級5_nud.Value = 彙總1_dgv(9, e.RowIndex).Value : 比例5_nud.Value = 彙總1_dgv(10, e.RowIndex).Value
+            階級6_nud.Value = 彙總1_dgv(11, e.RowIndex).Value : 比例6_nud.Value = 彙總1_dgv(12, e.RowIndex).Value
+            階級7_nud.Value = 彙總1_dgv(13, e.RowIndex).Value : 比例7_nud.Value = 彙總1_dgv(14, e.RowIndex).Value
+            階級8_nud.Value = 彙總1_dgv(15, e.RowIndex).Value : 比例8_nud.Value = 彙總1_dgv(16, e.RowIndex).Value
+            階級9_nud.Value = 彙總1_dgv(17, e.RowIndex).Value : 比例9_nud.Value = 彙總1_dgv(18, e.RowIndex).Value
+            階級10_nud.Value = 彙總1_dgv(19, e.RowIndex).Value : 比例10_nud.Value = 彙總1_dgv(20, e.RowIndex).Value
+        End If
+    End Sub
+
+    Private Sub 取資料()
+        PA = 基礎_tb.Text
+        PA1 = 階級1_nud.Value : PA2 = 階級2_nud.Value : PA3 = 階級3_nud.Value : PA4 = 階級4_nud.Value : PA5 = 階級5_nud.Value
+        PA6 = 階級6_nud.Value : PA7 = 階級7_nud.Value : PA8 = 階級8_nud.Value : PA9 = 階級9_nud.Value : PA10 = 階級10_nud.Value
+        PA11 = 比例1_nud.Value : PA12 = 比例2_nud.Value : PA13 = 比例3_nud.Value : PA14 = 比例4_nud.Value : PA15 = 比例5_nud.Value
+        PA16 = 比例6_nud.Value : PA17 = 比例7_nud.Value : PA18 = 比例8_nud.Value : PA19 = 比例9_nud.Value : PA20 = 比例10_nud.Value
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        If 基礎_tb.Text = "" Then
+            MsgBox("沒有基礎資料!!!")
+        Else
+            取資料()
+            SQL_銷售控制表_查詢()
+            If dr.Read() Then
+                MsgBox("該資料已經有被引用不可刪除!!!")
+            Else
+                SQL_獎金計算基礎_刪除() : MsgBox("修改完成!!!") : Set_清單1()
+            End If
+        End If : conn.Close()
+    End Sub
+
+    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
+        If 基礎_tb.Text = "" Then
+            MsgBox("沒有基礎資料!!!")
+        Else
+            取資料() : SQL_獎金計算基礎_修改() : SQL_銷售控制表_獎金基礎修改() : MsgBox("修改完成!!!") : Set_清單1()
+        End If : conn.Close()
+    End Sub
+    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
+        If 基礎_tb.Text = "" Then
+            MsgBox("沒有基礎資料!!!")
+        Else
+            取資料() : SQL_獎金計算基礎_查詢()
+            If dr.Read() Then
+                MsgBox("以有資料不可新增!!!")
+            Else
+                SQL_獎金計算基礎_新增() : MsgBox("新增完成!!!") : Set_清單1()
+            End If : conn.Close()
+        End If
+    End Sub
+End Class

YD-ERP-SYS/財務系統管理/業績單據完單設定.Designer.vb

@@ -0,0 +1,340 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 業績單據完單設定
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.彙總1_dgv = New System.Windows.Forms.DataGridView()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.獎金基礎_ch = New System.Windows.Forms.ComboBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.業務單號_tb = New System.Windows.Forms.TextBox()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.預設1_tb = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.基礎1_tb = New System.Windows.Forms.TextBox()
+        Me.基礎2_tb = New System.Windows.Forms.TextBox()
+        Me.預設2_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.基礎3_tb = New System.Windows.Forms.TextBox()
+        Me.預設3_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.基礎4_tb = New System.Windows.Forms.TextBox()
+        Me.已完單_bt = New System.Windows.Forms.Button()
+        Me.未完單_bt = New System.Windows.Forms.Button()
+        Me.查詢單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.查詢_bt = New System.Windows.Forms.Button()
+        CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '彙總1_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.彙總1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.彙總1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總1_dgv.Location = New System.Drawing.Point(4, 33)
+        Me.彙總1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.彙總1_dgv.Name = "彙總1_dgv"
+        Me.彙總1_dgv.RowHeadersWidth = 5
+        Me.彙總1_dgv.RowTemplate.Height = 24
+        Me.彙總1_dgv.Size = New System.Drawing.Size(1330, 565)
+        Me.彙總1_dgv.TabIndex = 967
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.開始日期_dtp.Location = New System.Drawing.Point(572, 5)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.開始日期_dtp.TabIndex = 1508
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(516, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 1513
+        Me.Label1.Text = "完單日期"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(669, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(80, 16)
+        Me.Label2.TabIndex = 1514
+        Me.Label2.Text = "獎金計算基礎"
+        '
+        '獎金基礎_ch
+        '
+        Me.獎金基礎_ch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.獎金基礎_ch.FormattingEnabled = True
+        Me.獎金基礎_ch.Location = New System.Drawing.Point(750, 5)
+        Me.獎金基礎_ch.Name = "獎金基礎_ch"
+        Me.獎金基礎_ch.Size = New System.Drawing.Size(70, 24)
+        Me.獎金基礎_ch.TabIndex = 1515
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(353, 8)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(56, 16)
+        Me.Label3.TabIndex = 1516
+        Me.Label3.Text = "業務單號"
+        '
+        '業務單號_tb
+        '
+        Me.業務單號_tb.Location = New System.Drawing.Point(410, 5)
+        Me.業務單號_tb.Name = "業務單號_tb"
+        Me.業務單號_tb.Size = New System.Drawing.Size(100, 23)
+        Me.業務單號_tb.TabIndex = 1517
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Location = New System.Drawing.Point(823, 5)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(60, 23)
+        Me.存檔_bt.TabIndex = 1533
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '預設1_tb
+        '
+        Me.預設1_tb.Location = New System.Drawing.Point(918, 6)
+        Me.預設1_tb.Name = "預設1_tb"
+        Me.預設1_tb.Size = New System.Drawing.Size(28, 23)
+        Me.預設1_tb.TabIndex = 1535
+        Me.預設1_tb.Text = "1"
+        Me.預設1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(885, 9)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 1534
+        Me.Label4.Text = "預設"
+        '
+        '基礎1_tb
+        '
+        Me.基礎1_tb.Location = New System.Drawing.Point(949, 6)
+        Me.基礎1_tb.Name = "基礎1_tb"
+        Me.基礎1_tb.Size = New System.Drawing.Size(45, 23)
+        Me.基礎1_tb.TabIndex = 1536
+        Me.基礎1_tb.Text = "經理"
+        '
+        '基礎2_tb
+        '
+        Me.基礎2_tb.Location = New System.Drawing.Point(1063, 6)
+        Me.基礎2_tb.Name = "基礎2_tb"
+        Me.基礎2_tb.Size = New System.Drawing.Size(45, 23)
+        Me.基礎2_tb.TabIndex = 1539
+        Me.基礎2_tb.Text = "張經理"
+        '
+        '預設2_tb
+        '
+        Me.預設2_tb.Location = New System.Drawing.Point(1032, 6)
+        Me.預設2_tb.Name = "預設2_tb"
+        Me.預設2_tb.Size = New System.Drawing.Size(28, 23)
+        Me.預設2_tb.TabIndex = 1538
+        Me.預設2_tb.Text = "3"
+        Me.預設2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(999, 9)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 1537
+        Me.Label5.Text = "預設"
+        '
+        '基礎3_tb
+        '
+        Me.基礎3_tb.Location = New System.Drawing.Point(1177, 6)
+        Me.基礎3_tb.Name = "基礎3_tb"
+        Me.基礎3_tb.Size = New System.Drawing.Size(45, 23)
+        Me.基礎3_tb.TabIndex = 1542
+        Me.基礎3_tb.Text = "呂哥"
+        '
+        '預設3_tb
+        '
+        Me.預設3_tb.Location = New System.Drawing.Point(1146, 6)
+        Me.預設3_tb.Name = "預設3_tb"
+        Me.預設3_tb.Size = New System.Drawing.Size(28, 23)
+        Me.預設3_tb.TabIndex = 1541
+        Me.預設3_tb.Text = "7"
+        Me.預設3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(1113, 9)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.TabIndex = 1540
+        Me.Label6.Text = "預設"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(1227, 9)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(44, 16)
+        Me.Label7.TabIndex = 1543
+        Me.Label7.Text = "無預設"
+        '
+        '基礎4_tb
+        '
+        Me.基礎4_tb.Location = New System.Drawing.Point(1272, 6)
+        Me.基礎4_tb.Name = "基礎4_tb"
+        Me.基礎4_tb.Size = New System.Drawing.Size(45, 23)
+        Me.基礎4_tb.TabIndex = 1544
+        Me.基礎4_tb.Text = "業務"
+        '
+        '已完單_bt
+        '
+        Me.已完單_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.已完單_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.已完單_bt.Location = New System.Drawing.Point(63, 6)
+        Me.已完單_bt.Name = "已完單_bt"
+        Me.已完單_bt.Size = New System.Drawing.Size(57, 23)
+        Me.已完單_bt.TabIndex = 1546
+        Me.已完單_bt.Text = "已完單"
+        Me.已完單_bt.UseVisualStyleBackColor = True
+        '
+        '未完單_bt
+        '
+        Me.未完單_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.未完單_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.未完單_bt.Location = New System.Drawing.Point(4, 6)
+        Me.未完單_bt.Name = "未完單_bt"
+        Me.未完單_bt.Size = New System.Drawing.Size(57, 23)
+        Me.未完單_bt.TabIndex = 1545
+        Me.未完單_bt.Text = "未完單"
+        Me.未完單_bt.UseVisualStyleBackColor = True
+        '
+        '查詢單號_tb
+        '
+        Me.查詢單號_tb.Location = New System.Drawing.Point(183, 5)
+        Me.查詢單號_tb.Name = "查詢單號_tb"
+        Me.查詢單號_tb.Size = New System.Drawing.Size(100, 23)
+        Me.查詢單號_tb.TabIndex = 1548
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(126, 8)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(56, 16)
+        Me.Label8.TabIndex = 1547
+        Me.Label8.Text = "查詢單號"
+        '
+        '查詢_bt
+        '
+        Me.查詢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.查詢_bt.ForeColor = System.Drawing.Color.Green
+        Me.查詢_bt.Location = New System.Drawing.Point(289, 5)
+        Me.查詢_bt.Name = "查詢_bt"
+        Me.查詢_bt.Size = New System.Drawing.Size(60, 23)
+        Me.查詢_bt.TabIndex = 1549
+        Me.查詢_bt.Text = "查詢"
+        Me.查詢_bt.UseVisualStyleBackColor = True
+        '
+        '業績單據完單設定
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1338, 603)
+        Me.Controls.Add(Me.查詢_bt)
+        Me.Controls.Add(Me.查詢單號_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.已完單_bt)
+        Me.Controls.Add(Me.未完單_bt)
+        Me.Controls.Add(Me.基礎4_tb)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.基礎3_tb)
+        Me.Controls.Add(Me.預設3_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.基礎2_tb)
+        Me.Controls.Add(Me.預設2_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.基礎1_tb)
+        Me.Controls.Add(Me.預設1_tb)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.業務單號_tb)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.獎金基礎_ch)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.彙總1_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "業績單據完單設定"
+        Me.Text = "業績單據完單設定"
+        CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 彙總1_dgv As DataGridView
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 獎金基礎_ch As ComboBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 業務單號_tb As TextBox
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 預設1_tb As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 基礎1_tb As TextBox
+    Friend WithEvents 基礎2_tb As TextBox
+    Friend WithEvents 預設2_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 基礎3_tb As TextBox
+    Friend WithEvents 預設3_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 基礎4_tb As TextBox
+    Friend WithEvents 已完單_bt As Button
+    Friend WithEvents 未完單_bt As Button
+    Friend WithEvents 查詢單號_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 查詢_bt As Button
+End Class

YD-ERP-SYS/財務系統管理/業績單據完單設定.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

YD-ERP-SYS/財務系統管理/業績單據完單設定.vb

@@ -0,0 +1,57 @@
+Public Class 業績單據完單設定
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet
+    Private Sub Set_清單1()
+        彙總1_dgv.DataSource = Nothing : ds1.Clear()
+        彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總1_dgv.ColumnHeadersHeight = 25
+        彙總1_dgv.AllowUserToAddRows = False
+        彙總1_dgv.RowTemplate.Height = 25
+        If 已完單_bt.Enabled = False Then
+            SQL_業績完單2()
+        Else
+            SQL_業績完單1()
+        End If
+
+        da.Fill(ds1) : 彙總1_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For I As Integer = 1 To 5
+            彙總1_dgv.Columns(I).DefaultCellStyle.Format = "#,##0" : 彙總1_dgv.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        For I As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+            If 彙總1_dgv.Rows(I).Cells(1).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(1).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(2).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(2).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(3).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(3).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(4).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(4).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(5).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(5).Value = 0 : End If
+        Next
+    End Sub
+    Private Sub Set_獎金基礎下拉()
+        SQL_獎金基礎下拉()
+        While (dr.Read()) : 獎金基礎_ch.Items.Add(dr("獎金計算")) : End While : conn.Close()
+    End Sub
+    Private Sub 業績單據完單設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        未完單_bt.Enabled = False
+        Set_獎金基礎下拉() : Set_清單1()
+    End Sub
+    Private Sub 彙總1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 彙總1_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            業務單號_tb.Text = 彙總1_dgv("單號", e.RowIndex).Value.ToString
+            If Strings.Left(業務單號_tb.Text, 1) = 預設1_tb.Text Then : 獎金基礎_ch.Text = 基礎1_tb.Text
+            ElseIf Strings.Left(業務單號_tb.Text, 1) = 預設2_tb.Text Then : 獎金基礎_ch.Text = 基礎2_tb.Text
+            ElseIf Strings.Left(業務單號_tb.Text, 1) = 預設3_tb.Text Then : 獎金基礎_ch.Text = 基礎3_tb.Text
+            Else : 獎金基礎_ch.Text = 基礎4_tb.Text : End If
+        End If
+    End Sub
+    Private Sub 已完單_bt_Click(sender As Object, e As EventArgs) Handles 已完單_bt.Click
+        已完單_bt.Enabled = False : 未完單_bt.Enabled = True : Set_清單1()
+    End Sub
+    Private Sub 未完單_bt_Click(sender As Object, e As EventArgs) Handles 未完單_bt.Click
+        已完單_bt.Enabled = True : 未完單_bt.Enabled = False : Set_清單1()
+    End Sub
+    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
+        Set_清單1()
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        SQL_業績完單_修正() : Set_清單1()
+    End Sub
+End Class

YD-ERP-SYS/財務系統管理/業績獎金彙總表.Designer.vb

@@ -0,0 +1,549 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 業績獎金彙總表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.彙總1_dgv = New System.Windows.Forms.DataGridView()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.衍生運費_dgv = New System.Windows.Forms.DataGridView()
+        Me.其他_dgv = New System.Windows.Forms.DataGridView()
+        Me.外車車資_dgv = New System.Windows.Forms.DataGridView()
+        Me.料號一_dgv = New System.Windows.Forms.DataGridView()
+        Me.備註運費_dgv = New System.Windows.Forms.DataGridView()
+        Me.下個月_bt = New System.Windows.Forms.Button()
+        Me.上個月_bt = New System.Windows.Forms.Button()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.獎金彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.彙總表_bt = New System.Windows.Forms.Button()
+        Me.明細表_bt = New System.Windows.Forms.Button()
+        Me.獎金明細表_dgv = New System.Windows.Forms.DataGridView()
+        Me.過度表_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.NUD1 = New System.Windows.Forms.NumericUpDown()
+        Me.NUD2 = New System.Windows.Forms.NumericUpDown()
+        Me.NUD3 = New System.Windows.Forms.NumericUpDown()
+        Me.NUD4 = New System.Windows.Forms.NumericUpDown()
+        Me.NUD5 = New System.Windows.Forms.NumericUpDown()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.列印成EXCEL_bt = New System.Windows.Forms.Button()
+        CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.其他_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.外車車資_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.料號一_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.備註運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.獎金彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.獎金明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.過度表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NUD1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NUD2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NUD3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NUD4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NUD5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '彙總1_dgv
+        '
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        Me.彙總1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.彙總1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總1_dgv.Location = New System.Drawing.Point(8, 33)
+        Me.彙總1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.彙總1_dgv.Name = "彙總1_dgv"
+        Me.彙總1_dgv.RowHeadersWidth = 5
+        Me.彙總1_dgv.RowTemplate.Height = 24
+        Me.彙總1_dgv.Size = New System.Drawing.Size(1322, 206)
+        Me.彙總1_dgv.TabIndex = 966
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1225, 7)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.TabIndex = 1501
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(1281, 4)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
+        Me.字體_NUD.TabIndex = 1500
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '衍生運費_dgv
+        '
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.衍生運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.衍生運費_dgv.Location = New System.Drawing.Point(470, 33)
+        Me.衍生運費_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.衍生運費_dgv.Name = "衍生運費_dgv"
+        Me.衍生運費_dgv.RowHeadersWidth = 5
+        Me.衍生運費_dgv.RowTemplate.Height = 24
+        Me.衍生運費_dgv.Size = New System.Drawing.Size(151, 206)
+        Me.衍生運費_dgv.TabIndex = 1502
+        Me.衍生運費_dgv.Visible = False
+        '
+        '其他_dgv
+        '
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.其他_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        Me.其他_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.其他_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.其他_dgv.Location = New System.Drawing.Point(1177, 33)
+        Me.其他_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.其他_dgv.Name = "其他_dgv"
+        Me.其他_dgv.RowHeadersWidth = 5
+        Me.其他_dgv.RowTemplate.Height = 24
+        Me.其他_dgv.Size = New System.Drawing.Size(151, 206)
+        Me.其他_dgv.TabIndex = 1503
+        Me.其他_dgv.Visible = False
+        '
+        '外車車資_dgv
+        '
+        DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.外車車資_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
+        Me.外車車資_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.外車車資_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.外車車資_dgv.Location = New System.Drawing.Point(627, 33)
+        Me.外車車資_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.外車車資_dgv.Name = "外車車資_dgv"
+        Me.外車車資_dgv.RowHeadersWidth = 5
+        Me.外車車資_dgv.RowTemplate.Height = 24
+        Me.外車車資_dgv.Size = New System.Drawing.Size(202, 206)
+        Me.外車車資_dgv.TabIndex = 1504
+        Me.外車車資_dgv.Visible = False
+        '
+        '料號一_dgv
+        '
+        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.料號一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        Me.料號一_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.料號一_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.料號一_dgv.Location = New System.Drawing.Point(992, 33)
+        Me.料號一_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.料號一_dgv.Name = "料號一_dgv"
+        Me.料號一_dgv.RowHeadersWidth = 5
+        Me.料號一_dgv.RowTemplate.Height = 24
+        Me.料號一_dgv.Size = New System.Drawing.Size(179, 206)
+        Me.料號一_dgv.TabIndex = 1505
+        Me.料號一_dgv.Visible = False
+        '
+        '備註運費_dgv
+        '
+        DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.備註運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24
+        Me.備註運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.備註運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.備註運費_dgv.Location = New System.Drawing.Point(835, 33)
+        Me.備註運費_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.備註運費_dgv.Name = "備註運費_dgv"
+        Me.備註運費_dgv.RowHeadersWidth = 5
+        Me.備註運費_dgv.RowTemplate.Height = 24
+        Me.備註運費_dgv.Size = New System.Drawing.Size(151, 206)
+        Me.備註運費_dgv.TabIndex = 1506
+        Me.備註運費_dgv.Visible = False
+        '
+        '下個月_bt
+        '
+        Me.下個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.下個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.下個月_bt.Location = New System.Drawing.Point(274, 4)
+        Me.下個月_bt.Name = "下個月_bt"
+        Me.下個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.下個月_bt.TabIndex = 1511
+        Me.下個月_bt.Text = "下個月"
+        Me.下個月_bt.UseVisualStyleBackColor = True
+        '
+        '上個月_bt
+        '
+        Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.上個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.上個月_bt.Location = New System.Drawing.Point(216, 4)
+        Me.上個月_bt.Name = "上個月_bt"
+        Me.上個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.上個月_bt.TabIndex = 1510
+        Me.上個月_bt.Text = "上個月"
+        Me.上個月_bt.UseVisualStyleBackColor = True
+        '
+        '中間日期_dtp
+        '
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.中間日期_dtp.Location = New System.Drawing.Point(21, 46)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
+        Me.中間日期_dtp.TabIndex = 1509
+        Me.中間日期_dtp.Visible = False
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.結束日期_dtp.Location = New System.Drawing.Point(119, 4)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.結束日期_dtp.TabIndex = 1508
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.開始日期_dtp.Location = New System.Drawing.Point(4, 4)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.開始日期_dtp.TabIndex = 1507
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(99, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(20, 16)
+        Me.Label1.TabIndex = 1512
+        Me.Label1.Text = "到"
+        '
+        '獎金彙總_dgv
+        '
+        DataGridViewCellStyle25.BackColor = System.Drawing.Color.Lavender
+        Me.獎金彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        Me.獎金彙總_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.獎金彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.獎金彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.獎金彙總_dgv.Location = New System.Drawing.Point(4, 30)
+        Me.獎金彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.獎金彙總_dgv.Name = "獎金彙總_dgv"
+        Me.獎金彙總_dgv.RowHeadersWidth = 5
+        Me.獎金彙總_dgv.RowTemplate.Height = 24
+        Me.獎金彙總_dgv.Size = New System.Drawing.Size(1330, 541)
+        Me.獎金彙總_dgv.TabIndex = 1513
+        '
+        '彙總表_bt
+        '
+        Me.彙總表_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總表_bt.Location = New System.Drawing.Point(341, 4)
+        Me.彙總表_bt.Name = "彙總表_bt"
+        Me.彙總表_bt.Size = New System.Drawing.Size(57, 23)
+        Me.彙總表_bt.TabIndex = 1514
+        Me.彙總表_bt.Text = "彙總表"
+        Me.彙總表_bt.UseVisualStyleBackColor = True
+        '
+        '明細表_bt
+        '
+        Me.明細表_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.明細表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細表_bt.Location = New System.Drawing.Point(400, 4)
+        Me.明細表_bt.Name = "明細表_bt"
+        Me.明細表_bt.Size = New System.Drawing.Size(57, 23)
+        Me.明細表_bt.TabIndex = 1515
+        Me.明細表_bt.Text = "明細表"
+        Me.明細表_bt.UseVisualStyleBackColor = True
+        '
+        '獎金明細表_dgv
+        '
+        DataGridViewCellStyle26.BackColor = System.Drawing.Color.LavenderBlush
+        Me.獎金明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
+        Me.獎金明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.獎金明細表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.獎金明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.獎金明細表_dgv.Location = New System.Drawing.Point(4, 30)
+        Me.獎金明細表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.獎金明細表_dgv.Name = "獎金明細表_dgv"
+        Me.獎金明細表_dgv.RowHeadersWidth = 5
+        Me.獎金明細表_dgv.RowTemplate.Height = 24
+        Me.獎金明細表_dgv.Size = New System.Drawing.Size(1330, 541)
+        Me.獎金明細表_dgv.TabIndex = 1516
+        '
+        '過度表_dgv
+        '
+        DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.過度表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        Me.過度表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.過度表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.過度表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.過度表_dgv.Location = New System.Drawing.Point(8, 33)
+        Me.過度表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.過度表_dgv.Name = "過度表_dgv"
+        Me.過度表_dgv.RowHeadersWidth = 5
+        Me.過度表_dgv.RowTemplate.Height = 24
+        Me.過度表_dgv.Size = New System.Drawing.Size(1322, 206)
+        Me.過度表_dgv.TabIndex = 1517
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(194, 578)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(112, 16)
+        Me.Label2.TabIndex = 1518
+        Me.Label2.Text = "扣運費(上個月已結)"
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(414, 578)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(80, 16)
+        Me.Label3.TabIndex = 1520
+        Me.Label3.Text = "已出貨未收款"
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(601, 578)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(44, 16)
+        Me.Label4.TabIndex = 1522
+        Me.Label4.Text = "代運費"
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(7, 578)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(80, 16)
+        Me.Label5.TabIndex = 1524
+        Me.Label5.Text = "獎金合計運費"
+        '
+        'NUD1
+        '
+        Me.NUD1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.NUD1.Location = New System.Drawing.Point(88, 575)
+        Me.NUD1.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NUD1.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD1.Name = "NUD1"
+        Me.NUD1.Size = New System.Drawing.Size(100, 23)
+        Me.NUD1.TabIndex = 1526
+        Me.NUD1.ThousandsSeparator = True
+        '
+        'NUD2
+        '
+        Me.NUD2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.NUD2.Location = New System.Drawing.Point(306, 575)
+        Me.NUD2.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NUD2.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD2.Name = "NUD2"
+        Me.NUD2.Size = New System.Drawing.Size(100, 23)
+        Me.NUD2.TabIndex = 1527
+        Me.NUD2.ThousandsSeparator = True
+        '
+        'NUD3
+        '
+        Me.NUD3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.NUD3.Location = New System.Drawing.Point(495, 575)
+        Me.NUD3.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NUD3.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD3.Name = "NUD3"
+        Me.NUD3.Size = New System.Drawing.Size(100, 23)
+        Me.NUD3.TabIndex = 1528
+        Me.NUD3.ThousandsSeparator = True
+        '
+        'NUD4
+        '
+        Me.NUD4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.NUD4.Location = New System.Drawing.Point(651, 575)
+        Me.NUD4.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NUD4.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD4.Name = "NUD4"
+        Me.NUD4.Size = New System.Drawing.Size(100, 23)
+        Me.NUD4.TabIndex = 1529
+        Me.NUD4.ThousandsSeparator = True
+        '
+        'NUD5
+        '
+        Me.NUD5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.NUD5.Location = New System.Drawing.Point(814, 574)
+        Me.NUD5.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NUD5.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD5.Name = "NUD5"
+        Me.NUD5.Size = New System.Drawing.Size(100, 23)
+        Me.NUD5.TabIndex = 1531
+        Me.NUD5.ThousandsSeparator = True
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(757, 577)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1530
+        Me.Label6.Text = "運費總計"
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Location = New System.Drawing.Point(920, 574)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(107, 23)
+        Me.存檔_bt.TabIndex = 1532
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '列印成EXCEL_bt
+        '
+        Me.列印成EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.列印成EXCEL_bt.ForeColor = System.Drawing.Color.Green
+        Me.列印成EXCEL_bt.Location = New System.Drawing.Point(466, 4)
+        Me.列印成EXCEL_bt.Name = "列印成EXCEL_bt"
+        Me.列印成EXCEL_bt.Size = New System.Drawing.Size(107, 23)
+        Me.列印成EXCEL_bt.TabIndex = 1533
+        Me.列印成EXCEL_bt.Text = "列印成EXCEL"
+        Me.列印成EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        '業績獎金彙總表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1338, 603)
+        Me.Controls.Add(Me.列印成EXCEL_bt)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.NUD5)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.NUD4)
+        Me.Controls.Add(Me.NUD3)
+        Me.Controls.Add(Me.NUD2)
+        Me.Controls.Add(Me.NUD1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.明細表_bt)
+        Me.Controls.Add(Me.彙總表_bt)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.下個月_bt)
+        Me.Controls.Add(Me.上個月_bt)
+        Me.Controls.Add(Me.中間日期_dtp)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.獎金彙總_dgv)
+        Me.Controls.Add(Me.獎金明細表_dgv)
+        Me.Controls.Add(Me.過度表_dgv)
+        Me.Controls.Add(Me.彙總1_dgv)
+        Me.Controls.Add(Me.衍生運費_dgv)
+        Me.Controls.Add(Me.外車車資_dgv)
+        Me.Controls.Add(Me.備註運費_dgv)
+        Me.Controls.Add(Me.料號一_dgv)
+        Me.Controls.Add(Me.其他_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "業績獎金彙總表"
+        Me.Text = "業績獎金彙總表"
+        CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.衍生運費_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.其他_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.外車車資_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.料號一_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.備註運費_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.獎金彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.獎金明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.過度表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NUD1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NUD2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NUD3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NUD4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NUD5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 彙總1_dgv As DataGridView
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 衍生運費_dgv As DataGridView
+    Friend WithEvents 其他_dgv As DataGridView
+    Friend WithEvents 外車車資_dgv As DataGridView
+    Friend WithEvents 料號一_dgv As DataGridView
+    Friend WithEvents 備註運費_dgv As DataGridView
+    Friend WithEvents 下個月_bt As Button
+    Friend WithEvents 上個月_bt As Button
+    Friend WithEvents 中間日期_dtp As DateTimePicker
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 獎金彙總_dgv As DataGridView
+    Friend WithEvents 彙總表_bt As Button
+    Friend WithEvents 明細表_bt As Button
+    Friend WithEvents 獎金明細表_dgv As DataGridView
+    Friend WithEvents 過度表_dgv As DataGridView
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents NUD1 As NumericUpDown
+    Friend WithEvents NUD2 As NumericUpDown
+    Friend WithEvents NUD3 As NumericUpDown
+    Friend WithEvents NUD4 As NumericUpDown
+    Friend WithEvents NUD5 As NumericUpDown
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 列印成EXCEL_bt As Button
+End Class

YD-ERP-SYS/財務系統管理/業績獎金彙總表.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

YD-ERP-SYS/財務系統管理/業績獎金彙總表.vb

@@ -0,0 +1,580 @@
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Imports Microsoft.Office.Interop.Excel
+Public Class 業績獎金彙總表
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet
+    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
+    Dim N1 As Integer
+    Private Sub Set_清單1()
+        彙總1_dgv.DataSource = Nothing : ds1.Clear()
+        彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總1_dgv.ColumnHeadersHeight = 25
+        彙總1_dgv.AllowUserToAddRows = False
+        彙總1_dgv.RowTemplate.Height = 25
+
+        SQL_業績彙總1()
+        da.Fill(ds1) : 彙總1_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For I As Integer = 1 To 5
+            彙總1_dgv.Columns(I).DefaultCellStyle.Format = "#,##0" : 彙總1_dgv.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        For I As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+            If 彙總1_dgv.Rows(I).Cells(1).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(1).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(2).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(2).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(3).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(3).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(4).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(4).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(5).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(5).Value = 0 : End If
+        Next
+    End Sub
+    Private Sub Set_清單2()
+        衍生運費_dgv.DataSource = Nothing : ds2.Clear()
+        衍生運費_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        衍生運費_dgv.ColumnHeadersHeight = 25
+        衍生運費_dgv.AllowUserToAddRows = False
+        衍生運費_dgv.RowTemplate.Height = 25
+
+        SQL_業績彙總2()
+        da.Fill(ds2) : 衍生運費_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        衍生運費_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        衍生運費_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_清單3()
+        其他_dgv.DataSource = Nothing : ds.Clear()
+        其他_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        其他_dgv.ColumnHeadersHeight = 25
+        其他_dgv.AllowUserToAddRows = False
+        其他_dgv.RowTemplate.Height = 25
+
+        SQL_業績彙總3()
+        da.Fill(ds) : 其他_dgv.DataSource = ds.Tables(0) : conn.Close()
+        其他_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        其他_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_清單4()
+        外車車資_dgv.DataSource = Nothing : ds3.Clear()
+        外車車資_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        外車車資_dgv.ColumnHeadersHeight = 25
+        外車車資_dgv.AllowUserToAddRows = False
+        外車車資_dgv.RowTemplate.Height = 25
+
+        SQL_業績彙總4()
+        da.Fill(ds3) : 外車車資_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        外車車資_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 外車車資_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        外車車資_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        外車車資_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_清單5()
+        料號一_dgv.DataSource = Nothing : ds4.Clear()
+        料號一_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        料號一_dgv.ColumnHeadersHeight = 25
+        料號一_dgv.AllowUserToAddRows = False
+        料號一_dgv.RowTemplate.Height = 25
+
+        SQL_業績彙總5()
+        da.Fill(ds4) : 料號一_dgv.DataSource = ds4.Tables(0) : conn.Close()
+        料號一_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        料號一_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_清單6()
+        備註運費_dgv.DataSource = Nothing : ds5.Clear()
+        備註運費_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        備註運費_dgv.ColumnHeadersHeight = 25
+        備註運費_dgv.AllowUserToAddRows = False
+        備註運費_dgv.RowTemplate.Height = 25
+
+        SQL_業績彙總6()
+        da.Fill(ds5) : 備註運費_dgv.DataSource = ds5.Tables(0) : conn.Close()
+        備註運費_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        備註運費_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_彙總明細()
+        獎金明細表_dgv.DataSource = Nothing : ds7.Clear()
+        獎金明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        獎金明細表_dgv.ColumnHeadersHeight = 25
+        獎金明細表_dgv.AllowUserToAddRows = False
+        獎金明細表_dgv.RowTemplate.Height = 25
+
+        SQL_業績主表2()
+        da.Fill(ds7) : 獎金明細表_dgv.DataSource = ds7.Tables(0) : conn.Close()
+        獎金明細表_dgv.Columns(9).Visible = False
+
+        獎金明細表_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 獎金明細表_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 獎金明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        獎金明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 獎金明細表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 獎金明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
+        獎金明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 獎金明細表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
+        獎金明細表_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金明細表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金明細表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金明細表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金明細表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        獎金明細表_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金明細表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金明細表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金明細表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金明細表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        For I As Integer = 0 To 獎金明細表_dgv.Rows.Count - 1
+            獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = "0" : 獎金明細表_dgv.Rows(I).Cells("成本").Value = "0" : 獎金明細表_dgv.Rows(I).Cells("運費").Value = "0"
+            獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value = "0" : 獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value = "0" : 獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value = "0"
+            '--------------銷貨總額---------------------------------------------------------------------------------------------------------------------------------------------
+            For II As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+                If 彙總1_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value + 彙總1_dgv.Rows(II).Cells("銷貨總額").Value
+                End If
+            Next
+            For II As Integer = 0 To 外車車資_dgv.Rows.Count - 1
+                If 外車車資_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value + 外車車資_dgv.Rows(II).Cells("外車_收").Value
+                End If
+            Next
+            '--------------成本---------------------------------------------------------------------------------------------------------------------------------------------
+            For II As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+                If 彙總1_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("成本").Value = 獎金明細表_dgv.Rows(I).Cells("成本").Value + 彙總1_dgv.Rows(II).Cells("成本").Value
+                End If
+            Next
+            '--------------運費---------------------------------------------------------------------------------------------------------------------------------------------
+            For II As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+                If 彙總1_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("運費").Value = 獎金明細表_dgv.Rows(I).Cells("運費").Value + 彙總1_dgv.Rows(II).Cells("運費").Value
+                End If
+            Next
+            For II As Integer = 0 To 衍生運費_dgv.Rows.Count - 1
+                If 衍生運費_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("運費").Value = 獎金明細表_dgv.Rows(I).Cells("運費").Value + 衍生運費_dgv.Rows(II).Cells("衍生運費").Value
+                End If
+            Next
+            For II As Integer = 0 To 外車車資_dgv.Rows.Count - 1
+                If 外車車資_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("運費").Value = 獎金明細表_dgv.Rows(I).Cells("運費").Value + 外車車資_dgv.Rows(II).Cells("外車_支").Value
+                End If
+            Next
+            For II As Integer = 0 To 備註運費_dgv.Rows.Count - 1
+                If 備註運費_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("運費").Value = 獎金明細表_dgv.Rows(I).Cells("運費").Value + 備註運費_dgv.Rows(II).Cells("備註車資").Value
+                End If
+            Next
+            '--------------稅額(發票)---------------------------------------------------------------------------------------------------------------------------------------------
+            For II As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+                If 彙總1_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value = 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value + 彙總1_dgv.Rows(II).Cells("稅金").Value
+                End If
+            Next
+            '--------------其他(傭金)---------------------------------------------------------------------------------------------------------------------------------------------
+            For II As Integer = 0 To 料號一_dgv.Rows.Count - 1
+                If 料號一_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value = 獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value + 料號一_dgv.Rows(II).Cells("料號1_收支").Value
+                End If
+            Next
+            For II As Integer = 0 To 其他_dgv.Rows.Count - 1
+                If 其他_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value = 獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value + 其他_dgv.Rows(II).Cells("其他支出").Value
+                End If
+            Next
+            '--------------手續費(刷卡)---------------------------------------------------------------------------------------------------------------------------------------------
+            For II As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+                If 彙總1_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                    獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value = 獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value + 彙總1_dgv.Rows(II).Cells("刷卡費用").Value
+                End If
+            Next
+        Next
+        For I As Integer = 0 To 獎金明細表_dgv.Rows.Count - 1
+            獎金明細表_dgv.Rows(I).Cells("毛利").Value = "0" : 獎金明細表_dgv.Rows(I).Cells("獎金").Value = "0"
+            獎金明細表_dgv.Rows(I).Cells("毛利").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value - 獎金明細表_dgv.Rows(I).Cells("成本").Value -
+                                                         獎金明細表_dgv.Rows(I).Cells("運費").Value - 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value -
+                                                         獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value - 獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value
+        Next
+    End Sub
+    Private Sub Set_彙總過度表()
+        過度表_dgv.DataSource = Nothing : ds8.Clear()
+        過度表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        過度表_dgv.ColumnHeadersHeight = 25
+        過度表_dgv.AllowUserToAddRows = False
+        過度表_dgv.RowTemplate.Height = 25
+
+        SQL_業績主表3()
+        da.Fill(ds8) : 過度表_dgv.DataSource = ds8.Tables(0) : conn.Close()
+
+        For I As Integer = 11 To 30 : 過度表_dgv.Columns(I).Visible = False : Next
+
+        過度表_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        過度表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
+        過度表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
+        過度表_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        過度表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        過度表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        過度表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        過度表_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        過度表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        過度表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        過度表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        For I As Integer = 0 To 過度表_dgv.Rows.Count - 1
+            過度表_dgv.Rows(I).Cells("銷貨總額").Value = "0" : 過度表_dgv.Rows(I).Cells("成本").Value = "0" : 過度表_dgv.Rows(I).Cells("運費").Value = "0"
+            過度表_dgv.Rows(I).Cells("稅額(發票)").Value = "0" : 過度表_dgv.Rows(I).Cells("其他(傭金)").Value = "0" : 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value = "0"
+
+            For II As Integer = 0 To 獎金明細表_dgv.Rows.Count - 1
+                If Strings.Left(獎金明細表_dgv.Rows(II).Cells("編號").Value.ToString, 1) = 過度表_dgv.Rows(I).Cells("編號").Value.ToString And
+                   獎金明細表_dgv.Rows(II).Cells("獎金基礎").Value.ToString = 過度表_dgv.Rows(I).Cells("獎金基礎").Value.ToString Then
+                    過度表_dgv.Rows(I).Cells("銷貨總額").Value = 過度表_dgv.Rows(I).Cells("銷貨總額").Value + 獎金明細表_dgv.Rows(II).Cells("銷貨總額").Value
+                    過度表_dgv.Rows(I).Cells("成本").Value = 過度表_dgv.Rows(I).Cells("成本").Value + 獎金明細表_dgv.Rows(II).Cells("成本").Value
+                    過度表_dgv.Rows(I).Cells("運費").Value = 過度表_dgv.Rows(I).Cells("運費").Value + 獎金明細表_dgv.Rows(II).Cells("運費").Value
+                    過度表_dgv.Rows(I).Cells("稅額(發票)").Value = 過度表_dgv.Rows(I).Cells("稅額(發票)").Value + 獎金明細表_dgv.Rows(II).Cells("稅額(發票)").Value
+                    過度表_dgv.Rows(I).Cells("其他(傭金)").Value = 過度表_dgv.Rows(I).Cells("其他(傭金)").Value + 獎金明細表_dgv.Rows(II).Cells("其他(傭金)").Value
+                    過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value = 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value + 獎金明細表_dgv.Rows(II).Cells("手續費(刷卡)").Value
+                End If
+            Next
+        Next
+        For I As Integer = 0 To 過度表_dgv.Rows.Count - 1
+            過度表_dgv.Rows(I).Cells("毛利").Value = "0" : 過度表_dgv.Rows(I).Cells("獎金").Value = "0"
+            過度表_dgv.Rows(I).Cells("毛利").Value = 過度表_dgv.Rows(I).Cells("銷貨總額").Value - 過度表_dgv.Rows(I).Cells("成本").Value - 過度表_dgv.Rows(I).Cells("運費").Value -
+                                                       過度表_dgv.Rows(I).Cells("稅額(發票)").Value - 過度表_dgv.Rows(I).Cells("其他(傭金)").Value - 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value
+
+            Dim 毛利遞減 As Integer = 過度表_dgv.Rows(I).Cells("毛利").Value
+            If 過度表_dgv.Rows(I).Cells("階級1").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級1").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("毛利").Value / 100 * 過度表_dgv.Rows(I).Cells("比例1").Value
+            Else
+                過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                            (過度表_dgv.Rows(I).Cells("階級1").Value / 100 * 過度表_dgv.Rows(I).Cells("比例1").Value)
+                毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級1").Value
+                If 過度表_dgv.Rows(I).Cells("階級2").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級2").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                    過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例2").Value)
+                Else
+                    過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                           ((過度表_dgv.Rows(I).Cells("階級2").Value - 過度表_dgv.Rows(I).Cells("階級1").Value) / 100 * 過度表_dgv.Rows(I).Cells("比例2").Value)
+                    毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級2").Value
+                    If 過度表_dgv.Rows(I).Cells("階級3").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級3").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                        過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例3").Value)
+                    Else
+                        過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                               ((過度表_dgv.Rows(I).Cells("階級3").Value - 過度表_dgv.Rows(I).Cells("階級2").Value) /
+                                                                100 * 過度表_dgv.Rows(I).Cells("比例3").Value)
+                        毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級3").Value
+                        If 過度表_dgv.Rows(I).Cells("階級4").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級4").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                            過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例4").Value)
+                        Else
+                            過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                                   ((過度表_dgv.Rows(I).Cells("階級4").Value - 過度表_dgv.Rows(I).Cells("階級3").Value) /
+                                                                     100 * 過度表_dgv.Rows(I).Cells("比例4").Value)
+                            毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級4").Value
+                            If 過度表_dgv.Rows(I).Cells("階級5").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級5").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                                過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例5").Value)
+                            Else
+                                過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                                       ((過度表_dgv.Rows(I).Cells("階級5").Value - 過度表_dgv.Rows(I).Cells("階級4").Value) /
+                                                                         100 * 過度表_dgv.Rows(I).Cells("比例5").Value)
+                                毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級5").Value
+                                If 過度表_dgv.Rows(I).Cells("階級6").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級6").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                                    過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例6").Value)
+                                Else
+                                    過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                                           ((過度表_dgv.Rows(I).Cells("階級6").Value - 過度表_dgv.Rows(I).Cells("階級5").Value) /
+                                                                             100 * 過度表_dgv.Rows(I).Cells("比例6").Value)
+                                    毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級6").Value
+                                    If 過度表_dgv.Rows(I).Cells("階級7").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級7").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                                        過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例7").Value)
+                                    Else
+                                        過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                                               ((過度表_dgv.Rows(I).Cells("階級7").Value - 過度表_dgv.Rows(I).Cells("階級6").Value) /
+                                                                                 100 * 過度表_dgv.Rows(I).Cells("比例7").Value)
+                                        毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級7").Value
+                                        If 過度表_dgv.Rows(I).Cells("階級8").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級8").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                                            過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例8").Value)
+                                        Else
+                                            過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                                                   ((過度表_dgv.Rows(I).Cells("階級8").Value - 過度表_dgv.Rows(I).Cells("階級7").Value) /
+                                                                                     100 * 過度表_dgv.Rows(I).Cells("比例8").Value)
+                                            毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級8").Value
+                                            If 過度表_dgv.Rows(I).Cells("階級9").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級9").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
+                                                過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例9").Value)
+                                            Else
+                                                過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value +
+                                                                                       ((過度表_dgv.Rows(I).Cells("階級9").Value - 過度表_dgv.Rows(I).Cells("階級8").Value) /
+                                                                                         100 * 過度表_dgv.Rows(I).Cells("比例9").Value)
+                                                毛利遞減 = 過度表_dgv.Rows(I).Cells("毛利").Value - 過度表_dgv.Rows(I).Cells("階級9").Value
+                                                過度表_dgv.Rows(I).Cells("獎金").Value = 過度表_dgv.Rows(I).Cells("獎金").Value + (毛利遞減 / 100 * 過度表_dgv.Rows(I).Cells("比例10").Value)
+                                            End If
+                                        End If
+                                    End If
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        Next
+    End Sub
+    Private Sub Set_彙總主表()
+        獎金彙總_dgv.DataSource = Nothing : ds6.Clear()
+        獎金彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        獎金彙總_dgv.ColumnHeadersHeight = 25
+        獎金彙總_dgv.AllowUserToAddRows = False
+        獎金彙總_dgv.RowTemplate.Height = 25
+
+        SQL_業績主表1()
+        da.Fill(ds6) : 獎金彙總_dgv.DataSource = ds6.Tables(0) : conn.Close()
+        獎金彙總_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        獎金彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
+        獎金彙總_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
+        獎金彙總_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        獎金彙總_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        NUD1.Value = 0 : NUD2.Value = 0 : NUD3.Value = 0 : NUD4.Value = 0 : NUD5.Value = 0
+        For I As Integer = 0 To 獎金彙總_dgv.Rows.Count - 1
+            獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("成本").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("運費").Value = "0"
+            獎金彙總_dgv.Rows(I).Cells("稅額(發票)").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("其他(傭金)").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value = "0"
+            獎金彙總_dgv.Rows(I).Cells("毛利").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("獎金").Value = "0"
+            For II As Integer = 0 To 過度表_dgv.Rows.Count - 1
+                If 過度表_dgv.Rows(II).Cells("姓名").Value.ToString = 獎金彙總_dgv.Rows(I).Cells("姓名").Value.ToString Then
+                    獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value = 獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value + 過度表_dgv.Rows(II).Cells("銷貨總額").Value
+                    獎金彙總_dgv.Rows(I).Cells("成本").Value = 獎金彙總_dgv.Rows(I).Cells("成本").Value + 過度表_dgv.Rows(II).Cells("成本").Value
+                    獎金彙總_dgv.Rows(I).Cells("運費").Value = 獎金彙總_dgv.Rows(I).Cells("運費").Value + 過度表_dgv.Rows(II).Cells("運費").Value
+                    獎金彙總_dgv.Rows(I).Cells("稅額(發票)").Value = 獎金彙總_dgv.Rows(I).Cells("稅額(發票)").Value + 過度表_dgv.Rows(II).Cells("稅額(發票)").Value
+                    獎金彙總_dgv.Rows(I).Cells("其他(傭金)").Value = 獎金彙總_dgv.Rows(I).Cells("其他(傭金)").Value + 過度表_dgv.Rows(II).Cells("其他(傭金)").Value
+                    獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value = 獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value + 過度表_dgv.Rows(II).Cells("手續費(刷卡)").Value
+                    獎金彙總_dgv.Rows(I).Cells("毛利").Value = 獎金彙總_dgv.Rows(I).Cells("毛利").Value + 過度表_dgv.Rows(II).Cells("毛利").Value
+                    獎金彙總_dgv.Rows(I).Cells("獎金").Value = 獎金彙總_dgv.Rows(I).Cells("獎金").Value + 過度表_dgv.Rows(II).Cells("獎金").Value
+                End If
+            Next
+            NUD1.Value = NUD1.Value + 獎金彙總_dgv.Rows(I).Cells("運費").Value
+        Next
+        SQL_業績運費計算_查詢()
+        If dr.Read() Then : NUD2.Value = dr("扣運費").ToString : NUD3.Value = dr("已出未收").ToString : NUD4.Value = dr("代運費").ToString
+        Else : NUD2.Value = 0 : NUD3.Value = 0 : NUD4.Value = 0 : End If
+        NUD5.Value = NUD1.Value - NUD2.Value - NUD3.Value - NUD4.Value
+    End Sub
+    Private Sub 日期格式()
+        '-------------日期一----------------------------------------------------------------------------------------
+        DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+        '-------------日期二----------------------------------------------------------------------------------------
+        DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+        結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+    End Sub
+    Private Sub 計算()
+        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_彙總明細() : Set_彙總過度表() : Set_彙總主表()
+    End Sub
+    Private Sub 業績獎金彙總表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        SQL_銷售控制表_空值修正1() : SQL_銷售控制表_空值修正2()
+        彙總表_bt.Enabled = False : 明細表_bt.Enabled = True : 獎金明細表_dgv.Visible = False : 獎金彙總_dgv.Visible = True
+        日期格式() : 計算()
+
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 8
+        End If
+    End Sub
+    Private Sub 業績獎金彙總表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 8
+        End If
+    End Sub
+    Private Sub NUD2_ValueChanged(sender As Object, e As EventArgs) Handles NUD2.ValueChanged
+        NUD5.Value = NUD1.Value - NUD2.Value - NUD3.Value - NUD4.Value
+    End Sub
+    Private Sub NUD3_ValueChanged(sender As Object, e As EventArgs) Handles NUD3.ValueChanged
+        NUD5.Value = NUD1.Value - NUD2.Value - NUD3.Value - NUD4.Value
+    End Sub
+    Private Sub NUD4_ValueChanged(sender As Object, e As EventArgs) Handles NUD4.ValueChanged
+        NUD5.Value = NUD1.Value - NUD2.Value - NUD3.Value - NUD4.Value
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        SQL_業績運費計算_查詢()
+        If dr.Read() Then
+            SQL_業績運費計算_修正() : MsgBox("修改完成!!!")
+        Else
+            SQL_業績運費計算_新增() : MsgBox("新增完成!!!")
+        End If : conn.Close()
+    End Sub
+    Private Sub 獎金明細表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 獎金明細表_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 獎金明細表_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 獎金明細表_dgv(1, e.RowIndex).Value.ToString <> 獎金明細表_dgv(1, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(獎金明細表_dgv.RowHeadersVisible, 獎金明細表_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 獎金明細表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 獎金明細表_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.Click
+        計算()
+    End Sub
+    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.Click
+        計算()
+    End Sub
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+        中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+        開始日期_dtp.Value = 中間日期_dtp.Value
+        結束日期_dtp.Value = 中間日期_dtp.Value
+        日期格式() : 計算()
+    End Sub
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+        中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+        開始日期_dtp.Value = 中間日期_dtp.Value
+        結束日期_dtp.Value = 中間日期_dtp.Value
+        日期格式() : 計算()
+    End Sub
+    Private Sub 彙總表_bt_Click(sender As Object, e As EventArgs) Handles 彙總表_bt.Click
+        彙總表_bt.Enabled = False : 明細表_bt.Enabled = True : 獎金明細表_dgv.Visible = False : 獎金彙總_dgv.Visible = True
+    End Sub
+    Private Sub 明細表_bt_Click(sender As Object, e As EventArgs) Handles 明細表_bt.Click
+        彙總表_bt.Enabled = True : 明細表_bt.Enabled = False : 獎金明細表_dgv.Visible = True : 獎金彙總_dgv.Visible = False
+    End Sub
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        彙總1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        衍生運費_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        其他_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        外車車資_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        料號一_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        備註運費_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        獎金彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        獎金明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+    Private Sub 列印成EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
+        xlApp = CType(CreateObject("Excel.Application"), Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlBook.Activate()
+        xlSheet = NewMethod(xlBook)
+        xlSheet.Activate()
+        xlApp.Visible = True
+        xlApp.Application.WindowState = xlMaximized
+
+        If 獎金彙總_dgv.Visible = True Then
+            xlSheet.Cells(1, 1) = "雅邸家居" : xlSheet.Cells(2, 1) = "業績獎金彙總表" : xlSheet.Cells(3, 1) = "日期區間:" & 開始日期_dtp.Value & " ~ " & 結束日期_dtp.Value
+            xlSheet.Cells(4, 1) = "編號" : xlSheet.Cells(4, 2) = "業務姓名" : xlSheet.Cells(4, 3) = "銷貨總額" : xlSheet.Cells(4, 4) = "成本" : xlSheet.Cells(4, 5) = "運費"
+            xlSheet.Cells(4, 6) = "稅額(發票)" : xlSheet.Cells(4, 7) = "其他(傭金)" : xlSheet.Cells(4, 8) = "手續費(刷卡)" : xlSheet.Cells(4, 9) = "業績毛利"
+            xlSheet.Cells(4, 10) = "獎金"
+            For I As Integer = 0 To 獎金彙總_dgv.Rows.Count - 1
+                xlSheet.Cells(I + 5, 1) = 獎金彙總_dgv.Rows(I).Cells("編號").Value : xlSheet.Cells(I + 5, 2) = 獎金彙總_dgv.Rows(I).Cells("姓名").Value
+                xlSheet.Cells(I + 5, 3) = 獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value : xlSheet.Cells(I + 5, 4) = 獎金彙總_dgv.Rows(I).Cells("成本").Value
+                xlSheet.Cells(I + 5, 5) = 獎金彙總_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 6) = 獎金彙總_dgv.Rows(I).Cells("稅額(發票)").Value
+                xlSheet.Cells(I + 5, 7) = 獎金彙總_dgv.Rows(I).Cells("其他(傭金)").Value : xlSheet.Cells(I + 5, 8) = 獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value
+                xlSheet.Cells(I + 5, 9) = 獎金彙總_dgv.Rows(I).Cells("毛利").Value : xlSheet.Cells(I + 5, 10) = 獎金彙總_dgv.Rows(I).Cells("獎金").Value
+                N1 = I
+            Next
+        Else
+            xlSheet.Cells(1, 1) = "雅邸家居" : xlSheet.Cells(2, 1) = "業績明細表" : xlSheet.Cells(3, 1) = "日期區間:" & 開始日期_dtp.Value & " ~ " & 結束日期_dtp.Value
+            xlSheet.Cells(4, 1) = "編號" : xlSheet.Cells(4, 2) = "業務姓名" : xlSheet.Cells(4, 3) = "銷貨總額" : xlSheet.Cells(4, 4) = "成本" : xlSheet.Cells(4, 5) = "運費"
+            xlSheet.Cells(4, 6) = "稅額(發票)" : xlSheet.Cells(4, 7) = "其他(傭金)" : xlSheet.Cells(4, 8) = "手續費(刷卡)" : xlSheet.Cells(4, 9) = "業績毛利"
+            xlSheet.Cells(4, 10) = "獎金基礎"
+            For I As Integer = 0 To 獎金明細表_dgv.Rows.Count - 1
+                xlSheet.Cells(I + 5, 1) = 獎金明細表_dgv.Rows(I).Cells("編號").Value : xlSheet.Cells(I + 5, 2) = 獎金明細表_dgv.Rows(I).Cells("姓名").Value
+                xlSheet.Cells(I + 5, 3) = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value : xlSheet.Cells(I + 5, 4) = 獎金明細表_dgv.Rows(I).Cells("成本").Value
+                xlSheet.Cells(I + 5, 5) = 獎金明細表_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 6) = 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value
+                xlSheet.Cells(I + 5, 7) = 獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value : xlSheet.Cells(I + 5, 8) = 獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value
+                xlSheet.Cells(I + 5, 9) = 獎金明細表_dgv.Rows(I).Cells("毛利").Value : xlSheet.Cells(I + 5, 10) = 獎金明細表_dgv.Rows(I).Cells("獎金基礎").Value
+                N1 = I
+            Next
+        End If
+        xlSheet.Cells(N1 + 6, 2) = "合計"
+        xlSheet.Cells(N1 + 6, 3) = "=SUM(C5:C" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 4) = "=SUM(D5:D" & N1 + 5 & ")"
+        xlSheet.Cells(N1 + 6, 5) = "=SUM(E5:E" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 6) = "=SUM(F5:F" & N1 + 5 & ")"
+        xlSheet.Cells(N1 + 6, 7) = "=SUM(G5:G" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 8) = "=SUM(H5:H" & N1 + 5 & ")"
+        xlSheet.Cells(N1 + 6, 9) = "=SUM(I5:I" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 10) = "=SUM(J5:J" & N1 + 5 & ")"
+        xlSheet.Cells(N1 + 7, 3) = "扣運費(上月已結)" : xlSheet.Cells(N1 + 7, 5) = NUD2.Value
+        xlSheet.Cells(N1 + 8, 3) = "已出貨未扣款" : xlSheet.Cells(N1 + 8, 5) = NUD3.Value
+        xlSheet.Cells(N1 + 9, 3) = "代運費" : xlSheet.Cells(N1 + 9, 5) = NUD4.Value
+        xlSheet.Cells(N1 + 10, 3) = "共計" : xlSheet.Cells(N1 + 10, 5) = NUD5.Value
+        BB(xlApp, xlSheet)
+
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        xlSheet.Cells.Select()
+        MsgBox("列印完成。")
+    End Sub
+    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
+        Return CType(xlBook.Worksheets.Add, Worksheet)
+    End Function
+    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Columns("A:A").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+
+        xlSheet.Columns("B:B").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+
+        xlSheet.Range("C4:J4").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 5
+        xlSheet.Range("C5:J" & N1 + 6 & "").Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Range("E" & N1 + 7 & ":E" & N1 + 10 & "").Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Columns("C:J").EntireColumn.AutoFit
+
+        xlSheet.Range("B" & N1 + 7 & ":D" & N1 + 7 & "").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+        xlSheet.Range("B" & N1 + 8 & ":D" & N1 + 8 & "").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+        xlSheet.Range("B" & N1 + 9 & ":D" & N1 + 9 & "").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+        xlSheet.Range("B" & N1 + 10 & ":D" & N1 + 10 & "").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+
+        xlSheet.Range("B" & N1 + 7 & ":D" & N1 + 10 & "").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : End With
+        xlSheet.Range("A1:J1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+        xlSheet.Range("A2:J2").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+        xlSheet.Range("A3:J3").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+        xlSheet.Range("A1:J1").Select()
+        With myExcel.Selection.Font : .Name = "新細明體" : .Size = 24 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontMinor : End With
+
+        xlSheet.Range("A4:J4").Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
+        xlSheet.Range("A3:J3").Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
+        xlSheet.Range("A" & N1 + 5 & ":J" & N1 + 5 & "").Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
+        xlSheet.Range("A" & N1 + 9 & ":E" & N1 + 9 & "").Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
+        myExcel.ActiveWindow.DisplayGridlines = False
+    End Sub
+End Class

YD-ERP-SYS/財務系統管理/營運報表.Designer.vb

@@ -22,19 +22,19 @@ Partial Class 營運報表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.TextBox77 = New System.Windows.Forms.TextBox()
         Me.TextBox78 = New System.Windows.Forms.TextBox()
         Me.TextBox79 = New System.Windows.Forms.TextBox()
@@ -160,6 +160,8 @@ Partial Class 營運報表
         Me.主表_dgv = New System.Windows.Forms.DataGridView()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.計算基礎_ch = New System.Windows.Forms.ComboBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         CType(Me.月12_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.月11_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.月10_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -174,6 +176,7 @@ Partial Class 營運報表
         CType(Me.月1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'TextBox77
@@ -1267,7 +1270,7 @@ Partial Class 營運報表
         Me.Label13.AutoSize = True
         Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label13.Location = New System.Drawing.Point(1777, 3)
+        Me.Label13.Location = New System.Drawing.Point(1817, 3)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(51, 24)
         Me.Label13.TabIndex = 1247
@@ -1278,7 +1281,7 @@ Partial Class 營運報表
         Me.Label12.AutoSize = True
         Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label12.Location = New System.Drawing.Point(1659, 3)
+        Me.Label12.Location = New System.Drawing.Point(1699, 3)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(51, 24)
         Me.Label12.TabIndex = 1246
@@ -1289,7 +1292,7 @@ Partial Class 營運報表
         Me.Label11.AutoSize = True
         Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label11.Location = New System.Drawing.Point(1541, 3)
+        Me.Label11.Location = New System.Drawing.Point(1581, 3)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(51, 24)
         Me.Label11.TabIndex = 1245
@@ -1300,7 +1303,7 @@ Partial Class 營運報表
         Me.Label10.AutoSize = True
         Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label10.Location = New System.Drawing.Point(1423, 3)
+        Me.Label10.Location = New System.Drawing.Point(1463, 3)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(40, 24)
         Me.Label10.TabIndex = 1244
@@ -1311,7 +1314,7 @@ Partial Class 營運報表
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label9.Location = New System.Drawing.Point(1305, 3)
+        Me.Label9.Location = New System.Drawing.Point(1345, 3)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(40, 24)
         Me.Label9.TabIndex = 1243
@@ -1322,7 +1325,7 @@ Partial Class 營運報表
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label8.Location = New System.Drawing.Point(1187, 3)
+        Me.Label8.Location = New System.Drawing.Point(1227, 3)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(40, 24)
         Me.Label8.TabIndex = 1242
@@ -1333,7 +1336,7 @@ Partial Class 營運報表
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label7.Location = New System.Drawing.Point(1069, 3)
+        Me.Label7.Location = New System.Drawing.Point(1109, 3)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(40, 24)
         Me.Label7.TabIndex = 1241
@@ -1344,7 +1347,7 @@ Partial Class 營運報表
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label6.Location = New System.Drawing.Point(951, 3)
+        Me.Label6.Location = New System.Drawing.Point(991, 3)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(40, 24)
         Me.Label6.TabIndex = 1240
@@ -1355,7 +1358,7 @@ Partial Class 營運報表
         Me.Label5.AutoSize = True
         Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label5.Location = New System.Drawing.Point(833, 3)
+        Me.Label5.Location = New System.Drawing.Point(873, 3)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(40, 24)
         Me.Label5.TabIndex = 1239
@@ -1366,7 +1369,7 @@ Partial Class 營運報表
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label4.Location = New System.Drawing.Point(715, 3)
+        Me.Label4.Location = New System.Drawing.Point(755, 3)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(40, 24)
         Me.Label4.TabIndex = 1238
@@ -1377,7 +1380,7 @@ Partial Class 營運報表
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label3.Location = New System.Drawing.Point(597, 3)
+        Me.Label3.Location = New System.Drawing.Point(637, 3)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(40, 24)
         Me.Label3.TabIndex = 1237
@@ -1388,7 +1391,7 @@ Partial Class 營運報表
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label2.Location = New System.Drawing.Point(479, 3)
+        Me.Label2.Location = New System.Drawing.Point(519, 3)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(40, 24)
         Me.Label2.TabIndex = 1236
@@ -1403,10 +1406,9 @@ Partial Class 營運報表
         Me.月12_dgv.Location = New System.Drawing.Point(1781, 28)
         Me.月12_dgv.Name = "月12_dgv"
         Me.月12_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月12_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月12_dgv.RowsDefaultCellStyle = DataGridViewCellStyle40
         Me.月12_dgv.RowTemplate.Height = 24
-        Me.月12_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.月12_dgv.Size = New System.Drawing.Size(116, 720)
         Me.月12_dgv.TabIndex = 1235
         '
@@ -1419,11 +1421,10 @@ Partial Class 營運報表
         Me.月11_dgv.Location = New System.Drawing.Point(1663, 28)
         Me.月11_dgv.Name = "月11_dgv"
         Me.月11_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月11_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月11_dgv.RowsDefaultCellStyle = DataGridViewCellStyle41
         Me.月11_dgv.RowTemplate.Height = 24
-        Me.月11_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月11_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月11_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月11_dgv.TabIndex = 1234
         '
         '月10_dgv
@@ -1435,11 +1436,10 @@ Partial Class 營運報表
         Me.月10_dgv.Location = New System.Drawing.Point(1545, 28)
         Me.月10_dgv.Name = "月10_dgv"
         Me.月10_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月10_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月10_dgv.RowsDefaultCellStyle = DataGridViewCellStyle42
         Me.月10_dgv.RowTemplate.Height = 24
-        Me.月10_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月10_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月10_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月10_dgv.TabIndex = 1233
         '
         '月9_dgv
@@ -1451,11 +1451,10 @@ Partial Class 營運報表
         Me.月9_dgv.Location = New System.Drawing.Point(1427, 28)
         Me.月9_dgv.Name = "月9_dgv"
         Me.月9_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle43
         Me.月9_dgv.RowTemplate.Height = 24
-        Me.月9_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月9_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月9_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月9_dgv.TabIndex = 1232
         '
         '月8_dgv
@@ -1467,11 +1466,10 @@ Partial Class 營運報表
         Me.月8_dgv.Location = New System.Drawing.Point(1309, 28)
         Me.月8_dgv.Name = "月8_dgv"
         Me.月8_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle44
         Me.月8_dgv.RowTemplate.Height = 24
-        Me.月8_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月8_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月8_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月8_dgv.TabIndex = 1231
         '
         '月7_dgv
@@ -1483,11 +1481,10 @@ Partial Class 營運報表
         Me.月7_dgv.Location = New System.Drawing.Point(1191, 28)
         Me.月7_dgv.Name = "月7_dgv"
         Me.月7_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
         Me.月7_dgv.RowTemplate.Height = 24
-        Me.月7_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月7_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月7_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月7_dgv.TabIndex = 1230
         '
         '月6_dgv
@@ -1499,11 +1496,10 @@ Partial Class 營運報表
         Me.月6_dgv.Location = New System.Drawing.Point(1073, 28)
         Me.月6_dgv.Name = "月6_dgv"
         Me.月6_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle46
         Me.月6_dgv.RowTemplate.Height = 24
-        Me.月6_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月6_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月6_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月6_dgv.TabIndex = 1229
         '
         '月5_dgv
@@ -1515,11 +1511,10 @@ Partial Class 營運報表
         Me.月5_dgv.Location = New System.Drawing.Point(955, 28)
         Me.月5_dgv.Name = "月5_dgv"
         Me.月5_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle47
         Me.月5_dgv.RowTemplate.Height = 24
-        Me.月5_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月5_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月5_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月5_dgv.TabIndex = 1228
         '
         '月4_dgv
@@ -1531,11 +1526,10 @@ Partial Class 營運報表
         Me.月4_dgv.Location = New System.Drawing.Point(837, 28)
         Me.月4_dgv.Name = "月4_dgv"
         Me.月4_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle48
         Me.月4_dgv.RowTemplate.Height = 24
-        Me.月4_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月4_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月4_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月4_dgv.TabIndex = 1227
         '
         '月3_dgv
@@ -1547,11 +1541,10 @@ Partial Class 營運報表
         Me.月3_dgv.Location = New System.Drawing.Point(719, 28)
         Me.月3_dgv.Name = "月3_dgv"
         Me.月3_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle49
         Me.月3_dgv.RowTemplate.Height = 24
-        Me.月3_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月3_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月3_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月3_dgv.TabIndex = 1226
         '
         '月2_dgv
@@ -1563,11 +1556,10 @@ Partial Class 營運報表
         Me.月2_dgv.Location = New System.Drawing.Point(601, 28)
         Me.月2_dgv.Name = "月2_dgv"
         Me.月2_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
         Me.月2_dgv.RowTemplate.Height = 24
-        Me.月2_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月2_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月2_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月2_dgv.TabIndex = 1225
         '
         '月1_dgv
@@ -1579,11 +1571,10 @@ Partial Class 營運報表
         Me.月1_dgv.Location = New System.Drawing.Point(483, 28)
         Me.月1_dgv.Name = "月1_dgv"
         Me.月1_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle51
         Me.月1_dgv.RowTemplate.Height = 24
-        Me.月1_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月1_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月1_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月1_dgv.TabIndex = 1224
         '
         '年份_cb
@@ -1616,10 +1607,10 @@ Partial Class 營運報表
         Me.主表_dgv.Location = New System.Drawing.Point(8, 28)
         Me.主表_dgv.Name = "主表_dgv"
         Me.主表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle52
         Me.主表_dgv.RowTemplate.Height = 24
-        Me.主表_dgv.Size = New System.Drawing.Size(473, 720)
+        Me.主表_dgv.Size = New System.Drawing.Size(493, 720)
         Me.主表_dgv.TabIndex = 1221
         '
         '字體大小調整_lb
@@ -1646,11 +1637,35 @@ Partial Class 營運報表
         Me.字體_NUD.TabIndex = 1498
         Me.字體_NUD.Value = New Decimal(New Integer() {77, 0, 0, 65536})
         '
+        '計算基礎_ch
+        '
+        Me.計算基礎_ch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.計算基礎_ch.FormattingEnabled = True
+        Me.計算基礎_ch.Items.AddRange(New Object() {"申請日期", "審核日期"})
+        Me.計算基礎_ch.Location = New System.Drawing.Point(272, 2)
+        Me.計算基礎_ch.Name = "計算基礎_ch"
+        Me.計算基礎_ch.Size = New System.Drawing.Size(93, 24)
+        Me.計算基礎_ch.TabIndex = 1500
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox1.Location = New System.Drawing.Point(8, 754)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(288, 171)
+        Me.PictureBox1.TabIndex = 1501
+        Me.PictureBox1.TabStop = False
+        '
         '營運報表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1900, 929)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.計算基礎_ch)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.TextBox77)
@@ -1794,6 +1809,7 @@ Partial Class 營運報表
         CType(Me.月1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1924,4 +1940,6 @@ Partial Class 營運報表
     Friend WithEvents 主表_dgv As DataGridView
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 計算基礎_ch As ComboBox
+    Friend WithEvents PictureBox1 As PictureBox
 End Class

YD-ERP-SYS/財務系統管理/營運報表.vb

@@ -506,7 +506,7 @@ Public Class 營運報表
         月12_dgv.DataSource = Nothing : ds12.Clear() : 月12_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月12_dgv.ColumnHeadersHeight = 50 : 月12_dgv.AllowUserToAddRows = False
         SQL_營運報表_查詢十二月份清單() : da.Fill(ds12) : 月12_dgv.DataSource = ds12.Tables(0) : conn.Close()
-        月12_dgv.Columns(0).FillWeight = 20 : 月12_dgv.Columns(1).Visible = False : 月12_dgv.Columns(2).Visible = False : 月12_dgv.Columns(3).Visible = False
+        月12_dgv.Columns(0).FillWeight = 30 : 月12_dgv.Columns(1).Visible = False : 月12_dgv.Columns(2).Visible = False : 月12_dgv.Columns(3).Visible = False
         月12_dgv.Columns(4).Visible = False : 月12_dgv.Columns(5).Visible = False : 月12_dgv.Columns(6).Visible = False : 月12_dgv.Columns(7).Visible = False
         月12_dgv.Columns(8).Visible = False : 月12_dgv.Columns(9).FillWeight = 75
         月12_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
@@ -557,11 +557,11 @@ Public Class 營運報表
         Next
         For no As Integer = 64 To 88
             Dim TextBoxOO As TextBox = CType(Me.Controls.Find("TextBox" + no.ToString(), True)(0), TextBox)
-            If Val(TextBoxOO.Text) > 1 Then : TextBoxOO.ForeColor = Color.Blue : ElseIf Val(TextBoxOO.Text) < 1 Then : TextBoxOO.ForeColor = Color.Red : End If
+            If Val(TextBoxOO.Text) > 0 Then : TextBoxOO.ForeColor = Color.Blue : ElseIf Val(TextBoxOO.Text) < 0 Then : TextBoxOO.ForeColor = Color.Red : End If
         Next
     End Sub
     Private Sub 營運報表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        YD_ERP_SYS.WindowState = 2
+        YD_ERP_SYS.WindowState = 2 : 計算基礎_ch.SelectedIndex = 0
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         Dim type0 As Type = 主表_dgv.GetType()
         Dim pi0 As Reflection.PropertyInfo = type0.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
@@ -604,7 +604,8 @@ Public Class 營運報表
         pi12.SetValue(月12_dgv, True, Nothing)
 
         ComboBox1下拉表單資料載入() : 年份_cb.Text = Year(Today)
-        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
+        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
+        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
         Dim FF As Integer = 21
         月1_dgv.RowTemplate.Height = FF : 月2_dgv.RowTemplate.Height = FF : 月3_dgv.RowTemplate.Height = FF
         月4_dgv.RowTemplate.Height = FF : 月5_dgv.RowTemplate.Height = FF : 月6_dgv.RowTemplate.Height = FF
@@ -612,14 +613,20 @@ Public Class 營運報表
         月10_dgv.RowTemplate.Height = FF : 月11_dgv.RowTemplate.Height = FF : 月12_dgv.RowTemplate.Height = FF
         主表_dgv.RowTemplate.Height = FF
     End Sub
+    Private Sub 計算基礎_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 計算基礎_ch.Click
+        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
+        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
+    End Sub
     Private Sub 營運報表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
         YD_ERP_SYS.WindowState = 0
     End Sub
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
-        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
+        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
+        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click
-        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
+        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
+        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
         月1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
@@ -961,7 +968,7 @@ Public Class 營運報表
             Next
         End If
     End Sub
-    Private Sub DataGridView2_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 主表_dgv.Scroll
+    Private Sub 主表_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 主表_dgv.Scroll
         月1_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
         月3_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
         月5_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
@@ -969,4 +976,100 @@ Public Class 營運報表
         月9_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
         月11_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
     End Sub
+    Private Sub 月1_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月1_dgv.Scroll
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月2_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月2_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月3_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月3_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月4_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月4_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月5_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月5_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月6_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月6_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月7_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月7_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月8_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月8_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月9_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月9_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月10_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月10_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月11_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月11_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月12_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月12_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
 End Class

YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.vb

@@ -1,6 +1,4 @@
 Option Strict Off
-Imports System.Data.SqlClient
-Imports System.IO
 Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
 Imports Microsoft.Office.Interop.Excel.Constants
 Imports Microsoft.Office.Interop.Excel.XlBordersIndex
@@ -113,7 +111,6 @@ Public Class 營運成本收支單一覽表
             DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
         Else
             '-------------日期一----------------------------------------------------------------------------------------
-            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
             DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
             DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
@@ -126,7 +123,7 @@ Public Class 營運成本收支單一覽表
         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
         日期格式() : 財務彙總_dgv.Visible = False : 明細_rb.Checked = True
     End Sub
-    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 單據彙總_dgv.CellClick
+    Private Sub 單據彙總_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 單據彙總_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             收支單號_tb.Text = 單據彙總_dgv(0, e.RowIndex).Value.ToString : 驗證碼_tb.Text = 單據彙總_dgv(6, e.RowIndex).Value.ToString
             申請人_tb.Text = 單據彙總_dgv(1, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 單據彙總_dgv(2, e.RowIndex).Value.ToString
@@ -207,7 +204,7 @@ Public Class 營運成本收支單一覽表
             結束日期_dtp.Value = 中間日期_dtp.Value
         Else
             中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
-            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
             結束日期_dtp.Value = 中間日期_dtp.Value
         End If
         日期格式()
@@ -219,7 +216,7 @@ Public Class 營運成本收支單一覽表
             結束日期_dtp.Value = 中間日期_dtp.Value
         Else
             中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
-            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
             結束日期_dtp.Value = 中間日期_dtp.Value
         End If
         日期格式()

YD-ERP-SYS/財務系統管理/營運成本收支單審核.Designer.vb

@@ -43,7 +43,6 @@ Partial Class 營運成本收支單審核
         Me.審核日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.支票_tb = New System.Windows.Forms.TextBox()
         Me.單據作廢ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.簽名圖_pb = New System.Windows.Forms.PictureBox()
         Me.現金_tb = New System.Windows.Forms.TextBox()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
@@ -65,12 +64,13 @@ Partial Class 營運成本收支單審核
         Me.備註_tb = New System.Windows.Forms.TextBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.批量審核_bt = New System.Windows.Forms.Button()
+        Me.簽名圖_pb = New System.Windows.Forms.PictureBox()
         CType(Me.簽名清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '圖片編碼_tb
@@ -246,18 +246,6 @@ Partial Class 營運成本收支單審核
         Me.單據作廢ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
         Me.單據作廢ToolStripMenuItem.Text = "單據作廢"
         '
-        '簽名圖_pb
-        '
-        Me.簽名圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.簽名圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.簽名圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.簽名圖_pb.Location = New System.Drawing.Point(196, 528)
-        Me.簽名圖_pb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
-        Me.簽名圖_pb.Name = "簽名圖_pb"
-        Me.簽名圖_pb.Size = New System.Drawing.Size(176, 70)
-        Me.簽名圖_pb.TabIndex = 989
-        Me.簽名圖_pb.TabStop = False
-        '
         '現金_tb
         '
         Me.現金_tb.Location = New System.Drawing.Point(748, 28)
@@ -440,7 +428,7 @@ Partial Class 營運成本收支單審核
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細_dgv.Location = New System.Drawing.Point(376, 78)
+        Me.明細_dgv.Location = New System.Drawing.Point(381, 76)
         Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
@@ -479,6 +467,18 @@ Partial Class 營運成本收支單審核
         Me.批量審核_bt.Text = "批量審核"
         Me.批量審核_bt.UseVisualStyleBackColor = True
         '
+        '簽名圖_pb
+        '
+        Me.簽名圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.簽名圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.簽名圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.簽名圖_pb.Location = New System.Drawing.Point(196, 528)
+        Me.簽名圖_pb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.簽名圖_pb.Name = "簽名圖_pb"
+        Me.簽名圖_pb.Size = New System.Drawing.Size(176, 70)
+        Me.簽名圖_pb.TabIndex = 989
+        Me.簽名圖_pb.TabStop = False
+        '
         '營運成本收支單審核
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -487,7 +487,6 @@ Partial Class 營運成本收支單審核
         Me.ContextMenuStrip = Me.ContextMenuStrip1
         Me.Controls.Add(Me.批量審核_bt)
         Me.Controls.Add(Me.備註_tb)
-        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.圖片編碼_tb)
@@ -515,21 +514,22 @@ Partial Class 營運成本收支單審核
         Me.Controls.Add(Me.審核通過_bt)
         Me.Controls.Add(Me.作廢的營運成本收支單_rb)
         Me.Controls.Add(Me.未核准的營運成本收支單_rb)
-        Me.Controls.Add(Me.彙總_dgv)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.明細_dgv)
+        Me.Controls.Add(Me.彙總_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "營運成本收支單審核"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
         Me.Text = "營運成本收支單審核"
         CType(Me.簽名清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

YD-ERP-SYS/財務系統管理/營運成本收支單審核.resx

@@ -118,6 +118,9 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
+    <value>17, 5</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>47</value>
   </metadata>
 </root>

YD-ERP-SYS/財務系統管理/營運成本收支單審核.vb

@@ -1,8 +1,6 @@
 Option Strict Off
-Imports System.Data.SqlClient
-Imports System.IO
 Public Class 營運成本收支單審核
-    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    ReadOnly ds, ds1, ds2 As New DataSet
     'Dim dr As SqlDataReader
     Private ReadOnly QQW(11) As String
     Dim WWEE As String : Private II As Integer
@@ -11,10 +9,7 @@ Public Class 營運成本收支單審核
         彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         彙總_dgv.ColumnHeadersHeight = 25
         彙總_dgv.AllowUserToAddRows = False
-
         彙總_dgv.RowTemplate.Height = 30
-        明細_dgv.RowTemplate.Height = 30
-        簽名清單_dgv.RowTemplate.Height = 25
 
         If 未核准的營運成本收支單_rb.Checked = True And 作廢的營運成本收支單_rb.Checked = False Then
             SQL_營運成本收支單審核_審核人1()
@@ -67,6 +62,7 @@ Public Class 營運成本收支單審核
         簽名清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         簽名清單_dgv.ColumnHeadersHeight = 25
         簽名清單_dgv.AllowUserToAddRows = False
+        簽名清單_dgv.RowTemplate.Height = 23
         SQL_營運成本收支單審核_查詢圖片流水號() : da.Fill(ds2) : 簽名清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
 
         簽名清單_dgv.Columns(0).FillWeight = 173 : 簽名清單_dgv.Columns(1).Visible = False
@@ -218,7 +214,7 @@ Public Class 營運成本收支單審核
             營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
             明細_dgv.DataSource = Nothing : ds.Clear()
             Set_清單1() : Set_清單()
-            End If
+        End If
     End Sub
     Private Sub 單據作廢_bt_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
         If 營運成本收支單號_tb.Text = "" Then

YD-ERP-SYS/資料庫系統管理/系統使用者管理.Designer.vb

@@ -22,7 +22,7 @@ Partial Class 系統使用者管理
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.顯示密碼_bt = New System.Windows.Forms.Button()
         Me.修改_bt = New System.Windows.Forms.Button()
         Me.新增_bt = New System.Windows.Forms.Button()
@@ -71,6 +71,7 @@ Partial Class 系統使用者管理
         Me.CheckBox29 = New System.Windows.Forms.CheckBox()
         Me.CheckBox30 = New System.Windows.Forms.CheckBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.CheckBox52 = New System.Windows.Forms.CheckBox()
         Me.CheckBox51 = New System.Windows.Forms.CheckBox()
         Me.CheckBox50 = New System.Windows.Forms.CheckBox()
         Me.CheckBox49 = New System.Windows.Forms.CheckBox()
@@ -97,7 +98,9 @@ Partial Class 系統使用者管理
         Me.Label6 = New System.Windows.Forms.Label()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
-        Me.CheckBox52 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox53 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox54 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox55 = New System.Windows.Forms.CheckBox()
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -230,8 +233,8 @@ Partial Class 系統使用者管理
         '
         '使用者清單_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.使用者清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.使用者清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -284,7 +287,7 @@ Partial Class 系統使用者管理
         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(477, 7)
+        Me.CheckBox1.Location = New System.Drawing.Point(239, 397)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(146, 20)
         Me.CheckBox1.TabIndex = 225
@@ -295,7 +298,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox2.AutoSize = True
         Me.CheckBox2.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox2.Location = New System.Drawing.Point(499, 33)
+        Me.CheckBox2.Location = New System.Drawing.Point(261, 423)
         Me.CheckBox2.Name = "CheckBox2"
         Me.CheckBox2.Size = New System.Drawing.Size(146, 20)
         Me.CheckBox2.TabIndex = 226
@@ -306,7 +309,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox3.AutoSize = True
         Me.CheckBox3.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox3.Location = New System.Drawing.Point(499, 59)
+        Me.CheckBox3.Location = New System.Drawing.Point(261, 449)
         Me.CheckBox3.Name = "CheckBox3"
         Me.CheckBox3.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox3.TabIndex = 227
@@ -317,7 +320,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox4.AutoSize = True
         Me.CheckBox4.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox4.Location = New System.Drawing.Point(499, 85)
+        Me.CheckBox4.Location = New System.Drawing.Point(261, 475)
         Me.CheckBox4.Name = "CheckBox4"
         Me.CheckBox4.Size = New System.Drawing.Size(170, 20)
         Me.CheckBox4.TabIndex = 228
@@ -328,7 +331,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox5.AutoSize = True
         Me.CheckBox5.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox5.Location = New System.Drawing.Point(499, 111)
+        Me.CheckBox5.Location = New System.Drawing.Point(261, 501)
         Me.CheckBox5.Name = "CheckBox5"
         Me.CheckBox5.Size = New System.Drawing.Size(142, 20)
         Me.CheckBox5.TabIndex = 229
@@ -613,6 +616,9 @@ Partial Class 系統使用者管理
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.CheckBox55)
+        Me.Panel1.Controls.Add(Me.CheckBox54)
+        Me.Panel1.Controls.Add(Me.CheckBox53)
         Me.Panel1.Controls.Add(Me.CheckBox52)
         Me.Panel1.Controls.Add(Me.CheckBox51)
         Me.Panel1.Controls.Add(Me.CheckBox50)
@@ -673,6 +679,17 @@ Partial Class 系統使用者管理
         Me.Panel1.Size = New System.Drawing.Size(1014, 703)
         Me.Panel1.TabIndex = 255
         '
+        'CheckBox52
+        '
+        Me.CheckBox52.AutoSize = True
+        Me.CheckBox52.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox52.Location = New System.Drawing.Point(285, 59)
+        Me.CheckBox52.Name = "CheckBox52"
+        Me.CheckBox52.Size = New System.Drawing.Size(110, 20)
+        Me.CheckBox52.TabIndex = 285
+        Me.CheckBox52.Text = "調庫功能-CC52"
+        Me.CheckBox52.UseVisualStyleBackColor = True
+        '
         'CheckBox51
         '
         Me.CheckBox51.AutoSize = True
@@ -698,8 +715,8 @@ Partial Class 系統使用者管理
         'CheckBox49
         '
         Me.CheckBox49.AutoSize = True
-        Me.CheckBox49.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox49.Location = New System.Drawing.Point(285, 500)
+        Me.CheckBox49.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.CheckBox49.Location = New System.Drawing.Point(524, 137)
         Me.CheckBox49.Name = "CheckBox49"
         Me.CheckBox49.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox49.TabIndex = 282
@@ -731,8 +748,8 @@ Partial Class 系統使用者管理
         'CheckBox46
         '
         Me.CheckBox46.AutoSize = True
-        Me.CheckBox46.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox46.Location = New System.Drawing.Point(261, 631)
+        Me.CheckBox46.ForeColor = System.Drawing.Color.Olive
+        Me.CheckBox46.Location = New System.Drawing.Point(500, 292)
         Me.CheckBox46.Name = "CheckBox46"
         Me.CheckBox46.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox46.TabIndex = 279
@@ -742,8 +759,8 @@ Partial Class 系統使用者管理
         'CheckBox45
         '
         Me.CheckBox45.AutoSize = True
-        Me.CheckBox45.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox45.Location = New System.Drawing.Point(261, 605)
+        Me.CheckBox45.ForeColor = System.Drawing.Color.Olive
+        Me.CheckBox45.Location = New System.Drawing.Point(500, 266)
         Me.CheckBox45.Name = "CheckBox45"
         Me.CheckBox45.Size = New System.Drawing.Size(110, 20)
         Me.CheckBox45.TabIndex = 278
@@ -753,8 +770,8 @@ Partial Class 系統使用者管理
         'CheckBox44
         '
         Me.CheckBox44.AutoSize = True
-        Me.CheckBox44.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox44.Location = New System.Drawing.Point(261, 578)
+        Me.CheckBox44.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.CheckBox44.Location = New System.Drawing.Point(500, 215)
         Me.CheckBox44.Name = "CheckBox44"
         Me.CheckBox44.Size = New System.Drawing.Size(181, 20)
         Me.CheckBox44.TabIndex = 277
@@ -764,8 +781,8 @@ Partial Class 系統使用者管理
         'CheckBox43
         '
         Me.CheckBox43.AutoSize = True
-        Me.CheckBox43.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox43.Location = New System.Drawing.Point(261, 552)
+        Me.CheckBox43.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.CheckBox43.Location = New System.Drawing.Point(500, 189)
         Me.CheckBox43.Name = "CheckBox43"
         Me.CheckBox43.Size = New System.Drawing.Size(193, 20)
         Me.CheckBox43.TabIndex = 276
@@ -775,8 +792,8 @@ Partial Class 系統使用者管理
         'CheckBox42
         '
         Me.CheckBox42.AutoSize = True
-        Me.CheckBox42.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox42.Location = New System.Drawing.Point(261, 526)
+        Me.CheckBox42.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.CheckBox42.Location = New System.Drawing.Point(500, 163)
         Me.CheckBox42.Name = "CheckBox42"
         Me.CheckBox42.Size = New System.Drawing.Size(182, 20)
         Me.CheckBox42.TabIndex = 275
@@ -786,8 +803,8 @@ Partial Class 系統使用者管理
         'CheckBox41
         '
         Me.CheckBox41.AutoSize = True
-        Me.CheckBox41.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox41.Location = New System.Drawing.Point(261, 474)
+        Me.CheckBox41.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.CheckBox41.Location = New System.Drawing.Point(500, 111)
         Me.CheckBox41.Name = "CheckBox41"
         Me.CheckBox41.Size = New System.Drawing.Size(170, 20)
         Me.CheckBox41.TabIndex = 274
@@ -797,8 +814,8 @@ Partial Class 系統使用者管理
         'CheckBox40
         '
         Me.CheckBox40.AutoSize = True
-        Me.CheckBox40.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox40.Location = New System.Drawing.Point(261, 448)
+        Me.CheckBox40.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.CheckBox40.Location = New System.Drawing.Point(500, 85)
         Me.CheckBox40.Name = "CheckBox40"
         Me.CheckBox40.Size = New System.Drawing.Size(170, 20)
         Me.CheckBox40.TabIndex = 273
@@ -808,8 +825,8 @@ Partial Class 系統使用者管理
         'CheckBox39
         '
         Me.CheckBox39.AutoSize = True
-        Me.CheckBox39.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox39.Location = New System.Drawing.Point(261, 422)
+        Me.CheckBox39.ForeColor = System.Drawing.Color.Olive
+        Me.CheckBox39.Location = New System.Drawing.Point(500, 241)
         Me.CheckBox39.Name = "CheckBox39"
         Me.CheckBox39.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox39.TabIndex = 272
@@ -819,7 +836,7 @@ Partial Class 系統使用者管理
         'CheckBox38
         '
         Me.CheckBox38.AutoSize = True
-        Me.CheckBox38.Location = New System.Drawing.Point(239, 396)
+        Me.CheckBox38.Location = New System.Drawing.Point(477, 7)
         Me.CheckBox38.Name = "CheckBox38"
         Me.CheckBox38.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox38.TabIndex = 271
@@ -906,7 +923,7 @@ Partial Class 系統使用者管理
         'Label10
         '
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(666, 2)
+        Me.Label10.Location = New System.Drawing.Point(689, 2)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(11, 640)
         Me.Label10.TabIndex = 259
@@ -959,16 +976,38 @@ Partial Class 系統使用者管理
         Me.字體_NUD.TabIndex = 1494
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
-        'CheckBox52
-        '
-        Me.CheckBox52.AutoSize = True
-        Me.CheckBox52.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox52.Location = New System.Drawing.Point(285, 59)
-        Me.CheckBox52.Name = "CheckBox52"
-        Me.CheckBox52.Size = New System.Drawing.Size(110, 20)
-        Me.CheckBox52.TabIndex = 285
-        Me.CheckBox52.Text = "調庫功能-CC52"
-        Me.CheckBox52.UseVisualStyleBackColor = True
+        'CheckBox53
+        '
+        Me.CheckBox53.AutoSize = True
+        Me.CheckBox53.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox53.Location = New System.Drawing.Point(500, 33)
+        Me.CheckBox53.Name = "CheckBox53"
+        Me.CheckBox53.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox53.TabIndex = 286
+        Me.CheckBox53.Text = "業績獎金彙總表-CC53"
+        Me.CheckBox53.UseVisualStyleBackColor = True
+        '
+        'CheckBox54
+        '
+        Me.CheckBox54.AutoSize = True
+        Me.CheckBox54.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox54.Location = New System.Drawing.Point(500, 59)
+        Me.CheckBox54.Name = "CheckBox54"
+        Me.CheckBox54.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox54.TabIndex = 287
+        Me.CheckBox54.Text = "業績單據完單設定-CC54"
+        Me.CheckBox54.UseVisualStyleBackColor = True
+        '
+        'CheckBox55
+        '
+        Me.CheckBox55.AutoSize = True
+        Me.CheckBox55.ForeColor = System.Drawing.Color.Olive
+        Me.CheckBox55.Location = New System.Drawing.Point(501, 318)
+        Me.CheckBox55.Name = "CheckBox55"
+        Me.CheckBox55.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox55.TabIndex = 288
+        Me.CheckBox55.Text = "業務獎金計算基礎-CC55"
+        Me.CheckBox55.UseVisualStyleBackColor = True
         '
         '系統使用者管理
         '
@@ -1083,4 +1122,7 @@ Partial Class 系統使用者管理
     Friend WithEvents CheckBox50 As CheckBox
     Friend WithEvents CheckBox51 As CheckBox
     Friend WithEvents CheckBox52 As CheckBox
+    Friend WithEvents CheckBox55 As CheckBox
+    Friend WithEvents CheckBox54 As CheckBox
+    Friend WithEvents CheckBox53 As CheckBox
 End Class