20230218備份

GA-ERP-SYS/LoginForm1.vb

         登入程序()
     End Sub
     Private Sub 自動更新2()
-        Dim aa1 As MsgBoxResult = MsgBox("系統版本號 與 資料庫版本號 對應不上，請下載最新的執行檔。", MsgBoxStyle.OkCancel)
-        If aa1 = MsgBoxResult.Ok Then
+        Dim Str As String = Application.StartupPath
+        If File.Exists(Str + "\NOTAUTO.txt") Then
+            If 使用者帳號_cb.Text = "b70340" Or 使用者帳號_cb.Text = "B70340" Then : Else : End If
+        Else
             更新下載_ch.Checked = True
             Timer1.Enabled = False : UPDATE_bt.Visible = True : UPDATE_bt.PerformClick()
             更新關閉 = True
-        Else
-            簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : UPDATE_bt.Visible = False
         End If
+
+        'Dim aa1 As MsgBoxResult = MsgBox("系統版本號 與 資料庫版本號 對應不上，請下載最新的執行檔。", MsgBoxStyle.OkCancel)
+        'If aa1 = MsgBoxResult.Ok Then
+
+        'Else
+        '    簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : UPDATE_bt.Visible = False
+        'End If
     End Sub
     Private Sub 登入程序()
         If 帳號_tb.Text = "" Then
                     已開啟 = True
                 End If
             Next
-            If 已開啟 = False Then : Else
+            If 已開啟 = False Then
                 If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop + "\C.txt") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop + "\C.txt") : End If
-                If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop + "\SYS-UPDATE.exe") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop + "\SYS-UPDATE.exe") : End If
+                If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop + "\SYS-UPDATE.exe") Then
+                    File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop + "\SYS-UPDATE.exe") : End If
                 Timer4.Enabled = False
-            End If
+            Else : End If
         ElseIf File.Exists(Strs & "\SYS-UPDATE.exe") Then
             Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
             ' 判斷是否有符合的Process
                     已開啟 = True
                 End If
             Next
-            If 已開啟 = False Then : Else
+            If 已開啟 = False Then
                 If File.Exists(Strs + "\C.txt") Then : File.Delete(Strs + "\C.txt") : End If
                 If File.Exists(Strs + "\SYS-UPDATE.exe") Then : File.Delete(Strs + "\SYS-UPDATE.exe") : End If
                 Timer4.Enabled = False
-            End If
+            Else : End If
         End If
     End Sub
 End Class

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

         CmdSet_For_dr()
         ConnOpen_子SQL()
         SQL1 = "UPDATE 電板紙板流水帳 SET 商品 = N'" & 電板紙板帳務設定.商品_tb.Text & "' 
