B70340 3 лет назад
Родитель
Сommit
1a6dbc1c8a
32 измененных файлов: 611 добавлений и 419 удалений
  1. Двоичные данные
      .vs/GA-ERP-SYS/v16/.suo
  2. 5
    0
      GA-ERP-SYS/LoginForm1.Designer.vb
  3. 3
    0
      GA-ERP-SYS/LoginForm1.resx
  4. 32
    0
      GA-ERP-SYS/LoginForm1.vb
  5. 19
    9
      GA-ERP-SYS/Module/SQL_子系統管理.vb
  6. 10
    2
      GA-ERP-SYS/Module/SQL_資料庫系統管理.vb
  7. 1
    1
      GA-ERP-SYS/Module/全域變數.vb
  8. Двоичные данные
      GA-ERP-SYS/bin/Debug/GA-ERP-SYS.exe
  9. Двоичные данные
      GA-ERP-SYS/bin/Debug/GA-ERP-SYS.pdb
  10. Двоичные данные
      GA-ERP-SYS/bin/GA-ERP-SYS-7.exe
  11. Двоичные данные
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.exe
  12. Двоичные данные
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.pdb
  13. 1
    1
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.CoreCompileInputs.cache
  14. 56
    0
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.FileListAbsolute.txt
  15. Двоичные данные
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.GenerateResource.cache
  16. Двоичные данные
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.ResolveComReference.cache
  17. Двоичные данные
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbprojAssemblyReference.cache
  18. Двоичные данные
      GA-ERP-SYS/obj/Debug/GA_ERP_SYS.系統公告.resources
  19. 12
    12
      GA-ERP-SYS/基本資料管理/電板基本資料.Designer.vb
  20. 3
    3
      GA-ERP-SYS/基本資料管理/電板基本資料.vb
  21. 299
    300
      GA-ERP-SYS/報表系統管理/帳務彙總計算表.Designer.vb
  22. 46
    21
      GA-ERP-SYS/報表系統管理/帳務彙總計算表.vb
  23. 10
    7
      GA-ERP-SYS/報表系統管理/帳務明細查詢表.vb
  24. 1
    1
      GA-ERP-SYS/報表系統管理/帳號資料.Designer.vb
  25. 3
    1
      GA-ERP-SYS/報表系統管理/帳號資料.vb
  26. 3
    3
      GA-ERP-SYS/報表系統管理/電板紙板帳務設定.Designer.vb
  27. 17
    17
      GA-ERP-SYS/報表系統管理/電板股東紅利設定.Designer.vb
  28. 6
    1
      GA-ERP-SYS/報表系統管理/電板股東紅利設定.vb
  29. 2
    1
      GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb
  30. 23
    1
      GA-ERP-SYS/特殊操作功能/系統公告.resx
  31. 48
    32
      GA-ERP-SYS/資料庫系統管理/租用者帳務表.Designer.vb
  32. 11
    6
      GA-ERP-SYS/資料庫系統管理/租用者帳務表.vb

Двоичные данные
.vs/GA-ERP-SYS/v16/.suo Просмотреть файл


+ 5
- 0
GA-ERP-SYS/LoginForm1.Designer.vb Просмотреть файл

@@ -61,6 +61,7 @@ Partial Class LoginForm1
61 61
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
62 62
         Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
63 63
         Me.使用者帳號_cb = New System.Windows.Forms.TextBox()
64
+        Me.Timer4 = New System.Windows.Forms.Timer(Me.components)
64 65
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
65 66
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
66 67
         CType(Me.簡易登入_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -357,6 +358,9 @@ Partial Class LoginForm1
357 358
         Me.使用者帳號_cb.Size = New System.Drawing.Size(201, 23)
358 359
         Me.使用者帳號_cb.TabIndex = 685
359 360
         '
361
+        'Timer4
362
+        '
363
+        '
360 364
         'LoginForm1
361 365
         '
362 366
         Me.AcceptButton = Me.確認_bt
@@ -431,4 +435,5 @@ Partial Class LoginForm1
431 435
     Friend WithEvents Timer2 As Timer
432 436
     Friend WithEvents Timer3 As Timer
433 437
     Friend WithEvents 使用者帳號_cb As TextBox
438
+    Friend WithEvents Timer4 As Timer
434 439
 End Class

+ 3
- 0
GA-ERP-SYS/LoginForm1.resx Просмотреть файл

@@ -129,4 +129,7 @@
129 129
   <metadata name="Timer3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
130 130
     <value>616, 17</value>
131 131
   </metadata>
132
+  <metadata name="Timer4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
133
+    <value>708, 17</value>
134
+  </metadata>
132 135
 </root>

+ 32
- 0
GA-ERP-SYS/LoginForm1.vb Просмотреть файл

@@ -115,6 +115,7 @@ Public Class LoginForm1
115 115
             Timer1.Enabled = True
116 116
         End If
117 117
         使用者帳號_cb.ImeMode = 3
118
+        Timer4.Enabled = True
118 119
     End Sub
119 120
     Private Sub FTP登入()
120 121
         SQL_FTP伺服器登入位置()
@@ -375,4 +376,35 @@ Public Class LoginForm1
375 376
     Private Sub 使用者帳號_cb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 使用者帳號_cb.GotFocus
376 377
         使用者帳號_cb.ImeMode = 2
377 378
     End Sub
379
+    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
380
+        Dim 已開啟 As Boolean
381
+        Dim Strs As String = Application.StartupPath
382
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\SYS-UPDATE.exe") Then
383
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
384
+            ' 判斷是否有符合的Process
385
+            For Each process As Process In pro
386
+                If ("SYS-UPDATE").Equals(process.ProcessName) Then
387
+                    已開啟 = True
388
+                End If
389
+            Next
390
+            If 已開啟 = False Then : Else
391
+                If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop + "\C.txt") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop + "\C.txt") : End If
392
+                If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop + "\SYS-UPDATE.exe") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop + "\SYS-UPDATE.exe") : End If
393
+                Timer4.Enabled = False
394
+            End If
395
+        ElseIf File.Exists(Strs & "\SYS-UPDATE.exe") Then
396
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
397
+            ' 判斷是否有符合的Process
398
+            For Each process As Process In pro
399
+                If ("SYS-UPDATE").Equals(process.ProcessName) Then
400
+                    已開啟 = True
401
+                End If
402
+            Next
403
+            If 已開啟 = False Then : Else
404
+                If File.Exists(Strs + "\C.txt") Then : File.Delete(Strs + "\C.txt") : End If
405
+                If File.Exists(Strs + "\SYS-UPDATE.exe") Then : File.Delete(Strs + "\SYS-UPDATE.exe") : End If
406
+                Timer4.Enabled = False
407
+            End If
408
+        End If
409
+    End Sub
378 410
 End Class

+ 19
- 9
GA-ERP-SYS/Module/SQL_子系統管理.vb Просмотреть файл

@@ -251,14 +251,20 @@ FROM 流水帳"
251 251
                                   WHERE (主帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"
252 252
         CmdSet_For_dr()
253 253
     End Sub
254
-    Friend Sub SQL_系統編碼規則_商客修改_特定帳號()
254
+    Friend Sub SQL_系統編碼規則_商客修改2()
255 255
         ConnOpen_子SQL()
256 256
         SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "', 上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "',
257
-                                          帳號 = N'" & PA4 & "', 密碼 = N'" & PA5 & "' ,上行基數 = N'" & PA6 & "' ,下行基數 = N'" & PA7 & "', 驗證 = N'          ', 
258
-                                          主帳號 = N'" & PA4 & "'
257
+                                          帳號 = N'" & PA4 & "', 密碼 = N'" & PA5 & "' ,上行基數 = N'" & PA6 & "' ,下行基數 = N'" & PA7 & "', 驗證 = N'          '
259 258
                                   WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"
260 259
         CmdSet_For_dr()
261 260
     End Sub
261
+    Friend Sub SQL_系統編碼規則_商客修改_特定帳號()
262
+        ConnOpen_子SQL()
263
+        SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "', 上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "',
264
+                                          帳號 = N'" & PA4 & "', 密碼 = N'" & PA5 & "' ,上行基數 = N'" & PA6 & "' ,下行基數 = N'" & PA7 & "', 驗證 = N'          ' 
265
+                WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "' AND 主帳號 LIKE N'" & PA13 & "')"
266
+        CmdSet_For_dr()
267
+    End Sub
262 268
     Friend Sub SQL_下拉商品清單讀取()
263 269
         ConnOpen_子SQL() : SQL1 = "SELECT 編號, 商品, 層級 FROM 商品資料表 WHERE 系統 LIKE N'" & PA42 & "'  ORDER BY 商品, 層級, 編號" : CmdSet_For_dr()
264 270
     End Sub
@@ -764,7 +770,7 @@ FROM 流水帳"
764 770
                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN
765 771
                            商品資料表 ON 下行客戶.網址 = 商品資料表.網址
766 772
                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 
767
-                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.客名 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
773
+                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
768 774
                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 下行客戶.水差另算, 商品資料表.商品"
769 775
         CmdSet_For_DGV()
770 776
     End Sub
@@ -776,7 +782,7 @@ FROM 流水帳"
776 782
                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN
777 783
                            商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)
778 784
                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 
779
-                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.客名 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
785
+                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
780 786
                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 流水帳.帳戶, 下行客戶.水差另算, 商品資料表.商品
781 787
                 ORDER BY   商品資料表.商品"
782 788
         CmdSet_For_DGV()
@@ -789,7 +795,7 @@ FROM 流水帳"
789 795
                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN
790 796
                            商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)
791 797
                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 
792
-                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.客名 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
798
+                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')
793 799
                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 流水帳.帳戶, 下行客戶.水差另算, 商品資料表.商品, 下行客戶.客戶下
794 800
                 ORDER BY   商品資料表.商品"
795 801
         CmdSet_For_DGV()
@@ -879,11 +885,15 @@ FROM 流水帳"
879 885
     End Sub
880 886
     Friend Sub SQL_客戶下資料表()
881 887
         ConnOpen_子SQL()
882
-        SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 客名 AS 客戶名稱, 計算, 同帳, 所得, 下層, 基數, 流水號, 所得另算, 水差另算  FROM 下行客戶"
888
+        SQL1 = "SELECT  下行客戶.客戶下 AS 客戶帳號, 下行客戶.網址, 下行客戶.帳號, 下行客戶.客名 AS 客戶名稱, 下行客戶.計算, 
889
+                        下行客戶.同帳, 下行客戶.所得, 下行客戶.下層, 下行客戶.基數, 下行客戶.流水號, 下行客戶.所得另算, 
890
+                        下行客戶.水差另算, 商品資料表.備用網址
891
+                FROM    下行客戶 INNER JOIN
892
+                        商品資料表 ON 下行客戶.網址 = 商品資料表.網址"
883 893
         CmdSet_For_DGV()
884 894
     End Sub
885 895
     Friend Sub SQL_股東紅利彙總表()
886
-        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, SUM(紅利) AS 總股, SUM(紅利) AS 總所得 FROM 電板股東紅利設定 GROUP BY 所得戶" : CmdSet_For_DGV()
896
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, SUM(ABS(紅利)) AS 總股, SUM(紅利) AS 總所得 FROM 電板股東紅利設定 GROUP BY 所得戶" : CmdSet_For_DGV()
887 897
     End Sub
888 898
     Friend Sub SQL_股東紅利明細表()
889 899
         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 總股份, 紅利 AS 股份, 紅利 FROM 電板股東紅利設定 ORDER BY 所得戶, 股東" : CmdSet_For_DGV()
@@ -991,7 +1001,7 @@ FROM 流水帳"
991 1001
         ConnOpen_子SQL() : SQL1 = "SELECT 水差另算 AS 水差, 水差另算 AS 交割金額, 水差另算 AS [交割金額.] FROM 下行客戶 GROUP BY 水差另算" : CmdSet_For_DGV()
992 1002
     End Sub
993 1003
     Friend Sub SQL_水差名出帳()
994
-        ConnOpen_子SQL() : SQL1 = "SELECT 客名 AS 水差, 客名 AS 交割金額, 客名 AS [交割金額.] FROM 下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 客名" : CmdSet_For_DGV()
1004
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 水差, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 所得另算" : CmdSet_For_DGV()
995 1005
     End Sub
996 1006
     Friend Sub SQL_上下層核帳()
997 1007
         ConnOpen_子SQL()

+ 10
- 2
GA-ERP-SYS/Module/SQL_資料庫系統管理.vb Просмотреть файл

@@ -555,12 +555,20 @@
555 555
     '------------------------------------客戶租用資料----------------------------------------------
556 556
     Friend Sub SQL_系統使用者()
557 557
         ConnOpen()
558
-        SQL1 = "SELECT 備註 AS 項次, 備註 AS 租用者, 帳號, 到期日, CC20 AS 有USBKey FROM 使用者權限管理表 WHERE (主客戶 NOT LIKE 'NA') AND (主客戶 NOT LIKE 'TEST%') ORDER BY   主客戶"
558
+        SQL1 = "SELECT 備註 AS 項次, 備註 AS 租用者, 帳號, 到期日, CC20 AS [KEY], 登入時間 FROM 使用者權限管理表 WHERE (主客戶 NOT LIKE 'NA') AND (主客戶 NOT LIKE 'TEST%') ORDER BY   主客戶"
559 559
         CmdSet_For_DGV()
