20220302備份

GA-ERP-SYS/LoginForm1.Designer.vb

         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
         Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
         Me.使用者帳號_cb = New System.Windows.Forms.TextBox()
+        Me.Timer4 = New System.Windows.Forms.Timer(Me.components)
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.簡易登入_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.使用者帳號_cb.Size = New System.Drawing.Size(201, 23)
         Me.使用者帳號_cb.TabIndex = 685
         '
+        'Timer4
+        '
+        '
         'LoginForm1
         '
         Me.AcceptButton = Me.確認_bt
     Friend WithEvents Timer2 As Timer
     Friend WithEvents Timer3 As Timer
     Friend WithEvents 使用者帳號_cb As TextBox
+    Friend WithEvents Timer4 As Timer
 End Class

GA-ERP-SYS/LoginForm1.resx

   <metadata name="Timer3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>616, 17</value>
   </metadata>
+  <metadata name="Timer4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>708, 17</value>
+  </metadata>
 </root>

GA-ERP-SYS/LoginForm1.vb

             Timer1.Enabled = True
         End If
         使用者帳號_cb.ImeMode = 3
+        Timer4.Enabled = True
     End Sub
     Private Sub FTP登入()
         SQL_FTP伺服器登入位置()
     Private Sub 使用者帳號_cb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 使用者帳號_cb.GotFocus
         使用者帳號_cb.ImeMode = 2
     End Sub
+    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
+        Dim 已開啟 As Boolean
+        Dim Strs As String = Application.StartupPath
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\SYS-UPDATE.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("SYS-UPDATE").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then : Else
+                If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop + "\C.txt") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop + "\C.txt") : End If
+                If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop + "\SYS-UPDATE.exe") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop + "\SYS-UPDATE.exe") : End If
+                Timer4.Enabled = False
+            End If
+        ElseIf File.Exists(Strs & "\SYS-UPDATE.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("SYS-UPDATE").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then : Else
+                If File.Exists(Strs + "\C.txt") Then : File.Delete(Strs + "\C.txt") : End If
+                If File.Exists(Strs + "\SYS-UPDATE.exe") Then : File.Delete(Strs + "\SYS-UPDATE.exe") : End If
+                Timer4.Enabled = False
+            End If
+        End If
+    End Sub
 End Class

GA-ERP-SYS/Module/SQL_子系統管理.vb

                                   WHERE (主帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_系統編碼規則_商客修改_特定帳號()
+    Friend Sub SQL_系統編碼規則_商客修改2()
         ConnOpen_子SQL()
         SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "', 上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "',
-                                          帳號 = N'" & PA4 & "', 密碼 = N'" & PA5 & "' ,上行基數 = N'" & PA6 & "' ,下行基數 = N'" & PA7 & "', 驗證 = N'          ', 
-                                          主帳號 = N'" & PA4 & "'
+                                          帳號 = N'" & PA4 & "', 密碼 = N'" & PA5 & "' ,上行基數 = N'" & PA6 & "' ,下行基數 = N'" & PA7 & "', 驗證 = N'          '
                                   WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_系統編碼規則_商客修改_特定帳號()
+        ConnOpen_子SQL()
+        SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "', 上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "',
+                                          帳號 = N'" & PA4 & "', 密碼 = N'" & PA5 & "' ,上行基數 = N'" & PA6 & "' ,下行基數 = N'" & PA7 & "', 驗證 = N'          ' 
+                WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "' AND 主帳號 LIKE N'" & PA13 & "')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_下拉商品清單讀取()
         ConnOpen_子SQL() : SQL1 = "SELECT 編號, 商品, 層級 FROM 商品資料表 WHERE 系統 LIKE N'" & PA42 & "'  ORDER BY 商品, 層級, 編號" : CmdSet_For_dr()
     End Sub
                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN
                            商品資料表 ON 下行客戶.網址 = 商品資料表.網址
                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 
-                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.客名 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
+                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 下行客戶.水差另算, 商品資料表.商品"
         CmdSet_For_DGV()
     End Sub
                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN
                            商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)
                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 
-                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.客名 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
+                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 流水帳.帳戶, 下行客戶.水差另算, 商品資料表.商品
                 ORDER BY   商品資料表.商品"
         CmdSet_For_DGV()
                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN
                            商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)
                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 
-                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.客名 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
+                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 流水帳.帳戶, 下行客戶.水差另算, 商品資料表.商品, 下行客戶.客戶下
                 ORDER BY   商品資料表.商品"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_客戶下資料表()
         ConnOpen_子SQL()
-        SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 客名 AS 客戶名稱, 計算, 同帳, 所得, 下層, 基數, 流水號, 所得另算, 水差另算  FROM 下行客戶"
+        SQL1 = "SELECT  下行客戶.客戶下 AS 客戶帳號, 下行客戶.網址, 下行客戶.帳號, 下行客戶.客名 AS 客戶名稱, 下行客戶.計算, 
+                        下行客戶.同帳, 下行客戶.所得, 下行客戶.下層, 下行客戶.基數, 下行客戶.流水號, 下行客戶.所得另算, 
+                        下行客戶.水差另算, 商品資料表.備用網址
+                FROM    下行客戶 INNER JOIN
+                        商品資料表 ON 下行客戶.網址 = 商品資料表.網址"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_股東紅利彙總表()
-        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, SUM(紅利) AS 總股, SUM(紅利) AS 總所得 FROM 電板股東紅利設定 GROUP BY 所得戶" : CmdSet_For_DGV()
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, SUM(ABS(紅利)) AS 總股, SUM(紅利) AS 總所得 FROM 電板股東紅利設定 GROUP BY 所得戶" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_股東紅利明細表()
         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 總股份, 紅利 AS 股份, 紅利 FROM 電板股東紅利設定 ORDER BY 所得戶, 股東" : CmdSet_For_DGV()
         ConnOpen_子SQL() : SQL1 = "SELECT 水差另算 AS 水差, 水差另算 AS 交割金額, 水差另算 AS [交割金額.] FROM 下行客戶 GROUP BY 水差另算" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_水差名出帳()
-        ConnOpen_子SQL() : SQL1 = "SELECT 客名 AS 水差, 客名 AS 交割金額, 客名 AS [交割金額.] FROM 下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 客名" : CmdSet_For_DGV()
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 水差, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 所得另算" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_上下層核帳()
         ConnOpen_子SQL()

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

     '------------------------------------客戶租用資料----------------------------------------------
     Friend Sub SQL_系統使用者()
         ConnOpen()
-        SQL1 = "SELECT 備註 AS 項次, 備註 AS 租用者, 帳號, 到期日, CC20 AS 有USBKey FROM 使用者權限管理表 WHERE (主客戶 NOT LIKE 'NA') AND (主客戶 NOT LIKE 'TEST%') ORDER BY   主客戶"
+        SQL1 = "SELECT 備註 AS 項次, 備註 AS 租用者, 帳號, 到期日, CC20 AS [KEY], 登入時間 FROM 使用者權限管理表 WHERE (主客戶 NOT LIKE 'NA') AND (主客戶 NOT LIKE 'TEST%') ORDER BY   主客戶"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_租用帳務()
         ConnOpen()
