20211221備份

GA-ERP-SYS/GA-ERP-SYS.Designer.vb

@@ -40,8 +40,10 @@ Partial Class GA_ERP_SYS
         Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.基本資料管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.基本資料管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.電板基本資料_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.電板客戶名稱編輯器_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
         Me.球板基本資料_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.電板報表系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.電板帳務彙總計算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -64,12 +66,15 @@ Partial Class GA_ERP_SYS
         Me.球板歷史帳務彙總計算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.球板歷史帳務明細查詢表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.特殊操作功能_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.系統公告_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.錯誤排除手冊_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.流水帳自動導入_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.流水帳手動輸入_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.商客資料導入_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.資料庫系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.租用者帳務表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
         Me.系統使用者管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.人員ID卡系統配置設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.USB_KEY_指定_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -81,7 +86,6 @@ Partial Class GA_ERP_SYS
         Me.FTP_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.PY執行錯誤LOG檔_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
-        Me.測試_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatusStrip = New System.Windows.Forms.StatusStrip()
         Me.ToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
@@ -95,7 +99,7 @@ Partial Class GA_ERP_SYS
         Me.除錯_dgv = New System.Windows.Forms.DataGridView()
         Me.總網址_dgv = New System.Windows.Forms.DataGridView()
         Me.網址_dgv = New System.Windows.Forms.DataGridView()
-        Me.系統公告_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.系統通用變數管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -105,7 +109,7 @@ Partial Class GA_ERP_SYS
         '
         'MenuStrip
         '
-        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.基本資料管理ToolStripMenuItem, Me.電板報表系統管理_tsm, Me.球板報表系統管理_tsm, Me.特殊操作功能_tsm, Me.資料庫系統管理_tsm})
+        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.基本資料管理_tsm, Me.電板報表系統管理_tsm, Me.球板報表系統管理_tsm, Me.特殊操作功能_tsm, Me.資料庫系統管理_tsm})
         Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip.MdiWindowListItem = Me.WindowsMenu
         Me.MenuStrip.Name = "MenuStrip"
@@ -126,19 +130,19 @@ Partial Class GA_ERP_SYS
         '
         Me.個人帳號管理_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Personnel
         Me.個人帳號管理_tsm.Name = "個人帳號管理_tsm"
-        Me.個人帳號管理_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.個人帳號管理_tsm.Size = New System.Drawing.Size(146, 22)
         Me.個人帳號管理_tsm.Text = "個人帳號管理"
         '
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(143, 6)
         '
         'ExitToolStripMenuItem
         '
         Me.ExitToolStripMenuItem.Image = Global.GA_ERP_SYS.My.Resources.Resources.Sys_Command
         Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
-        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
         Me.ExitToolStripMenuItem.Text = "結束(&X)"
         '
         'WindowsMenu
@@ -151,59 +155,71 @@ Partial Class GA_ERP_SYS
         'NewWindowToolStripMenuItem
         '
         Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem"
-        Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
         Me.NewWindowToolStripMenuItem.Text = "開新視窗(&N)"
         '
         'CascadeToolStripMenuItem
         '
         Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem"
-        Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
         Me.CascadeToolStripMenuItem.Text = "重疊顯示(&C)"
         '
         'TileVerticalToolStripMenuItem
         '
         Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem"
-        Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
         Me.TileVerticalToolStripMenuItem.Text = "垂直並排(&V)"
         '
         'TileHorizontalToolStripMenuItem
         '
         Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem"
-        Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
         Me.TileHorizontalToolStripMenuItem.Text = "水平並排(&H)"
         '
         'CloseAllToolStripMenuItem
         '
         Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem"
-        Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
         Me.CloseAllToolStripMenuItem.Text = "全部關閉(&L)"
         '
         'ArrangeIconsToolStripMenuItem
         '
         Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem"
-        Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
         Me.ArrangeIconsToolStripMenuItem.Text = "排列圖示(&A)"
         '
-        '基本資料管理ToolStripMenuItem
+        '基本資料管理_tsm
         '
-        Me.基本資料管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.電板基本資料_tsm, Me.球板基本資料_tsm})
-        Me.基本資料管理ToolStripMenuItem.Image = Global.GA_ERP_SYS.My.Resources.Resources.Personnel
-        Me.基本資料管理ToolStripMenuItem.Name = "基本資料管理ToolStripMenuItem"
-        Me.基本資料管理ToolStripMenuItem.Size = New System.Drawing.Size(107, 20)
-        Me.基本資料管理ToolStripMenuItem.Text = "基本資料管理"
+        Me.基本資料管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.電板基本資料_tsm, Me.電板客戶名稱編輯器_tsm, Me.ToolStripSeparator11, Me.球板基本資料_tsm})
+        Me.基本資料管理_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Personnel
+        Me.基本資料管理_tsm.Name = "基本資料管理_tsm"
+        Me.基本資料管理_tsm.Size = New System.Drawing.Size(107, 20)
+        Me.基本資料管理_tsm.Text = "基本資料管理"
         '
         '電板基本資料_tsm
         '
         Me.電板基本資料_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.business_info
         Me.電板基本資料_tsm.Name = "電板基本資料_tsm"
-        Me.電板基本資料_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.電板基本資料_tsm.Size = New System.Drawing.Size(182, 22)
         Me.電板基本資料_tsm.Text = "電板基本資料"
         '
+        '電板客戶名稱編輯器_tsm
+        '
+        Me.電板客戶名稱編輯器_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.card_ipod
+        Me.電板客戶名稱編輯器_tsm.Name = "電板客戶名稱編輯器_tsm"
+        Me.電板客戶名稱編輯器_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.電板客戶名稱編輯器_tsm.Text = "電板客戶名稱編輯器"
+        '
+        'ToolStripSeparator11
+        '
+        Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
+        Me.ToolStripSeparator11.Size = New System.Drawing.Size(179, 6)
+        '
         '球板基本資料_tsm
         '
         Me.球板基本資料_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.business_info
         Me.球板基本資料_tsm.Name = "球板基本資料_tsm"
-        Me.球板基本資料_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.球板基本資料_tsm.Size = New System.Drawing.Size(182, 22)
         Me.球板基本資料_tsm.Text = "球板基本資料"
         '
         '電板報表系統管理_tsm
@@ -259,6 +275,7 @@ Partial Class GA_ERP_SYS
         Me.電板歷史資料查詢_tsm.Name = "電板歷史資料查詢_tsm"
         Me.電板歷史資料查詢_tsm.Size = New System.Drawing.Size(182, 22)
         Me.電板歷史資料查詢_tsm.Text = "電板歷史資料查詢"
+        Me.電板歷史資料查詢_tsm.Visible = False
         '
         '電板歷史帳務彙總計算表_tsm
         '
@@ -327,6 +344,7 @@ Partial Class GA_ERP_SYS
         Me.球板歷史資料查詢_tsm.Name = "球板歷史資料查詢_tsm"
         Me.球板歷史資料查詢_tsm.Size = New System.Drawing.Size(182, 22)
         Me.球板歷史資料查詢_tsm.Text = "球板歷史資料查詢"
+        Me.球板歷史資料查詢_tsm.Visible = False
         '
         '球板歷史帳務彙總計算表_tsm
         '
@@ -350,47 +368,66 @@ Partial Class GA_ERP_SYS
         Me.特殊操作功能_tsm.Size = New System.Drawing.Size(107, 20)
         Me.特殊操作功能_tsm.Text = "特殊操作功能"
         '
+        '系統公告_tsm
+        '
+        Me.系統公告_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Delivery_Icon1
+        Me.系統公告_tsm.Name = "系統公告_tsm"
+        Me.系統公告_tsm.Size = New System.Drawing.Size(158, 22)
+        Me.系統公告_tsm.Text = "系統公告"
+        '
         '錯誤排除手冊_tsm
         '
         Me.錯誤排除手冊_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.childish_Tool
         Me.錯誤排除手冊_tsm.Name = "錯誤排除手冊_tsm"
-        Me.錯誤排除手冊_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.錯誤排除手冊_tsm.Size = New System.Drawing.Size(158, 22)
         Me.錯誤排除手冊_tsm.Text = "錯誤排除手冊"
         '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(155, 6)
         '
         '流水帳自動導入_tsm
         '
         Me.流水帳自動導入_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.pen
         Me.流水帳自動導入_tsm.Name = "流水帳自動導入_tsm"
-        Me.流水帳自動導入_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.流水帳自動導入_tsm.Size = New System.Drawing.Size(158, 22)
         Me.流水帳自動導入_tsm.Text = "流水帳自動導入"
         '
         '流水帳手動輸入_tsm
         '
         Me.流水帳手動輸入_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.pen
         Me.流水帳手動輸入_tsm.Name = "流水帳手動輸入_tsm"
-        Me.流水帳手動輸入_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.流水帳手動輸入_tsm.Size = New System.Drawing.Size(158, 22)
         Me.流水帳手動輸入_tsm.Text = "流水帳手動輸入"
         '
         '商客資料導入_tsm
         '
         Me.商客資料導入_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.pen
         Me.商客資料導入_tsm.Name = "商客資料導入_tsm"
-        Me.商客資料導入_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.商客資料導入_tsm.Size = New System.Drawing.Size(158, 22)
         Me.商客資料導入_tsm.Text = "商客資料導入"
         '
         '資料庫系統管理_tsm
         '
-        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.人員ID卡系統配置設定_tsm, Me.USB_KEY_指定_tsm, Me.ToolStripSeparator1, Me.資料備份轉移_tsm, Me.ToolStripSeparator3, Me.系統編碼規則_tsm, Me.系統執行檔版本管理_tsm, Me.FTP_tsm, Me.PY執行錯誤LOG檔_tsm, Me.ToolStripSeparator9, Me.測試_tsm})
+        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.租用者帳務表_tsm, Me.ToolStripSeparator10, Me.系統使用者管理_tsm, Me.人員ID卡系統配置設定_tsm, Me.USB_KEY_指定_tsm, Me.ToolStripSeparator1, Me.資料備份轉移_tsm, Me.ToolStripSeparator3, Me.系統通用變數管理_tsm, Me.系統編碼規則_tsm, Me.系統執行檔版本管理_tsm, Me.FTP_tsm, Me.PY執行錯誤LOG檔_tsm, Me.ToolStripSeparator9})
         Me.資料庫系統管理_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Sys_Command
         Me.資料庫系統管理_tsm.Name = "資料庫系統管理_tsm"
         Me.資料庫系統管理_tsm.Size = New System.Drawing.Size(119, 20)
         Me.資料庫系統管理_tsm.Text = "資料庫系統管理"
         '
+        '租用者帳務表_tsm
+        '
+        Me.租用者帳務表_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Payment
+        Me.租用者帳務表_tsm.Name = "租用者帳務表_tsm"
+        Me.租用者帳務表_tsm.Size = New System.Drawing.Size(194, 22)
+        Me.租用者帳務表_tsm.Text = "租用者帳務表"
+        '
+        'ToolStripSeparator10
+        '
+        Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
+        Me.ToolStripSeparator10.Size = New System.Drawing.Size(191, 6)
+        '
         '系統使用者管理_tsm
         '
         Me.系統使用者管理_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Personnel
@@ -463,12 +500,6 @@ Partial Class GA_ERP_SYS
         Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
         Me.ToolStripSeparator9.Size = New System.Drawing.Size(191, 6)
         '
-        '測試_tsm
-        '
-        Me.測試_tsm.Name = "測試_tsm"
-        Me.測試_tsm.Size = New System.Drawing.Size(194, 22)
-        Me.測試_tsm.Text = "測試"
-        '
         'StatusStrip
         '
         Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel, Me.ToolStripStatusLabel1, Me.ToolStripProgressBar1, Me.合計_TSSL})
@@ -588,12 +619,12 @@ Partial Class GA_ERP_SYS
         Me.網址_dgv.TabIndex = 1553
         Me.網址_dgv.Visible = False
         '
-        '系統公告_tsm
+        '系統通用變數管理_tsm
         '
-        Me.系統公告_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Delivery_Icon1
-        Me.系統公告_tsm.Name = "系統公告_tsm"
-        Me.系統公告_tsm.Size = New System.Drawing.Size(180, 22)
-        Me.系統公告_tsm.Text = "系統公告"
+        Me.系統通用變數管理_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Sys_Command
+        Me.系統通用變數管理_tsm.Name = "系統通用變數管理_tsm"
+        Me.系統通用變數管理_tsm.Size = New System.Drawing.Size(194, 22)
+        Me.系統通用變數管理_tsm.Text = "系統通用變數管理"
         '
         'GA_ERP_SYS
         '
@@ -649,7 +680,7 @@ Partial Class GA_ERP_SYS
     Friend WithEvents FTP_tsm As ToolStripMenuItem
     Friend WithEvents 人員ID卡系統配置設定_tsm As ToolStripMenuItem
     Friend WithEvents 使用者_cb As ComboBox
-    Friend WithEvents 基本資料管理ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 基本資料管理_tsm As ToolStripMenuItem
     Friend WithEvents 電板基本資料_tsm As ToolStripMenuItem
     Friend WithEvents 電板報表系統管理_tsm As ToolStripMenuItem
     Friend WithEvents 電板帳務彙總計算表_tsm As ToolStripMenuItem
@@ -693,6 +724,10 @@ Partial Class GA_ERP_SYS
     Friend WithEvents 球板歷史帳務彙總計算表_tsm As ToolStripMenuItem
     Friend WithEvents 球板歷史帳務明細查詢表_tsm As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
-    Friend WithEvents 測試_tsm As ToolStripMenuItem
     Friend WithEvents 系統公告_tsm As ToolStripMenuItem
+    Friend WithEvents 租用者帳務表_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator10 As ToolStripSeparator
+    Friend WithEvents 電板客戶名稱編輯器_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
+    Friend WithEvents 系統通用變數管理_tsm As ToolStripMenuItem
 End Class

GA-ERP-SYS/GA-ERP-SYS.vb

@@ -3,7 +3,9 @@ Imports System.IO
 Imports System.Text
 Public Class GA_ERP_SYS
     ReadOnly ds2, ds3, ds4 As New DataSet
-    Dim strDirName, GPP As String : Dim GP As Integer = 0
+    Dim strDirName, GPP As String
+    Dim GP As Integer = 0
+    Dim 網頁共享開關 As Boolean
     Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click
         ' 建立子表單的新執行個體。
         ' 將它變成這個 MDI 表單的子表單，然後才顯示。
@@ -79,10 +81,11 @@ Public Class GA_ERP_SYS
 
         '----------基本作功能-----------------------------------------------------------------------------------------------------------------
         電板報表系統管理_tsm.Enabled = CC(17) : 球板報表系統管理_tsm.Enabled = CC(28) : 電板歷史資料查詢_tsm.Enabled = CC(22) : 球板歷史資料查詢_tsm.Enabled = CC(33)
+        電板股東紅利設定_tsm.Enabled = CC(42)
         '----------資料庫系統管理-------------------------------------------------------------------------------------------------------------
         資料庫系統管理_tsm.Enabled = CC(1) : 系統使用者管理_tsm.Enabled = CC(2) : 系統編碼規則_tsm.Enabled = CC(3) : 系統執行檔版本管理_tsm.Enabled = CC(4)
         FTP_tsm.Enabled = CC(5) : 人員ID卡系統配置設定_tsm.Enabled = CC(6) : USB_KEY_指定_tsm.Enabled = CC(23) : 資料備份轉移_tsm.Enabled = CC(24)
-        PY執行錯誤LOG檔_tsm.Enabled = CC(25)
+        PY執行錯誤LOG檔_tsm.Enabled = CC(25) : 租用者帳務表_tsm.Enabled = CC(41)
         '----------特殊操作功能---------------------------------------------------------------------------------------------------------------
         特殊操作功能_tsm.Enabled = CC(10) : 流水帳自動導入_tsm.Enabled = CC(11) : 流水帳手動輸入_tsm.Enabled = CC(12) : 商客資料導入_tsm.Enabled = CC(13)
     End Sub
@@ -108,59 +111,72 @@ Public Class GA_ERP_SYS
             SQL_連線字串_子SQL()
         End If : conn.Close()
 
-        If 判斷重登 = False Then : Timer1.Enabled = True : End If
+        If 判斷重登 = False And QA1 = "00" And QA2 = "00" And QA3 = "00" And QA4 = "00" Then
+            Timer1.Enabled = False : 無KEY登入 = True : 基本資料管理_tsm.Enabled = False ': 電板帳務明細查詢表_tsm.Enabled = False
+            電板紙板帳務設定_tsm.Enabled = False : 電板股東紅利設定_tsm.Enabled = False : 資料庫系統管理_tsm.Enabled = False
+        ElseIf 判斷重登 = True And QA1 = "00" And QA2 = "00" And QA3 = "00" And QA4 = "00" Then
+            If 判斷重登 = True Then : Timer1.Enabled = False : End If
+        Else
+            SQL_登入鎖定解除() : If 判斷重登 = False Then : Timer1.Enabled = True : End If
+        End If
 
-        Dim 商品(200), 系統(200), 層級(200), 網址(200) As String : Dim 計數 As Integer : Dim 是否計算 As Boolean
-        Set_修正清單() : Set_網址同步1() : Set_網址同步2()
-        '-------比對主庫沒有的-------------------------------------------------------------------------------------------------------------------------------------------------
-        For I As Integer = 0 To 網址_dgv.Rows.Count - 1
-            是否計算 = False
-            For II As Integer = 0 To 總網址_dgv.Rows.Count - 1
-                If 網址_dgv("商品", I).Value.ToString = 總網址_dgv("商品", II).Value.ToString Or 網址_dgv("網址", I).Value.ToString = 總網址_dgv("網址", II).Value.ToString Then
-                    是否計算 = False : Exit For
-                Else
-                    是否計算 = True
+        網頁共享開關 = False
+        If 網頁共享開關 = True Then
+            Dim 商品(200), 系統(200), 層級(200), 網址(200) As String : Dim 計數 As Integer : Dim 是否計算 As Boolean
+            Set_修正清單() : Set_網址同步1() : Set_網址同步2()
+            '-------比對主庫沒有的-------------------------------------------------------------------------------------------------------------------------------------------------
+            For I As Integer = 0 To 網址_dgv.Rows.Count - 1
+                是否計算 = False
+                For II As Integer = 0 To 總網址_dgv.Rows.Count - 1
+                    If 網址_dgv("商品", I).Value.ToString = 總網址_dgv("商品", II).Value.ToString Or 網址_dgv("網址", I).Value.ToString = 總網址_dgv("網址", II).Value.ToString Then
+                        是否計算 = False : Exit For
+                    Else
+                        是否計算 = True
+                    End If
+                Next
+                If 是否計算 = True Then
+                    商品(計數) = 網址_dgv("商品", I).Value.ToString : 系統(計數) = 網址_dgv("系統", I).Value.ToString
+                    層級(計數) = 網址_dgv("層級", I).Value.ToString : 網址(計數) = 網址_dgv("網址", I).Value.ToString : 計數 += 1
                 End If
             Next
-            If 是否計算 = True Then
-                商品(計數) = 網址_dgv("商品", I).Value.ToString : 系統(計數) = 網址_dgv("系統", I).Value.ToString
-                層級(計數) = 網址_dgv("層級", I).Value.ToString : 網址(計數) = 網址_dgv("網址", I).Value.ToString : 計數 += 1
-            End If
-        Next
-        For I As Integer = 0 To 計數 - 1
-            PA1 = 商品(I) : PA2 = 系統(I) : PA3 = 層級(I) : PA4 = 網址(I) : SQL_網址同步1_寫入()
-        Next
-        Set_網址同步1()
-        '-------比對子庫沒有的-------------------------------------------------------------------------------------------------------------------------------------------------
-        計數 = 0
-        For I As Integer = 0 To 200 : 商品(I) = "" : 系統(I) = "" : 層級(I) = "" : 網址(I) = "" : Next
-        For I As Integer = 0 To 總網址_dgv.Rows.Count - 1
-            是否計算 = False
-            For II As Integer = 0 To 網址_dgv.Rows.Count - 1
-                If 網址_dgv.Rows.Count = 0 Then : 是否計算 = True : End If
-                If 總網址_dgv("商品", I).Value.ToString = 網址_dgv("商品", II).Value.ToString Or 總網址_dgv("網址", I).Value.ToString = 網址_dgv("網址", II).Value.ToString Then
-                    是否計算 = False : Exit For
-                Else
-                    是否計算 = True
+            For I As Integer = 0 To 計數 - 1
+                PA1 = 商品(I) : PA2 = 系統(I) : PA3 = 層級(I) : PA4 = 網址(I) : SQL_網址同步1_寫入()
+            Next
+            Set_網址同步1()
+            '-------比對子庫沒有的-------------------------------------------------------------------------------------------------------------------------------------------------
+            計數 = 0
+            For I As Integer = 0 To 200 : 商品(I) = "" : 系統(I) = "" : 層級(I) = "" : 網址(I) = "" : Next
+            For I As Integer = 0 To 總網址_dgv.Rows.Count - 1
+                是否計算 = False
+                For II As Integer = 0 To 網址_dgv.Rows.Count - 1
+                    If 網址_dgv.Rows.Count = 0 Then : 是否計算 = True : End If
+                    If 總網址_dgv("商品", I).Value.ToString = 網址_dgv("商品", II).Value.ToString Or 總網址_dgv("網址", I).Value.ToString = 網址_dgv("網址", II).Value.ToString Then
+                        是否計算 = False : Exit For
+                    Else
+                        是否計算 = True
+                    End If
+                Next
+                If 是否計算 = True Then
+                    商品(計數) = 總網址_dgv("商品", I).Value.ToString : 系統(計數) = 總網址_dgv("系統", I).Value.ToString
+                    層級(計數) = 總網址_dgv("層級", I).Value.ToString : 網址(計數) = 總網址_dgv("網址", I).Value.ToString : 計數 += 1
                 End If
             Next
-            If 是否計算 = True Then
-                商品(計數) = 總網址_dgv("商品", I).Value.ToString : 系統(計數) = 總網址_dgv("系統", I).Value.ToString
-                層級(計數) = 總網址_dgv("層級", I).Value.ToString : 網址(計數) = 總網址_dgv("網址", I).Value.ToString : 計數 += 1
-            End If
-        Next
-        For I As Integer = 0 To 計數 - 1
-            Dim DD As String
-            PA17 = 系統(I) : SQL_商品流水號查詢()
-            If dr.Read() Then : GP = Double.Parse(Strings.Right(dr("編號").ToString, 3)) : Else : GP = 0 : End If : conn.Close() : GP += 1
-            If 系統(I) = "365" Then : DD = "A" : Else : DD = "B" : End If
-            If GP < 10 Then : GPP = DD & "00" & GP
-            ElseIf GP > 9 And GP < 100 Then : GPP = DD & "0" & GP
-            ElseIf GP > 99 Then : GPP = DD & GP : End If : PA6 = GPP
+            For I As Integer = 0 To 計數 - 1
+                Dim DD As String
+                PA17 = 系統(I) : SQL_商品流水號查詢()
+                If dr.Read() Then : GP = Double.Parse(Strings.Right(dr("編號").ToString, 3)) : Else : GP = 0 : End If : conn.Close() : GP += 1
+                If 系統(I) = "365" Then : DD = "A" : Else : DD = "B" : End If
+                If GP < 10 Then : GPP = DD & "00" & GP
+                ElseIf GP > 9 And GP < 100 Then : GPP = DD & "0" & GP
+                ElseIf GP > 99 Then : GPP = DD & GP : End If : PA6 = GPP
+                PA1 = 商品(I) : PA2 = 系統(I) : PA3 = 層級(I) : PA4 = 網址(I) : SQL_網址同步2_寫入()
+            Next
+        End If
 
-            PA1 = 商品(I) : PA2 = 系統(I) : PA3 = 層級(I) : PA4 = 網址(I) : SQL_網址同步2_寫入()
-        Next
         If CC(40) = True Then : 系統公告_tsm.PerformClick() : SQL_公告修改() : End If
+        If 剩餘天數 <= 10 Then
+            MsgBox("您的使用天數還有 " & 剩餘天數 & " 天，請記得續費!!")
+        End If
     End Sub
     Private Sub GA_ERP_SYS_Close(sender As Object, e As EventArgs) Handles MyBase.Closed
         '-----------------------處理檔案-----------------------------------------------------------------------------------------------------------------------------------------------
@@ -283,13 +299,19 @@ Public Class GA_ERP_SYS
     Private Sub 系統公告_tsm_Click(sender As Object, e As EventArgs) Handles 系統公告_tsm.Click
         PA = "" : 系統公告.ShowDialog()
     End Sub
+    Private Sub 租用者帳務表_tsm_Click(sender As Object, e As EventArgs) Handles 租用者帳務表_tsm.Click
+        PA = "" : 租用者帳務表.Show() : 租用者帳務表.BringToFront()
+    End Sub
+    Private Sub 系統通用變數管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click
+        PA = "" : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront()
+    End Sub
     Private Sub 計算機_bt_Click(sender As Object, e As EventArgs) Handles 計算機_bt.Click
     End Sub
 
 
     Private Sub 基本資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 電板基本資料_tsm.Click
         If CC(15) = False Then : MsgBox("您的服務已到期，請續費後通知客服開通開通!!")
-        Else : 主資料庫() : PA = "" : 基本資料.Show() : 基本資料.BringToFront() : End If
+        Else : 主資料庫() : PA = "" : 電板基本資料.Show() : 電板基本資料.BringToFront() : End If
     End Sub
     Private Sub 帳務彙總計算表_tsm_Click(sender As Object, e As EventArgs) Handles 電板帳務彙總計算表_tsm.Click
         If CC(18) = False Then : MsgBox("您的服務已到期，請續費後通知客服開通開通!!")
@@ -305,7 +327,7 @@ Public Class GA_ERP_SYS
     End Sub
     Private Sub 電板股東紅利設定_tsm_Click(sender As Object, e As EventArgs) Handles 電板股東紅利設定_tsm.Click
         If CC(27) = False Then : MsgBox("您的服務已到期，請續費後通知客服開通開通!!")
-        Else : MsgBox("系統建置中，敬請期待!!") : End If
+        Else : PA = "" : 電板股東紅利設定.Show() : 電板股東紅利設定.BringToFront() : End If
     End Sub
     Private Sub 電板歷史帳務彙總計算表_tsm_Click(sender As Object, e As EventArgs) Handles 電板歷史帳務彙總計算表_tsm.Click
         If CC(34) = False Then : MsgBox("您的服務已到期，請續費後通知客服開通開通!!")
@@ -315,7 +337,9 @@ Public Class GA_ERP_SYS
         If CC(35) = False Then : MsgBox("您的服務已到期，請續費後通知客服開通開通!!")
         Else : 副資料庫() : PA = "" : 帳務明細查詢表.Show() : 帳務明細查詢表.BringToFront() : End If
     End Sub
-
+    Private Sub 電板客戶名稱編輯器_tsm_Click(sender As Object, e As EventArgs) Handles 電板客戶名稱編輯器_tsm.Click
+        PA = "" : 電板客戶名稱編輯器.Show() : 電板客戶名稱編輯器.BringToFront()
+    End Sub
 
 
 
@@ -348,17 +372,22 @@ Public Class GA_ERP_SYS
 
 
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
-        Dim Usbkey As Boolean = False
-        Dim cmicWmi As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
-        For Each cmicWmiObj As ManagementObject In cmicWmi.Get
-            If QA1 = Replace(cmicWmiObj("Signature"), "'", "/") And QA2 = Replace(cmicWmiObj("SerialNumber"), "'", "/") And
-               QA3 = Replace(cmicWmiObj("Model"), "'", "/") And QA4 = Replace(cmicWmiObj("Size"), "'", "/") Then
-                Usbkey = True
+        If QA1 = "00" And QA2 = "00" And QA3 = "00" And QA4 = "00" Then
+            Timer1.Enabled = False : 無KEY登入 = True : 基本資料管理_tsm.Enabled = False : 電板帳務明細查詢表_tsm.Enabled = False
+            電板紙板帳務設定_tsm.Enabled = False : 電板股東紅利設定_tsm.Enabled = False
+        Else
+            Dim Usbkey As Boolean = False
+            Dim cmicWmi As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
+            For Each cmicWmiObj As ManagementObject In cmicWmi.Get
+                If QA1 = Replace(cmicWmiObj("Signature"), "'", "/") And QA2 = Replace(cmicWmiObj("SerialNumber"), "'", "/") And
+                   QA3 = Replace(cmicWmiObj("Model"), "'", "/") And QA4 = Replace(cmicWmiObj("Size"), "'", "/") Then
+                    Usbkey = True
+                End If
+            Next
+            If Usbkey = False Then
+                Timer1.Enabled = False : MsgBox("沒有偵測到合法的USBKEY，系統即將關閉!!!")
+                SQL_登入鎖定解除() : LoginForm1.Close()
             End If
-        Next
-        If Usbkey = False Then
-            Timer1.Enabled = False : MsgBox("沒有偵測到合法的USBKEY，系統即將關閉!!!")
-            SQL_登入鎖定解除() : LoginForm1.Close()
         End If
     End Sub
 End Class

GA-ERP-SYS/GA-ERP-SYS.vbproj

@@ -109,12 +109,19 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="Module\DGV進度條.vb" />
     <Compile Include="基本資料管理\網址帳號驗證中.Designer.vb">
       <DependentUpon>網址帳號驗證中.vb</DependentUpon>
     </Compile>
     <Compile Include="基本資料管理\網址帳號驗證中.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="基本資料管理\電板客戶名稱編輯器.Designer.vb">
+      <DependentUpon>電板客戶名稱編輯器.vb</DependentUpon>
+    </Compile>
+    <Compile Include="基本資料管理\電板客戶名稱編輯器.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="報表系統管理\列印選擇.Designer.vb">
       <DependentUpon>列印選擇.vb</DependentUpon>
     </Compile>
@@ -197,10 +204,10 @@
     <Compile Include="特殊操作功能\商客資料導入.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="基本資料管理\基本資料.Designer.vb">
-      <DependentUpon>基本資料.vb</DependentUpon>
+    <Compile Include="基本資料管理\電板基本資料.Designer.vb">
+      <DependentUpon>電板基本資料.vb</DependentUpon>
     </Compile>
-    <Compile Include="基本資料管理\基本資料.vb">
+    <Compile Include="基本資料管理\電板基本資料.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="特殊操作功能\流水帳手動輸入.Designer.vb">
@@ -283,6 +290,12 @@
     <Compile Include="報表系統管理\PDF列印預覽1.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="資料庫系統管理\租用者帳務表.Designer.vb">
+      <DependentUpon>租用者帳務表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="資料庫系統管理\租用者帳務表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\系統使用者管理.Designer.vb">
       <DependentUpon>系統使用者管理.vb</DependentUpon>
     </Compile>
@@ -301,6 +314,12 @@
     <Compile Include="資料庫系統管理\系統編碼規則.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="資料庫系統管理\系統通用變數管理.Designer.vb">
+      <DependentUpon>系統通用變數管理.vb</DependentUpon>
+    </Compile>
+    <Compile Include="資料庫系統管理\系統通用變數管理.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\計算機.Designer.vb">
       <DependentUpon>計算機.vb</DependentUpon>
     </Compile>
@@ -313,6 +332,12 @@
     <Compile Include="資料庫系統管理\資料備份轉移.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="報表系統管理\電板股東紅利設定.Designer.vb">
+      <DependentUpon>電板股東紅利設定.vb</DependentUpon>
+    </Compile>
+    <Compile Include="報表系統管理\電板股東紅利設定.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="輸入密碼.Designer.vb">
       <DependentUpon>輸入密碼.vb</DependentUpon>
     </Compile>
@@ -324,6 +349,9 @@
     <EmbeddedResource Include="基本資料管理\網址帳號驗證中.resx">
       <DependentUpon>網址帳號驗證中.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="基本資料管理\電板客戶名稱編輯器.resx">
+      <DependentUpon>電板客戶名稱編輯器.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="報表系統管理\列印選擇.resx">
       <DependentUpon>列印選擇.vb</DependentUpon>
     </EmbeddedResource>
@@ -379,8 +407,8 @@
     <EmbeddedResource Include="特殊操作功能\商客資料導入.resx">
       <DependentUpon>商客資料導入.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="基本資料管理\基本資料.resx">
-      <DependentUpon>基本資料.vb</DependentUpon>
+    <EmbeddedResource Include="基本資料管理\電板基本資料.resx">
+      <DependentUpon>電板基本資料.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="特殊操作功能\流水帳手動輸入.resx">
       <DependentUpon>流水帳手動輸入.vb</DependentUpon>
@@ -404,6 +432,9 @@
     <EmbeddedResource Include="報表系統管理\PDF列印預覽1.resx">
       <DependentUpon>PDF列印預覽1.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="資料庫系統管理\租用者帳務表.resx">
+      <DependentUpon>租用者帳務表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\系統使用者管理.resx">
       <DependentUpon>系統使用者管理.vb</DependentUpon>
     </EmbeddedResource>
@@ -413,12 +444,18 @@
     <EmbeddedResource Include="資料庫系統管理\系統編碼規則.resx">
       <DependentUpon>系統編碼規則.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="資料庫系統管理\系統通用變數管理.resx">
+      <DependentUpon>系統通用變數管理.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\計算機.resx">
       <DependentUpon>計算機.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\資料備份轉移.resx">
       <DependentUpon>資料備份轉移.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="報表系統管理\電板股東紅利設定.resx">
+      <DependentUpon>電板股東紅利設定.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="輸入密碼.resx">
       <DependentUpon>輸入密碼.vb</DependentUpon>
     </EmbeddedResource>

GA-ERP-SYS/LoginForm1.Designer.vb

@@ -1,10 +1,10 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-<Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Naming", "CA1726")> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+<Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Naming", "CA1726")>
 Partial Class LoginForm1
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -49,7 +49,6 @@ Partial Class LoginForm1
         Me.更新下載_ch = New System.Windows.Forms.CheckBox()
         Me.執行檔版本號_lb = New System.Windows.Forms.Label()
         Me.資料庫版本號_lb = New System.Windows.Forms.Label()
-        Me.使用者帳號_cb = New System.Windows.Forms.ComboBox()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
         Me.更新_bt = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
@@ -61,6 +60,7 @@ Partial Class LoginForm1
         Me.UPDATE_bt = New System.Windows.Forms.Button()
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
         Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
+        Me.使用者帳號_cb = New System.Windows.Forms.TextBox()
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.簡易登入_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -256,17 +256,6 @@ Partial Class LoginForm1
         Me.資料庫版本號_lb.TabIndex = 673
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
         '
-        '使用者帳號_cb
-        '
-        Me.使用者帳號_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.使用者帳號_cb.FormattingEnabled = True
-        Me.使用者帳號_cb.ImeMode = System.Windows.Forms.ImeMode.Off
-        Me.使用者帳號_cb.Location = New System.Drawing.Point(229, 53)
-        Me.使用者帳號_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.使用者帳號_cb.Name = "使用者帳號_cb"
-        Me.使用者帳號_cb.Size = New System.Drawing.Size(201, 24)
-        Me.使用者帳號_cb.TabIndex = 677
-        '
         '更新_bt
         '
         Me.更新_bt.Location = New System.Drawing.Point(462, 118)
@@ -361,6 +350,13 @@ Partial Class LoginForm1
         '
         Me.Timer3.Interval = 3000
         '
+        '使用者帳號_cb
+        '
+        Me.使用者帳號_cb.Location = New System.Drawing.Point(228, 55)
+        Me.使用者帳號_cb.Name = "使用者帳號_cb"
+        Me.使用者帳號_cb.Size = New System.Drawing.Size(201, 23)
+        Me.使用者帳號_cb.TabIndex = 685
+        '
         'LoginForm1
         '
         Me.AcceptButton = Me.確認_bt
@@ -370,12 +366,12 @@ Partial Class LoginForm1
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.CancelButton = Me.取消_bt
         Me.ClientSize = New System.Drawing.Size(964, 240)
+        Me.Controls.Add(Me.使用者帳號_cb)
         Me.Controls.Add(Me.簡易登入_dgv)
         Me.Controls.Add(Me.UPDATE_bt)
         Me.Controls.Add(Me.藏_bt)
         Me.Controls.Add(Me.解鎖_bt)
         Me.Controls.Add(Me.簡易_lb)
-        Me.Controls.Add(Me.使用者帳號_cb)
         Me.Controls.Add(Me.資料庫版本號_lb)
         Me.Controls.Add(Me.執行檔版本號_lb)
         Me.Controls.Add(Me.更新下載_ch)
@@ -423,7 +419,6 @@ Partial Class LoginForm1
     Friend WithEvents 更新下載_ch As CheckBox
     Friend WithEvents 執行檔版本號_lb As Label
     Friend WithEvents 資料庫版本號_lb As Label
-    Friend WithEvents 使用者帳號_cb As ComboBox
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
     Friend WithEvents 更新_bt As Button
     Friend WithEvents Label1 As Label
@@ -435,4 +430,5 @@ Partial Class LoginForm1
     Friend WithEvents UPDATE_bt As Button
     Friend WithEvents Timer2 As Timer
     Friend WithEvents Timer3 As Timer
+    Friend WithEvents 使用者帳號_cb As TextBox
 End Class

GA-ERP-SYS/LoginForm1.vb

@@ -102,14 +102,10 @@ Public Class LoginForm1
                     PA16 = ""
                 End If
             Next
+            '-----用有沒有帳號出現來分類-------------------------------------------
             If PA16 = "" Then
-                Dim aa As MsgBoxResult = MsgBox("請插入USB KEY!!!", MsgBoxStyle.OkCancel)
-                If aa = MsgBoxResult.Ok Then
-                    QA1 = "00" : QA2 = "00" : QA3 = "00" : QA4 = "00"
-                    FTP登入()
-                Else
-                    Me.Close()
-                End If
+                QA1 = "00" : QA2 = "00" : QA3 = "00" : QA4 = "00"
+                FTP登入()
             Else
                 FTP登入()
                 SQL_登入鎖定解除() : 使用者帳號_cb.Text = PA16 : PA16 = ""
@@ -117,6 +113,7 @@ Public Class LoginForm1
             End If
             Timer1.Enabled = True
         End If
+        使用者帳號_cb.ImeMode = 3
     End Sub
     Private Sub FTP登入()
         SQL_FTP伺服器登入位置()
@@ -132,6 +129,7 @@ Public Class LoginForm1
     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
         '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
         Dim Str As String = Application.StartupPath
+        If File.Exists(Str + "\C.txt") Then : File.Delete(Str + "\C.txt") : End If
         If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
         Timer2.Enabled = False
     End Sub
@@ -213,7 +211,7 @@ Public Class LoginForm1
                 If 驗證_tb.Text = "1" Then
                     SQL_使用者權限宣告()
                     If dr.Read() Then
-                        FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), dr("到期日"))
+                        FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), dr("到期日")) : 剩餘天數 = FFGG
                         If FFGG < 0 Then
                             MsgBox("您帳號的合約日期已經到期，如要續約且恰客服人員!!!")
                         Else
@@ -358,11 +356,26 @@ Public Class LoginForm1
         UPDATE_bt.PerformClick()
     End Sub
     Private Sub UPDATE_bt_Click(sender As Object, e As EventArgs) Handles UPDATE_bt.Click
-        Timer1.Enabled = False
-        FTP登入()
+        Timer1.Enabled = False : FTP登入()
         Dim Strs As String = Application.StartupPath
+        If File.Exists(Strs & "\C.txt") Then : strDirName = Strs & "\C.txt" : End If
+        strDirName = Strs & "\C.txt"
+        Try
+            Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
+                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
+                    Dim str As String = Strings.Right(執行檔版本號_lb.Text, 10)
+                    sw.WriteLine(str)   '插入一整行
+                    sw.Flush()
+                End Using
+            End Using
+        Catch ex As Exception
+        End Try
+
         My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Strs + "\SYS-UPDATE.exe")
         Shell(Strs + "\SYS-UPDATE.exe", vbNormalFocus)
         Me.Close()
     End Sub
+    Private Sub 使用者帳號_cb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 使用者帳號_cb.GotFocus
+        使用者帳號_cb.ImeMode = 2
+    End Sub
 End Class

GA-ERP-SYS/Module/DGV進度條.vb

@@ -0,0 +1,62 @@
+Imports System.ComponentModel
+Module DGV進度條
+    Public Class DataGridViewProgressColumn
+        Inherits DataGridViewImageColumn
+        Public Sub New()
+            Me.CellTemplate = New DataGridViewProgressCell
+        End Sub
+    End Class
+    Public Class DataGridViewProgressCell
+        Inherits DataGridViewImageCell
+        Sub New()
+            ValueType = Type.GetType("Integer")
+        End Sub
+        ' 使進度單元與默認圖像單元一致所需的方法。
+        ' 默認圖像單元將圖像作為值，儘管進度單元的值是整數。
+        Protected Overrides Function GetFormattedValue(
+            ByVal value As Object,
+            ByVal rowIndex As Integer,
+            ByRef cellStyle As DataGridViewCellStyle,
+            ByVal valueTypeConverter As TypeConverter,
+            ByVal formattedValueTypeConverter As TypeConverter,
+            ByVal context As DataGridViewDataErrorContexts) As Object
+            Static emptyImage As Bitmap = New Bitmap(1, 1, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
+            GetFormattedValue = emptyImage
+        End Function
+        Protected Overrides Sub Paint(ByVal g As System.Drawing.Graphics, ByVal clipBounds As System.Drawing.Rectangle,
+                                      ByVal cellBounds As System.Drawing.Rectangle,
+                                      ByVal rowIndex As Integer, ByVal cellState As System.Windows.Forms.DataGridViewElementStates,
+                                      ByVal value As Object, ByVal formattedValue As Object, ByVal errorText As String,
+                                      ByVal cellStyle As System.Windows.Forms.DataGridViewCellStyle,
+                                      ByVal advancedBorderStyle As System.Windows.Forms.DataGridViewAdvancedBorderStyle,
+                                      ByVal paintParts As System.Windows.Forms.DataGridViewPaintParts)
+            Dim progressVal As Double = CType(value, Double)
+            Dim percentage As Single = CType(progressVal / 分母, Single)
+            Dim backBrush As Brush = New SolidBrush(cellStyle.BackColor)
+            Dim foreBrush As Brush = New SolidBrush(cellStyle.ForeColor)
+            ' 調用基類方法來繪製默認單元格外觀。
+            MyBase.Paint(g, clipBounds, cellBounds, rowIndex, cellState,
+                value, formattedValue, errorText, cellStyle,
+                advancedBorderStyle, paintParts)
+            If percentage > 0.0 And percentage < 分段1 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightBlue), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            ElseIf percentage > 分段2 And percentage < 分段3 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightGreen), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            ElseIf percentage > 分段4 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightPink), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            Else
+                '繪製文本
+                If Not Me.DataGridView.CurrentCell Is Nothing AndAlso Me.DataGridView.CurrentCell.RowIndex = rowIndex Then
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, New SolidBrush(cellStyle.SelectionForeColor), cellBounds.X + 6, cellBounds.Y + 2)
+                Else : g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2) : End If
+            End If
+        End Sub
+    End Class
+End Module
+

GA-ERP-SYS/Module/SQL_Module.vb

@@ -10,8 +10,8 @@ Module SQL_Module
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String
     Public 登入權限 As String = "姓名, 帳號, 密碼, ID卡號, 主客戶, 到期日, 備註, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, 
                                  CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, CC23, CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, 
-                                 CC35, CC36, CC37, CC38, CC39, CC40"
-    Public 權限數量 As Integer = 40
+                                 CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42"
+    Public 權限數量 As Integer = 42
     Friend Sub ConnOpen()
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub

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

@@ -15,23 +15,23 @@
     '--------------------------基本資料管理---------------------------------------------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_同步修正網址1()
         ConnOpen_子SQL()
-        SQL1 = "UPDATE [LOG] SET 網址 = N'" & 基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 基本資料.網址4_tb.Text & "'"
+        SQL1 = "UPDATE [LOG] SET 網址 = N'" & 電板基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板基本資料.網址4_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_同步修正網址2()
         ConnOpen_子SQL()
-        SQL1 = "UPDATE 下行客戶 SET 網址 = N'" & 基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 基本資料.網址4_tb.Text & "'"
+        SQL1 = "UPDATE 下行客戶 SET 網址 = N'" & 電板基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板基本資料.網址4_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_同步修正網址3()
         ConnOpen_子SQL()
-        SQL1 = "UPDATE 流水帳 SET 網址 = N'" & 基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 基本資料.網址4_tb.Text & "'"
+        SQL1 = "UPDATE 流水帳 SET 網址 = N'" & 電板基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板基本資料.網址4_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_同步修正網址4()
         ConnOpen_子SQL()
-        SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & 基本資料.網址2_tb.Text & "', 商品 = N'" & 基本資料.商品_tb.Text & "', 驗證 = N'          '
-                WHERE  網址 LIKE N'" & 基本資料.網址4_tb.Text & "' AND 商品 LIKE N'" & 基本資料.商品1_tb.Text & "'"
+        SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & 電板基本資料.網址2_tb.Text & "', 商品 = N'" & 電板基本資料.商品_tb.Text & "', 驗證 = N'          '
+                WHERE  網址 LIKE N'" & 電板基本資料.網址4_tb.Text & "' AND 商品 LIKE N'" & 電板基本資料.商品1_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商品流水號查詢()
@@ -39,30 +39,30 @@
     End Sub
     Friend Sub SQL_商品寫入驗證1()
         ConnOpen_子SQL()
-        SQL1 = "SELECT 編號 FROM 商品資料表 WHERE 編號 LIKE N'" & 基本資料.編號_tb.Text & "'"
+        SQL1 = "SELECT 編號 FROM 商品資料表 WHERE 編號 LIKE N'" & 電板基本資料.編號_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商品寫入驗證2()
         ConnOpen_子SQL()
-        SQL1 = "SELECT 網址 FROM 商品資料表 WHERE 網址 LIKE N'" & 基本資料.網址2_tb.Text & "'"
+        SQL1 = "SELECT 網址 FROM 商品資料表 WHERE 網址 LIKE N'" & 電板基本資料.網址2_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商品寫入()
         ConnOpen_子SQL()
         SQL1 = "INSERT INTO 商品資料表 (商品, 編號, 系統, 層級, 網址) 
-                VALUES (N'" & 基本資料.商品_tb.Text & "', N'" & 基本資料.編號_tb.Text & "', N'" & 基本資料.系統_cb.Text & "', N'" & 基本資料.層級_cb.Text & "', N'" & 基本資料.網址2_tb.Text & "')"
+                VALUES (N'" & 電板基本資料.商品_tb.Text & "', N'" & 電板基本資料.編號_tb.Text & "', N'" & 電板基本資料.系統_cb.Text & "', N'" & 電板基本資料.層級_cb.Text & "', N'" & 電板基本資料.網址2_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商品修改()
         ConnOpen_子SQL()
-        SQL1 = "UPDATE 商品資料表 SET 系統 = N'" & 基本資料.系統_cb.Text & "', 層級 = N'" & 基本資料.層級_cb.Text & "', 
-                                      網址 = N'" & 基本資料.網址2_tb.Text & "', 商品 = N'" & 基本資料.商品_tb.Text & "'
-                WHERE  編號 LIKE N'" & 基本資料.編號_tb.Text & "'"
+        SQL1 = "UPDATE 商品資料表 SET 系統 = N'" & 電板基本資料.系統_cb.Text & "', 層級 = N'" & 電板基本資料.層級_cb.Text & "', 
+                                      網址 = N'" & 電板基本資料.網址2_tb.Text & "', 商品 = N'" & 電板基本資料.商品_tb.Text & "'
+                WHERE  編號 LIKE N'" & 電板基本資料.編號_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商品刪除()
         ConnOpen_子SQL()
-        SQL1 = "DELETE 商品資料表 WHERE  商品  LIKE N'" & 基本資料.商品_tb.Text & "' AND 編號 LIKE N'" & 基本資料.編號_tb.Text & "'"
+        SQL1 = "DELETE 商品資料表 WHERE  商品  LIKE N'" & 電板基本資料.商品_tb.Text & "' AND 編號 LIKE N'" & 電板基本資料.編號_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_基數資料表()
@@ -85,21 +85,21 @@
     Friend Sub SQL_系統編碼規則_客戶下重複查詢()
         ConnOpen_子SQL()
         SQL1 = "SELECT 客戶下 FROM 下行客戶 
-                WHERE  客戶下 LIKE N'" & 基本資料.客戶下_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址3_tb.Text & "' AND 
-                       帳號 LIKE N'" & 基本資料.帳號3_tb.Text & "' AND 基數 LIKE N'" & 基本資料.下行1_cb.Text & "'"
+                WHERE  客戶下 LIKE N'" & 電板基本資料.客戶下_tb.Text & "' AND 網址 LIKE N'" & 電板基本資料.網址3_tb.Text & "' AND 
+                       帳號 LIKE N'" & 電板基本資料.帳號3_tb.Text & "' AND 基數 LIKE N'" & 電板基本資料.下行1_cb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統編碼規則_客戶下新增()
         ConnOpen_子SQL()
         SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層, 水差另算) 
-                VALUES (N'" & 基本資料.客戶下_tb.Text & "', N'" & 基本資料.網址3_tb.Text & "', N'" & 基本資料.帳號3_tb.Text & "', 
-                        N'" & 基本資料.下行1_cb.Text & "', N'" & PA10 & "', N'" & 基本資料.下行1_cb.Text & "', '" & 基本資料.參與計算_ch.Checked & "', 
-                         '" & 基本資料.上下同帳_ch.Checked & "', '" & 基本資料.所得計算_ch.Checked & "',  '" & 基本資料.客戶名稱_cb.Text & "', 
-                         '" & 基本資料.下層帳號_ch.Checked & "',  '" & 基本資料.水差_cb.Text & "')"
+                VALUES (N'" & 電板基本資料.客戶下_tb.Text & "', N'" & 電板基本資料.網址3_tb.Text & "', N'" & 電板基本資料.帳號3_tb.Text & "', 
+                        N'" & 電板基本資料.下行1_cb.Text & "', N'" & PA10 & "', N'" & 電板基本資料.下行1_cb.Text & "', '" & 電板基本資料.參與計算_ch.Checked & "', 
+                         '" & 電板基本資料.上下同帳_ch.Checked & "', '" & 電板基本資料.所得計算_ch.Checked & "',  '" & 電板基本資料.客戶名稱_cb.Text & "', 
+                         '" & 電板基本資料.下層帳號_ch.Checked & "',  '" & 電板基本資料.水差_cb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統編碼規則_客戶下刪除()
-        ConnOpen_子SQL() : SQL1 = "DELETE FROM 下行客戶 WHERE 流水號 LIKE N'" & 基本資料.流水號_tb.Text & "'" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "DELETE FROM 下行客戶 WHERE 流水號 LIKE N'" & 電板基本資料.流水號_tb.Text & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統編碼規則_客戶下無帳號刪除()
         ConnOpen_子SQL() : SQL1 = "DELETE 下行客戶 WHERE (客戶下 LIKE '')" : CmdSet_For_dr()
@@ -135,8 +135,8 @@
     Friend Sub SQL_系統編碼規則_商客重複查詢()
         ConnOpen_子SQL()
         SQL1 = "SELECT 網址,帳號,密碼,資料,上繳源,商品,上行基數,下行基數  FROM 商客基本資料表 
-                WHERE (帳號 LIKE N'" & 基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 基本資料.網址_tb.Text & "'AND 資料 LIKE N'" & 基本資料.資料_cb.Text & "' AND 
-                       上繳源 LIKE N'" & 基本資料.上繳源_cb.Text & "'AND 商品 LIKE N'" & 基本資料.商品_cb.Text & "')"
+                WHERE (帳號 LIKE N'" & 電板基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 電板基本資料.網址_tb.Text & "'AND 資料 LIKE N'" & 電板基本資料.資料_cb.Text & "' AND 
+                       上繳源 LIKE N'" & 電板基本資料.上繳源_cb.Text & "'AND 商品 LIKE N'" & 電板基本資料.商品_cb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統編碼規則_商客新增()
@@ -147,7 +147,7 @@
     End Sub
     Friend Sub SQL_系統編碼規則_商客刪除()
         ConnOpen_子SQL()
-        SQL1 = "DELETE FROM 商客基本資料表 WHERE (帳號 LIKE N'" & 基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 基本資料.網址_tb.Text & "')"
+        SQL1 = "DELETE FROM 商客基本資料表 WHERE (帳號 LIKE N'" & 電板基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 電板基本資料.網址_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統編碼規則_商客修改()
@@ -191,7 +191,7 @@
                 FROM       商品資料表 LEFT OUTER JOIN
                            商客基本資料表 ON 商品資料表.商品 = 商客基本資料表.商品 AND 
                            商品資料表.網址 = 商客基本資料表.網址
-                WHERE     (商品資料表.系統 LIKE '" & 基本資料.系統_cb.Text & "') AND (商品資料表.網址 LIKE N'%" & PA16 & "%')
+                WHERE     (商品資料表.系統 LIKE '" & 電板基本資料.系統_cb.Text & "') AND (商品資料表.網址 LIKE N'%" & PA16 & "%')
                 GROUP BY   商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 
                            商客基本資料表.網址
                 ORDER BY   商品資料表.編號, 商品資料表.商品, 商品資料表.層級"
@@ -317,31 +317,31 @@
     End Sub
     Friend Sub SQL_LOG查詢3()
         ConnOpen_子SQL()
-        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
+        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間, 帳號 FROM [LOG] 
                 WHERE 查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND 狀態 LIKE N'查詢期間無資料'"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_LOG查詢4()
         ConnOpen_子SQL()
-        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
+        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間, 帳號 FROM [LOG] 
                 WHERE 查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND 狀態 LIKE N'無法取得資料'"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_流水帳_客戶下新增()
         ConnOpen_子SQL()
         SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得) 
-                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'', N'" & PA3 & "', N'', '1', '0', '1')"
+                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'', N'" & PA3 & "', N'', '0', '0', '0')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_LOG查詢1()
         ConnOpen_子SQL()
-        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
+        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間, 帳號 FROM [LOG] 
                 WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "' AND 狀態 LIKE N'查詢期間無資料'"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_LOG查詢2()
         ConnOpen_子SQL()
-        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
+        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間, 帳號 FROM [LOG] 
                 WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "' AND 狀態 LIKE N'無法取得資料'"
         CmdSet_For_DGV()
     End Sub
@@ -389,7 +389,7 @@
     Friend Sub SQL_彙總合帳使用()
         ConnOpen_子SQL()
         SQL1 = "SELECT      TOP (" & NU1 & ") 流水帳.開始日期 AS 客戶, 選擇按鈕.按鈕 AS 付反, 選擇按鈕.按鈕 AS 收反, 選擇按鈕.按鈕 AS 所反, 
-                            選擇按鈕.按鈕 AS 水反, 流水帳.開始日期 AS 紙帳, 流水帳.開始日期 AS 應付, 流水帳.開始日期 AS 應收, 
+                            選擇按鈕.按鈕 AS 水反, 選擇按鈕.按鈕 AS 紅反, 流水帳.開始日期 AS 紙帳, 流水帳.開始日期 AS 應付, 流水帳.開始日期 AS 應收, 
                             流水帳.開始日期 AS 個人所得, 流水帳.開始日期 AS 水差, 流水帳.開始日期 AS 前期, 流水帳.開始日期 AS 交收合計, 
                             流水帳.開始日期 AS 應付1, 流水帳.開始日期 AS 應收1, 流水帳.開始日期 AS 個人所得1, 
                             流水帳.開始日期 AS 水差1, 流水帳.開始日期 AS 交收合計1
@@ -408,7 +408,7 @@
                             QQQ.總監小計s, QQQ.個人所得s, QQQ.水差s, QQQ.下注明細s, QQQ.查看對帳s, 選擇按鈕.按鈕, 
                             QQQ.下行基數 AS 下收, QQQ.客戶, QQQ.客帳, QQQ.帳戶 AS 客名, 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, 選擇按鈕.按鈕 AS 所得, 
                             選擇按鈕.按鈕 AS 上層, 選擇按鈕.按鈕 AS 下層, QQQ.個人所得 AS 所得另算, QQQ.總監, 
-                            QQQ.個人所得1 AS 個人所得2, QQQ.水差1 AS 水差2, QQQ.帳戶 AS 同帳指定, QQQ.帳戶 AS 所得指定, QQQ.帳戶 AS 水差指定
+                            QQQ.個人所得1 AS 個人所得2, QQQ.水差1 AS 水差2, QQQ.帳戶 AS 同帳指定, QQQ.帳戶 AS 所得指定, QQQ.帳戶 AS 水差指定,QQQ.[index]
                 FROM        選擇按鈕 RIGHT OUTER JOIN
                            (SELECT          流水帳.開始日期, 流水帳.結束日期, 流水帳.網址 AS 網址, 流水帳.帳戶, 
                                             商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
@@ -423,7 +423,7 @@
                                             流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.總監, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 
                                             流水帳.輸贏s, 流水帳.客戶小計s, 流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 
                                             流水帳.大股東小計s, 流水帳.總監小計s, 流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 
-                                            流水帳.查看對帳s, 商客基本資料表.上繳源 AS 客帳
+                                            流水帳.查看對帳s, 商客基本資料表.上繳源 AS 客帳, 流水帳.[index]
                             FROM            流水帳 LEFT OUTER JOIN 商客基本資料表 ON 流水帳.網址 = 商客基本資料表.網址 AND 
                                             流水帳.帳戶 = 商客基本資料表.帳號
                             WHERE          (流水帳.開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND 
@@ -439,7 +439,7 @@
                                             流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 
                                             流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 
                                             流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 
-                                            流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.總監) AS QQQ ON 
+                                            流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.總監, 流水帳.[index]) AS QQQ ON 
                             選擇按鈕.選擇 = QQQ.商品
                 ORDER BY    QQQ.商品, QQQ.網址, QQQ.帳戶"
         CmdSet_For_DGV()
@@ -702,6 +702,12 @@
         SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 客名 AS 客戶名稱, 計算, 同帳, 所得, 下層, 基數, 流水號, 所得另算, 水差另算  FROM 下行客戶"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_股東紅利彙總表()
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, SUM(紅利) AS 總股, SUM(紅利) AS 總所得 FROM 電板股東紅利設定 GROUP BY 所得戶" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_股東紅利明細表()
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 總股份, 紅利 AS 股份, 紅利 FROM 電板股東紅利設定 ORDER BY 所得戶, 股東" : CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_帳務流水存檔確認()
         ConnOpen_子SQL()
         SQL1 = "SELECT      開始日期, 結束日期
@@ -804,11 +810,55 @@
                 FROM 流水帳"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_電板所得查詢()
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得" : CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_電板客戶查詢()
-        ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反 FROM 電板客戶 ORDER BY 客戶 DESC" : CmdSet_For_DGV()
+        ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_電板客戶查詢1()
+        ConnOpen_子SQL() : SQL1 = "SELECT 客戶 AS 項次, 客戶 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_電板客戶查詢2()
+        ConnOpen_子SQL() : SQL1 = "SELECT 客戶 AS 項次, 客戶 FROM 電板客戶 WHERE 客戶 LIKE '" & 電板客戶名稱編輯器.客戶1_tb.Text & "' ORDER BY 客戶" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_電板客戶下拉清單()
+        ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_電板所得新增()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板客戶_所得 (所得戶) VALUES (N'" & PA43 & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_電板客戶新增()
-        ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板客戶 (客戶, 付反, 收反, 所反, 水反) VALUES (N'" & PA43 & "', '0', '0', '0', '0')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板客戶 (客戶, 付反, 收反, 所反, 水反, 紅反) VALUES (N'" & PA43 & "', '0', '0', '0', '0', '0')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_電板所得查詢1()
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定 WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "'" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_電板所得查詢2()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定 WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 電板股東紅利設定.商品_cb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_電板所得查詢3()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定 
+                WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 電板股東紅利設定.商品_cb.Text & "' AND 紅利 = N'" & 電板股東紅利設定.nud1.Value & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_電板所得設定新增()
+        ConnOpen_子SQL()
+        SQL1 = "INSERT INTO 電板股東紅利設定 (所得戶, 股東, 紅利) 
+                VALUES (N'" & 電板股東紅利設定.客戶_tb.Text & "', N'" & 電板股東紅利設定.商品_cb.Text & "', N'" & 電板股東紅利設定.nud1.Value & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_電板所得設定修改()
+        ConnOpen_子SQL()
+        SQL1 = "UPDATE 電板股東紅利設定 SET 股東 = N'" & 電板股東紅利設定.商品_cb.Text & "', 紅利 = N'" & 電板股東紅利設定.nud1.Value & "' 
+                WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 電板股東紅利設定.商品1_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_電板所得設定刪除()
+        ConnOpen_子SQL() : SQL1 = "DELETE 電板股東紅利設定 WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 電板股東紅利設定.商品_cb.Text & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_電板紙帳查詢()
         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板" : CmdSet_For_DGV()
@@ -816,6 +866,14 @@
     Friend Sub SQL_電板紙帳查詢1()
         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "'" : CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_電板紙帳查詢3()
+        ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品_tb.Text & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_電板紙帳查詢4()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT 客戶, 商品 FROM 電板紙板 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 客戶 LIKE N'" & 電板紙板帳務設定.商品1_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_電板紙帳查詢2()
         ConnOpen_子SQL()
         SQL1 = "SELECT 客戶, 商品 FROM 電板紙板 
@@ -878,7 +936,40 @@
     End Sub
     Friend Sub SQL_電板客戶修改()
         ConnOpen_子SQL()
-        SQL1 = "UPDATE 電板客戶 SET 付反 = N'" & BL1 & "', 收反 = N'" & BL2 & "', 所反 = N'" & BL3 & "', 水反 = N'" & BL4 & "' WHERE (客戶 LIKE '" & PA9 & "')"
+        SQL1 = "UPDATE 電板客戶 SET 付反 = N'" & BL1 & "', 收反 = N'" & BL2 & "', 所反 = N'" & BL3 & "', 水反 = N'" & BL4 & "', 紅反 = N'" & BL5 & "' WHERE (客戶 LIKE '" & PA9 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_紅利支出()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT 所得戶, 股東, 紅利 AS 股份, 紅利 FROM 電板股東紅利設定 WHERE (所得戶 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_紅利收入()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT 所得戶, 股東, 紅利 AS 股份, 紅利 FROM 電板股東紅利設定 WHERE (股東 LIKE N'" & 帳務彙總計算表.客戶_tb.Text & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_紅利整合()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT TOP(" & NN9 & ") 開始日期 AS [所得/股東], 開始日期 AS 紅利收支, 開始日期 AS 紅利 FROM 流水帳"
+        CmdSet_For_DGV()
+    End Sub
+    '--------------------------修正客戶名稱用SQL群---------------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_電板客戶全系統修改()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 客名 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客名 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 所得另算 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得另算 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 水差另算 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (水差另算 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 下注明細 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (下注明細 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 下注明細s = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (下注明細s LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 查看對帳s = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (查看對帳s LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 商客基本資料表 SET 上繳源 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (上繳源 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 電板分紅流水帳 SET 所得戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 電板分紅流水帳 SET 股東 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (股東 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 電板股東紅利設定 SET 所得戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 電板股東紅利設定 SET 股東 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (股東 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 電板客戶 SET 客戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 電板客戶_所得 SET 所得戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 電板紙板 SET 客戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 電板紙板流水帳 SET 客戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()
+    End Sub
 End Module

GA-ERP-SYS/Module/SQL_登入與主程式.vb

@@ -3,7 +3,7 @@
         ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_系統版本號驗證()
-        ConnOpen() : SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 " : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 系統認證版本號, 小更新1, 小更新2, 小更新3, 小更新4, 小更新5 FROM 版本號管理 " : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_帳號讀取()
         ConnOpen() : SQL1 = "SELECT 客戶, 資料庫, IP位置, 帳號, 密碼 FROM 客戶資料表 ORDER BY 資料庫" : CmdSet_For_dr()

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

@@ -1,7 +1,10 @@
 Module SQL_資料庫系統管理
     Friend Sub SQL_版本號管理修改()
         ConnOpen()
-        SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 系統執行檔版本管理.版本號_tb.Text & "' WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理.資料庫版本號_lb.Text, 10) & "')"
+        SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 系統執行檔版本管理.版本號_tb.Text & "', 小更新1 = N'" & 系統執行檔版本管理.小更1.Text & "', 
+                                      小更新2 = N'" & 系統執行檔版本管理.小更2.Text & "', 小更新3 = N'" & 系統執行檔版本管理.小更3.Text & "', 
+                                      小更新4 = N'" & 系統執行檔版本管理.小更4.Text & "', 小更新5 = N'" & 系統執行檔版本管理.小更5.Text & "' 
+                WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理.資料庫版本號_lb.Text, 10) & "')"
         CmdSet_For_dr()
     End Sub
     '------------------------------------FTP資料夾管理----------------------------------------------
@@ -48,7 +51,7 @@
                         N'" & 系統使用者管理.CheckBox31.Checked & "', N'" & 系統使用者管理.CheckBox32.Checked & "', N'" & 系統使用者管理.CheckBox33.Checked & "', 
                         N'" & 系統使用者管理.CheckBox34.Checked & "', N'" & 系統使用者管理.CheckBox35.Checked & "', N'" & 系統使用者管理.CheckBox36.Checked & "', 
                         N'" & 系統使用者管理.CheckBox37.Checked & "', N'" & 系統使用者管理.CheckBox38.Checked & "', N'" & 系統使用者管理.CheckBox39.Checked & "', 
-                        N'" & 系統使用者管理.CheckBox40.Checked & "')"
+                        N'" & 系統使用者管理.CheckBox40.Checked & "', N'" & 系統使用者管理.CheckBox41.Checked & "', N'" & 系統使用者管理.CheckBox42.Checked & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者修改()
@@ -75,7 +78,8 @@
                                             CC33 = N'" & 系統使用者管理.CheckBox33.Checked & "', CC34 = N'" & 系統使用者管理.CheckBox34.Checked & "', 
                                             CC35 = N'" & 系統使用者管理.CheckBox35.Checked & "', CC36 = N'" & 系統使用者管理.CheckBox36.Checked & "', 
                                             CC37 = N'" & 系統使用者管理.CheckBox37.Checked & "', CC38 = N'" & 系統使用者管理.CheckBox38.Checked & "', 
-                                            CC39 = N'" & 系統使用者管理.CheckBox39.Checked & "', CC40 = N'" & 系統使用者管理.CheckBox40.Checked & "'
+                                            CC39 = N'" & 系統使用者管理.CheckBox39.Checked & "', CC40 = N'" & 系統使用者管理.CheckBox40.Checked & "', 
+                                            CC41 = N'" & 系統使用者管理.CheckBox41.Checked & "', CC42 = N'" & 系統使用者管理.CheckBox42.Checked & "'
                 WHERE (帳號 = N'" & 系統使用者管理.帳號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
@@ -121,7 +125,15 @@
         ConnOpen() : SQL1 = "SELECT 資料庫, IP位置, 帳號, 密碼 FROM LOGDB" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_客戶資料表()
-        ConnOpen() : SQL1 = "SELECT  客戶, 資料庫, IP位置, 帳號, 密碼, 備份, 備份IP, 備份帳號, 密碼密碼 AS 備份密碼 FROM 客戶資料表 ORDER BY 資料庫" : CmdSet_For_DGV()
+        ConnOpen()
+        SQL1 = "SELECT     使用者權限管理表.備註 AS 客戶名稱, 使用者權限管理表.姓名 AS 客戶代號, 使用者權限管理表.帳號 AS 使用者帳號, 
+                           使用者權限管理表.到期日, 客戶資料表.客戶, 客戶資料表.資料庫, 客戶資料表.IP位置, 客戶資料表.帳號, 
+                           客戶資料表.密碼, 客戶資料表.備份, 客戶資料表.備份IP, 客戶資料表.備份帳號, 
+                           客戶資料表.密碼密碼 AS 備份密碼
+                FROM       客戶資料表 INNER JOIN
+                           使用者權限管理表 ON 客戶資料表.客戶 = 使用者權限管理表.主客戶
+                ORDER BY   客戶資料表.資料庫"
+        CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_系統編碼規則_客戶重複查詢()
         SQL1 = "SELECT 客戶 FROM 客戶資料表 WHERE 客戶 LIKE N'" & PA & "'"
@@ -178,7 +190,13 @@
     End Sub
     '------------------------------------資料庫轉換----------------------------------------------
     Friend Sub SQL_客戶資料庫()
-        ConnOpen() : SQL1 = "SELECT  客戶, 資料庫, IP位置, 帳號, 密碼, 備份, 備份IP, 備份帳號, 密碼密碼 AS 備份密碼 FROM 客戶資料表 WHERE 備份 = 1 ORDER BY 資料庫" : CmdSet_For_DGV()
+        ConnOpen()
+        SQL1 = "SELECT    客戶資料表.客戶, 客戶資料表.資料庫, 客戶資料表.IP位置, 客戶資料表.帳號, 客戶資料表.密碼, 客戶資料表.備份, 
+                          客戶資料表.備份IP, 客戶資料表.備份帳號, 客戶資料表.密碼密碼 AS 備份密碼, 使用者權限管理表.備註 AS 客名
+               FROM       客戶資料表 INNER JOIN
+                          使用者權限管理表 ON 客戶資料表.客戶 = 使用者權限管理表.主客戶
+               ORDER BY   客戶資料表.資料庫"
+        CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_資料庫轉換1()
         ConnOpen_備份1() : SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址 FROM 商品資料表" : CmdSet_For_DGV()
@@ -210,61 +228,242 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_資料庫轉換3()
-        ConnOpen_備份1() : SQL1 = "SELECT 客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層 FROM 下行客戶" : CmdSet_For_DGV()
+        ConnOpen_備份1() : SQL1 = "SELECT 客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層, 水差另算 FROM 下行客戶" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_資料庫轉換3_1()
-        ConnOpen_備份2() : SQL1 = "SELECT 客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層 FROM 下行客戶" : CmdSet_For_DGV()
+        ConnOpen_備份2() : SQL1 = "SELECT 客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層, 水差另算 FROM 下行客戶" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_資料庫轉換3_刪除()
         ConnOpen_備份2() : SQL1 = "DELETE FROM 下行客戶" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_資料庫轉換3_新增()
         ConnOpen_備份2()
-        SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層) 
-                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')"
+        SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層, 水差另算) 
+                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', 
+                        N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_資料庫轉換4()
         ConnOpen_備份1()
-        SQL1 = "SELECT [index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 
-                       上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 總監, 客戶s, 
-                       總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 
-                       下注明細s, 查看對帳s, 隨機碼
-                FROM   流水帳
+        SQL1 = "SELECT   [index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 
+                         上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 總監, 客戶s, 
+                         總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 
+                         下注明細s, 查看對帳s, 隨機碼
+                FROM     流水帳 
+                WHERE   (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')
                 ORDER BY 結束日期"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_資料庫轉換4_1()
         ConnOpen_備份2()
-        SQL1 = "SELECT [index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 
-                       上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 總監, 客戶s, 
-                       總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 
-                       下注明細s, 查看對帳s, 隨機碼
-                FROM   流水帳
+        SQL1 = "SELECT   [index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 
+                         上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 總監, 客戶s, 
+                         總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 
+                         下注明細s, 查看對帳s, 隨機碼
+                FROM     流水帳 
+                WHERE   (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')
                 ORDER BY 結束日期"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_資料庫轉換4_刪除()
-        SQL1 = "DELETE FROM 流水帳 
-                WHERE [index] LIKE N'" & PA & "' AND 開始日期 LIKE N'" & PA1 & "' AND 結束日期 LIKE N'" & PA2 & "' AND 
-                      網址 LIKE N'" & PA3 & "' AND 帳戶 LIKE N'" & PA4 & "' AND 隨機碼 LIKE N'" & PA5 & "'"
+        ConnOpen_備份1()
+        SQL1 = "DELETE FROM 流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料庫轉換5()
+        ConnOpen_備份1() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 電板客戶" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換5_1()
+        ConnOpen_備份2() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 電板客戶" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換5_刪除()
+        ConnOpen_備份2() : SQL1 = "DELETE FROM 電板客戶" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料庫轉換5_新增()
+        ConnOpen_備份2()
+        SQL1 = "INSERT INTO 電板客戶 ( 客戶, 付反, 收反, 所反, 水反, 紅反) 
+                VALUES (N'" & PA & "', N'" & BL1 & "', N'" & BL2 & "', N'" & BL3 & "', N'" & BL4 & "', N'" & BL5 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料庫轉換6()
+        ConnOpen_備份1() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換6_1()
+        ConnOpen_備份2() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換6_刪除()
+        ConnOpen_備份2() : SQL1 = "DELETE FROM 電板紙板" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料庫轉換6_新增()
+        ConnOpen_備份2()
+        SQL1 = "INSERT INTO 電板紙板 (客戶, 商品) VALUES (N'" & PA & "', N'" & PA1 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料庫轉換7()
+        ConnOpen_備份1() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換7_1()
+        ConnOpen_備份2() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換7_刪除()
+        ConnOpen_備份2() : SQL1 = "DELETE FROM 電板客戶_所得" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料庫轉換7_新增()
+        ConnOpen_備份2()
+        SQL1 = "INSERT INTO 電板客戶_所得 (所得戶) VALUES (N'" & PA & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_資料庫轉換4_新增()
+    Friend Sub SQL_資料庫轉換8()
+        ConnOpen_備份1() : SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換8_1()
+        ConnOpen_備份2() : SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換8_刪除()
+        ConnOpen_備份2() : SQL1 = "DELETE FROM 電板股東紅利設定" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料庫轉換8_新增()
         ConnOpen_備份2()
-        SQL1 = "INSERT INTO 流水帳 ([index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 
-                       上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 客戶s, 
-                       總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 
-                       下注明細s, 查看對帳s, 隨機碼, 總監) 
-                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', 
-                        N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', N'" & PA16 & "', 
-                        N'" & PA17 & "', N'" & PA18 & "', N'" & PA19 & "', N'" & PA20 & "', N'" & PA21 & "', N'" & PA22 & "', N'" & PA23 & "', N'" & PA24 & "', 
-                        N'" & PA25 & "', N'" & PA26 & "', N'" & PA27 & "', N'" & PA28 & "', N'" & PA29 & "', N'" & PA30 & "', N'" & PA31 & "', N'" & PA32 & "', 
-                        N'" & PA33 & "', N'" & PA34 & "', N'" & PA35 & "', N'" & PA36 & "', N'" & PA37 & "', N'" & PA38 & "', N'" & PA39 & "', N'" & PA40 & "', 
-                        N'" & PA41 & "', N'" & PA5 & "', N'" & PA42 & "')"
+        SQL1 = "INSERT INTO 電板股東紅利設定 (所得戶, 股東, 紅利) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_資料庫轉換9()
+        ConnOpen_備份1()
+        SQL1 = "SELECT 開始日期, 結束日期, 客戶, 商品, 交收金額 FROM 電板紙板流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "') ORDER BY 開始日期"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換9_1()
+        ConnOpen_備份2()
+        SQL1 = "SELECT 開始日期, 結束日期, 客戶, 商品, 交收金額 FROM 電板紙板流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "') ORDER BY 開始日期"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫轉換9_刪除()
+        ConnOpen_備份1()
+        SQL1 = "DELETE FROM 電板紙板流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_網址同步3_寫入()
+        ConnOpen_備份1() : SQL1 = "INSERT INTO 商品資料表 (商品, 編號, 系統, 層級, 網址) VALUES (N'" & PA1 & "', N'" & PA6 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_網址同步3()
+        ConnOpen_備份1() : SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址 FROM 商品資料表 ORDER BY 網址" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_長短版資料表_寫入()
+        ConnOpen_備份1() : SQL1 = "INSERT INTO 長短版資料表 (資料) VALUES (N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_自動導入判斷_寫入()
+        ConnOpen_備份1() : SQL1 = "INSERT INTO 自動導入判斷 (正在自動導入中) VALUES (N'NO')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_基數資料表_寫入()
+        ConnOpen_備份1() : SQL1 = "INSERT INTO 基數資料表 (基數) VALUES (N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_轉換連線用()
         ConnOpen() : SQL1 = "SELECT  客戶, 資料庫, IP位置, 帳號, 密碼, 備份, 備份IP, 備份帳號, 密碼密碼 AS 備份密碼 FROM 客戶資料表 WHERE 資料庫 LIKE N'" & 子SQL名稱 & "'" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_商品流水號查詢1()
+        ConnOpen_備份1() : SQL1 = "SELECT 編號 FROM 商品資料表 WHERE (系統 LIKE N'" & PA17 & "') ORDER BY 編號 DESC" : CmdSet_For_dr()
+    End Sub
+
+
+    '------------------------------------客戶租用資料----------------------------------------------
+    Friend Sub SQL_系統使用者()
+        ConnOpen()
+        SQL1 = "SELECT 備註 AS 項次, 備註 AS 租用者, 帳號, 到期日, CC20 AS 有USBKey FROM 使用者權限管理表 WHERE (主客戶 NOT LIKE 'NA') AND (主客戶 NOT LIKE 'TEST%') ORDER BY   主客戶"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_租用帳務()
+        ConnOpen()
+        SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') ORDER BY 帳號, 到期日 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_租用帳務新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 租用帳務表 (使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註) 
+                VALUES (N'" & 租用者帳務表.姓名_tb.Text & "', N'" & 租用者帳務表.帳號_tb.Text & "', N'" & 租用者帳務表.狀態_tb.Text & "', 
+                        N'" & 租用者帳務表.起始日_dtp.Text & "', N'" & 租用者帳務表.到期日_dtp.Text & "', N'" & 租用者帳務表.費用_nud.Value & "', N'" & 租用者帳務表.備註_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_租用帳務修改()
+        ConnOpen()
+        SQL1 = "UPDATE 租用帳務表 SET 狀態 = N'" & 租用者帳務表.狀態_tb.Text & "', 起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "', 到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "', 
+                                      費用 = N'" & 租用者帳務表.費用_nud.Value & "', 備註 =  N'" & 租用者帳務表.備註_tb.Text & "' 
+                WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND (起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "') AND (到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_租用帳務刪除()
+        ConnOpen()
+        SQL1 = "DELETE 租用帳務表 WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND (起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "') AND (到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+
+    '------------------------------------通統通用變數管理----------------------------------------------
+    Friend Sub SQL_伺服器IP取得()
+        ConnOpen() : SQL1 = "SELECT IP位置, 備份IP, 帳號, 密碼, 備份帳號, 密碼密碼 FROM 客戶資料表 GROUP BY IP位置, 備份IP, 帳號, 密碼, 備份帳號, 密碼密碼" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_資料庫狀態()
+        ConnOpen_備份1()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
+                        state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'
+                FROM    sys.master_files
+                WHERE  (DB_NAME(database_id) LIKE 'GA-%')
+                ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_備份資料庫狀態()
+        ConnOpen_備份2()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
+                        state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'
+                FROM    sys.master_files
+                WHERE  (DB_NAME(database_id) LIKE 'GA-%')
+                ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_主資料庫狀態()
+        ConnOpen()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
+                        state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'
+                FROM    sys.master_files
+                WHERE  (DB_NAME(database_id) LIKE 'GA-%')
+                ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_伺服器1清單()
+        ConnOpen()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE 'GA-%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_伺服器2清單()
+        ConnOpen_備份1()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE 'GA-%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_伺服器3清單()
+        ConnOpen_備份2()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE 'GA-%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_備份資料庫LOG檔案截斷()
+        ConnOpen_備份2() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
+        ConnOpen_備份2() : SQL1 = "ALTER DATABASE [" & PA & "]
+                                   SET RECOVERY SIMPLE;" : CmdSet_For_dr()
+        ConnOpen_備份2() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
+        ConnOpen_備份2() : SQL1 = "ALTER DATABASE [" & PA & "]
+                                   SET RECOVERY FULL;" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_計算資料庫LOG檔案截斷()
+        ConnOpen_備份1() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "ALTER DATABASE [" & PA & "]
+                                   SET RECOVERY SIMPLE;" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "ALTER DATABASE [" & PA & "]
+                                   SET RECOVERY FULL;" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_主資料庫LOG檔案截斷()
+        ConnOpen() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]
+                             SET RECOVERY SIMPLE;" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]
+                             SET RECOVERY FULL;" : CmdSet_For_dr()
+    End Sub
 End Module

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

@@ -1,31 +1,28 @@
 Module 全域變數
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public g_conn_type, gUserName As String
-    Public 登入人IP As String : Public 登入人IP2 As String : Public 登入人IP3 As String : Public 登入人IP4 As String : Public 登入人IP5 As String
-    Public 子SQL名稱 As String : Public 子SQL名稱1 As String : Public 子SQL名稱2 As String : Public 子SQL名稱3 As String
-    Public 業務帳號 As String : Public 業務密碼 As String : Public 業務帳號1 As String : Public 業務密碼1 As String
-    Public 業務帳號2 As String : Public 業務密碼2 As String : Public 業務帳號3 As String : Public 業務密碼3 As String
+    Public 登入人IP, 登入人IP2, 登入人IP3, 登入人IP4, 登入人IP5, 子SQL名稱, 子SQL名稱1, 子SQL名稱2, 子SQL名稱3, 業務帳號, 業務密碼, 業務帳號1, 業務密碼1 As String
+    Public 業務帳號2, 業務密碼2, 業務帳號3, 業務密碼3 As String
     '----系統設定-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
-    Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 登入客戶 As String : Public 登入資料庫 As String : Public 業務名稱 As String
-    Public QA1 As String : Public QA2 As String : Public QA3 As String : Public QA4 As String
+    Public 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 登入客戶, 登入資料庫, 業務名稱, AA(99), QA1, QA2, QA3, QA4 As String
+    Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021112301"
+    Public 版本 As String = "2021122001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 判斷重登, 內外網, 重登確認, 主頁開啟 As Boolean
-    Public timeExit, timeExit2, timeNow, timeNow2 As Integer : Public 密碼時限 As Integer = 30
+    Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入 As Boolean
+    Public timeExit, timeExit2, timeNow, timeNow2 As Integer : Public 密碼時限 As Integer = 30 : Public 剩餘天數 As Integer
     '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 設定異常表0, 設定異常表1, 設定異常表2 As String
-    Public 異常表0, 異常表1, 異常表2, 計算累加, NN1, NN2, NN3, NN4, NN5, NN6, NN7, NN8 As Integer
+    Public 設定異常表0, 設定異常表1, 設定異常表2, 進度條後墜 As String
+    Public 異常表0, 異常表1, 異常表2, 計算累加, 分母, NN1, NN2, NN3, NN4, NN5, NN6, NN7, NN8, NN9 As Integer
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21 As String
     Public PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41 As String
     Public PA42, PA43, PA44 As String
     Public PB1(300), PB2(300), PB3(300), PB4(300), PB5(300) As String
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public NU1, NU2, NU3, NU4, NU5 As Double
+    Public NU1, NU2, NU3, NU4, NU5, 分段1, 分段2, 分段3, 分段4 As Double
     '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public BL1, BL2, BL3, BL4, BL5, BL6, 是否新增, 是否運行, 是否PDF As Boolean
+    Public BL1, BL2, BL3, BL4, BL5, BL6, 是否新增, 是否運行, 是否PDF, 從彙總開, 紅利修改 As Boolean
     '----介面開啟判斷-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 客戶資料強制對話框模式 As Boolean
     '----進度條計算式-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

@@ -1 +1 @@
-17247b448e60d93cd49c276e7af6ca488f475686
+e0fc12924840dd9f31510b0cce98d6543f2ced11

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

@@ -137,7 +137,6 @@ D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.Resources.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.SplashScreen1.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.USB_KEY_指定.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.商客資料導入.resources
-D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.基本資料.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳手動輸入.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳自動導入.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.FTP資料夾管理.resources
@@ -167,3 +166,8 @@ D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽1.reso
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.列印選擇.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.ResolveComReference.cache
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統公告.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.租用者帳務表.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板股東紅利設定.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板客戶名稱編輯器.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板基本資料.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統通用變數管理.resources

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

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 基本資料
+Partial Class 電板基本資料
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -1658,7 +1658,7 @@ Partial Class 基本資料
         Me.刪除無客戶_bt.Text = "刪除無客戶帳號的資料"
         Me.刪除無客戶_bt.UseVisualStyleBackColor = True
         '
-        '基本資料
+        '電板基本資料
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -1687,9 +1687,9 @@ Partial Class 基本資料
         Me.Controls.Add(Me.清除搜索1_bt)
         Me.Controls.Add(Me.PictureBox1)
         Me.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Name = "基本資料"
+        Me.Name = "電板基本資料"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "基本資料"
+        Me.Text = "電板基本資料"
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)
@@ -1726,7 +1726,6 @@ Partial Class 基本資料
     Friend WithEvents 客戶下新增_bt As Button
     Friend WithEvents 客戶下_dgv As DataGridView
     Friend WithEvents GroupBox7 As GroupBox
-    Friend WithEvents 商客_dgv As DataGridView
     Friend WithEvents Label12 As Label
     Friend WithEvents Label11 As Label
     Friend WithEvents Label10 As Label
@@ -1841,4 +1840,5 @@ Partial Class 基本資料
     Friend WithEvents 客戶名稱_cb As ComboBox
     Friend WithEvents 上繳源_cb As ComboBox
     Friend WithEvents 刪除無客戶_bt As Button
+    Friend WithEvents 商客_dgv As DataGridView
 End Class

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

@@ -1,6 +1,6 @@
 Option Strict Off
 Imports System.IO
-Public Class 基本資料
+Public Class 電板基本資料
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6 As New DataSet : Dim GP As Integer = 0 : Dim GPP As String
     Dim 批次, 批次1 As Integer : ReadOnly 連線(299) As String
     Private Sub Set_商品清單()
@@ -294,10 +294,10 @@ Public Class 基本資料
     Private Sub 客戶下新增_bt_Click(sender As Object, e As EventArgs) Handles 客戶下新增_bt.Click
         客戶下新增_bt.Enabled = False : 客戶下_tb.Enabled = True : 客戶名稱_cb.Enabled = True : 所得指定_cb.Enabled = True : 水差_cb.Enabled = True
         客戶下_tb.Text = "" : 客戶名稱_cb.Text = "" : 參與計算_ch.Checked = True : 上下同帳_ch.Checked = False : 所得計算_ch.Checked = True
-        下層帳號_ch.Enabled = True
+        下層帳號_ch.Enabled = True : 客戶下_dgv.Enabled = False
     End Sub
     Private Sub 客戶下修正_bt_Click(sender As Object, e As EventArgs) Handles 客戶下修正_bt.Click
-        客戶下修正_bt.Enabled = False : 客戶下_tb.Enabled = True : 客戶名稱_cb.Enabled = True : 所得指定_cb.Enabled = True : 水差_cb.Enabled = True
+        客戶下修正_bt.Enabled = False : 客戶下_tb.Enabled = True : 客戶名稱_cb.Enabled = True : 所得指定_cb.Enabled = True : 水差_cb.Enabled = True : 客戶下_dgv.Enabled = False
     End Sub
     Private Sub 存檔2_bt_Click(sender As Object, e As EventArgs) Handles 存檔2_bt.Click
         If 客戶下新增_bt.Enabled = False Then
@@ -319,7 +319,7 @@ Public Class 基本資料
                     ElseIf GP > 999999 Then : GPP = "GA" & GP : End If : PA10 = GPP
 
                     SQL_系統編碼規則_客戶下新增() : MsgBox("新增完成") : conn.Close() : dr.Close()
-                    客戶下新增_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_cb.Enabled = False : 所得指定_cb.Enabled = False : 水差_cb.Enabled = False
+                    客戶下新增_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_cb.Enabled = False : 所得指定_cb.Enabled = False : 水差_cb.Enabled = False : 客戶下_dgv.Enabled = True
                 End If
             End If : PA = "" : Set_客戶下清單()
         ElseIf 客戶下修正_bt.Enabled = False Then
@@ -330,7 +330,7 @@ Public Class 基本資料
                 PA6 = 流水號_tb.Text : BL1 = 參與計算_ch.Checked : BL2 = 上下同帳_ch.Checked : BL3 = 所得計算_ch.Checked : BL4 = 下層帳號_ch.Checked
                 PA7 = 水差_cb.Text
                 SQL_系統編碼規則_客戶下修改() : MsgBox("修改完成") : conn.Close() : dr.Close()
-                客戶下修正_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_cb.Enabled = False : 所得指定_cb.Enabled = False : 水差_cb.Enabled = False
+                客戶下修正_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_cb.Enabled = False : 所得指定_cb.Enabled = False : 水差_cb.Enabled = False : 客戶下_dgv.Enabled = True
             End If : PA = "" : Set_客戶下清單()
         End If
         PA1 = 客戶名稱_cb.Text : PA2 = 所得指定_cb.Text : PA3 = 水差_cb.Text
@@ -342,7 +342,7 @@ Public Class 基本資料
     Private Sub 取消2_bt_Click(sender As Object, e As EventArgs) Handles 取消2_bt.Click
         客戶下修正_bt.Enabled = True : 客戶下新增_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_cb.Enabled = False
         參與計算_ch.Checked = False : 上下同帳_ch.Checked = False : 所得計算_ch.Checked = False : 所得指定_cb.Enabled = False
-        下層帳號_ch.Enabled = False : 水差_cb.Enabled = False
+        下層帳號_ch.Enabled = False : 水差_cb.Enabled = False : 客戶下_dgv.Enabled = True
     End Sub
     Private Sub 客戶下刪除_bt_Click(sender As Object, e As EventArgs) Handles 客戶下刪除_bt.Click
         Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
@@ -391,7 +391,7 @@ Public Class 基本資料
         If 商客修正_bt.Enabled = False Then
             MsgBox("修正中，無法新增!!!")
         Else
-            商客新增_bt.Enabled = False : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True : 上繳源_cb.Enabled = True
+            商客新增_bt.Enabled = False : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True : 上繳源_cb.Enabled = True : 商客_dgv.Enabled = False
             帳號_tb.Text = "" : 密碼_tb.Text = "" : 上繳源_cb.Text = ""
         End If
     End Sub
@@ -402,7 +402,7 @@ Public Class 基本資料
             If 網址_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Or 上行_cb.Text = "" Or 下行_cb.Text = "" Then
                 MsgBox("資料有缺或有誤，請重新檢查")
             Else
-                商客修正_bt.Enabled = False : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True : 上繳源_cb.Enabled = True
+                商客修正_bt.Enabled = False : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True : 上繳源_cb.Enabled = True : 商客_dgv.Enabled = False
             End If
         End If
     End Sub
@@ -420,7 +420,7 @@ Public Class 基本資料
                     Else
                         PA1 = 網址_tb.Text : PA2 = 帳號_tb.Text : PA3 = 密碼_tb.Text : PA4 = 資料_cb.Text : PA5 = 上繳源_cb.Text : PA6 = 商品_cb.Text : PA7 = 上行_cb.Text : PA8 = 下行_cb.Text
                         SQL_系統編碼規則_商客新增() : MsgBox("新增完成") : conn.Close() : dr.Close()
-                        商客新增_bt.Enabled = True : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_cb.Enabled = False
+                        商客新增_bt.Enabled = True : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_cb.Enabled = False : 商客_dgv.Enabled = True
                         PA1 = "" : PA = "" : Set_商客清單() : Set_客戶下清單() : Set_商品下拉讀取1()
                     End If
                 End If
@@ -428,7 +428,7 @@ Public Class 基本資料
                 PA2 = 網址_tb.Text : PA3 = 上繳源_cb.Text : PA4 = 帳號_tb.Text : PA5 = 密碼_tb.Text : PA6 = 上行_cb.Text
                 PA7 = 下行_cb.Text : PA8 = 資料_cb.Text : PA9 = 商品_cb.Text : PA10 = 帳號1_tb.Text : PA11 = 網址1_tb.Text
                 SQL_系統編碼規則_商客修改() : MsgBox("修改完成") : conn.Close() : dr.Close() : PA9 = ""
-                商客修正_bt.Enabled = True : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_cb.Enabled = False
+                商客修正_bt.Enabled = True : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_cb.Enabled = False : 商客_dgv.Enabled = True
                 PA1 = "" : PA = "" : Set_商客清單() : Set_客戶下清單() : Set_商品下拉讀取1()
             Else
                 MsgBox("請先確定您要新增還是修改，再來按儲存!!!!")
@@ -439,7 +439,7 @@ Public Class 基本資料
         客戶名稱_cb.Text = PA1
     End Sub
     Private Sub 取消1_bt_Click(sender As Object, e As EventArgs) Handles 取消1_bt.Click
-        商客新增_bt.Enabled = True : 商客修正_bt.Enabled = True : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_cb.Enabled = False
+        商客新增_bt.Enabled = True : 商客修正_bt.Enabled = True : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_cb.Enabled = False : 商客_dgv.Enabled = True
     End Sub
     Private Sub 商客刪除_bt_Click(sender As Object, e As EventArgs) Handles 商客刪除_bt.Click
         If 狀態1_tb.Text <> "" Then
@@ -519,7 +519,7 @@ Public Class 基本資料
             ElseIf GP > 9 And GP < 100 Then : GPP = DD & "0" & GP
             ElseIf GP > 99 Then : GPP = DD & GP : End If : 編號_tb.Text = GPP
             新增1_bt.Enabled = False : 商品_tb.Enabled = True : 網址2_tb.Enabled = True : 編號_tb.Enabled = True
-            商品_tb.Text = "" : 網址2_tb.Text = ""
+            商品_tb.Text = "" : 網址2_tb.Text = "" : 商品_dgv.Enabled = False
         End If
     End Sub
     Private Sub 修正1_bt_Click(sender As Object, e As EventArgs) Handles 修正1_bt.Click
@@ -529,7 +529,7 @@ Public Class 基本資料
             If 商品_tb.Text = "" Or 編號_tb.Text = "" Then
                 MsgBox("請先選擇要修改的資料，請重新確認!!!")
             Else
-                修正1_bt.Enabled = False : 商品_tb.Enabled = True : 網址2_tb.Enabled = True : 編號_tb.Enabled = False
+                修正1_bt.Enabled = False : 商品_tb.Enabled = True : 網址2_tb.Enabled = True : 編號_tb.Enabled = False : 商品_dgv.Enabled = False
             End If
         End If
     End Sub
@@ -547,20 +547,20 @@ Public Class 基本資料
                         MsgBox("網址不可重複，請重新確認!!!")
                     Else
                         SQL_商品寫入() : PA1 = "" : PA = "" : Set_商品清單() : Set_商品下拉讀取() : Set_客戶下清單() : MsgBox("新增完成!!")
-                        新增1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False
+                        新增1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 商品_dgv.Enabled = True
                     End If
                 End If
             End If
         ElseIf 修正1_bt.Enabled = False Then
             SQL_商品修改() : SQL_同步修正網址1() : SQL_同步修正網址2() : SQL_同步修正網址3() : SQL_同步修正網址4()
             PA1 = "" : PA = "" : Set_商品清單() : Set_商品下拉讀取() : Set_客戶下清單() : Set_商客清單() : MsgBox("儲存完成!!")
-            修正1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False
+            修正1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 商品_dgv.Enabled = True
         Else
             MsgBox("請先確定您要新增還是修改，再來按儲存!!!!")
         End If
     End Sub
     Private Sub 取消_bt_Click(sender As Object, e As EventArgs) Handles 取消_bt.Click
-        修正1_bt.Enabled = True : 新增1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False
+        修正1_bt.Enabled = True : 新增1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 商品_dgv.Enabled = True
     End Sub
     Private Sub 刪除1_bt_Click(sender As Object, e As EventArgs) Handles 刪除1_bt.Click
         If 狀態_tb.Text <> "" Then

GA-ERP-SYS/基本資料管理/電板客戶名稱編輯器.Designer.vb

@@ -0,0 +1,166 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 電板客戶名稱編輯器
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.客戶1_tb = New System.Windows.Forms.TextBox()
+        Me.客戶_tb = New System.Windows.Forms.TextBox()
+        Me.L5 = New System.Windows.Forms.Label()
+        Me.電板客戶_dgv = New System.Windows.Forms.DataGridView()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Location = New System.Drawing.Point(5, 53)
+        Me.存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(236, 25)
+        Me.存檔_bt.TabIndex = 1653
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '客戶1_tb
+        '
+        Me.客戶1_tb.ForeColor = System.Drawing.Color.Black
+        Me.客戶1_tb.Location = New System.Drawing.Point(104, 27)
+        Me.客戶1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.客戶1_tb.Name = "客戶1_tb"
+        Me.客戶1_tb.Size = New System.Drawing.Size(137, 23)
+        Me.客戶1_tb.TabIndex = 1651
+        '
+        '客戶_tb
+        '
+        Me.客戶_tb.Enabled = False
+        Me.客戶_tb.ForeColor = System.Drawing.Color.Black
+        Me.客戶_tb.Location = New System.Drawing.Point(104, 3)
+        Me.客戶_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.客戶_tb.Name = "客戶_tb"
+        Me.客戶_tb.Size = New System.Drawing.Size(137, 23)
+        Me.客戶_tb.TabIndex = 1647
+        '
+        'L5
+        '
+        Me.L5.AutoSize = True
+        Me.L5.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.L5.ForeColor = System.Drawing.Color.Black
+        Me.L5.Location = New System.Drawing.Point(8, 6)
+        Me.L5.Name = "L5"
+        Me.L5.Size = New System.Drawing.Size(94, 17)
+        Me.L5.TabIndex = 1648
+        Me.L5.Text = "1、舊客戶名稱"
+        '
+        '電板客戶_dgv
+        '
+        Me.電板客戶_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板客戶_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板客戶_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.電板客戶_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板客戶_dgv.Location = New System.Drawing.Point(5, 80)
+        Me.電板客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板客戶_dgv.Name = "電板客戶_dgv"
+        Me.電板客戶_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.電板客戶_dgv.RowTemplate.Height = 24
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(236, 335)
+        Me.電板客戶_dgv.TabIndex = 1645
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(-616, 150)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(38, 23)
+        Me.字體_NUD.TabIndex = 1649
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(-674, 153)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
+        Me.字體大小調整_lb.TabIndex = 1650
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label2.ForeColor = System.Drawing.Color.Black
+        Me.Label2.Location = New System.Drawing.Point(8, 30)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(94, 17)
+        Me.Label2.TabIndex = 1657
+        Me.Label2.Text = "2、新客戶名稱"
+        '
+        '電板客戶名稱編輯器
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(245, 419)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.客戶1_tb)
+        Me.Controls.Add(Me.客戶_tb)
+        Me.Controls.Add(Me.L5)
+        Me.Controls.Add(Me.電板客戶_dgv)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "電板客戶名稱編輯器"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "電板客戶名稱編輯器"
+        CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 客戶1_tb As TextBox
+    Friend WithEvents 客戶_tb As TextBox
+    Friend WithEvents L5 As Label
+    Friend WithEvents 電板客戶_dgv As DataGridView
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents Label2 As Label
+End Class

GA-ERP-SYS/基本資料管理/電板客戶名稱編輯器.resx

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

GA-ERP-SYS/基本資料管理/電板客戶名稱編輯器.vb

@@ -0,0 +1,40 @@
+Public Class 電板客戶名稱編輯器
+    Private Sub Set_電板客戶()
+        Dim ds3 As New DataSet
+        電板客戶_dgv.DataSource = Nothing : ds3.Clear()
+        電板客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板客戶_dgv.ColumnHeadersHeight = 25
+        電板客戶_dgv.AllowUserToAddRows = False
+
+        SQL_電板客戶查詢1()
+        da.Fill(ds3) : 電板客戶_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        電板客戶_dgv.Columns(0).FillWeight = 40
+        For I As Integer = 0 To 電板客戶_dgv.Rows.Count - 1 : 電板客戶_dgv("項次", I).Value = I + 1 : Next
+    End Sub
+    Private Sub 電板客戶名稱編輯器_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    End Sub
+    Private Sub 電板客戶名稱編輯器_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Set_電板客戶()
+        電板客戶_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+    End Sub
+    Private Sub 電板客戶_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 電板客戶_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            客戶_tb.Text = 電板客戶_dgv("客戶", e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        If 客戶_tb.Text = "" Or 客戶1_tb.Text = "" Then
+            MsgBox("資料不完全!!!")
+        Else
+            Dim aa As MsgBoxResult = MsgBox("確定要修改該筆資料?", MsgBoxStyle.OkCancel)
+            If aa = MsgBoxResult.Ok Then
+                SQL_電板客戶查詢2()
+                If dr.Read() Then
+                    MsgBox("資料已經存在，如果一定要使用這個名稱請聯繫客服人員，協助更改!!!")
+                Else
+                    SQL_電板客戶全系統修改() : MsgBox("存檔完成!!!") : Set_電板客戶()
+                End If
+            End If
+        End If
+    End Sub
+End Class

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

@@ -10,7 +10,7 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 帳務彙總計算表
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds6, ds7, ds10, ds15, ds16, ds17, ds18 As New DataSet
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds10, ds15, ds16, ds17, ds18 As New DataSet
     Dim GP As Integer = 0 : Dim NH1, NN1, NN2, 批次, 選擇記憶 As Integer
     Dim GPP As String : Dim 本周周一 As Date
     Dim 暫不計算, 是否明細, 是否子明細, 上繳反轉 As Boolean
@@ -78,8 +78,7 @@ Public Class 帳務彙總計算表
         客戶下_dgv.ColumnHeadersHeight = 25
         客戶下_dgv.AllowUserToAddRows = False
         SQL_客戶下資料表()
-        If 本機資料 = False Then : da.Fill(ds4) : 客戶下_dgv.DataSource = ds4.Tables(0) : conn.Close()
-        Else : Acda.Fill(ds4) : 客戶下_dgv.DataSource = ds4.Tables(0) : Access1.Close() : End If
+        da.Fill(ds4) : 客戶下_dgv.DataSource = ds4.Tables(0) : conn.Close()
 
         客戶下_dgv.Columns(0).FillWeight = 80 : 客戶下_dgv.Columns(1).FillWeight = 200 : 客戶下_dgv.Columns(2).FillWeight = 80 : 客戶下_dgv.Columns("流水號").Visible = False
         客戶下_dgv.Columns(4).FillWeight = 35 : 客戶下_dgv.Columns(5).FillWeight = 35 : 客戶下_dgv.Columns(6).FillWeight = 35 : 客戶下_dgv.Columns(7).FillWeight = 35
@@ -90,6 +89,34 @@ Public Class 帳務彙總計算表
             If IsDBNull(客戶下_dgv("所得", i).Value) = True Then : 客戶下_dgv("所得", i).Value = False : End If
             If IsDBNull(客戶下_dgv("下層", i).Value) = True Then : 客戶下_dgv("下層", i).Value = False : End If
         Next
+        '-------------------股東紅利設定讀取-----------------------------------------------------------------------------------------------------------------------------------
+        紅利總表_dgv.DataSource = Nothing : ds5.Clear()
+        紅利總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        紅利總表_dgv.ColumnHeadersHeight = 25
+        紅利總表_dgv.AllowUserToAddRows = False
+        SQL_股東紅利彙總表()
+        da.Fill(ds5) : 紅利總表_dgv.DataSource = ds5.Tables(0) : conn.Close()
+        紅利總表_dgv.Columns("總股").DefaultCellStyle.Format = "#,##0"
+        紅利總表_dgv.Columns("總所得").DefaultCellStyle.Format = "#,##0"
+        紅利總表_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        紅利總表_dgv.Columns("總股").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        紅利總表_dgv.Columns("總所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        For i As Integer = 0 To 紅利總表_dgv.Rows.Count - 1 : 紅利總表_dgv("總所得", i).Value = 0 : Next
+
+        紅利分表_dgv.DataSource = Nothing : ds8.Clear()
+        紅利分表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        紅利分表_dgv.ColumnHeadersHeight = 25
+        紅利分表_dgv.AllowUserToAddRows = False
+        SQL_股東紅利明細表()
+        da.Fill(ds8) : 紅利分表_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        紅利分表_dgv.Columns("總股份").DefaultCellStyle.Format = "#,##0"
+        紅利分表_dgv.Columns("股份").DefaultCellStyle.Format = "#,##0"
+        紅利分表_dgv.Columns("紅利").DefaultCellStyle.Format = "#,##0"
+        紅利分表_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        紅利分表_dgv.Columns("總股份").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        紅利分表_dgv.Columns("股份").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        紅利分表_dgv.Columns("紅利").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        For i As Integer = 0 To 紅利分表_dgv.Rows.Count - 1 : 紅利分表_dgv("紅利", i).Value = 0 : Next
     End Sub
     Private Sub Set_流水帳清單1()
         Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名()
@@ -116,7 +143,7 @@ Public Class 帳務彙總計算表
         流水帳_dgv.Columns("水差2").Visible = False : 流水帳_dgv.Columns("天帳").Visible = False : 流水帳_dgv.Columns("地帳").Visible = False
         流水帳_dgv.Columns("水差").Visible = False : 流水帳_dgv.Columns("個人所得").Visible = False : 流水帳_dgv.Columns("天帳1").Visible = False
         流水帳_dgv.Columns("地帳1").Visible = False : 流水帳_dgv.Columns("按鈕").Visible = False : 流水帳_dgv.Columns("核帳").FillWeight = 50
-
+        流水帳_dgv.Columns("index").Visible = False
         流水帳_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -147,21 +174,26 @@ Public Class 帳務彙總計算表
         MsgBox("讀取完成!!!")
     End Sub
     Private Sub 手帳計算()
-        Dim HNK1 As Integer = 0
+        Dim HNK1, HNK2 As Integer
         For i As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
             If IsNumeric(紙帳非前期_dgv("交收金額", i).Value) = False Then : 紙帳非前期_dgv("交收金額", i).Value = 0 : End If
             HNK1 = HNK1 + 紙帳非前期_dgv("交收金額", i).Value
         Next
+
+        For i As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
+            HNK2 = HNK2 + Val(紅利整合_dgv("紅利", i).Value)
+        Next
         合帳_dgv("前期", 選擇記憶).Value = 紙帳前期_dgv("交收金額", 0).Value
         合帳_dgv("紙帳", 選擇記憶).Value = HNK1
         合帳_dgv.Rows(選擇記憶).Cells("交收合計").Value = Val(合帳_dgv("前期", 選擇記憶).Value) + Val(合帳_dgv("紙帳", 選擇記憶).Value) + Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) +
                                                           Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) + Val(合帳_dgv.Rows(選擇記憶).Cells("個人所得1").Value) -
                                                           Val(合帳_dgv.Rows(選擇記憶).Cells("水差1").Value)
         合帳_dgv.Rows(選擇記憶).Cells("交收合計1").Value = 合帳_dgv.Rows(選擇記憶).Cells("交收合計").Value
-        核帳_tb.Text = 紙帳前期_dgv("交收金額", 0).Value + HNK1 + Val(天帳2_tb.Text) + Val(地帳2_tb.Text) + Val(所得2_tb.Text) - Val(水差2_tb.Text)
+        核帳_tb.Text = 紙帳前期_dgv("交收金額", 0).Value + HNK1 + HNK2 + Val(天帳2_tb.Text) + Val(地帳2_tb.Text) + Val(所得2_tb.Text) - Val(水差2_tb.Text)
+        If Val(核帳_tb.Text) >= 0 Then : 核帳_tb.ForeColor = Color.Blue : Else : 核帳_tb.ForeColor = Color.Red : End If
         核帳_tb.Text = Strings.Format(Val(核帳_tb.Text), "#,##0")
-        核帳1_tb.Text = "0"
 
+        核帳1_tb.Text = "0"
         For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
             核帳1_tb.Text = Val(核帳1_tb.Text) + Val(合帳_dgv.Rows(I).Cells("交收合計1").Value)
         Next
@@ -172,7 +204,7 @@ Public Class 帳務彙總計算表
         合帳_dgv.Rows(選擇記憶).Cells("交收合計").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("交收合計").Value), "#,##0")
     End Sub
     Private Sub 紙帳計算()
-        Set_上繳合帳() : Set_下收合帳() : Set_所得合帳() : Set_水差合帳() : Set_合帳() : Set_上期未收() : Set_手工紙帳()
+        Set_上繳合帳() : Set_下收合帳() : Set_所得合帳() : Set_水差合帳() : Set_紅利整合() : Set_合帳() : Set_上期未收() : Set_手工紙帳()
     End Sub
     Private Sub 計算()
         資料數 = 流水帳_dgv.Rows.Count
@@ -226,6 +258,40 @@ Public Class 帳務彙總計算表
                     流水帳_dgv.Rows(i).Cells("下層").Value = True
                 End If
             Next
+
+            '------------流水帳聯繫修正---------------------------------------------------------------------------------------------------------------------------------------
+            If IsDBNull(流水帳_dgv("查看對帳s", i).Value) = True Or IsDBNull(流水帳_dgv("下注明細s", i).Value) = True Or IsDBNull(流水帳_dgv("下注明細", i).Value) = True Then
+                PA38 = 流水帳_dgv("客名", i).Value : PA37 = 流水帳_dgv("index", i).Value : PA36 = 流水帳_dgv("開始日期", i).Value
+                PA35 = 流水帳_dgv("結束日期", i).Value : PA34 = 流水帳_dgv("網址", i).Value : PA33 = 流水帳_dgv("帳戶", i).Value
+                PA32 = 流水帳_dgv("所得指定", i).Value
+                If 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = False And 流水帳_dgv("所得", i).Value = True Then
+                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
+                ElseIf 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = True And 流水帳_dgv("所得", i).Value = True Then
+                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
+                Else : PA31 = "" : 流水帳_dgv("下注明細", i).Value = "" : End If
+                SQL_帳務明細查詢表客戶寫入()
+                流水帳_dgv("下注明細s", i).Value = 流水帳_dgv("所得指定", i).Value.ToString
+                流水帳_dgv("查看對帳s", i).Value = 流水帳_dgv("客名", i).Value.ToString
+
+            ElseIf 流水帳_dgv("查看對帳s", i).Value = "查看" Or 流水帳_dgv("查看對帳s", i).Value = "" Or 流水帳_dgv("下注明細s", i).Value = "查看" Or
+                       流水帳_dgv("下注明細s", i).Value = "" Or
+                       流水帳_dgv("下注明細s", i).Value.ToString.ToLower() <> 流水帳_dgv("所得指定", i).Value.ToString.ToLower() Or
+                       流水帳_dgv("查看對帳s", i).Value.ToString.ToLower() <> 流水帳_dgv("客名", i).Value.ToString.ToLower() Or
+                       流水帳_dgv("下注明細", i).Value.ToString.ToLower() <> 流水帳_dgv("老闆", i).Value.ToString.ToLower() Then
+                PA38 = 流水帳_dgv("客名", i).Value : PA37 = 流水帳_dgv("index", i).Value : PA36 = 流水帳_dgv("開始日期", i).Value
+                PA35 = 流水帳_dgv("結束日期", i).Value : PA34 = 流水帳_dgv("網址", i).Value : PA33 = 流水帳_dgv("帳戶", i).Value
+                PA32 = 流水帳_dgv("所得指定", i).Value
+                If 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = False And 流水帳_dgv("所得", i).Value = True Then
+                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
+                ElseIf 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = True And 流水帳_dgv("所得", i).Value = True Then
+                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
+                ElseIf 流水帳_dgv("計算", i).Value = True And 流水帳_dgv("同帳", i).Value = True And 流水帳_dgv("所得", i).Value = True Then
+                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
+                Else : PA31 = "" : 流水帳_dgv("下注明細", i).Value = "" : End If
+                SQL_帳務明細查詢表客戶寫入()
+                流水帳_dgv("下注明細s", i).Value = 流水帳_dgv("所得指定", i).Value.ToString
+                流水帳_dgv("查看對帳s", i).Value = 流水帳_dgv("客名", i).Value.ToString
+            End If
         Next
         For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
             '------------短版轉換---------------------------------------------------------------------------------------------------------------------------------------
@@ -401,11 +467,13 @@ Public Class 帳務彙總計算表
             流水帳_dgv.Rows(i).Cells("核帳").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("核帳").Value), "#,##0")
             流水帳_dgv.Rows(i).Cells("所得另算").Value = 流水帳_dgv.Rows(i).Cells("個人所得1").Value
 
-            If 流水帳_dgv.Rows(i).Cells("客名").Value.ToString = "" And 流水帳_dgv.Rows(i).Cells("上層").Value = False Then
-                設定異常表2 = 設定異常表2 & vbCrLf &
-                              "商品 : [" & 流水帳_dgv.Rows(i).Cells("商品").Value.ToString & "] -- 帳戶 : [" & 流水帳_dgv.Rows(i).Cells("帳戶").Value.ToString & "] -- 客戶帳號 : [" &
-                              流水帳_dgv.Rows(i).Cells("客帳").Value.ToString & "]，沒有設定 [客戶名稱]。"
-                異常表2 += 1
+            If 流水帳_dgv.Rows(i).Cells("計算").Value = True Then
+                If 流水帳_dgv.Rows(i).Cells("客名").Value.ToString = "" And 流水帳_dgv.Rows(i).Cells("上層").Value = False Then
+                    設定異常表2 = 設定異常表2 & vbCrLf &
+                                  "商品 : [" & 流水帳_dgv.Rows(i).Cells("商品").Value.ToString & "] -- 帳戶 : [" & 流水帳_dgv.Rows(i).Cells("帳戶").Value.ToString & "] -- 客戶帳號 : [" &
+                                  流水帳_dgv.Rows(i).Cells("客帳").Value.ToString & "]，沒有設定 [客戶名稱]。"
+                    異常表2 += 1
+                End If
             End If
 
             For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1
@@ -429,13 +497,23 @@ Public Class 帳務彙總計算表
                 End If
                 所得名_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(所得名_dgv.Rows(II).Cells("交割金額").Value), "#,##0")
             Next
+            For II As Integer = 0 To 紅利總表_dgv.Rows.Count - 1
+                If 流水帳_dgv.Rows(i).Cells("所得指定").Value.ToString.ToLower() = 紅利總表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() Then
+                    紅利總表_dgv.Rows(II).Cells("總所得").Value = 紅利總表_dgv.Rows(II).Cells("總所得").Value + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString)
+                End If
+            Next
             For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
-                If 流水帳_dgv.Rows(i).Cells("下注明細").Value.ToString = 所得名1_dgv.Rows(II).Cells("所得").Value.ToString Then
+                If 流水帳_dgv.Rows(i).Cells("下注明細").Value.ToString.ToLower() = 所得名1_dgv.Rows(II).Cells("所得").Value.ToString.ToLower() Then
                     所得名1_dgv.Rows(II).Cells("交割金額.").Value = Val(所得名1_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString) * -1
                     所得名1_dgv.Rows(II).Cells("交割金額").Value = Val(所得名1_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString) * -1
                     所得名1_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(所得名1_dgv.Rows(II).Cells("交割金額").Value), "#,##0")
                 End If
             Next
+            For II As Integer = 0 To 紅利總表_dgv.Rows.Count - 1
+                If 流水帳_dgv.Rows(i).Cells("下注明細").Value.ToString.ToLower() = 紅利總表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() Then
+                    紅利總表_dgv.Rows(II).Cells("總所得").Value = 紅利總表_dgv.Rows(II).Cells("總所得").Value + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString) * -1
+                End If
+            Next
             For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                 If 流水帳_dgv.Rows(i).Cells("水差指定").Value.ToString.ToLower() = 水差名_dgv.Rows(II).Cells("水差").Value.ToString.ToLower() Then
                     水差名_dgv.Rows(II).Cells("交割金額.").Value = Val(水差名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString)
@@ -444,19 +522,24 @@ Public Class 帳務彙總計算表
                 End If
             Next
         Next
+        For i As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
+            For II As Integer = 0 To 紅利總表_dgv.Rows.Count - 1
+                If 紅利分表_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利總表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() Then
+                    紅利分表_dgv.Rows(i).Cells("總股份").Value = 紅利總表_dgv.Rows(II).Cells("總股").Value
+                    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利總表_dgv.Rows(II).Cells("總所得").Value
+                    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value / 紅利分表_dgv.Rows(i).Cells("總股份").Value)
+                End If
+            Next
+        Next
     End Sub
     '---------------合帳明細------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub Set_合帳()
-        '--------------------還需驗證------------------------------------------------------------------------------------------------
-        核帳_tb.Text = Val(天帳1_tb.Text) + Val(地帳1_tb.Text) + Val(所得1_tb.Text) - Val(水差1_tb.Text)
         If Val(天帳1_tb.Text) >= 0 Then : 天帳1_tb.ForeColor = Color.Blue : Else : 天帳1_tb.ForeColor = Color.Red : End If
         If Val(地帳1_tb.Text) >= 0 Then : 地帳1_tb.ForeColor = Color.Blue : Else : 地帳1_tb.ForeColor = Color.Red : End If
         If Val(所得1_tb.Text) >= 0 Then : 所得1_tb.ForeColor = Color.Blue : Else : 所得1_tb.ForeColor = Color.Red : End If
         If Val(水差1_tb.Text) >= 0 Then : 水差1_tb.ForeColor = Color.Blue : Else : 水差1_tb.ForeColor = Color.Red : End If
-        If Val(核帳_tb.Text) >= 0 Then : 核帳_tb.ForeColor = Color.Blue : Else : 核帳_tb.ForeColor = Color.Red : End If
         天帳1_tb.Text = Strings.Format(Val(天帳1_tb.Text), "#,##0") : 地帳1_tb.Text = Strings.Format(Val(地帳1_tb.Text), "#,##0")
         所得1_tb.Text = Strings.Format(Val(所得1_tb.Text), "#,##0") : 水差1_tb.Text = Strings.Format(Val(水差1_tb.Text), "#,##0")
-        核帳_tb.Text = Strings.Format(Val(核帳_tb.Text), "#,##0")
     End Sub
     Private Sub Set_手工紙帳()
         Dim ds3 As New DataSet
@@ -469,7 +552,7 @@ Public Class 帳務彙總計算表
         da.Fill(ds3) : 紙帳非前期_dgv.DataSource = ds3.Tables(0) : conn.Close()
         紙帳非前期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         紙帳非前期_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-        紙帳非前期_dgv.Columns(0).FillWeight = 70 : 紙帳非前期_dgv.Columns(0).ReadOnly = True
+        紙帳非前期_dgv.Columns(0).FillWeight = 100 : 紙帳非前期_dgv.Columns(0).ReadOnly = True
         紙帳非前期_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         紙帳非前期_dgv.Columns("交收金額").DefaultCellStyle.Format = "#,##0"
     End Sub
@@ -484,7 +567,7 @@ Public Class 帳務彙總計算表
         da.Fill(ds3) : 紙帳前期_dgv.DataSource = ds3.Tables(0) : conn.Close()
         紙帳前期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         紙帳前期_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-        紙帳前期_dgv.Columns(0).FillWeight = 70 : 紙帳前期_dgv.Columns(0).ReadOnly = True
+        紙帳前期_dgv.Columns(0).FillWeight = 100 : 紙帳前期_dgv.Columns(0).ReadOnly = True
         紙帳前期_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         紙帳前期_dgv.Columns("交收金額").DefaultCellStyle.Format = "#,##0"
     End Sub
@@ -852,6 +935,109 @@ Public Class 帳務彙總計算表
             水差合帳_dgv.Rows(i).Cells("水差.").Value = Strings.Format(Val(水差合帳_dgv.Rows(i).Cells("水差.").Value), "#,##0")
         Next
     End Sub
+    Private Sub Set_紅利支出()
+        Dim ds3 As New DataSet
+        紅利支出_dgv.DataSource = Nothing : ds3.Clear()
+        紅利支出_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        紅利支出_dgv.ColumnHeadersHeight = 25
+        紅利支出_dgv.AllowUserToAddRows = False
+
+        SQL_紅利支出()
+        da.Fill(ds3) : 紅利支出_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        紅利支出_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        紅利支出_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        紅利支出_dgv.Columns(0).Visible = False : 紅利支出_dgv.Columns(1).FillWeight = 60 : 紅利支出_dgv.Columns(2).FillWeight = 50
+        紅利支出_dgv.Columns(0).ReadOnly = True : 紅利支出_dgv.Columns(1).ReadOnly = True
+        紅利支出_dgv.Columns(2).ReadOnly = True : 紅利支出_dgv.Columns(3).ReadOnly = True
+        紅利支出_dgv.Columns("紅利").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        紅利支出_dgv.Columns("股份").DefaultCellStyle.Format = "#,##0"
+        紅利支出_dgv.Columns("紅利").DefaultCellStyle.Format = "#,##0"
+        For i As Integer = 0 To 紅利支出_dgv.Rows.Count - 1
+            紅利支出_dgv.Rows(i).Cells("紅利").Value = 0
+            For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
+                If 紅利支出_dgv.Rows(i).Cells("股東").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("股東").Value.ToString.ToLower() And
+                   紅利支出_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() And
+                   紅利支出_dgv.Rows(i).Cells("紅利").Value = 0 Then
+                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
+                        紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
+                    Else
+                        紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value
+                    End If
+                    If CC(42) = False Then : 紅利支出_dgv.Rows(i).Cells("紅利").Value = 0 : End If
+                End If
+            Next
+        Next
+    End Sub
+    Private Sub Set_紅利收入()
+        Dim ds3 As New DataSet
+        紅利收入_dgv.DataSource = Nothing : ds3.Clear()
+        紅利收入_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        紅利收入_dgv.ColumnHeadersHeight = 25
+        紅利收入_dgv.AllowUserToAddRows = False
+
+        SQL_紅利收入()
+        da.Fill(ds3) : 紅利收入_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        紅利收入_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        紅利收入_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        紅利收入_dgv.Columns(0).FillWeight = 60 : 紅利收入_dgv.Columns(1).Visible = False : 紅利收入_dgv.Columns(2).FillWeight = 50
+        紅利收入_dgv.Columns(0).ReadOnly = True : 紅利收入_dgv.Columns(1).ReadOnly = True
+        紅利收入_dgv.Columns(2).ReadOnly = True : 紅利收入_dgv.Columns(3).ReadOnly = True
+        紅利收入_dgv.Columns("紅利").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        紅利收入_dgv.Columns("股份").DefaultCellStyle.Format = "#,##0"
+        紅利收入_dgv.Columns("紅利").DefaultCellStyle.Format = "#,##0"
+        For i As Integer = 0 To 紅利收入_dgv.Rows.Count - 1
+            紅利收入_dgv.Rows(i).Cells("紅利").Value = 0
+            For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
+                If 紅利收入_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() And
+                   紅利收入_dgv.Rows(i).Cells("股東").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("股東").Value.ToString.ToLower() And
+                   紅利收入_dgv.Rows(i).Cells("紅利").Value = 0 Then
+                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
+                        紅利收入_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value
+                    Else
+                        紅利收入_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
+                    End If
+                    If CC(42) = False Then : 紅利收入_dgv.Rows(i).Cells("紅利").Value = 0 : End If
+                End If
+            Next
+        Next
+    End Sub
+    Private Sub Set_紅利整合()
+        Set_紅利支出() : Set_紅利收入()
+        Dim ds3 As New DataSet
+
+        Dim MN1 As Integer : Dim 商品(300), 紅利(300) As String
+        For I As Integer = 0 To 紅利支出_dgv.Rows.Count - 1
+            商品(MN1) = 紅利支出_dgv.Rows(I).Cells("股東").Value.ToString & "/所得拆帳" : 紅利(MN1) = 紅利支出_dgv.Rows(I).Cells("紅利").Value
+            MN1 += 1
+        Next
+        If MN1 > 0 Then : MN1 -= 1 : End If
+        For I As Integer = 0 To 紅利收入_dgv.Rows.Count - 1
+            If 紅利支出_dgv.Rows.Count > 0 Then : MN1 += 1 : End If
+            商品(MN1) = 紅利收入_dgv.Rows(I).Cells("所得戶").Value.ToString & "/股東紅利" : 紅利(MN1) = 紅利收入_dgv.Rows(I).Cells("紅利").Value
+            If 紅利支出_dgv.Rows.Count = 0 Then : MN1 += 1 : End If
+        Next
+
+        紅利整合_dgv.DataSource = Nothing : ds3.Clear()
+        紅利整合_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        紅利整合_dgv.ColumnHeadersHeight = 25
+        紅利整合_dgv.AllowUserToAddRows = False
+
+        NN9 = 紅利支出_dgv.Rows.Count + 紅利收入_dgv.Rows.Count : SQL_紅利整合()
+        da.Fill(ds3) : 紅利整合_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        紅利整合_dgv.Columns(0).FillWeight = 100 : 紅利整合_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        紅利整合_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        紅利整合_dgv.Columns(2).Visible = False : 紅利整合_dgv.Columns(0).ReadOnly = True : 紅利整合_dgv.Columns(1).ReadOnly = True
+        紅利整合_dgv.Columns("紅利收支").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        紅利整合_dgv.Columns("紅利").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        For i As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
+            If MN1 > 0 Then
+                紅利整合_dgv.Rows(i).Cells("所得/股東").Value = 商品(i) : 紅利整合_dgv.Rows(i).Cells("紅利收支").Value = 紅利(i)
+                紅利整合_dgv.Rows(i).Cells("紅利").Value = 紅利(i)
+                紅利整合_dgv.Rows(i).Cells("紅利收支").Value = Strings.Format(Val(紅利整合_dgv.Rows(i).Cells("紅利收支").Value), "#,##0")
+            End If
+        Next
+    End Sub
     Private Sub 帳戶帳務_bt_Click(sender As Object, e As EventArgs) Handles 帳戶帳務_bt.Click
         If 彙總_dgv.Visible = False Then : 彙總_dgv.Visible = True : 合帳_dgv.Visible = False : End If
         彙總_dgv.Columns("商品").FillWeight = 65 : 彙總_dgv.Columns("老闆").FillWeight = 65 : 彙總_dgv.Columns("帳號").FillWeight = 80
@@ -1058,6 +1244,23 @@ Public Class 帳務彙總計算表
         上繳合帳_dgv.Visible = True : 所得合帳_dgv.Visible = True : PictureBox1.Visible = True : PictureBox1.BringToFront() : Panel1.Visible = False
         L2.Visible = True : L3.Visible = True : L4.Visible = True : L5.Visible = True : 所得1_tb.Visible = True : 客戶_tb.Visible = True
         天帳1_tb.Visible = True : 地帳1_tb.Visible = True : 下收合帳_dgv.Visible = True : 水差合帳_dgv.Visible = True : 是否明細 = True : 是否子明細 = True
+        Label16.SendToBack() : Label4.SendToBack() : 紅利支出_dgv.Visible = False : 紅利收入_dgv.Visible = False : 紅利整合_dgv.Visible = True
+        所得合帳_dgv.Visible = False : 所得合帳1_dgv.Visible = False
+
+        If CC(39) = False Then
+            紙帳非前期_dgv.Enabled = False : 紙帳前期_dgv.Enabled = False : 手工帳務存檔_bt.Enabled = False : 通知_lb.Text = "前期與紙帳功能未開啟"
+        Else
+            紙帳非前期_dgv.Enabled = True : 紙帳前期_dgv.Enabled = True : 手工帳務存檔_bt.Enabled = True : 通知_lb.Text = "前期與紙帳功能已開啟"
+        End If
+        If CC(42) = False Then
+            股東紅利設定_bt.Enabled = False : 通知1_lb.Text = "所得股份自動分配功能未開啟"
+        Else
+            股東紅利設定_bt.Enabled = True : 通知1_lb.Text = "所得股份自動分配功能已開啟"
+        End If
+        If 無KEY登入 = True Then
+            商品彙總_bt.Enabled = False : 流水帳_bt.Enabled = False : 客戶資料_bt.Enabled = False : LOG檔_bt.Enabled = False : 進階控制_bt.Enabled = False
+            帳戶帳務_bt.Enabled = False : 帳戶狀態_bt.Enabled = False : 股東紅利設定_bt.Enabled = False : 手工帳務存檔_bt.Enabled = False : 正負調整存檔_bt.Enabled = False
+        End If
 
         結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
         Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)
@@ -1070,11 +1273,7 @@ Public Class 帳務彙總計算表
         End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = Today()
         本周周一 = 開始日期_dtp.Value
 
-        If CC(39) = False Then
-            紙帳非前期_dgv.Enabled = False : 紙帳前期_dgv.Enabled = False : 手工帳務存檔_bt.Enabled = False : 通知_lb.Text = "前期與紙帳功能未開啟"
-        Else
-            紙帳非前期_dgv.Enabled = True : 紙帳前期_dgv.Enabled = True : 手工帳務存檔_bt.Enabled = True : 通知_lb.Text = "前期與紙帳功能已開啟"
-        End If
+
 
         If GA_ERP_SYS.Size.Width > 1440 And GA_ERP_SYS.Size.Height > 900 Then
             字體_NUD.Value = 9
@@ -1110,24 +1309,18 @@ Public Class 帳務彙總計算表
         End If
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
-        彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        上繳合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        所得合帳2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        下收合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        水差合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        上繳名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        下收名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        所得名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        所得名1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        水差名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        流水帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        客戶下_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        LOG1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        LOG2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        彙總1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        紙帳前期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        紙帳非前期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        上繳合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 上繳名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        所得合帳2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        下收合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : LOG1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        水差合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        下收名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : LOG2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        所得名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 彙總1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        所得名1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 客戶下_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        紙帳前期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 流水帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        紙帳非前期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 水差名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        紅利總表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 紅利分表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        紅利支出_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 紅利收入_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        紅利整合_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub
     Private Sub 彙總_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 彙總_dgv.CellClick
         If e.RowIndex = -1 Then : Else
@@ -1192,6 +1385,11 @@ Public Class 帳務彙總計算表
             End If
         End If
     End Sub
+    Private Sub 紅利整合_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利整合_dgv.CellFormatting
+        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
+            e.CellStyle.ForeColor = Color.Red
+        End If
+    End Sub
     Private Sub 紙帳前期_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紙帳前期_dgv.CellFormatting
         If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
             e.CellStyle.ForeColor = Color.Red
@@ -1267,11 +1465,31 @@ Public Class 帳務彙總計算表
             e.CellStyle.ForeColor = Color.Red
         End If
     End Sub
+    Private Sub 紅利總表_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利總表_dgv.CellFormatting
+        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
+            e.CellStyle.ForeColor = Color.Red
+        End If
+    End Sub
     Private Sub 所得合帳_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 所得合帳_dgv.CellFormatting
         If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
             e.CellStyle.ForeColor = Color.Red
         End If
     End Sub
+    Private Sub 紅利分表_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利分表_dgv.CellFormatting
+        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
+            e.CellStyle.ForeColor = Color.Red
+        End If
+    End Sub
+    Private Sub 紅利支出_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利支出_dgv.CellFormatting
+        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
+            e.CellStyle.ForeColor = Color.Red
+        End If
+    End Sub
+    Private Sub 紅利收入_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利收入_dgv.CellFormatting
+        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
+            e.CellStyle.ForeColor = Color.Red
+        End If
+    End Sub
     Private Sub 紙帳前期_dgv_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles 紙帳前期_dgv.CellEndEdit
         手帳計算()
     End Sub
@@ -1768,6 +1986,10 @@ Public Class 帳務彙總計算表
                 If 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
                 ElseIf 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
                 End If
+            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 5 Then
+                If 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
+                ElseIf 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
+                End If
             End If
             選擇記憶 = 合帳_dgv.SelectedCells(0).RowIndex
 
@@ -1793,6 +2015,8 @@ Public Class 帳務彙總計算表
                     End If
                 End If
             Next
+            '----------------所得三重奏----------------------------------------------------------------------------------------------------------------------------------------------------------
+            合帳_dgv("個人所得", 選擇記憶).Value = "0" : 合帳_dgv("個人所得1", 選擇記憶).Value = "0"
             For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 所得名_dgv("所得", II).Value.ToString Then
                     If 合帳_dgv("所反", 選擇記憶).Value = False Then
@@ -1807,14 +2031,35 @@ Public Class 帳務彙總計算表
             For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 所得名1_dgv("所得", II).Value.ToString Then
                     If 合帳_dgv("所反", 選擇記憶).Value = False Then
-                        合帳_dgv("個人所得", 選擇記憶).Value = 所得名1_dgv("交割金額", II).Value.ToString
-                        合帳_dgv("個人所得1", 選擇記憶).Value = 所得名1_dgv("交割金額", II).Value.ToString
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 所得名1_dgv("交割金額", II).Value.ToString
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 所得名1_dgv("交割金額", II).Value.ToString
+                    Else
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("選擇記憶", 選擇記憶).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                    End If
+                End If
+            Next
+            For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
+                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
+                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                     Else
-                        合帳_dgv("個人所得", 選擇記憶).Value = Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
-                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                    End If
+                End If
+                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
+                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                    Else
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                     End If
                 End If
             Next
+
             For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
                     If 合帳_dgv("所反", 選擇記憶).Value = False Then
@@ -1843,6 +2088,13 @@ Public Class 帳務彙總計算表
                 上繳反轉 = False
             End If
             手工帳資料自動判斷() : 紙帳計算() : 手帳計算()
+
+            合帳_dgv.Rows(選擇記憶).Cells("前期").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("前期").Value), "#,##0")
+            合帳_dgv.Rows(選擇記憶).Cells("紙帳").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("紙帳").Value), "#,##0")
+            合帳_dgv.Rows(選擇記憶).Cells("應付").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("應付").Value), "#,##0")
+            合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value), "#,##0")
+            合帳_dgv.Rows(選擇記憶).Cells("個人所得").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("個人所得").Value), "#,##0")
+            合帳_dgv.Rows(選擇記憶).Cells("水差").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("水差").Value), "#,##0")
         End If
     End Sub
     Private Sub 合帳_bt_Click(sender As Object, e As EventArgs) Handles 合帳_bt.Click
@@ -1896,6 +2148,16 @@ Public Class 帳務彙總計算表
                     If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 水差名_dgv.Rows(I).Cells("水差").Value.ToString : End If
                 End If
             Next
+
+            MN2 = MN1
+            For I As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
+                For II As Integer = 0 To MN2 + 1
+                    不需加 = False : If 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = 暫存(II) Or 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = "" Then : 不需加 = True : Exit For : End If
+                Next
+                If 紅利分表_dgv.Rows(I).Cells("紅利").Value.ToString <> "0" Then
+                    If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString : End If
+                End If
+            Next
             NU1 = 合帳數 + 1
 
             Dim DS As New DataSet : 合帳_dgv.DataSource = Nothing : DS.Clear()
@@ -1914,10 +2176,9 @@ Public Class 帳務彙總計算表
             合帳_dgv.Columns("前期").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             合帳_dgv.Columns("應付1").Visible = False : 合帳_dgv.Columns("應收1").Visible = False : 合帳_dgv.Columns("交收合計1").Visible = False
             合帳_dgv.Columns("水差1").Visible = False : 合帳_dgv.Columns("個人所得1").Visible = False
-            合帳_dgv.Columns("客戶").FillWeight = 85 : 合帳_dgv.Columns("付反").FillWeight = 35
-            合帳_dgv.Columns("收反").FillWeight = 35 : 合帳_dgv.Columns("所反").FillWeight = 35
-            合帳_dgv.Columns("水反").FillWeight = 35 : 合帳_dgv.Columns("水差").FillWeight = 65
-            合帳_dgv.Columns("前期").FillWeight = 90 : 合帳_dgv.Columns("紙帳").FillWeight = 90
+            合帳_dgv.Columns("客戶").FillWeight = 85 : 合帳_dgv.Columns("付反").FillWeight = 35 : 合帳_dgv.Columns("收反").FillWeight = 35 : 合帳_dgv.Columns("所反").FillWeight = 35
+            合帳_dgv.Columns("水反").FillWeight = 35 : 合帳_dgv.Columns("水差").FillWeight = 65 : 合帳_dgv.Columns("前期").FillWeight = 90 : 合帳_dgv.Columns("紙帳").FillWeight = 90
+            合帳_dgv.Columns("紅反").FillWeight = 35
             合帳_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill : 核帳1_tb.Text = "0"
             For i As Integer = 0 To 15 : 合帳_dgv.Columns(i).ReadOnly = True : Next
 
@@ -1930,13 +2191,16 @@ Public Class 帳務彙總計算表
                 If IsDBNull(合帳_dgv("收反", i).Value) = True Then : 合帳_dgv("收反", i).Value = False : End If
                 If IsDBNull(合帳_dgv("所反", i).Value) = True Then : 合帳_dgv("所反", i).Value = False : End If
                 If IsDBNull(合帳_dgv("水反", i).Value) = True Then : 合帳_dgv("水反", i).Value = False : End If
+                If IsDBNull(合帳_dgv("紅反", i).Value) = True Then : 合帳_dgv("紅反", i).Value = False : End If
+                If 合帳_dgv("客戶", i).Value.ToString = "" Then : 合帳_dgv("客戶", i).Value = ".無資料" : End If
                 If 合帳_dgv.Rows(i).Cells("客戶").Value.ToString <> "" Then
                     For II As Integer = 0 To 電板客戶_dgv.Rows.Count - 1
                         If 合帳_dgv.Rows(i).Cells("客戶").Value.ToString = 電板客戶_dgv.Rows(II).Cells("客戶").Value.ToString Then
                             合帳_dgv("付反", i).Value = 電板客戶_dgv.Rows(II).Cells("付反").Value
                             合帳_dgv("收反", i).Value = 電板客戶_dgv.Rows(II).Cells("收反").Value
                             合帳_dgv("所反", i).Value = 電板客戶_dgv.Rows(II).Cells("所反").Value
-                            合帳_dgv("水反", i).Value = 電板客戶_dgv.Rows(II).Cells("水反").Value : Exit For
+                            合帳_dgv("水反", i).Value = 電板客戶_dgv.Rows(II).Cells("水反").Value
+                            合帳_dgv("紅反", i).Value = 電板客戶_dgv.Rows(II).Cells("紅反").Value : Exit For
                         End If
                     Next
                 End If
@@ -1960,24 +2224,51 @@ Public Class 帳務彙總計算表
                         End If
                     End If
                 Next
+                '----------------所得三重奏----------------------------------------------------------------------------------------------------------------------------------------------------------
+                合帳_dgv("個人所得", I).Value = "0" : 合帳_dgv("個人所得1", I).Value = "0"
                 For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
                     If 合帳_dgv("客戶", I).Value.ToString = 所得名_dgv("所得", II).Value.ToString Then
                         If 合帳_dgv("所反", I).Value = False Then
-                            合帳_dgv("個人所得", I).Value = 所得名_dgv("交割金額", II).Value.ToString : 合帳_dgv("個人所得1", I).Value = 所得名_dgv("交割金額", II).Value.ToString
+                            合帳_dgv("個人所得", I).Value = 所得名_dgv("交割金額", II).Value.ToString
+                            合帳_dgv("個人所得1", I).Value = 所得名_dgv("交割金額", II).Value.ToString
                         Else
-                            合帳_dgv("個人所得", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("個人所得1", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
+                            合帳_dgv("個人所得", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
+                            合帳_dgv("個人所得1", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
                         End If
                     End If
                 Next
                 For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
                     If 合帳_dgv("客戶", I).Value.ToString = 所得名1_dgv("所得", II).Value.ToString Then
                         If 合帳_dgv("所反", I).Value = False Then
-                            合帳_dgv("個人所得", I).Value = 所得名1_dgv("交割金額", II).Value.ToString : 合帳_dgv("個人所得1", I).Value = 所得名1_dgv("交割金額", II).Value.ToString
+                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 所得名1_dgv("交割金額", II).Value.ToString
+                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 所得名1_dgv("交割金額", II).Value.ToString
+                        Else
+                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                        End If
+                    End If
+                Next
+                For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
+                    If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
+                        If 合帳_dgv("紅反", I).Value = False Then
+                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                         Else
-                            合帳_dgv("個人所得", I).Value = Val(所得名1_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("個人所得1", I).Value = Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
+                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
+                        End If
+                    End If
+                    If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
+                        If 合帳_dgv("紅反", I).Value = False Then
+                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
+                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
+                        Else
+                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                         End If
                     End If
                 Next
+
                 For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                     If 合帳_dgv("客戶", I).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
                         If 合帳_dgv("所反", I).Value = False Then
@@ -2066,24 +2357,39 @@ Public Class 帳務彙總計算表
         SQL_紙帳流水查詢()
         da.Fill(DS3) : 紙帳流水1_dgv.DataSource = DS3.Tables(0) : conn.Close()
 
+        Dim DS4 As New DataSet : 電板所得_dgv.DataSource = Nothing : DS4.Clear()
+        電板所得_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板所得_dgv.ColumnHeadersHeight = 25
+        電板所得_dgv.AllowUserToAddRows = False
+        SQL_電板所得查詢()
+        da.Fill(DS4) : 電板所得_dgv.DataSource = DS4.Tables(0) : conn.Close()
+
         Dim 核對客戶 As Boolean
         For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
             If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString <> "" Then
+                '------------------------------電板客戶判斷新增-----------------------------------------------------------------------------------
                 核對客戶 = False
                 For II As Integer = 0 To 電板客戶_dgv.Rows.Count - 1
-                    If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString = 電板客戶_dgv.Rows(II).Cells("客戶").Value.ToString Then
-                        核對客戶 = True : Exit For
-                    End If
+                    If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString = 電板客戶_dgv.Rows(II).Cells("客戶").Value.ToString Then : 核對客戶 = True : Exit For : End If
                 Next
-                If 核對客戶 = False Then : PA43 = 合帳_dgv.Rows(I).Cells("客戶").Value.ToString : SQL_電板客戶新增() : End If
-
+                If 核對客戶 = False Then
+                    PA43 = 合帳_dgv.Rows(I).Cells("客戶").Value.ToString
+                    If PA43 = "" Or PA43 = ".無資料" Then : Else : SQL_電板客戶新增() : End If
+                End If
+                '------------------------------電板紙帳基礎設定判斷新增--------------------------------------------------------------------------
                 核對客戶 = False
                 For II As Integer = 0 To 電板紙帳1_dgv.Rows.Count - 1
-                    If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString = 電板紙帳1_dgv.Rows(II).Cells("客戶").Value.ToString Then
-                        核對客戶 = True : Exit For
-                    End If
+                    If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString = 電板紙帳1_dgv.Rows(II).Cells("客戶").Value.ToString Then : 核對客戶 = True : Exit For : End If
                 Next
                 If 核對客戶 = False Then : PA43 = 合帳_dgv.Rows(I).Cells("客戶").Value.ToString : SQL_電板紙帳新增() : End If
+                '------------------------------電板客戶所得判斷新增------------------------------------------------------------------------------
+                核對客戶 = False
+                For II As Integer = 0 To 電板所得_dgv.Rows.Count - 1
+                    If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString = 電板所得_dgv.Rows(II).Cells("所得戶").Value.ToString Then : 核對客戶 = True : Exit For : End If
+                Next
+                If 核對客戶 = False Then
+                    If 合帳_dgv.Rows(I).Cells("個人所得").Value.ToString <> "0" Then : PA43 = 合帳_dgv.Rows(I).Cells("客戶").Value.ToString : SQL_電板所得新增() : End If
+                End If
             End If
         Next
         For I As Integer = 0 To 電板紙帳1_dgv.Rows.Count - 1
@@ -2096,7 +2402,7 @@ Public Class 帳務彙總計算表
             Next
             If 核對客戶 = False Then
                 PA43 = 電板紙帳1_dgv.Rows(I).Cells("客戶").Value.ToString : PA44 = 電板紙帳1_dgv.Rows(I).Cells("商品").Value.ToString
-                SQL_紙帳流水新增()
+                If 資料_cb.Text <> "" Then : SQL_紙帳流水新增() : End If
             End If
         Next
     End Sub
@@ -2105,11 +2411,21 @@ Public Class 帳務彙總計算表
         Panel2.DrawToBitmap(bm, Panel2.ClientRectangle)
         My.Computer.Clipboard.SetImage(bm)
     End Sub
+    Private Sub 股東紅利設定_bt_Click(sender As Object, e As EventArgs) Handles 股東紅利設定_bt.Click
+        從彙總開 = True : 電板股東紅利設定.ShowDialog() : If 紅利修改 = True Then : 有無資料判斷() : 從彙總開 = False : 紅利修改 = False : End If
+    End Sub
+    Private Sub 股份表一_tb_Click(sender As Object, e As EventArgs) Handles 股份表一_tb.Click
+        紅利支出_dgv.Visible = False : 紅利收入_dgv.Visible = False : 紅利整合_dgv.Visible = True
+    End Sub
+    Private Sub 股份表二_tb_Click(sender As Object, e As EventArgs) Handles 股份表二_tb.Click
+        紅利支出_dgv.Visible = True : 紅利收入_dgv.Visible = True : 紅利整合_dgv.Visible = False
+    End Sub
     Private Sub 正負調整存檔_bt_Click(sender As Object, e As EventArgs) Handles 正負調整存檔_bt.Click
         For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
             If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString <> "" Then
                 BL1 = 合帳_dgv.Rows(I).Cells("付反").Value : BL2 = 合帳_dgv.Rows(I).Cells("收反").Value
                 BL3 = 合帳_dgv.Rows(I).Cells("所反").Value : BL4 = 合帳_dgv.Rows(I).Cells("水反").Value
+                BL5 = 合帳_dgv.Rows(I).Cells("紅反").Value
                 PA9 = 合帳_dgv.Rows(I).Cells("客戶").Value : SQL_電板客戶修改()
             End If
         Next
@@ -2164,6 +2480,11 @@ Public Class 帳務彙總計算表
                     ElseIf 水差合帳_dgv.Columns.Count = 6 Then : xlSheet.Cells(2 + NH1, 4) = 水差合帳_dgv.Rows(I).Cells("客戶").Value : End If
                     xlSheet.Cells(2 + NH1, 5) = "水差" : xlSheet.Cells(2 + NH1, 6) = 水差合帳_dgv.Rows(I).Cells("水差.").Value
                 Next
+                For I As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
+                    NH1 += 1 : xlSheet.Cells(2 + NH1, 2) = I + 1 : xlSheet.Cells(2 + NH1, 3) = 紅利整合_dgv.Rows(I).Cells("所得/股東").Value
+                    xlSheet.Cells(2 + NH1, 4) = ""
+                    xlSheet.Cells(2 + NH1, 5) = "紅利計算" : xlSheet.Cells(2 + NH1, 6) = 紅利整合_dgv.Rows(I).Cells("紅利收支").Value
+                Next
                 For I As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
                     NH1 += 1 : xlSheet.Cells(2 + NH1, 2) = I + 1 : xlSheet.Cells(2 + NH1, 3) = 紙帳非前期_dgv.Rows(I).Cells("商品").Value
                     xlSheet.Cells(2 + NH1, 4) = ""
@@ -2214,6 +2535,10 @@ Public Class 帳務彙總計算表
                 ElseIf 水差合帳_dgv.Columns.Count = 6 Then : PB2(NN7) = 水差合帳_dgv.Rows(I).Cells("客戶").Value : End If
                 PB3(NN7) = "水差" : PB4(NN7) = 水差合帳_dgv.Rows(I).Cells("水差.").Value : NN5 += 水差合帳_dgv.Rows(I).Cells("水差").Value : NN7 += 1
             Next
+            For I As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
+                PB5(NN7) = I + 1 : PB1(NN7) = 紅利整合_dgv.Rows(I).Cells("所得/股東").Value : PB2(NN7) = ""
+                PB3(NN7) = "紅利計算" : PB4(NN7) = 紅利整合_dgv.Rows(I).Cells("紅利收支").Value : NN5 += 紅利整合_dgv.Rows(I).Cells("紅利收支").Value : NN7 += 1
+            Next
             For I As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
                 PB5(NN7) = I + 1 : PB1(NN7) = 紙帳非前期_dgv.Rows(I).Cells("商品").Value : PB2(NN7) = ""
                 PB3(NN7) = "紙帳" : PB4(NN7) = Strings.Format(紙帳非前期_dgv.Rows(I).Cells("交收金額").Value, "#,##0") : NN5 += 紙帳非前期_dgv.Rows(I).Cells("交收金額").Value : NN7 += 1

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

@@ -23,11 +23,11 @@ Partial Class 帳務明細查詢表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(帳務明細查詢表))
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.客戶下_dgv = New System.Windows.Forms.DataGridView()
         Me.日期_dgv = New System.Windows.Forms.DataGridView()
@@ -139,8 +139,8 @@ Partial Class 帳務明細查詢表
         '
         '客戶下_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.客戶下_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.客戶下_dgv.Location = New System.Drawing.Point(8, 110)
         Me.客戶下_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -152,8 +152,8 @@ Partial Class 帳務明細查詢表
         '
         '日期_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.日期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.日期_dgv.Location = New System.Drawing.Point(8, 261)
         Me.日期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -704,8 +704,8 @@ Partial Class 帳務明細查詢表
         Me.彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.彙總_dgv.RowTemplate.Height = 24
         Me.彙總_dgv.Size = New System.Drawing.Size(653, 601)
         Me.彙總_dgv.TabIndex = 1522
@@ -721,8 +721,8 @@ Partial Class 帳務明細查詢表
         Me.彙總1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總1_dgv.Name = "彙總1_dgv"
         Me.彙總1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總1_dgv.RowTemplate.Height = 24
         Me.彙總1_dgv.Size = New System.Drawing.Size(653, 601)
         Me.彙總1_dgv.TabIndex = 1675
@@ -1025,7 +1025,6 @@ Partial Class 帳務明細查詢表
         Me.Controls.Add(Me.資料_cb)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label16)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Label3)
@@ -1033,6 +1032,7 @@ Partial Class 帳務明細查詢表
         Me.Controls.Add(Me.加總_tb)
         Me.Controls.Add(Me.流水帳_dgv)
         Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Label16)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "帳務明細查詢表"

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

@@ -309,8 +309,9 @@ Public Class 帳務明細查詢表
                 If IsDBNull(流水帳_dgv("上層", i).Value) = True Then : 流水帳_dgv("上層", i).Value = False : End If : 流水帳_dgv("上層", i).Value = False
                 If IsDBNull(流水帳_dgv("下層", i).Value) = True Then : 流水帳_dgv("下層", i).Value = False : End If : 流水帳_dgv("下層", i).Value = False
                 流水帳_dgv("所得指定", i).Value = "" : 流水帳_dgv("水差指定", i).Value = "" : 流水帳_dgv("下客流水", i).Value = "" : 流水帳_dgv("天帳1", i).Value = "0"
-
-                流水帳_dgv.Rows(i).Cells("按鈕").Value = False
+                流水帳_dgv("會員.", i).Value = "0" : 流水帳_dgv("代理.", i).Value = "0" : 流水帳_dgv("總代理.", i).Value = "0" : 流水帳_dgv("股東.", i).Value = "0"
+                流水帳_dgv("大股東.", i).Value = "0" : 流水帳_dgv("總監.", i).Value = "0" : 流水帳_dgv("上繳金額.", i).Value = "0" : 流水帳_dgv("個人所得", i).Value = "0"
+                流水帳_dgv("水差", i).Value = "0" : 流水帳_dgv.Rows(i).Cells("按鈕").Value = False
                 '------------取得客戶名稱---------------------------------------------------------------------------------------------------------------------------------------
                 If Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短版" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短板" Then
                     流水帳_dgv.Rows(i).Cells("客戶").Value = 流水帳_dgv.Rows(i).Cells("客戶s").Value.ToString
@@ -346,8 +347,16 @@ Public Class 帳務明細查詢表
                     End If
                 Next
             Next
-            '-------------------上下層自動勾選-------------------------------------------------------------------------------------------------------------------------------
-            流水帳_dgv上層算出()
+            '-------------------自動新增客戶帳號----------------------------------------------------------------------------------------------------------------------------------
+            For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
+                If 流水帳_dgv("同帳指定", i).Value = "需設定" Then
+                    客戶需導 = True : Exit For
+                End If
+            Next
+            If 客戶下_dgv.Rows.Count = 0 Then : 客戶需導 = True : End If
+            If 客戶需導 = True Then : 存檔_bt.PerformClick() : End If
+
+            '-------------------上下層自動勾選-----------------------------------------
             For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                 '-------------------帳務分類計算---------------------------------------------------------------------------------------------------------------------------------
                 YY = i : 流水帳_dgv計算()
@@ -380,23 +389,19 @@ Public Class 帳務明細查詢表
                     SQL_帳務明細查詢表客戶寫入()
                 End If
                 If 是否重算 = True Then
-                    If 流水帳_dgv.Rows(i).Cells("客戶名稱").Value.ToString = "" And 流水帳_dgv.Rows(i).Cells("上層").Value = False Then
-                        設定異常表2 = 設定異常表2 & vbCrLf &
-                                      "商品 : [" & 流水帳_dgv.Rows(i).Cells("商品").Value.ToString & "] -- 帳戶 : [" & 流水帳_dgv.Rows(i).Cells("帳戶").Value.ToString & "] -- 客戶帳號 : [" &
-                                      流水帳_dgv.Rows(i).Cells("客戶帳號").Value.ToString & "]，沒有設定 [客戶名稱]。"
-                        異常表2 += 1
+                    If 流水帳_dgv.Rows(i).Cells("計算").Value = True Then
+                        If 流水帳_dgv.Rows(i).Cells("客戶名稱").Value.ToString = "" And 流水帳_dgv.Rows(i).Cells("上層").Value = False Then
+                            設定異常表2 = 設定異常表2 & vbCrLf &
+                                          "商品 : [" & 流水帳_dgv.Rows(i).Cells("商品").Value.ToString & "] -- 帳戶 : [" & 流水帳_dgv.Rows(i).Cells("帳戶").Value.ToString & "] -- 客戶帳號 : [" &
+                                          流水帳_dgv.Rows(i).Cells("客戶帳號").Value.ToString & "]，沒有設定 [客戶名稱]。"
+                            異常表2 += 1
+                        End If
                     End If
                 End If
             Next
-            所選商品_tb.Text = "" ': GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            所選商品_tb.Text = ""
         End If
 
-        For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
-            If 流水帳_dgv("同帳指定", i).Value = "需設定" Then
-                客戶需導 = True : Exit For
-            End If
-        Next
-        If 客戶需導 = True Then : 存檔_bt.PerformClick() : End If
         Set_流水帳清單2() : Set_流水帳清單3() : Panel2.Visible = False : Panel1.Visible = False
         If 異常表0 + 異常表1 + 異常表2 > 0 Then : If 流水帳_dgv.Rows.Count > 0 Then : 異常設定_bt.PerformClick() : End If : End If
         MyModule1.計算顯示3()
@@ -728,6 +733,9 @@ Public Class 帳務明細查詢表
         End If
     End Sub
     Private Sub 帳務明細查詢表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        If 無KEY登入 = True Then
+            自動導入_bt.Enabled = False : 新增帳號資料_bt.Enabled = False : 修改帳號資料_bt.Enabled = False : 修改客戶資料_bt.Enabled = False : 進階控制_bt.Enabled = False
+        End If
         SQL_流水帳商品() : 商品_cb.Items.Clear() : 商品_cb.Items.Add("") : While (dr.Read()) : 商品_cb.Items.Add(dr("商品")) : End While : conn.Close()
         If 商品_cb.Text = "" Then : PA40 = "%%" : Else : PA40 = 商品_cb.Text : End If
         SQL_流水帳上繳_明細用() : 老闆_cb.Items.Clear() : 老闆_cb.Items.Add("") : While (dr.Read()) : 老闆_cb.Items.Add(dr("上繳源")) : End While : conn.Close()

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

@@ -8,6 +8,8 @@
 
         SQL_電板客戶查詢()
         da.Fill(ds3) : 電板客戶_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        電板客戶_dgv.Columns(1).Visible = False : 電板客戶_dgv.Columns(2).Visible = False : 電板客戶_dgv.Columns(3).Visible = False
+        電板客戶_dgv.Columns(4).Visible = False : 電板客戶_dgv.Columns(5).Visible = False
     End Sub
     Private Sub Set_電板紙板()
         Dim ds3 As New DataSet
@@ -26,7 +28,7 @@
         新增_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False
         Set_電板客戶() : If 電板客戶_dgv.Rows.Count > 0 Then : 客戶_tb.Text = 電板客戶_dgv("客戶", 0).Value.ToString : Set_電板紙板() : End If
         電板客戶_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
-        電板客戶_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        電板紙板_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub
     Private Sub 電板客戶_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 電板客戶_dgv.CellClick
         If e.RowIndex = -1 Then : Else
@@ -57,10 +59,10 @@
         If 商品1_tb.Text = "" Or 商品1_tb.Text = "前期未收" Then : 新增_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False : End If
     End Sub
     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
-        SQL_電板紙帳新增1() : Set_電板紙板() : 商品1_tb.Text = ""
+        SQL_電板紙帳查詢3() : If dr.Read() Then : MsgBox("資料重複，請重新確認!!") : Else : SQL_電板紙帳新增1() : Set_電板紙板() : 商品1_tb.Text = "" : End If
     End Sub
     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
-        SQL_電板紙帳修改() : Set_電板紙板() : 商品1_tb.Text = ""
+        SQL_電板紙帳查詢4() : If dr.Read() Then : MsgBox("資料重複，請重新確認!!") : Else : SQL_電板紙帳修改() : Set_電板紙板() : 商品1_tb.Text = "" : End If
     End Sub
     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
         SQL_電板紙帳刪除() : Set_電板紙板() : 商品1_tb.Text = ""

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

@@ -0,0 +1,290 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 電板股東紅利設定
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.電板紙板_dgv = New System.Windows.Forms.DataGridView()
+        Me.刪除_bt = New System.Windows.Forms.Button()
+        Me.新增_bt = New System.Windows.Forms.Button()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.客戶_tb = New System.Windows.Forms.TextBox()
+        Me.L5 = New System.Windows.Forms.Label()
+        Me.電板客戶_dgv = New System.Windows.Forms.DataGridView()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.商品1_tb = New System.Windows.Forms.TextBox()
+        Me.nud1 = New System.Windows.Forms.NumericUpDown()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.nud2 = New System.Windows.Forms.NumericUpDown()
+        Me.商品_cb = New System.Windows.Forms.ComboBox()
+        CType(Me.電板紙板_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.nud1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.nud2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '電板紙板_dgv
+        '
+        Me.電板紙板_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板紙板_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板紙板_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.電板紙板_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板紙板_dgv.Location = New System.Drawing.Point(125, 77)
+        Me.電板紙板_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板紙板_dgv.Name = "電板紙板_dgv"
+        Me.電板紙板_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.電板紙板_dgv.RowTemplate.Height = 24
+        Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 186)
+        Me.電板紙板_dgv.TabIndex = 1646
+        '
+        '刪除_bt
+        '
+        Me.刪除_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除_bt.Location = New System.Drawing.Point(280, 52)
+        Me.刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.刪除_bt.Name = "刪除_bt"
+        Me.刪除_bt.Size = New System.Drawing.Size(63, 25)
+        Me.刪除_bt.TabIndex = 1656
+        Me.刪除_bt.Text = "刪除"
+        Me.刪除_bt.UseVisualStyleBackColor = True
+        '
+        '新增_bt
+        '
+        Me.新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增_bt.Location = New System.Drawing.Point(280, 2)
+        Me.新增_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.新增_bt.Name = "新增_bt"
+        Me.新增_bt.Size = New System.Drawing.Size(63, 25)
+        Me.新增_bt.TabIndex = 1655
+        Me.新增_bt.Text = "新增"
+        Me.新增_bt.UseVisualStyleBackColor = True
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Location = New System.Drawing.Point(280, 27)
+        Me.存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(63, 25)
+        Me.存檔_bt.TabIndex = 1653
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.Black
+        Me.Label1.Location = New System.Drawing.Point(122, 31)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(46, 17)
+        Me.Label1.TabIndex = 1652
+        Me.Label1.Text = "股    東"
+        '
+        '客戶_tb
+        '
+        Me.客戶_tb.ForeColor = System.Drawing.Color.Black
+        Me.客戶_tb.Location = New System.Drawing.Point(171, 3)
+        Me.客戶_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.客戶_tb.Name = "客戶_tb"
+        Me.客戶_tb.Size = New System.Drawing.Size(107, 23)
+        Me.客戶_tb.TabIndex = 1647
+        '
+        'L5
+        '
+        Me.L5.AutoSize = True
+        Me.L5.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.L5.ForeColor = System.Drawing.Color.Black
+        Me.L5.Location = New System.Drawing.Point(122, 6)
+        Me.L5.Name = "L5"
+        Me.L5.Size = New System.Drawing.Size(47, 17)
+        Me.L5.TabIndex = 1648
+        Me.L5.Text = "所得戶"
+        '
+        '電板客戶_dgv
+        '
+        Me.電板客戶_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.電板客戶_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板客戶_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.電板客戶_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板客戶_dgv.Location = New System.Drawing.Point(4, 3)
+        Me.電板客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板客戶_dgv.Name = "電板客戶_dgv"
+        Me.電板客戶_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.電板客戶_dgv.RowTemplate.Height = 24
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 284)
+        Me.電板客戶_dgv.TabIndex = 1645
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(-515, 149)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(38, 23)
+        Me.字體_NUD.TabIndex = 1649
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(-573, 152)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
+        Me.字體大小調整_lb.TabIndex = 1650
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '商品1_tb
+        '
+        Me.商品1_tb.ForeColor = System.Drawing.Color.Black
+        Me.商品1_tb.Location = New System.Drawing.Point(170, 163)
+        Me.商品1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.商品1_tb.Name = "商品1_tb"
+        Me.商品1_tb.Size = New System.Drawing.Size(107, 23)
+        Me.商品1_tb.TabIndex = 1654
+        '
+        'nud1
+        '
+        Me.nud1.Location = New System.Drawing.Point(171, 53)
+        Me.nud1.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
+        Me.nud1.Minimum = New Decimal(New Integer() {10000, 0, 0, -2147483648})
+        Me.nud1.Name = "nud1"
+        Me.nud1.Size = New System.Drawing.Size(107, 23)
+        Me.nud1.TabIndex = 1657
+        Me.nud1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.nud1.ThousandsSeparator = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label2.ForeColor = System.Drawing.Color.Black
+        Me.Label2.Location = New System.Drawing.Point(123, 56)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(46, 17)
+        Me.Label2.TabIndex = 1658
+        Me.Label2.Text = "股    數"
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label3.ForeColor = System.Drawing.Color.Black
+        Me.Label3.Location = New System.Drawing.Point(122, 267)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(47, 17)
+        Me.Label3.TabIndex = 1660
+        Me.Label3.Text = "總股數"
+        '
+        'nud2
+        '
+        Me.nud2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.nud2.Location = New System.Drawing.Point(171, 264)
+        Me.nud2.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
+        Me.nud2.Minimum = New Decimal(New Integer() {10000, 0, 0, -2147483648})
+        Me.nud2.Name = "nud2"
+        Me.nud2.Size = New System.Drawing.Size(172, 23)
+        Me.nud2.TabIndex = 1659
+        Me.nud2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.nud2.ThousandsSeparator = True
+        '
+        '商品_cb
+        '
+        Me.商品_cb.FormattingEnabled = True
+        Me.商品_cb.Location = New System.Drawing.Point(171, 27)
+        Me.商品_cb.Name = "商品_cb"
+        Me.商品_cb.Size = New System.Drawing.Size(107, 24)
+        Me.商品_cb.TabIndex = 1661
+        '
+        '電板股東紅利設定
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(349, 290)
+        Me.Controls.Add(Me.電板紙板_dgv)
+        Me.Controls.Add(Me.商品_cb)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.nud2)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.nud1)
+        Me.Controls.Add(Me.刪除_bt)
+        Me.Controls.Add(Me.新增_bt)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.客戶_tb)
+        Me.Controls.Add(Me.L5)
+        Me.Controls.Add(Me.電板客戶_dgv)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.商品1_tb)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "電板股東紅利設定"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "電板股東紅利設定"
+        CType(Me.電板紙板_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.nud1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.nud2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 電板紙板_dgv As DataGridView
+    Friend WithEvents 刪除_bt As Button
+    Friend WithEvents 新增_bt As Button
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 客戶_tb As TextBox
+    Friend WithEvents L5 As Label
+    Friend WithEvents 電板客戶_dgv As DataGridView
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 商品1_tb As TextBox
+    Friend WithEvents nud1 As NumericUpDown
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents nud2 As NumericUpDown
+    Friend WithEvents 商品_cb As ComboBox
+End Class

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

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

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

@@ -0,0 +1,84 @@
+Public Class 電板股東紅利設定
+    Private Sub Set_電板客戶()
+        Dim ds3 As New DataSet
+        電板客戶_dgv.DataSource = Nothing : ds3.Clear()
+        電板客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板客戶_dgv.ColumnHeadersHeight = 25
+        電板客戶_dgv.AllowUserToAddRows = False
+
+        SQL_電板所得查詢()
+        da.Fill(ds3) : 電板客戶_dgv.DataSource = ds3.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_電板紙板()
+        Dim ds3 As New DataSet
+        電板紙板_dgv.DataSource = Nothing : ds3.Clear()
+        電板紙板_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板紙板_dgv.ColumnHeadersHeight = 25
+        電板紙板_dgv.AllowUserToAddRows = False
+
+        SQL_電板所得查詢1()
+        da.Fill(ds3) : 電板紙板_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        電板紙板_dgv.Columns("紅利").DefaultCellStyle.Format = "#,##0"
+        nud2.Value = 0
+        If 電板紙板_dgv.Rows.Count > 0 Then
+            商品_cb.Text = 電板紙板_dgv("股東", 0).Value.ToString : 商品1_tb.Text = 電板紙板_dgv("股東", 0).Value.ToString
+            For I As Integer = 0 To 電板紙板_dgv.Rows.Count - 1
+                nud2.Value = nud2.Value + 電板紙板_dgv("紅利", I).Value
+            Next
+        End If
+    End Sub
+    Private Sub 電板股東紅利設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    End Sub
+    Private Sub 電板股東紅利設定_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        新增_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False
+        Set_電板客戶() : If 電板客戶_dgv.Rows.Count > 0 Then : 客戶_tb.Text = 電板客戶_dgv("所得戶", 0).Value.ToString : Set_電板紙板() : End If
+        電板客戶_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        電板紙板_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        SQL_電板客戶下拉清單() : 商品_cb.Items.Clear() : While (dr.Read()) : 商品_cb.Items.Add(dr("客戶")) : End While : conn.Close()
+    End Sub
+    Private Sub 電板客戶_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 電板客戶_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            客戶_tb.Text = 電板客戶_dgv("所得戶", e.RowIndex).Value.ToString : Set_電板紙板()
+        End If
+    End Sub
+    Private Sub 電板紙板_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 電板紙板_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            商品_cb.Text = 電板紙板_dgv("股東", e.RowIndex).Value.ToString
+            商品1_tb.Text = 電板紙板_dgv("股東", e.RowIndex).Value.ToString
+            nud1.Value = 電板紙板_dgv("紅利", e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 商品_cb_TextChanged(sender As Object, e As EventArgs) Handles 商品_cb.TextChanged
+        If 商品_cb.Text = "" Then : 新增_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False
+        Else : SQL_電板紙帳查詢2()
+            If dr.Read() Then
+                新增_bt.Enabled = False : 存檔_bt.Enabled = True : 刪除_bt.Enabled = True
+            Else
+                If 商品1_tb.Text = "" Then
+                    新增_bt.Enabled = True : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False
+                Else
+                    新增_bt.Enabled = True : 存檔_bt.Enabled = True : 刪除_bt.Enabled = False
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 商品1_tb_TextChanged(sender As Object, e As EventArgs) Handles 商品1_tb.TextChanged
+        If 商品1_tb.Text = "" Then : 新增_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False : End If
+    End Sub
+    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
+        SQL_電板所得查詢2() : If dr.Read() Then : MsgBox("資料重複，請重新確認!!")
+        Else : SQL_電板所得設定新增() : Set_電板紙板() : 商品1_tb.Text = ""
+            If 從彙總開 = True Then : 紅利修改 = True : End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        SQL_電板所得查詢3() : If dr.Read() Then : MsgBox("資料重複，請重新確認!!")
+        Else : SQL_電板所得設定修改() : Set_電板紙板() : 商品1_tb.Text = ""
+            If 從彙總開 = True Then : 紅利修改 = True : End If
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        SQL_電板所得設定刪除() : Set_電板紙板() : 商品1_tb.Text = ""
+        If 從彙總開 = True Then : 紅利修改 = True : End If
+    End Sub
+End Class

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

@@ -35,11 +35,11 @@ Partial Class 系統公告
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox1.Location = New System.Drawing.Point(3, 201)
+        Me.TextBox1.Location = New System.Drawing.Point(2, 98)
         Me.TextBox1.Multiline = True
         Me.TextBox1.Name = "TextBox1"
         Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.TextBox1.Size = New System.Drawing.Size(680, 245)
+        Me.TextBox1.Size = New System.Drawing.Size(680, 347)
         Me.TextBox1.TabIndex = 0
         Me.TextBox1.Text = resources.GetString("TextBox1.Text")
         '
@@ -55,19 +55,19 @@ Partial Class 系統公告
         Me.TextBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TextBox3.ForeColor = System.Drawing.Color.Green
-        Me.TextBox3.Location = New System.Drawing.Point(3, 44)
+        Me.TextBox3.Location = New System.Drawing.Point(2, 43)
         Me.TextBox3.Multiline = True
         Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(680, 158)
+        Me.TextBox3.Size = New System.Drawing.Size(680, 130)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = resources.GetString("TextBox3.Text")
+        Me.TextBox3.Text = "版本號 : 2021122001_1.32" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、系統LOG檔案加入對應帳號。"
         '
         'TextBox4
         '
         Me.TextBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TextBox4.ForeColor = System.Drawing.Color.Red
-        Me.TextBox4.Location = New System.Drawing.Point(3, 3)
+        Me.TextBox4.Location = New System.Drawing.Point(2, 2)
         Me.TextBox4.Multiline = True
         Me.TextBox4.Name = "TextBox4"
         Me.TextBox4.Size = New System.Drawing.Size(680, 42)
@@ -80,9 +80,9 @@ Partial Class 系統公告
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(685, 447)
+        Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.TextBox3)
-        Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.TextBox2)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)

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

@@ -118,7 +118,56 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="TextBox1.Text" xml:space="preserve">
-    <value>版本號 : 2021112101_1.32
+    <value>版本號 : 2021121401_1.32
+更新內容如下 :
+1、暫時關閉網站共享功能。
+2、基本資料設定介面在操作時鎖定下面清單的點選功能。
+3、電板紙帳帳務設定新增功能BUG修正。
+4、新增子帳號可開明細表，但是不能做編輯動作。
+5、設定異常表不再將 [計算] 未勾選的資料列入。
+
+版本號 : 2021121101_1.32
+更新內容如下 :
+1、修正明細表資料載入後自動判斷客戶帳號資料新增延遲計算的問題。
+
+版本號 : 2021120401_1.32
+更新內容如下 :
+1、提升系統安全性更新。
+2、修正彙總表自動分配股東紅利，交收合計處的錯誤計算。
+3、帳號不使用KEY登入時即是子帳號的狀態。
+
+版本號 : 2021120101_1.32
+更新內容如下 :
+1、修正彙總表個人帳務無法使用CTRL + V 複製的錯誤。
+
+版本號 : 2021113001_1.32
+更新內容如下 :
+1、系統後台運算公式優化更新，並新增在系統登入時顯示租用到期提示(十天內)。
+2、系統彙總表加入股東所得紅利拆分、並新增電版股東紅利設定功能。
+3、系統彙總表合帳清單新增紅反(紅利數值反)，正反轉數值時請注意是否需要搭配對應向。
+      例如 : 應收與應負正常情況下為一對，所得與紅利在正常情況下為一對。
+4、電板紙版帳務設定修正客戶顯示清單的問題。
+5、新增電板客戶編輯器，提供使用者可以快速編輯系統中的客戶名稱。
+6、導入報表後自動判斷要新客戶資料時把預設值成全部設成關閉(主要針對小眾客戶群)。
+7、調整自動新增客戶邏輯順序，並在彙總表打開處加入客戶所得計算更新邏輯。主要為了解決新客戶自動加入後，
+       部分資料需要讀取第二遍的BUG測試)。
+
+版本號 : 2021112301_1.32
+更新內容如下 :
+1、修正彙總表合帳空白資料排序時的錯誤。
+2、系統更新時加入區分大小更新，在細微修正時加快更新速度。
+
+版本號 : 2021112301_1.32
+更新內容如下 :
+1、修正101系統258商品5星抓不到帳的問題。
+2、修正101系統太陽商品整體帳務都抓不準的問題。
+3、系統抓帳區間固定已一周為單位，起始時間固定為每個周一。
+4、彙總表新增帳務應付、應收、所得、水差帳務可應使用者習慣設定數值正負號。
+5、彙總表手帳紀錄功能同步已一周為單位。
+6、系統新增公告視窗，以後不再群組公告更新事項。
+7、修正其餘因系統變動所出現的已知BUG。
+
+版本號 : 2021112101_1.32
 更新內容如下 :
 1、修正系統天天樂抓不到帳的問題。
 2、修正彙總表下收帳務中部分帳號會重複計算的問題。
@@ -233,15 +282,4 @@
 2、修正流水帳操作按鈕。
 3、基本資料新增log檔查詢，方便知道帳號抓取是否有誤。</value>
   </data>
-  <data name="TextBox3.Text" xml:space="preserve">
-    <value>版本號 : 2021112301_1.32
-更新內容如下 :
-1、修正101系統258商品5星抓不到帳的問題。
-2、修正101系統太陽商品整體帳務都抓不準的問題。
-3、系統抓帳區間固定已一周為單位，起始時間固定為每個周一。
-4、彙總表新增帳務應付、應收、所得、水差帳務可應使用者習慣設定數值正負號。
-5、彙總表手帳紀錄功能同步已一周為單位。
-6、系統新增公告視窗，以後不再群組公告更新事項。
-7、修正其餘因系統變動所出現的已知BUG。</value>
-  </data>
 </root>

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

@@ -0,0 +1,451 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 租用者帳務表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.使用者清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.帳務明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.到期日_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.帳號_tb = New System.Windows.Forms.TextBox()
+        Me.姓名_tb = New System.Windows.Forms.TextBox()
+        Me.起始日_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.狀態_tb = New System.Windows.Forms.TextBox()
+        Me.費用_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.修改_bt = New System.Windows.Forms.Button()
+        Me.新增_bt = New System.Windows.Forms.Button()
+        Me.刪除_bt = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.可用天數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.備註_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.累計費用_nud = New System.Windows.Forms.NumericUpDown()
+        Me.全帳_bt = New System.Windows.Forms.Button()
+        CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.帳務明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.費用_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.可用天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.累計費用_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '使用者清單_dgv
+        '
+        Me.使用者清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.使用者清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.使用者清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.使用者清單_dgv.Location = New System.Drawing.Point(3, 31)
+        Me.使用者清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.使用者清單_dgv.Name = "使用者清單_dgv"
+        Me.使用者清單_dgv.RowHeadersWidth = 5
+        Me.使用者清單_dgv.RowTemplate.Height = 24
+        Me.使用者清單_dgv.Size = New System.Drawing.Size(309, 647)
+        Me.使用者清單_dgv.TabIndex = 1497
+        '
+        '帳務明細_dgv
+        '
+        Me.帳務明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.帳務明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.帳務明細_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.帳務明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.帳務明細_dgv.DefaultCellStyle = DataGridViewCellStyle2
+        Me.帳務明細_dgv.Location = New System.Drawing.Point(314, 60)
+        Me.帳務明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.帳務明細_dgv.Name = "帳務明細_dgv"
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.帳務明細_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
+        Me.帳務明細_dgv.RowHeadersWidth = 5
+        Me.帳務明細_dgv.RowTemplate.Height = 24
+        Me.帳務明細_dgv.Size = New System.Drawing.Size(1032, 618)
+        Me.帳務明細_dgv.TabIndex = 1498
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(1281, 240)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(57, 23)
+        Me.字體_NUD.TabIndex = 1630
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1278, 220)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
+        Me.字體大小調整_lb.TabIndex = 1631
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '到期日_dtp
+        '
+        Me.到期日_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.到期日_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.到期日_dtp.Location = New System.Drawing.Point(635, 33)
+        Me.到期日_dtp.Name = "到期日_dtp"
+        Me.到期日_dtp.Size = New System.Drawing.Size(88, 23)
+        Me.到期日_dtp.TabIndex = 1638
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label7.Location = New System.Drawing.Point(586, 36)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(47, 17)
+        Me.Label7.TabIndex = 1637
+        Me.Label7.Text = "到期日"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label3.Location = New System.Drawing.Point(442, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(34, 17)
+        Me.Label3.TabIndex = 1636
+        Me.Label3.Text = "帳號"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label1.Location = New System.Drawing.Point(317, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(34, 17)
+        Me.Label1.TabIndex = 1635
+        Me.Label1.Text = "姓名"
+        '
+        '帳號_tb
+        '
+        Me.帳號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.帳號_tb.Location = New System.Drawing.Point(478, 3)
+        Me.帳號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.帳號_tb.Name = "帳號_tb"
+        Me.帳號_tb.Size = New System.Drawing.Size(102, 25)
+        Me.帳號_tb.TabIndex = 1634
+        '
+        '姓名_tb
+        '
+        Me.姓名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.姓名_tb.Location = New System.Drawing.Point(353, 3)
+        Me.姓名_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.姓名_tb.Name = "姓名_tb"
+        Me.姓名_tb.Size = New System.Drawing.Size(87, 25)
+        Me.姓名_tb.TabIndex = 1633
+        '
+        '起始日_dtp
+        '
+        Me.起始日_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.起始日_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.起始日_dtp.Location = New System.Drawing.Point(635, 3)
+        Me.起始日_dtp.Name = "起始日_dtp"
+        Me.起始日_dtp.Size = New System.Drawing.Size(88, 23)
+        Me.起始日_dtp.TabIndex = 1640
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label2.Location = New System.Drawing.Point(586, 6)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(47, 17)
+        Me.Label2.TabIndex = 1639
+        Me.Label2.Text = "起始日"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label4.Location = New System.Drawing.Point(317, 35)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(34, 17)
+        Me.Label4.TabIndex = 1642
+        Me.Label4.Text = "狀態"
+        '
+        '狀態_tb
+        '
+        Me.狀態_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.狀態_tb.Location = New System.Drawing.Point(353, 31)
+        Me.狀態_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.狀態_tb.Name = "狀態_tb"
+        Me.狀態_tb.Size = New System.Drawing.Size(87, 25)
+        Me.狀態_tb.TabIndex = 1641
+        '
+        '費用_nud
+        '
+        Me.費用_nud.Location = New System.Drawing.Point(478, 33)
+        Me.費用_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.費用_nud.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.費用_nud.Name = "費用_nud"
+        Me.費用_nud.Size = New System.Drawing.Size(102, 23)
+        Me.費用_nud.TabIndex = 1643
+        Me.費用_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.費用_nud.ThousandsSeparator = True
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label5.Location = New System.Drawing.Point(442, 36)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(34, 17)
+        Me.Label5.TabIndex = 1644
+        Me.Label5.Text = "費用"
+        '
+        '修改_bt
+        '
+        Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.修改_bt.ForeColor = System.Drawing.Color.Green
+        Me.修改_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.修改_bt.Location = New System.Drawing.Point(1208, 3)
+        Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.修改_bt.Name = "修改_bt"
+        Me.修改_bt.Size = New System.Drawing.Size(69, 53)
+        Me.修改_bt.TabIndex = 1647
+        Me.修改_bt.Text = "修改"
+        Me.修改_bt.UseVisualStyleBackColor = True
+        '
+        '新增_bt
+        '
+        Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.新增_bt.Location = New System.Drawing.Point(1138, 3)
+        Me.新增_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.新增_bt.Name = "新增_bt"
+        Me.新增_bt.Size = New System.Drawing.Size(69, 53)
+        Me.新增_bt.TabIndex = 1646
+        Me.新增_bt.Text = "新增"
+        Me.新增_bt.UseVisualStyleBackColor = True
+        '
+        '刪除_bt
+        '
+        Me.刪除_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.刪除_bt.Location = New System.Drawing.Point(1277, 3)
+        Me.刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.刪除_bt.Name = "刪除_bt"
+        Me.刪除_bt.Size = New System.Drawing.Size(69, 53)
+        Me.刪除_bt.TabIndex = 1645
+        Me.刪除_bt.Text = "刪除"
+        Me.刪除_bt.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label6.Location = New System.Drawing.Point(727, 6)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(60, 17)
+        Me.Label6.TabIndex = 1649
+        Me.Label6.Text = "可用天數"
+        '
+        '可用天數_nud
+        '
+        Me.可用天數_nud.Location = New System.Drawing.Point(728, 33)
+        Me.可用天數_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.可用天數_nud.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.可用天數_nud.Name = "可用天數_nud"
+        Me.可用天數_nud.Size = New System.Drawing.Size(60, 23)
+        Me.可用天數_nud.TabIndex = 1648
+        Me.可用天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.可用天數_nud.ThousandsSeparator = True
+        '
+        '備註_tb
+        '
+        Me.備註_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.備註_tb.Location = New System.Drawing.Point(828, 3)
+        Me.備註_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.備註_tb.Multiline = True
+        Me.備註_tb.Name = "備註_tb"
+        Me.備註_tb.Size = New System.Drawing.Size(307, 53)
+        Me.備註_tb.TabIndex = 1651
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label8.Location = New System.Drawing.Point(795, 6)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(34, 17)
+        Me.Label8.TabIndex = 1650
+        Me.Label8.Text = "備註"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label9.Location = New System.Drawing.Point(152, 7)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(60, 17)
+        Me.Label9.TabIndex = 1653
+        Me.Label9.Text = "累計費用"
+        '
+        '累計費用_nud
+        '
+        Me.累計費用_nud.Location = New System.Drawing.Point(214, 4)
+        Me.累計費用_nud.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
+        Me.累計費用_nud.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
+        Me.累計費用_nud.Name = "累計費用_nud"
+        Me.累計費用_nud.Size = New System.Drawing.Size(96, 23)
+        Me.累計費用_nud.TabIndex = 1652
+        Me.累計費用_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.累計費用_nud.ThousandsSeparator = True
+        '
+        '全帳_bt
+        '
+        Me.全帳_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
+        Me.全帳_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.全帳_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.全帳_bt.Location = New System.Drawing.Point(3, 2)
+        Me.全帳_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.全帳_bt.Name = "全帳_bt"
+        Me.全帳_bt.Size = New System.Drawing.Size(143, 26)
+        Me.全帳_bt.TabIndex = 1654
+        Me.全帳_bt.Text = "全帳"
+        Me.全帳_bt.UseVisualStyleBackColor = True
+        '
+        '租用者帳務表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1350, 681)
+        Me.Controls.Add(Me.全帳_bt)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.累計費用_nud)
+        Me.Controls.Add(Me.備註_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.可用天數_nud)
+        Me.Controls.Add(Me.修改_bt)
+        Me.Controls.Add(Me.新增_bt)
+        Me.Controls.Add(Me.刪除_bt)
+        Me.Controls.Add(Me.帳務明細_dgv)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.費用_nud)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.狀態_tb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.到期日_dtp)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.帳號_tb)
+        Me.Controls.Add(Me.姓名_tb)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.使用者清單_dgv)
+        Me.Controls.Add(Me.起始日_dtp)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "租用者帳務表"
+        Me.Text = "租用者帳務表"
+        CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.帳務明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.費用_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.可用天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.累計費用_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 使用者清單_dgv As DataGridView
+    Friend WithEvents 帳務明細_dgv As DataGridView
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 到期日_dtp As DateTimePicker
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 帳號_tb As TextBox
+    Friend WithEvents 姓名_tb As TextBox
+    Friend WithEvents 起始日_dtp As DateTimePicker
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 狀態_tb As TextBox
+    Friend WithEvents 費用_nud As NumericUpDown
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 修改_bt As Button
+    Friend WithEvents 新增_bt As Button
+    Friend WithEvents 刪除_bt As Button
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 可用天數_nud As NumericUpDown
+    Friend WithEvents 備註_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 累計費用_nud As NumericUpDown
+    Friend WithEvents 全帳_bt As Button
+End Class

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

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

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

@@ -0,0 +1,146 @@
+Public Class 租用者帳務表
+    ReadOnly ds, ds1 As New DataSet
+    Dim 首次開啟 As Boolean = False
+    Dim FFGG As Integer
+    Private Sub Set_使用者清單()
+        使用者清單_dgv.DataSource = Nothing : ds.Clear()
+        使用者清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        使用者清單_dgv.ColumnHeadersHeight = 25
+        使用者清單_dgv.AllowUserToAddRows = False
+        使用者清單_dgv.RowTemplate.Height = 25
+        SQL_系統使用者()
+        da.Fill(ds) : 使用者清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+        使用者清單_dgv.Columns("項次").FillWeight = 55
+        使用者清單_dgv.Columns(1).FillWeight = 90 : 使用者清單_dgv.Columns(2).FillWeight = 90
+        For I As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
+            使用者清單_dgv.Rows(I).Cells("項次").Value = I + 1
+            If 使用者清單_dgv.Rows(I).Cells("有USBKey").Value = False Then
+                使用者清單_dgv.Rows(I).Cells("有USBKey").Value = True
+            Else
+                使用者清單_dgv.Rows(I).Cells("有USBKey").Value = False
+            End If
+        Next
+    End Sub
+    Private Sub Set_帳務清單()
+        帳務明細_dgv.DataSource = Nothing : ds1.Clear()
+        帳務明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        帳務明細_dgv.ColumnHeadersHeight = 25
+        帳務明細_dgv.AllowUserToAddRows = False
+        帳務明細_dgv.RowTemplate.Height = 25
+        SQL_租用帳務()
+        da.Fill(ds1) : 帳務明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        帳務明細_dgv.Columns("費用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        帳務明細_dgv.Columns("費用").DefaultCellStyle.Format = "#,##0"
+        帳務明細_dgv.Columns("備註").FillWeight = 400 : 帳務明細_dgv.Columns("項次").FillWeight = 50
+        累計費用_nud.Value = 0
+        For I As Integer = 0 To 帳務明細_dgv.Rows.Count - 1
+            帳務明細_dgv.Rows(I).Cells("項次").Value = I + 1
+            累計費用_nud.Value = 累計費用_nud.Value + 帳務明細_dgv.Rows(I).Cells("費用").Value
+        Next
+    End Sub
+    Private Sub 租用者帳務表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        首次開啟 = False
+        Set_使用者清單() : 全帳_bt.PerformClick()
+        首次開啟 = True
+        If GA_ERP_SYS.Size.Width > 1440 And GA_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf GA_ERP_SYS.Size.Width <= 1440 And GA_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6
+        End If
+    End Sub
+    Private Sub 帳務明細查詢表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If GA_ERP_SYS.Size.Width > 1440 And GA_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf GA_ERP_SYS.Size.Width <= 1440 And GA_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6
+        End If
+    End Sub
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        使用者清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        帳務明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+    Private Sub 使用者清單_dgv_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles 使用者清單_dgv.CellEnter
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
+                    FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), 使用者清單_dgv.Rows(i).Cells("到期日").Value)
+                    If FFGG < 0 Then
+                        使用者清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
+                    Else
+                        使用者清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+                    End If
+                Next
+            End If
+        End If
+    End Sub
+    Private Sub 使用者清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 使用者清單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            姓名_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("租用者").Value : 帳號_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("帳號").Value
+
+            Set_帳務清單()
+            If 帳務明細_dgv.Rows.Count > 0 Then
+                起始日_dtp.Value = 帳務明細_dgv.Rows(0).Cells("起始日").Value : 到期日_dtp.Value = 帳務明細_dgv.Rows(0).Cells("到期日").Value
+                費用_nud.Value = 帳務明細_dgv.Rows(0).Cells("費用").Value : 備註_tb.Text = 帳務明細_dgv.Rows(0).Cells("備註").Value : 狀態_tb.Text = 帳務明細_dgv.Rows(0).Cells("狀態").Value
+            Else
+                起始日_dtp.Value = Today() : 到期日_dtp.Value = 使用者清單_dgv.Rows(e.RowIndex).Cells("到期日").Value : 費用_nud.Value = 0 : 備註_tb.Text = "" : 狀態_tb.Text = ""
+            End If
+            If 狀態_tb.Text = "" Then
+                If 使用者清單_dgv.Rows(e.RowIndex).Cells("有USBKey").Value = True Then : 狀態_tb.Text = "正式" : Else : 狀態_tb.Text = "測試" : End If
+            End If
+
+            可用天數_nud.Value = DateDiff("d", 起始日_dtp.Value, 到期日_dtp.Value)
+        End If
+    End Sub
+    Private Sub 帳務明細_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 帳務明細_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            起始日_dtp.Value = 帳務明細_dgv.Rows(e.RowIndex).Cells("起始日").Value : 到期日_dtp.Value = 帳務明細_dgv.Rows(e.RowIndex).Cells("到期日").Value
+            費用_nud.Value = 帳務明細_dgv.Rows(e.RowIndex).Cells("費用").Value : 備註_tb.Text = 帳務明細_dgv.Rows(e.RowIndex).Cells("備註").Value
+            狀態_tb.Text = 帳務明細_dgv.Rows(e.RowIndex).Cells("狀態").Value
+        End If
+    End Sub
+    Private Sub 帳務明細_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 帳務明細_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 帳務明細_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 帳務明細_dgv(1, e.RowIndex).Value.ToString.ToLower() <> 帳務明細_dgv(1, e.RowIndex + 1).Value.ToString.ToLower() Then
+                Dim startX As Integer = IIf(帳務明細_dgv.RowHeadersVisible, 帳務明細_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 帳務明細_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 帳務明細_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 起始日_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 起始日_dtp.ValueChanged
+        可用天數_nud.Value = DateDiff("d", 起始日_dtp.Value, 到期日_dtp.Value)
+    End Sub
+    Private Sub 到期日_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 到期日_dtp.ValueChanged
+        可用天數_nud.Value = DateDiff("d", 起始日_dtp.Value, 到期日_dtp.Value)
+    End Sub
+    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
+        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Then
+            MsgBox("資料有誤!!")
+        Else
+            SQL_租用帳務新增() : MsgBox("存檔成功!!") : Set_帳務清單()
+        End If
+    End Sub
+    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
+        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Then
+            MsgBox("資料有誤!!")
+        Else
+            SQL_租用帳務修改() : MsgBox("存檔成功!!") : Set_帳務清單()
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Then
+            MsgBox("資料有誤!!")
+        Else
+            SQL_租用帳務刪除() : MsgBox("存檔成功!!") : Set_帳務清單()
+        End If
+    End Sub
+    Private Sub 全帳_bt_Click(sender As Object, e As EventArgs) Handles 全帳_bt.Click
+        帳號_tb.Text = "%%" : Set_帳務清單() : 帳號_tb.Text = ""
+    End Sub
+End Class

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

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class 系統使用者管理
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class 系統使用者管理
     '注意: 以下為 Windows Form 設計工具所需的程序
     '可以使用 Windows Form 設計工具進行修改。
     '請勿使用程式碼編輯器進行修改。
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
@@ -43,6 +43,8 @@ Partial Class 系統使用者管理
         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.CheckBox41 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox40 = New System.Windows.Forms.CheckBox()
         Me.CheckBox39 = New System.Windows.Forms.CheckBox()
         Me.CheckBox38 = New System.Windows.Forms.CheckBox()
         Me.CheckBox37 = New System.Windows.Forms.CheckBox()
@@ -90,8 +92,8 @@ Partial Class 系統使用者管理
         Me.到期日_dtp = New System.Windows.Forms.DateTimePicker()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.備註_tb = New System.Windows.Forms.TextBox()
-        Me.CheckBox40 = New System.Windows.Forms.CheckBox()
         Me.Button1 = New System.Windows.Forms.Button()
+        Me.CheckBox42 = New System.Windows.Forms.CheckBox()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
@@ -104,12 +106,12 @@ Partial Class 系統使用者管理
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.字體_NUD.DecimalPlaces = 1
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
-        Me.字體_NUD.Location = New System.Drawing.Point(625, 70)
+        Me.字體_NUD.Location = New System.Drawing.Point(634, 75)
         Me.字體_NUD.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
-        Me.字體_NUD.Size = New System.Drawing.Size(61, 23)
+        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
         Me.字體_NUD.TabIndex = 1514
         Me.字體_NUD.Value = New Decimal(New Integer() {76, 0, 0, 65536})
         '
@@ -121,7 +123,7 @@ Partial Class 系統使用者管理
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(567, 74)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(631, 58)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
         Me.字體大小調整_lb.TabIndex = 1515
@@ -279,7 +281,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox5.AutoSize = True
         Me.CheckBox5.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox5.Location = New System.Drawing.Point(466, 261)
+        Me.CheckBox5.Location = New System.Drawing.Point(467, 287)
         Me.CheckBox5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox5.Name = "CheckBox5"
         Me.CheckBox5.Size = New System.Drawing.Size(142, 20)
@@ -291,7 +293,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox4.AutoSize = True
         Me.CheckBox4.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox4.Location = New System.Drawing.Point(466, 231)
+        Me.CheckBox4.Location = New System.Drawing.Point(467, 257)
         Me.CheckBox4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox4.Name = "CheckBox4"
         Me.CheckBox4.Size = New System.Drawing.Size(170, 20)
@@ -303,7 +305,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox3.AutoSize = True
         Me.CheckBox3.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox3.Location = New System.Drawing.Point(466, 203)
+        Me.CheckBox3.Location = New System.Drawing.Point(467, 229)
         Me.CheckBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox3.Name = "CheckBox3"
         Me.CheckBox3.Size = New System.Drawing.Size(134, 20)
@@ -315,7 +317,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox2.AutoSize = True
         Me.CheckBox2.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox2.Location = New System.Drawing.Point(466, 33)
+        Me.CheckBox2.Location = New System.Drawing.Point(467, 59)
         Me.CheckBox2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox2.Name = "CheckBox2"
         Me.CheckBox2.Size = New System.Drawing.Size(146, 20)
@@ -326,7 +328,7 @@ Partial Class 系統使用者管理
         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(441, 5)
+        Me.CheckBox1.Location = New System.Drawing.Point(442, 5)
         Me.CheckBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(146, 20)
@@ -341,6 +343,8 @@ Partial Class 系統使用者管理
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.CheckBox42)
+        Me.Panel1.Controls.Add(Me.CheckBox41)
         Me.Panel1.Controls.Add(Me.CheckBox40)
         Me.Panel1.Controls.Add(Me.CheckBox39)
         Me.Panel1.Controls.Add(Me.CheckBox38)
@@ -385,14 +389,38 @@ Partial Class 系統使用者管理
         Me.Panel1.Location = New System.Drawing.Point(691, 21)
         Me.Panel1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(660, 656)
+        Me.Panel1.Size = New System.Drawing.Size(655, 656)
         Me.Panel1.TabIndex = 1513
         '
+        'CheckBox41
+        '
+        Me.CheckBox41.AutoSize = True
+        Me.CheckBox41.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox41.Location = New System.Drawing.Point(467, 33)
+        Me.CheckBox41.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox41.Name = "CheckBox41"
+        Me.CheckBox41.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox41.TabIndex = 300
+        Me.CheckBox41.Text = "租用者帳務表-CC41"
+        Me.CheckBox41.UseVisualStyleBackColor = True
+        '
+        'CheckBox40
+        '
+        Me.CheckBox40.AutoSize = True
+        Me.CheckBox40.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox40.Location = New System.Drawing.Point(33, 315)
+        Me.CheckBox40.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox40.Name = "CheckBox40"
+        Me.CheckBox40.Size = New System.Drawing.Size(110, 20)
+        Me.CheckBox40.TabIndex = 299
+        Me.CheckBox40.Text = "公告顯示-CC40"
+        Me.CheckBox40.UseVisualStyleBackColor = True
+        '
         'CheckBox39
         '
         Me.CheckBox39.AutoSize = True
         Me.CheckBox39.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox39.Location = New System.Drawing.Point(33, 401)
+        Me.CheckBox39.Location = New System.Drawing.Point(33, 259)
         Me.CheckBox39.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox39.Name = "CheckBox39"
         Me.CheckBox39.Size = New System.Drawing.Size(146, 20)
@@ -416,7 +444,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox37.AutoSize = True
         Me.CheckBox37.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox37.Location = New System.Drawing.Point(262, 429)
+        Me.CheckBox37.Location = New System.Drawing.Point(252, 457)
         Me.CheckBox37.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox37.Name = "CheckBox37"
         Me.CheckBox37.Size = New System.Drawing.Size(194, 20)
@@ -428,7 +456,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox36.AutoSize = True
         Me.CheckBox36.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox36.Location = New System.Drawing.Point(262, 401)
+        Me.CheckBox36.Location = New System.Drawing.Point(252, 429)
         Me.CheckBox36.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox36.Name = "CheckBox36"
         Me.CheckBox36.Size = New System.Drawing.Size(194, 20)
@@ -440,7 +468,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox35.AutoSize = True
         Me.CheckBox35.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox35.Location = New System.Drawing.Point(262, 202)
+        Me.CheckBox35.Location = New System.Drawing.Point(252, 202)
         Me.CheckBox35.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox35.Name = "CheckBox35"
         Me.CheckBox35.Size = New System.Drawing.Size(194, 20)
@@ -452,7 +480,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox34.AutoSize = True
         Me.CheckBox34.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox34.Location = New System.Drawing.Point(262, 174)
+        Me.CheckBox34.Location = New System.Drawing.Point(252, 174)
         Me.CheckBox34.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox34.Name = "CheckBox34"
         Me.CheckBox34.Size = New System.Drawing.Size(194, 20)
@@ -464,7 +492,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox33.AutoSize = True
         Me.CheckBox33.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox33.Location = New System.Drawing.Point(238, 373)
+        Me.CheckBox33.Location = New System.Drawing.Point(228, 401)
         Me.CheckBox33.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox33.Name = "CheckBox33"
         Me.CheckBox33.Size = New System.Drawing.Size(158, 20)
@@ -476,7 +504,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox32.AutoSize = True
         Me.CheckBox32.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox32.Location = New System.Drawing.Point(238, 345)
+        Me.CheckBox32.Location = New System.Drawing.Point(228, 373)
         Me.CheckBox32.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox32.Name = "CheckBox32"
         Me.CheckBox32.Size = New System.Drawing.Size(158, 20)
@@ -488,7 +516,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox31.AutoSize = True
         Me.CheckBox31.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox31.Location = New System.Drawing.Point(238, 317)
+        Me.CheckBox31.Location = New System.Drawing.Point(228, 345)
         Me.CheckBox31.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox31.Name = "CheckBox31"
         Me.CheckBox31.Size = New System.Drawing.Size(158, 20)
@@ -500,7 +528,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox30.AutoSize = True
         Me.CheckBox30.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox30.Location = New System.Drawing.Point(238, 287)
+        Me.CheckBox30.Location = New System.Drawing.Point(228, 315)
         Me.CheckBox30.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox30.Name = "CheckBox30"
         Me.CheckBox30.Size = New System.Drawing.Size(170, 20)
@@ -512,7 +540,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox29.AutoSize = True
         Me.CheckBox29.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox29.Location = New System.Drawing.Point(238, 259)
+        Me.CheckBox29.Location = New System.Drawing.Point(228, 287)
         Me.CheckBox29.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox29.Name = "CheckBox29"
         Me.CheckBox29.Size = New System.Drawing.Size(170, 20)
@@ -524,7 +552,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox28.AutoSize = True
         Me.CheckBox28.ForeColor = System.Drawing.Color.Black
-        Me.CheckBox28.Location = New System.Drawing.Point(218, 231)
+        Me.CheckBox28.Location = New System.Drawing.Point(208, 259)
         Me.CheckBox28.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox28.Name = "CheckBox28"
         Me.CheckBox28.Size = New System.Drawing.Size(158, 20)
@@ -536,7 +564,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox27.AutoSize = True
         Me.CheckBox27.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox27.Location = New System.Drawing.Point(238, 118)
+        Me.CheckBox27.Location = New System.Drawing.Point(228, 118)
         Me.CheckBox27.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox27.Name = "CheckBox27"
         Me.CheckBox27.Size = New System.Drawing.Size(158, 20)
@@ -548,7 +576,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox26.AutoSize = True
         Me.CheckBox26.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox26.Location = New System.Drawing.Point(238, 90)
+        Me.CheckBox26.Location = New System.Drawing.Point(228, 90)
         Me.CheckBox26.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox26.Name = "CheckBox26"
         Me.CheckBox26.Size = New System.Drawing.Size(158, 20)
@@ -559,7 +587,7 @@ Partial Class 系統使用者管理
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(10, 261)
+        Me.Label9.Location = New System.Drawing.Point(10, 119)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(104, 16)
         Me.Label9.TabIndex = 284
@@ -569,7 +597,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox25.AutoSize = True
         Me.CheckBox25.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox25.Location = New System.Drawing.Point(466, 289)
+        Me.CheckBox25.Location = New System.Drawing.Point(467, 315)
         Me.CheckBox25.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox25.Name = "CheckBox25"
         Me.CheckBox25.Size = New System.Drawing.Size(161, 20)
@@ -581,7 +609,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox24.AutoSize = True
         Me.CheckBox24.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox24.Location = New System.Drawing.Point(466, 175)
+        Me.CheckBox24.Location = New System.Drawing.Point(467, 201)
         Me.CheckBox24.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox24.Name = "CheckBox24"
         Me.CheckBox24.Size = New System.Drawing.Size(134, 20)
@@ -593,7 +621,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox23.AutoSize = True
         Me.CheckBox23.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox23.Location = New System.Drawing.Point(466, 147)
+        Me.CheckBox23.Location = New System.Drawing.Point(467, 173)
         Me.CheckBox23.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox23.Name = "CheckBox23"
         Me.CheckBox23.Size = New System.Drawing.Size(136, 20)
@@ -605,7 +633,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox22.AutoSize = True
         Me.CheckBox22.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox22.Location = New System.Drawing.Point(238, 146)
+        Me.CheckBox22.Location = New System.Drawing.Point(228, 146)
         Me.CheckBox22.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox22.Name = "CheckBox22"
         Me.CheckBox22.Size = New System.Drawing.Size(158, 20)
@@ -617,7 +645,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox21.AutoSize = True
         Me.CheckBox21.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox21.Location = New System.Drawing.Point(238, 61)
+        Me.CheckBox21.Location = New System.Drawing.Point(228, 61)
         Me.CheckBox21.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox21.Name = "CheckBox21"
         Me.CheckBox21.Size = New System.Drawing.Size(170, 20)
@@ -629,7 +657,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox20.AutoSize = True
         Me.CheckBox20.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox20.Location = New System.Drawing.Point(490, 89)
+        Me.CheckBox20.Location = New System.Drawing.Point(491, 115)
         Me.CheckBox20.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox20.Name = "CheckBox20"
         Me.CheckBox20.Size = New System.Drawing.Size(110, 20)
@@ -641,7 +669,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox19.AutoSize = True
         Me.CheckBox19.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox19.Location = New System.Drawing.Point(33, 316)
+        Me.CheckBox19.Location = New System.Drawing.Point(33, 174)
         Me.CheckBox19.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox19.Name = "CheckBox19"
         Me.CheckBox19.Size = New System.Drawing.Size(158, 20)
@@ -653,7 +681,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox18.AutoSize = True
         Me.CheckBox18.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox18.Location = New System.Drawing.Point(238, 33)
+        Me.CheckBox18.Location = New System.Drawing.Point(228, 33)
         Me.CheckBox18.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox18.Name = "CheckBox18"
         Me.CheckBox18.Size = New System.Drawing.Size(170, 20)
@@ -664,7 +692,7 @@ Partial Class 系統使用者管理
         'CheckBox17
         '
         Me.CheckBox17.AutoSize = True
-        Me.CheckBox17.Location = New System.Drawing.Point(218, 5)
+        Me.CheckBox17.Location = New System.Drawing.Point(208, 5)
         Me.CheckBox17.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox17.Name = "CheckBox17"
         Me.CheckBox17.Size = New System.Drawing.Size(158, 20)
@@ -676,7 +704,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox16.AutoSize = True
         Me.CheckBox16.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox16.Location = New System.Drawing.Point(33, 288)
+        Me.CheckBox16.Location = New System.Drawing.Point(33, 146)
         Me.CheckBox16.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox16.Name = "CheckBox16"
         Me.CheckBox16.Size = New System.Drawing.Size(158, 20)
@@ -711,7 +739,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox13.AutoSize = True
         Me.CheckBox13.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox13.Location = New System.Drawing.Point(33, 203)
+        Me.CheckBox13.Location = New System.Drawing.Point(33, 458)
         Me.CheckBox13.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox13.Name = "CheckBox13"
         Me.CheckBox13.Size = New System.Drawing.Size(134, 20)
@@ -723,7 +751,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox12.AutoSize = True
         Me.CheckBox12.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox12.Location = New System.Drawing.Point(33, 175)
+        Me.CheckBox12.Location = New System.Drawing.Point(33, 430)
         Me.CheckBox12.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox12.Name = "CheckBox12"
         Me.CheckBox12.Size = New System.Drawing.Size(146, 20)
@@ -735,7 +763,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox11.AutoSize = True
         Me.CheckBox11.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox11.Location = New System.Drawing.Point(33, 146)
+        Me.CheckBox11.Location = New System.Drawing.Point(33, 401)
         Me.CheckBox11.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox11.Name = "CheckBox11"
         Me.CheckBox11.Size = New System.Drawing.Size(146, 20)
@@ -746,7 +774,7 @@ Partial Class 系統使用者管理
         'CheckBox10
         '
         Me.CheckBox10.AutoSize = True
-        Me.CheckBox10.Location = New System.Drawing.Point(13, 118)
+        Me.CheckBox10.Location = New System.Drawing.Point(13, 373)
         Me.CheckBox10.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox10.Name = "CheckBox10"
         Me.CheckBox10.Size = New System.Drawing.Size(134, 20)
@@ -758,7 +786,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox9.AutoSize = True
         Me.CheckBox9.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox9.Location = New System.Drawing.Point(33, 346)
+        Me.CheckBox9.Location = New System.Drawing.Point(33, 204)
         Me.CheckBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox9.Name = "CheckBox9"
         Me.CheckBox9.Size = New System.Drawing.Size(170, 20)
@@ -770,7 +798,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox8.AutoSize = True
         Me.CheckBox8.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox8.Location = New System.Drawing.Point(33, 374)
+        Me.CheckBox8.Location = New System.Drawing.Point(33, 232)
         Me.CheckBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox8.Name = "CheckBox8"
         Me.CheckBox8.Size = New System.Drawing.Size(146, 20)
@@ -782,7 +810,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox7.AutoSize = True
         Me.CheckBox7.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox7.Location = New System.Drawing.Point(490, 61)
+        Me.CheckBox7.Location = New System.Drawing.Point(491, 87)
         Me.CheckBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox7.Name = "CheckBox7"
         Me.CheckBox7.Size = New System.Drawing.Size(110, 20)
@@ -794,7 +822,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox6.AutoSize = True
         Me.CheckBox6.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox6.Location = New System.Drawing.Point(466, 119)
+        Me.CheckBox6.Location = New System.Drawing.Point(467, 145)
         Me.CheckBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox6.Name = "CheckBox6"
         Me.CheckBox6.Size = New System.Drawing.Size(182, 20)
@@ -930,31 +958,31 @@ Partial Class 系統使用者管理
         Me.備註_tb.Size = New System.Drawing.Size(113, 53)
         Me.備註_tb.TabIndex = 1528
         '
-        'CheckBox40
-        '
-        Me.CheckBox40.AutoSize = True
-        Me.CheckBox40.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox40.Location = New System.Drawing.Point(33, 429)
-        Me.CheckBox40.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.CheckBox40.Name = "CheckBox40"
-        Me.CheckBox40.Size = New System.Drawing.Size(110, 20)
-        Me.CheckBox40.TabIndex = 299
-        Me.CheckBox40.Text = "公告顯示-CC40"
-        Me.CheckBox40.UseVisualStyleBackColor = True
-        '
         'Button1
         '
         Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.75!)
         Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Button1.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Button1.Location = New System.Drawing.Point(501, 68)
+        Me.Button1.Location = New System.Drawing.Point(501, 60)
         Me.Button1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(60, 26)
+        Me.Button1.Size = New System.Drawing.Size(60, 39)
         Me.Button1.TabIndex = 1529
         Me.Button1.Text = "開公告"
         Me.Button1.UseVisualStyleBackColor = True
         '
+        'CheckBox42
+        '
+        Me.CheckBox42.AutoSize = True
+        Me.CheckBox42.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox42.Location = New System.Drawing.Point(33, 287)
+        Me.CheckBox42.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox42.Name = "CheckBox42"
+        Me.CheckBox42.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox42.TabIndex = 301
+        Me.CheckBox42.Text = "股東紅利功能啟用-CC42"
+        Me.CheckBox42.UseVisualStyleBackColor = True
+        '
         '系統使用者管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -1068,4 +1096,6 @@ Partial Class 系統使用者管理
     Friend WithEvents CheckBox39 As CheckBox
     Friend WithEvents CheckBox40 As CheckBox
     Friend WithEvents Button1 As Button
+    Friend WithEvents CheckBox41 As CheckBox
+    Friend WithEvents CheckBox42 As CheckBox
 End Class

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

@@ -30,6 +30,7 @@ Public Class 系統使用者管理
                 使用者清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
             End If
         Next
+        使用者清單_dgv.Columns("CC40").Visible = True : 使用者清單_dgv.Columns("CC40").FillWeight = 30
     End Sub
     Private Sub Set_格式設定()
         確認新增_bt.Enabled = False : 儲存修改_bt.Enabled = False
@@ -162,9 +163,11 @@ Public Class 系統使用者管理
     Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.Click
         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
     End Sub
-
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        SQL_公告開啟()
+        SQL_公告開啟() : Set_使用者清單()
     End Sub
+    'Private Sub 大更新_bt_Click(sender As Object, e As EventArgs) Handles 大更新_bt.Click
+    '    SQL_大更新啟動() : Set_使用者清單()
+    'End Sub
     '*************************************************************************************************************************************
 End Class

GA-ERP-SYS/資料庫系統管理/系統執行檔版本管理.Designer.vb

@@ -34,13 +34,19 @@ Partial Class 系統執行檔版本管理
         Me.Label12 = New System.Windows.Forms.Label()
         Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
         Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.小更1 = New System.Windows.Forms.TextBox()
+        Me.小更2 = New System.Windows.Forms.TextBox()
+        Me.小更3 = New System.Windows.Forms.TextBox()
+        Me.小更4 = New System.Windows.Forms.TextBox()
+        Me.小更5 = New System.Windows.Forms.TextBox()
         Me.SuspendLayout()
         '
         '資料庫版本號_lb
         '
         Me.資料庫版本號_lb.AutoSize = True
         Me.資料庫版本號_lb.BackColor = System.Drawing.SystemColors.Control
-        Me.資料庫版本號_lb.Location = New System.Drawing.Point(469, 9)
+        Me.資料庫版本號_lb.Location = New System.Drawing.Point(795, 9)
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
         Me.資料庫版本號_lb.Size = New System.Drawing.Size(159, 16)
         Me.資料庫版本號_lb.TabIndex = 658
@@ -48,10 +54,10 @@ Partial Class 系統執行檔版本管理
         '
         '修改_bt
         '
-        Me.修改_bt.Location = New System.Drawing.Point(344, 4)
+        Me.修改_bt.Location = New System.Drawing.Point(735, 4)
         Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
         Me.修改_bt.Name = "修改_bt"
-        Me.修改_bt.Size = New System.Drawing.Size(122, 25)
+        Me.修改_bt.Size = New System.Drawing.Size(54, 25)
         Me.修改_bt.TabIndex = 652
         Me.修改_bt.Text = "修改"
         '
@@ -59,7 +65,7 @@ Partial Class 系統執行檔版本管理
         '
         Me.Label3.AutoSize = True
         Me.Label3.BackColor = System.Drawing.SystemColors.Control
-        Me.Label3.Location = New System.Drawing.Point(177, 9)
+        Me.Label3.Location = New System.Drawing.Point(163, 9)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(44, 16)
         Me.Label3.TabIndex = 651
@@ -68,17 +74,18 @@ Partial Class 系統執行檔版本管理
         '版本號_tb
         '
         Me.版本號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.版本號_tb.Location = New System.Drawing.Point(224, 5)
+        Me.版本號_tb.Location = New System.Drawing.Point(207, 5)
         Me.版本號_tb.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.版本號_tb.Name = "版本號_tb"
-        Me.版本號_tb.Size = New System.Drawing.Size(117, 23)
+        Me.版本號_tb.Size = New System.Drawing.Size(80, 23)
         Me.版本號_tb.TabIndex = 650
+        Me.版本號_tb.Text = "2020010101"
         '
         'Label13
         '
         Me.Label13.AutoSize = True
         Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label13.Location = New System.Drawing.Point(12, 9)
+        Me.Label13.Location = New System.Drawing.Point(8, 9)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(56, 16)
         Me.Label13.TabIndex = 660
@@ -88,7 +95,7 @@ Partial Class 系統執行檔版本管理
         '
         Me.讀取料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.讀取料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
-        Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(74, 5)
+        Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(65, 5)
         Me.讀取料夾路徑_bt.Name = "讀取料夾路徑_bt"
         Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(97, 24)
         Me.讀取料夾路徑_bt.TabIndex = 659
@@ -149,11 +156,72 @@ Partial Class 系統執行檔版本管理
         Me.WebBrowser1.TabIndex = 661
         Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
         '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.SystemColors.Control
+        Me.Label2.Location = New System.Drawing.Point(293, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(44, 16)
+        Me.Label2.TabIndex = 667
+        Me.Label2.Text = "小更新"
+        '
+        '小更1
+        '
+        Me.小更1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.小更1.Location = New System.Drawing.Point(337, 5)
+        Me.小更1.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
+        Me.小更1.Name = "小更1"
+        Me.小更1.Size = New System.Drawing.Size(80, 23)
+        Me.小更1.TabIndex = 666
+        '
+        '小更2
+        '
+        Me.小更2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.小更2.Location = New System.Drawing.Point(416, 5)
+        Me.小更2.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
+        Me.小更2.Name = "小更2"
+        Me.小更2.Size = New System.Drawing.Size(80, 23)
+        Me.小更2.TabIndex = 668
+        '
+        '小更3
+        '
+        Me.小更3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.小更3.Location = New System.Drawing.Point(495, 5)
+        Me.小更3.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
+        Me.小更3.Name = "小更3"
+        Me.小更3.Size = New System.Drawing.Size(80, 23)
+        Me.小更3.TabIndex = 669
+        '
+        '小更4
+        '
+        Me.小更4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.小更4.Location = New System.Drawing.Point(574, 5)
+        Me.小更4.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
+        Me.小更4.Name = "小更4"
+        Me.小更4.Size = New System.Drawing.Size(80, 23)
+        Me.小更4.TabIndex = 670
+        '
+        '小更5
+        '
+        Me.小更5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.小更5.Location = New System.Drawing.Point(653, 5)
+        Me.小更5.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
+        Me.小更5.Name = "小更5"
+        Me.小更5.Size = New System.Drawing.Size(80, 23)
+        Me.小更5.TabIndex = 671
+        '
         '系統執行檔版本管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.小更5)
+        Me.Controls.Add(Me.小更4)
+        Me.Controls.Add(Me.小更3)
+        Me.Controls.Add(Me.小更2)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.小更1)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.WebBrowser3)
         Me.Controls.Add(Me.Label12)
@@ -186,4 +254,10 @@ Partial Class 系統執行檔版本管理
     Friend WithEvents Label12 As Label
     Friend WithEvents WebBrowser2 As WebBrowser
     Friend WithEvents WebBrowser1 As WebBrowser
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 小更1 As TextBox
+    Friend WithEvents 小更2 As TextBox
+    Friend WithEvents 小更3 As TextBox
+    Friend WithEvents 小更4 As TextBox
+    Friend WithEvents 小更5 As TextBox
 End Class

GA-ERP-SYS/資料庫系統管理/系統執行檔版本管理.vb

@@ -7,7 +7,11 @@ Public Class 系統執行檔版本管理
         Target2 = Target & AA(1) & "/"
         WebBrowser3.Url = New Uri(Target2)
         SQL_系統版本號驗證()
-        If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close()
+        If dr.Read() Then
+            資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號")
+            小更1.Text = dr("小更新1") : 小更2.Text = dr("小更新2") : 小更3.Text = dr("小更新3")
+            小更4.Text = dr("小更新4") : 小更5.Text = dr("小更新5")
+        End If : conn.Close()
         If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
             WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
         End If
@@ -15,7 +19,6 @@ Public Class 系統執行檔版本管理
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
         SQL_版本號管理修改() : conn.Close() : SQL_系統版本號驗證()
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close() : SQL_公告開啟() : MsgBox("修改完成")
-        Me.Close()
     End Sub
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
         If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then

GA-ERP-SYS/資料庫系統管理/系統編碼規則.Designer.vb

@@ -22,10 +22,17 @@ Partial Class 系統編碼規則
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.密碼3_tb = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.帳號3_tb = New System.Windows.Forms.TextBox()
+        Me.IP3_tb = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.備份_cb = New System.Windows.Forms.CheckBox()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.密碼2_tb = New System.Windows.Forms.TextBox()
         Me.Label14 = New System.Windows.Forms.Label()
@@ -33,13 +40,13 @@ Partial Class 系統編碼規則
         Me.IP2_tb = New System.Windows.Forms.TextBox()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.資料庫_tb = New System.Windows.Forms.TextBox()
-        Me.Label5 = New System.Windows.Forms.Label()
         Me.客戶資料表_dgv = New System.Windows.Forms.DataGridView()
         Me.客戶表修改_bt = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.客戶表新增_bt = New System.Windows.Forms.Button()
         Me.客戶表刪除_bt = New System.Windows.Forms.Button()
         Me.客戶名_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.LOG資料庫_tb = New System.Windows.Forms.TextBox()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -64,13 +71,8 @@ Partial Class 系統編碼規則
         Me.LOG子_dgv = New System.Windows.Forms.DataGridView()
         Me.批量比對_bt = New System.Windows.Forms.Button()
         Me.刪除LOG檔_bt = New System.Windows.Forms.Button()
-        Me.備份_cb = New System.Windows.Forms.CheckBox()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.密碼3_tb = New System.Windows.Forms.TextBox()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.帳號3_tb = New System.Windows.Forms.TextBox()
-        Me.IP3_tb = New System.Windows.Forms.TextBox()
-        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label18 = New System.Windows.Forms.Label()
         Me.GroupBox3.SuspendLayout()
         CType(Me.客戶資料表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
@@ -109,11 +111,72 @@ Partial Class 系統編碼規則
         Me.GroupBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.GroupBox3.Name = "GroupBox3"
         Me.GroupBox3.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GroupBox3.Size = New System.Drawing.Size(934, 318)
+        Me.GroupBox3.Size = New System.Drawing.Size(1254, 318)
         Me.GroupBox3.TabIndex = 1500
         Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "客戶資料表"
         '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(514, 45)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(39, 16)
+        Me.Label3.TabIndex = 1519
+        Me.Label3.Text = "密碼2"
+        '
+        '密碼3_tb
+        '
+        Me.密碼3_tb.Location = New System.Drawing.Point(556, 42)
+        Me.密碼3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.密碼3_tb.Name = "密碼3_tb"
+        Me.密碼3_tb.Size = New System.Drawing.Size(124, 23)
+        Me.密碼3_tb.TabIndex = 1518
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(361, 45)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(39, 16)
+        Me.Label15.TabIndex = 1517
+        Me.Label15.Text = "帳號2"
+        '
+        '帳號3_tb
+        '
+        Me.帳號3_tb.Location = New System.Drawing.Point(403, 42)
+        Me.帳號3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.帳號3_tb.Name = "帳號3_tb"
+        Me.帳號3_tb.Size = New System.Drawing.Size(109, 23)
+        Me.帳號3_tb.TabIndex = 1516
+        '
+        'IP3_tb
+        '
+        Me.IP3_tb.Location = New System.Drawing.Point(205, 42)
+        Me.IP3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.IP3_tb.Name = "IP3_tb"
+        Me.IP3_tb.Size = New System.Drawing.Size(150, 23)
+        Me.IP3_tb.TabIndex = 1514
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(157, 45)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(49, 16)
+        Me.Label16.TabIndex = 1515
+        Me.Label16.Text = "IP位置2"
+        '
+        '備份_cb
+        '
+        Me.備份_cb.AutoSize = True
+        Me.備份_cb.Location = New System.Drawing.Point(702, 43)
+        Me.備份_cb.Name = "備份_cb"
+        Me.備份_cb.Size = New System.Drawing.Size(111, 20)
+        Me.備份_cb.TabIndex = 1513
+        Me.備份_cb.Text = "資料庫是否備份"
+        Me.備份_cb.UseVisualStyleBackColor = True
+        '
         'Label13
         '
         Me.Label13.AutoSize = True
@@ -174,19 +237,10 @@ Partial Class 系統編碼規則
         Me.資料庫_tb.Size = New System.Drawing.Size(108, 23)
         Me.資料庫_tb.TabIndex = 1006
         '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(4, 19)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(44, 16)
-        Me.Label5.TabIndex = 231
-        Me.Label5.Text = "客    戶"
-        '
         '客戶資料表_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.客戶資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.客戶資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.客戶資料表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -197,7 +251,7 @@ Partial Class 系統編碼規則
         Me.客戶資料表_dgv.Name = "客戶資料表_dgv"
         Me.客戶資料表_dgv.RowHeadersWidth = 5
         Me.客戶資料表_dgv.RowTemplate.Height = 24
-        Me.客戶資料表_dgv.Size = New System.Drawing.Size(925, 243)
+        Me.客戶資料表_dgv.Size = New System.Drawing.Size(1245, 243)
         Me.客戶資料表_dgv.TabIndex = 222
         '
         '客戶表修改_bt
@@ -253,6 +307,15 @@ Partial Class 系統編碼規則
         Me.客戶名_tb.Size = New System.Drawing.Size(108, 23)
         Me.客戶名_tb.TabIndex = 227
         '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(4, 19)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(44, 16)
+        Me.Label5.TabIndex = 231
+        Me.Label5.Text = "客    戶"
+        '
         'Label1
         '
         Me.Label1.AutoSize = True
@@ -354,8 +417,8 @@ Partial Class 系統編碼規則
         '
         'LOG總_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.LOG總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.LOG總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.LOG總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -365,7 +428,7 @@ Partial Class 系統編碼規則
         Me.LOG總_dgv.Name = "LOG總_dgv"
         Me.LOG總_dgv.RowHeadersWidth = 5
         Me.LOG總_dgv.RowTemplate.Height = 24
-        Me.LOG總_dgv.Size = New System.Drawing.Size(938, 164)
+        Me.LOG總_dgv.Size = New System.Drawing.Size(1258, 164)
         Me.LOG總_dgv.TabIndex = 1510
         '
         'GroupBox2
@@ -469,8 +532,8 @@ Partial Class 系統編碼規則
         '
         'LOG子_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.LOG子_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG子_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.LOG子_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.LOG子_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -480,7 +543,7 @@ Partial Class 系統編碼規則
         Me.LOG子_dgv.Name = "LOG子_dgv"
         Me.LOG子_dgv.RowHeadersWidth = 5
         Me.LOG子_dgv.RowTemplate.Height = 24
-        Me.LOG子_dgv.Size = New System.Drawing.Size(938, 164)
+        Me.LOG子_dgv.Size = New System.Drawing.Size(1258, 164)
         Me.LOG子_dgv.TabIndex = 1512
         '
         '批量比對_bt
@@ -488,7 +551,7 @@ Partial Class 系統編碼規則
         Me.批量比對_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.批量比對_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.批量比對_bt.ForeColor = System.Drawing.Color.DarkGreen
-        Me.批量比對_bt.Location = New System.Drawing.Point(828, 328)
+        Me.批量比對_bt.Location = New System.Drawing.Point(828, 322)
         Me.批量比對_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.批量比對_bt.Name = "批量比對_bt"
         Me.批量比對_bt.Size = New System.Drawing.Size(118, 40)
@@ -509,72 +572,33 @@ Partial Class 系統編碼規則
         Me.刪除LOG檔_bt.Text = "刪除LOG檔"
         Me.刪除LOG檔_bt.UseVisualStyleBackColor = True
         '
-        '備份_cb
-        '
-        Me.備份_cb.AutoSize = True
-        Me.備份_cb.Location = New System.Drawing.Point(702, 43)
-        Me.備份_cb.Name = "備份_cb"
-        Me.備份_cb.Size = New System.Drawing.Size(111, 20)
-        Me.備份_cb.TabIndex = 1513
-        Me.備份_cb.Text = "資料庫是否備份"
-        Me.備份_cb.UseVisualStyleBackColor = True
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(514, 45)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(39, 16)
-        Me.Label3.TabIndex = 1519
-        Me.Label3.Text = "密碼2"
-        '
-        '密碼3_tb
-        '
-        Me.密碼3_tb.Location = New System.Drawing.Point(556, 42)
-        Me.密碼3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.密碼3_tb.Name = "密碼3_tb"
-        Me.密碼3_tb.Size = New System.Drawing.Size(124, 23)
-        Me.密碼3_tb.TabIndex = 1518
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(361, 45)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(39, 16)
-        Me.Label15.TabIndex = 1517
-        Me.Label15.Text = "帳號2"
-        '
-        '帳號3_tb
-        '
-        Me.帳號3_tb.Location = New System.Drawing.Point(403, 42)
-        Me.帳號3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.帳號3_tb.Name = "帳號3_tb"
-        Me.帳號3_tb.Size = New System.Drawing.Size(109, 23)
-        Me.帳號3_tb.TabIndex = 1516
+        'Label17
         '
-        'IP3_tb
+        Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(952, 326)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(176, 32)
+        Me.Label17.TabIndex = 1515
+        Me.Label17.Text = "批量比對後，會把系統中當期無" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "資料的LOG檔案刪除。"
         '
-        Me.IP3_tb.Location = New System.Drawing.Point(205, 42)
-        Me.IP3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.IP3_tb.Name = "IP3_tb"
-        Me.IP3_tb.Size = New System.Drawing.Size(150, 23)
-        Me.IP3_tb.TabIndex = 1514
-        '
-        'Label16
+        'Label18
         '
-        Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(157, 45)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(49, 16)
-        Me.Label16.TabIndex = 1515
-        Me.Label16.Text = "IP位置2"
+        Me.Label18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(952, 370)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(189, 32)
+        Me.Label18.TabIndex = 1516
+        Me.Label18.Text = "在確定LOG檔案中的資料沒有參" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "考價值之後，可以將LOG檔清空。"
         '
         '系統編碼規則
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(951, 746)
+        Me.ClientSize = New System.Drawing.Size(1271, 746)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.Label17)
         Me.Controls.Add(Me.刪除LOG檔_bt)
         Me.Controls.Add(Me.批量比對_bt)
         Me.Controls.Add(Me.LOG子_dgv)
@@ -596,6 +620,7 @@ Partial Class 系統編碼規則
         Me.GroupBox2.PerformLayout()
         CType(Me.LOG子_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
     Friend WithEvents GroupBox3 As GroupBox
@@ -644,4 +669,6 @@ Partial Class 系統編碼規則
     Friend WithEvents 帳號3_tb As TextBox
     Friend WithEvents IP3_tb As TextBox
     Friend WithEvents Label16 As Label
+    Friend WithEvents Label17 As Label
+    Friend WithEvents Label18 As Label
 End Class

GA-ERP-SYS/資料庫系統管理/系統編碼規則.vb

@@ -7,9 +7,10 @@
         客戶資料表_dgv.AllowUserToAddRows = False
         SQL_客戶資料表()
         da.Fill(ds) : 客戶資料表_dgv.DataSource = ds.Tables(0) : conn.Close()
-        客戶資料表_dgv.Columns(0).FillWeight = 60 : 客戶資料表_dgv.Columns(1).FillWeight = 80 : 客戶資料表_dgv.Columns(2).FillWeight = 150 : 客戶資料表_dgv.Columns(3).FillWeight = 80
-        客戶資料表_dgv.Columns(4).FillWeight = 80 : 客戶資料表_dgv.Columns(5).FillWeight = 35 : 客戶資料表_dgv.Columns(6).FillWeight = 150 : 客戶資料表_dgv.Columns(7).FillWeight = 80
-        客戶資料表_dgv.Columns(8).FillWeight = 80
+        客戶資料表_dgv.Columns(0).FillWeight = 80 : 客戶資料表_dgv.Columns(1).FillWeight = 70 : 客戶資料表_dgv.Columns(2).FillWeight = 70 : 客戶資料表_dgv.Columns(3).FillWeight = 90
+        客戶資料表_dgv.Columns(4).FillWeight = 60 : 客戶資料表_dgv.Columns(5).FillWeight = 80 : 客戶資料表_dgv.Columns(6).FillWeight = 120 : 客戶資料表_dgv.Columns(7).FillWeight = 80
+        客戶資料表_dgv.Columns(8).FillWeight = 80 : 客戶資料表_dgv.Columns(9).FillWeight = 35 : 客戶資料表_dgv.Columns(10).FillWeight = 120 : 客戶資料表_dgv.Columns(11).FillWeight = 80
+        客戶資料表_dgv.Columns(12).FillWeight = 80
     End Sub
     Private Sub Set_LOG總()
         LOG總_dgv.DataSource = Nothing : ds1.Clear()

GA-ERP-SYS/資料庫系統管理/系統通用變數管理.Designer.vb

@@ -0,0 +1,399 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 系統通用變數管理
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.伺服器_lb = New System.Windows.Forms.Label()
+        Me.MAX_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.伺服器狀態_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.伺服器狀態1_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.資料庫清單1_dgv = New System.Windows.Forms.DataGridView()
+        Me.資料庫清單2_dgv = New System.Windows.Forms.DataGridView()
+        Me.資料庫清單3_dgv = New System.Windows.Forms.DataGridView()
+        Me.伺服器狀態2_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.LOG檔截斷1_bt = New System.Windows.Forms.Button()
+        Me.LOG檔截斷_bt = New System.Windows.Forms.Button()
+        Me.LOG檔截斷3_bt = New System.Windows.Forms.Button()
+        CType(Me.MAX_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.伺服器狀態_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.伺服器狀態1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel3.SuspendLayout()
+        CType(Me.資料庫清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.資料庫清單2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.資料庫清單3_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.伺服器狀態2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '重新讀取_bt
+        '
+        Me.重新讀取_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.重新讀取_bt.Location = New System.Drawing.Point(602, 1)
+        Me.重新讀取_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.重新讀取_bt.Name = "重新讀取_bt"
+        Me.重新讀取_bt.Size = New System.Drawing.Size(72, 23)
+        Me.重新讀取_bt.TabIndex = 700
+        Me.重新讀取_bt.Text = "重新讀取"
+        '
+        '伺服器_lb
+        '
+        Me.伺服器_lb.AutoSize = True
+        Me.伺服器_lb.BackColor = System.Drawing.SystemColors.Control
+        Me.伺服器_lb.Location = New System.Drawing.Point(282, 4)
+        Me.伺服器_lb.Name = "伺服器_lb"
+        Me.伺服器_lb.Size = New System.Drawing.Size(230, 16)
+        Me.伺服器_lb.TabIndex = 699
+        Me.伺服器_lb.Text = "伺服器中資料庫極限容量監控設定值 (MB)"
+        '
+        'MAX_nud
+        '
+        Me.MAX_nud.Location = New System.Drawing.Point(518, 1)
+        Me.MAX_nud.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.MAX_nud.Name = "MAX_nud"
+        Me.MAX_nud.Size = New System.Drawing.Size(83, 23)
+        Me.MAX_nud.TabIndex = 698
+        Me.MAX_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.MAX_nud.ThousandsSeparator = True
+        Me.MAX_nud.Value = New Decimal(New Integer() {1024, 0, 0, 0})
+        '
+        'Panel2
+        '
+        Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel2.Controls.Add(Me.伺服器狀態_dgv)
+        Me.Panel2.Location = New System.Drawing.Point(675, 27)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(669, 310)
+        Me.Panel2.TabIndex = 697
+        '
+        '伺服器狀態_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.White
+        Me.伺服器狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.伺服器狀態_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.伺服器狀態_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.伺服器狀態_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.伺服器狀態_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.伺服器狀態_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.伺服器狀態_dgv.Location = New System.Drawing.Point(1, 2)
+        Me.伺服器狀態_dgv.Name = "伺服器狀態_dgv"
+        Me.伺服器狀態_dgv.RowHeadersWidth = 5
+        Me.伺服器狀態_dgv.RowTemplate.Height = 24
+        Me.伺服器狀態_dgv.Size = New System.Drawing.Size(663, 303)
+        Me.伺服器狀態_dgv.TabIndex = 688
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.伺服器狀態1_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(676, 364)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(669, 310)
+        Me.Panel1.TabIndex = 701
+        '
+        '伺服器狀態1_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
+        Me.伺服器狀態1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.伺服器狀態1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.伺服器狀態1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.伺服器狀態1_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.伺服器狀態1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.伺服器狀態1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.伺服器狀態1_dgv.Location = New System.Drawing.Point(1, 2)
+        Me.伺服器狀態1_dgv.Name = "伺服器狀態1_dgv"
+        Me.伺服器狀態1_dgv.RowHeadersWidth = 5
+        Me.伺服器狀態1_dgv.RowTemplate.Height = 24
+        Me.伺服器狀態1_dgv.Size = New System.Drawing.Size(663, 303)
+        Me.伺服器狀態1_dgv.TabIndex = 688
+        '
+        'Panel3
+        '
+        Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel3.Controls.Add(Me.資料庫清單1_dgv)
+        Me.Panel3.Controls.Add(Me.資料庫清單2_dgv)
+        Me.Panel3.Controls.Add(Me.資料庫清單3_dgv)
+        Me.Panel3.Controls.Add(Me.伺服器狀態2_dgv)
+        Me.Panel3.Location = New System.Drawing.Point(5, 26)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(669, 650)
+        Me.Panel3.TabIndex = 702
+        '
+        '資料庫清單1_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.White
+        Me.資料庫清單1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.資料庫清單1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.資料庫清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.資料庫清單1_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.資料庫清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.資料庫清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.資料庫清單1_dgv.Location = New System.Drawing.Point(1, 129)
+        Me.資料庫清單1_dgv.Name = "資料庫清單1_dgv"
+        Me.資料庫清單1_dgv.RowHeadersWidth = 5
+        Me.資料庫清單1_dgv.RowTemplate.Height = 24
+        Me.資料庫清單1_dgv.Size = New System.Drawing.Size(220, 514)
+        Me.資料庫清單1_dgv.TabIndex = 691
+        '
+        '資料庫清單2_dgv
+        '
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.White
+        Me.資料庫清單2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.資料庫清單2_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.資料庫清單2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.資料庫清單2_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.資料庫清單2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
+        Me.資料庫清單2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.資料庫清單2_dgv.Location = New System.Drawing.Point(222, 129)
+        Me.資料庫清單2_dgv.Name = "資料庫清單2_dgv"
+        Me.資料庫清單2_dgv.RowHeadersWidth = 5
+        Me.資料庫清單2_dgv.RowTemplate.Height = 24
+        Me.資料庫清單2_dgv.Size = New System.Drawing.Size(220, 514)
+        Me.資料庫清單2_dgv.TabIndex = 690
+        '
+        '資料庫清單3_dgv
+        '
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.White
+        Me.資料庫清單3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.資料庫清單3_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.資料庫清單3_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.資料庫清單3_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.資料庫清單3_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
+        Me.資料庫清單3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.資料庫清單3_dgv.Location = New System.Drawing.Point(444, 129)
+        Me.資料庫清單3_dgv.Name = "資料庫清單3_dgv"
+        Me.資料庫清單3_dgv.RowHeadersWidth = 5
+        Me.資料庫清單3_dgv.RowTemplate.Height = 24
+        Me.資料庫清單3_dgv.Size = New System.Drawing.Size(220, 514)
+        Me.資料庫清單3_dgv.TabIndex = 689
+        '
+        '伺服器狀態2_dgv
+        '
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.White
+        Me.伺服器狀態2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.伺服器狀態2_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.伺服器狀態2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.伺服器狀態2_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.伺服器狀態2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        Me.伺服器狀態2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.伺服器狀態2_dgv.Location = New System.Drawing.Point(1, 2)
+        Me.伺服器狀態2_dgv.Name = "伺服器狀態2_dgv"
+        Me.伺服器狀態2_dgv.RowHeadersWidth = 5
+        Me.伺服器狀態2_dgv.RowTemplate.Height = 24
+        Me.伺服器狀態2_dgv.Size = New System.Drawing.Size(663, 126)
+        Me.伺服器狀態2_dgv.TabIndex = 688
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.SystemColors.Control
+        Me.Label1.Location = New System.Drawing.Point(5, 4)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 703
+        Me.Label1.Text = "主伺服器"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.SystemColors.Control
+        Me.Label2.Location = New System.Drawing.Point(675, 7)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(68, 16)
+        Me.Label2.TabIndex = 704
+        Me.Label2.Text = "計算伺服器"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.SystemColors.Control
+        Me.Label3.Location = New System.Drawing.Point(675, 345)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(68, 16)
+        Me.Label3.TabIndex = 705
+        Me.Label3.Text = "備份伺服器"
+        '
+        'LOG檔截斷1_bt
+        '
+        Me.LOG檔截斷1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LOG檔截斷1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG檔截斷1_bt.Location = New System.Drawing.Point(1270, 3)
+        Me.LOG檔截斷1_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG檔截斷1_bt.Name = "LOG檔截斷1_bt"
+        Me.LOG檔截斷1_bt.Size = New System.Drawing.Size(72, 23)
+        Me.LOG檔截斷1_bt.TabIndex = 706
+        Me.LOG檔截斷1_bt.Text = "LOG檔截斷"
+        '
+        'LOG檔截斷_bt
+        '
+        Me.LOG檔截斷_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LOG檔截斷_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG檔截斷_bt.Location = New System.Drawing.Point(1270, 338)
+        Me.LOG檔截斷_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG檔截斷_bt.Name = "LOG檔截斷_bt"
+        Me.LOG檔截斷_bt.Size = New System.Drawing.Size(72, 23)
+        Me.LOG檔截斷_bt.TabIndex = 707
+        Me.LOG檔截斷_bt.Text = "LOG檔截斷"
+        '
+        'LOG檔截斷3_bt
+        '
+        Me.LOG檔截斷3_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LOG檔截斷3_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG檔截斷3_bt.Location = New System.Drawing.Point(67, 1)
+        Me.LOG檔截斷3_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG檔截斷3_bt.Name = "LOG檔截斷3_bt"
+        Me.LOG檔截斷3_bt.Size = New System.Drawing.Size(72, 23)
+        Me.LOG檔截斷3_bt.TabIndex = 708
+        Me.LOG檔截斷3_bt.Text = "LOG檔截斷"
+        '
+        '系統通用變數管理
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1350, 681)
+        Me.Controls.Add(Me.LOG檔截斷3_bt)
+        Me.Controls.Add(Me.LOG檔截斷_bt)
+        Me.Controls.Add(Me.LOG檔截斷1_bt)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.重新讀取_bt)
+        Me.Controls.Add(Me.伺服器_lb)
+        Me.Controls.Add(Me.MAX_nud)
+        Me.Controls.Add(Me.Panel2)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "系統通用變數管理"
+        Me.Text = "系統通用變數管理"
+        CType(Me.MAX_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        CType(Me.伺服器狀態_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        CType(Me.伺服器狀態1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel3.ResumeLayout(False)
+        CType(Me.資料庫清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.資料庫清單2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.資料庫清單3_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.伺服器狀態2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 重新讀取_bt As Button
+    Friend WithEvents 伺服器_lb As Label
+    Friend WithEvents MAX_nud As NumericUpDown
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents 伺服器狀態_dgv As DataGridView
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 伺服器狀態1_dgv As DataGridView
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents 伺服器狀態2_dgv As DataGridView
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents LOG檔截斷1_bt As Button
+    Friend WithEvents LOG檔截斷_bt As Button
+    Friend WithEvents 資料庫清單3_dgv As DataGridView
+    Friend WithEvents 資料庫清單1_dgv As DataGridView
+    Friend WithEvents 資料庫清單2_dgv As DataGridView
+    Friend WithEvents LOG檔截斷3_bt As Button
+End Class

GA-ERP-SYS/資料庫系統管理/系統通用變數管理.resx

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

GA-ERP-SYS/資料庫系統管理/系統通用變數管理.vb

@@ -0,0 +1,171 @@
+Public Class 系統通用變數管理
+    Private Sub Set_伺服器狀態()
+        Dim ds8 As New DataSet : 伺服器狀態_dgv.DataSource = Nothing : ds8.Clear()
+        伺服器狀態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        伺服器狀態_dgv.ColumnHeadersHeight = 25
+        伺服器狀態_dgv.AllowUserToAddRows = False
+        SQL_資料庫狀態()
+        da.Fill(ds8) : 伺服器狀態_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        Set_進度條顯示()
+        伺服器狀態_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
+        伺服器狀態_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態_dgv.Columns(0).FillWeight = 100 : 伺服器狀態_dgv.Columns(1).FillWeight = 200
+        伺服器狀態_dgv.Columns(2).FillWeight = 50 : 伺服器狀態_dgv.Columns(3).FillWeight = 50
+        伺服器狀態_dgv.Columns(4).Visible = False
+    End Sub
+    Private Sub Set_進度條顯示()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "容量"
+        }
+        Col.HeaderText = "檔案大小(MB)" : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
+        伺服器狀態_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_備份伺服器狀態()
+        Dim ds8 As New DataSet : 伺服器狀態1_dgv.DataSource = Nothing : ds8.Clear()
+        伺服器狀態1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        伺服器狀態1_dgv.ColumnHeadersHeight = 25
+        伺服器狀態1_dgv.AllowUserToAddRows = False
+        SQL_備份資料庫狀態()
+        da.Fill(ds8) : 伺服器狀態1_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        Set_進度條顯示1()
+        伺服器狀態1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
+        伺服器狀態1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態1_dgv.Columns(0).FillWeight = 100 : 伺服器狀態1_dgv.Columns(1).FillWeight = 200
+        伺服器狀態1_dgv.Columns(2).FillWeight = 50 : 伺服器狀態1_dgv.Columns(3).FillWeight = 50
+        伺服器狀態1_dgv.Columns(4).Visible = False
+    End Sub
+    Private Sub Set_進度條顯示1()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "容量"
+        }
+        Col.HeaderText = "檔案大小(MB)" : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
+        伺服器狀態1_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_主伺服器狀態()
+        Dim ds8 As New DataSet : 伺服器狀態2_dgv.DataSource = Nothing : ds8.Clear()
+        伺服器狀態2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        伺服器狀態2_dgv.ColumnHeadersHeight = 25
+        伺服器狀態2_dgv.AllowUserToAddRows = False
+        SQL_主資料庫狀態()
+        da.Fill(ds8) : 伺服器狀態2_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        Set_進度條顯示2()
+        伺服器狀態2_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
+        伺服器狀態2_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態2_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態2_dgv.Columns(0).FillWeight = 100 : 伺服器狀態2_dgv.Columns(1).FillWeight = 200
+        伺服器狀態2_dgv.Columns(2).FillWeight = 50 : 伺服器狀態2_dgv.Columns(3).FillWeight = 50
+        伺服器狀態2_dgv.Columns(4).Visible = False
+    End Sub
+    Private Sub Set_進度條顯示2()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "容量"
+        }
+        Col.HeaderText = "檔案大小(MB)" : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
+        伺服器狀態2_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_伺服器1清單()
+        Dim ds8 As New DataSet : 資料庫清單1_dgv.DataSource = Nothing : ds8.Clear()
+        資料庫清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        資料庫清單1_dgv.ColumnHeadersHeight = 25
+        資料庫清單1_dgv.AllowUserToAddRows = False
+        SQL_伺服器1清單()
+        da.Fill(ds8) : 資料庫清單1_dgv.DataSource = ds8.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_伺服器2清單()
+        Dim ds8 As New DataSet : 資料庫清單2_dgv.DataSource = Nothing : ds8.Clear()
+        資料庫清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        資料庫清單2_dgv.ColumnHeadersHeight = 25
+        資料庫清單2_dgv.AllowUserToAddRows = False
+        SQL_伺服器2清單()
+        da.Fill(ds8) : 資料庫清單2_dgv.DataSource = ds8.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_伺服器3清單()
+        Dim ds8 As New DataSet : 資料庫清單3_dgv.DataSource = Nothing : ds8.Clear()
+        資料庫清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        資料庫清單3_dgv.ColumnHeadersHeight = 25
+        資料庫清單3_dgv.AllowUserToAddRows = False
+        SQL_伺服器3清單()
+        da.Fill(ds8) : 資料庫清單3_dgv.DataSource = ds8.Tables(0) : conn.Close()
+    End Sub
+    Private Sub 系統通用變數管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        重新讀取_bt.PerformClick()
+    End Sub
+    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
+        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
+        SQL_伺服器IP取得()
+        If dr.Read() Then
+            子SQL名稱2 = "GA-000" : 子SQL名稱3 = "GA-000" : 登入人IP4 = dr("IP位置") : 登入人IP5 = dr("備份IP")
+            業務帳號2 = dr("帳號") : 業務帳號3 = dr("備份帳號") : 業務密碼2 = dr("密碼") : 業務密碼3 = dr("密碼密碼")
+            SQL_連線字串_備份1() : SQL_連線字串_備份2()
+        End If
+        Set_伺服器狀態() : Set_備份伺服器狀態() : Set_主伺服器狀態() : Set_伺服器1清單() : Set_伺服器2清單() : Set_伺服器3清單()
+    End Sub
+    Private Sub 伺服器狀態_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 伺服器狀態_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 伺服器狀態_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 伺服器狀態_dgv(0, e.RowIndex).Value.ToString <> 伺服器狀態_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(伺服器狀態_dgv.RowHeadersVisible, 伺服器狀態_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 伺服器狀態_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 伺服器狀態_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 伺服器狀態1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 伺服器狀態1_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 伺服器狀態1_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 伺服器狀態1_dgv(0, e.RowIndex).Value.ToString <> 伺服器狀態1_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(伺服器狀態1_dgv.RowHeadersVisible, 伺服器狀態1_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 伺服器狀態1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 伺服器狀態1_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 伺服器狀態2_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 伺服器狀態2_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 伺服器狀態2_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 伺服器狀態2_dgv(0, e.RowIndex).Value.ToString <> 伺服器狀態2_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(伺服器狀態2_dgv.RowHeadersVisible, 伺服器狀態2_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 伺服器狀態2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 伺服器狀態2_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub LOG檔截斷_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷_bt.Click
+        For I As Integer = 0 To 資料庫清單3_dgv.Rows.Count - 1
+            PA = 資料庫清單3_dgv(0, I).Value.ToString : 子SQL名稱3 = 資料庫清單3_dgv(0, I).Value.ToString
+            SQL_連線字串_備份2() : SQL_備份資料庫LOG檔案截斷()
+        Next
+        重新讀取_bt.PerformClick()
+    End Sub
+    Private Sub LOG檔截斷1_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷1_bt.Click
+        For I As Integer = 0 To 資料庫清單2_dgv.Rows.Count - 1
+            PA = 資料庫清單2_dgv(0, I).Value.ToString : 子SQL名稱2 = 資料庫清單2_dgv(0, I).Value.ToString
+            SQL_連線字串_備份1() : SQL_計算資料庫LOG檔案截斷()
+        Next
+        重新讀取_bt.PerformClick()
+    End Sub
+    Private Sub LOG檔截斷3_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷3_bt.Click
+        For I As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
+            PA = 資料庫清單1_dgv(0, I).Value.ToString : SQL_主資料庫LOG檔案截斷()
+        Next
+        重新讀取_bt.PerformClick()
+    End Sub
+End Class

GA-ERP-SYS/資料庫系統管理/資料備份轉移.Designer.vb

@@ -32,119 +32,161 @@ Partial Class 資料備份轉移
         Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.客戶資料表_dgv = New System.Windows.Forms.DataGridView()
         Me.商品資料表_dgv = New System.Windows.Forms.DataGridView()
         Me.商客基本資料表_dgv = New System.Windows.Forms.DataGridView()
         Me.下行客戶_dgv = New System.Windows.Forms.DataGridView()
-        Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
         Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.資料轉移_bt = New System.Windows.Forms.Button()
-        Me.流水帳1_dgv = New System.Windows.Forms.DataGridView()
         Me.下行客戶1_dgv = New System.Windows.Forms.DataGridView()
         Me.商客基本資料表1_dgv = New System.Windows.Forms.DataGridView()
         Me.商品資料表1_dgv = New System.Windows.Forms.DataGridView()
         Me.資料庫_bt = New System.Windows.Forms.Button()
         Me.備份庫_bt = New System.Windows.Forms.Button()
-        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
         Me.除錯_dgv = New System.Windows.Forms.DataGridView()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.電板客戶_dgv = New System.Windows.Forms.DataGridView()
+        Me.電板客戶1_dgv = New System.Windows.Forms.DataGridView()
+        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.電板紙帳_dgv = New System.Windows.Forms.DataGridView()
+        Me.電板紙帳1_dgv = New System.Windows.Forms.DataGridView()
+        Me.電板股東紅利設定_dgv = New System.Windows.Forms.DataGridView()
+        Me.電板股東紅利設定1_dgv = New System.Windows.Forms.DataGridView()
+        Me.電板紙帳流水帳_dgv = New System.Windows.Forms.DataGridView()
+        Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
+        Me.流水帳1_dgv = New System.Windows.Forms.DataGridView()
+        Me.電板紙帳流水帳1_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.電板客戶所得_dgv = New System.Windows.Forms.DataGridView()
+        Me.電板客戶所得1_dgv = New System.Windows.Forms.DataGridView()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.新資料導入_bt = New System.Windows.Forms.Button()
+        Me.資料_lb = New System.Windows.Forms.Label()
+        Me.網址_dgv = New System.Windows.Forms.DataGridView()
+        Me.總網址庫_dgv = New System.Windows.Forms.DataGridView()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.全部取消_bt = New System.Windows.Forms.Button()
+        Me.全部選擇_bt = New System.Windows.Forms.Button()
+        Me.資料刪除_bt = New System.Windows.Forms.Button()
         CType(Me.客戶資料表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.商品資料表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.商客基本資料表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.下行客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.流水帳1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.下行客戶1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.商客基本資料表1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.商品資料表1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabControl1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板客戶1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage3.SuspendLayout()
+        CType(Me.電板紙帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板紙帳1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板股東紅利設定_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板股東紅利設定1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板紙帳流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.流水帳1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板紙帳流水帳1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板客戶所得_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板客戶所得1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage1.SuspendLayout()
+        CType(Me.網址_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.總網址庫_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '客戶資料表_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.LavenderBlush
         Me.客戶資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.客戶資料表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.客戶資料表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶資料表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.客戶資料表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶資料表_dgv.Location = New System.Drawing.Point(8, 30)
+        Me.客戶資料表_dgv.Location = New System.Drawing.Point(3, 30)
         Me.客戶資料表_dgv.Name = "客戶資料表_dgv"
         Me.客戶資料表_dgv.RowHeadersWidth = 4
         Me.客戶資料表_dgv.RowTemplate.Height = 24
-        Me.客戶資料表_dgv.Size = New System.Drawing.Size(1132, 165)
+        Me.客戶資料表_dgv.Size = New System.Drawing.Size(568, 626)
         Me.客戶資料表_dgv.TabIndex = 1
         '
         '商品資料表_dgv
         '
         DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.商品資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.商品資料表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.商品資料表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.商品資料表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.商品資料表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.商品資料表_dgv.Location = New System.Drawing.Point(8, 216)
+        Me.商品資料表_dgv.Location = New System.Drawing.Point(1, 229)
         Me.商品資料表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.商品資料表_dgv.Name = "商品資料表_dgv"
         Me.商品資料表_dgv.RowHeadersWidth = 5
         Me.商品資料表_dgv.RowTemplate.Height = 24
-        Me.商品資料表_dgv.Size = New System.Drawing.Size(280, 457)
+        Me.商品資料表_dgv.Size = New System.Drawing.Size(378, 190)
         Me.商品資料表_dgv.TabIndex = 1511
         '
         '商客基本資料表_dgv
         '
         DataGridViewCellStyle3.BackColor = System.Drawing.Color.Lavender
         Me.商客基本資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.商客基本資料表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.商客基本資料表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.商客基本資料表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.商客基本資料表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.商客基本資料表_dgv.Location = New System.Drawing.Point(292, 216)
+        Me.商客基本資料表_dgv.Location = New System.Drawing.Point(1, 19)
         Me.商客基本資料表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.商客基本資料表_dgv.Name = "商客基本資料表_dgv"
         Me.商客基本資料表_dgv.RowHeadersWidth = 5
         Me.商客基本資料表_dgv.RowTemplate.Height = 24
-        Me.商客基本資料表_dgv.Size = New System.Drawing.Size(280, 457)
+        Me.商客基本資料表_dgv.Size = New System.Drawing.Size(696, 190)
         Me.商客基本資料表_dgv.TabIndex = 1512
         '
         '下行客戶_dgv
         '
         DataGridViewCellStyle4.BackColor = System.Drawing.Color.Ivory
         Me.下行客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.下行客戶_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.下行客戶_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.下行客戶_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.下行客戶_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.下行客戶_dgv.Location = New System.Drawing.Point(576, 216)
+        Me.下行客戶_dgv.Location = New System.Drawing.Point(1, 439)
         Me.下行客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.下行客戶_dgv.Name = "下行客戶_dgv"
         Me.下行客戶_dgv.RowHeadersWidth = 5
         Me.下行客戶_dgv.RowTemplate.Height = 24
-        Me.下行客戶_dgv.Size = New System.Drawing.Size(280, 457)
+        Me.下行客戶_dgv.Size = New System.Drawing.Size(696, 204)
         Me.下行客戶_dgv.TabIndex = 1513
         '
-        '流水帳_dgv
-        '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.Gainsboro
-        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.流水帳_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.流水帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.流水帳_dgv.Location = New System.Drawing.Point(860, 216)
-        Me.流水帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.流水帳_dgv.Name = "流水帳_dgv"
-        Me.流水帳_dgv.RowHeadersWidth = 5
-        Me.流水帳_dgv.RowTemplate.Height = 24
-        Me.流水帳_dgv.Size = New System.Drawing.Size(280, 457)
-        Me.流水帳_dgv.TabIndex = 1514
-        '
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(11, 198)
+        Me.Label1.Location = New System.Drawing.Point(4, 213)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(68, 16)
         Me.Label1.TabIndex = 1515
@@ -153,7 +195,7 @@ Partial Class 資料備份轉移
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(294, 198)
+        Me.Label2.Location = New System.Drawing.Point(4, 3)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(92, 16)
         Me.Label2.TabIndex = 1516
@@ -162,26 +204,17 @@ Partial Class 資料備份轉移
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(578, 198)
+        Me.Label3.Location = New System.Drawing.Point(4, 423)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(56, 16)
         Me.Label3.TabIndex = 1517
         Me.Label3.Text = "下行客戶"
         '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(862, 198)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(44, 16)
-        Me.Label4.TabIndex = 1518
-        Me.Label4.Text = "流水帳"
-        '
         '日期_dtp
         '
-        Me.日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.日期_dtp.CustomFormat = "yyyy-MM-dd"
         Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.日期_dtp.Location = New System.Drawing.Point(55, 3)
+        Me.日期_dtp.Location = New System.Drawing.Point(47, 3)
         Me.日期_dtp.Name = "日期_dtp"
         Me.日期_dtp.Size = New System.Drawing.Size(89, 23)
         Me.日期_dtp.TabIndex = 1519
@@ -189,7 +222,7 @@ Partial Class 資料備份轉移
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(11, 7)
+        Me.Label5.Location = New System.Drawing.Point(3, 7)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(44, 16)
         Me.Label5.TabIndex = 1520
@@ -198,87 +231,75 @@ Partial Class 資料備份轉移
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(146, 7)
+        Me.Label6.Location = New System.Drawing.Point(138, 7)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(188, 16)
+        Me.Label6.Size = New System.Drawing.Size(128, 16)
         Me.Label6.TabIndex = 1521
-        Me.Label6.Text = "之前的資料全數轉移到備份伺服器"
+        Me.Label6.Text = "之前的流水帳全部刪除"
         '
         '資料轉移_bt
         '
         Me.資料轉移_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.資料轉移_bt.Location = New System.Drawing.Point(340, 2)
+        Me.資料轉移_bt.Location = New System.Drawing.Point(496, 2)
         Me.資料轉移_bt.Name = "資料轉移_bt"
         Me.資料轉移_bt.Size = New System.Drawing.Size(75, 25)
         Me.資料轉移_bt.TabIndex = 1522
         Me.資料轉移_bt.Text = "資料轉移"
         Me.資料轉移_bt.UseVisualStyleBackColor = True
         '
-        '流水帳1_dgv
+        '下行客戶1_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Gainsboro
-        Me.流水帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
-        Me.流水帳1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.Ivory
+        Me.下行客戶1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.下行客戶1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.流水帳1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.流水帳1_dgv.Location = New System.Drawing.Point(860, 216)
-        Me.流水帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.流水帳1_dgv.Name = "流水帳1_dgv"
-        Me.流水帳1_dgv.RowHeadersWidth = 5
-        Me.流水帳1_dgv.RowTemplate.Height = 24
-        Me.流水帳1_dgv.Size = New System.Drawing.Size(280, 457)
-        Me.流水帳1_dgv.TabIndex = 1526
-        '
-        '下行客戶1_dgv
-        '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Ivory
-        Me.下行客戶1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
-        Me.下行客戶1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.下行客戶1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.下行客戶1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.下行客戶1_dgv.Location = New System.Drawing.Point(576, 216)
+        Me.下行客戶1_dgv.Location = New System.Drawing.Point(1, 439)
         Me.下行客戶1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.下行客戶1_dgv.Name = "下行客戶1_dgv"
         Me.下行客戶1_dgv.RowHeadersWidth = 5
         Me.下行客戶1_dgv.RowTemplate.Height = 24
-        Me.下行客戶1_dgv.Size = New System.Drawing.Size(280, 457)
+        Me.下行客戶1_dgv.Size = New System.Drawing.Size(696, 204)
         Me.下行客戶1_dgv.TabIndex = 1525
         '
         '商客基本資料表1_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.Lavender
-        Me.商客基本資料表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
-        Me.商客基本資料表1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Lavender
+        Me.商客基本資料表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.商客基本資料表1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.商客基本資料表1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.商客基本資料表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.商客基本資料表1_dgv.Location = New System.Drawing.Point(292, 216)
+        Me.商客基本資料表1_dgv.Location = New System.Drawing.Point(1, 19)
         Me.商客基本資料表1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.商客基本資料表1_dgv.Name = "商客基本資料表1_dgv"
         Me.商客基本資料表1_dgv.RowHeadersWidth = 5
         Me.商客基本資料表1_dgv.RowTemplate.Height = 24
-        Me.商客基本資料表1_dgv.Size = New System.Drawing.Size(280, 457)
+        Me.商客基本資料表1_dgv.Size = New System.Drawing.Size(696, 190)
         Me.商客基本資料表1_dgv.TabIndex = 1524
         '
         '商品資料表1_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.商品資料表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
-        Me.商品資料表1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.商品資料表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.商品資料表1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.商品資料表1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.商品資料表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.商品資料表1_dgv.Location = New System.Drawing.Point(8, 216)
+        Me.商品資料表1_dgv.Location = New System.Drawing.Point(1, 229)
         Me.商品資料表1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.商品資料表1_dgv.Name = "商品資料表1_dgv"
         Me.商品資料表1_dgv.RowHeadersWidth = 5
         Me.商品資料表1_dgv.RowTemplate.Height = 24
-        Me.商品資料表1_dgv.Size = New System.Drawing.Size(280, 457)
+        Me.商品資料表1_dgv.Size = New System.Drawing.Size(378, 190)
         Me.商品資料表1_dgv.TabIndex = 1523
         '
         '資料庫_bt
         '
         Me.資料庫_bt.ForeColor = System.Drawing.Color.Green
-        Me.資料庫_bt.Location = New System.Drawing.Point(421, 2)
+        Me.資料庫_bt.Location = New System.Drawing.Point(848, 2)
         Me.資料庫_bt.Name = "資料庫_bt"
         Me.資料庫_bt.Size = New System.Drawing.Size(75, 25)
         Me.資料庫_bt.TabIndex = 1527
@@ -288,66 +309,466 @@ Partial Class 資料備份轉移
         '備份庫_bt
         '
         Me.備份庫_bt.ForeColor = System.Drawing.Color.Green
-        Me.備份庫_bt.Location = New System.Drawing.Point(500, 2)
+        Me.備份庫_bt.Location = New System.Drawing.Point(927, 2)
         Me.備份庫_bt.Name = "備份庫_bt"
         Me.備份庫_bt.Size = New System.Drawing.Size(75, 25)
         Me.備份庫_bt.TabIndex = 1528
         Me.備份庫_bt.Text = "備份庫"
         Me.備份庫_bt.UseVisualStyleBackColor = True
         '
-        'ProgressBar1
-        '
-        Me.ProgressBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.ProgressBar1.Location = New System.Drawing.Point(8, 675)
-        Me.ProgressBar1.Maximum = 10000
-        Me.ProgressBar1.Name = "ProgressBar1"
-        Me.ProgressBar1.Size = New System.Drawing.Size(1132, 20)
-        Me.ProgressBar1.TabIndex = 1529
-        '
         '除錯_dgv
         '
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         Me.除錯_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.除錯_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.除錯_dgv.Location = New System.Drawing.Point(434, 34)
+        Me.除錯_dgv.Location = New System.Drawing.Point(51, 43)
         Me.除錯_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.除錯_dgv.Name = "除錯_dgv"
         Me.除錯_dgv.RowHeadersWidth = 4
         Me.除錯_dgv.RowTemplate.Height = 24
-        Me.除錯_dgv.Size = New System.Drawing.Size(243, 140)
+        Me.除錯_dgv.Size = New System.Drawing.Size(0, 75)
         Me.除錯_dgv.TabIndex = 1551
         Me.除錯_dgv.Visible = False
         '
+        'TabControl1
+        '
+        Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TabControl1.Appearance = System.Windows.Forms.TabAppearance.Buttons
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Controls.Add(Me.TabPage3)
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Location = New System.Drawing.Point(572, 2)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(710, 681)
+        Me.TabControl1.TabIndex = 1555
+        '
+        'TabPage2
+        '
+        Me.TabPage2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage2.Controls.Add(Me.Label8)
+        Me.TabPage2.Controls.Add(Me.Label2)
+        Me.TabPage2.Controls.Add(Me.商品資料表1_dgv)
+        Me.TabPage2.Controls.Add(Me.下行客戶_dgv)
+        Me.TabPage2.Controls.Add(Me.下行客戶1_dgv)
+        Me.TabPage2.Controls.Add(Me.商客基本資料表_dgv)
+        Me.TabPage2.Controls.Add(Me.商客基本資料表1_dgv)
+        Me.TabPage2.Controls.Add(Me.商品資料表_dgv)
+        Me.TabPage2.Controls.Add(Me.Label1)
+        Me.TabPage2.Controls.Add(Me.Label3)
+        Me.TabPage2.Controls.Add(Me.電板客戶_dgv)
+        Me.TabPage2.Controls.Add(Me.電板客戶1_dgv)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 28)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(702, 649)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "資料表資訊1"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(383, 213)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(56, 16)
+        Me.Label8.TabIndex = 1528
+        Me.Label8.Text = "電板客戶"
+        '
+        '電板客戶_dgv
+        '
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.電板客戶_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板客戶_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板客戶_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板客戶_dgv.Location = New System.Drawing.Point(381, 229)
+        Me.電板客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板客戶_dgv.Name = "電板客戶_dgv"
+        Me.電板客戶_dgv.RowHeadersWidth = 5
+        Me.電板客戶_dgv.RowTemplate.Height = 24
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(316, 190)
+        Me.電板客戶_dgv.TabIndex = 1527
+        '
+        '電板客戶1_dgv
+        '
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.電板客戶1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.電板客戶1_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板客戶1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板客戶1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板客戶1_dgv.Location = New System.Drawing.Point(381, 229)
+        Me.電板客戶1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板客戶1_dgv.Name = "電板客戶1_dgv"
+        Me.電板客戶1_dgv.RowHeadersWidth = 5
+        Me.電板客戶1_dgv.RowTemplate.Height = 24
+        Me.電板客戶1_dgv.Size = New System.Drawing.Size(316, 190)
+        Me.電板客戶1_dgv.TabIndex = 1526
+        '
+        'TabPage3
+        '
+        Me.TabPage3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage3.Controls.Add(Me.Label10)
+        Me.TabPage3.Controls.Add(Me.Label9)
+        Me.TabPage3.Controls.Add(Me.Label7)
+        Me.TabPage3.Controls.Add(Me.Label4)
+        Me.TabPage3.Controls.Add(Me.電板紙帳_dgv)
+        Me.TabPage3.Controls.Add(Me.電板紙帳1_dgv)
+        Me.TabPage3.Controls.Add(Me.電板股東紅利設定_dgv)
+        Me.TabPage3.Controls.Add(Me.電板股東紅利設定1_dgv)
+        Me.TabPage3.Controls.Add(Me.電板紙帳流水帳_dgv)
+        Me.TabPage3.Controls.Add(Me.流水帳_dgv)
+        Me.TabPage3.Controls.Add(Me.流水帳1_dgv)
+        Me.TabPage3.Controls.Add(Me.電板紙帳流水帳1_dgv)
+        Me.TabPage3.Controls.Add(Me.Label11)
+        Me.TabPage3.Controls.Add(Me.電板客戶所得_dgv)
+        Me.TabPage3.Controls.Add(Me.電板客戶所得1_dgv)
+        Me.TabPage3.Location = New System.Drawing.Point(4, 28)
+        Me.TabPage3.Name = "TabPage3"
+        Me.TabPage3.Size = New System.Drawing.Size(702, 649)
+        Me.TabPage3.TabIndex = 2
+        Me.TabPage3.Text = "資料表資訊2"
+        Me.TabPage3.UseVisualStyleBackColor = True
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(403, 2)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(104, 16)
+        Me.Label10.TabIndex = 1565
+        Me.Label10.Text = "電板股東紅利設定"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(203, 2)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(85, 16)
+        Me.Label9.TabIndex = 1562
+        Me.Label9.Text = "電板客戶_所得"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 2)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.TabIndex = 1559
+        Me.Label7.Text = "電板紙帳"
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 499)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(44, 16)
+        Me.Label4.TabIndex = 1556
+        Me.Label4.Text = "流水帳"
+        '
+        '電板紙帳_dgv
+        '
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.Gainsboro
+        Me.電板紙帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.電板紙帳_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.電板紙帳_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板紙帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板紙帳_dgv.Location = New System.Drawing.Point(1, 18)
+        Me.電板紙帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板紙帳_dgv.Name = "電板紙帳_dgv"
+        Me.電板紙帳_dgv.RowHeadersWidth = 5
+        Me.電板紙帳_dgv.RowTemplate.Height = 24
+        Me.電板紙帳_dgv.Size = New System.Drawing.Size(199, 335)
+        Me.電板紙帳_dgv.TabIndex = 1560
+        '
+        '電板紙帳1_dgv
+        '
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.Gainsboro
+        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        Me.電板紙帳1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.電板紙帳1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板紙帳1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板紙帳1_dgv.Location = New System.Drawing.Point(1, 18)
+        Me.電板紙帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板紙帳1_dgv.Name = "電板紙帳1_dgv"
+        Me.電板紙帳1_dgv.RowHeadersWidth = 5
+        Me.電板紙帳1_dgv.RowTemplate.Height = 24
+        Me.電板紙帳1_dgv.Size = New System.Drawing.Size(199, 335)
+        Me.電板紙帳1_dgv.TabIndex = 1558
+        '
+        '電板股東紅利設定_dgv
+        '
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板股東紅利設定_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.電板股東紅利設定_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板股東紅利設定_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板股東紅利設定_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板股東紅利設定_dgv.Location = New System.Drawing.Point(401, 18)
+        Me.電板股東紅利設定_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板股東紅利設定_dgv.Name = "電板股東紅利設定_dgv"
+        Me.電板股東紅利設定_dgv.RowHeadersWidth = 5
+        Me.電板股東紅利設定_dgv.RowTemplate.Height = 24
+        Me.電板股東紅利設定_dgv.Size = New System.Drawing.Size(296, 335)
+        Me.電板股東紅利設定_dgv.TabIndex = 1566
+        '
+        '電板股東紅利設定1_dgv
+        '
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板股東紅利設定1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.電板股東紅利設定1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板股東紅利設定1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板股東紅利設定1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板股東紅利設定1_dgv.Location = New System.Drawing.Point(401, 18)
+        Me.電板股東紅利設定1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板股東紅利設定1_dgv.Name = "電板股東紅利設定1_dgv"
+        Me.電板股東紅利設定1_dgv.RowHeadersWidth = 5
+        Me.電板股東紅利設定1_dgv.RowTemplate.Height = 24
+        Me.電板股東紅利設定1_dgv.Size = New System.Drawing.Size(296, 335)
+        Me.電板股東紅利設定1_dgv.TabIndex = 1564
+        '
+        '電板紙帳流水帳_dgv
+        '
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板紙帳流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        Me.電板紙帳流水帳_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板紙帳流水帳_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板紙帳流水帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板紙帳流水帳_dgv.Location = New System.Drawing.Point(1, 370)
+        Me.電板紙帳流水帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板紙帳流水帳_dgv.Name = "電板紙帳流水帳_dgv"
+        Me.電板紙帳流水帳_dgv.RowHeadersWidth = 5
+        Me.電板紙帳流水帳_dgv.RowTemplate.Height = 24
+        Me.電板紙帳流水帳_dgv.Size = New System.Drawing.Size(696, 129)
+        Me.電板紙帳流水帳_dgv.TabIndex = 1567
+        '
+        '流水帳_dgv
+        '
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        Me.流水帳_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.流水帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.流水帳_dgv.Location = New System.Drawing.Point(1, 515)
+        Me.流水帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.流水帳_dgv.Name = "流水帳_dgv"
+        Me.流水帳_dgv.RowHeadersWidth = 5
+        Me.流水帳_dgv.RowTemplate.Height = 24
+        Me.流水帳_dgv.Size = New System.Drawing.Size(696, 129)
+        Me.流水帳_dgv.TabIndex = 1555
+        '
+        '流水帳1_dgv
+        '
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.流水帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.流水帳1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.流水帳1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.流水帳1_dgv.Location = New System.Drawing.Point(1, 515)
+        Me.流水帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.流水帳1_dgv.Name = "流水帳1_dgv"
+        Me.流水帳1_dgv.RowHeadersWidth = 5
+        Me.流水帳1_dgv.RowTemplate.Height = 24
+        Me.流水帳1_dgv.Size = New System.Drawing.Size(696, 129)
+        Me.流水帳1_dgv.TabIndex = 1557
+        '
+        '電板紙帳流水帳1_dgv
+        '
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板紙帳流水帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
+        Me.電板紙帳流水帳1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板紙帳流水帳1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板紙帳流水帳1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板紙帳流水帳1_dgv.Location = New System.Drawing.Point(1, 370)
+        Me.電板紙帳流水帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板紙帳流水帳1_dgv.Name = "電板紙帳流水帳1_dgv"
+        Me.電板紙帳流水帳1_dgv.RowHeadersWidth = 5
+        Me.電板紙帳流水帳1_dgv.RowTemplate.Height = 24
+        Me.電板紙帳流水帳1_dgv.Size = New System.Drawing.Size(696, 129)
+        Me.電板紙帳流水帳1_dgv.TabIndex = 1569
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(3, 354)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(92, 16)
+        Me.Label11.TabIndex = 1568
+        Me.Label11.Text = "電板紙帳流水帳"
+        '
+        '電板客戶所得_dgv
+        '
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板客戶所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        Me.電板客戶所得_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.電板客戶所得_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板客戶所得_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板客戶所得_dgv.Location = New System.Drawing.Point(201, 18)
+        Me.電板客戶所得_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板客戶所得_dgv.Name = "電板客戶所得_dgv"
+        Me.電板客戶所得_dgv.RowHeadersWidth = 5
+        Me.電板客戶所得_dgv.RowTemplate.Height = 24
+        Me.電板客戶所得_dgv.Size = New System.Drawing.Size(199, 335)
+        Me.電板客戶所得_dgv.TabIndex = 1563
+        '
+        '電板客戶所得1_dgv
+        '
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板客戶所得1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.電板客戶所得1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.電板客戶所得1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板客戶所得1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.電板客戶所得1_dgv.Location = New System.Drawing.Point(201, 18)
+        Me.電板客戶所得1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板客戶所得1_dgv.Name = "電板客戶所得1_dgv"
+        Me.電板客戶所得1_dgv.RowHeadersWidth = 5
+        Me.電板客戶所得1_dgv.RowTemplate.Height = 24
+        Me.電板客戶所得1_dgv.Size = New System.Drawing.Size(199, 335)
+        Me.電板客戶所得1_dgv.TabIndex = 1561
+        '
+        'TabPage1
+        '
+        Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage1.Controls.Add(Me.新資料導入_bt)
+        Me.TabPage1.Controls.Add(Me.資料_lb)
+        Me.TabPage1.Controls.Add(Me.網址_dgv)
+        Me.TabPage1.Controls.Add(Me.總網址庫_dgv)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 28)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(702, 649)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "新建資料表準備"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        '新資料導入_bt
+        '
+        Me.新資料導入_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.新資料導入_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新資料導入_bt.Location = New System.Drawing.Point(547, 3)
+        Me.新資料導入_bt.Name = "新資料導入_bt"
+        Me.新資料導入_bt.Size = New System.Drawing.Size(150, 25)
+        Me.新資料導入_bt.TabIndex = 1555
+        Me.新資料導入_bt.Text = "新資料庫基本資料導入"
+        Me.新資料導入_bt.UseVisualStyleBackColor = True
+        '
+        '資料_lb
+        '
+        Me.資料_lb.AutoSize = True
+        Me.資料_lb.Location = New System.Drawing.Point(6, 7)
+        Me.資料_lb.Name = "資料_lb"
+        Me.資料_lb.Size = New System.Drawing.Size(248, 16)
+        Me.資料_lb.TabIndex = 1554
+        Me.資料_lb.Text = "比對網頁資料，該資料庫無須導入基本資料。"
+        '
+        '網址_dgv
+        '
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.網址_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        Me.網址_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.網址_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.網址_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.網址_dgv.Location = New System.Drawing.Point(1, 525)
+        Me.網址_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.網址_dgv.Name = "網址_dgv"
+        Me.網址_dgv.RowHeadersWidth = 4
+        Me.網址_dgv.RowTemplate.Height = 24
+        Me.網址_dgv.Size = New System.Drawing.Size(696, 119)
+        Me.網址_dgv.TabIndex = 1553
+        '
+        '總網址庫_dgv
+        '
+        DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.總網址庫_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
+        Me.總網址庫_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.總網址庫_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.總網址庫_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.總網址庫_dgv.Location = New System.Drawing.Point(1, 32)
+        Me.總網址庫_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.總網址庫_dgv.Name = "總網址庫_dgv"
+        Me.總網址庫_dgv.RowHeadersWidth = 4
+        Me.總網址庫_dgv.RowTemplate.Height = 24
+        Me.總網址庫_dgv.Size = New System.Drawing.Size(696, 492)
+        Me.總網址庫_dgv.TabIndex = 1552
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.ProgressBar1.Location = New System.Drawing.Point(3, 658)
+        Me.ProgressBar1.Maximum = 10000
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(568, 20)
+        Me.ProgressBar1.TabIndex = 1529
+        '
+        '全部取消_bt
+        '
+        Me.全部取消_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.全部取消_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.全部取消_bt.Location = New System.Drawing.Point(430, 2)
+        Me.全部取消_bt.Name = "全部取消_bt"
+        Me.全部取消_bt.Size = New System.Drawing.Size(65, 25)
+        Me.全部取消_bt.TabIndex = 1557
+        Me.全部取消_bt.Text = "批量取消"
+        Me.全部取消_bt.UseVisualStyleBackColor = True
+        '
+        '全部選擇_bt
+        '
+        Me.全部選擇_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.全部選擇_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.全部選擇_bt.Location = New System.Drawing.Point(364, 2)
+        Me.全部選擇_bt.Name = "全部選擇_bt"
+        Me.全部選擇_bt.Size = New System.Drawing.Size(65, 25)
+        Me.全部選擇_bt.TabIndex = 1556
+        Me.全部選擇_bt.Text = "批量選擇"
+        Me.全部選擇_bt.UseVisualStyleBackColor = True
+        '
+        '資料刪除_bt
+        '
+        Me.資料刪除_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.資料刪除_bt.Location = New System.Drawing.Point(267, 2)
+        Me.資料刪除_bt.Name = "資料刪除_bt"
+        Me.資料刪除_bt.Size = New System.Drawing.Size(75, 25)
+        Me.資料刪除_bt.TabIndex = 1558
+        Me.資料刪除_bt.Text = "資料刪除"
+        Me.資料刪除_bt.UseVisualStyleBackColor = True
+        '
         '資料備份轉移
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1147, 698)
+        Me.ClientSize = New System.Drawing.Size(1282, 681)
+        Me.Controls.Add(Me.資料刪除_bt)
+        Me.Controls.Add(Me.全部取消_bt)
+        Me.Controls.Add(Me.全部選擇_bt)
         Me.Controls.Add(Me.除錯_dgv)
         Me.Controls.Add(Me.ProgressBar1)
         Me.Controls.Add(Me.備份庫_bt)
         Me.Controls.Add(Me.資料庫_bt)
-        Me.Controls.Add(Me.流水帳1_dgv)
-        Me.Controls.Add(Me.下行客戶1_dgv)
-        Me.Controls.Add(Me.商品資料表1_dgv)
         Me.Controls.Add(Me.資料轉移_bt)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.日期_dtp)
-        Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.流水帳_dgv)
-        Me.Controls.Add(Me.下行客戶_dgv)
-        Me.Controls.Add(Me.商品資料表_dgv)
         Me.Controls.Add(Me.客戶資料表_dgv)
-        Me.Controls.Add(Me.商客基本資料表1_dgv)
-        Me.Controls.Add(Me.商客基本資料表_dgv)
+        Me.Controls.Add(Me.TabControl1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "資料備份轉移"
@@ -356,12 +777,31 @@ Partial Class 資料備份轉移
         CType(Me.商品資料表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.商客基本資料表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.下行客戶_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.流水帳1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.下行客戶1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.商客基本資料表1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.商品資料表1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.TabPage2.PerformLayout()
+        CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板客戶1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage3.ResumeLayout(False)
+        Me.TabPage3.PerformLayout()
+        CType(Me.電板紙帳_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板紙帳1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板股東紅利設定_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板股東紅利設定1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板紙帳流水帳_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.流水帳1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板紙帳流水帳1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板客戶所得_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板客戶所得1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage1.PerformLayout()
+        CType(Me.網址_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.總網址庫_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -371,21 +811,47 @@ Partial Class 資料備份轉移
     Friend WithEvents 商品資料表_dgv As DataGridView
     Friend WithEvents 商客基本資料表_dgv As DataGridView
     Friend WithEvents 下行客戶_dgv As DataGridView
-    Friend WithEvents 流水帳_dgv As DataGridView
     Friend WithEvents Label1 As Label
     Friend WithEvents Label2 As Label
     Friend WithEvents Label3 As Label
-    Friend WithEvents Label4 As Label
     Friend WithEvents 日期_dtp As DateTimePicker
     Friend WithEvents Label5 As Label
     Friend WithEvents Label6 As Label
     Friend WithEvents 資料轉移_bt As Button
-    Friend WithEvents 流水帳1_dgv As DataGridView
     Friend WithEvents 下行客戶1_dgv As DataGridView
     Friend WithEvents 商客基本資料表1_dgv As DataGridView
     Friend WithEvents 商品資料表1_dgv As DataGridView
     Friend WithEvents 資料庫_bt As Button
     Friend WithEvents 備份庫_bt As Button
-    Friend WithEvents ProgressBar1 As ProgressBar
     Friend WithEvents 除錯_dgv As DataGridView
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents TabPage1 As TabPage
+    Friend WithEvents 總網址庫_dgv As DataGridView
+    Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents 網址_dgv As DataGridView
+    Friend WithEvents 新資料導入_bt As Button
+    Friend WithEvents 資料_lb As Label
+    Friend WithEvents TabPage3 As TabPage
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 電板紙帳_dgv As DataGridView
+    Friend WithEvents 電板紙帳1_dgv As DataGridView
+    Friend WithEvents 流水帳_dgv As DataGridView
+    Friend WithEvents 流水帳1_dgv As DataGridView
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 電板客戶_dgv As DataGridView
+    Friend WithEvents 電板客戶1_dgv As DataGridView
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 電板客戶所得_dgv As DataGridView
+    Friend WithEvents 電板股東紅利設定_dgv As DataGridView
+    Friend WithEvents 電板客戶所得1_dgv As DataGridView
+    Friend WithEvents 電板股東紅利設定1_dgv As DataGridView
+    Friend WithEvents 電板紙帳流水帳_dgv As DataGridView
+    Friend WithEvents 電板紙帳流水帳1_dgv As DataGridView
+    Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents 全部取消_bt As Button
+    Friend WithEvents 全部選擇_bt As Button
+    Friend WithEvents 資料刪除_bt As Button
 End Class

GA-ERP-SYS/資料庫系統管理/資料備份轉移.vb

@@ -1,6 +1,7 @@
 Public Class 資料備份轉移
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet : Public 連接 As String
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds11, ds12, ds13, ds14, ds15, ds16, ds17, ds18, ds19, ds20 As New DataSet : Public 連接 As String
     Public 平均數1 As Integer : Public 最終數1 As Integer = 0 : Public 資料數1 As Integer = 0
+    Dim GP As Integer = 0 : Dim GPP As String
     Private Sub Set_客戶資料清單()
         客戶資料表_dgv.DataSource = Nothing : ds.Clear()
         客戶資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -8,33 +9,111 @@
         客戶資料表_dgv.AllowUserToAddRows = False
         SQL_客戶資料庫()
         da.Fill(ds) : 客戶資料表_dgv.DataSource = ds.Tables(0) : conn.Close()
-        客戶資料表_dgv.Columns(0).FillWeight = 60 : 客戶資料表_dgv.Columns(1).FillWeight = 80 : 客戶資料表_dgv.Columns(2).FillWeight = 150 : 客戶資料表_dgv.Columns(3).FillWeight = 80
-        客戶資料表_dgv.Columns(4).FillWeight = 80 : 客戶資料表_dgv.Columns(5).FillWeight = 35 : 客戶資料表_dgv.Columns(6).FillWeight = 150 : 客戶資料表_dgv.Columns(7).FillWeight = 80
-        客戶資料表_dgv.Columns(8).FillWeight = 80
+        客戶資料表_dgv.Columns(0).FillWeight = 50 : 客戶資料表_dgv.Columns(1).FillWeight = 60 : 客戶資料表_dgv.Columns(2).FillWeight = 120 : 客戶資料表_dgv.Columns(3).Visible = False
+        客戶資料表_dgv.Columns(4).Visible = False : 客戶資料表_dgv.Columns(5).FillWeight = 35 : 客戶資料表_dgv.Columns(6).FillWeight = 120 : 客戶資料表_dgv.Columns(7).Visible = False
+        客戶資料表_dgv.Columns(8).Visible = False : 客戶資料表_dgv.Columns(9).FillWeight = 60
     End Sub
-    Private Sub Set_清單1()
-        商品資料表_dgv.DataSource = Nothing : ds1.Clear()
-        商品資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        商品資料表_dgv.ColumnHeadersHeight = 25
-        商品資料表_dgv.AllowUserToAddRows = False
-        SQL_資料庫轉換1()
-        da.Fill(ds1) : 商品資料表_dgv.DataSource = ds1.Tables(0) : conn.Close()
+    Private Sub Set_總網址庫()
+        總網址庫_dgv.DataSource = Nothing : ds9.Clear()
+        總網址庫_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        總網址庫_dgv.ColumnHeadersHeight = 25
+        總網址庫_dgv.AllowUserToAddRows = False
+        SQL_網址同步1()
+        da.Fill(ds9) : 總網址庫_dgv.DataSource = ds9.Tables(0) : conn.Close()
+        總網址庫_dgv.Columns(0).FillWeight = 60 : 總網址庫_dgv.Columns(1).FillWeight = 60 : 總網址庫_dgv.Columns(2).FillWeight = 60 : 總網址庫_dgv.Columns(3).FillWeight = 60
     End Sub
-    Private Sub Set_清單2()
-        商客基本資料表_dgv.DataSource = Nothing : ds2.Clear()
-        商客基本資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        商客基本資料表_dgv.ColumnHeadersHeight = 25
-        商客基本資料表_dgv.AllowUserToAddRows = False
-        SQL_資料庫轉換2()
-        da.Fill(ds2) : 商客基本資料表_dgv.DataSource = ds2.Tables(0) : conn.Close()
+    Private Sub Set_個別網址庫()
+        網址_dgv.DataSource = Nothing : ds10.Clear()
+        網址_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        網址_dgv.ColumnHeadersHeight = 25
+        網址_dgv.AllowUserToAddRows = False
+        SQL_網址同步3()
+        da.Fill(ds10) : 網址_dgv.DataSource = ds10.Tables(0) : conn.Close()
+        網址_dgv.Columns(0).FillWeight = 60 : 網址_dgv.Columns(1).FillWeight = 60 : 網址_dgv.Columns(2).FillWeight = 60 : 網址_dgv.Columns(3).FillWeight = 60
     End Sub
-    Private Sub Set_清單3()
-        下行客戶_dgv.DataSource = Nothing : ds3.Clear()
-        下行客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        下行客戶_dgv.ColumnHeadersHeight = 25
-        下行客戶_dgv.AllowUserToAddRows = False
-        SQL_資料庫轉換3()
-        da.Fill(ds3) : 下行客戶_dgv.DataSource = ds3.Tables(0) : conn.Close()
+    Private Sub Set_清單9()
+        電板客戶_dgv.DataSource = Nothing : ds11.Clear()
+        電板客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板客戶_dgv.ColumnHeadersHeight = 25
+        電板客戶_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換5()
+        da.Fill(ds11) : 電板客戶_dgv.DataSource = ds11.Tables(0) : conn.Close()
+        電板客戶_dgv.Columns(1).FillWeight = 50 : 電板客戶_dgv.Columns(2).FillWeight = 50 : 電板客戶_dgv.Columns(3).FillWeight = 50
+        電板客戶_dgv.Columns(4).FillWeight = 50 : 電板客戶_dgv.Columns(5).FillWeight = 50
+    End Sub
+    Private Sub Set_清單10()
+        電板客戶1_dgv.DataSource = Nothing : ds12.Clear()
+        電板客戶1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板客戶1_dgv.ColumnHeadersHeight = 25
+        電板客戶1_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換5_1()
+        da.Fill(ds12) : 電板客戶1_dgv.DataSource = ds12.Tables(0) : conn.Close()
+        電板客戶1_dgv.Columns(1).FillWeight = 50 : 電板客戶1_dgv.Columns(2).FillWeight = 50 : 電板客戶1_dgv.Columns(3).FillWeight = 50
+        電板客戶1_dgv.Columns(4).FillWeight = 50 : 電板客戶1_dgv.Columns(5).FillWeight = 50
+    End Sub
+    Private Sub Set_清單11()
+        電板紙帳_dgv.DataSource = Nothing : ds13.Clear()
+        電板紙帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板紙帳_dgv.ColumnHeadersHeight = 25
+        電板紙帳_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換6()
+        da.Fill(ds13) : 電板紙帳_dgv.DataSource = ds13.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單12()
+        電板紙帳1_dgv.DataSource = Nothing : ds14.Clear()
+        電板紙帳1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板紙帳1_dgv.ColumnHeadersHeight = 25
+        電板紙帳1_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換6_1()
+        da.Fill(ds14) : 電板紙帳1_dgv.DataSource = ds14.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單13()
+        電板客戶所得_dgv.DataSource = Nothing : ds15.Clear()
+        電板客戶所得_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板客戶所得_dgv.ColumnHeadersHeight = 25
+        電板客戶所得_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換7()
+        da.Fill(ds15) : 電板客戶所得_dgv.DataSource = ds15.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單14()
+        電板客戶所得1_dgv.DataSource = Nothing : ds16.Clear()
+        電板客戶所得1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板客戶所得1_dgv.ColumnHeadersHeight = 25
+        電板客戶所得1_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換7_1()
+        da.Fill(ds16) : 電板客戶所得1_dgv.DataSource = ds16.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單15()
+        電板股東紅利設定_dgv.DataSource = Nothing : ds17.Clear()
+        電板股東紅利設定_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板股東紅利設定_dgv.ColumnHeadersHeight = 25
+        電板股東紅利設定_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換8()
+        da.Fill(ds17) : 電板股東紅利設定_dgv.DataSource = ds17.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單16()
+        電板股東紅利設定1_dgv.DataSource = Nothing : ds18.Clear()
+        電板股東紅利設定1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板股東紅利設定1_dgv.ColumnHeadersHeight = 25
+        電板股東紅利設定1_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換8_1()
+        da.Fill(ds18) : 電板股東紅利設定1_dgv.DataSource = ds18.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單17()
+        電板紙帳流水帳_dgv.DataSource = Nothing : ds19.Clear()
+        電板紙帳流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板紙帳流水帳_dgv.ColumnHeadersHeight = 25
+        電板紙帳流水帳_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換9()
+        da.Fill(ds19) : 電板紙帳流水帳_dgv.DataSource = ds19.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單18()
+        電板紙帳流水帳1_dgv.DataSource = Nothing : ds20.Clear()
+        電板紙帳流水帳1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板紙帳流水帳1_dgv.ColumnHeadersHeight = 25
+        電板紙帳流水帳1_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換9_1()
+        da.Fill(ds20) : 電板紙帳流水帳1_dgv.DataSource = ds20.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_清單4()
         流水帳_dgv.DataSource = Nothing : ds4.Clear()
@@ -44,6 +123,24 @@
         SQL_資料庫轉換4()
         da.Fill(ds4) : 流水帳_dgv.DataSource = ds4.Tables(0) : conn.Close()
     End Sub
+    Private Sub Set_清單8()
+        流水帳1_dgv.DataSource = Nothing : ds8.Clear()
+        流水帳1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        流水帳1_dgv.ColumnHeadersHeight = 25
+        流水帳1_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換4_1()
+        da.Fill(ds8) : 流水帳1_dgv.DataSource = ds8.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單1()
+        商品資料表_dgv.DataSource = Nothing : ds1.Clear()
+        商品資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        商品資料表_dgv.ColumnHeadersHeight = 25
+        商品資料表_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換1()
+        da.Fill(ds1) : 商品資料表_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        商品資料表_dgv.Columns(0).FillWeight = 50 : 商品資料表_dgv.Columns(1).FillWeight = 50 : 商品資料表_dgv.Columns(2).FillWeight = 50
+        商品資料表_dgv.Columns(3).FillWeight = 50
+    End Sub
     Private Sub Set_清單5()
         商品資料表1_dgv.DataSource = Nothing : ds5.Clear()
         商品資料表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -51,6 +148,16 @@
         商品資料表1_dgv.AllowUserToAddRows = False
         SQL_資料庫轉換1_1()
         da.Fill(ds5) : 商品資料表1_dgv.DataSource = ds5.Tables(0) : conn.Close()
+        商品資料表1_dgv.Columns(0).FillWeight = 50 : 商品資料表1_dgv.Columns(1).FillWeight = 50 : 商品資料表1_dgv.Columns(2).FillWeight = 50
+        商品資料表1_dgv.Columns(3).FillWeight = 50
+    End Sub
+    Private Sub Set_清單2()
+        商客基本資料表_dgv.DataSource = Nothing : ds2.Clear()
+        商客基本資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        商客基本資料表_dgv.ColumnHeadersHeight = 25
+        商客基本資料表_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換2()
+        da.Fill(ds2) : 商客基本資料表_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_清單6()
         商客基本資料表1_dgv.DataSource = Nothing : ds6.Clear()
@@ -60,6 +167,17 @@
         SQL_資料庫轉換2_1()
         da.Fill(ds6) : 商客基本資料表1_dgv.DataSource = ds6.Tables(0) : conn.Close()
     End Sub
+    Private Sub Set_清單3()
+        下行客戶_dgv.DataSource = Nothing : ds3.Clear()
+        下行客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        下行客戶_dgv.ColumnHeadersHeight = 25
+        下行客戶_dgv.AllowUserToAddRows = False
+        SQL_資料庫轉換3()
+        da.Fill(ds3) : 下行客戶_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        下行客戶_dgv.Columns(0).FillWeight = 50 : 下行客戶_dgv.Columns(1).FillWeight = 100 : 下行客戶_dgv.Columns(2).FillWeight = 50 : 下行客戶_dgv.Columns(3).FillWeight = 50
+        下行客戶_dgv.Columns(4).FillWeight = 50 : 下行客戶_dgv.Columns(5).FillWeight = 50 : 下行客戶_dgv.Columns(6).FillWeight = 20 : 下行客戶_dgv.Columns(7).FillWeight = 20
+        下行客戶_dgv.Columns(8).FillWeight = 20 : 下行客戶_dgv.Columns(9).FillWeight = 50 : 下行客戶_dgv.Columns(10).FillWeight = 20 : 下行客戶_dgv.Columns(11).FillWeight = 50
+    End Sub
     Private Sub Set_清單7()
         下行客戶1_dgv.DataSource = Nothing : ds7.Clear()
         下行客戶1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -67,21 +185,24 @@
         下行客戶1_dgv.AllowUserToAddRows = False
         SQL_資料庫轉換3_1()
         da.Fill(ds7) : 下行客戶1_dgv.DataSource = ds7.Tables(0) : conn.Close()
-    End Sub
-    Private Sub Set_清單8()
-        流水帳1_dgv.DataSource = Nothing : ds8.Clear()
-        流水帳1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        流水帳1_dgv.ColumnHeadersHeight = 25
-        流水帳1_dgv.AllowUserToAddRows = False
-        SQL_資料庫轉換4_1()
-        da.Fill(ds8) : 流水帳1_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        下行客戶1_dgv.Columns(0).FillWeight = 50 : 下行客戶1_dgv.Columns(1).FillWeight = 100 : 下行客戶1_dgv.Columns(2).FillWeight = 50 : 下行客戶1_dgv.Columns(3).FillWeight = 50
+        下行客戶1_dgv.Columns(4).FillWeight = 50 : 下行客戶1_dgv.Columns(5).FillWeight = 50 : 下行客戶1_dgv.Columns(6).FillWeight = 20 : 下行客戶1_dgv.Columns(7).FillWeight = 20
+        下行客戶1_dgv.Columns(8).FillWeight = 20 : 下行客戶1_dgv.Columns(9).FillWeight = 50 : 下行客戶1_dgv.Columns(10).FillWeight = 20 : 下行客戶1_dgv.Columns(11).FillWeight = 50
     End Sub
     Private Sub 資料備份轉移_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         資料庫_bt.Enabled = False : 備份庫_bt.Enabled = True
-        商品資料表_dgv.Visible = True : 商客基本資料表_dgv.Visible = True : 下行客戶_dgv.Visible = True : 流水帳_dgv.Visible = True
-        商品資料表1_dgv.Visible = False : 商客基本資料表1_dgv.Visible = False : 下行客戶1_dgv.Visible = False : 流水帳1_dgv.Visible = False
-        Set_客戶資料清單()
+        商品資料表_dgv.Visible = True : 商客基本資料表_dgv.Visible = True : 下行客戶_dgv.Visible = True : 流水帳_dgv.Visible = True : 電板客戶_dgv.Visible = True
+        電板紙帳_dgv.Visible = True : 電板客戶所得_dgv.Visible = True : 電板股東紅利設定_dgv.Visible = True : 電板紙帳流水帳_dgv.Visible = True
+        商品資料表1_dgv.Visible = False : 商客基本資料表1_dgv.Visible = False : 下行客戶1_dgv.Visible = False : 流水帳1_dgv.Visible = False : 電板客戶1_dgv.Visible = False
+        電板紙帳1_dgv.Visible = False : 電板客戶所得1_dgv.Visible = False : 電板股東紅利設定1_dgv.Visible = False : 電板紙帳流水帳1_dgv.Visible = False
+
+        Set_客戶資料清單() : Set_總網址庫()
+        資料_lb.Text = "比對網頁資料，該資料庫無須導入基本資料。" : 新資料導入_bt.Enabled = False
+    End Sub
+    Private Sub 資料備份轉移_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        客戶資料表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        總網址庫_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
     End Sub
     Private Sub Set_修正清單()
         除錯_dgv.DataSource = Nothing : ds4.Clear()
@@ -107,65 +228,133 @@
             登入人IP4 = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString : 登入人IP5 = 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString
             業務帳號2 = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", e.RowIndex).Value.ToString
             業務密碼2 = 客戶資料表_dgv("密碼", e.RowIndex).Value.ToString : 業務密碼3 = 客戶資料表_dgv("備份密碼", e.RowIndex).Value.ToString
-            SQL_連線字串_備份1() : 連接 = 1 : Set_修正清單() : SQL_連線字串_備份2() : 連接 = 2 : Set_修正清單()
-            Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8()
+            SQL_連線字串_備份1() : 連接 = 1 : Set_修正清單()
+            SQL_連線字串_備份2() : 連接 = 2 : Set_修正清單()
+            Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10()
+            Set_清單11() : Set_清單12() : Set_清單13() : Set_清單14() : Set_清單15() : Set_清單16() : Set_清單17() : Set_清單18()
+            Set_個別網址庫()
+            If 網址_dgv.Rows.Count = 0 Then
+                資料_lb.Text = "比對網頁資料，該資料庫因該導入基本資料。" : 新資料導入_bt.Enabled = True
+            Else
+                資料_lb.Text = "比對網頁資料，該資料庫無須導入基本資料。" : 新資料導入_bt.Enabled = False
+            End If
         End If
     End Sub
     Private Sub 資料轉移_bt_Click(sender As Object, e As EventArgs) Handles 資料轉移_bt.Click
         Dim aa As MsgBoxResult = MsgBox("即將啟動資料庫轉移?", MsgBoxStyle.OkCancel)
         If aa = MsgBoxResult.Ok Then
-            Dim DT1, DT2 As DateTime
-            資料數1 = 客戶資料表_dgv.Rows.Count * 4
+            資料數1 = 客戶資料表_dgv.Rows.Count * 7
             For i As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
-                SQL_資料庫轉換1_刪除() : 資料數 = 商品資料表_dgv.Rows.Count : 進度條1()
-                For ii As Integer = 0 To 商品資料表_dgv.Rows.Count - 1
-                    MyModule1.進度條()
-                    SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址 FROM 商品資料表"
-                    PA = 商品資料表_dgv("商品", ii).Value : PA1 = 商品資料表_dgv("編號", ii).Value : PA2 = 商品資料表_dgv("系統", ii).Value
-                    PA3 = 商品資料表_dgv("層級", ii).Value : PA4 = 商品資料表_dgv("網址", ii).Value
-                    SQL_資料庫轉換1_新增()
-                Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
-                SQL_資料庫轉換2_刪除() : 資料數 = 商客基本資料表_dgv.Rows.Count : 進度條1()
-                For ii As Integer = 0 To 商客基本資料表_dgv.Rows.Count - 1
-                    MyModule1.進度條()
-                    PA = 商客基本資料表_dgv("網址", ii).Value : PA1 = 商客基本資料表_dgv("帳號", ii).Value : PA2 = 商客基本資料表_dgv("密碼", ii).Value
-                    PA3 = 商客基本資料表_dgv("資料", ii).Value : PA4 = 商客基本資料表_dgv("上繳源", ii).Value : PA5 = 商客基本資料表_dgv("商品", ii).Value
-                    PA6 = 商客基本資料表_dgv("上行基數", ii).Value : PA7 = 商客基本資料表_dgv("下行基數", ii).Value : PA8 = 商客基本資料表_dgv("驗證", ii).Value
-                    SQL_資料庫轉換2_新增()
-                Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
-                SQL_資料庫轉換3_刪除() : 資料數 = 下行客戶_dgv.Rows.Count : 進度條1()
-                For ii As Integer = 0 To 下行客戶_dgv.Rows.Count - 1
-                    MyModule1.進度條()
-                    PA = 下行客戶_dgv("客戶下", ii).Value : PA1 = 下行客戶_dgv("網址", ii).Value : PA2 = 下行客戶_dgv("帳號", ii).Value
-                    PA3 = 下行客戶_dgv("基數", ii).Value : PA4 = 下行客戶_dgv("流水號", ii).Value : PA5 = 下行客戶_dgv("客名", ii).Value
-                    PA6 = 下行客戶_dgv("計算", ii).Value : PA7 = 下行客戶_dgv("同帳", ii).Value : PA8 = 下行客戶_dgv("所得", ii).Value
-                    PA9 = 下行客戶_dgv("所得另算", ii).Value : PA10 = 下行客戶_dgv("下層", ii).Value
-                    SQL_資料庫轉換3_新增()
-                Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
-                資料數 = 下行客戶_dgv.Rows.Count : 進度條1()
-                For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
-                    MyModule1.進度條()
-                    DT1 = 日期_dtp.Value : DT2 = 流水帳_dgv("結束日期", ii).Value
-                    If DT1 >= DT2 Then
-                        PA = 流水帳_dgv("index", ii).Value : PA1 = 流水帳_dgv("開始日期", ii).Value : PA2 = 流水帳_dgv("結束日期", ii).Value
-                        PA3 = 流水帳_dgv("網址", ii).Value : PA4 = 流水帳_dgv("帳戶", ii).Value : PA5 = 流水帳_dgv("隨機碼", ii).Value
-                        PA6 = 流水帳_dgv("名稱", ii).Value.ToString : PA7 = 流水帳_dgv("總量", ii).Value.ToString : PA8 = 流水帳_dgv("退水", ii).Value.ToString
-                        PA9 = 流水帳_dgv("中獎", ii).Value.ToString : PA10 = 流水帳_dgv("輸贏", ii).Value.ToString : PA11 = 流水帳_dgv("佔成輸贏", ii).Value.ToString
-                        PA12 = 流水帳_dgv("水倍差", ii).Value.ToString : PA13 = 流水帳_dgv("上繳金額", ii).Value.ToString : PA14 = 流水帳_dgv("自已總輸贏", ii).Value.ToString
-                        PA15 = 流水帳_dgv("上繳貢獻額", ii).Value.ToString : PA16 = 流水帳_dgv("貢獻額", ii).Value.ToString : PA17 = 流水帳_dgv("貢獻度", ii).Value.ToString
-                        PA18 = 流水帳_dgv("下注明細", ii).Value.ToString : PA19 = 流水帳_dgv("玩法明細", ii).Value.ToString : PA20 = 流水帳_dgv("調盤退水", ii).Value.ToString
-                        PA21 = 流水帳_dgv("調退實佔", ii).Value.ToString : PA22 = 流水帳_dgv("上繳", ii).Value.ToString : PA23 = 流水帳_dgv("會員", ii).Value.ToString
-                        PA24 = 流水帳_dgv("代理", ii).Value.ToString : PA25 = 流水帳_dgv("總代理", ii).Value.ToString : PA26 = 流水帳_dgv("股東", ii).Value.ToString
-                        PA27 = 流水帳_dgv("大股東", ii).Value.ToString : PA28 = 流水帳_dgv("客戶s", ii).Value.ToString : PA29 = 流水帳_dgv("總量s", ii).Value.ToString
-                        PA30 = 流水帳_dgv("中獎s", ii).Value.ToString : PA31 = 流水帳_dgv("輸贏s", ii).Value.ToString : PA32 = 流水帳_dgv("客戶小計s", ii).Value.ToString
-                        PA33 = 流水帳_dgv("代理小計s", ii).Value.ToString : PA34 = 流水帳_dgv("總代理小計s", ii).Value.ToString : PA35 = 流水帳_dgv("股東小計s", ii).Value.ToString
-                        PA36 = 流水帳_dgv("大股東小計s", ii).Value.ToString : PA37 = 流水帳_dgv("總監小計s", ii).Value.ToString : PA38 = 流水帳_dgv("個人所得s", ii).Value.ToString
-                        PA39 = 流水帳_dgv("水差s", ii).Value.ToString : PA40 = 流水帳_dgv("下注明細s", ii).Value.ToString : PA41 = 流水帳_dgv("查看對帳s", ii).Value.ToString
-                        PA42 = 流水帳_dgv("總監", ii).Value.ToString
-                        ConnOpen_備份1() : SQL_資料庫轉換4_刪除() : ConnOpen_備份2() : SQL_資料庫轉換4_刪除() : SQL_資料庫轉換4_新增()
-                    End If
-                Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+                If 客戶資料表_dgv.Rows(i).Cells("備份").Value = True Then
+                    子SQL名稱2 = 客戶資料表_dgv("資料庫", i).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", i).Value.ToString
+                    登入人IP4 = 客戶資料表_dgv("IP位置", i).Value.ToString : 登入人IP5 = 客戶資料表_dgv("備份IP", i).Value.ToString
+                    業務帳號2 = 客戶資料表_dgv("帳號", i).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", i).Value.ToString
+                    業務密碼2 = 客戶資料表_dgv("密碼", i).Value.ToString : 業務密碼3 = 客戶資料表_dgv("備份密碼", i).Value.ToString
+                    SQL_連線字串_備份1() : 連接 = 1 : Set_修正清單()
+                    SQL_連線字串_備份2() : 連接 = 2 : Set_修正清單()
+                    Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10()
+                    Set_清單11() : Set_清單12() : Set_清單13() : Set_清單14() : Set_清單15() : Set_清單16() : Set_清單17() : Set_清單18()
+
+                    SQL_資料庫轉換1_刪除() : 資料數 = 商品資料表_dgv.Rows.Count : 進度條1()
+                    For ii As Integer = 0 To 商品資料表_dgv.Rows.Count - 1
+                        MyModule1.進度條()
+                        PA = 商品資料表_dgv("商品", ii).Value.ToString : PA1 = 商品資料表_dgv("編號", ii).Value.ToString : PA2 = 商品資料表_dgv("系統", ii).Value.ToString
+                        PA3 = 商品資料表_dgv("層級", ii).Value.ToString : PA4 = 商品資料表_dgv("網址", ii).Value.ToString
+                        SQL_資料庫轉換1_新增()
+                    Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                    SQL_資料庫轉換2_刪除() : 資料數 = 商客基本資料表_dgv.Rows.Count : 進度條1()
+                    For ii As Integer = 0 To 商客基本資料表_dgv.Rows.Count - 1
+                        MyModule1.進度條()
+                        PA = 商客基本資料表_dgv("網址", ii).Value.ToString : PA1 = 商客基本資料表_dgv("帳號", ii).Value.ToString : PA2 = 商客基本資料表_dgv("密碼", ii).Value.ToString
+                        PA3 = 商客基本資料表_dgv("資料", ii).Value.ToString : PA4 = 商客基本資料表_dgv("上繳源", ii).Value.ToString : PA5 = 商客基本資料表_dgv("商品", ii).Value.ToString
+                        PA6 = 商客基本資料表_dgv("上行基數", ii).Value.ToString : PA7 = 商客基本資料表_dgv("下行基數", ii).Value.ToString : PA8 = 商客基本資料表_dgv("驗證", ii).Value.ToString
+                        SQL_資料庫轉換2_新增()
+                    Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                    SQL_資料庫轉換3_刪除() : 資料數 = 下行客戶_dgv.Rows.Count : 進度條1()
+                    For ii As Integer = 0 To 下行客戶_dgv.Rows.Count - 1
+                        MyModule1.進度條()
+                        PA = 下行客戶_dgv("客戶下", ii).Value.ToString : PA1 = 下行客戶_dgv("網址", ii).Value.ToString : PA2 = 下行客戶_dgv("帳號", ii).Value.ToString
+                        PA3 = 下行客戶_dgv("基數", ii).Value.ToString : PA4 = 下行客戶_dgv("流水號", ii).Value.ToString : PA5 = 下行客戶_dgv("客名", ii).Value.ToString
+                        PA9 = 下行客戶_dgv("所得另算", ii).Value.ToString : PA11 = 下行客戶_dgv("水差另算", ii).Value.ToString
+                        If IsDBNull(下行客戶_dgv("同帳", ii).Value) = True Then : 下行客戶_dgv("同帳", ii).Value = False : End If
+                        If IsDBNull(下行客戶_dgv("計算", ii).Value) = True Then : 下行客戶_dgv("計算", ii).Value = False : End If
+                        If IsDBNull(下行客戶_dgv("所得", ii).Value) = True Then : 下行客戶_dgv("所得", ii).Value = False : End If
+                        If IsDBNull(下行客戶_dgv("下層", ii).Value) = True Then : 下行客戶_dgv("下層", ii).Value = False : End If
+                        PA10 = 下行客戶_dgv("下層", ii).Value : PA6 = 下行客戶_dgv("計算", ii).Value : PA7 = 下行客戶_dgv("同帳", ii).Value : PA8 = 下行客戶_dgv("所得", ii).Value
+                        SQL_資料庫轉換3_新增()
+                    Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                    SQL_資料庫轉換5_刪除() : 資料數 = 電板客戶_dgv.Rows.Count : 進度條1()
+                    For ii As Integer = 0 To 電板客戶_dgv.Rows.Count - 1
+                        MyModule1.進度條()
+                        If IsDBNull(電板客戶_dgv("付反", ii).Value) = True Then : 電板客戶_dgv("付反", ii).Value = False : End If
+                        If IsDBNull(電板客戶_dgv("收反", ii).Value) = True Then : 電板客戶_dgv("收反", ii).Value = False : End If
+                        If IsDBNull(電板客戶_dgv("所反", ii).Value) = True Then : 電板客戶_dgv("所反", ii).Value = False : End If
+                        If IsDBNull(電板客戶_dgv("水反", ii).Value) = True Then : 電板客戶_dgv("水反", ii).Value = False : End If
+                        If IsDBNull(電板客戶_dgv("紅反", ii).Value) = True Then : 電板客戶_dgv("紅反", ii).Value = False : End If
+                        PA = 電板客戶_dgv("客戶", ii).Value.ToString : BL1 = 電板客戶_dgv("付反", ii).Value : BL2 = 電板客戶_dgv("收反", ii).Value
+                        BL3 = 電板客戶_dgv("所反", ii).Value : BL4 = 電板客戶_dgv("水反", ii).Value : BL5 = 電板客戶_dgv("紅反", ii).Value
+                        SQL_資料庫轉換5_新增()
+                    Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                    SQL_資料庫轉換6_刪除() : 資料數 = 電板紙帳_dgv.Rows.Count : 進度條1()
+                    For ii As Integer = 0 To 電板紙帳_dgv.Rows.Count - 1
+                        MyModule1.進度條()
+                        PA = 電板紙帳_dgv("客戶", ii).Value.ToString : PA1 = 電板紙帳_dgv("商品", ii).Value.ToString
+                        SQL_資料庫轉換6_新增()
+                    Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                    SQL_資料庫轉換7_刪除() : 資料數 = 電板客戶所得_dgv.Rows.Count : 進度條1()
+                    For ii As Integer = 0 To 電板客戶所得_dgv.Rows.Count - 1
+                        MyModule1.進度條()
+                        PA = 電板客戶所得_dgv("所得戶", ii).Value.ToString
+                        SQL_資料庫轉換7_新增()
+                    Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                    SQL_資料庫轉換8_刪除() : 資料數 = 電板股東紅利設定_dgv.Rows.Count : 進度條1()
+                    For ii As Integer = 0 To 電板股東紅利設定_dgv.Rows.Count - 1
+                        MyModule1.進度條()
+                        PA = 電板股東紅利設定_dgv("所得戶", ii).Value.ToString : PA1 = 電板股東紅利設定_dgv("股東", ii).Value.ToString : PA2 = 電板股東紅利設定_dgv("紅利", ii).Value.ToString
+                        SQL_資料庫轉換8_新增()
+                    Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+                Else
+                    進度條1() : 進度條1() : 進度條1() : 進度條1() : 進度條1() : 進度條1() : 進度條1()
+                End If
             Next : conn.Close() : ProgressBar1.Value = 0 : 最終數1 = 0 : MsgBox("資料庫轉移完成")
+            子SQL名稱2 = 客戶資料表_dgv("資料庫", 0).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", 0).Value.ToString
+            登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString : 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString
+            業務帳號2 = 客戶資料表_dgv("帳號", 0).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", 0).Value.ToString
+            業務密碼2 = 客戶資料表_dgv("密碼", 0).Value.ToString : 業務密碼3 = 客戶資料表_dgv("備份密碼", 0).Value.ToString
+            SQL_連線字串_備份1() : 連接 = 1 : Set_修正清單()
+            SQL_連線字串_備份2() : 連接 = 2 : Set_修正清單()
+            Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10()
+            Set_清單11() : Set_清單12() : Set_清單13() : Set_清單14() : Set_清單15() : Set_清單16() : Set_清單17() : Set_清單18()
+        End If
+    End Sub
+    Private Sub 資料刪除_bt_Click(sender As Object, e As EventArgs) Handles 資料刪除_bt.Click
+        Dim aa As MsgBoxResult = MsgBox("即將清除 " & 日期_dtp.Text & " 之前的流水帳資料?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            資料數1 = 客戶資料表_dgv.Rows.Count
+            For i As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
+                子SQL名稱2 = 客戶資料表_dgv("資料庫", i).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", i).Value.ToString
+                登入人IP4 = 客戶資料表_dgv("IP位置", i).Value.ToString : 登入人IP5 = 客戶資料表_dgv("備份IP", i).Value.ToString
+                業務帳號2 = 客戶資料表_dgv("帳號", i).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", i).Value.ToString
+                業務密碼2 = 客戶資料表_dgv("密碼", i).Value.ToString : 業務密碼3 = 客戶資料表_dgv("備份密碼", i).Value.ToString
+                SQL_連線字串_備份1() : SQL_連線字串_備份2()
+                If 客戶資料表_dgv.Rows(i).Cells("備份").Value = True Then
+                    進度條1() : SQL_資料庫轉換4_刪除() : SQL_資料庫轉換9_刪除()
+                End If
+            Next : ProgressBar1.Value = 0 : 最終數1 = 0 : MsgBox("資料庫轉移完成")
+            子SQL名稱2 = 客戶資料表_dgv("資料庫", 0).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", 0).Value.ToString
+            登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString : 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString
+            業務帳號2 = 客戶資料表_dgv("帳號", 0).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", 0).Value.ToString
+            業務密碼2 = 客戶資料表_dgv("密碼", 0).Value.ToString : 業務密碼3 = 客戶資料表_dgv("備份密碼", 0).Value.ToString
+            SQL_連線字串_備份1() : 連接 = 1 : Set_修正清單()
+            SQL_連線字串_備份2() : 連接 = 2 : Set_修正清單()
+            Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10()
+            Set_清單11() : Set_清單12() : Set_清單13() : Set_清單14() : Set_清單15() : Set_清單16() : Set_清單17() : Set_清單18()
         End If
     End Sub
     Private Sub 進度條1()
@@ -176,12 +365,53 @@
     End Sub
     Private Sub 資料庫_bt_Click(sender As Object, e As EventArgs) Handles 資料庫_bt.Click
         資料庫_bt.Enabled = False : 備份庫_bt.Enabled = True
-        商品資料表_dgv.Visible = True : 商客基本資料表_dgv.Visible = True : 下行客戶_dgv.Visible = True : 流水帳_dgv.Visible = True
-        商品資料表1_dgv.Visible = False : 商客基本資料表1_dgv.Visible = False : 下行客戶1_dgv.Visible = False : 流水帳1_dgv.Visible = False
+        商品資料表_dgv.Visible = True : 商客基本資料表_dgv.Visible = True : 下行客戶_dgv.Visible = True : 流水帳_dgv.Visible = True : 電板客戶_dgv.Visible = True
+        電板紙帳_dgv.Visible = True : 電板客戶所得_dgv.Visible = True : 電板股東紅利設定_dgv.Visible = True : 電板紙帳流水帳_dgv.Visible = True
+        商品資料表1_dgv.Visible = False : 商客基本資料表1_dgv.Visible = False : 下行客戶1_dgv.Visible = False : 流水帳1_dgv.Visible = False : 電板客戶1_dgv.Visible = False
+        電板紙帳1_dgv.Visible = False : 電板客戶所得1_dgv.Visible = False : 電板股東紅利設定1_dgv.Visible = False : 電板紙帳流水帳1_dgv.Visible = False
     End Sub
     Private Sub 備份庫_bt_Click(sender As Object, e As EventArgs) Handles 備份庫_bt.Click
         資料庫_bt.Enabled = True : 備份庫_bt.Enabled = False
-        商品資料表_dgv.Visible = False : 商客基本資料表_dgv.Visible = False : 下行客戶_dgv.Visible = False : 流水帳_dgv.Visible = False
-        商品資料表1_dgv.Visible = True : 商客基本資料表1_dgv.Visible = True : 下行客戶1_dgv.Visible = True : 流水帳1_dgv.Visible = True
+        商品資料表_dgv.Visible = False : 商客基本資料表_dgv.Visible = False : 下行客戶_dgv.Visible = False : 流水帳_dgv.Visible = False : 電板客戶_dgv.Visible = False
+        電板紙帳_dgv.Visible = False : 電板客戶所得_dgv.Visible = False : 電板股東紅利設定_dgv.Visible = False : 電板紙帳流水帳_dgv.Visible = False
+        商品資料表1_dgv.Visible = True : 商客基本資料表1_dgv.Visible = True : 下行客戶1_dgv.Visible = True : 流水帳1_dgv.Visible = True : 電板客戶1_dgv.Visible = True
+        電板紙帳1_dgv.Visible = True : 電板客戶所得1_dgv.Visible = True : 電板股東紅利設定1_dgv.Visible = True : 電板紙帳流水帳1_dgv.Visible = True
+    End Sub
+    Private Sub 新資料導入_bt_Click(sender As Object, e As EventArgs) Handles 新資料導入_bt.Click
+        資料數 = 總網址庫_dgv.Rows.Count + 12 + 7 + 1
+        For i As Integer = 0 To 總網址庫_dgv.Rows.Count - 1
+            Dim DD As String
+            PA17 = 總網址庫_dgv("系統", i).Value.ToString : SQL_網址同步3_寫入()
+            If dr.Read() Then : GP = Double.Parse(Strings.Right(dr("編號").ToString, 3)) : Else : GP = 0 : End If : conn.Close() : GP += 1
+            If 總網址庫_dgv("系統", i).Value.ToString = "365" Then : DD = "A" : Else : DD = "B" : End If
+            If GP < 10 Then : GPP = DD & "00" & GP
+            ElseIf GP > 9 And GP < 100 Then : GPP = DD & "0" & GP
+            ElseIf GP > 99 Then : GPP = DD & GP : End If : PA6 = GPP
+
+            PA1 = 總網址庫_dgv("商品", i).Value.ToString
+            PA2 = 總網址庫_dgv("系統", i).Value.ToString
+            PA3 = 總網址庫_dgv("層級", i).Value.ToString
+            PA4 = 總網址庫_dgv("網址", i).Value.ToString : SQL_網址同步2_寫入()
+        Next
+        Dim 資料(11) As String
+        資料(0) = "短版(會員)" : 資料(1) = "短版(代理)" : 資料(2) = "短版(總代理)" : 資料(3) = "短版(股東)" : 資料(4) = "短版(大股東)"
+        資料(5) = "短版(總監)" : 資料(6) = "長板(會員)" : 資料(7) = "長板(代理)" : 資料(8) = "長板(總代理)" : 資料(9) = "長板(股東)"
+        資料(10) = "長板(大股東)" : 資料(11) = "長板(總監)"
+        For i As Integer = 0 To 11 : PA1 = 資料(i) : SQL_長短版資料表_寫入() : Next
+        SQL_自動導入判斷_寫入()
+        資料(0) = "會員" : 資料(1) = "代理" : 資料(2) = "總代理" : 資料(3) = "股東" : 資料(4) = "大股東" : 資料(5) = "上缴金额" : 資料(6) = "總監"
+        For i As Integer = 0 To 6 : PA1 = 資料(i) : SQL_長短版資料表_寫入() : Next
+        GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        MsgBox("新資料庫基本資料導入完畢!!")
+    End Sub
+    Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
+        For i As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
+            客戶資料表_dgv.Rows(i).Cells("備份").Value = True
+        Next
+    End Sub
+    Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
+        For i As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
+            客戶資料表_dgv.Rows(i).Cells("備份").Value = False
+        Next
     End Sub
 End Class