560 560
     End Sub
561 561
     Friend Sub SQL_租用帳務()
562 562
         ConnOpen()
563
-        SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') ORDER BY 帳號, 到期日 DESC"
563
+        If 租用者帳務表.帳號_tb.Text = "" Then : 租用者帳務表.帳號_tb.Text = "%%" : End If
564
+        If 租用者帳務表.試用不計_ch.Checked = False Then
565
+            SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 
566
+                WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') ORDER BY 帳號, 到期日 DESC"
567
+        Else
568
+            SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 
569
+                WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND 費用 <> 0 ORDER BY 帳號, 到期日 DESC"
570
+        End If
571
+        If 租用者帳務表.帳號_tb.Text = "%%" Then : 租用者帳務表.帳號_tb.Text = "" : End If
564 572
         CmdSet_For_DGV()
565 573
     End Sub
566 574
     Friend Sub SQL_租用帳務新增()

+ 1
- 1
GA-ERP-SYS/Module/全域變數.vb Просмотреть файл

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

Двоичные данные
GA-ERP-SYS/bin/Debug/GA-ERP-SYS.exe Просмотреть файл


Двоичные данные
GA-ERP-SYS/bin/Debug/GA-ERP-SYS.pdb Просмотреть файл


Двоичные данные
GA-ERP-SYS/bin/GA-ERP-SYS-7.exe Просмотреть файл


Двоичные данные
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.exe Просмотреть файл


Двоичные данные
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.pdb Просмотреть файл


+ 1
- 1
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.CoreCompileInputs.cache Просмотреть файл

@@ -1 +1 @@
1
-0104b6024e287911de89dea5d8e71ad726622102
1
+3fcd9b16cdb84f1940cbbcab72bc6a0d3f1ebe56

+ 56
- 0
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.FileListAbsolute.txt Просмотреть файл

@@ -176,3 +176,59 @@ D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.測試.resources
176 176
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.下拉清單_1.resources
177 177
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址整合功能.resources
178 178
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.空白帳戶設定.resources
179
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe.config
180
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe
181
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.pdb
182
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.xml
183
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.dll
184
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\itextsharp.dll
185
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.xml
186
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbprojAssemblyReference.cache
187
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.ResolveComReference.cache
188
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.下拉清單_1.resources
189
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址帳號驗證中.resources
190
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板客戶名稱編輯器.resources
191
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽2.resources
192
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.列印選擇.resources
193
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.客戶資料.resources
194
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳號資料.resources
195
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務明細查詢表.resources
196
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.空白帳戶設定.resources
197
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.設定異常表.resources
198
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.進度條視窗.resources
199
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板紙板帳務設定.resources
200
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統公告.resources
201
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.錯誤排除手冊.resources
202
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LOG檔.resources
203
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務彙總計算表.resources
204
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.GA_ERP_SYS.resources
205
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LoginForm1.resources
206
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.Resources.resources
207
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.SplashScreen1.resources
208
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.USB_KEY_指定.resources
209
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.商客資料導入.resources
210
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板基本資料.resources
211
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳手動輸入.resources
212
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳自動導入.resources
213
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.FTP資料夾管理.resources
214
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.人員ID卡系統配置設定.resources
215
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.個人帳號管理.resources
216
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PY執行錯誤LOG檔.resources
217
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽1.resources
218
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.測試.resources
219
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.租用者帳務表.resources
220
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統使用者管理.resources
221
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統執行檔版本管理.resources
222
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統編碼規則.resources
223
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統通用變數管理.resources
224
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址整合功能.resources
225
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.計算機.resources
226
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.資料備份轉移.resources
227
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板股東紅利設定.resources
228
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.輸入密碼.resources
229
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.GenerateResource.cache
230
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CoreCompileInputs.cache
231
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CopyComplete
232
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
233
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
234
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb

Двоичные данные
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.GenerateResource.cache Просмотреть файл


Двоичные данные
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.ResolveComReference.cache Просмотреть файл


Двоичные данные
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbprojAssemblyReference.cache Просмотреть файл


Двоичные данные
GA-ERP-SYS/obj/Debug/GA_ERP_SYS.系統公告.resources Просмотреть файл


+ 12
- 12
GA-ERP-SYS/基本資料管理/電板基本資料.Designer.vb Просмотреть файл

@@ -23,10 +23,10 @@ Partial Class 電板基本資料
23 23
     <System.Diagnostics.DebuggerStepThrough()>
24 24
     Private Sub InitializeComponent()
25 25
         Me.components = New System.ComponentModel.Container()
26
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30 30
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
31 31
         Me.備用網址1_ch = New System.Windows.Forms.CheckBox()
32 32
         Me.備用_cb = New System.Windows.Forms.ComboBox()
@@ -551,8 +551,8 @@ Partial Class 電板基本資料
551 551
         '
552 552
         '基數_dgv
553 553
         '
554
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
555
-        Me.基數_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
554
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
555
+        Me.基數_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
556 556
         Me.基數_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
557 557
             Or System.Windows.Forms.AnchorStyles.Left) _
558 558
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -586,8 +586,8 @@ Partial Class 電板基本資料
586 586
         '
587 587
         '資料_dgv
588 588
         '
589
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
590
-        Me.資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
589
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
590
+        Me.資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
591 591
         Me.資料_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
592 592
             Or System.Windows.Forms.AnchorStyles.Left) _
593 593
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1723,8 +1723,8 @@ Partial Class 電板基本資料
1723 1723
         '
1724 1724
         'LOG1_dgv
1725 1725
         '
1726
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
1727
-        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
1726
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
1727
+        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
1728 1728
         Me.LOG1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
1729 1729
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
1730 1730
         Me.LOG1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -1738,8 +1738,8 @@ Partial Class 電板基本資料
1738 1738
         '
1739 1739
         'LOG2_dgv
1740 1740
         '
1741
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
1742
-        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
1741
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
1742
+        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
1743 1743
         Me.LOG2_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
1744 1744
             Or System.Windows.Forms.AnchorStyles.Left) _
1745 1745
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

+ 3
- 3
GA-ERP-SYS/基本資料管理/電板基本資料.vb Просмотреть файл

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

+ 299
- 300
GA-ERP-SYS/報表系統管理/帳務彙總計算表.Designer.vb Просмотреть файл

@@ -23,61 +23,61 @@ Partial Class 帳務彙總計算表
23 23
     <System.Diagnostics.DebuggerStepThrough()>
24 24
     Private Sub InitializeComponent()
25 25
         Me.components = New System.ComponentModel.Container()
26
-        Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
-        Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
-        Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
-        Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
-        Dim DataGridViewCellStyle60 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31
-        Dim DataGridViewCellStyle61 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32
-        Dim DataGridViewCellStyle62 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
33
-        Dim DataGridViewCellStyle63 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
34
-        Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
35
-        Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
36
-        Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
37
-        Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
38
-        Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
39
-        Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
40
-        Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
41
-        Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
42
-        Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
43
-        Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
44
-        Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
45
-        Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
46
-        Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
47
-        Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
48
-        Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
49
-        Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
50
-        Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
51
-        Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
52
-        Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
53
-        Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
54
-        Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
55
-        Dim DataGridViewCellStyle85 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
56
-        Dim DataGridViewCellStyle86 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
57
-        Dim DataGridViewCellStyle87 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
58
-        Dim DataGridViewCellStyle88 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
59
-        Dim DataGridViewCellStyle89 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
60
-        Dim DataGridViewCellStyle90 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
61
-        Dim DataGridViewCellStyle91 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
62
-        Dim DataGridViewCellStyle92 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
63
-        Dim DataGridViewCellStyle93 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
64
-        Dim DataGridViewCellStyle94 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
65
-        Dim DataGridViewCellStyle95 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
66
-        Dim DataGridViewCellStyle96 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
67
-        Dim DataGridViewCellStyle97 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
68
-        Dim DataGridViewCellStyle98 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
69
-        Dim DataGridViewCellStyle99 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
70
-        Dim DataGridViewCellStyle100 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
71
-        Dim DataGridViewCellStyle101 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
72
-        Dim DataGridViewCellStyle102 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
73
-        Dim DataGridViewCellStyle103 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
74
-        Dim DataGridViewCellStyle104 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
75
-        Dim DataGridViewCellStyle105 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
76
-        Dim DataGridViewCellStyle106 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
77
-        Dim DataGridViewCellStyle107 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
78
-        Dim DataGridViewCellStyle108 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
79
-        Dim DataGridViewCellStyle109 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
80
-        Dim DataGridViewCellStyle110 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
33
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
34
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
35
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
36
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
37
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
38
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
39
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
40
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
41
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
42
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
43
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
44
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
45
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
46
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
47
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
48
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
49
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
50
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
51
+        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
52
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
53
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
54
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
55
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
56
+        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
57
+        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
58
+        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
59
+        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
60
+        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
61
+        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
62
+        Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
63
+        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
64
+        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
65
+        Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
66
+        Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
67
+        Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
68
+        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
69
+        Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
70
+        Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
71
+        Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
72
+        Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
73
+        Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
74
+        Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
75
+        Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
76
+        Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
77
+        Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
78
+        Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
79
+        Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
80
+        Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
81 81
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
82 82
         Me.資料_cb = New System.Windows.Forms.ComboBox()
83 83
         Me.Label1 = New System.Windows.Forms.Label()
@@ -276,8 +276,8 @@ Partial Class 帳務彙總計算表
276 276
         '
277 277
         '流水帳_dgv
278 278
         '
279
-        DataGridViewCellStyle56.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
280
-        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
279
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
280
+        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
281 281
         Me.流水帳_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
282 282
             Or System.Windows.Forms.AnchorStyles.Left) _
283 283
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -344,29 +344,29 @@ Partial Class 帳務彙總計算表
344 344
         Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
345 345
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
346 346
         Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
347
-        DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
348
-        DataGridViewCellStyle57.BackColor = System.Drawing.SystemColors.Control
349
-        DataGridViewCellStyle57.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
350
-        DataGridViewCellStyle57.ForeColor = System.Drawing.SystemColors.WindowText
351
-        DataGridViewCellStyle57.SelectionBackColor = System.Drawing.Color.White
352
-        DataGridViewCellStyle57.SelectionForeColor = System.Drawing.SystemColors.HighlightText
353
-        DataGridViewCellStyle57.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
354
-        Me.彙總_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle57
347
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
348
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
349
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
350
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
351
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.Color.White
352
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
353
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
354
+        Me.彙總_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
355 355
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
356
-        DataGridViewCellStyle58.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
357
-        DataGridViewCellStyle58.BackColor = System.Drawing.SystemColors.Window
358
-        DataGridViewCellStyle58.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
359
-        DataGridViewCellStyle58.ForeColor = System.Drawing.SystemColors.ControlText
360
-        DataGridViewCellStyle58.SelectionBackColor = System.Drawing.Color.White
361
-        DataGridViewCellStyle58.SelectionForeColor = System.Drawing.Color.Black
362
-        DataGridViewCellStyle58.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
363
-        Me.彙總_dgv.DefaultCellStyle = DataGridViewCellStyle58
356
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
357
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
358
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
359
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
360
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.White
361
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
362
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
363
+        Me.彙總_dgv.DefaultCellStyle = DataGridViewCellStyle3
364 364
         Me.彙總_dgv.Location = New System.Drawing.Point(4, 29)
365 365
         Me.彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
366 366
         Me.彙總_dgv.Name = "彙總_dgv"
367 367
         Me.彙總_dgv.RowHeadersWidth = 4
368
-        DataGridViewCellStyle59.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
369
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle59
368
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
369
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
370 370
         Me.彙總_dgv.RowTemplate.Height = 24
371 371
         Me.彙總_dgv.Size = New System.Drawing.Size(601, 912)
372 372
         Me.彙總_dgv.TabIndex = 1521
@@ -396,8 +396,8 @@ Partial Class 帳務彙總計算表
396 396
         '
397 397
         '彙總1_dgv
398 398
         '
399
-        DataGridViewCellStyle60.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
400
-        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle60
399
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
400
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
401 401
         Me.彙總1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
402 402
             Or System.Windows.Forms.AnchorStyles.Left) _
403 403
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -416,37 +416,37 @@ Partial Class 帳務彙總計算表
416 416
         Me.上繳合帳_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
417 417
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
418 418
         Me.上繳合帳_dgv.BackgroundColor = System.Drawing.Color.White
419
-        DataGridViewCellStyle61.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
420
-        DataGridViewCellStyle61.BackColor = System.Drawing.SystemColors.Control
421
-        DataGridViewCellStyle61.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
422
-        DataGridViewCellStyle61.ForeColor = System.Drawing.SystemColors.WindowText
423
-        DataGridViewCellStyle61.SelectionBackColor = System.Drawing.Color.White
424
-        DataGridViewCellStyle61.SelectionForeColor = System.Drawing.SystemColors.HighlightText
425
-        DataGridViewCellStyle61.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
426
-        Me.上繳合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle61
419
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
420
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
421
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
422
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
423
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.Color.White
424
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
425
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
426
+        Me.上繳合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
427 427
         Me.上繳合帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