-        SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') ORDER BY 帳號, 到期日 DESC"
+        If 租用者帳務表.帳號_tb.Text = "" Then : 租用者帳務表.帳號_tb.Text = "%%" : End If
+        If 租用者帳務表.試用不計_ch.Checked = False Then
+            SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 
+                WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') ORDER BY 帳號, 到期日 DESC"
+        Else
+            SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 
+                WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND 費用 <> 0 ORDER BY 帳號, 到期日 DESC"
+        End If
+        If 租用者帳務表.帳號_tb.Text = "%%" Then : 租用者帳務表.帳號_tb.Text = "" : End If
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_租用帳務新增()

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

     Public 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 登入客戶, 登入資料庫, 業務名稱, AA(99), QA1, QA2, QA3, QA4 As String
     Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022020301"
+    Public 版本 As String = "2022022401"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入 As Boolean

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

-0104b6024e287911de89dea5d8e71ad726622102
+3fcd9b16cdb84f1940cbbcab72bc6a0d3f1ebe56

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

 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.下拉清單_1.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址整合功能.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.空白帳戶設定.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe.config
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.pdb
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.xml
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.dll
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\itextsharp.dll
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.xml
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbprojAssemblyReference.cache
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.ResolveComReference.cache
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.下拉清單_1.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址帳號驗證中.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板客戶名稱編輯器.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽2.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.列印選擇.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.客戶資料.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳號資料.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務明細查詢表.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.空白帳戶設定.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.設定異常表.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.進度條視窗.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板紙板帳務設定.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統公告.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.錯誤排除手冊.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LOG檔.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務彙總計算表.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.GA_ERP_SYS.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LoginForm1.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.Resources.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.SplashScreen1.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.USB_KEY_指定.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.商客資料導入.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板基本資料.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳手動輸入.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳自動導入.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.FTP資料夾管理.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.人員ID卡系統配置設定.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.個人帳號管理.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PY執行錯誤LOG檔.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽1.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.測試.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.租用者帳務表.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統使用者管理.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統執行檔版本管理.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統編碼規則.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統通用變數管理.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址整合功能.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.計算機.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.資料備份轉移.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板股東紅利設定.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.輸入密碼.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.GenerateResource.cache
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CoreCompileInputs.cache
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CopyComplete
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb

GA-ERP-SYS/基本資料管理/電板基本資料.Designer.vb

     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.備用網址1_ch = New System.Windows.Forms.CheckBox()
         Me.備用_cb = New System.Windows.Forms.ComboBox()
         '
         '基數_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.基數_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.基數_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         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)
         '
         '資料_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         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)
         '
         'LOG1_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.LOG1_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.LOG1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         'LOG2_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         Me.LOG2_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)

GA-ERP-SYS/基本資料管理/電板基本資料.vb

             ElseIf Strings.Mid(商客1_dgv.Rows(e.RowIndex).Cells("資料").Value.ToString, 4, 2) = "會員" Then : 資料2_cb.Text = "會員" : End If
 
             帳號0_tb.Text = 商客1_dgv("帳號", e.RowIndex).Value.ToString : 上繳源1_cb.Text = 商客1_dgv("上繳源", e.RowIndex).Value.ToString
-            狀態1_tb.Text = 商客1_dgv("下線", e.RowIndex).Value.ToString : 帳號1_tb.Text = 商客_dgv("帳號", e.RowIndex).Value.ToString
-            網址1_tb.Text = 商客_dgv("網址", e.RowIndex).Value.ToString
+            狀態1_tb.Text = 商客1_dgv("下線", e.RowIndex).Value.ToString : 帳號1_tb.Text = 商客1_dgv("帳號", e.RowIndex).Value.ToString
+            網址1_tb.Text = 商客1_dgv("網址", e.RowIndex).Value.ToString
             PA1 = 商客1_dgv("網址", e.RowIndex).Value.ToString : PA2 = 商客1_dgv("商品", e.RowIndex).Value.ToString
             SQL_商品讀取()
             If dr.Read() Then
                     MsgBox("資料沒有完整，請重新檢查")
                 Else
                     PA2 = 網址_tb.Text : PA3 = 上繳源1_cb.Text : PA4 = 帳號0_tb.Text : PA5 = "" : PA6 = 上行_cb.Text : PA12 = 備用網址1_tb.Text
-                    PA7 = 下行_cb.Text : PA8 = 資料_cb.Text : PA9 = 商品_cb.Text : PA10 = 帳號1_tb.Text : PA11 = 網址1_tb.Text
+                    PA7 = 下行_cb.Text : PA8 = 資料_cb.Text : PA9 = 商品_cb.Text : PA10 = 帳號1_tb.Text : PA11 = 網址1_tb.Text : PA13 = 帳號_tb.Text
                     SQL_系統編碼規則_商客修改_特定帳號() : MsgBox("修改完成") : conn.Close() : dr.Close() : PA9 = ""
                     PA1 = "" : PA = "" : Set_商客清單() : Set_商客清單_指定帳號() : Set_客戶下清單() : Set_商品下拉讀取1()
                     PA1 = 客戶名稱_cb.Text

GA-ERP-SYS/報表系統管理/帳務彙總計算表.Designer.vb

     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle60 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle61 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle62 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle63 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle85 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle86 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle87 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle88 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle89 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle90 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle91 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle92 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle93 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle94 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle95 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle96 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle97 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle98 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle99 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle100 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle101 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle102 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle103 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle104 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle105 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle106 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle107 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle108 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle109 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle110 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()
+        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 DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        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()
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle36 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 DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle39 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 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()
+        Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.資料_cb = New System.Windows.Forms.ComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
         '
         '流水帳_dgv
         '
-        DataGridViewCellStyle56.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, 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) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle57.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle57.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle57.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle57.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle57.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle57.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.彙總_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle57
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.彙總_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle58.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle58.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle58.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle58.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle58.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle58.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle58.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.彙總_dgv.DefaultCellStyle = DataGridViewCellStyle58
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.彙總_dgv.DefaultCellStyle = DataGridViewCellStyle3
         Me.彙總_dgv.Location = New System.Drawing.Point(4, 29)
         Me.彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle59.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle59
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總_dgv.RowTemplate.Height = 24
         Me.彙總_dgv.Size = New System.Drawing.Size(601, 912)
         Me.彙總_dgv.TabIndex = 1521
         '
         '彙總1_dgv
         '
-        DataGridViewCellStyle60.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle60
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         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.上繳合帳_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.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle61.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle61.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle61.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle61.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle61.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle61.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle61.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.上繳合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle61
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.上繳合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
         Me.上繳合帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle62.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle62.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle62.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle62.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle62.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle62.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle62.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.上繳合帳_dgv.DefaultCellStyle = DataGridViewCellStyle62
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.上繳合帳_dgv.DefaultCellStyle = DataGridViewCellStyle7
         Me.上繳合帳_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.上繳合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.上繳合帳_dgv.Name = "上繳合帳_dgv"
         Me.上繳合帳_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle63.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.上繳合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle63
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.上繳合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.上繳合帳_dgv.RowTemplate.Height = 24
         Me.上繳合帳_dgv.Size = New System.Drawing.Size(280, 476)
         Me.上繳合帳_dgv.TabIndex = 1535
         '
         '客戶下_dgv
         '
-        DataGridViewCellStyle64.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle64
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         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)
         '
         'LOG1_dgv
         '
-        DataGridViewCellStyle65.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle65
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
         Me.LOG1_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.LOG1_dgv.BackgroundColor = System.Drawing.Color.White
         '
         'LOG2_dgv
         '