-                WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品1_tb.Text & "' AND 開始日期 LIKE N'" & PA49 & "'"
+                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'" & 電板紙板帳務設定.商品_tb.Text & "'" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = " DELETE 電板紙板流水帳 WHERE(客戶 Like '" & 電板紙板帳務設定.客戶_tb.Text & "') AND (商品 LIKE '" & 電板紙板帳務設定.商品_tb.Text & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_紙帳流水查詢()
         ConnOpen_子SQL()

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

         ConnOpen_備份1() : SQL1 = "SELECT 網址 FROM 商品資料表 WHERE 商品 LIKE '" & PA1 & "' AND 系統 LIKE '" & PA2 & "' AND 層級 LIKE '" & PA3 & "'" : CmdSet_For_dr()
     End Sub
     '------------------------------------資料庫轉換----------------------------------------------
+    Friend Sub SQL_客戶資料刪除()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板紙板流水帳" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板紙板" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板客戶_所得" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板客戶" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板股東紅利設定" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 商客基本資料表" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 流水帳" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 自定義帳務彙總" : CmdSet_For_dr()
+        ConnOpen_備份1() : SQL1 = "DELETE FROM 下行客戶" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_客戶資料庫()
         If IP印尼 = True Then : ConnOpen() : Else : ConnOpen_備用() : End If
         SQL1 = "SELECT    客戶資料表.客戶, 客戶資料表.資料庫, 客戶資料表.IP位置, 客戶資料表.帳號, 客戶資料表.密碼, 客戶資料表.備份, 

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

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

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

         Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
         Me.其他操作功能_bt = New System.Windows.Forms.Button()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.紙帳計算_bt = New System.Windows.Forms.Button()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel4.Controls.Add(Me.紙帳計算_bt)
         Me.Panel4.Controls.Add(Me.自動調整存檔_bt)
         Me.Panel4.Controls.Add(Me.依球版習慣_ch)
         Me.Panel4.Controls.Add(Me.依電板習慣_ch)
         Me.PictureBox1.TabIndex = 1619
         Me.PictureBox1.TabStop = False
         '
+        '紙帳計算_bt
+        '
+        Me.紙帳計算_bt.Location = New System.Drawing.Point(1, 80)
+        Me.紙帳計算_bt.Name = "紙帳計算_bt"
+        Me.紙帳計算_bt.Size = New System.Drawing.Size(80, 26)
+        Me.紙帳計算_bt.TabIndex = 1715
+        Me.紙帳計算_bt.Text = "紙帳計算"
+        Me.紙帳計算_bt.UseVisualStyleBackColor = True
+        '
         '電板帳務彙總計算表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
     Friend WithEvents 依電板習慣_ch As CheckBox
     Friend WithEvents 自動正負反_ch As CheckBox
     Friend WithEvents Label20 As Label
+    Friend WithEvents 紙帳計算_bt As Button
 End Class

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

     Private Sub 依球版習慣_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依球版習慣_ch.Click
         依電板習慣_ch.Checked = False : 依球版習慣_ch.Checked = True
     End Sub
+    Private Sub 紙帳計算_bt_Click(sender As Object, e As EventArgs) Handles 紙帳計算_bt.Click
+        手工帳資料自動判斷() : 紙帳計算()
+    End Sub
     Private Sub 自動調整存檔_bt_Click_1(sender As Object, e As EventArgs) Handles 自動調整存檔_bt.Click
         SQL_自動正負反存檔() : 合帳_bt.PerformClick()
     End Sub

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

         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_電板紙帳查詢3() : If dr.Read() Then : MsgBox("資料重複，請重新確認!!") : Else : SQL_電板紙帳新增1() : Set_電板紙板() : 商品1_tb.Text = "" : End If
+        SQL_電板紙帳查詢3()
+        If dr.Read() Then : MsgBox("資料重複，請重新確認!!") : Else : SQL_電板紙帳新增1() : Set_電板紙板() : 商品1_tb.Text = "" : 電板帳務彙總計算表.紙帳計算_bt.PerformClick() : End If
     End Sub
     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
         SQL_電板紙帳查詢4()
                 If DD = 1 Then : 日期_dtp.Value = 日期_dtp.Value.AddDays(-6) : ElseIf DD >= 3 Then : 日期_dtp.Value = 日期_dtp.Value.AddDays(2 - DD) : End If
             End If : PA49 = Strings.Format(日期_dtp.Value, "yyyy-MM-dd")
             SQL_電板紙帳修改()
-            Set_電板紙板() : 商品1_tb.Text = "" : PA49 = ""
+            Set_電板紙板() : 商品1_tb.Text = "" : PA49 = "" : 電板帳務彙總計算表.紙帳計算_bt.PerformClick()
         End If
     End Sub
     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
-        SQL_電板紙帳刪除() : Set_電板紙板() : 商品1_tb.Text = "" : 商品_tb.Text = ""
+        SQL_電板紙帳刪除() : Set_電板紙板() : 商品1_tb.Text = "" : 商品_tb.Text = "" : 電板帳務彙總計算表.紙帳計算_bt.PerformClick()
     End Sub
 End Class

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

                 Else
                     MsgBox("沒有需要重新導入的網址與帳號!!") : Me.Enabled = True
                 End If
-            End If ': Me.Enabled = True
-        End If ': Me.Enabled = True
+            End If : Me.Enabled = True
+        End If : Me.Enabled = True
     End Sub
     Private Sub 自動導入_bt_Click(sender As Object, e As EventArgs) Handles 自動導入_bt.Click
         減輕計算 = False

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

             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(2, 126)
+        Me.TextBox1.Location = New System.Drawing.Point(2, 89)
         Me.TextBox1.Multiline = True
         Me.TextBox1.Name = "TextBox1"
         Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.TextBox1.Size = New System.Drawing.Size(680, 442)
+        Me.TextBox1.Size = New System.Drawing.Size(680, 479)
         Me.TextBox1.TabIndex = 0
         Me.TextBox1.Text = resources.GetString("TextBox1.Text")
         '
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(680, 514)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = "版本號 : 2023010901" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、修正帳務彙總預覽為強制視窗。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、延長抓帳等待網站時間。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、修正後台帳務抓取效能優化與其他BUG" &
-    "修正。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.TextBox3.Text = "版本號 : 2023020701" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、已知BUG修正。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
         'TextBox4
         '

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

     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="TextBox1.Text" xml:space="preserve">
-    <value>版本號 : 2022121501
+    <value>版本號 : 2023010901
+更新內容如下 :
+1、修正帳務彙總預覽為強制視窗。
+2、延長抓帳等待網站時間。
+3、修正後台帳務抓取效能優化與其他BUG修正。
+
+版本號 : 2022121501
 更新內容如下 :
 1、修正後台帳務計算BUG。
 2、更新抓帳時顯示網址資訊。

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

         Me.版本號_tb.TabIndex = 650
         Me.版本號_tb.Text = "2020010101"
         '
+        'FolderBrowserDialog1
+        '
+        Me.FolderBrowserDialog1.RootFolder = System.Environment.SpecialFolder.MyComputer
+        '
         'Label13
         '
         Me.Label13.AutoSize = True

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

         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 DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle21 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 DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         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.電板客戶1_dgv = New System.Windows.Forms.DataGridView()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.Label12 = New System.Windows.Forms.Label()
         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.Label11 = 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.電板客戶所得_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.電板紙帳流水帳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.電板股東紅利設定1_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.網址_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()
         Me.含帳_ch = New System.Windows.Forms.CheckBox()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.自定義帳務彙總_dgv = New System.Windows.Forms.DataGridView()
-        Me.自定義帳務彙總1_dgv = New System.Windows.Forms.DataGridView()
+        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.電板客戶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.電板客戶所得_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.電板客戶所得_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()
         Me.TabPage1.SuspendLayout()
-        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.網址_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '客戶資料表_dgv
         '資料庫_bt
         '
         Me.資料庫_bt.ForeColor = System.Drawing.Color.Green
-        Me.資料庫_bt.Location = New System.Drawing.Point(851, 2)
+        Me.資料庫_bt.Location = New System.Drawing.Point(838, 2)
         Me.資料庫_bt.Name = "資料庫_bt"
         Me.資料庫_bt.Size = New System.Drawing.Size(75, 25)
         Me.資料庫_bt.TabIndex = 1527
         '備份庫_bt
         '
         Me.備份庫_bt.ForeColor = System.Drawing.Color.Green
-        Me.備份庫_bt.Location = New System.Drawing.Point(927, 2)
+        Me.備份庫_bt.Location = New System.Drawing.Point(913, 2)
         Me.備份庫_bt.Name = "備份庫_bt"
         Me.備份庫_bt.Size = New System.Drawing.Size(75, 25)
         Me.備份庫_bt.TabIndex = 1528
         Me.TabPage3.Text = "資料表資訊2"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(403, 189)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(91, 16)
+        Me.Label12.TabIndex = 1571
+        Me.Label12.Text = "自定義帳務彙總"
+        '
         'Label10
         '
         Me.Label10.AutoSize = True
         Me.Label4.TabIndex = 1556
         Me.Label4.Text = "流水帳"
         '
+        '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(91, 16)
+        Me.Label11.TabIndex = 1568
+        Me.Label11.Text = "電板紙帳流水帳"
+        '
         '電板紙帳_dgv
         '
         DataGridViewCellStyle11.BackColor = System.Drawing.Color.Gainsboro
         Me.電板紙帳_dgv.Size = New System.Drawing.Size(199, 335)
         Me.電板紙帳_dgv.TabIndex = 1560
         '
-        '電板紙帳1_dgv
-        '
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.Gainsboro
-        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
-        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.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        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
-        '
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.電板股東紅利設定_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
-        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(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, 170)
-        Me.電板股東紅利設定_dgv.TabIndex = 1566
-        '
-        '電板股東紅利設定1_dgv
-        '
-        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.電板股東紅利設定1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
-        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.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        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, 170)
-        Me.電板股東紅利設定1_dgv.TabIndex = 1564
-        '
         '電板紙帳流水帳_dgv
         '
         DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.流水帳_dgv.Size = New System.Drawing.Size(696, 129)
         Me.流水帳_dgv.TabIndex = 1555
         '