428
-        DataGridViewCellStyle62.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
429
-        DataGridViewCellStyle62.BackColor = System.Drawing.SystemColors.Window
430
-        DataGridViewCellStyle62.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
431
-        DataGridViewCellStyle62.ForeColor = System.Drawing.SystemColors.ControlText
432
-        DataGridViewCellStyle62.SelectionBackColor = System.Drawing.SystemColors.Info
433
-        DataGridViewCellStyle62.SelectionForeColor = System.Drawing.Color.Black
434
-        DataGridViewCellStyle62.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
435
-        Me.上繳合帳_dgv.DefaultCellStyle = DataGridViewCellStyle62
428
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
429
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
430
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
431
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
432
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Info
433
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black
434
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
435
+        Me.上繳合帳_dgv.DefaultCellStyle = DataGridViewCellStyle7
436 436
         Me.上繳合帳_dgv.Location = New System.Drawing.Point(-1, -1)
437 437
         Me.上繳合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
438 438
         Me.上繳合帳_dgv.Name = "上繳合帳_dgv"
439 439
         Me.上繳合帳_dgv.RowHeadersWidth = 4
440
-        DataGridViewCellStyle63.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
441
-        Me.上繳合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle63
440
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
441
+        Me.上繳合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
442 442
         Me.上繳合帳_dgv.RowTemplate.Height = 24
443 443
         Me.上繳合帳_dgv.Size = New System.Drawing.Size(280, 476)
444 444
         Me.上繳合帳_dgv.TabIndex = 1535
445 445
         '
446 446
         '客戶下_dgv
447 447
         '
448
-        DataGridViewCellStyle64.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
449
-        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle64
448
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
449
+        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
450 450
         Me.客戶下_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
451 451
             Or System.Windows.Forms.AnchorStyles.Left) _
452 452
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -495,8 +495,8 @@ Partial Class 帳務彙總計算表
495 495
         '
496 496
         'LOG1_dgv
497 497
         '
498
-        DataGridViewCellStyle65.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
499
-        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle65
498
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
499
+        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
500 500
         Me.LOG1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
501 501
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
502 502
         Me.LOG1_dgv.BackgroundColor = System.Drawing.Color.White
@@ -511,8 +511,8 @@ Partial Class 帳務彙總計算表
511 511
         '
512 512
         'LOG2_dgv
513 513
         '
514
-        DataGridViewCellStyle66.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
515
-        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle66
514
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
515
+        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
516 516
         Me.LOG2_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
517 517
             Or System.Windows.Forms.AnchorStyles.Left) _
518 518
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -579,8 +579,8 @@ Partial Class 帳務彙總計算表
579 579
         '
580 580
         '日期_dgv
581 581
         '
582
-        DataGridViewCellStyle67.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
583
-        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle67
582
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
583
+        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
584 584
         Me.日期_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
585 585
             Or System.Windows.Forms.AnchorStyles.Left) _
586 586
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -899,8 +899,8 @@ Partial Class 帳務彙總計算表
899 899
         Me.所得合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
900 900
         Me.所得合帳_dgv.Name = "所得合帳_dgv"
901 901
         Me.所得合帳_dgv.RowHeadersWidth = 4
902
-        DataGridViewCellStyle68.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
903
-        Me.所得合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle68
902
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
903
+        Me.所得合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
904 904
         Me.所得合帳_dgv.RowTemplate.Height = 24
905 905
         Me.所得合帳_dgv.Size = New System.Drawing.Size(280, 270)
906 906
         Me.所得合帳_dgv.TabIndex = 1579
@@ -979,29 +979,29 @@ Partial Class 帳務彙總計算表
979 979
         Me.下收合帳_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
980 980
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
981 981
         Me.下收合帳_dgv.BackgroundColor = System.Drawing.Color.White
982
-        DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
983
-        DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Control
984
-        DataGridViewCellStyle69.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
985
-        DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.WindowText
986
-        DataGridViewCellStyle69.SelectionBackColor = System.Drawing.Color.White
987
-        DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
988
-        DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
989
-        Me.下收合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle69
982
+        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
983
+        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
984
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
985
+        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
986
+        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.Color.White
987
+        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
988
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
989
+        Me.下收合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14
990 990
         Me.下收合帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
991
-        DataGridViewCellStyle70.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
992
-        DataGridViewCellStyle70.BackColor = System.Drawing.SystemColors.Window
993
-        DataGridViewCellStyle70.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
994
-        DataGridViewCellStyle70.ForeColor = System.Drawing.SystemColors.ControlText
995
-        DataGridViewCellStyle70.SelectionBackColor = System.Drawing.SystemColors.Info
996
-        DataGridViewCellStyle70.SelectionForeColor = System.Drawing.Color.Black
997
-        DataGridViewCellStyle70.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
998
-        Me.下收合帳_dgv.DefaultCellStyle = DataGridViewCellStyle70
991
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
992
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
993
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
994
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
995
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Info
996
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black
997
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
998
+        Me.下收合帳_dgv.DefaultCellStyle = DataGridViewCellStyle15
999 999
         Me.下收合帳_dgv.Location = New System.Drawing.Point(-1, -1)
1000 1000
         Me.下收合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1001 1001
         Me.下收合帳_dgv.Name = "下收合帳_dgv"
1002 1002
         Me.下收合帳_dgv.RowHeadersWidth = 4
1003
-        DataGridViewCellStyle71.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1004
-        Me.下收合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle71
1003
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1004
+        Me.下收合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
1005 1005
         Me.下收合帳_dgv.RowTemplate.Height = 24
1006 1006
         Me.下收合帳_dgv.Size = New System.Drawing.Size(280, 476)
1007 1007
         Me.下收合帳_dgv.TabIndex = 1588
@@ -1012,29 +1012,29 @@ Partial Class 帳務彙總計算表
1012 1012
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1013 1013
         Me.水差合帳_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1014 1014
         Me.水差合帳_dgv.BackgroundColor = System.Drawing.Color.White
1015
-        DataGridViewCellStyle72.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1016
-        DataGridViewCellStyle72.BackColor = System.Drawing.SystemColors.Control
1017
-        DataGridViewCellStyle72.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1018
-        DataGridViewCellStyle72.ForeColor = System.Drawing.SystemColors.WindowText
1019
-        DataGridViewCellStyle72.SelectionBackColor = System.Drawing.Color.White
1020
-        DataGridViewCellStyle72.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1021
-        DataGridViewCellStyle72.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1022
-        Me.水差合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle72
1015
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1016
+        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
1017
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1018
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
1019
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.Color.White
1020
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1021
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1022
+        Me.水差合帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
1023 1023
         Me.水差合帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1024
-        DataGridViewCellStyle73.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1025
-        DataGridViewCellStyle73.BackColor = System.Drawing.SystemColors.Window
1026
-        DataGridViewCellStyle73.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1027
-        DataGridViewCellStyle73.ForeColor = System.Drawing.SystemColors.ControlText
1028
-        DataGridViewCellStyle73.SelectionBackColor = System.Drawing.SystemColors.Info
1029
-        DataGridViewCellStyle73.SelectionForeColor = System.Drawing.Color.Black
1030
-        DataGridViewCellStyle73.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1031
-        Me.水差合帳_dgv.DefaultCellStyle = DataGridViewCellStyle73
1024
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1025
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
1026
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1027
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
1028
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Info
1029
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.Color.Black
1030
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1031
+        Me.水差合帳_dgv.DefaultCellStyle = DataGridViewCellStyle18
1032 1032
         Me.水差合帳_dgv.Location = New System.Drawing.Point(-1, 140)
1033 1033
         Me.水差合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1034 1034
         Me.水差合帳_dgv.Name = "水差合帳_dgv"
1035 1035
         Me.水差合帳_dgv.RowHeadersWidth = 4
1036
-        DataGridViewCellStyle74.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1037
-        Me.水差合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle74
1036
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1037
+        Me.水差合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle19
1038 1038
         Me.水差合帳_dgv.RowTemplate.Height = 24
1039 1039
         Me.水差合帳_dgv.Size = New System.Drawing.Size(280, 103)
1040 1040
         Me.水差合帳_dgv.TabIndex = 1589
@@ -1356,8 +1356,8 @@ Partial Class 帳務彙總計算表
1356 1356
         Me.合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1357 1357
         Me.合帳_dgv.Name = "合帳_dgv"
1358 1358
         Me.合帳_dgv.RowHeadersWidth = 4
1359
-        DataGridViewCellStyle75.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1360
-        Me.合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle75
1359
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1360
+        Me.合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
1361 1361
         Me.合帳_dgv.RowTemplate.Height = 24
1362 1362
         Me.合帳_dgv.Size = New System.Drawing.Size(601, 912)
1363 1363
         Me.合帳_dgv.TabIndex = 1676
@@ -1371,8 +1371,8 @@ Partial Class 帳務彙總計算表
1371 1371
         Me.上繳名_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1372 1372
         Me.上繳名_dgv.Name = "上繳名_dgv"
1373 1373
         Me.上繳名_dgv.RowHeadersWidth = 4
1374
-        DataGridViewCellStyle76.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1375
-        Me.上繳名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle76
1374
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1375
+        Me.上繳名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle21
1376 1376
         Me.上繳名_dgv.RowTemplate.Height = 24
1377 1377
         Me.上繳名_dgv.Size = New System.Drawing.Size(182, 334)
1378 1378
         Me.上繳名_dgv.TabIndex = 1677
@@ -1388,8 +1388,8 @@ Partial Class 帳務彙總計算表
1388 1388
         Me.下收名_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1389 1389
         Me.下收名_dgv.Name = "下收名_dgv"
1390 1390
         Me.下收名_dgv.RowHeadersWidth = 4
1391
-        DataGridViewCellStyle77.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1392
-        Me.下收名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle77
1391
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1392
+        Me.下收名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
1393 1393
         Me.下收名_dgv.RowTemplate.Height = 24
1394 1394
         Me.下收名_dgv.Size = New System.Drawing.Size(182, 573)
1395 1395
         Me.下收名_dgv.TabIndex = 1678
@@ -1403,8 +1403,8 @@ Partial Class 帳務彙總計算表
1403 1403
         Me.所得名_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1404 1404
         Me.所得名_dgv.Name = "所得名_dgv"
1405 1405
         Me.所得名_dgv.RowHeadersWidth = 4
1406
-        DataGridViewCellStyle78.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1407
-        Me.所得名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle78
1406
+        DataGridViewCellStyle23.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1407
+        Me.所得名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle23
1408 1408
         Me.所得名_dgv.RowTemplate.Height = 24
1409 1409
         Me.所得名_dgv.Size = New System.Drawing.Size(182, 334)
1410 1410
         Me.所得名_dgv.TabIndex = 1679
@@ -1418,8 +1418,8 @@ Partial Class 帳務彙總計算表
1418 1418
         Me.水差名_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1419 1419
         Me.水差名_dgv.Name = "水差名_dgv"
1420 1420
         Me.水差名_dgv.RowHeadersWidth = 4
1421
-        DataGridViewCellStyle79.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1422
-        Me.水差名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle79
1421
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1422
+        Me.水差名_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
1423 1423
         Me.水差名_dgv.RowTemplate.Height = 24
1424 1424
         Me.水差名_dgv.Size = New System.Drawing.Size(154, 107)
1425 1425
         Me.水差名_dgv.TabIndex = 1680
@@ -1452,10 +1452,10 @@ Partial Class 帳務彙總計算表
1452 1452
         Me.水差名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1453 1453
         Me.水差名1_dgv.Name = "水差名1_dgv"
1454 1454
         Me.水差名1_dgv.RowHeadersWidth = 4
1455
-        DataGridViewCellStyle80.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1456
-        Me.水差名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle80
1455
+        DataGridViewCellStyle25.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1456
+        Me.水差名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle25
1457 1457
         Me.水差名1_dgv.RowTemplate.Height = 24
1458
-        Me.水差名1_dgv.Size = New System.Drawing.Size(154, 463)
1458
+        Me.水差名1_dgv.Size = New System.Drawing.Size(154, 465)
1459 1459
         Me.水差名1_dgv.TabIndex = 1684
1460 1460
         '
1461 1461
         '紅利總表_dgv
@@ -1469,8 +1469,8 @@ Partial Class 帳務彙總計算表
1469 1469
         Me.紅利總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1470 1470
         Me.紅利總表_dgv.Name = "紅利總表_dgv"
1471 1471
         Me.紅利總表_dgv.RowHeadersWidth = 4
1472
-        DataGridViewCellStyle81.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1473
-        Me.紅利總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle81
1472
+        DataGridViewCellStyle26.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1473
+        Me.紅利總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
1474 1474
         Me.紅利總表_dgv.RowTemplate.Height = 24
1475 1475
         Me.紅利總表_dgv.Size = New System.Drawing.Size(210, 573)
1476 1476
         Me.紅利總表_dgv.TabIndex = 1683
@@ -1484,8 +1484,8 @@ Partial Class 帳務彙總計算表
1484 1484
         Me.紅利分表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1485 1485
         Me.紅利分表_dgv.Name = "紅利分表_dgv"
1486 1486
         Me.紅利分表_dgv.RowHeadersWidth = 4
1487
-        DataGridViewCellStyle82.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1488
-        Me.紅利分表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle82
1487
+        DataGridViewCellStyle27.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1488
+        Me.紅利分表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle27
1489 1489
         Me.紅利分表_dgv.RowTemplate.Height = 24