-        DataGridViewCellStyle66.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle66
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.LOG2_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)
         '
         '日期_dgv
         '
-        DataGridViewCellStyle67.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle67
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
         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.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得合帳_dgv.Name = "所得合帳_dgv"
         Me.所得合帳_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle68.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.所得合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle68
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.所得合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
         Me.所得合帳_dgv.RowTemplate.Height = 24
         Me.所得合帳_dgv.Size = New System.Drawing.Size(280, 270)
         Me.所得合帳_dgv.TabIndex = 1579
         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.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle69.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle69.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.下收合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle69
+        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.下收合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14
         Me.下收合帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle70.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle70.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle70.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle70.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle70.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle70.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle70.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.下收合帳_dgv.DefaultCellStyle = DataGridViewCellStyle70
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.下收合帳_dgv.DefaultCellStyle = DataGridViewCellStyle15
         Me.下收合帳_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.下收合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.下收合帳_dgv.Name = "下收合帳_dgv"
         Me.下收合帳_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle71.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.下收合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle71
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.下收合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.下收合帳_dgv.RowTemplate.Height = 24
         Me.下收合帳_dgv.Size = New System.Drawing.Size(280, 476)
         Me.下收合帳_dgv.TabIndex = 1588
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.水差合帳_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.水差合帳_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle72.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle72.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle72.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle72.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle72.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle72.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle72.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.水差合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle72
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.水差合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
         Me.水差合帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle73.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle73.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle73.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle73.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle73.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle73.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle73.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.水差合帳_dgv.DefaultCellStyle = DataGridViewCellStyle73
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.水差合帳_dgv.DefaultCellStyle = DataGridViewCellStyle18
         Me.水差合帳_dgv.Location = New System.Drawing.Point(-1, 140)
         Me.水差合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.水差合帳_dgv.Name = "水差合帳_dgv"
         Me.水差合帳_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle74.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle74
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle19
         Me.水差合帳_dgv.RowTemplate.Height = 24
         Me.水差合帳_dgv.Size = New System.Drawing.Size(280, 103)
         Me.水差合帳_dgv.TabIndex = 1589
         Me.合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.合帳_dgv.Name = "合帳_dgv"
         Me.合帳_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle75.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle75
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
         Me.合帳_dgv.RowTemplate.Height = 24
         Me.合帳_dgv.Size = New System.Drawing.Size(601, 912)
         Me.合帳_dgv.TabIndex = 1676
         Me.上繳名_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.上繳名_dgv.Name = "上繳名_dgv"
         Me.上繳名_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle76.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.上繳名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle76
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.上繳名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle21
         Me.上繳名_dgv.RowTemplate.Height = 24
         Me.上繳名_dgv.Size = New System.Drawing.Size(182, 334)
         Me.上繳名_dgv.TabIndex = 1677
         Me.下收名_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.下收名_dgv.Name = "下收名_dgv"
         Me.下收名_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle77.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.下收名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle77
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.下收名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
         Me.下收名_dgv.RowTemplate.Height = 24
         Me.下收名_dgv.Size = New System.Drawing.Size(182, 573)
         Me.下收名_dgv.TabIndex = 1678
         Me.所得名_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得名_dgv.Name = "所得名_dgv"
         Me.所得名_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle78.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.所得名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle78
+        DataGridViewCellStyle23.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.所得名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle23
         Me.所得名_dgv.RowTemplate.Height = 24
         Me.所得名_dgv.Size = New System.Drawing.Size(182, 334)
         Me.所得名_dgv.TabIndex = 1679
         Me.水差名_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.水差名_dgv.Name = "水差名_dgv"
         Me.水差名_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle79.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle79
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
         Me.水差名_dgv.RowTemplate.Height = 24
         Me.水差名_dgv.Size = New System.Drawing.Size(154, 107)
         Me.水差名_dgv.TabIndex = 1680
         Me.水差名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.水差名1_dgv.Name = "水差名1_dgv"
         Me.水差名1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle80.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle80
+        DataGridViewCellStyle25.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle25
         Me.水差名1_dgv.RowTemplate.Height = 24
-        Me.水差名1_dgv.Size = New System.Drawing.Size(154, 463)
+        Me.水差名1_dgv.Size = New System.Drawing.Size(154, 465)
         Me.水差名1_dgv.TabIndex = 1684
         '
         '紅利總表_dgv
         Me.紅利總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利總表_dgv.Name = "紅利總表_dgv"
         Me.紅利總表_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle81.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle81
+        DataGridViewCellStyle26.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
         Me.紅利總表_dgv.RowTemplate.Height = 24
         Me.紅利總表_dgv.Size = New System.Drawing.Size(210, 573)
         Me.紅利總表_dgv.TabIndex = 1683
         Me.紅利分表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利分表_dgv.Name = "紅利分表_dgv"
         Me.紅利分表_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle82.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利分表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle82
+        DataGridViewCellStyle27.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利分表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle27
         Me.紅利分表_dgv.RowTemplate.Height = 24
         Me.紅利分表_dgv.Size = New System.Drawing.Size(365, 334)
         Me.紅利分表_dgv.TabIndex = 1682
         Me.所得名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得名1_dgv.Name = "所得名1_dgv"
         Me.所得名1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle83.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.所得名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle83
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.所得名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
         Me.所得名1_dgv.RowTemplate.Height = 24
         Me.所得名1_dgv.Size = New System.Drawing.Size(182, 573)
         Me.所得名1_dgv.TabIndex = 1681
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.水差合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.水差合帳2_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle84.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle84.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle84.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle84.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle84.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle84.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle84.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.水差合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle84
+        DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle29.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle29.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.水差合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle29
         Me.水差合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle85.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle85.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle85.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle85.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle85.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle85.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle85.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.水差合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle85
+        DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle30.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.水差合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle30
         Me.水差合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.水差合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.水差合帳2_dgv.Name = "水差合帳2_dgv"
         Me.水差合帳2_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle86.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle86
+        DataGridViewCellStyle31.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle31
         Me.水差合帳2_dgv.RowTemplate.Height = 24
         Me.水差合帳2_dgv.Size = New System.Drawing.Size(280, 353)
         Me.水差合帳2_dgv.TabIndex = 1699
         Me.水差合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.水差合帳1_dgv.Name = "水差合帳1_dgv"
         Me.水差合帳1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle87.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle87
+        DataGridViewCellStyle32.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle32
         Me.水差合帳1_dgv.RowTemplate.Height = 24
         Me.水差合帳1_dgv.Size = New System.Drawing.Size(280, 110)
         Me.水差合帳1_dgv.TabIndex = 1698
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.所得合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.所得合帳2_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle88.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle88.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle88.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle88.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle88.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle88.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle88.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.所得合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle88
+        DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle33.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle33.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.所得合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33
         Me.所得合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle89.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle89.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle89.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle89.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle89.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle89.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle89.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.所得合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle89
+        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle34.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.所得合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle34
         Me.所得合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.所得合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得合帳2_dgv.Name = "所得合帳2_dgv"
         Me.所得合帳2_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle90.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.所得合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle90