+        '電板客戶所得_dgv
+        '
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板客戶所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        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(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
+        '
+        '電板股東紅利設定_dgv
+        '
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板股東紅利設定_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        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(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, 170)
+        Me.電板股東紅利設定_dgv.TabIndex = 1566
+        '
+        '自定義帳務彙總_dgv
+        '
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, 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.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(401, 205)
+        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, 311)
+        Me.自定義帳務彙總_dgv.TabIndex = 1572
+        '
+        '電板紙帳1_dgv
+        '
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.Gainsboro
+        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        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.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        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
+        '
         '流水帳1_dgv
         '
         DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.電板紙帳流水帳1_dgv.Size = New System.Drawing.Size(399, 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(91, 16)
-        Me.Label11.TabIndex = 1568
-        Me.Label11.Text = "電板紙帳流水帳"
-        '
-        '電板客戶所得_dgv
-        '
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.電板客戶所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
-        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(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.Size = New System.Drawing.Size(199, 335)
         Me.電板客戶所得1_dgv.TabIndex = 1561
         '
+        '電板股東紅利設定1_dgv
+        '
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.電板股東紅利設定1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        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.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        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, 170)
+        Me.電板股東紅利設定1_dgv.TabIndex = 1564
+        '
+        '自定義帳務彙總1_dgv
+        '
+        DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.自定義帳務彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
+        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.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.自定義帳務彙總1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.自定義帳務彙總1_dgv.Location = New System.Drawing.Point(401, 205)
+        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, 311)
+        Me.自定義帳務彙總1_dgv.TabIndex = 1570
+        '
         'TabPage1
         '
         Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.資料_lb.TabIndex = 1554
         Me.資料_lb.Text = "比對網頁資料，該資料庫無須導入基本資料。"
         '