1490 1490
         Me.紅利分表_dgv.Size = New System.Drawing.Size(365, 334)
1491 1491
         Me.紅利分表_dgv.TabIndex = 1682
@@ -1501,8 +1501,8 @@ Partial Class 帳務彙總計算表
1501 1501
         Me.所得名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1502 1502
         Me.所得名1_dgv.Name = "所得名1_dgv"
1503 1503
         Me.所得名1_dgv.RowHeadersWidth = 4
1504
-        DataGridViewCellStyle83.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1505
-        Me.所得名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle83
1504
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1505
+        Me.所得名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
1506 1506
         Me.所得名1_dgv.RowTemplate.Height = 24
1507 1507
         Me.所得名1_dgv.Size = New System.Drawing.Size(182, 573)
1508 1508
         Me.所得名1_dgv.TabIndex = 1681
@@ -1587,29 +1587,29 @@ Partial Class 帳務彙總計算表
1587 1587
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1588 1588
         Me.水差合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1589 1589
         Me.水差合帳2_dgv.BackgroundColor = System.Drawing.Color.White
1590
-        DataGridViewCellStyle84.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1591
-        DataGridViewCellStyle84.BackColor = System.Drawing.SystemColors.Control
1592
-        DataGridViewCellStyle84.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1593
-        DataGridViewCellStyle84.ForeColor = System.Drawing.SystemColors.WindowText
1594
-        DataGridViewCellStyle84.SelectionBackColor = System.Drawing.Color.White
1595
-        DataGridViewCellStyle84.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1596
-        DataGridViewCellStyle84.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1597
-        Me.水差合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle84
1590
+        DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1591
+        DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control
1592
+        DataGridViewCellStyle29.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1593
+        DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText
1594
+        DataGridViewCellStyle29.SelectionBackColor = System.Drawing.Color.White
1595
+        DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1596
+        DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1597
+        Me.水差合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle29
1598 1598
         Me.水差合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1599
-        DataGridViewCellStyle85.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1600
-        DataGridViewCellStyle85.BackColor = System.Drawing.SystemColors.Window
1601
-        DataGridViewCellStyle85.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1602
-        DataGridViewCellStyle85.ForeColor = System.Drawing.SystemColors.ControlText
1603
-        DataGridViewCellStyle85.SelectionBackColor = System.Drawing.SystemColors.Info
1604
-        DataGridViewCellStyle85.SelectionForeColor = System.Drawing.Color.Black
1605
-        DataGridViewCellStyle85.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1606
-        Me.水差合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle85
1599
+        DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1600
+        DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Window
1601
+        DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1602
+        DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.ControlText
1603
+        DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Info
1604
+        DataGridViewCellStyle30.SelectionForeColor = System.Drawing.Color.Black
1605
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1606
+        Me.水差合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle30
1607 1607
         Me.水差合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
1608 1608
         Me.水差合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1609 1609
         Me.水差合帳2_dgv.Name = "水差合帳2_dgv"
1610 1610
         Me.水差合帳2_dgv.RowHeadersWidth = 4
1611
-        DataGridViewCellStyle86.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1612
-        Me.水差合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle86
1611
+        DataGridViewCellStyle31.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1612
+        Me.水差合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle31
1613 1613
         Me.水差合帳2_dgv.RowTemplate.Height = 24
1614 1614
         Me.水差合帳2_dgv.Size = New System.Drawing.Size(280, 353)
1615 1615
         Me.水差合帳2_dgv.TabIndex = 1699
@@ -1624,8 +1624,8 @@ Partial Class 帳務彙總計算表
1624 1624
         Me.水差合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1625 1625
         Me.水差合帳1_dgv.Name = "水差合帳1_dgv"
1626 1626
         Me.水差合帳1_dgv.RowHeadersWidth = 4
1627
-        DataGridViewCellStyle87.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1628
-        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle87
1627
+        DataGridViewCellStyle32.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1628
+        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle32
1629 1629
         Me.水差合帳1_dgv.RowTemplate.Height = 24
1630 1630
         Me.水差合帳1_dgv.Size = New System.Drawing.Size(280, 110)
1631 1631
         Me.水差合帳1_dgv.TabIndex = 1698
@@ -1688,29 +1688,29 @@ Partial Class 帳務彙總計算表
1688 1688
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1689 1689
         Me.所得合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1690 1690
         Me.所得合帳2_dgv.BackgroundColor = System.Drawing.Color.White
1691
-        DataGridViewCellStyle88.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1692
-        DataGridViewCellStyle88.BackColor = System.Drawing.SystemColors.Control
1693
-        DataGridViewCellStyle88.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1694
-        DataGridViewCellStyle88.ForeColor = System.Drawing.SystemColors.WindowText
1695
-        DataGridViewCellStyle88.SelectionBackColor = System.Drawing.Color.White
1696
-        DataGridViewCellStyle88.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1697
-        DataGridViewCellStyle88.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1698
-        Me.所得合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle88
1691
+        DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1692
+        DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Control
1693
+        DataGridViewCellStyle33.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1694
+        DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText
1695
+        DataGridViewCellStyle33.SelectionBackColor = System.Drawing.Color.White
1696
+        DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1697
+        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1698
+        Me.所得合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33
1699 1699
         Me.所得合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1700
-        DataGridViewCellStyle89.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1701
-        DataGridViewCellStyle89.BackColor = System.Drawing.SystemColors.Window
1702
-        DataGridViewCellStyle89.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1703
-        DataGridViewCellStyle89.ForeColor = System.Drawing.SystemColors.ControlText
1704
-        DataGridViewCellStyle89.SelectionBackColor = System.Drawing.SystemColors.Info
1705
-        DataGridViewCellStyle89.SelectionForeColor = System.Drawing.Color.Black
1706
-        DataGridViewCellStyle89.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1707
-        Me.所得合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle89
1700
+        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1701
+        DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window
1702
+        DataGridViewCellStyle34.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1703
+        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText
1704
+        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Info
1705
+        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.Color.Black
1706
+        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1707
+        Me.所得合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle34
1708 1708
         Me.所得合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
1709 1709
         Me.所得合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1710 1710
         Me.所得合帳2_dgv.Name = "所得合帳2_dgv"
1711 1711
         Me.所得合帳2_dgv.RowHeadersWidth = 4
1712
-        DataGridViewCellStyle90.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1713
-        Me.所得合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle90
1712
+        DataGridViewCellStyle35.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1713
+        Me.所得合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle35
1714 1714
         Me.所得合帳2_dgv.RowTemplate.Height = 24
1715 1715
         Me.所得合帳2_dgv.Size = New System.Drawing.Size(280, 353)
1716 1716
         Me.所得合帳2_dgv.TabIndex = 1630
@@ -1725,8 +1725,8 @@ Partial Class 帳務彙總計算表
1725 1725
         Me.所得合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1726 1726
         Me.所得合帳1_dgv.Name = "所得合帳1_dgv"
1727 1727
         Me.所得合帳1_dgv.RowHeadersWidth = 4
1728
-        DataGridViewCellStyle91.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1729
-        Me.所得合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle91
1728
+        DataGridViewCellStyle36.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1729
+        Me.所得合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle36
1730 1730
         Me.所得合帳1_dgv.RowTemplate.Height = 24
1731 1731
         Me.所得合帳1_dgv.Size = New System.Drawing.Size(280, 84)
1732 1732
         Me.所得合帳1_dgv.TabIndex = 1629
@@ -1754,11 +1754,11 @@ Partial Class 帳務彙總計算表
1754 1754
         '
1755 1755
         'SplitContainer1.Panel1
1756 1756
         '
1757
-        Me.SplitContainer1.Panel1.Controls.Add(Me.紅利整合_dgv)
1758 1757
         Me.SplitContainer1.Panel1.Controls.Add(Me.股份表一_tb)
1759 1758
         Me.SplitContainer1.Panel1.Controls.Add(Me.股份表二_tb)
1760 1759
         Me.SplitContainer1.Panel1.Controls.Add(Me.紅利支出_dgv)
1761 1760
         Me.SplitContainer1.Panel1.Controls.Add(Me.紅利收入_dgv)
1761
+        Me.SplitContainer1.Panel1.Controls.Add(Me.紅利整合_dgv)
1762 1762
         '
1763 1763
         'SplitContainer1.Panel2
1764 1764
         '
@@ -1776,29 +1776,29 @@ Partial Class 帳務彙總計算表
1776 1776
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
1777 1777
         Me.紅利整合_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1778 1778
         Me.紅利整合_dgv.BackgroundColor = System.Drawing.Color.White
1779
-        DataGridViewCellStyle92.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1780
-        DataGridViewCellStyle92.BackColor = System.Drawing.SystemColors.Control
1781
-        DataGridViewCellStyle92.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1782
-        DataGridViewCellStyle92.ForeColor = System.Drawing.SystemColors.WindowText
1783
-        DataGridViewCellStyle92.SelectionBackColor = System.Drawing.Color.White
1784
-        DataGridViewCellStyle92.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1785
-        DataGridViewCellStyle92.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1786
-        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle92
1779
+        DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1780
+        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
1781
+        DataGridViewCellStyle43.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1782
+        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
1783
+        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.Color.White
1784
+        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1785
+        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1786
+        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
1787 1787
         Me.紅利整合_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1788
-        DataGridViewCellStyle93.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1789
-        DataGridViewCellStyle93.BackColor = System.Drawing.SystemColors.Window
1790
-        DataGridViewCellStyle93.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1791
-        DataGridViewCellStyle93.ForeColor = System.Drawing.SystemColors.ControlText
1792
-        DataGridViewCellStyle93.SelectionBackColor = System.Drawing.SystemColors.Info
1793
-        DataGridViewCellStyle93.SelectionForeColor = System.Drawing.Color.Black
1794
-        DataGridViewCellStyle93.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1795
-        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle93
1788
+        DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1789
+        DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
1790
+        DataGridViewCellStyle44.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1791
+        DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
1792
+        DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Info
1793
+        DataGridViewCellStyle44.SelectionForeColor = System.Drawing.Color.Black
1794
+        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1795
+        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle44
1796 1796
         Me.紅利整合_dgv.Location = New System.Drawing.Point(-1, -1)
1797 1797
         Me.紅利整合_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1798 1798
         Me.紅利整合_dgv.Name = "紅利整合_dgv"
1799 1799
         Me.紅利整合_dgv.RowHeadersWidth = 4
1800
-        DataGridViewCellStyle94.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1801
-        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle94
1800
+        DataGridViewCellStyle45.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1801
+        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
1802 1802
         Me.紅利整合_dgv.RowTemplate.Height = 24
1803 1803
         Me.紅利整合_dgv.Size = New System.Drawing.Size(170, 476)
1804 1804
         Me.紅利整合_dgv.TabIndex = 1695
@@ -1829,37 +1829,36 @@ Partial Class 帳務彙總計算表
1829 1829
         '
1830 1830
         '紅利支出_dgv
1831 1831
         '
1832
-        Me.紅利支出_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
1833
-            Or System.Windows.Forms.AnchorStyles.Left) _
1832
+        Me.紅利支出_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
1834 1833
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
1835 1834
         Me.紅利支出_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1836 1835
         Me.紅利支出_dgv.BackgroundColor = System.Drawing.Color.White
1837 1836
         Me.紅利支出_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
1838
-        DataGridViewCellStyle95.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1839
-        DataGridViewCellStyle95.BackColor = System.Drawing.SystemColors.Control
1840
-        DataGridViewCellStyle95.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1841
-        DataGridViewCellStyle95.ForeColor = System.Drawing.SystemColors.WindowText
1842
-        DataGridViewCellStyle95.SelectionBackColor = System.Drawing.Color.White
1843
-        DataGridViewCellStyle95.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1844
-        DataGridViewCellStyle95.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1845
-        Me.紅利支出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle95
1837
+        DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1838
+        DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control
1839
+        DataGridViewCellStyle37.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1840
+        DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
1841
+        DataGridViewCellStyle37.SelectionBackColor = System.Drawing.Color.White
1842
+        DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1843
+        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1844
+        Me.紅利支出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle37
1846 1845
         Me.紅利支出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1847
-        DataGridViewCellStyle96.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1848
-        DataGridViewCellStyle96.BackColor = System.Drawing.SystemColors.Window
1849
-        DataGridViewCellStyle96.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1850
-        DataGridViewCellStyle96.ForeColor = System.Drawing.SystemColors.ControlText
1851
-        DataGridViewCellStyle96.SelectionBackColor = System.Drawing.Color.Gainsboro
1852
-        DataGridViewCellStyle96.SelectionForeColor = System.Drawing.Color.Black
1853
-        DataGridViewCellStyle96.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1854
-        Me.紅利支出_dgv.DefaultCellStyle = DataGridViewCellStyle96
1846
+        DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1847
+        DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window
1848
+        DataGridViewCellStyle38.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1849
+        DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText
1850
+        DataGridViewCellStyle38.SelectionBackColor = System.Drawing.Color.Gainsboro
1851
+        DataGridViewCellStyle38.SelectionForeColor = System.Drawing.Color.Black
1852
+        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1853
+        Me.紅利支出_dgv.DefaultCellStyle = DataGridViewCellStyle38
1855 1854
         Me.紅利支出_dgv.Location = New System.Drawing.Point(-1, -1)