+        DataGridViewCellStyle35.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.所得合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle35
         Me.所得合帳2_dgv.RowTemplate.Height = 24
         Me.所得合帳2_dgv.Size = New System.Drawing.Size(280, 353)
         Me.所得合帳2_dgv.TabIndex = 1630
         Me.所得合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得合帳1_dgv.Name = "所得合帳1_dgv"
         Me.所得合帳1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle91.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.所得合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle91
+        DataGridViewCellStyle36.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.所得合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle36
         Me.所得合帳1_dgv.RowTemplate.Height = 24
         Me.所得合帳1_dgv.Size = New System.Drawing.Size(280, 84)
         Me.所得合帳1_dgv.TabIndex = 1629
         '
         'SplitContainer1.Panel1
         '
-        Me.SplitContainer1.Panel1.Controls.Add(Me.紅利整合_dgv)
         Me.SplitContainer1.Panel1.Controls.Add(Me.股份表一_tb)
         Me.SplitContainer1.Panel1.Controls.Add(Me.股份表二_tb)
         Me.SplitContainer1.Panel1.Controls.Add(Me.紅利支出_dgv)
         Me.SplitContainer1.Panel1.Controls.Add(Me.紅利收入_dgv)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.紅利整合_dgv)
         '
         'SplitContainer1.Panel2
         '
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.紅利整合_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.紅利整合_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle92.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle92.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle92.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle92.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle92.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle92.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle92.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle92
+        DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle43.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
         Me.紅利整合_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle93.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle93.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle93.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle93.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle93.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle93.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle93.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle93
+        DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle44.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle44.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle44
         Me.紅利整合_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.紅利整合_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利整合_dgv.Name = "紅利整合_dgv"
         Me.紅利整合_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle94.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle94
+        DataGridViewCellStyle45.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
         Me.紅利整合_dgv.RowTemplate.Height = 24
         Me.紅利整合_dgv.Size = New System.Drawing.Size(170, 476)
         Me.紅利整合_dgv.TabIndex = 1695
         '
         '紅利支出_dgv
         '
-        Me.紅利支出_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
+        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.BackgroundColor = System.Drawing.Color.White
         Me.紅利支出_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
-        DataGridViewCellStyle95.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle95.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle95.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle95.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle95.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle95.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle95.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紅利支出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle95
+        DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle37.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle37.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紅利支出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle37
         Me.紅利支出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle96.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle96.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle96.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle96.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle96.SelectionBackColor = System.Drawing.Color.Gainsboro
-        DataGridViewCellStyle96.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle96.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紅利支出_dgv.DefaultCellStyle = DataGridViewCellStyle96
+        DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle38.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle38.SelectionBackColor = System.Drawing.Color.Gainsboro
+        DataGridViewCellStyle38.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紅利支出_dgv.DefaultCellStyle = DataGridViewCellStyle38
         Me.紅利支出_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.紅利支出_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利支出_dgv.Name = "紅利支出_dgv"
         Me.紅利支出_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle97.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle97
+        DataGridViewCellStyle39.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle39
         Me.紅利支出_dgv.RowTemplate.Height = 24
-        Me.紅利支出_dgv.Size = New System.Drawing.Size(170, 324)
+        Me.紅利支出_dgv.Size = New System.Drawing.Size(170, 155)
         Me.紅利支出_dgv.TabIndex = 1693
         '
         '紅利收入_dgv
         Me.紅利收入_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.紅利收入_dgv.BackgroundColor = System.Drawing.Color.White
         Me.紅利收入_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
-        DataGridViewCellStyle98.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle98.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle98.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle98.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle98.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle98.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle98.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紅利收入_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle98
+        DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle40.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle40.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紅利收入_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
         Me.紅利收入_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle99.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle99.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle99.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle99.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle99.SelectionBackColor = System.Drawing.Color.Gainsboro
-        DataGridViewCellStyle99.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle99.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紅利收入_dgv.DefaultCellStyle = DataGridViewCellStyle99
+        DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle41.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle41.SelectionBackColor = System.Drawing.Color.Gainsboro
+        DataGridViewCellStyle41.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紅利收入_dgv.DefaultCellStyle = DataGridViewCellStyle41
         Me.紅利收入_dgv.Location = New System.Drawing.Point(-1, 153)
         Me.紅利收入_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利收入_dgv.Name = "紅利收入_dgv"
         Me.紅利收入_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle100.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利收入_dgv.RowsDefaultCellStyle = DataGridViewCellStyle100
+        DataGridViewCellStyle42.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利收入_dgv.RowsDefaultCellStyle = DataGridViewCellStyle42
         Me.紅利收入_dgv.RowTemplate.Height = 24
         Me.紅利收入_dgv.Size = New System.Drawing.Size(170, 322)
         Me.紅利收入_dgv.TabIndex = 1694
         Me.紙帳前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.紙帳前期_dgv.BackgroundColor = System.Drawing.Color.White
         Me.紙帳前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle101.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle101.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle101.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle101.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle101.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle101.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle101.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紙帳前期_dgv.DefaultCellStyle = DataGridViewCellStyle101
+        DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle46.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle46.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紙帳前期_dgv.DefaultCellStyle = DataGridViewCellStyle46
         Me.紙帳前期_dgv.Location = New System.Drawing.Point(-1, 302)
         Me.紙帳前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紙帳前期_dgv.Name = "紙帳前期_dgv"
         Me.紙帳前期_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle102.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紙帳前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle102
+        DataGridViewCellStyle47.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紙帳前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle47
         Me.紙帳前期_dgv.RowTemplate.Height = 24
         Me.紙帳前期_dgv.Size = New System.Drawing.Size(170, 51)
         Me.紙帳前期_dgv.TabIndex = 1631
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.紙帳非前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.紙帳非前期_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle103.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle103.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle103.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle103.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle103.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle103.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle103.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紙帳非前期_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle103
+        DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle48.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle48.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紙帳非前期_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle48
         Me.紙帳非前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle104.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle104.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle104.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle104.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle104.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle104.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle104.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紙帳非前期_dgv.DefaultCellStyle = DataGridViewCellStyle104
+        DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle49.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle49.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紙帳非前期_dgv.DefaultCellStyle = DataGridViewCellStyle49
         Me.紙帳非前期_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.紙帳非前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紙帳非前期_dgv.Name = "紙帳非前期_dgv"
         Me.紙帳非前期_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle105.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紙帳非前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle105
+        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紙帳非前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
         Me.紙帳非前期_dgv.RowTemplate.Height = 24
         Me.紙帳非前期_dgv.Size = New System.Drawing.Size(170, 304)
         Me.紙帳非前期_dgv.TabIndex = 1632
         '
         '電板客戶_dgv
         '
-        DataGridViewCellStyle106.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle106
+        DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
         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)
         '
         '電板紙帳1_dgv
         '
-        DataGridViewCellStyle107.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle107
+        DataGridViewCellStyle52.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle52
         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)
         '
         '紙帳流水1_dgv
         '
-        DataGridViewCellStyle108.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.紙帳流水1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle108
+        DataGridViewCellStyle53.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.紙帳流水1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53
         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)
         '
         '紙帳導入_dgv
         '
-        DataGridViewCellStyle109.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.紙帳導入_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle109
+        DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.紙帳導入_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
         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)
         '
         '電板所得_dgv
         '
-        DataGridViewCellStyle110.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.電板所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle110
+        DataGridViewCellStyle55.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.電板所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle55
         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.Controls.Add(Me.彙總1_dgv)
         Me.Controls.Add(Me.客戶下_dgv)
         Me.Controls.Add(Me.L50)