-        '網址_dgv
-        '
-        DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.網址_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24
-        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.BackgroundColor = System.Drawing.Color.White
-        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
         '
         DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.總網址庫_dgv.Size = New System.Drawing.Size(696, 492)
         Me.總網址庫_dgv.TabIndex = 1552
         '
+        '網址_dgv
+        '
+        DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.網址_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24
+        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.BackgroundColor = System.Drawing.Color.White
+        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
+        '
         'ProgressBar1
         '
         Me.ProgressBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.ProgressBar1.Location = New System.Drawing.Point(1005, 3)
+        Me.ProgressBar1.Location = New System.Drawing.Point(990, 3)
         Me.ProgressBar1.Maximum = 10000
         Me.ProgressBar1.Name = "ProgressBar1"
-        Me.ProgressBar1.Size = New System.Drawing.Size(270, 23)
+        Me.ProgressBar1.Size = New System.Drawing.Size(220, 23)
         Me.ProgressBar1.TabIndex = 1529
         '
         '全部取消_bt
         Me.含帳_ch.Text = "含帳"
         Me.含帳_ch.UseVisualStyleBackColor = True
         '
-        'Label12
+        '復歸清空_bt
         '
-        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(403, 189)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(91, 16)
-        Me.Label12.TabIndex = 1571
-        Me.Label12.Text = "自定義帳務彙總"
-        '
-        '自定義帳務彙總_dgv
-        '
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, 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.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(401, 205)
-        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, 311)
-        Me.自定義帳務彙總_dgv.TabIndex = 1572
-        '
-        '自定義帳務彙總1_dgv
-        '
-        DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.自定義帳務彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
-        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.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.自定義帳務彙總1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.自定義帳務彙總1_dgv.Location = New System.Drawing.Point(401, 205)
-        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, 311)
-        Me.自定義帳務彙總1_dgv.TabIndex = 1570
+        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.Red
+        Me.復歸清空_bt.Location = New System.Drawing.Point(1214, 2)
+        Me.復歸清空_bt.Name = "復歸清空_bt"
+        Me.復歸清空_bt.Size = New System.Drawing.Size(64, 25)
+        Me.復歸清空_bt.TabIndex = 1560
+        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(1282, 681)
+        Me.Controls.Add(Me.復歸清空_bt)
         Me.Controls.Add(Me.資料刪除_bt)
         Me.Controls.Add(Me.全部取消_bt)
         Me.Controls.Add(Me.全部選擇_bt)
         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.電板客戶所得_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.電板客戶所得_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()
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
-        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.網址_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents Label12 As Label
     Friend WithEvents 自定義帳務彙總_dgv As DataGridView
     Friend WithEvents 自定義帳務彙總1_dgv As DataGridView
+    Friend WithEvents 復歸清空_bt As Button
 End Class

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

     End Sub
     Private Sub 客戶資料表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 客戶資料表_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            'If 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-            'ElseIf 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-            'ElseIf 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-            'ElseIf 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-            'Else : 登入人IP4 = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString : End If
             登入人IP4 = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString
-            'If 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-            'ElseIf 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-            'ElseIf 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-            'ElseIf 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-            'Else : 登入人IP5 = 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString : End If
             登入人IP5 = 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString
             子SQL名稱2 = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString
             業務帳號2 = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", e.RowIndex).Value.ToString
     Private Sub 資料轉移()
         For i As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
             If 客戶資料表_dgv.Rows(i).Cells("備份").Value = True Then
-                'If 客戶資料表_dgv("IP位置", i).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", i).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", i).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", i).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-                'Else : 登入人IP4 = 客戶資料表_dgv("IP位置", i).Value.ToString : End If
                 登入人IP4 = 客戶資料表_dgv("IP位置", i).Value.ToString
-                'If 客戶資料表_dgv("備份IP", i).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", i).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", i).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", i).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-                'Else : 登入人IP5 = 客戶資料表_dgv("備份IP", i).Value.ToString : End If
                 登入人IP5 = 客戶資料表_dgv("備份IP", i).Value.ToString
                 子SQL名稱2 = 客戶資料表_dgv("資料庫", i).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", i).Value.ToString
                 業務帳號2 = 客戶資料表_dgv("帳號", i).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", i).Value.ToString
             If BB = MsgBoxResult.Ok Then
                 資料數1 = 客戶資料表_dgv.Rows.Count * 7
                 資料轉移()
-                'If 客戶資料表_dgv("IP位置", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-                'Else : 登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString : End If
                 登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString
-                'If 客戶資料表_dgv("備份IP", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-                'Else : 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString : End If
                 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString
                 子SQL名稱2 = 客戶資料表_dgv("資料庫", 0).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", 0).Value.ToString
                 業務帳號2 = 客戶資料表_dgv("帳號", 0).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", 0).Value.ToString
             If aa = MsgBoxResult.Ok Then
                 資料數1 = 客戶資料表_dgv.Rows.Count * 7
                 資料轉移()
-                'If 客戶資料表_dgv("IP位置", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-                'Else : 登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString : End If
                 登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString
-                'If 客戶資料表_dgv("備份IP", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-                'Else : 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString : End If
                 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString
                 子SQL名稱2 = 客戶資料表_dgv("資料庫", 0).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", 0).Value.ToString
                 業務帳號2 = 客戶資料表_dgv("帳號", 0).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", 0).Value.ToString
         If aa = MsgBoxResult.Ok Then
             資料數1 = 客戶資料表_dgv.Rows.Count
             For i As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
-                'If 客戶資料表_dgv("IP位置", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-                'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-                'Else : 登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString : End If
                 登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString
-                'If 客戶資料表_dgv("備份IP", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-                'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-                'Else : 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString : End If
                 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString
                 子SQL名稱2 = 客戶資料表_dgv("資料庫", i).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", i).Value.ToString
                 業務帳號2 = 客戶資料表_dgv("帳號", i).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", i).Value.ToString
                     進度條1() : SQL_資料庫轉換4_刪除() : SQL_資料庫轉換9_刪除()
                 End If
             Next : ProgressBar1.Value = 0 : 最終數1 = 0 : MsgBox("資料庫轉移完成")
-            'If 客戶資料表_dgv("IP位置", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-            'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP4 = "192.168.0.112,2433"
-            'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-            'ElseIf 客戶資料表_dgv("IP位置", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP4 = "111.95.41.244,2433"
-            'Else : 登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString : End If
             登入人IP4 = 客戶資料表_dgv("IP位置", 0).Value.ToString
-            'If 客戶資料表_dgv("備份IP", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-            'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = True Then : 登入人IP5 = "192.168.0.112,2433"
-            'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "111.95.41.244,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-            'ElseIf 客戶資料表_dgv("備份IP", 0).Value.ToString = "192.168.0.112,2433" And 內網確認 = False Then : 登入人IP5 = "111.95.41.244,2433"
-            'Else : 登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString : End If
             登入人IP5 = 客戶資料表_dgv("備份IP", 0).Value.ToString
             子SQL名稱2 = 客戶資料表_dgv("資料庫", 0).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", 0).Value.ToString
             業務帳號2 = 客戶資料表_dgv("帳號", 0).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", 0).Value.ToString
             客戶資料表_dgv.Rows(i).Cells("備份").Value = False
         Next
     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
+            PA = InputBox("請輸入管理密碼來執行客戶資料刪除!!")
+            If PA = "0013975151" Then
+                SQL_客戶資料刪除() : MsgBox("刪除完成!!!")
+                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_清單19() : Set_清單20()
+            End If
+        End If
+    End Sub
 End Class