1856 1855
         Me.紅利支出_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1857 1856
         Me.紅利支出_dgv.Name = "紅利支出_dgv"
1858 1857
         Me.紅利支出_dgv.RowHeadersWidth = 4
1859
-        DataGridViewCellStyle97.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1860
-        Me.紅利支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle97
1858
+        DataGridViewCellStyle39.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1859
+        Me.紅利支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle39
1861 1860
         Me.紅利支出_dgv.RowTemplate.Height = 24
1862
-        Me.紅利支出_dgv.Size = New System.Drawing.Size(170, 324)
1861
+        Me.紅利支出_dgv.Size = New System.Drawing.Size(170, 155)
1863 1862
         Me.紅利支出_dgv.TabIndex = 1693
1864 1863
         '
1865 1864
         '紅利收入_dgv
@@ -1870,29 +1869,29 @@ Partial Class 帳務彙總計算表
1870 1869
         Me.紅利收入_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1871 1870
         Me.紅利收入_dgv.BackgroundColor = System.Drawing.Color.White
1872 1871
         Me.紅利收入_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
1873
-        DataGridViewCellStyle98.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1874
-        DataGridViewCellStyle98.BackColor = System.Drawing.SystemColors.Control
1875
-        DataGridViewCellStyle98.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1876
-        DataGridViewCellStyle98.ForeColor = System.Drawing.SystemColors.WindowText
1877
-        DataGridViewCellStyle98.SelectionBackColor = System.Drawing.Color.White
1878
-        DataGridViewCellStyle98.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1879
-        DataGridViewCellStyle98.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1880
-        Me.紅利收入_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle98
1872
+        DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1873
+        DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
1874
+        DataGridViewCellStyle40.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1875
+        DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
1876
+        DataGridViewCellStyle40.SelectionBackColor = System.Drawing.Color.White
1877
+        DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1878
+        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1879
+        Me.紅利收入_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
1881 1880
         Me.紅利收入_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1882
-        DataGridViewCellStyle99.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1883
-        DataGridViewCellStyle99.BackColor = System.Drawing.SystemColors.Window
1884
-        DataGridViewCellStyle99.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1885
-        DataGridViewCellStyle99.ForeColor = System.Drawing.SystemColors.ControlText
1886
-        DataGridViewCellStyle99.SelectionBackColor = System.Drawing.Color.Gainsboro
1887
-        DataGridViewCellStyle99.SelectionForeColor = System.Drawing.Color.Black
1888
-        DataGridViewCellStyle99.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1889
-        Me.紅利收入_dgv.DefaultCellStyle = DataGridViewCellStyle99
1881
+        DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1882
+        DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
1883
+        DataGridViewCellStyle41.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1884
+        DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
1885
+        DataGridViewCellStyle41.SelectionBackColor = System.Drawing.Color.Gainsboro
1886
+        DataGridViewCellStyle41.SelectionForeColor = System.Drawing.Color.Black
1887
+        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1888
+        Me.紅利收入_dgv.DefaultCellStyle = DataGridViewCellStyle41
1890 1889
         Me.紅利收入_dgv.Location = New System.Drawing.Point(-1, 153)
1891 1890
         Me.紅利收入_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1892 1891
         Me.紅利收入_dgv.Name = "紅利收入_dgv"
1893 1892
         Me.紅利收入_dgv.RowHeadersWidth = 4
1894
-        DataGridViewCellStyle100.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1895
-        Me.紅利收入_dgv.RowsDefaultCellStyle = DataGridViewCellStyle100
1893
+        DataGridViewCellStyle42.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1894
+        Me.紅利收入_dgv.RowsDefaultCellStyle = DataGridViewCellStyle42
1896 1895
         Me.紅利收入_dgv.RowTemplate.Height = 24
1897 1896
         Me.紅利收入_dgv.Size = New System.Drawing.Size(170, 322)
1898 1897
         Me.紅利收入_dgv.TabIndex = 1694
@@ -1903,20 +1902,20 @@ Partial Class 帳務彙總計算表
1903 1902
         Me.紙帳前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1904 1903
         Me.紙帳前期_dgv.BackgroundColor = System.Drawing.Color.White
1905 1904
         Me.紙帳前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1906
-        DataGridViewCellStyle101.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1907
-        DataGridViewCellStyle101.BackColor = System.Drawing.SystemColors.Window
1908
-        DataGridViewCellStyle101.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1909
-        DataGridViewCellStyle101.ForeColor = System.Drawing.SystemColors.ControlText
1910
-        DataGridViewCellStyle101.SelectionBackColor = System.Drawing.SystemColors.Info
1911
-        DataGridViewCellStyle101.SelectionForeColor = System.Drawing.Color.Black
1912
-        DataGridViewCellStyle101.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1913
-        Me.紙帳前期_dgv.DefaultCellStyle = DataGridViewCellStyle101
1905
+        DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1906
+        DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Window
1907
+        DataGridViewCellStyle46.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1908
+        DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.ControlText
1909
+        DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Info
1910
+        DataGridViewCellStyle46.SelectionForeColor = System.Drawing.Color.Black
1911
+        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1912
+        Me.紙帳前期_dgv.DefaultCellStyle = DataGridViewCellStyle46
1914 1913
         Me.紙帳前期_dgv.Location = New System.Drawing.Point(-1, 302)
1915 1914
         Me.紙帳前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1916 1915
         Me.紙帳前期_dgv.Name = "紙帳前期_dgv"
1917 1916
         Me.紙帳前期_dgv.RowHeadersWidth = 4
1918
-        DataGridViewCellStyle102.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1919
-        Me.紙帳前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle102
1917
+        DataGridViewCellStyle47.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1918
+        Me.紙帳前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle47
1920 1919
         Me.紙帳前期_dgv.RowTemplate.Height = 24
1921 1920
         Me.紙帳前期_dgv.Size = New System.Drawing.Size(170, 51)
1922 1921
         Me.紙帳前期_dgv.TabIndex = 1631
@@ -1939,29 +1938,29 @@ Partial Class 帳務彙總計算表
1939 1938
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1940 1939
         Me.紙帳非前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1941 1940
         Me.紙帳非前期_dgv.BackgroundColor = System.Drawing.Color.White
1942
-        DataGridViewCellStyle103.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1943
-        DataGridViewCellStyle103.BackColor = System.Drawing.SystemColors.Control
1944
-        DataGridViewCellStyle103.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1945
-        DataGridViewCellStyle103.ForeColor = System.Drawing.SystemColors.WindowText
1946
-        DataGridViewCellStyle103.SelectionBackColor = System.Drawing.Color.White
1947
-        DataGridViewCellStyle103.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1948
-        DataGridViewCellStyle103.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1949
-        Me.紙帳非前期_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle103
1941
+        DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1942
+        DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Control
1943
+        DataGridViewCellStyle48.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1944
+        DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.WindowText
1945
+        DataGridViewCellStyle48.SelectionBackColor = System.Drawing.Color.White
1946
+        DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1947
+        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1948
+        Me.紙帳非前期_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle48
1950 1949
         Me.紙帳非前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1951
-        DataGridViewCellStyle104.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1952
-        DataGridViewCellStyle104.BackColor = System.Drawing.SystemColors.Window
1953
-        DataGridViewCellStyle104.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1954
-        DataGridViewCellStyle104.ForeColor = System.Drawing.SystemColors.ControlText
1955
-        DataGridViewCellStyle104.SelectionBackColor = System.Drawing.SystemColors.Info
1956
-        DataGridViewCellStyle104.SelectionForeColor = System.Drawing.Color.Black
1957
-        DataGridViewCellStyle104.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1958
-        Me.紙帳非前期_dgv.DefaultCellStyle = DataGridViewCellStyle104
1950
+        DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1951
+        DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Window
1952
+        DataGridViewCellStyle49.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1953
+        DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.ControlText
1954
+        DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Info
1955
+        DataGridViewCellStyle49.SelectionForeColor = System.Drawing.Color.Black
1956
+        DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1957
+        Me.紙帳非前期_dgv.DefaultCellStyle = DataGridViewCellStyle49
1959 1958
         Me.紙帳非前期_dgv.Location = New System.Drawing.Point(-1, -1)
1960 1959
         Me.紙帳非前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1961 1960
         Me.紙帳非前期_dgv.Name = "紙帳非前期_dgv"
1962 1961
         Me.紙帳非前期_dgv.RowHeadersWidth = 4
1963
-        DataGridViewCellStyle105.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1964
-        Me.紙帳非前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle105
1962
+        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1963
+        Me.紙帳非前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
1965 1964
         Me.紙帳非前期_dgv.RowTemplate.Height = 24
1966 1965
         Me.紙帳非前期_dgv.Size = New System.Drawing.Size(170, 304)
1967 1966
         Me.紙帳非前期_dgv.TabIndex = 1632
@@ -2086,8 +2085,8 @@ Partial Class 帳務彙總計算表
2086 2085
         '
2087 2086
         '電板客戶_dgv
2088 2087
         '
2089
-        DataGridViewCellStyle106.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2090
-        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle106
2088
+        DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2089
+        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
2091 2090
         Me.電板客戶_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2092 2091
             Or System.Windows.Forms.AnchorStyles.Left) _
2093 2092
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2103,8 +2102,8 @@ Partial Class 帳務彙總計算表
2103 2102
         '
2104 2103
         '電板紙帳1_dgv
2105 2104
         '
2106
-        DataGridViewCellStyle107.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2107
-        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle107
2105
+        DataGridViewCellStyle52.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2106
+        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle52
2108 2107
         Me.電板紙帳1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2109 2108
             Or System.Windows.Forms.AnchorStyles.Left) _
2110 2109
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2120,8 +2119,8 @@ Partial Class 帳務彙總計算表
2120 2119
         '
2121 2120
         '紙帳流水1_dgv
2122 2121
         '
2123
-        DataGridViewCellStyle108.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2124
-        Me.紙帳流水1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle108
2122
+        DataGridViewCellStyle53.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2123
+        Me.紙帳流水1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53
2125 2124
         Me.紙帳流水1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2126 2125
             Or System.Windows.Forms.AnchorStyles.Left) _
2127 2126
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2160,8 +2159,8 @@ Partial Class 帳務彙總計算表
2160 2159
         '
2161 2160
         '紙帳導入_dgv
2162 2161
         '
2163
-        DataGridViewCellStyle109.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2164
-        Me.紙帳導入_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle109
2162
+        DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2163
+        Me.紙帳導入_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
2165 2164
         Me.紙帳導入_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2166 2165
             Or System.Windows.Forms.AnchorStyles.Left) _
2167 2166
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2189,8 +2188,8 @@ Partial Class 帳務彙總計算表
2189 2188
         '
2190 2189
         '電板所得_dgv
2191 2190
         '
2192
-        DataGridViewCellStyle110.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2193
-        Me.電板所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle110
2191
+        DataGridViewCellStyle55.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2192
+        Me.電板所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle55
2194 2193
         Me.電板所得_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2195 2194
             Or System.Windows.Forms.AnchorStyles.Left) _
2196 2195
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2304,16 +2303,16 @@ Partial Class 帳務彙總計算表
2304 2303
         Me.Controls.Add(Me.彙總1_dgv)
2305 2304
         Me.Controls.Add(Me.客戶下_dgv)
2306 2305
         Me.Controls.Add(Me.L50)
2307
-        Me.Controls.Add(Me.Panel2)
2308
-        Me.Controls.Add(Me.Panel1)
2309
-        Me.Controls.Add(Me.流水帳_dgv)
2310
-        Me.Controls.Add(Me.Label4)
2311 2306
         Me.Controls.Add(Me.月_ch)
2312 2307
         Me.Controls.Add(Me.周_ch)
2313 2308
         Me.Controls.Add(Me.天_ch)
2314 2309
         Me.Controls.Add(Me.合帳_dgv)
2315 2310
         Me.Controls.Add(Me.彙總_dgv)
2316 2311
         Me.Controls.Add(Me.Panel3)
2312
+        Me.Controls.Add(Me.Panel2)
2313
+        Me.Controls.Add(Me.Panel1)
2314
+        Me.Controls.Add(Me.流水帳_dgv)
2315
+        Me.Controls.Add(Me.Label4)
2317 2316
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2318 2317
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
2319 2318
         Me.Name = "帳務彙總計算表"

+ 46
- 21
GA-ERP-SYS/報表系統管理/帳務彙總計算表.vb Просмотреть файл

@@ -270,7 +270,8 @@ Public Class 帳務彙總計算表
270 270
             '------------取得客戶名稱,寫入計算與同帳設定--------------------------------------------------------------------------------------------------------------------
271 271
             For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
272 272
                 If 流水帳_dgv("客帳", i).Value.ToString.ToLower() = 客戶下_dgv("客戶帳號", ii).Value.ToString.ToLower() And
273
-                   流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() And
273
+                  (流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() Or
274
+                   流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("備用網址", ii).Value.ToString.ToLower()) And
274 275
                    流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