-        Me.Controls.Add(Me.Panel2)
-        Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.流水帳_dgv)
-        Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.月_ch)
         Me.Controls.Add(Me.周_ch)
         Me.Controls.Add(Me.天_ch)
         Me.Controls.Add(Me.合帳_dgv)
         Me.Controls.Add(Me.彙總_dgv)
         Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.流水帳_dgv)
+        Me.Controls.Add(Me.Label4)
         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 = "帳務彙總計算表"

GA-ERP-SYS/報表系統管理/帳務彙總計算表.vb

             '------------取得客戶名稱，寫入計算與同帳設定--------------------------------------------------------------------------------------------------------------------
             For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
                 If 流水帳_dgv("客帳", i).Value.ToString.ToLower() = 客戶下_dgv("客戶帳號", ii).Value.ToString.ToLower() And
-                   流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() And
+                  (流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() Or
+                   流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("備用網址", ii).Value.ToString.ToLower()) And
                    流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
                     流水帳_dgv("客名", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString
                     流水帳_dgv("同帳指定", i).Value = 客戶下_dgv("基數", ii).Value : 流水帳_dgv("下收", i).Value = 客戶下_dgv("基數", ii).Value
                 End If
             Next
             For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
-                If 流水帳_dgv.Rows(i).Cells("水差出帳").Value.ToString.ToLower() = 水差名1_dgv.Rows(II).Cells("水差").Value.ToString.ToLower() Then
+                If 流水帳_dgv.Rows(i).Cells("所得指定").Value.ToString.ToLower() = 水差名1_dgv.Rows(II).Cells("水差").Value.ToString.ToLower() And
+                   流水帳_dgv.Rows(i).Cells("水差指定").Value.ToString <> "" Then
                     水差名1_dgv.Rows(II).Cells("交割金額.").Value = Val(水差名1_dgv.Rows(II).Cells("交割金額").Value) + (Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString) * -1)
                     水差名1_dgv.Rows(II).Cells("交割金額").Value = Val(水差名1_dgv.Rows(II).Cells("交割金額").Value) + (Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString) * -1)
                     水差名1_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(水差名1_dgv.Rows(II).Cells("交割金額.").Value), "#,##0")
                 If 紅利分表_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利總表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() Then
                     紅利分表_dgv.Rows(i).Cells("總股份").Value = 紅利總表_dgv.Rows(II).Cells("總股").Value
                     紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利總表_dgv.Rows(II).Cells("總所得").Value
-                    If 紅利分表_dgv.Rows(i).Cells("股份").Value > 0 Then
-                        紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value)
-                    ElseIf 紅利分表_dgv.Rows(i).Cells("股份").Value < 0 Then
-                        紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value) * -1
-                    End If
+
+                    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value)
+
+                    'If 紅利分表_dgv.Rows(i).Cells("股份").Value > 0 Then
+                    '    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value)
+                    'ElseIf 紅利分表_dgv.Rows(i).Cells("股份").Value < 0 Then
+                    '    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value) * -1
+                    'End If
                 End If
             Next
         Next
                 If 是否子明細 = False Then
                     If 是否明細 = False Then
                         If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
-                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差出帳").Value.ToString.ToLower() Then
+                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
                             If 合帳_dgv("水反", 選擇記憶).Value = False Then
                                 水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                                 水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                     Else
                         If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                            水差合帳1_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
-                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差出帳").Value.ToString.ToLower() Then
+                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
                             If 合帳_dgv("水反", 選擇記憶).Value = False Then
                                 水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                                 水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                 Else
                     If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                        水差合帳1_dgv.Rows(i).Cells("客戶").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("客帳").Value.ToString.ToLower() And
-                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差出帳").Value.ToString.ToLower() Then
+                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
                         If 合帳_dgv("水反", 選擇記憶).Value = False Then
                             水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                             水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                 If 紅利支出_dgv.Rows(i).Cells("股東").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("股東").Value.ToString.ToLower() And
                    紅利支出_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() And
                    紅利支出_dgv.Rows(i).Cells("紅利").Value = 0 Then
-                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
-                        紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
-                    Else
+                    If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
                         紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value
+                    Else
+                        紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
                     End If
+                    'If 合帳_dgv("紅反", 選擇記憶).Value = False Then
+                    '    紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
+                    'Else
+                    '    紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value
+                    'End If
                     If CC(42) = False Then : 紅利支出_dgv.Rows(i).Cells("紅利").Value = 0 : End If
                 End If
             Next
             Next
             For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
-                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
-                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
-                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
-                    Else
+                    If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
                         合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                         合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                    Else
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                     End If
+                    'If 合帳_dgv("紅反", 選擇記憶).Value = False Then
+                    '    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                    '    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                    'Else
+                    '    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                    '    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                    'End If
                 End If
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
+
                     If 合帳_dgv("紅反", 選擇記憶).Value = False Then
                         合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                         合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                 Next
                 For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                     If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
-                        If 合帳_dgv("紅反", I).Value = False Then
-                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
-                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
-                        Else
+                        If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
                             合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
                             合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
+                        Else
+                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                         End If
+                        'If 合帳_dgv("紅反", I).Value = False Then
+                        '    合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                        '    合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                        'Else
+                        '    合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
+                        '    合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
+                        'End If
                     End If
                     If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
                         If 合帳_dgv("紅反", I).Value = False Then

GA-ERP-SYS/報表系統管理/帳務明細查詢表.vb

                 '------------取得客戶名稱，寫入計算與同帳設定--------------------------------------------------------------------------------------------------------------------
                 For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
                     If 流水帳_dgv("客戶帳號", i).Value.ToString.ToLower() = 客戶下_dgv("客戶帳號", ii).Value.ToString.ToLower() And