275 276
                     流水帳_dgv("客名", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString
276 277
                     流水帳_dgv("同帳指定", i).Value = 客戶下_dgv("基數", ii).Value : 流水帳_dgv("下收", i).Value = 客戶下_dgv("基數", ii).Value
@@ -568,7 +569,8 @@ Public Class 帳務彙總計算表
568 569
                 End If
569 570
             Next
570 571
             For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
571
-                If 流水帳_dgv.Rows(i).Cells("水差出帳").Value.ToString.ToLower() = 水差名1_dgv.Rows(II).Cells("水差").Value.ToString.ToLower() Then
572
+                If 流水帳_dgv.Rows(i).Cells("所得指定").Value.ToString.ToLower() = 水差名1_dgv.Rows(II).Cells("水差").Value.ToString.ToLower() And
573
+                   流水帳_dgv.Rows(i).Cells("水差指定").Value.ToString <> "" Then
572 574
                     水差名1_dgv.Rows(II).Cells("交割金額.").Value = Val(水差名1_dgv.Rows(II).Cells("交割金額").Value) + (Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString) * -1)
573 575
                     水差名1_dgv.Rows(II).Cells("交割金額").Value = Val(水差名1_dgv.Rows(II).Cells("交割金額").Value) + (Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString) * -1)
574 576
                     水差名1_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(水差名1_dgv.Rows(II).Cells("交割金額.").Value), "#,##0")
@@ -580,11 +582,14 @@ Public Class 帳務彙總計算表
580 582
                 If 紅利分表_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利總表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() Then
581 583
                     紅利分表_dgv.Rows(i).Cells("總股份").Value = 紅利總表_dgv.Rows(II).Cells("總股").Value
582 584
                     紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利總表_dgv.Rows(II).Cells("總所得").Value
583
-                    If 紅利分表_dgv.Rows(i).Cells("股份").Value > 0 Then
584
-                        紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value)
585
-                    ElseIf 紅利分表_dgv.Rows(i).Cells("股份").Value < 0 Then
586
-                        紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value) * -1
587
-                    End If
585
+
586
+                    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value)
587
+
588
+                    'If 紅利分表_dgv.Rows(i).Cells("股份").Value > 0 Then
589
+                    '    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value)
590
+                    'ElseIf 紅利分表_dgv.Rows(i).Cells("股份").Value < 0 Then
591
+                    '    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value) * -1
592
+                    'End If
588 593
                 End If
589 594
             Next
590 595
         Next
@@ -1025,7 +1030,7 @@ Public Class 帳務彙總計算表
1025 1030
                 If 是否子明細 = False Then
1026 1031
                     If 是否明細 = False Then
1027 1032
                         If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
1028
-                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差出帳").Value.ToString.ToLower() Then
1033
+                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
1029 1034
                             If 合帳_dgv("水反", 選擇記憶).Value = False Then
1030 1035
                                 水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
1031 1036
                                 水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
@@ -1037,7 +1042,7 @@ Public Class 帳務彙總計算表
1037 1042
                     Else
1038 1043
                         If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
1039 1044
                            水差合帳1_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
1040
-                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差出帳").Value.ToString.ToLower() Then
1045
+                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
1041 1046
                             If 合帳_dgv("水反", 選擇記憶).Value = False Then
1042 1047
                                 水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
1043 1048
                                 水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
@@ -1050,7 +1055,7 @@ Public Class 帳務彙總計算表
1050 1055
                 Else
1051 1056
                     If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
1052 1057
                        水差合帳1_dgv.Rows(i).Cells("客戶").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("客帳").Value.ToString.ToLower() And
1053
-                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差出帳").Value.ToString.ToLower() Then
1058
+                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
1054 1059
                         If 合帳_dgv("水反", 選擇記憶).Value = False Then
1055 1060
                             水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
1056 1061
                             水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
@@ -1142,11 +1147,16 @@ Public Class 帳務彙總計算表
1142 1147
                 If 紅利支出_dgv.Rows(i).Cells("股東").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("股東").Value.ToString.ToLower() And
1143 1148
                    紅利支出_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() And
1144 1149
                    紅利支出_dgv.Rows(i).Cells("紅利").Value = 0 Then
1145
-                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
1146
-                        紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
1147
-                    Else
1150
+                    If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
1148 1151
                         紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value
1152
+                    Else
1153
+                        紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
1149 1154
                     End If
1155
+                    'If 合帳_dgv("紅反", 選擇記憶).Value = False Then
1156
+                    '    紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
1157
+                    'Else
1158
+                    '    紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value
1159
+                    'End If
1150 1160
                     If CC(42) = False Then : 紅利支出_dgv.Rows(i).Cells("紅利").Value = 0 : End If
1151 1161
                 End If
1152 1162
             Next
@@ -2424,15 +2434,23 @@ Public Class 帳務彙總計算表
2424 2434
             Next
2425 2435
             For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
2426 2436
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
2427
-                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
2428
-                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
2429
-                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
2430
-                    Else
2437
+                    If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
2431 2438
                         合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
2432 2439
                         合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
2440
+                    Else
2441
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
2442
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
2433 2443
                     End If
2444
+                    'If 合帳_dgv("紅反", 選擇記憶).Value = False Then
2445
+                    '    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
2446
+                    '    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
2447
+                    'Else
2448
+                    '    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
2449
+                    '    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
2450
+                    'End If
2434 2451
                 End If
2435 2452
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
2453
+
2436 2454
                     If 合帳_dgv("紅反", 選擇記憶).Value = False Then
2437 2455
                         合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
2438 2456
                         合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
@@ -2664,13 +2682,20 @@ Public Class 帳務彙總計算表
2664 2682
                 Next
2665 2683
                 For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
2666 2684
                     If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
2667
-                        If 合帳_dgv("紅反", I).Value = False Then
2668
-                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
2669
-                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
2670
-                        Else
2685
+                        If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
2671 2686
                             合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
2672 2687
                             合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
2688
+                        Else
2689
+                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
2690
+                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
2673 2691
                         End If
2692
+                        'If 合帳_dgv("紅反", I).Value = False Then
2693
+                        '    合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
2694
+                        '    合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
2695
+                        'Else
2696
+                        '    合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
2697
+                        '    合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
2698
+                        'End If
2674 2699
                     End If
2675 2700
                     If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
2676 2701
                         If 合帳_dgv("紅反", I).Value = False Then

+ 10
- 7
GA-ERP-SYS/報表系統管理/帳務明細查詢表.vb Просмотреть файл

@@ -329,8 +329,9 @@ Public Class 帳務明細查詢表
329 329
                 '------------取得客戶名稱,寫入計算與同帳設定--------------------------------------------------------------------------------------------------------------------
330 330
                 For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
331 331
                     If 流水帳_dgv("客戶帳號", i).Value.ToString.ToLower() = 客戶下_dgv("客戶帳號", ii).Value.ToString.ToLower() And
332
-                        流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() And
333
-                        流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
332
+                      (流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() Or
333
+                       流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("備用網址", ii).Value.ToString.ToLower()) And
334
+                       流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
334 335
                         流水帳_dgv("客戶名稱", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString
335 336
                         流水帳_dgv("同帳指定", i).Value = 客戶下_dgv("基數", ii).Value
336 337
                         流水帳_dgv("下收.", i).Value = 客戶下_dgv("基數", ii).Value
@@ -387,8 +388,9 @@ Public Class 帳務明細查詢表
387 388
                     '------------取得客戶名稱,寫入計算與同帳設定--------------------------------------------------------------------------------------------------------------------
388 389
                     For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
389 390
                         If 流水帳_dgv("客戶帳號", i).Value.ToString.ToLower() = 客戶下_dgv("客戶帳號", ii).Value.ToString.ToLower() And
390
-                            流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() And
391
-                            流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
391
+                          (流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() Or
392
+                           流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("備用網址", ii).Value.ToString.ToLower()) And
393
+                           流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
392 394
                             流水帳_dgv("客戶名稱", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString
393 395
                             流水帳_dgv("同帳指定", i).Value = 客戶下_dgv("基數", ii).Value
394 396
                             流水帳_dgv("下收.", i).Value = 客戶下_dgv("基數", ii).Value
@@ -707,9 +709,9 @@ Public Class 帳務明細查詢表
707 709
         '------------不計算歸零---------------------------------------------------------------------------------------------------------------------------------------
708 710
         If 流水帳_dgv("計算", YY).Value = False And 流水帳_dgv("同帳", YY).Value = False Then
709 711
             流水帳_dgv.Rows(YY).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("大股東.").Value = "0"
710
-            流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("水差").Value = "0" : 流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0"
712
+            流水帳_dgv.Rows(YY).Cells("地帳1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0"
711 713
             流水帳_dgv.Rows(YY).Cells("總監.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("上繳金額.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("天帳1").Value = "0"
712
-            流水帳_dgv.Rows(YY).Cells("地帳1").Value = "0"
714
+            '流水帳_dgv.Rows(YY).Cells("水差").Value = "0"
713 715
         End If
714 716
         '------------所得計算---------------------------------------------------------------------------------------------------------------------------------------
715 717
         If 流水帳_dgv("所得", YY).Value = False Then
@@ -1466,7 +1468,8 @@ Public Class 帳務明細查詢表
1466 1468
             Dim BB As MsgBoxResult = MsgBox("確認啟動批量修改嗎?", MsgBoxStyle.OkCancel)
1467 1469
             If BB = MsgBoxResult.Ok Then
1468 1470
                 Dim 統一客戶, 是否同帳1 As Boolean
1469
-                Dim AA As MsgBoxResult = MsgBox("客戶名稱是否不要變成統一資料?", MsgBoxStyle.OkCancel)
1471
+                Dim AA As MsgBoxResult = MsgBox("下收客戶 [名稱] 與 [階級],如果都不相同,要保留原始設定請選            [確定]。" & vbCrLf & vbCrLf &
1472
+                                                "下收客戶 [名稱] 與 [階級],如果全部統一,不需要要保留原始設定請選 [取消]。", MsgBoxStyle.OkCancel)
1470 1473
                 If AA = MsgBoxResult.Ok Then
1471 1474
                     統一客戶 = False
1472 1475
                 Else

+ 1
- 1
GA-ERP-SYS/報表系統管理/帳號資料.Designer.vb Просмотреть файл

@@ -361,7 +361,7 @@ Partial Class 帳號資料
361 361
         '
362 362
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
363 363
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
364
-        Me.ClientSize = New System.Drawing.Size(279, 219)
364
+        Me.ClientSize = New System.Drawing.Size(279, 222)
365 365
         Me.Controls.Add(Me.Panel1)
366 366
         Me.Controls.Add(Me.Label32)
367 367
         Me.Controls.Add(Me.備用網址1_tb)

+ 3
- 1
GA-ERP-SYS/報表系統管理/帳號資料.vb Просмотреть файл

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

+ 3
- 3
GA-ERP-SYS/報表系統管理/電板紙板帳務設定.Designer.vb Просмотреть файл

@@ -56,7 +56,7 @@ Partial Class 電板紙板帳務設定
56 56
         DataGridViewCellStyle1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
57 57
         Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
58 58
         Me.電板客戶_dgv.RowTemplate.Height = 24
59
-        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 283)
59
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 554)
60 60
         Me.電板客戶_dgv.TabIndex = 1633
61 61
         '
62 62
         '電板紙板_dgv
@@ -73,7 +73,7 @@ Partial Class 電板紙板帳務設定
73 73
         DataGridViewCellStyle2.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
74 74
         Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
75 75
         Me.電板紙板_dgv.RowTemplate.Height = 24
76
-        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 209)
76
+        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 480)
77 77
         Me.電板紙板_dgv.TabIndex = 1634
78 78
         '
79 79
         '客戶_tb
@@ -200,7 +200,7 @@ Partial Class 電板紙板帳務設定
200 200
         '
201 201
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
202 202
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
203
-        Me.ClientSize = New System.Drawing.Size(349, 290)
203
+        Me.ClientSize = New System.Drawing.Size(349, 561)
204 204
         Me.Controls.Add(Me.Label2)
205 205
         Me.Controls.Add(Me.刪除_bt)
206 206
         Me.Controls.Add(Me.新增_bt)

+ 17
- 17
GA-ERP-SYS/報表系統管理/電板股東紅利設定.Designer.vb Просмотреть файл

@@ -22,8 +22,8 @@ Partial Class 電板股東紅利設定
22 22
     '請勿使用程式碼編輯器進行修改。
23 23
     <System.Diagnostics.DebuggerStepThrough()> _
24 24
     Private Sub InitializeComponent()
25
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
25
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27 27
         Me.電板紙板_dgv = New System.Windows.Forms.DataGridView()
28 28
         Me.刪除_bt = New System.Windows.Forms.Button()
29 29
         Me.新增_bt = New System.Windows.Forms.Button()
@@ -57,14 +57,14 @@ Partial Class 電板股東紅利設定
57 57
         Me.電板紙板_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
58 58
         Me.電板紙板_dgv.BackgroundColor = System.Drawing.Color.White
59 59
         Me.電板紙板_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
60
-        Me.電板紙板_dgv.Location = New System.Drawing.Point(125, 77)
60
+        Me.電板紙板_dgv.Location = New System.Drawing.Point(125, 135)
61 61
         Me.電板紙板_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
62 62
         Me.電板紙板_dgv.Name = "電板紙板_dgv"
63 63
         Me.電板紙板_dgv.RowHeadersWidth = 4
64
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
65
-        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
64
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
65
+        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
66 66
         Me.電板紙板_dgv.RowTemplate.Height = 24
67
-        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 186)
67
+        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 399)
68 68
         Me.電板紙板_dgv.TabIndex = 1646
69 69
         '
70 70
         '刪除_bt
@@ -142,10 +142,10 @@ Partial Class 電板股東紅利設定
142 142
         Me.電板客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
143 143
         Me.電板客戶_dgv.Name = "電板客戶_dgv"
144 144
         Me.電板客戶_dgv.RowHeadersWidth = 4
145
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
146
-        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
145
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
146
+        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
147 147
         Me.電板客戶_dgv.RowTemplate.Height = 24
148
-        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 284)
148
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 555)
149 149
         Me.電板客戶_dgv.TabIndex = 1645
150 150
         '
151 151
         '字體_NUD
@@ -212,7 +212,7 @@ Partial Class 電板股東紅利設定
212 212
         Me.Label3.AutoSize = True
213 213
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
214 214
         Me.Label3.ForeColor = System.Drawing.Color.Black
215
-        Me.Label3.Location = New System.Drawing.Point(122, 267)
215
+        Me.Label3.Location = New System.Drawing.Point(122, 538)
216 216
         Me.Label3.Name = "Label3"
217 217
         Me.Label3.Size = New System.Drawing.Size(47, 17)
218 218
         Me.Label3.TabIndex = 1660
@@ -221,7 +221,7 @@ Partial Class 電板股東紅利設定
221 221
         'nud2
222 222
         '
223 223
         Me.nud2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
224
-        Me.nud2.Location = New System.Drawing.Point(171, 264)
224
+        Me.nud2.Location = New System.Drawing.Point(171, 535)
225 225
         Me.nud2.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
226 226
         Me.nud2.Minimum = New Decimal(New Integer() {10000, 0, 0, -2147483648})
227 227
         Me.nud2.Name = "nud2"
@@ -243,12 +243,12 @@ Partial Class 電板股東紅利設定
243 243
         '
244 244
         Me.Label4.AutoSize = True
245 245
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
246
-        Me.Label4.ForeColor = System.Drawing.Color.Black
247
-        Me.Label4.Location = New System.Drawing.Point(123, 55)
246
+        Me.Label4.ForeColor = System.Drawing.Color.Red
247
+        Me.Label4.Location = New System.Drawing.Point(121, 80)
248 248
         Me.Label4.Name = "Label4"
249
-        Me.Label4.Size = New System.Drawing.Size(47, 17)
249
+        Me.Label4.Size = New System.Drawing.Size(224, 51)
250 250
         Me.Label4.TabIndex = 1662
251
-        Me.Label4.Text = "舊資料"
251
+        Me.Label4.Text = "請注意,紅利股數的正負數設定,會" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "反映在彙總表紅利拆分上,主要顯示" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "在紅利入帳的部分。(紅利出帳不影響)"
252 252
         '
253 253
         '下拉1_bt
254 254
         '
@@ -263,12 +263,11 @@ Partial Class 電板股東紅利設定
263 263
         '
264 264
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
265 265
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
266
-        Me.ClientSize = New System.Drawing.Size(349, 290)
266
+        Me.ClientSize = New System.Drawing.Size(349, 561)
267 267
         Me.Controls.Add(Me.下拉1_bt)
268 268
         Me.Controls.Add(Me.商品_cb)
269 269
         Me.Controls.Add(Me.Label3)
270 270
         Me.Controls.Add(Me.nud2)
271
-        Me.Controls.Add(Me.Label2)
272 271
         Me.Controls.Add(Me.刪除_bt)
273 272
         Me.Controls.Add(Me.新增_bt)
274 273
         Me.Controls.Add(Me.存檔_bt)
@@ -282,6 +281,7 @@ Partial Class 電板股東紅利設定
282 281
         Me.Controls.Add(Me.nud1)
283 282
         Me.Controls.Add(Me.商品1_tb)
284 283
         Me.Controls.Add(Me.Label4)
284
+        Me.Controls.Add(Me.Label2)
285 285
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
286 286
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
287 287
         Me.Name = "電板股東紅利設定"

+ 6
- 1
GA-ERP-SYS/報表系統管理/電板股東紅利設定.vb Просмотреть файл

@@ -23,7 +23,7 @@
23 23
         If 電板紙板_dgv.Rows.Count > 0 Then
24 24
             商品_cb.Text = 電板紙板_dgv("股東", 0).Value.ToString : 商品1_tb.Text = 電板紙板_dgv("股東", 0).Value.ToString
25 25
             For I As Integer = 0 To 電板紙板_dgv.Rows.Count - 1
26
-                nud2.Value = nud2.Value + 電板紙板_dgv("紅利", I).Value
26
+                nud2.Value = nud2.Value + Math.Abs(電板紙板_dgv("紅利", I).Value)
27 27
             Next
28 28
         End If
29 29
     End Sub
@@ -55,6 +55,11 @@
55 55
             存檔_bt.Enabled = True
56 56
         End If
57 57
     End Sub
58
+    Private Sub 電板紙板_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 電板紙板_dgv.CellFormatting
59
+        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
60
+            e.CellStyle.ForeColor = Color.Red
61
+        End If
62
+    End Sub
58 63
     Private Sub 商品_cb_TextChanged(sender As Object, e As EventArgs) Handles 商品_cb.TextChanged
59 64
         If 商品_cb.Text = "" Then
60 65
             新增_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False

+ 2
- 1
GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb Просмотреть файл

@@ -61,7 +61,8 @@ Partial Class 系統公告
61 61
         Me.TextBox3.Name = "TextBox3"
62 62
         Me.TextBox3.Size = New System.Drawing.Size(680, 479)
63 63
         Me.TextBox3.TabIndex = 2
64
-        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、系統恢復可以做日、周、月帳的功能(帳務要分開抓取日周月帳不會互通)。"
64
+        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、系統更新時忘記或是誤按防火牆防毒等軟體導致更新失敗時,系統自動從新運行更新 (功能測試中)。" &
65
+    ""
65 66
         '
66 67
         'TextBox4
67 68
         '

+ 23
- 1
GA-ERP-SYS/特殊操作功能/系統公告.resx Просмотреть файл

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

+ 48
- 32
GA-ERP-SYS/資料庫系統管理/租用者帳務表.Designer.vb Просмотреть файл

@@ -51,6 +51,7 @@ Partial Class 租用者帳務表
51 51
         Me.Label9 = New System.Windows.Forms.Label()
52 52
         Me.累計費用_nud = New System.Windows.Forms.NumericUpDown()
53 53
         Me.全帳_bt = New System.Windows.Forms.Button()
54
+        Me.試用不計_ch = New System.Windows.Forms.CheckBox()
54 55
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
55 56
         CType(Me.帳務明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
56 57
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -64,13 +65,14 @@ Partial Class 租用者帳務表
64 65
         Me.使用者清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
65 66
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
66 67
         Me.使用者清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
68
+        Me.使用者清單_dgv.BackgroundColor = System.Drawing.Color.White
67 69
         Me.使用者清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
68 70
         Me.使用者清單_dgv.Location = New System.Drawing.Point(3, 31)
69 71
         Me.使用者清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
70 72
         Me.使用者清單_dgv.Name = "使用者清單_dgv"
71 73
         Me.使用者清單_dgv.RowHeadersWidth = 5
72 74
         Me.使用者清單_dgv.RowTemplate.Height = 24
73
-        Me.使用者清單_dgv.Size = New System.Drawing.Size(309, 647)
75
+        Me.使用者清單_dgv.Size = New System.Drawing.Size(426, 647)
74 76
         Me.使用者清單_dgv.TabIndex = 1497
75 77
         '
76 78
         '帳務明細_dgv
@@ -79,6 +81,7 @@ Partial Class 租用者帳務表
79 81
             Or System.Windows.Forms.AnchorStyles.Left) _
80 82
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
81 83
         Me.帳務明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
84
+        Me.帳務明細_dgv.BackgroundColor = System.Drawing.Color.White
82 85
         DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
83 86
         DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
84 87
         DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -96,7 +99,7 @@ Partial Class 租用者帳務表
96 99
         DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.Black
97 100
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
98 101
         Me.帳務明細_dgv.DefaultCellStyle = DataGridViewCellStyle2
99
-        Me.帳務明細_dgv.Location = New System.Drawing.Point(314, 60)
102
+        Me.帳務明細_dgv.Location = New System.Drawing.Point(430, 60)
100 103
         Me.帳務明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
101 104
         Me.帳務明細_dgv.Name = "帳務明細_dgv"
102 105
         DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -109,7 +112,7 @@ Partial Class 租用者帳務表
109 112
         Me.帳務明細_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
110 113
         Me.帳務明細_dgv.RowHeadersWidth = 5
111 114
         Me.帳務明細_dgv.RowTemplate.Height = 24
112
-        Me.帳務明細_dgv.Size = New System.Drawing.Size(1032, 618)
115
+        Me.帳務明細_dgv.Size = New System.Drawing.Size(916, 618)
113 116
         Me.帳務明細_dgv.TabIndex = 1498
114 117
         '
115 118
         '字體_NUD
@@ -142,7 +145,7 @@ Partial Class 租用者帳務表
142 145
         '
143 146
         Me.到期日_dtp.CustomFormat = "yyyy/MM/dd"
144 147
         Me.到期日_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
145
-        Me.到期日_dtp.Location = New System.Drawing.Point(635, 33)
148
+        Me.到期日_dtp.Location = New System.Drawing.Point(719, 33)
146 149
         Me.到期日_dtp.Name = "到期日_dtp"
147 150
         Me.到期日_dtp.Size = New System.Drawing.Size(88, 23)
148 151
         Me.到期日_dtp.TabIndex = 1638
@@ -152,7 +155,7 @@ Partial Class 租用者帳務表
152 155
         Me.Label7.AutoSize = True
153 156
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
154 157
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
155
-        Me.Label7.Location = New System.Drawing.Point(586, 36)
158
+        Me.Label7.Location = New System.Drawing.Point(675, 36)
156 159
         Me.Label7.Name = "Label7"
157 160
         Me.Label7.Size = New System.Drawing.Size(47, 17)
158 161
         Me.Label7.TabIndex = 1637
@@ -163,7 +166,7 @@ Partial Class 租用者帳務表
163 166
         Me.Label3.AutoSize = True
164 167
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
165 168
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
166
-        Me.Label3.Location = New System.Drawing.Point(442, 6)
169
+        Me.Label3.Location = New System.Drawing.Point(543, 6)
167 170
         Me.Label3.Name = "Label3"
168 171
         Me.Label3.Size = New System.Drawing.Size(34, 17)
169 172
         Me.Label3.TabIndex = 1636
@@ -174,7 +177,7 @@ Partial Class 租用者帳務表
174 177
         Me.Label1.AutoSize = True
175 178
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
176 179
         Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
177
-        Me.Label1.Location = New System.Drawing.Point(317, 7)
180
+        Me.Label1.Location = New System.Drawing.Point(427, 7)
178 181
         Me.Label1.Name = "Label1"
179 182
         Me.Label1.Size = New System.Drawing.Size(34, 17)
180 183
         Me.Label1.TabIndex = 1635
@@ -183,7 +186,7 @@ Partial Class 租用者帳務表
183 186
         '帳號_tb
184 187
         '
185 188
         Me.帳號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
186
-        Me.帳號_tb.Location = New System.Drawing.Point(478, 3)
189
+        Me.帳號_tb.Location = New System.Drawing.Point(573, 3)
187 190
         Me.帳號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
188 191
         Me.帳號_tb.Name = "帳號_tb"
189 192
         Me.帳號_tb.Size = New System.Drawing.Size(102, 25)
@@ -192,7 +195,7 @@ Partial Class 租用者帳務表
192 195
         '姓名_tb
193 196
         '
194 197
         Me.姓名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
195
-        Me.姓名_tb.Location = New System.Drawing.Point(353, 3)
198
+        Me.姓名_tb.Location = New System.Drawing.Point(457, 3)
196 199
         Me.姓名_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
197 200
         Me.姓名_tb.Name = "姓名_tb"
198 201
         Me.姓名_tb.Size = New System.Drawing.Size(87, 25)
@@ -202,7 +205,7 @@ Partial Class 租用者帳務表
202 205
         '
203 206
         Me.起始日_dtp.CustomFormat = "yyyy/MM/dd"
204 207
         Me.起始日_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
205
-        Me.起始日_dtp.Location = New System.Drawing.Point(635, 3)
208
+        Me.起始日_dtp.Location = New System.Drawing.Point(719, 3)
206 209
         Me.起始日_dtp.Name = "起始日_dtp"
207 210
         Me.起始日_dtp.Size = New System.Drawing.Size(88, 23)
208 211
         Me.起始日_dtp.TabIndex = 1640
@@ -212,7 +215,7 @@ Partial Class 租用者帳務表
212 215
         Me.Label2.AutoSize = True
213 216
         Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
214 217
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
215
-        Me.Label2.Location = New System.Drawing.Point(586, 6)
218
+        Me.Label2.Location = New System.Drawing.Point(675, 6)
216 219
         Me.Label2.Name = "Label2"
217 220
         Me.Label2.Size = New System.Drawing.Size(47, 17)
218 221
         Me.Label2.TabIndex = 1639