-                        流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() And
-                        流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
+                      (流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() Or
+                       流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("備用網址", ii).Value.ToString.ToLower()) And
+                       流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
                         流水帳_dgv("客戶名稱", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString
                         流水帳_dgv("同帳指定", i).Value = 客戶下_dgv("基數", ii).Value
                         流水帳_dgv("下收.", i).Value = 客戶下_dgv("基數", ii).Value
                     '------------取得客戶名稱，寫入計算與同帳設定--------------------------------------------------------------------------------------------------------------------
                     For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
                         If 流水帳_dgv("客戶帳號", i).Value.ToString.ToLower() = 客戶下_dgv("客戶帳號", ii).Value.ToString.ToLower() And
-                            流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() And
-                            流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
+                          (流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() Or
+                           流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("備用網址", ii).Value.ToString.ToLower()) And
+                           流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
                             流水帳_dgv("客戶名稱", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString
                             流水帳_dgv("同帳指定", i).Value = 客戶下_dgv("基數", ii).Value
                             流水帳_dgv("下收.", i).Value = 客戶下_dgv("基數", ii).Value
         '------------不計算歸零---------------------------------------------------------------------------------------------------------------------------------------
         If 流水帳_dgv("計算", YY).Value = False And 流水帳_dgv("同帳", YY).Value = False Then
             流水帳_dgv.Rows(YY).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("大股東.").Value = "0"
-            流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("水差").Value = "0" : 流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0"
+            流水帳_dgv.Rows(YY).Cells("地帳1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0"
             流水帳_dgv.Rows(YY).Cells("總監.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("上繳金額.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("天帳1").Value = "0"
-            流水帳_dgv.Rows(YY).Cells("地帳1").Value = "0"
+            '流水帳_dgv.Rows(YY).Cells("水差").Value = "0"
         End If
         '------------所得計算---------------------------------------------------------------------------------------------------------------------------------------
         If 流水帳_dgv("所得", YY).Value = False Then
             Dim BB As MsgBoxResult = MsgBox("確認啟動批量修改嗎?", MsgBoxStyle.OkCancel)
             If BB = MsgBoxResult.Ok Then
                 Dim 統一客戶, 是否同帳1 As Boolean
-                Dim AA As MsgBoxResult = MsgBox("客戶名稱是否不要變成統一資料?", MsgBoxStyle.OkCancel)
+                Dim AA As MsgBoxResult = MsgBox("下收客戶 [名稱] 與 [階級]，如果都不相同，要保留原始設定請選            [確定]。" & vbCrLf & vbCrLf &
+                                                "下收客戶 [名稱] 與 [階級]，如果全部統一，不需要要保留原始設定請選 [取消]。", MsgBoxStyle.OkCancel)
                 If AA = MsgBoxResult.Ok Then
                     統一客戶 = False
                 Else

GA-ERP-SYS/報表系統管理/帳號資料.Designer.vb

         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(279, 219)
+        Me.ClientSize = New System.Drawing.Size(279, 222)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.Label32)
         Me.Controls.Add(Me.備用網址1_tb)

GA-ERP-SYS/報表系統管理/帳號資料.vb

             If 是否新增 = False Then
                 PA2 = 網址_tb.Text : PA3 = 上繳源_cb.Text : PA4 = 帳號_tb.Text : PA5 = 密碼_tb.Text : PA6 = 上行_cb.Text : PA7 = 下行_cb.Text : PA8 = 資料_cb.Text : PA9 = 商品_cb.Text
                 PA10 = 帳號1_tb.Text : PA11 = 網址1_tb.Text : PA12 = 備用網址1_tb.Text
-                SQL_系統編碼規則_商客修改() : MsgBox("修改完成") : conn.Close() : dr.Close() : PA9 = "" : PA1 = "" : PA = "" : Me.Close() : 是否運行 = True
+                If 密碼_tb.Text <> "" Then : SQL_系統編碼規則_商客修改()
+                Else : SQL_系統編碼規則_商客修改2() : End If
+                MsgBox("修改完成") : conn.Close() : dr.Close() : PA9 = "" : PA1 = "" : PA = "" : Me.Close() : 是否運行 = True
             ElseIf 是否新增 = True Then
                 If 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then
                     MsgBox("資料沒有完整，請重新檢查")

GA-ERP-SYS/報表系統管理/電板紙板帳務設定.Designer.vb

         DataGridViewCellStyle1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.電板客戶_dgv.RowTemplate.Height = 24
-        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 283)
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 554)
         Me.電板客戶_dgv.TabIndex = 1633
         '
         '電板紙板_dgv
         DataGridViewCellStyle2.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.電板紙板_dgv.RowTemplate.Height = 24
-        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 209)
+        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 480)
         Me.電板紙板_dgv.TabIndex = 1634
         '
         '客戶_tb
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(349, 290)
+        Me.ClientSize = New System.Drawing.Size(349, 561)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.刪除_bt)
         Me.Controls.Add(Me.新增_bt)

GA-ERP-SYS/報表系統管理/電板股東紅利設定.Designer.vb

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        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.電板紙板_dgv = New System.Windows.Forms.DataGridView()
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.新增_bt = New System.Windows.Forms.Button()
         Me.電板紙板_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.電板紙板_dgv.BackgroundColor = System.Drawing.Color.White
         Me.電板紙板_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.電板紙板_dgv.Location = New System.Drawing.Point(125, 77)
+        Me.電板紙板_dgv.Location = New System.Drawing.Point(125, 135)
         Me.電板紙板_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.電板紙板_dgv.Name = "電板紙板_dgv"
         Me.電板紙板_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.電板紙板_dgv.RowTemplate.Height = 24
-        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 186)
+        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 399)
         Me.電板紙板_dgv.TabIndex = 1646
         '
         '刪除_bt
         Me.電板客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.電板客戶_dgv.Name = "電板客戶_dgv"
         Me.電板客戶_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.電板客戶_dgv.RowTemplate.Height = 24
-        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 284)
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 555)
         Me.電板客戶_dgv.TabIndex = 1645
         '
         '字體_NUD
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label3.ForeColor = System.Drawing.Color.Black
-        Me.Label3.Location = New System.Drawing.Point(122, 267)
+        Me.Label3.Location = New System.Drawing.Point(122, 538)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(47, 17)
         Me.Label3.TabIndex = 1660
         'nud2
         '
         Me.nud2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.nud2.Location = New System.Drawing.Point(171, 264)
+        Me.nud2.Location = New System.Drawing.Point(171, 535)
         Me.nud2.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
         Me.nud2.Minimum = New Decimal(New Integer() {10000, 0, 0, -2147483648})
         Me.nud2.Name = "nud2"
         '
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label4.ForeColor = System.Drawing.Color.Black
-        Me.Label4.Location = New System.Drawing.Point(123, 55)
+        Me.Label4.ForeColor = System.Drawing.Color.Red
+        Me.Label4.Location = New System.Drawing.Point(121, 80)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(47, 17)
+        Me.Label4.Size = New System.Drawing.Size(224, 51)
         Me.Label4.TabIndex = 1662
-        Me.Label4.Text = "舊資料"
+        Me.Label4.Text = "請注意，紅利股數的正負數設定，會" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "反映在彙總表紅利拆分上，主要顯示" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "在紅利入帳的部分。(紅利出帳不影響)"
         '
         '下拉1_bt
         '
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(349, 290)
+        Me.ClientSize = New System.Drawing.Size(349, 561)
         Me.Controls.Add(Me.下拉1_bt)
         Me.Controls.Add(Me.商品_cb)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.nud2)
-        Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.刪除_bt)
         Me.Controls.Add(Me.新增_bt)
         Me.Controls.Add(Me.存檔_bt)
         Me.Controls.Add(Me.nud1)
         Me.Controls.Add(Me.商品1_tb)
         Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label2)
         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 = "電板股東紅利設定"

GA-ERP-SYS/報表系統管理/電板股東紅利設定.vb

         If 電板紙板_dgv.Rows.Count > 0 Then
             商品_cb.Text = 電板紙板_dgv("股東", 0).Value.ToString : 商品1_tb.Text = 電板紙板_dgv("股東", 0).Value.ToString
             For I As Integer = 0 To 電板紙板_dgv.Rows.Count - 1
-                nud2.Value = nud2.Value + 電板紙板_dgv("紅利", I).Value
+                nud2.Value = nud2.Value + Math.Abs(電板紙板_dgv("紅利", I).Value)
             Next
         End If
     End Sub
             存檔_bt.Enabled = True
         End If
     End Sub
+    Private Sub 電板紙板_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 電板紙板_dgv.CellFormatting
+        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
+            e.CellStyle.ForeColor = Color.Red
+        End If
+    End Sub
     Private Sub 商品_cb_TextChanged(sender As Object, e As EventArgs) Handles 商品_cb.TextChanged
         If 商品_cb.Text = "" Then
             新增_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False

GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb

         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(680, 479)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = "版本號 : 2022020301_1.32" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、系統恢復可以做日、周、月帳的功能(帳務要分開抓取日周月帳不會互通)。"
+        Me.TextBox3.Text = "版本號 : 2022022401_1.32" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、系統更新時忘記或是誤按防火牆防毒等軟體導致更新失敗時，系統自動從新運行更新 (功能測試中)。" &
+    ""
         '
         'TextBox4
         '

GA-ERP-SYS/特殊操作功能/系統公告.resx

     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="TextBox1.Text" xml:space="preserve">
-    <value>版本號 : 2022013001_1.32
+    <value>版本號 : 2022022001_1.32
+更新內容如下 :
+1、修正明細表中修改上繳時如遇到指定帳戶會導致指定帳戶資料異常的BUG。
+2、修正明細表快速設定時對話框中的內容 (使選擇比較簡易)。
+3、股東紅利設定中允許股份用正負數去變更交收數字的正負項，而拆分紅利用的總股數用絕對值呈現。
+
+版本號 : 2022021501_1.32
+更新內容如下 :
+1、基本資料中指定帳戶設定功能修改帳戶資料BUG修正。
+
+版本號 : 2022020801_1.32
+更新內容如下 :
+1、明細表與彙總表中的帳務如自動使用備用網址抓下來後客戶資料流水號對應不上的問題。
+
+版本號 : 2022020701_1.32
+更新內容如下 :
+1、修正系統水差計算BUG。
+
+版本號 : 2022020301_1.32
+更新內容如下 :
+1、系統恢復可以做日、周、月帳的功能(帳務要分開抓取日周月帳不會互通)。
+
+版本號 : 2022013001_1.32
 更新內容如下 :
 1、更新101系統迦納彩帳務抓不下來的問題。
 2、擴充整夜選取清單的資料容量到3000筆。

GA-ERP-SYS/資料庫系統管理/租用者帳務表.Designer.vb

         Me.Label9 = New System.Windows.Forms.Label()
         Me.累計費用_nud = New System.Windows.Forms.NumericUpDown()
         Me.全帳_bt = New System.Windows.Forms.Button()
+        Me.試用不計_ch = New System.Windows.Forms.CheckBox()
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.帳務明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         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
+        Me.使用者清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.使用者清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.使用者清單_dgv.Location = New System.Drawing.Point(3, 31)
         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(309, 647)
+        Me.使用者清單_dgv.Size = New System.Drawing.Size(426, 647)
         Me.使用者清單_dgv.TabIndex = 1497
         '
         '帳務明細_dgv
             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.BackgroundColor = System.Drawing.Color.White
         DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.Black
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
         Me.帳務明細_dgv.DefaultCellStyle = DataGridViewCellStyle2
-        Me.帳務明細_dgv.Location = New System.Drawing.Point(314, 60)
+        Me.帳務明細_dgv.Location = New System.Drawing.Point(430, 60)
         Me.帳務明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.帳務明細_dgv.Name = "帳務明細_dgv"
         DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         Me.帳務明細_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
         Me.帳務明細_dgv.RowHeadersWidth = 5
         Me.帳務明細_dgv.RowTemplate.Height = 24
-        Me.帳務明細_dgv.Size = New System.Drawing.Size(1032, 618)
+        Me.帳務明細_dgv.Size = New System.Drawing.Size(916, 618)
         Me.帳務明細_dgv.TabIndex = 1498
         '
         '字體_NUD
         '
         Me.到期日_dtp.CustomFormat = "yyyy/MM/dd"
         Me.到期日_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.到期日_dtp.Location = New System.Drawing.Point(635, 33)
+        Me.到期日_dtp.Location = New System.Drawing.Point(719, 33)
         Me.到期日_dtp.Name = "到期日_dtp"
         Me.到期日_dtp.Size = New System.Drawing.Size(88, 23)
         Me.到期日_dtp.TabIndex = 1638
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label7.Location = New System.Drawing.Point(586, 36)
+        Me.Label7.Location = New System.Drawing.Point(675, 36)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(47, 17)
         Me.Label7.TabIndex = 1637
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label3.Location = New System.Drawing.Point(442, 6)
+        Me.Label3.Location = New System.Drawing.Point(543, 6)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(34, 17)
         Me.Label3.TabIndex = 1636
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label1.Location = New System.Drawing.Point(317, 7)
+        Me.Label1.Location = New System.Drawing.Point(427, 7)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(34, 17)
         Me.Label1.TabIndex = 1635
         '帳號_tb
         '
         Me.帳號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
-        Me.帳號_tb.Location = New System.Drawing.Point(478, 3)
+        Me.帳號_tb.Location = New System.Drawing.Point(573, 3)
         Me.帳號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.帳號_tb.Name = "帳號_tb"
         Me.帳號_tb.Size = New System.Drawing.Size(102, 25)
         '姓名_tb
         '
         Me.姓名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
-        Me.姓名_tb.Location = New System.Drawing.Point(353, 3)
+        Me.姓名_tb.Location = New System.Drawing.Point(457, 3)
         Me.姓名_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.姓名_tb.Name = "姓名_tb"
         Me.姓名_tb.Size = New System.Drawing.Size(87, 25)
         '
         Me.起始日_dtp.CustomFormat = "yyyy/MM/dd"
         Me.起始日_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.起始日_dtp.Location = New System.Drawing.Point(635, 3)
+        Me.起始日_dtp.Location = New System.Drawing.Point(719, 3)
         Me.起始日_dtp.Name = "起始日_dtp"
         Me.起始日_dtp.Size = New System.Drawing.Size(88, 23)
         Me.起始日_dtp.TabIndex = 1640
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label2.Location = New System.Drawing.Point(586, 6)
+        Me.Label2.Location = New System.Drawing.Point(675, 6)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(47, 17)
         Me.Label2.TabIndex = 1639
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label4.Location = New System.Drawing.Point(317, 35)
+        Me.Label4.Location = New System.Drawing.Point(427, 35)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(34, 17)
         Me.Label4.TabIndex = 1642
         '狀態_tb
         '
         Me.狀態_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
-        Me.狀態_tb.Location = New System.Drawing.Point(353, 31)
+        Me.狀態_tb.Location = New System.Drawing.Point(457, 31)
         Me.狀態_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.狀態_tb.Name = "狀態_tb"
         Me.狀態_tb.Size = New System.Drawing.Size(87, 25)
         '
         '費用_nud
         '
-        Me.費用_nud.Location = New System.Drawing.Point(478, 33)
+        Me.費用_nud.Location = New System.Drawing.Point(573, 33)
         Me.費用_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
         Me.費用_nud.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
         Me.費用_nud.Name = "費用_nud"
         Me.Label5.AutoSize = True
         Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label5.Location = New System.Drawing.Point(442, 36)
+        Me.Label5.Location = New System.Drawing.Point(543, 36)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(34, 17)
         Me.Label5.TabIndex = 1644
         Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.修改_bt.ForeColor = System.Drawing.Color.Green
         Me.修改_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.修改_bt.Location = New System.Drawing.Point(1208, 3)
+        Me.修改_bt.Location = New System.Drawing.Point(1243, 3)
         Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.修改_bt.Name = "修改_bt"