@@ -223,7 +226,7 @@ Partial Class 租用者帳務表
223 226
         Me.Label4.AutoSize = True
224 227
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
225 228
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
226
-        Me.Label4.Location = New System.Drawing.Point(317, 35)
229
+        Me.Label4.Location = New System.Drawing.Point(427, 35)
227 230
         Me.Label4.Name = "Label4"
228 231
         Me.Label4.Size = New System.Drawing.Size(34, 17)
229 232
         Me.Label4.TabIndex = 1642
@@ -232,7 +235,7 @@ Partial Class 租用者帳務表
232 235
         '狀態_tb
233 236
         '
234 237
         Me.狀態_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
235
-        Me.狀態_tb.Location = New System.Drawing.Point(353, 31)
238
+        Me.狀態_tb.Location = New System.Drawing.Point(457, 31)
236 239
         Me.狀態_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
237 240
         Me.狀態_tb.Name = "狀態_tb"
238 241
         Me.狀態_tb.Size = New System.Drawing.Size(87, 25)
@@ -240,7 +243,7 @@ Partial Class 租用者帳務表
240 243
         '
241 244
         '費用_nud
242 245
         '
243
-        Me.費用_nud.Location = New System.Drawing.Point(478, 33)
246
+        Me.費用_nud.Location = New System.Drawing.Point(573, 33)
244 247
         Me.費用_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
245 248
         Me.費用_nud.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
246 249
         Me.費用_nud.Name = "費用_nud"
@@ -254,7 +257,7 @@ Partial Class 租用者帳務表
254 257
         Me.Label5.AutoSize = True
255 258
         Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
256 259
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
257
-        Me.Label5.Location = New System.Drawing.Point(442, 36)
260
+        Me.Label5.Location = New System.Drawing.Point(543, 36)
258 261
         Me.Label5.Name = "Label5"
259 262
         Me.Label5.Size = New System.Drawing.Size(34, 17)
260 263
         Me.Label5.TabIndex = 1644
@@ -265,10 +268,10 @@ Partial Class 租用者帳務表
265 268
         Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
266 269
         Me.修改_bt.ForeColor = System.Drawing.Color.Green
267 270
         Me.修改_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
268
-        Me.修改_bt.Location = New System.Drawing.Point(1208, 3)
271
+        Me.修改_bt.Location = New System.Drawing.Point(1243, 3)
269 272
         Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
270 273
         Me.修改_bt.Name = "修改_bt"
271
-        Me.修改_bt.Size = New System.Drawing.Size(69, 53)
274
+        Me.修改_bt.Size = New System.Drawing.Size(50, 53)
272 275
         Me.修改_bt.TabIndex = 1647
273 276
         Me.修改_bt.Text = "修改"
274 277
         Me.修改_bt.UseVisualStyleBackColor = True
@@ -278,10 +281,10 @@ Partial Class 租用者帳務表
278 281
         Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
279 282
         Me.新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
280 283
         Me.新增_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
281
-        Me.新增_bt.Location = New System.Drawing.Point(1138, 3)
284
+        Me.新增_bt.Location = New System.Drawing.Point(1194, 3)
282 285
         Me.新增_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
283 286
         Me.新增_bt.Name = "新增_bt"
284
-        Me.新增_bt.Size = New System.Drawing.Size(69, 53)
287
+        Me.新增_bt.Size = New System.Drawing.Size(50, 53)
285 288
         Me.新增_bt.TabIndex = 1646
286 289
         Me.新增_bt.Text = "新增"
287 290
         Me.新增_bt.UseVisualStyleBackColor = True
@@ -290,10 +293,10 @@ Partial Class 租用者帳務表
290 293
         '
291 294
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
292 295
         Me.刪除_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
293
-        Me.刪除_bt.Location = New System.Drawing.Point(1277, 3)
296
+        Me.刪除_bt.Location = New System.Drawing.Point(1292, 3)
294 297
         Me.刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
295 298
         Me.刪除_bt.Name = "刪除_bt"
296
-        Me.刪除_bt.Size = New System.Drawing.Size(69, 53)
299
+        Me.刪除_bt.Size = New System.Drawing.Size(50, 53)
297 300
         Me.刪除_bt.TabIndex = 1645
298 301
         Me.刪除_bt.Text = "刪除"
299 302
         Me.刪除_bt.UseVisualStyleBackColor = True
@@ -303,7 +306,7 @@ Partial Class 租用者帳務表
303 306
         Me.Label6.AutoSize = True
304 307
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
305 308
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
306
-        Me.Label6.Location = New System.Drawing.Point(727, 6)
309
+        Me.Label6.Location = New System.Drawing.Point(807, 6)
307 310
         Me.Label6.Name = "Label6"
308 311
         Me.Label6.Size = New System.Drawing.Size(60, 17)
309 312
         Me.Label6.TabIndex = 1649
@@ -311,7 +314,7 @@ Partial Class 租用者帳務表
311 314
         '
312 315
         '可用天數_nud
313 316
         '
314
-        Me.可用天數_nud.Location = New System.Drawing.Point(728, 33)
317
+        Me.可用天數_nud.Location = New System.Drawing.Point(808, 33)
315 318
         Me.可用天數_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
316 319
         Me.可用天數_nud.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
317 320
         Me.可用天數_nud.Name = "可用天數_nud"
@@ -323,19 +326,20 @@ Partial Class 租用者帳務表
323 326
         '備註_tb
324 327
         '
325 328
         Me.備註_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
326
-        Me.備註_tb.Location = New System.Drawing.Point(828, 3)
329
+        Me.備註_tb.Location = New System.Drawing.Point(892, 3)
327 330
         Me.備註_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
328 331
         Me.備註_tb.Multiline = True
329 332
         Me.備註_tb.Name = "備註_tb"
330
-        Me.備註_tb.Size = New System.Drawing.Size(307, 53)
333
+        Me.備註_tb.Size = New System.Drawing.Size(301, 53)
331 334
         Me.備註_tb.TabIndex = 1651
332 335
         '
333 336
         'Label8
334 337
         '
335 338
         Me.Label8.AutoSize = True
336 339
         Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
340
+        Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
337 341
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
338
-        Me.Label8.Location = New System.Drawing.Point(795, 6)
342
+        Me.Label8.Location = New System.Drawing.Point(862, 6)
339 343
         Me.Label8.Name = "Label8"
340 344
         Me.Label8.Size = New System.Drawing.Size(34, 17)
341 345
         Me.Label8.TabIndex = 1650
@@ -376,11 +380,22 @@ Partial Class 租用者帳務表
376 380
         Me.全帳_bt.Text = "全帳"
377 381
         Me.全帳_bt.UseVisualStyleBackColor = True
378 382
         '
383
+        '試用不計_ch
384
+        '
385
+        Me.試用不計_ch.AutoSize = True
386
+        Me.試用不計_ch.Location = New System.Drawing.Point(340, 6)
387
+        Me.試用不計_ch.Name = "試用不計_ch"
388
+        Me.試用不計_ch.Size = New System.Drawing.Size(75, 20)
389
+        Me.試用不計_ch.TabIndex = 1655
390
+        Me.試用不計_ch.Text = "試用不計"
391
+        Me.試用不計_ch.UseVisualStyleBackColor = True
392
+        '
379 393
         '租用者帳務表
380 394
         '
381 395
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
382 396
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
383 397
         Me.ClientSize = New System.Drawing.Size(1350, 681)
398
+        Me.Controls.Add(Me.試用不計_ch)
384 399
         Me.Controls.Add(Me.全帳_bt)
385 400
         Me.Controls.Add(Me.Label9)
386 401
         Me.Controls.Add(Me.累計費用_nud)
@@ -392,21 +407,21 @@ Partial Class 租用者帳務表
392 407
         Me.Controls.Add(Me.新增_bt)
393 408
         Me.Controls.Add(Me.刪除_bt)
394 409
         Me.Controls.Add(Me.帳務明細_dgv)
395
-        Me.Controls.Add(Me.Label5)
396 410
         Me.Controls.Add(Me.費用_nud)
397
-        Me.Controls.Add(Me.Label4)
398 411
         Me.Controls.Add(Me.狀態_tb)
399
-        Me.Controls.Add(Me.Label2)
400 412
         Me.Controls.Add(Me.到期日_dtp)
401
-        Me.Controls.Add(Me.Label7)
402
-        Me.Controls.Add(Me.Label3)
403
-        Me.Controls.Add(Me.Label1)
404 413
         Me.Controls.Add(Me.帳號_tb)
405 414
         Me.Controls.Add(Me.姓名_tb)
406 415
         Me.Controls.Add(Me.字體_NUD)
407 416
         Me.Controls.Add(Me.字體大小調整_lb)
408 417
         Me.Controls.Add(Me.使用者清單_dgv)
409 418
         Me.Controls.Add(Me.起始日_dtp)
419
+        Me.Controls.Add(Me.Label2)
420
+        Me.Controls.Add(Me.Label7)
421
+        Me.Controls.Add(Me.Label5)
422
+        Me.Controls.Add(Me.Label3)
423
+        Me.Controls.Add(Me.Label4)
424
+        Me.Controls.Add(Me.Label1)
410 425
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
411 426
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
412 427
         Me.Name = "租用者帳務表"
@@ -448,4 +463,5 @@ Partial Class 租用者帳務表
448 463
     Friend WithEvents Label9 As Label
449 464
     Friend WithEvents 累計費用_nud As NumericUpDown
450 465
     Friend WithEvents 全帳_bt As Button
466
+    Friend WithEvents 試用不計_ch As CheckBox
451 467
 End Class

+ 11
- 6
GA-ERP-SYS/資料庫系統管理/租用者帳務表.vb Просмотреть файл

@@ -10,15 +10,17 @@
10 10
         使用者清單_dgv.RowTemplate.Height = 25
11 11
         SQL_系統使用者()
12 12
         da.Fill(ds) : 使用者清單_dgv.DataSource = ds.Tables(0) : conn.Close()
13
-        使用者清單_dgv.Columns("項次").FillWeight = 55
14
-        使用者清單_dgv.Columns(1).FillWeight = 90 : 使用者清單_dgv.Columns(2).FillWeight = 90 : 使用者清單_dgv.Columns("有USBKey").FillWeight = 40
13
+        使用者清單_dgv.Columns("項次").FillWeight = 50
14
+        使用者清單_dgv.Columns(1).FillWeight = 90 : 使用者清單_dgv.Columns(2).FillWeight = 70 : 使用者清單_dgv.Columns("KEY").FillWeight = 40
15
+        使用者清單_dgv.Columns(3).FillWeight = 85 : 使用者清單_dgv.Columns(5).FillWeight = 135
15 16
         For I As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
16 17
             使用者清單_dgv.Rows(I).Cells("項次").Value = I + 1
17
-            If 使用者清單_dgv.Rows(I).Cells("有USBKey").Value = False Then
18
-                使用者清單_dgv.Rows(I).Cells("有USBKey").Value = True
18
+            If 使用者清單_dgv.Rows(I).Cells("KEY").Value = False Then
19
+                使用者清單_dgv.Rows(I).Cells("KEY").Value = True
19 20
             Else
20
-                使用者清單_dgv.Rows(I).Cells("有USBKey").Value = False
21
+                使用者清單_dgv.Rows(I).Cells("KEY").Value = False
21 22
             End If
23
+            使用者清單_dgv.Rows(I).Cells("登入時間").Value = Strings.Left(使用者清單_dgv.Rows(I).Cells("登入時間").Value.ToString, 19)
22 24
         Next
23 25
     End Sub
24 26
     Private Sub Set_帳務清單()
@@ -97,7 +99,7 @@
97 99
                 起始日_dtp.Value = Today() : 到期日_dtp.Value = 使用者清單_dgv.Rows(e.RowIndex).Cells("到期日").Value : 費用_nud.Value = 0 : 備註_tb.Text = "" : 狀態_tb.Text = ""
98 100
             End If
99 101
             If 狀態_tb.Text = "" Then
100
-                If 使用者清單_dgv.Rows(e.RowIndex).Cells("有USBKey").Value = True Then : 狀態_tb.Text = "正式" : Else : 狀態_tb.Text = "測試" : End If
102
+                If 使用者清單_dgv.Rows(e.RowIndex).Cells("KEY").Value = True Then : 狀態_tb.Text = "正式" : Else : 狀態_tb.Text = "測試" : End If
101 103
             End If
102 104
 
103 105
             可用天數_nud.Value = DateDiff("d", 起始日_dtp.Value, 到期日_dtp.Value)
@@ -151,6 +153,9 @@
151 153
             SQL_租用帳務刪除() : MsgBox("存檔成功!!") : Set_帳務清單()
152 154
         End If
153 155
     End Sub
156
+    Private Sub 試用不計_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 試用不計_ch.Click
157
+        If 試用不計_ch.Checked = False Then : 試用不計_ch.Checked = False : Else : 試用不計_ch.Checked = True : End If : Set_帳務清單()
158
+    End Sub
154 159
     Private Sub 全帳_bt_Click(sender As Object, e As EventArgs) Handles 全帳_bt.Click
155 160
         帳號_tb.Text = "%%" : Set_帳務清單() : 帳號_tb.Text = ""
156 161
     End Sub

Загрузка…
Отмена
Сохранить