-        Me.修改_bt.Size = New System.Drawing.Size(69, 53)
+        Me.修改_bt.Size = New System.Drawing.Size(50, 53)
         Me.修改_bt.TabIndex = 1647
         Me.修改_bt.Text = "修改"
         Me.修改_bt.UseVisualStyleBackColor = True
         Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.新增_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.新增_bt.Location = New System.Drawing.Point(1138, 3)
+        Me.新增_bt.Location = New System.Drawing.Point(1194, 3)
         Me.新增_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.新增_bt.Name = "新增_bt"
-        Me.新增_bt.Size = New System.Drawing.Size(69, 53)
+        Me.新增_bt.Size = New System.Drawing.Size(50, 53)
         Me.新增_bt.TabIndex = 1646
         Me.新增_bt.Text = "新增"
         Me.新增_bt.UseVisualStyleBackColor = True
         '
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
         Me.刪除_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.刪除_bt.Location = New System.Drawing.Point(1277, 3)
+        Me.刪除_bt.Location = New System.Drawing.Point(1292, 3)
         Me.刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.刪除_bt.Name = "刪除_bt"
-        Me.刪除_bt.Size = New System.Drawing.Size(69, 53)
+        Me.刪除_bt.Size = New System.Drawing.Size(50, 53)
         Me.刪除_bt.TabIndex = 1645
         Me.刪除_bt.Text = "刪除"
         Me.刪除_bt.UseVisualStyleBackColor = True
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label6.Location = New System.Drawing.Point(727, 6)
+        Me.Label6.Location = New System.Drawing.Point(807, 6)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(60, 17)
         Me.Label6.TabIndex = 1649
         '
         '可用天數_nud
         '
-        Me.可用天數_nud.Location = New System.Drawing.Point(728, 33)
+        Me.可用天數_nud.Location = New System.Drawing.Point(808, 33)
         Me.可用天數_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
         Me.可用天數_nud.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
         Me.可用天數_nud.Name = "可用天數_nud"
         '備註_tb
         '
         Me.備註_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
-        Me.備註_tb.Location = New System.Drawing.Point(828, 3)
+        Me.備註_tb.Location = New System.Drawing.Point(892, 3)
         Me.備註_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.備註_tb.Multiline = True
         Me.備註_tb.Name = "備註_tb"
-        Me.備註_tb.Size = New System.Drawing.Size(307, 53)
+        Me.備註_tb.Size = New System.Drawing.Size(301, 53)
         Me.備註_tb.TabIndex = 1651
         '
         'Label8
         '
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label8.Location = New System.Drawing.Point(795, 6)
+        Me.Label8.Location = New System.Drawing.Point(862, 6)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(34, 17)
         Me.Label8.TabIndex = 1650
         Me.全帳_bt.Text = "全帳"
         Me.全帳_bt.UseVisualStyleBackColor = True
         '
+        '試用不計_ch
+        '
+        Me.試用不計_ch.AutoSize = True
+        Me.試用不計_ch.Location = New System.Drawing.Point(340, 6)
+        Me.試用不計_ch.Name = "試用不計_ch"
+        Me.試用不計_ch.Size = New System.Drawing.Size(75, 20)
+        Me.試用不計_ch.TabIndex = 1655
+        Me.試用不計_ch.Text = "試用不計"
+        Me.試用不計_ch.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(1350, 681)
+        Me.Controls.Add(Me.試用不計_ch)
         Me.Controls.Add(Me.全帳_bt)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.累計費用_nud)
         Me.Controls.Add(Me.新增_bt)
         Me.Controls.Add(Me.刪除_bt)
         Me.Controls.Add(Me.帳務明細_dgv)
-        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.費用_nud)
-        Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.狀態_tb)
-        Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.到期日_dtp)
-        Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.帳號_tb)
         Me.Controls.Add(Me.姓名_tb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.使用者清單_dgv)
         Me.Controls.Add(Me.起始日_dtp)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label1)
         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 = "租用者帳務表"
     Friend WithEvents Label9 As Label
     Friend WithEvents 累計費用_nud As NumericUpDown
     Friend WithEvents 全帳_bt As Button
+    Friend WithEvents 試用不計_ch As CheckBox
 End Class

GA-ERP-SYS/資料庫系統管理/租用者帳務表.vb

         使用者清單_dgv.RowTemplate.Height = 25
         SQL_系統使用者()
         da.Fill(ds) : 使用者清單_dgv.DataSource = ds.Tables(0) : conn.Close()
-        使用者清單_dgv.Columns("項次").FillWeight = 55
-        使用者清單_dgv.Columns(1).FillWeight = 90 : 使用者清單_dgv.Columns(2).FillWeight = 90 : 使用者清單_dgv.Columns("有USBKey").FillWeight = 40
+        使用者清單_dgv.Columns("項次").FillWeight = 50
+        使用者清單_dgv.Columns(1).FillWeight = 90 : 使用者清單_dgv.Columns(2).FillWeight = 70 : 使用者清單_dgv.Columns("KEY").FillWeight = 40
+        使用者清單_dgv.Columns(3).FillWeight = 85 : 使用者清單_dgv.Columns(5).FillWeight = 135
         For I As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
             使用者清單_dgv.Rows(I).Cells("項次").Value = I + 1
-            If 使用者清單_dgv.Rows(I).Cells("有USBKey").Value = False Then
-                使用者清單_dgv.Rows(I).Cells("有USBKey").Value = True
+            If 使用者清單_dgv.Rows(I).Cells("KEY").Value = False Then
+                使用者清單_dgv.Rows(I).Cells("KEY").Value = True
             Else
-                使用者清單_dgv.Rows(I).Cells("有USBKey").Value = False
+                使用者清單_dgv.Rows(I).Cells("KEY").Value = False
             End If
+            使用者清單_dgv.Rows(I).Cells("登入時間").Value = Strings.Left(使用者清單_dgv.Rows(I).Cells("登入時間").Value.ToString, 19)
         Next
     End Sub
     Private Sub Set_帳務清單()
                 起始日_dtp.Value = Today() : 到期日_dtp.Value = 使用者清單_dgv.Rows(e.RowIndex).Cells("到期日").Value : 費用_nud.Value = 0 : 備註_tb.Text = "" : 狀態_tb.Text = ""
             End If
             If 狀態_tb.Text = "" Then
-                If 使用者清單_dgv.Rows(e.RowIndex).Cells("有USBKey").Value = True Then : 狀態_tb.Text = "正式" : Else : 狀態_tb.Text = "測試" : End If
+                If 使用者清單_dgv.Rows(e.RowIndex).Cells("KEY").Value = True Then : 狀態_tb.Text = "正式" : Else : 狀態_tb.Text = "測試" : End If
             End If
 
             可用天數_nud.Value = DateDiff("d", 起始日_dtp.Value, 到期日_dtp.Value)
             SQL_租用帳務刪除() : MsgBox("存檔成功!!") : Set_帳務清單()
         End If
     End Sub
+    Private Sub 試用不計_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 試用不計_ch.Click
+        If 試用不計_ch.Checked = False Then : 試用不計_ch.Checked = False : Else : 試用不計_ch.Checked = True : End If : Set_帳務清單()
+    End Sub
     Private Sub 全帳_bt_Click(sender As Object, e As EventArgs) Handles 全帳_bt.Click
         帳號_tb.Text = "%%" : Set_帳務清單() : 帳號_tb.Text = ""
     End Sub