2021091601

GA-ERP-SYS/App.config

-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
     </startup>
-</configuration>
+</configuration>

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

         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.計算機_bt = New System.Windows.Forms.Button()
         Me.計算機1_bt = New System.Windows.Forms.Button()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.歷史資料查詢_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
+        Me.歷史帳務彙總計算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.歷史帳務明細查詢表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         Me.SuspendLayout()
         '
         Me.基本資料_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.business_info
         Me.基本資料_tsm.Name = "基本資料_tsm"
-        Me.基本資料_tsm.Size = New System.Drawing.Size(122, 22)
+        Me.基本資料_tsm.Size = New System.Drawing.Size(180, 22)
         Me.基本資料_tsm.Text = "基本資料"
         '
         '報表系統管理_tsm
         '
-        Me.報表系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.帳務彙總計算表_tsm, Me.帳務明細查詢表_tsm})
+        Me.報表系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.帳務彙總計算表_tsm, Me.帳務明細查詢表_tsm, Me.ToolStripSeparator5, Me.歷史資料查詢_tsm})
         Me.報表系統管理_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Report
         Me.報表系統管理_tsm.Name = "報表系統管理_tsm"
         Me.報表系統管理_tsm.Size = New System.Drawing.Size(107, 20)
         '
         '特殊操作功能_tsm
         '
-        Me.特殊操作功能_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.流水帳自動導入_tsm, Me.流水帳手動輸入_tsm, Me.商客資料導入_tsm})
+        Me.特殊操作功能_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.錯誤排除手冊_tsm, Me.ToolStripSeparator4, Me.流水帳自動導入_tsm, Me.流水帳手動輸入_tsm, 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.childish_Tool
+        Me.錯誤排除手冊_tsm.Name = "錯誤排除手冊_tsm"
+        Me.錯誤排除手冊_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.錯誤排除手冊_tsm.Text = "錯誤排除手冊"
+        '
+        'ToolStripSeparator4
+        '
+        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
+        '
         '流水帳自動導入_tsm
         '
         Me.流水帳自動導入_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.pen
         Me.流水帳自動導入_tsm.Name = "流水帳自動導入_tsm"
-        Me.流水帳自動導入_tsm.Size = New System.Drawing.Size(158, 22)
+        Me.流水帳自動導入_tsm.Size = New System.Drawing.Size(180, 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(158, 22)
+        Me.流水帳手動輸入_tsm.Size = New System.Drawing.Size(180, 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(158, 22)
+        Me.商客資料導入_tsm.Size = New System.Drawing.Size(180, 22)
         Me.商客資料導入_tsm.Text = "商客資料導入"
         '
         '資料庫系統管理_tsm
         '
         Me.Timer1.Interval = 1500
         '
+        '歷史資料查詢_tsm
+        '
+        Me.歷史資料查詢_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.歷史帳務彙總計算表_tsm, Me.歷史帳務明細查詢表_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.Text = "歷史資料查詢"
+        '
+        'ToolStripSeparator5
+        '
+        Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
+        Me.ToolStripSeparator5.Size = New System.Drawing.Size(177, 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(182, 22)
+        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(182, 22)
+        Me.歷史帳務明細查詢表_tsm.Text = "歷史帳務明細查詢表"
+        '
         'GA_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
     Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
     Friend WithEvents 帳務明細查詢表_tsm As ToolStripMenuItem
     Friend WithEvents 合計_TSSL As ToolStripStatusLabel
+    Friend WithEvents 錯誤排除手冊_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
+    Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
+    Friend WithEvents 歷史資料查詢_tsm As ToolStripMenuItem
+    Friend WithEvents 歷史帳務彙總計算表_tsm As ToolStripMenuItem
+    Friend WithEvents 歷史帳務明細查詢表_tsm As ToolStripMenuItem
 End Class

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

             SQL_連線字串_子SQL()
         End If : conn.Close()
         '----------基本作功能-----------------------------------------------------------------------------------------------------------------
-        報表系統管理_tsm.Enabled = CC(17) : 帳務彙總計算表_tsm.Enabled = CC(18) : 帳務明細查詢表_tsm.Enabled = CC(21)
+        報表系統管理_tsm.Enabled = CC(17) : 帳務彙總計算表_tsm.Enabled = CC(18) : 帳務明細查詢表_tsm.Enabled = CC(21) : 歷史資料查詢_tsm.Enabled = CC(22)
         '----------資料庫系統管理-------------------------------------------------------------------------------------------------------------
         資料庫系統管理_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)
+        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)
         '----------特殊操作功能---------------------------------------------------------------------------------------------------------------
         特殊操作功能_tsm.Enabled = CC(10) : 流水帳自動導入_tsm.Enabled = CC(11) : 流水帳手動輸入_tsm.Enabled = CC(12) : 商客資料導入_tsm.Enabled = CC(13)
 
     Private Sub GA_ERP_SYS_Close(sender As Object, e As EventArgs) Handles MyBase.Closed
         SQL_登入鎖定解除() : LoginForm1.Close()
     End Sub
+    Private Sub 主資料庫()
+        SQL_轉換連線用()
+        If dr.Read() Then
+            登入人IP2 = dr("IP位置") : 子SQL名稱 = dr("資料庫") : 業務帳號 = dr("帳號") : 業務密碼 = dr("密碼")
+        End If : conn.Close() : SQL_連線字串_子SQL()
+    End Sub
+    Private Sub 副資料庫()
+        SQL_轉換連線用()
+        If dr.Read() Then
+            登入人IP2 = dr("備份IP") : 子SQL名稱 = dr("資料庫") : 業務帳號 = dr("備份帳號") : 業務密碼 = dr("備份密碼")
+        End If : conn.Close() : SQL_連線字串_子SQL()
+    End Sub
     Private Sub 使用者_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 使用者_cb.SelectedIndexChanged
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         子SQL名稱 = Strings.Right(使用者_cb.Text, 6)
         SQL_連線字串_子SQL() : Me.WindowState = 0
     End Sub
     Private Sub 人員ID卡系統配置設定ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 人員ID卡系統配置設定.ShowDialog() : 人員ID卡系統配置設定.BringToFront()
     End Sub
     Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 系統執行檔版本管理.ShowDialog()
     End Sub
     Private Sub FTPToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FTP_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
     End Sub
     Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 系統使用者管理.Show() : FTP資料夾管理.BringToFront()
     End Sub
     Private Sub 系統編碼規則_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 系統編碼規則.Show() : 系統編碼規則.BringToFront()
     End Sub
     Private Sub 基本資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 基本資料_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 基本資料.Show() : 基本資料.BringToFront() : 帳務彙總計算表.Close()
     End Sub
-    Private Sub 流水帳查詢_tsm_Click(sender As Object, e As EventArgs) Handles 帳務彙總計算表_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 帳務彙總計算表.Show() : 帳務彙總計算表.BringToFront() : 基本資料.Close()
+    Private Sub 帳務彙總計算表_tsm_Click(sender As Object, e As EventArgs) Handles 帳務彙總計算表_tsm.Click
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 帳務彙總計算表.Show() : 帳務彙總計算表.BringToFront()
     End Sub
-    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 個人帳號管理.ShowDialog()
+    Private Sub 歷史帳務彙總計算表_tsm_Click(sender As Object, e As EventArgs) Handles 歷史帳務彙總計算表_tsm.Click
+        副資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 帳務彙總計算表.Show() : 帳務彙總計算表.BringToFront()
     End Sub
-    Private Sub 計算機1_bt_Click(sender As Object, e As EventArgs) Handles 計算機1_bt.Click
-        PA = "" : 計算機.ShowDialog()
+    Private Sub 帳務明細查詢表_tsm_Click(sender As Object, e As EventArgs) Handles 帳務明細查詢表_tsm.Click
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 帳務明細查詢表.Show() : 帳務明細查詢表.BringToFront()
     End Sub
-    Private Sub 計算機_bt_Click(sender As Object, e As EventArgs) Handles 計算機_bt.Click
+    Private Sub 歷史帳務明細查詢表_tsm_Click(sender As Object, e As EventArgs) Handles 歷史帳務明細查詢表_tsm.Click
+        副資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 帳務明細查詢表.Show() : 帳務明細查詢表.BringToFront()
+    End Sub
+    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 個人帳號管理.ShowDialog()
     End Sub
     Private Sub 流水帳自動導入_tsm_Click(sender As Object, e As EventArgs) Handles 流水帳自動導入_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 流水帳自動導入.ShowDialog()
     End Sub
     Private Sub 流水帳手動輸入_tsm_Click(sender As Object, e As EventArgs) Handles 流水帳手動輸入_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 流水帳手動輸入.Show() : 流水帳手動輸入.BringToFront()
     End Sub
     Private Sub 商客資料導入_tsm_Click(sender As Object, e As EventArgs) Handles 商客資料導入_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 商客資料導入.Show() : 商客資料導入.BringToFront()
     End Sub
     Private Sub 測試_tsm_Click(sender As Object, e As EventArgs) Handles USB_KEY_指定_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : USB_KEY_指定.Show() : USB_KEY_指定.BringToFront()
     End Sub
     Private Sub 測試ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PY執行錯誤LOG檔_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : PY執行錯誤LOG檔.Show() : PY執行錯誤LOG檔.BringToFront()
     End Sub
-
     Private Sub 資料備份轉移_tsm_Click(sender As Object, e As EventArgs) Handles 資料備份轉移_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 資料備份轉移.Show() : 資料備份轉移.BringToFront()
     End Sub
-    Private Sub 帳務明細查詢表_tsm_Click(sender As Object, e As EventArgs) Handles 帳務明細查詢表_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 帳務明細查詢表.Show() : 帳務明細查詢表.BringToFront()
+    Private Sub 錯誤排除手冊_tsm_Click(sender As Object, e As EventArgs) Handles 錯誤排除手冊_tsm.Click
+        PA = "" : 錯誤排除手冊.Show() : 錯誤排除手冊.BringToFront()
+    End Sub
+    Private Sub 計算機1_bt_Click(sender As Object, e As EventArgs) Handles 計算機1_bt.Click
+        PA = "" : 計算機.ShowDialog()
+    End Sub
+    Private Sub 計算機_bt_Click(sender As Object, e As EventArgs) Handles 計算機_bt.Click
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         Dim Usbkey As Boolean = False

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

     <AssemblyName>GA-ERP-SYS</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
     <Deterministic>true</Deterministic>
     <PublishUrl>publish\</PublishUrl>
     <Install>true</Install>
     <IsWebBootstrapper>false</IsWebBootstrapper>
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
+    <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
     <Compile Include="報表系統管理\帳務明細查詢表.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="特殊操作功能\錯誤排除手冊.Designer.vb">
+      <DependentUpon>錯誤排除手冊.vb</DependentUpon>
+    </Compile>
+    <Compile Include="特殊操作功能\錯誤排除手冊.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\LOG檔.Designer.vb">
       <DependentUpon>LOG檔.vb</DependentUpon>
     </Compile>
     <EmbeddedResource Include="報表系統管理\帳務明細查詢表.resx">
       <DependentUpon>帳務明細查詢表.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="特殊操作功能\錯誤排除手冊.resx">
+      <DependentUpon>錯誤排除手冊.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\LOG檔.resx">
       <DependentUpon>LOG檔.vb</DependentUpon>
     </EmbeddedResource>
   <ItemGroup>
     <Content Include="hnet.com-image.ico" />
     <Content Include="wrench1.ico" />
+    <None Include="圖片\00aa2ad767a242ddc3099a90a5c7edb.png" />
+    <None Include="圖片\125425789654.png" />
+    <None Include="圖片\5bb63d4ef7f776f75809dfb810d8a16.png" />
+    <None Include="圖片\47526ccfe6fd81c95524745ad12d1f7.png" />
+    <None Include="圖片\1631414926457.jpg" />
     <None Include="圖片\1627008239188.jpg" />
     <None Include="圖片\1627008239187.jpg" />
     <None Include="圖片\0111121hh.jpg" />

GA-ERP-SYS/LoginForm1.Designer.vb

         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.CancelButton = Me.取消_bt
         Me.ClientSize = New System.Drawing.Size(964, 240)
+        Me.Controls.Add(Me.簡易登入_dgv)
         Me.Controls.Add(Me.藏_bt)
         Me.Controls.Add(Me.解鎖_bt)
         Me.Controls.Add(Me.簡易_lb)
         Me.Controls.Add(Me.PasswordLabel)
         Me.Controls.Add(Me.UsernameLabel)
         Me.Controls.Add(Me.LogoPictureBox)
-        Me.Controls.Add(Me.簡易登入_dgv)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Button1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))

GA-ERP-SYS/LoginForm1.vb

 Imports System.Net
 Imports System.Management
+Imports System.IO
 Public Class LoginForm1
     ' TODO: 插入程式碼，利用提供的使用者名稱和密碼執行自訂驗證
     ' (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
     ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
     ReadOnly ds As New DataSet
     Dim FFGG As Integer
+    Dim 更新關閉 As Boolean
     Private Sub Set_使用者清單()
         簡易登入_dgv.DataSource = Nothing : ds.Clear()
         簡易登入_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         刷卡登入_ch.Checked = True : 刷卡登入_ch.Enabled = False : 帳號_tb.Visible = False : 解鎖_bt.Visible = False ': 使用者帳號_cb.Enabled = False
         執行檔版本號_lb.Text = "執行檔版本號 : " & 版本
         伺服器區域_ch.SelectedIndex = 0
-
-        Me.ActiveControl = 使用者帳號_cb
-        Set_使用者清單()
-        Dim cmicWmi As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
-        For Each cmicWmiObj As ManagementObject In cmicWmi.Get
-            PA10 = cmicWmiObj("Signature") : QA1 = cmicWmiObj("Signature")
-            PA11 = cmicWmiObj("SerialNumber") : QA2 = cmicWmiObj("SerialNumber")
-            PA12 = cmicWmiObj("Model") : QA3 = cmicWmiObj("Model")
-            PA13 = cmicWmiObj("Size") : QA4 = cmicWmiObj("Size")
-            PA10 = Replace(PA10, "'", "/") : QA1 = Replace(QA1, "'", "/") : PA11 = Replace(PA11, "'", "/") : QA2 = Replace(QA2, "'", "/")
-            PA12 = Replace(PA12, "'", "/") : QA3 = Replace(QA3, "'", "/") : PA13 = Replace(PA13, "'", "/") : QA4 = Replace(QA4, "'", "/")
-            SQL_驗證是否綁定()
-            If dr.Read() Then
-                PA15 = dr("客戶") : conn.Close()
-                SQL_USB登入清單()
-                If dr.Read() Then : PA16 = dr("帳號") : gUserName = dr("姓名") : End If : Exit For
-            Else
-                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"
+        If 更新關閉 = True Then : Me.Close() : Else
+            Me.ActiveControl = 使用者帳號_cb
+            Set_使用者清單()
+            Dim cmicWmi As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
+            For Each cmicWmiObj As ManagementObject In cmicWmi.Get
+                PA10 = cmicWmiObj("Signature") : QA1 = cmicWmiObj("Signature")
+                PA11 = cmicWmiObj("SerialNumber") : QA2 = cmicWmiObj("SerialNumber")
+                PA12 = cmicWmiObj("Model") : QA3 = cmicWmiObj("Model")
+                PA13 = cmicWmiObj("Size") : QA4 = cmicWmiObj("Size")
+                PA10 = Replace(PA10, "'", "/") : QA1 = Replace(QA1, "'", "/") : PA11 = Replace(PA11, "'", "/") : QA2 = Replace(QA2, "'", "/")
+                PA12 = Replace(PA12, "'", "/") : QA3 = Replace(QA3, "'", "/") : PA13 = Replace(PA13, "'", "/") : QA4 = Replace(QA4, "'", "/")
+                SQL_驗證是否綁定()
+                If dr.Read() Then
+                    PA15 = dr("客戶") : conn.Close()
+                    SQL_USB登入清單()
+                    If dr.Read() Then : PA16 = dr("帳號") : gUserName = dr("姓名") : End If : Exit For
+                Else
+                    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"
+                Else
+                    Me.Close()
+                End If
             Else
-                Me.Close()
+                SQL_登入鎖定解除() : 使用者帳號_cb.Text = PA16 : PA16 = ""
+                Me.ActiveControl = 密碼_tb
             End If
-        Else
-            SQL_登入鎖定解除() : 使用者帳號_cb.Text = PA16 : PA16 = ""
-            Me.ActiveControl = 密碼_tb
+            Timer1.Enabled = True
         End If
-        Timer1.Enabled = True
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         Dim Usbkey As Boolean = False
             ElseIf screenWidth = 1280 And screenHeight = 1024 Then
             ElseIf screenWidth = 1600 And screenHeight = 900 Then
             End If
-            Shell("Rundll32.exe url.dll, FileProtocolHandler http://106.1.50.79:8080/ga-erp-sys/", vbNormalFocus)
+            Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
+            Dim fullPath As String
+            fullPath = Path.GetFullPath(fileName)
+            Process.Start(fullPath, "--app= http://106.1.50.79:8080/ga-erp-sys/")
+            更新關閉 = True
         Else
             Me.Size = New Size(466, 279)
             If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(727, 401)
         End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Shell("Rundll32.exe url.dll, FileProtocolHandler http://106.1.50.79:8080/ga-erp-sys/", vbNormalFocus)
+        Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
+        Dim fullPath As String
+        fullPath = Path.GetFullPath(fileName)
+        Process.Start(fullPath, "--app= http://106.1.50.79:8080/ga-erp-sys/")
     End Sub
     Private Sub 簡易_lb_Click(sender As Object, e As EventArgs) Handles 簡易_lb.Click
         PA = InputBox("請輸入系統商管理密碼!!")

GA-ERP-SYS/Module/SQL_Module.vb

     Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
     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"
-    Public 權限數量 As Integer = 21
+                                 CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, CC23, CC24, CC25"
+    Public 權限數量 As Integer = 25
     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

     Friend Sub SQL_基本資料_客戶下資料表()
         ConnOpen_子SQL()
         SQL1 = "SELECT     商客基本資料表.商品, 下行客戶.網址, 下行客戶.帳號 AS 老闆帳號, 下行客戶.客戶下 AS 客戶帳號, 下行客戶.客名 AS 客戶名稱, 下行客戶.流水號, 
-                           下行客戶.基數, 下行客戶.基數 AS 階級, 下行客戶.計算, 下行客戶.同帳, 下行客戶.所得
+                           下行客戶.基數, 下行客戶.基數 AS 階級, 下行客戶.計算, 下行客戶.同帳, 下行客戶.所得, 下行客戶.所得另算
                 FROM       下行客戶 LEFT OUTER JOIN
                            商客基本資料表 ON 下行客戶.網址 = 商客基本資料表.網址 AND 下行客戶.帳號 = 商客基本資料表.帳號
                 WHERE      下行客戶.客戶下 LIKE N'%" & PA & "%' " & PA9 & "
     Friend Sub SQL_系統編碼規則_客戶下修改()
         ConnOpen_子SQL()
         SQL1 = "UPDATE 下行客戶 SET 客戶下 = N'" & PA & "', 網址 = N'" & PA1 & "', 帳號 = N'" & PA2 & "', 基數 = N'" & PA3 & "', 客名 = N'" & PA4 & "', 
-                                    計算 = '" & 基本資料.參與計算_ch.Checked & "', 同帳 = '" & 基本資料.上下同帳_ch.Checked & "', 所得 = '" & 基本資料.所得計算_ch.Checked & "'
+                                    計算 = '" & 基本資料.參與計算_ch.Checked & "', 同帳 = '" & 基本資料.上下同帳_ch.Checked & "', 所得 = '" & 基本資料.所得計算_ch.Checked & "', 
+                                    所得另算 = N'" & PA5 & "'
                 WHERE  流水號 LIKE N'" & 基本資料.流水號_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統編碼規則_客戶下批改()
-        ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "' WHERE  流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "', 所得另算 = N'" & PA1 & "' WHERE  流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商客資料表2()
         ConnOpen_子SQL()
                             QQQ.中獎s, QQQ.輸贏s, QQQ.客戶小計s, QQQ.代理小計s, QQQ.總代理小計s, QQQ.股東小計s, QQQ.大股東小計s, 
                             QQQ.總監小計s, QQQ.個人所得s, QQQ.水差s, QQQ.下注明細s, QQQ.查看對帳s, QQQ.客帳, 選擇按鈕.按鈕, 
                             QQQ.帳戶 AS 客名, 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, QQQ.帳戶 AS 同帳指定, 選擇按鈕.按鈕 AS 所得, 
-                            QQQ.個人所得 AS 所得另算
+                            QQQ.個人所得 AS 所得另算, QQQ.總監
                 FROM        選擇按鈕 RIGHT OUTER JOIN
                            (SELECT          流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50) AS 網址, 流水帳.帳戶, 
                                             商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
                                             流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 
                                             流水帳.自已總輸贏, 流水帳.上繳貢獻額, 流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 
                                             流水帳.玩法明細, 流水帳.調盤退水, 流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 
-                                            流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 
+                                            流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.總監, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 
                                             流水帳.輸贏s, 流水帳.客戶小計s, 流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 
                                             流水帳.大股東小計s, 流水帳.總監小計s, 流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 
                                             流水帳.查看對帳s, 商客基本資料表.上繳源 AS 客帳
                                             流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 
                                             流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 
                                             流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 
-                                            流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s) AS QQQ ON 
+                                            流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.總監) AS QQQ ON 
                             選擇按鈕.選擇 = QQQ.商品
                 ORDER BY    QQQ.商品, QQQ.網址, QQQ.帳戶"
         CmdSet_For_DGV()
                 ORDER BY   下行客戶.客名"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_客戶下所得名稱清單()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT 所得另算 FROM 下行客戶 WHERE (所得另算 IS NOT NULL) GROUP BY 所得另算 ORDER BY 所得另算"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_流水帳商品()
         ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商客基本資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()
     End Sub
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_客戶下資料表()
-        ConnOpen_子SQL() : SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 客名 AS 客戶名稱, 計算, 同帳, 所得, 基數, 流水號  FROM 下行客戶" : CmdSet_For_DGV()
+        ConnOpen_子SQL() : SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 客名 AS 客戶名稱, 計算, 同帳, 所得, 基數, 流水號, 所得另算  FROM 下行客戶" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_客戶下名稱()
         ConnOpen_子SQL()
                             QQQ.中獎s, QQQ.輸贏s, QQQ.客戶小計s, QQQ.代理小計s, QQQ.總代理小計s, QQQ.股東小計s, QQQ.大股東小計s, 
                             QQQ.總監小計s, QQQ.個人所得s, QQQ.水差s, QQQ.下注明細s, QQQ.查看對帳s, QQQ.客帳 AS 客戶帳號, 選擇按鈕.按鈕, 
                             QQQ.帳戶 AS 客戶名稱, 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, QQQ.帳戶 AS 同帳指定, 選擇按鈕.按鈕 AS 所得, 
-                            QQQ.個人所得 AS 所得另算, QQQ.[index], QQQ.帳戶 AS 下客流水
+                            QQQ.個人所得 AS 所得另算, QQQ.[index], QQQ.帳戶 AS 下客流水, QQQ.總監, QQQ.帳戶 AS 所得指定
                 FROM        選擇按鈕 RIGHT OUTER JOIN
                            (SELECT     流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50) AS 網址, 流水帳.帳戶, 
                                        商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
                                        流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 
                                        流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 
                                        流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 
-                                       流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 
+                                       流水帳.大股東, 流水帳.總監, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 
                                        流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 
                                        流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 
                                        商客基本資料表.上繳源 AS 客帳, 流水帳.[index]
                              WHERE    (流水帳.開始日期 LIKE N'" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
                                       (流水帳.結束日期 LIKE N'" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
                                       (商客基本資料表.商品 LIKE N'%" & 帳務明細查詢表.商品_cb.Text & "%') AND 
-                                      (商客基本資料表.上繳源 LIKE N'%" & 帳務明細查詢表.老闆_cb.Text & "%') AND 
-                                       (流水帳.查看對帳s LIKE N'" & PA32 & "')
+                                      (商客基本資料表.上繳源 LIKE N'%" & 帳務明細查詢表.老闆_cb.Text & "%') " & PA32 & "
                              GROUP BY  流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50), 流水帳.帳戶, 
                                        商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
                                        商客基本資料表.上繳源, 流水帳.名稱, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 
                                        流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 
                                        流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 
                                        流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 
-                                       流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.[index]) AS QQQ ON 選擇按鈕.選擇 = QQQ.商品
+                                       流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.[index], 流水帳.總監) AS QQQ ON 選擇按鈕.選擇 = QQQ.商品
                 ORDER BY   QQQ.商品, QQQ.網址, QQQ.帳戶"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_帳務明細查詢表客戶寫入()
         ConnOpen_子SQL()
-        SQL1 = "UPDATE 流水帳 SET 查看對帳s = N'" & PA38 & "' 
+        SQL1 = "UPDATE 流水帳 SET 查看對帳s = N'" & PA38 & "', 下注明細s = N'" & PA32 & "'
                 WHERE ([index] LIKE N'" & PA37 & "') AND (開始日期 LIKE N'" & PA36 & "') AND (結束日期 LIKE N'" & PA35 & "') AND 
                       (SUBSTRING(網址, 7, 50) LIKE N'" & PA34 & "') AND (帳戶 LIKE N'" & PA33 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_所得另算表()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT     商客基本資料表.商品, 商客基本資料表.商品 AS 所得
+                FROM       流水帳 LEFT OUTER JOIN
+                           商客基本資料表 ON 流水帳.帳戶 = 商客基本資料表.帳號 AND SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址
+                WHERE     (流水帳.下注明細s LIKE N'%" & 帳務明細查詢表.所得指定_cb.Text & "%') AND (流水帳.開始日期 LIKE N'" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
+                          (流水帳.結束日期 LIKE N'" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "')
+                GROUP BY   商客基本資料表.商品
+                ORDER BY   商客基本資料表.商品"
+        CmdSet_For_DGV()
+    End Sub
 End Module

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

                         N'" & 系統使用者管理.CheckBox10.Checked & "', N'" & 系統使用者管理.CheckBox11.Checked & "', N'" & 系統使用者管理.CheckBox12.Checked & "', 
                         N'" & 系統使用者管理.CheckBox13.Checked & "', N'" & 系統使用者管理.CheckBox14.Checked & "', N'" & 系統使用者管理.CheckBox15.Checked & "', 
                         N'" & 系統使用者管理.CheckBox16.Checked & "', N'" & 系統使用者管理.CheckBox17.Checked & "', N'" & 系統使用者管理.CheckBox18.Checked & "', 
-                        N'" & 系統使用者管理.CheckBox19.Checked & "', N'" & 系統使用者管理.CheckBox20.Checked & "', N'" & 系統使用者管理.CheckBox21.Checked & "')"
+                        N'" & 系統使用者管理.CheckBox19.Checked & "', N'" & 系統使用者管理.CheckBox20.Checked & "', N'" & 系統使用者管理.CheckBox21.Checked & "', 
+                        N'" & 系統使用者管理.CheckBox22.Checked & "', N'" & 系統使用者管理.CheckBox23.Checked & "', N'" & 系統使用者管理.CheckBox24.Checked & "', 
+                        N'" & 系統使用者管理.CheckBox25.Checked & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者修改()
                                             CC15 = N'" & 系統使用者管理.CheckBox15.Checked & "', CC16 = N'" & 系統使用者管理.CheckBox16.Checked & "', 
                                             CC17 = N'" & 系統使用者管理.CheckBox17.Checked & "', CC18 = N'" & 系統使用者管理.CheckBox18.Checked & "', 
                                             CC19 = N'" & 系統使用者管理.CheckBox19.Checked & "', CC20 = N'" & 系統使用者管理.CheckBox20.Checked & "', 
-                                            CC21 = N'" & 系統使用者管理.CheckBox21.Checked & "'                  
+                                            CC21 = N'" & 系統使用者管理.CheckBox21.Checked & "', CC22 = N'" & 系統使用者管理.CheckBox22.Checked & "', 
+                                            CC23 = N'" & 系統使用者管理.CheckBox23.Checked & "', CC24 = N'" & 系統使用者管理.CheckBox24.Checked & "', 
+                                            CC25 = N'" & 系統使用者管理.CheckBox25.Checked & "'                  
                 WHERE (帳號 = N'" & 系統使用者管理.帳號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
         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 & "')"
+        SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算) 
+                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "')"
         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, 查看對帳s, 隨機碼
                 FROM   流水帳
-                WHERE  (結束日期 BETWEEN '2021-06-01' AND 
-                                                       '" & Strings.Format(資料備份轉移.日期_dtp.Value, "yyyy-MM-dd") & "')
                 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, 查看對帳s, 隨機碼
                 FROM   流水帳
-                WHERE  (結束日期 BETWEEN '2021-06-01' AND 
-                                                       '" & Strings.Format(資料備份轉移.日期_dtp.Value, "yyyy-MM-dd") & "')
                 ORDER BY 結束日期"
         CmdSet_For_DGV()
     End Sub
         SQL1 = "INSERT INTO 流水帳 ([index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 
                        上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 客戶s, 
                        總量s, 中獎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'" & PA41 & "', N'" & PA5 & "', N'" & PA42 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_轉換連線用()
+        ConnOpen() : SQL1 = "SELECT  客戶, 資料庫, IP位置, 帳號, 密碼, 備份, 備份IP, 備份帳號, 密碼密碼 AS 備份密碼 FROM 客戶資料表 WHERE 資料庫 LIKE N'" & 子SQL名稱 & "'" : CmdSet_For_dr()
+    End Sub
 End Module

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

     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 版本 As String = "2021073001"
+    Public 版本 As String = "2021091601"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登 As Boolean : Public 內外網 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
     Public PA24 As String = "" : Public PA25 As String = "" : Public PA26 As String = "" : Public PA27 As String = "" : Public PA28 As String = "" : Public PA29 As String = ""
     Public PA30 As String = "" : Public PA31 As String = "" : Public PA32 As String = "" : Public PA33 As String = "" : Public PA34 As String = "" : Public PA35 As String = ""
     Public PA36 As String = "" : Public PA37 As String = "" : Public PA38 As String = "" : Public PA39 As String = "" : Public PA40 As String = "" : Public PA41 As String = ""
+    Public PA42 As String = ""
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double
     '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

GA-ERP-SYS/My Project/Resources.Designer.vb

             End Set
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property _00aa2ad767a242ddc3099a90a5c7edb() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("00aa2ad767a242ddc3099a90a5c7edb", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property _125425789654() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("125425789654", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property _1631414926457() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("1631414926457", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property _47526ccfe6fd81c95524745ad12d1f7() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("47526ccfe6fd81c95524745ad12d1f7", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property _5bb63d4ef7f776f75809dfb810d8a16() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("5bb63d4ef7f776f75809dfb810d8a16", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>

GA-ERP-SYS/My Project/Resources.resx

   <data name="Personnel1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Personnel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="125425789654" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\125425789654.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Shipping51" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="0111121hh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\0111121hh.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Delivery-Icon1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Delivery-Icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Shipping5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="check-icon1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\check-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Sys-Command" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Sys-Command.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="0111121hh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\0111121hh.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="1631414926457" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\1631414926457.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="1627008239188" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\1627008239188.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="delivery" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\delivery.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="timg03" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\timg03.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="depositphotos_189846782-stock-illustration-ga-g-a-letter-logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\depositphotos_189846782-stock-illustration-ga-g-a-letter-logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="check" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="5bb63d4ef7f776f75809dfb810d8a16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\5bb63d4ef7f776f75809dfb810d8a16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="timg13" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\timg13.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Shipping5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="timg03" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\timg03.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="basket_back1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\basket_back.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   <data name="check-icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\check-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="47526ccfe6fd81c95524745ad12d1f7" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\47526ccfe6fd81c95524745ad12d1f7.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="timg02" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\timg02.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="business-info" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\business-info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="1627008239188" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\1627008239188.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="00aa2ad767a242ddc3099a90a5c7edb" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\00aa2ad767a242ddc3099a90a5c7edb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

GA-ERP-SYS/My Project/Settings.Designer.vb

 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
 
 
 Namespace My
-
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.5.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
-
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
-
-#Region "My.Settings Auto-Save Functionality"
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "My.Settings 自動儲存功能"
 #If _MyType = "WindowsForms" Then
-        Private Shared addedHandler As Boolean
+    Private Shared addedHandler As Boolean
 
-        Private Shared addedHandlerLockObject As New Object
+    Private Shared addedHandlerLockObject As New Object
 
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
-            If My.Application.SaveMySettingsOnExit Then
-                My.Settings.Save()
-            End If
-        End Sub
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
 #End If
 #End Region
-
+        
         Public Shared ReadOnly Property [Default]() As MySettings
             Get
-
+                
 #If _MyType = "WindowsForms" Then
-                   If Not addedHandler Then
-                        SyncLock addedHandlerLockObject
-                            If Not addedHandler Then
-                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                                addedHandler = True
-                            End If
-                        End SyncLock
-                    End If
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
 #End If
                 Return defaultInstance
             End Get
 End Namespace
 
 Namespace My
-
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
     Friend Module MySettingsProperty
-
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
         Friend ReadOnly Property Settings() As Global.GA_ERP_SYS.My.MySettings
             Get
                 Return Global.GA_ERP_SYS.My.MySettings.Default

GA-ERP-SYS/bin/Debug/GA-ERP-SYS.exe.config

-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
     </startup>
-</configuration>
+</configuration>

GA-ERP-SYS/bin/Debug/GA-ERP-SYS.xml

   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._00aa2ad767a242ddc3099a90a5c7edb">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:GA_ERP_SYS.My.Resources.Resources._0111121hh">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._125425789654">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:GA_ERP_SYS.My.Resources.Resources._1627008239187">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._1631414926457">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._47526ccfe6fd81c95524745ad12d1f7">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._5bb63d4ef7f776f75809dfb810d8a16">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:GA_ERP_SYS.My.Resources.Resources.basket_back">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

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

-21f061c57a10f84251eafdb24fe43be1b961d696
+6526e6772923c5594ab2b4b0d5a97d2ed4a7694f

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

 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.資料備份轉移.resources
 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務彙總計算表.resources
 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務明細查詢表.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.錯誤排除手冊.resources

GA-ERP-SYS/obj/Debug/GA-ERP-SYS.xml

   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._00aa2ad767a242ddc3099a90a5c7edb">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:GA_ERP_SYS.My.Resources.Resources._0111121hh">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._125425789654">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:GA_ERP_SYS.My.Resources.Resources._1627008239187">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._1631414926457">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._47526ccfe6fd81c95524745ad12d1f7">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources._5bb63d4ef7f776f75809dfb810d8a16">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:GA_ERP_SYS.My.Resources.Resources.basket_back">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

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

     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.取消_bt = New System.Windows.Forms.Button()
         Me.存檔_bt = New System.Windows.Forms.Button()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.所得取消_bt = New System.Windows.Forms.Button()
         Me.所得全選_bt = New System.Windows.Forms.Button()
+        Me.所得指定_tb = New System.Windows.Forms.TextBox()
+        Me.Label28 = New System.Windows.Forms.Label()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.基數_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         '基數_dgv
         '
-        DataGridViewCellStyle40.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.基數_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle40
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.基數_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.基數_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         '
         '資料_dgv
         '
-        DataGridViewCellStyle41.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle41
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.資料_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         '
         '商品_dgv
         '
-        DataGridViewCellStyle42.BackColor = System.Drawing.Color.LavenderBlush
-        Me.商品_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.LavenderBlush
+        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) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         '
         Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.GroupBox5.Controls.Add(Me.所得指定_tb)
+        Me.GroupBox5.Controls.Add(Me.Label28)
         Me.GroupBox5.Controls.Add(Me.所得計算_ch)
         Me.GroupBox5.Controls.Add(Me.參與計算_ch)
         Me.GroupBox5.Controls.Add(Me.取消2_bt)
         '取消2_bt
         '
         Me.取消2_bt.ForeColor = System.Drawing.Color.Black
-        Me.取消2_bt.Location = New System.Drawing.Point(389, 89)
+        Me.取消2_bt.Location = New System.Drawing.Point(389, 93)
         Me.取消2_bt.Name = "取消2_bt"
         Me.取消2_bt.Size = New System.Drawing.Size(76, 24)
         Me.取消2_bt.TabIndex = 1551
         '存檔2_bt
         '
         Me.存檔2_bt.ForeColor = System.Drawing.Color.Green
-        Me.存檔2_bt.Location = New System.Drawing.Point(389, 64)
+        Me.存檔2_bt.Location = New System.Drawing.Point(389, 68)
         Me.存檔2_bt.Name = "存檔2_bt"
         Me.存檔2_bt.Size = New System.Drawing.Size(76, 24)
         Me.存檔2_bt.TabIndex = 1550
         '
         Me.客戶下刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.客戶下刪除_bt.ForeColor = System.Drawing.Color.Red
-        Me.客戶下刪除_bt.Location = New System.Drawing.Point(389, 114)
+        Me.客戶下刪除_bt.Location = New System.Drawing.Point(389, 119)
         Me.客戶下刪除_bt.Name = "客戶下刪除_bt"
         Me.客戶下刪除_bt.Size = New System.Drawing.Size(76, 24)
         Me.客戶下刪除_bt.TabIndex = 1505
         '客戶下修正_bt
         '
         Me.客戶下修正_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.客戶下修正_bt.Location = New System.Drawing.Point(389, 39)
+        Me.客戶下修正_bt.Location = New System.Drawing.Point(389, 43)
         Me.客戶下修正_bt.Name = "客戶下修正_bt"
         Me.客戶下修正_bt.Size = New System.Drawing.Size(76, 24)
         Me.客戶下修正_bt.TabIndex = 1504
         Me.客戶下新增_bt.BackColor = System.Drawing.SystemColors.ControlLight
         Me.客戶下新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.客戶下新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.客戶下新增_bt.Location = New System.Drawing.Point(389, 14)
+        Me.客戶下新增_bt.Location = New System.Drawing.Point(389, 17)
         Me.客戶下新增_bt.Name = "客戶下新增_bt"
         Me.客戶下新增_bt.Size = New System.Drawing.Size(76, 24)
         Me.客戶下新增_bt.TabIndex = 1503
         '
         '客戶下_dgv
         '
-        DataGridViewCellStyle43.BackColor = System.Drawing.Color.Linen
-        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle43
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.Linen
+        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) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         '
         '商客_dgv
         '
-        DataGridViewCellStyle44.BackColor = System.Drawing.Color.LightCyan
-        Me.商客_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle44
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightCyan
+        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)
         '
         'LOG1_dgv
         '
-        DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.LOG1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle46.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.LOG1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.LOG1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
         Me.LOG1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle47.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.LOG1_dgv.DefaultCellStyle = DataGridViewCellStyle47
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.LOG1_dgv.DefaultCellStyle = DataGridViewCellStyle8
         Me.LOG1_dgv.Location = New System.Drawing.Point(6, 18)
         Me.LOG1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.LOG1_dgv.Name = "LOG1_dgv"
-        DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle48.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle48.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.LOG1_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle48
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.LOG1_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
         Me.LOG1_dgv.RowHeadersWidth = 4
         Me.LOG1_dgv.RowTemplate.Height = 24
         Me.LOG1_dgv.Size = New System.Drawing.Size(296, 457)
         '
         'LOG2_dgv
         '
-        DataGridViewCellStyle49.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle49
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
         Me.LOG2_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.LOG2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle50
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.LOG2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
         Me.LOG2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle51.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle51.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle51.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle51.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle51.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle51.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.LOG2_dgv.DefaultCellStyle = DataGridViewCellStyle51
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.LOG2_dgv.DefaultCellStyle = DataGridViewCellStyle12
         Me.LOG2_dgv.Location = New System.Drawing.Point(6, 478)
         Me.LOG2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.LOG2_dgv.Name = "LOG2_dgv"
-        DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle52.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle52.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.LOG2_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle52
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.LOG2_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
         Me.LOG2_dgv.RowHeadersWidth = 4
         Me.LOG2_dgv.RowTemplate.Height = 24
         Me.LOG2_dgv.Size = New System.Drawing.Size(296, 210)
         Me.所得全選_bt.Text = "所得全選"
         Me.所得全選_bt.UseVisualStyleBackColor = False
         '
+        '所得指定_tb
+        '
+        Me.所得指定_tb.Location = New System.Drawing.Point(253, 119)
+        Me.所得指定_tb.Name = "所得指定_tb"
+        Me.所得指定_tb.Size = New System.Drawing.Size(133, 23)
+        Me.所得指定_tb.TabIndex = 1558
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label28.Location = New System.Drawing.Point(197, 123)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(56, 16)
+        Me.Label28.TabIndex = 1557
+        Me.Label28.Text = "所得指定"
+        '
         '基本資料
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
     Friend WithEvents Label27 As Label
     Friend WithEvents 所得取消_bt As Button
     Friend WithEvents 所得全選_bt As Button
+    Friend WithEvents 所得指定_tb As TextBox
+    Friend WithEvents Label28 As Label
 End Class

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

         Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS.WindowState = 0
         商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_tb.Enabled = False
         客戶下_tb.Enabled = False : 客戶名稱_tb.Enabled = False : L50.Visible = False : 參與計算_ch.Enabled = False : 上下同帳_ch.Enabled = False : 所得計算_ch.Enabled = False
-
+        所得指定_tb.Enabled = False
         PictureBox1.BringToFront()
         '-------------------------------------------------------------------------------------------------------
         SQL_下拉資料清單讀取()
     End Sub
     '----------------------------------------------下行客戶----------------------------------------------------------------
     Private Sub 客戶下新增_bt_Click(sender As Object, e As EventArgs) Handles 客戶下新增_bt.Click
-        客戶下新增_bt.Enabled = False : 客戶下_tb.Enabled = True : 客戶名稱_tb.Enabled = True
+        客戶下新增_bt.Enabled = False : 客戶下_tb.Enabled = True : 客戶名稱_tb.Enabled = True : 所得指定_tb.Enabled = True
         客戶下_tb.Text = "" : 客戶名稱_tb.Text = "" : 參與計算_ch.Checked = True : 上下同帳_ch.Checked = False : 所得計算_ch.Checked = True
     End Sub
     Private Sub 客戶下修正_bt_Click(sender As Object, e As EventArgs) Handles 客戶下修正_bt.Click
-        客戶下修正_bt.Enabled = False : 客戶下_tb.Enabled = True : 客戶名稱_tb.Enabled = True
+        客戶下修正_bt.Enabled = False : 客戶下_tb.Enabled = True : 客戶名稱_tb.Enabled = True : 所得指定_tb.Enabled = True
     End Sub
     Private Sub 存檔2_bt_Click(sender As Object, e As EventArgs) Handles 存檔2_bt.Click
         If 客戶下新增_bt.Enabled = False Then
                     ElseIf GP > 999999 Then : GPP = "GA" & GP : End If : PA10 = GPP
 
                     SQL_系統編碼規則_客戶下新增() : MsgBox("新增完成") : conn.Close() : dr.Close()
-                    客戶下新增_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_tb.Enabled = False
+                    客戶下新增_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_tb.Enabled = False : 所得指定_tb.Enabled = False
                 End If
             End If : PA = "" : Set_客戶下清單()
         ElseIf 客戶下修正_bt.Enabled = False Then
             If 客戶下_tb.Text = "" Or 網址3_tb.Text = "" Or 帳號3_tb.Text = "" Then
                 MsgBox("資料有缺或有誤，請重新檢查")
             Else
-                PA = 客戶下_tb.Text : PA1 = 網址3_tb.Text : PA2 = 帳號3_tb.Text : PA3 = 下行1_cb.Text : PA4 = 客戶名稱_tb.Text
+                PA = 客戶下_tb.Text : PA1 = 網址3_tb.Text : PA2 = 帳號3_tb.Text : PA3 = 下行1_cb.Text : PA4 = 客戶名稱_tb.Text : PA5 = 所得指定_tb.Text
                 SQL_系統編碼規則_客戶下修改() : MsgBox("修改完成") : conn.Close() : dr.Close()
-                客戶下修正_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_tb.Enabled = False
+                客戶下修正_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_tb.Enabled = False : 所得指定_tb.Enabled = False
             End If : PA = "" : Set_客戶下清單()
         End If
     End Sub
     Private Sub 取消2_bt_Click(sender As Object, e As EventArgs) Handles 取消2_bt.Click
         客戶下修正_bt.Enabled = True : 客戶下新增_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_tb.Enabled = False
-        參與計算_ch.Checked = False : 上下同帳_ch.Checked = False : 所得計算_ch.Checked = False
+        參與計算_ch.Checked = False : 上下同帳_ch.Checked = False : 所得計算_ch.Checked = False : 所得指定_tb.Enabled = False
     End Sub
     Private Sub 客戶下刪除_bt_Click(sender As Object, e As EventArgs) Handles 客戶下刪除_bt.Click
         Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
             For i As Integer = 0 To 客戶下_dgv.Rows.Count - 1
                 MyModule1.進度條()
                 PA = 客戶下_dgv("流水號", i).Value.ToString : BL1 = 客戶下_dgv("計算", i).Value : BL2 = 客戶下_dgv("同帳", i).Value : BL3 = 客戶下_dgv("所得", i).Value
+                PA1 = 客戶下_dgv("所得指定", i).Value.ToString
                 SQL_系統編碼規則_客戶下批改()
             Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("批量存檔完成!!!")
         End If : conn.Close() : PA = ""
         End If
     End Sub
     Private Sub 開網站_bt_Click(sender As Object, e As EventArgs) Handles 開網站_bt.Click
-        Shell("Rundll32.exe url.dll, FileProtocolHandler http://" & 網址2_tb.Text, vbNormalFocus)
+        Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
+        Dim fullPath As String
+        fullPath = Path.GetFullPath(fileName)
+        Process.Start(fullPath, "--app= http://" & 網址2_tb.Text)
     End Sub
     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
         Dim time As DateTime = DateTime.Now

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

     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.資料_cb = New System.Windows.Forms.ComboBox()
         '
         '流水帳_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
         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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         '彙總_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         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
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
         Me.彙總_dgv.RowTemplate.Height = 24
         Me.彙總_dgv.Size = New System.Drawing.Size(241, 961)
         Me.彙總_dgv.TabIndex = 1521
         '
         '彙總1_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
         Me.彙總1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總2_dgv.Name = "彙總2_dgv"
         Me.彙總2_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
         Me.彙總2_dgv.RowTemplate.Height = 24
         Me.彙總2_dgv.Size = New System.Drawing.Size(512, 257)
         Me.彙總2_dgv.TabIndex = 1535
         '
         '客戶下_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
+        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.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶下_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         'LOG1_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
         Me.LOG1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.LOG1_dgv.Location = New System.Drawing.Point(6, 18)
         Me.LOG1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         '
         'LOG2_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
         Me.LOG2_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.LOG2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         '日期_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        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.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         '
         '彙總3_dgv
         '
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.LightGoldenrodYellow
-        Me.彙總3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle25.BackColor = System.Drawing.Color.LightGoldenrodYellow
+        Me.彙總3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
         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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總3_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總3_dgv.Name = "彙總3_dgv"
         Me.彙總3_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle11.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle26.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
         Me.彙總3_dgv.RowTemplate.Height = 24
         Me.彙總3_dgv.Size = New System.Drawing.Size(512, 514)
         Me.彙總3_dgv.TabIndex = 1579
         '
         '彙總4_dgv
         '
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightGoldenrodYellow
-        Me.彙總4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle27.BackColor = System.Drawing.Color.LightGoldenrodYellow
+        Me.彙總4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
         Me.彙總4_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.彙總4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.客戶_dgv.Name = "客戶_dgv"
         Me.客戶_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
         Me.客戶_dgv.RowTemplate.Height = 24
         Me.客戶_dgv.Size = New System.Drawing.Size(393, 257)
         Me.客戶_dgv.TabIndex = 1588
         '
         '彙總5_dgv
         '
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.LightCyan
-        Me.彙總5_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle29.BackColor = System.Drawing.Color.LightCyan
+        Me.彙總5_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
         Me.彙總5_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.彙總5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總5_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總5_dgv.Name = "彙總5_dgv"
         Me.彙總5_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle30.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle30
         Me.彙總5_dgv.RowTemplate.Height = 24
         Me.彙總5_dgv.Size = New System.Drawing.Size(393, 514)
         Me.彙總5_dgv.TabIndex = 1589
         Me.L6.AutoSize = True
         Me.L6.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.L6.ForeColor = System.Drawing.Color.Green
-        Me.L6.Location = New System.Drawing.Point(880, 351)
+        Me.L6.Location = New System.Drawing.Point(1013, 351)
         Me.L6.Name = "L6"
         Me.L6.Size = New System.Drawing.Size(34, 17)
         Me.L6.TabIndex = 1593
         '合計_tb
         '
         Me.合計_tb.ForeColor = System.Drawing.Color.Green
-        Me.合計_tb.Location = New System.Drawing.Point(916, 348)
+        Me.合計_tb.Location = New System.Drawing.Point(1049, 348)
         Me.合計_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.合計_tb.Name = "合計_tb"
         Me.合計_tb.Size = New System.Drawing.Size(111, 23)
         '所得2_tb
         '
         Me.所得2_tb.ForeColor = System.Drawing.Color.Green
-        Me.所得2_tb.Location = New System.Drawing.Point(1067, 348)
+        Me.所得2_tb.Location = New System.Drawing.Point(915, 348)
         Me.所得2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得2_tb.Name = "所得2_tb"
         Me.所得2_tb.Size = New System.Drawing.Size(95, 23)
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label7.ForeColor = System.Drawing.Color.Green
-        Me.Label7.Location = New System.Drawing.Point(1033, 351)
+        Me.Label7.Location = New System.Drawing.Point(881, 351)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(34, 17)
         Me.Label7.TabIndex = 1626

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

         流水帳_dgv.Columns(7).Visible = False : 流水帳_dgv.Columns(6).Visible = False : 流水帳_dgv.Columns("資料").Visible = False
         流水帳_dgv.Columns(0).Visible = False : 流水帳_dgv.Columns(1).Visible = False : 流水帳_dgv.Columns("同帳指定").Visible = False
         流水帳_dgv.Columns("網址").Visible = False : 流水帳_dgv.Columns("水差").Visible = False : 流水帳_dgv.Columns("所得另算").Visible = False
-
+        流水帳_dgv.Columns("總監").Visible = False
         流水帳_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                     流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString
                     流水帳_dgv.Rows(i).Cells("水差1").Value = 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString
                     If 流水帳_dgv.Rows(i).Cells("下行基數").Value.ToString = "總監" Then
-                        流水帳_dgv.Rows(i).Cells("地帳").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
+                        流水帳_dgv.Rows(i).Cells("地帳").Value = 流水帳_dgv.Rows(i).Cells("總監").Value : 流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("下行基數").Value.ToString = "大股東" Then
                         流水帳_dgv.Rows(i).Cells("地帳").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("下行基數").Value.ToString = "股東" Then
                     End If
                     If 流水帳_dgv.Rows(i).Cells("上行基數").Value.ToString = "上缴金额" Then
                         流水帳_dgv.Rows(i).Cells("天帳").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value : 流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value
+                    ElseIf 流水帳_dgv.Rows(i).Cells("上行基數").Value.ToString = "總監" Then
+                        流水帳_dgv.Rows(i).Cells("天帳").Value = 流水帳_dgv.Rows(i).Cells("總監").Value : 流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("上行基數").Value.ToString = "大股東" Then
                         流水帳_dgv.Rows(i).Cells("天帳").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("上行基數").Value.ToString = "股東" Then
                     流水帳_dgv.Rows(i).Cells("個人所得").Value = "0" : 流水帳_dgv.Rows(i).Cells("水差").Value = "0"
                     流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0" : 流水帳_dgv.Rows(i).Cells("水差1").Value = "0"
                     If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
-                        流水帳_dgv.Rows(i).Cells("地帳").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
+                        流水帳_dgv.Rows(i).Cells("地帳").Value = 流水帳_dgv.Rows(i).Cells("總監").Value : 流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "大股東" Then
                         流水帳_dgv.Rows(i).Cells("地帳").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "股東" Then
                     End If
                     If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "上缴金额" Then
                         流水帳_dgv.Rows(i).Cells("天帳").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value : 流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value
+                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
+                        流水帳_dgv.Rows(i).Cells("天帳").Value = 流水帳_dgv.Rows(i).Cells("總監").Value : 流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "大股東" Then
                         流水帳_dgv.Rows(i).Cells("天帳").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "股東" Then
                        彙總5_dgv.Rows(i).Cells("客戶帳號").Value.ToString = 流水帳_dgv.Rows(ii).Cells("客帳").Value.ToString Then
                         If 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "總監" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("總監小計s").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("總監小計s").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("總監小計s").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("總監小計s").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "大股東" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("大股東小計s").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("大股東小計s").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("大股東小計s").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("大股東小計s").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "股東" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("股東小計s").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("股東小計s").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("股東小計s").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("股東小計s").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "總代理" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("總代理小計s").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("總代理小計s").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("總代理小計s").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("總代理小計s").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "代理" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("代理小計s").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("代理小計s").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("代理小計s").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("代理小計s").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "會員" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("客戶小計s").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("客戶小計s").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("客戶小計s").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("客戶小計s").Value)) * -1
                         End If
                         彙總5_dgv.Rows(i).Cells("個人所得").Value = Val(彙總5_dgv.Rows(i).Cells("個人所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("所得另算").Value)
                     End If
                        彙總5_dgv.Rows(i).Cells("客戶帳號").Value.ToString = 流水帳_dgv.Rows(ii).Cells("客帳").Value.ToString Then
                         If 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "總監" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("總監").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("總監").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("總監").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("總監").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "大股東" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("大股東").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("大股東").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("大股東").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("大股東").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "股東" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("股東").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("股東").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("股東").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("股東").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "總代理" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("總代理").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("總代理").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("總代理").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("總代理").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "代理" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("代理").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("代理").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("代理").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("代理").Value)) * -1
                         ElseIf 彙總5_dgv.Rows(i).Cells("基數").Value.ToString = "會員" Then
                             If IsDBNull(流水帳_dgv.Rows(ii).Cells("會員").Value) = True Then : 流水帳_dgv.Rows(ii).Cells("會員").Value = "0" : End If
-                            彙總5_dgv.Rows(i).Cells("應收").Value = Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("會員").Value)
+                            彙總5_dgv.Rows(i).Cells("應收").Value = (Val(彙總5_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("會員").Value)) * -1
                         End If
                         彙總5_dgv.Rows(i).Cells("個人所得").Value = Val(彙總5_dgv.Rows(i).Cells("個人所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("所得另算").Value)
                     End If
         End If
         MsgBox("讀取完成!!!")
     End Sub
-    Private Sub 流水帳查詢_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub 帳務彙總計算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS.WindowState = 0
         天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False : DA1_bt.Text = "上一週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下一週"
         L50.Visible = False : 客戶下_dgv.Visible = False : L6.Visible = True : 流水帳_dgv.Visible = False : 彙總1_dgv.Visible = False
         L1.Visible = True : L2.Visible = True : L3.Visible = True : L4.Visible = True : L5.Visible = True : 老闆_tb.Visible = True : 所得1_tb.Visible = True
         天帳1_tb.Visible = True : 地帳1_tb.Visible = True : 客戶_dgv.Visible = True : 彙總5_dgv.Visible = True : 客戶_tb.Visible = True : 合計_tb.Visible = True
     End Sub
-    Private Sub 流水帳查詢_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+    Private Sub 帳務彙總計算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         資料數 = 8
         If CC(8) = False Then : Delete_bT.Enabled = False : End If : MyModule1.進度條()
         If CC(19) = False Then : 進階控制_bt.Enabled = False : End If : MyModule1.進度條()
     End Sub
     Private Sub 開網站_bt_Click(sender As Object, e As EventArgs) Handles 開網站_bt.Click
         If 網址_tb.Text <> "" Then
-            Shell("Rundll32.exe url.dll, FileProtocolHandler http://" & 網址_tb.Text, vbNormalFocus)
+            Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
+            Dim fullPath As String
+            fullPath = Path.GetFullPath(fileName)
+            Process.Start(fullPath, "--app= http://" & 網址_tb.Text)
             使用網址_ch.Checked = False : 網址_tb.Text = ""
         End If
     End Sub
             End If
         End If
     End Sub
+
+    Private Sub 客戶_dgv_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles 客戶_dgv.CellContentClick
+
+    End Sub
+
     Private Sub EXCEL位置1()
         If NN2 = 0 Then : 第一 = "H" : 第二 = "I" : ElseIf NN2 = 4 Then : 第一 = "L" : 第二 = "M" : ElseIf NN2 = 8 Then : 第一 = "P" : 第二 = "Q"
         ElseIf NN2 = 12 Then : 第一 = "T" : 第二 = "U" : ElseIf NN2 = 16 Then : 第一 = "X" : 第二 = "Y" : ElseIf NN2 = 20 Then : 第一 = "AB" : 第二 = "AC"

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

     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(帳務明細查詢表))
+        Dim DataGridViewCellStyle8 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.批量存檔_bt = New System.Windows.Forms.Button()
         Me.開啟帳務彙總_bt = New System.Windows.Forms.Button()
         Me.列印_bt = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.列印1_bt = New System.Windows.Forms.Button()
+        Me.所得彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.所得指定_cb = New System.Windows.Forms.ComboBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        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.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.所得彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '流水帳_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.流水帳_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.流水帳_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.流水帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.流水帳_dgv.Location = New System.Drawing.Point(4, 61)
         Me.流水帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         '
         '客戶下_dgv
         '
-        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
+        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
         Me.客戶下_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶下_dgv.Location = New System.Drawing.Point(12, 538)
+        Me.客戶下_dgv.Location = New System.Drawing.Point(30, 75)
         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(100, 100)
+        Me.客戶下_dgv.Size = New System.Drawing.Size(975, 406)
         Me.客戶下_dgv.TabIndex = 1537
         '
         '日期_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.日期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.日期_dgv.Location = New System.Drawing.Point(118, 538)
+        Me.日期_dgv.Location = New System.Drawing.Point(827, 514)
         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(100, 100)
+        Me.日期_dgv.Size = New System.Drawing.Size(178, 100)
         Me.日期_dgv.TabIndex = 1550
         '
         'DA3_bt
         Me.列印_bt.Text = "列印資料"
         Me.列印_bt.UseVisualStyleBackColor = True
         '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.列印1_bt)
+        Me.Panel1.Controls.Add(Me.所得彙總_dgv)
+        Me.Panel1.Controls.Add(Me.所得指定_cb)
+        Me.Panel1.Controls.Add(Me.Label10)
+        Me.Panel1.Location = New System.Drawing.Point(415, 60)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(241, 606)
+        Me.Panel1.TabIndex = 1653
+        '
+        '列印1_bt
+        '
+        Me.列印1_bt.ForeColor = System.Drawing.Color.Green
+        Me.列印1_bt.Location = New System.Drawing.Point(170, 3)
+        Me.列印1_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.列印1_bt.Name = "列印1_bt"
+        Me.列印1_bt.Size = New System.Drawing.Size(65, 26)
+        Me.列印1_bt.TabIndex = 1653
+        Me.列印1_bt.Text = "列印資料"
+        Me.列印1_bt.UseVisualStyleBackColor = True
+        '
+        '所得彙總_dgv
+        '
+        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), 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 = 4
+        Me.所得彙總_dgv.RowTemplate.Height = 24
+        Me.所得彙總_dgv.Size = New System.Drawing.Size(231, 567)
+        Me.所得彙總_dgv.TabIndex = 1638
+        '
+        '所得指定_cb
+        '
+        Me.所得指定_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.所得指定_cb.FormattingEnabled = True
+        Me.所得指定_cb.Location = New System.Drawing.Point(61, 4)
+        Me.所得指定_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.所得指定_cb.Name = "所得指定_cb"
+        Me.所得指定_cb.Size = New System.Drawing.Size(106, 24)
+        Me.所得指定_cb.TabIndex = 1636
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(5, 8)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(56, 16)
+        Me.Label10.TabIndex = 1637
+        Me.Label10.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(415, 33)
+        Me.所得指定整合_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.所得指定整合_bt.Name = "所得指定整合_bt"
+        Me.所得指定整合_bt.Size = New System.Drawing.Size(96, 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(1181, 698)
+        Me.Controls.Add(Me.所得指定整合_bt)
+        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.列印_bt)
         Me.Controls.Add(Me.開啟帳務彙總_bt)
         Me.Controls.Add(Me.批量存檔_bt)
         Me.Controls.Add(Me.天_ch)
         Me.Controls.Add(Me.資料_cb)
         Me.Controls.Add(Me.日期_dgv)
-        Me.Controls.Add(Me.客戶下_dgv)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.流水帳_dgv)
         Me.Controls.Add(Me.同帳_ch)
         Me.Controls.Add(Me.計算_ch)
         Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.客戶下_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "帳務明細查詢表"
         CType(Me.日期_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.所得彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents 批量存檔_bt As Button
     Friend WithEvents 開啟帳務彙總_bt As Button
     Friend WithEvents 列印_bt As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 所得指定_cb As ComboBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 所得彙總_dgv As DataGridView
+    Friend WithEvents 所得指定整合_bt As Button
+    Friend WithEvents 列印1_bt As Button
 End Class

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

 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 帳務明細查詢表
-    ReadOnly ds, ds4, ds7 As New DataSet : Private N1 As Integer
+    ReadOnly ds, ds1, ds4, ds7 As New DataSet : Private N1 As Integer : Private N2 As Integer
     Dim GP As Integer = 0 : Dim GPP As String : Dim 首次登入 As Boolean = True
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Private Sub Set_所得彙總()
+        所得彙總_dgv.DataSource = Nothing : ds1.Clear()
+        所得彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        所得彙總_dgv.ColumnHeadersHeight = 25
+        所得彙總_dgv.AllowUserToAddRows = False
+        SQL_所得另算表()
+        da.Fill(ds1) : 所得彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        所得彙總_dgv.Columns("所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        For i As Integer = 0 To 所得彙總_dgv.Rows.Count - 1
+            所得彙總_dgv("所得", i).Value = "0"
+            For II As Integer = 0 To 流水帳_dgv.Rows.Count - 1
+                If 流水帳_dgv("所得指定", II).Value.ToString = 所得指定_cb.Text And 流水帳_dgv("所得", i).Value = True And
+                    流水帳_dgv("商品", II).Value.ToString = 所得彙總_dgv("商品", i).Value.ToString Then
+                    所得彙總_dgv("所得", i).Value = Val(所得彙總_dgv("所得", i).Value) + Val(流水帳_dgv("個人所得1", II).Value.ToString)
+                End If
+            Next
+            所得彙總_dgv.Rows(i).Cells("所得").Value = Strings.Format(Val(所得彙總_dgv.Rows(i).Cells("所得").Value), "#,##0")
+        Next
+    End Sub
     Private Sub Set_客戶下清單()
         客戶下_dgv.DataSource = Nothing : ds4.Clear()
         客戶下_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         流水帳_dgv.DataSource = Nothing : ds.Clear() : 流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         流水帳_dgv.ColumnHeadersHeight = 25
         流水帳_dgv.AllowUserToAddRows = False
+        流水帳_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
 
-        If 客戶_cb.Text = "" Then : PA32 = "%%" : Else : PA32 = 客戶_cb.Text : End If
+        If 客戶_cb.Text = "" Then
+            PA32 = " AND (流水帳.查看對帳s LIKE N'%%' OR 流水帳.查看對帳s IS NULL)"
+        Else
+            PA32 = " AND (流水帳.查看對帳s LIKE N'" & 客戶_cb.Text & "')"
+        End If
         SQL_帳務明細查詢表查詢()
         da.Fill(ds) : 流水帳_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        流水帳_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        流水帳_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         流水帳_dgv.Columns("客戶").FillWeight = 110 : 流水帳_dgv.Columns("商品").FillWeight = 70
         流水帳_dgv.Columns("老闆").FillWeight = 55 : 流水帳_dgv.Columns("帳戶").FillWeight = 70
         流水帳_dgv.Columns("計算").FillWeight = 50 : 流水帳_dgv.Columns("同帳").FillWeight = 50
         流水帳_dgv.Columns(0).Visible = False : 流水帳_dgv.Columns(1).Visible = False : 流水帳_dgv.Columns("同帳指定").Visible = False
         流水帳_dgv.Columns("網址").Visible = False : 流水帳_dgv.Columns("所得另算").Visible = False : 流水帳_dgv.Columns("按鈕").Visible = False
         流水帳_dgv.Columns("index").Visible = False : 流水帳_dgv.Columns("下客流水").Visible = False
-
+        流水帳_dgv.Columns("總監").Visible = False
         For i As Integer = 0 To 67 : 流水帳_dgv.Columns(i).ReadOnly = True : Next
 
         流水帳_dgv.Columns("會員.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             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
+            流水帳_dgv("所得指定", i).Value = ""
         Next
         計算()
     End Sub
                 If 流水帳_dgv("客戶帳號", i).Value.ToString = 客戶下_dgv("客戶帳號", ii).Value.ToString And 流水帳_dgv("網址", i).Value.ToString = 客戶下_dgv("網址", ii).Value.ToString Then
                     流水帳_dgv("客戶名稱", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString : 流水帳_dgv("計算", i).Value = 客戶下_dgv("計算", ii).Value
                     流水帳_dgv("同帳", i).Value = 客戶下_dgv("同帳", ii).Value : 流水帳_dgv("同帳指定", i).Value = 客戶下_dgv("基數", ii).Value
-                    流水帳_dgv("所得", i).Value = 客戶下_dgv("所得", ii).Value : 流水帳_dgv("下客流水", i).Value = 客戶下_dgv("流水號", ii).Value : Exit For
+                    流水帳_dgv("所得", i).Value = 客戶下_dgv("所得", ii).Value : 流水帳_dgv("下客流水", i).Value = 客戶下_dgv("流水號", ii).Value
+                    流水帳_dgv("所得指定", i).Value = 客戶下_dgv("所得另算", ii).Value
+                    Exit For
                 Else
                     流水帳_dgv("客戶名稱", i).Value = "" : 流水帳_dgv("計算", i).Value = False : 流水帳_dgv("同帳", i).Value = False : 流水帳_dgv("所得", i).Value = False
                 End If
                 Else : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("水差1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("水差1").Value = 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString : End If
-                If 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("總監1").Value = "0"
-                Else : 流水帳_dgv.Rows(i).Cells("總監1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString : End If
+                If 流水帳_dgv.Rows(i).Cells("總監").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("總監1").Value = "0"
+                Else : 流水帳_dgv.Rows(i).Cells("總監1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("大股東1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("大股東1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("股東").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("股東1").Value = "0"
                 流水帳_dgv.Rows(i).Cells("所得另算").Value = "0"
             End If
         Next
-        'Set_LOG1() : MyModule1.進度條() : Set_LOG2() : MyModule1.進度條() : Set_流水帳清單2() : MyModule1.進度條() : Set_流水帳清單3() : MyModule1.進度條() : Set_流水帳清單4() : MyModule1.進度條()
-        '首次顯示()
         GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
         資料數 = 流水帳_dgv.Rows.Count
         For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
+            If 流水帳_dgv("所得", i).Value = False Then
+                流水帳_dgv.Rows(i).Cells("個人所得").Value = "0"
+            End If
             If 流水帳_dgv("同帳", i).Value = True Then
                 If Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短版" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短板" Then
                     If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
                     If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
                         流水帳_dgv.Rows(i).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("總代理.").Value = "0"
                         流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = "0"
-                        流水帳_dgv.Rows(i).Cells("總監.").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
+                        流水帳_dgv.Rows(i).Cells("總監.").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "大股東" Then
                         流水帳_dgv.Rows(i).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("總代理.").Value = "0"
                         流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                 End If
             End If
             MyModule1.進度條()
-            If IsDBNull(流水帳_dgv("查看對帳s", i).Value) = True Then
+            If IsDBNull(流水帳_dgv("查看對帳s", i).Value) = True Or IsDBNull(流水帳_dgv("下注明細s", 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
                 SQL_帳務明細查詢表客戶寫入()
-            ElseIf 流水帳_dgv("查看對帳s", i).Value = "查看" Or 流水帳_dgv("查看對帳s", i).Value = "" Then
+            ElseIf 流水帳_dgv("查看對帳s", i).Value = "查看" Or 流水帳_dgv("查看對帳s", i).Value = "" Or 流水帳_dgv("下注明細s", i).Value = "查看" Or 流水帳_dgv("下注明細s", i).Value = "" 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
                 SQL_帳務明細查詢表客戶寫入()
             End If
         Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     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 : GA_ERP_SYS.WindowState = 0
-        日期_dgv.Visible = False : 客戶下_dgv.Visible = False : PictureBox1.BringToFront()
+        日期_dgv.Visible = False : 客戶下_dgv.Visible = False : PictureBox1.BringToFront() : Panel1.Visible = False
         天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False
         DA1_bt.Text = "上一週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下一週"
     End Sub
         SQL_流水帳上繳_明細用() : 老闆_cb.Items.Clear() : 老闆_cb.Items.Add("") : While (dr.Read()) : 老闆_cb.Items.Add(dr("上繳源")) : End While : conn.Close()
         If 老闆_cb.Text = "" Then : PA39 = "%%" : Else : PA39 = 老闆_cb.Text : End If
         SQL_流水帳客戶_明細用() : 客戶_cb.Items.Clear() : 客戶_cb.Items.Add("") : While (dr.Read()) : 客戶_cb.Items.Add(dr("客名")) : End While : conn.Close()
+        SQL_客戶下所得名稱清單() : 所得指定_cb.Items.Clear() : While (dr.Read()) : 所得指定_cb.Items.Add(dr("所得另算")) : End While : conn.Close()
         首次登入 = False
     End Sub
     Private Sub 帳務明細查詢表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
             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_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 流水帳_dgv.CellMouseClick
         Dim YY As Integer
         If 流水帳_dgv.SelectedCells.Count = 1 Then
                 Else : 流水帳_dgv.Rows(YY).Cells("個人所得1").Value = 流水帳_dgv.Rows(YY).Cells("自已總輸贏").Value.ToString : End If
                 If 流水帳_dgv.Rows(YY).Cells("水倍差").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("水差1").Value = "0"
                 Else : 流水帳_dgv.Rows(YY).Cells("水差1").Value = 流水帳_dgv.Rows(YY).Cells("水倍差").Value.ToString : End If
-                If 流水帳_dgv.Rows(YY).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("總監1").Value = "0"
-                Else : 流水帳_dgv.Rows(YY).Cells("總監1").Value = 流水帳_dgv.Rows(YY).Cells("大股東").Value.ToString : End If
+                If 流水帳_dgv.Rows(YY).Cells("總監").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("總監1").Value = "0"
+                Else : 流水帳_dgv.Rows(YY).Cells("總監1").Value = 流水帳_dgv.Rows(YY).Cells("總監").Value.ToString : End If
                 If 流水帳_dgv.Rows(YY).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("大股東1").Value = "0"
                 Else : 流水帳_dgv.Rows(YY).Cells("大股東1").Value = 流水帳_dgv.Rows(YY).Cells("大股東").Value.ToString : End If
                 If 流水帳_dgv.Rows(YY).Cells("股東").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("股東1").Value = "0"
                     If 流水帳_dgv.Rows(YY).Cells("同帳指定").Value.ToString = "總監" Then
                         流水帳_dgv.Rows(YY).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0"
                         流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("大股東.").Value = "0"
-                        流水帳_dgv.Rows(YY).Cells("總監.").Value = 流水帳_dgv.Rows(YY).Cells("大股東").Value
+                        流水帳_dgv.Rows(YY).Cells("總監.").Value = 流水帳_dgv.Rows(YY).Cells("總監").Value
                     ElseIf 流水帳_dgv.Rows(YY).Cells("同帳指定").Value.ToString = "大股東" Then
                         流水帳_dgv.Rows(YY).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0"
                         流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("大股東.").Value = 流水帳_dgv.Rows(YY).Cells("大股東").Value
                 Else : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("水差1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("水差1").Value = 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString : End If
-                If 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("總監1").Value = "0"
-                Else : 流水帳_dgv.Rows(i).Cells("總監1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString : End If
+                If 流水帳_dgv.Rows(i).Cells("總監").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("總監1").Value = "0"
+                Else : 流水帳_dgv.Rows(i).Cells("總監1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("大股東1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("大股東1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("股東").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("股東1").Value = "0"
                     If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
                         流水帳_dgv.Rows(i).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("總代理.").Value = "0"
                         流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = "0"
-                        流水帳_dgv.Rows(i).Cells("總監.").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
+                        流水帳_dgv.Rows(i).Cells("總監.").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                     ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "大股東" Then
                         流水帳_dgv.Rows(i).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("總代理.").Value = "0"
                         流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
             For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                 MyModule1.進度條()
                 PA = 流水帳_dgv("下客流水", i).Value.ToString : BL1 = 流水帳_dgv("計算", i).Value : BL2 = 流水帳_dgv("同帳", i).Value : BL3 = 流水帳_dgv("所得", i).Value
+                PA1 = 流水帳_dgv("所得指定", i).Value.ToString
                 SQL_系統編碼規則_客戶下批改()
             Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("批量存檔完成!!!")
+            SQL_客戶下所得名稱清單() : 所得指定_cb.Items.Clear() : While (dr.Read()) : 所得指定_cb.Items.Add(dr("所得另算")) : End While : conn.Close()
         End If : conn.Close() : PA = ""
     End Sub
+    Private Sub 所得指定整合_bt_Click(sender As Object, e As EventArgs) Handles 所得指定整合_bt.Click
+        If Panel1.Visible = False Then : Panel1.Visible = True : Else : Panel1.Visible = False : End If : Set_所得彙總()
+    End Sub
+    Private Sub 所得指定_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 所得指定_cb.SelectedIndexChanged
+        Set_所得彙總()
+    End Sub
+    Private Sub 列印1_bt_Click(sender As Object, e As EventArgs) Handles 列印1_bt.Click
+        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlApp.Visible = True
+        xlApp.Application.WindowState = xlMaximized
+        N1 = 0 : N2 = 0
+        If 所得指定_cb.Items.Count = 0 Then
+            Set_所得彙總()
+            xlSheet = NewMethod(xlBook)
+            If 所得指定_cb.Text = "" Then
+                xlApp.Sheets(1).Name = "未指定所得"
+            Else
+                xlApp.Sheets(1).Name = 所得指定_cb.Text
+            End If
+            xlBook.Activate() : xlSheet.Activate()
+            xlSheet.Cells(1, 1) = 所得指定_cb.Text
+            xlSheet.Cells(2, 1) = "商品" : xlSheet.Cells(2, 2) = "所得"
+            For II As Integer = 0 To 所得彙總_dgv.Rows.Count - 1
+                xlSheet.Cells(3 + II, 1) = 所得彙總_dgv.Rows(II).Cells("商品").Value : xlSheet.Cells(3 + II, 2) = 所得彙總_dgv.Rows(II).Cells("所得").Value
+                N1 = II
+            Next
+            N2 = 1
+            所得格式(xlApp, xlSheet)
+        Else
+            For i As Integer = 0 To 所得指定_cb.Items.Count - 1
+                所得指定_cb.SelectedIndex = i
+                xlSheet = NewMethod(xlBook)
+                If 所得指定_cb.Text = "" Then
+                    xlApp.Sheets(1).Name = "未指定所得"
+                Else
+                    xlApp.Sheets(1).Name = 所得指定_cb.Text
+                End If
+                xlBook.Activate() : xlSheet.Activate()
+                xlSheet.Cells(1, 1) = 所得指定_cb.Text
+                xlSheet.Cells(2, 1) = "商品" : xlSheet.Cells(2, 2) = "所得"
+                For II As Integer = 0 To 所得彙總_dgv.Rows.Count - 1
+                    xlSheet.Cells(3 + II, 1) = 所得彙總_dgv.Rows(II).Cells("商品").Value : xlSheet.Cells(3 + II, 2) = 所得彙總_dgv.Rows(II).Cells("所得").Value
+                    N1 = II
+                Next
+                N2 = i + 1
+                所得格式(xlApp, xlSheet)
+            Next
+        End If
+
+        xlApp.Sheets(N2 + 1).Delete
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        MsgBox("列印完成")
+    End Sub
     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
         xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
         xlBook = xlApp.Workbooks.Add
 
         xlSheet.Rows("3:3").Select : myExcel.ActiveWindow.FreezePanes = True
     End Sub
+    Private Sub 所得格式(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+
+        xlSheet.Columns("A:B").Select : myExcel.Columns("A:B").EntireColumn.AutoFit
+
+        xlSheet.Range("A1:B1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+
+        xlSheet.Range("A1:B" & N1 + 3).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+
+        xlSheet.Range("A1:B1").Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent2 : .TintAndShade = 0.399975585192419
+            .PatternTintAndShade = 0 : End With
+
+        myExcel.ActiveWindow.DisplayGridlines = False
+
+        xlSheet.Columns("A:A").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+        xlSheet.Columns("B:B").Select
+        myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+        xlSheet.Range("D1").Select()
+    End Sub
 End Class

GA-ERP-SYS/特殊操作功能/錯誤排除手冊.Designer.vb

+<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()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.TabControl1.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        '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.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Location = New System.Drawing.Point(2, 2)
+        Me.TabControl1.Multiline = True
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(1125, 596)
+        Me.TabControl1.TabIndex = 0
+        '
+        'TabPage1
+        '
+        Me.TabPage1.AutoScroll = True
+        Me.TabPage1.Controls.Add(Me.PictureBox5)
+        Me.TabPage1.Controls.Add(Me.PictureBox4)
+        Me.TabPage1.Controls.Add(Me.Label6)
+        Me.TabPage1.Controls.Add(Me.Label5)
+        Me.TabPage1.Controls.Add(Me.PictureBox3)
+        Me.TabPage1.Controls.Add(Me.Label3)
+        Me.TabPage1.Controls.Add(Me.Button2)
+        Me.TabPage1.Controls.Add(Me.TextBox2)
+        Me.TabPage1.Controls.Add(Me.Label4)
+        Me.TabPage1.Controls.Add(Me.PictureBox2)
+        Me.TabPage1.Controls.Add(Me.TextBox1)
+        Me.TabPage1.Controls.Add(Me.Button1)
+        Me.TabPage1.Controls.Add(Me.Label2)
+        Me.TabPage1.Controls.Add(Me.PictureBox1)
+        Me.TabPage1.Controls.Add(Me.Label1)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(1117, 567)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "網路DRIVER錯誤"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'PictureBox5
+        '
+        Me.PictureBox5.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._00aa2ad767a242ddc3099a90a5c7edb
+        Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox5.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox5.Location = New System.Drawing.Point(502, 682)
+        Me.PictureBox5.Name = "PictureBox5"
+        Me.PictureBox5.Size = New System.Drawing.Size(476, 390)
+        Me.PictureBox5.TabIndex = 15
+        Me.PictureBox5.TabStop = False
+        '
+        'PictureBox4
+        '
+        Me.PictureBox4.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._125425789654
+        Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox4.Location = New System.Drawing.Point(29, 682)
+        Me.PictureBox4.Name = "PictureBox4"
+        Me.PictureBox4.Size = New System.Drawing.Size(472, 390)
+        Me.PictureBox4.TabIndex = 14
+        Me.PictureBox4.TabStop = False
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.ForeColor = System.Drawing.Color.Red
+        Me.Label6.Location = New System.Drawing.Point(26, 647)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(558, 32)
+        Me.Label6.TabIndex = 13
+        Me.Label6.Text = "3，下載解壓chromedriver，再將檔案複製貼到系統安裝目錄中，覆蓋掉之前的那個檔案即可完成更新。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "       a、你可以在系統桌面的捷徑上按下滑鼠右鍵" &
+    "，開啟系統的安裝目錄。"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Red
+        Me.Label5.Location = New System.Drawing.Point(44, 448)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(414, 16)
+        Me.Label5.TabIndex = 12
+        Me.Label5.Text = "列表裡的chromedriver主版本號都是與chrome版本的主版本號一一對應的。"
+        '
+        'PictureBox3
+        '
+        Me.PictureBox3.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._5bb63d4ef7f776f75809dfb810d8a16
+        Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox3.Location = New System.Drawing.Point(29, 469)
+        Me.PictureBox3.Name = "PictureBox3"
+        Me.PictureBox3.Size = New System.Drawing.Size(949, 171)
+        Me.PictureBox3.TabIndex = 11
+        Me.PictureBox3.TabStop = False
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.Red
+        Me.Label3.Location = New System.Drawing.Point(498, 223)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(269, 16)
+        Me.Label3.TabIndex = 10
+        Me.Label3.Text = "從Chrome瀏覽器中德茲你電腦中目前的版本號。"
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(758, 422)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(98, 23)
+        Me.Button2.TabIndex = 9
+        Me.Button2.Text = "打開瀏覽器"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(419, 422)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(333, 23)
+        Me.TextBox2.TabIndex = 8
+        Me.TextBox2.Text = "https://chromedriver.storage.googleapis.com/index.html"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Red
+        Me.Label4.Location = New System.Drawing.Point(26, 425)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(387, 16)
+        Me.Label4.TabIndex = 7
+        Me.Label4.Text = "2，訪問google的chromedriver官方下載站，找到對應的chromedriver"
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._47526ccfe6fd81c95524745ad12d1f7
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox2.Location = New System.Drawing.Point(26, 246)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(949, 171)
+        Me.PictureBox2.TabIndex = 6
+        Me.PictureBox2.TabStop = False
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(281, 220)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(109, 23)
+        Me.TextBox1.TabIndex = 5
+        Me.TextBox1.Text = "chrome://version"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(393, 220)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(98, 23)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "打開瀏覽器"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Red
+        Me.Label2.Location = New System.Drawing.Point(26, 223)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(254, 16)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "1，查看chrome版本 : 查看chrome版本，输入"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1631414926457
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox1.Location = New System.Drawing.Point(26, 42)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(949, 171)
+        Me.PictureBox1.TabIndex = 1
+        Me.PictureBox1.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.Red
+        Me.Label1.Location = New System.Drawing.Point(26, 25)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(356, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "在執行資料導入時如果遇到下方描述的錯誤時請依照下方SOP除錯"
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.Panel1)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(1117, 567)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "[ ? ]"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(3, 3)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1111, 561)
+        Me.Panel1.TabIndex = 8
+        '
+        '錯誤排除手冊
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1129, 600)
+        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 = "錯誤排除手冊"
+        Me.Text = "錯誤排除手冊"
+        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage1.PerformLayout()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents TabPage1 As TabPage
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents PictureBox3 As PictureBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents PictureBox4 As PictureBox
+    Friend WithEvents PictureBox5 As PictureBox
+End Class

GA-ERP-SYS/特殊操作功能/錯誤排除手冊.resx

+<?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

+Imports System.IO
+Public Class 錯誤排除手冊
+
+    Private Sub 錯誤排除手冊_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS.WindowState = 0
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
+        Dim fullPath As String
+        fullPath = Path.GetFullPath(fileName)
+        Process.Start(fullPath, "--app=")
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
+        Dim fullPath As String
+        fullPath = Path.GetFullPath(fileName)
+        Process.Start(fullPath, "--app=" & TextBox2.Text)
+    End Sub
+End Class

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

         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.CheckBox21 = New System.Windows.Forms.CheckBox()
         Me.CheckBox20 = New System.Windows.Forms.CheckBox()
         Me.CheckBox19 = New System.Windows.Forms.CheckBox()
         Me.CheckBox18 = New System.Windows.Forms.CheckBox()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.到期日_dtp = New System.Windows.Forms.DateTimePicker()
-        Me.CheckBox21 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox22 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox23 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox24 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox25 = New System.Windows.Forms.CheckBox()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         '
         Me.CheckBox5.AutoSize = True
         Me.CheckBox5.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox5.Location = New System.Drawing.Point(259, 286)
+        Me.CheckBox5.Location = New System.Drawing.Point(261, 260)
         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)
         '
         Me.CheckBox4.AutoSize = True
         Me.CheckBox4.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox4.Location = New System.Drawing.Point(259, 258)
+        Me.CheckBox4.Location = New System.Drawing.Point(261, 232)
         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)
         '
         Me.CheckBox3.AutoSize = True
         Me.CheckBox3.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox3.Location = New System.Drawing.Point(259, 230)
+        Me.CheckBox3.Location = New System.Drawing.Point(261, 204)
         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)
         '
         Me.CheckBox2.AutoSize = True
         Me.CheckBox2.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox2.Location = New System.Drawing.Point(259, 146)
+        Me.CheckBox2.Location = New System.Drawing.Point(261, 34)
         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)
         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(239, 118)
+        Me.CheckBox1.Location = New System.Drawing.Point(236, 6)
         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)
             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.CheckBox25)
+        Me.Panel1.Controls.Add(Me.CheckBox24)
+        Me.Panel1.Controls.Add(Me.CheckBox23)
+        Me.Panel1.Controls.Add(Me.CheckBox22)
         Me.Panel1.Controls.Add(Me.CheckBox21)
         Me.Panel1.Controls.Add(Me.CheckBox20)
         Me.Panel1.Controls.Add(Me.CheckBox19)
         Me.Panel1.Size = New System.Drawing.Size(1253, 910)
         Me.Panel1.TabIndex = 1513
         '
+        'CheckBox21
+        '
+        Me.CheckBox21.AutoSize = True
+        Me.CheckBox21.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox21.Location = New System.Drawing.Point(33, 230)
+        Me.CheckBox21.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox21.Name = "CheckBox21"
+        Me.CheckBox21.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox21.TabIndex = 279
+        Me.CheckBox21.Text = "帳務彙總計算表-CC21"
+        Me.CheckBox21.UseVisualStyleBackColor = True
+        '
         'CheckBox20
         '
         Me.CheckBox20.AutoSize = True
         Me.CheckBox20.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox20.Location = New System.Drawing.Point(281, 202)
+        Me.CheckBox20.Location = New System.Drawing.Point(285, 90)
         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)
         '
         Me.CheckBox19.AutoSize = True
         Me.CheckBox19.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox19.Location = New System.Drawing.Point(55, 174)
+        Me.CheckBox19.Location = New System.Drawing.Point(55, 146)
         Me.CheckBox19.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox19.Name = "CheckBox19"
         Me.CheckBox19.Size = New System.Drawing.Size(110, 20)
         '
         Me.CheckBox18.AutoSize = True
         Me.CheckBox18.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox18.Location = New System.Drawing.Point(33, 146)
+        Me.CheckBox18.Location = New System.Drawing.Point(33, 118)
         Me.CheckBox18.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox18.Name = "CheckBox18"
         Me.CheckBox18.Size = New System.Drawing.Size(146, 20)
         'CheckBox17
         '
         Me.CheckBox17.AutoSize = True
-        Me.CheckBox17.Location = New System.Drawing.Point(13, 118)
+        Me.CheckBox17.Location = New System.Drawing.Point(13, 90)
         Me.CheckBox17.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox17.Name = "CheckBox17"
         Me.CheckBox17.Size = New System.Drawing.Size(134, 20)
         '
         Me.CheckBox13.AutoSize = True
         Me.CheckBox13.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox13.Location = New System.Drawing.Point(264, 89)
+        Me.CheckBox13.Location = New System.Drawing.Point(38, 372)
         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)
         '
         Me.CheckBox12.AutoSize = True
         Me.CheckBox12.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox12.Location = New System.Drawing.Point(264, 61)
+        Me.CheckBox12.Location = New System.Drawing.Point(38, 344)
         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)
         '
         Me.CheckBox11.AutoSize = True
         Me.CheckBox11.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox11.Location = New System.Drawing.Point(264, 33)
+        Me.CheckBox11.Location = New System.Drawing.Point(38, 316)
         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)
         'CheckBox10
         '
         Me.CheckBox10.AutoSize = True
-        Me.CheckBox10.Location = New System.Drawing.Point(239, 5)
+        Me.CheckBox10.Location = New System.Drawing.Point(13, 288)
         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)
         '
         Me.CheckBox9.AutoSize = True
         Me.CheckBox9.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox9.Location = New System.Drawing.Point(55, 204)
+        Me.CheckBox9.Location = New System.Drawing.Point(55, 176)
         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)
         '
         Me.CheckBox8.AutoSize = True
         Me.CheckBox8.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox8.Location = New System.Drawing.Point(55, 232)
+        Me.CheckBox8.Location = New System.Drawing.Point(55, 204)
         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)
         '
         Me.CheckBox7.AutoSize = True
         Me.CheckBox7.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox7.Location = New System.Drawing.Point(281, 174)
+        Me.CheckBox7.Location = New System.Drawing.Point(285, 62)
         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)
         '
         Me.CheckBox6.AutoSize = True
         Me.CheckBox6.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox6.Location = New System.Drawing.Point(259, 314)
+        Me.CheckBox6.Location = New System.Drawing.Point(261, 120)
         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)
         Me.到期日_dtp.Size = New System.Drawing.Size(88, 23)
         Me.到期日_dtp.TabIndex = 1526
         '
-        'CheckBox21
-        '
-        Me.CheckBox21.AutoSize = True
-        Me.CheckBox21.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox21.Location = New System.Drawing.Point(33, 258)
-        Me.CheckBox21.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.CheckBox21.Name = "CheckBox21"
-        Me.CheckBox21.Size = New System.Drawing.Size(146, 20)
-        Me.CheckBox21.TabIndex = 279
-        Me.CheckBox21.Text = "帳務彙總計算表-CC21"
-        Me.CheckBox21.UseVisualStyleBackColor = True
+        'CheckBox22
+        '
+        Me.CheckBox22.AutoSize = True
+        Me.CheckBox22.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox22.Location = New System.Drawing.Point(33, 258)
+        Me.CheckBox22.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox22.Name = "CheckBox22"
+        Me.CheckBox22.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox22.TabIndex = 280
+        Me.CheckBox22.Text = "歷史資料查詢-CC22"
+        Me.CheckBox22.UseVisualStyleBackColor = True
+        '
+        'CheckBox23
+        '
+        Me.CheckBox23.AutoSize = True
+        Me.CheckBox23.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox23.Location = New System.Drawing.Point(261, 148)
+        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)
+        Me.CheckBox23.TabIndex = 281
+        Me.CheckBox23.Text = "USB KEY 指定-CC23" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.CheckBox23.UseVisualStyleBackColor = True
+        '
+        'CheckBox24
+        '
+        Me.CheckBox24.AutoSize = True
+        Me.CheckBox24.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox24.Location = New System.Drawing.Point(261, 176)
+        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)
+        Me.CheckBox24.TabIndex = 282
+        Me.CheckBox24.Text = "資料備份轉移-CC24" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.CheckBox24.UseVisualStyleBackColor = True
+        '
+        'CheckBox25
+        '
+        Me.CheckBox25.AutoSize = True
+        Me.CheckBox25.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox25.Location = New System.Drawing.Point(261, 288)
+        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)
+        Me.CheckBox25.TabIndex = 283
+        Me.CheckBox25.Text = "PY執行錯誤LOG檔-CC25" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.CheckBox25.UseVisualStyleBackColor = True
         '
         '系統使用者管理
         '
     Friend WithEvents 到期日_dtp As DateTimePicker
     Friend WithEvents CheckBox20 As CheckBox
     Friend WithEvents CheckBox21 As CheckBox
+    Friend WithEvents CheckBox22 As CheckBox
+    Friend WithEvents CheckBox23 As CheckBox
+    Friend WithEvents CheckBox24 As CheckBox
+    Friend WithEvents CheckBox25 As CheckBox
 End Class

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

-<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
     '注意: 以下為 Windows Form 設計工具所需的程序
     '可以使用 Windows Form 設計工具進行修改。
     '請勿使用程式碼編輯器進行修改。
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        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()
         Me.客戶資料表_dgv = New System.Windows.Forms.DataGridView()
         Me.商品資料表_dgv = New System.Windows.Forms.DataGridView()
         Me.商客基本資料表_dgv = New System.Windows.Forms.DataGridView()
         '
         '客戶資料表_dgv
         '
-        DataGridViewCellStyle19.BackColor = System.Drawing.Color.LavenderBlush
-        Me.客戶資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        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.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         '
         '商品資料表_dgv
         '
-        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.商品資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         '商客基本資料表_dgv
         '
-        DataGridViewCellStyle21.BackColor = System.Drawing.Color.Lavender
-        Me.商客基本資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         '下行客戶_dgv
         '
-        DataGridViewCellStyle22.BackColor = System.Drawing.Color.Ivory
-        Me.下行客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         '流水帳_dgv
         '
-        DataGridViewCellStyle23.BackColor = System.Drawing.Color.Gainsboro
-        Me.流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        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)
         '
         '流水帳1_dgv
         '
-        DataGridViewCellStyle24.BackColor = System.Drawing.Color.Gainsboro
-        Me.流水帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24
+        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) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         '
         '下行客戶1_dgv
         '
-        DataGridViewCellStyle25.BackColor = System.Drawing.Color.Ivory
-        Me.下行客戶1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         '商客基本資料表1_dgv
         '
-        DataGridViewCellStyle26.BackColor = System.Drawing.Color.Lavender
-        Me.商客基本資料表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
+        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)
         Me.商客基本資料表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         '
         '商品資料表1_dgv
         '
-        DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.商品資料表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        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)
         Me.商品資料表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize

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

         End If
     End Sub
     Private Sub 資料轉移_bt_Click(sender As Object, e As EventArgs) Handles 資料轉移_bt.Click
-        資料數1 = 客戶資料表_dgv.Rows.Count * 4
-        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
-                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.進度條()
-                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
-                ConnOpen_備份1() : SQL_資料庫轉換4_刪除() : ConnOpen_備份2() : SQL_資料庫轉換4_刪除() : SQL_資料庫轉換4_新增()
-            Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
-        Next : conn.Close() : ProgressBar1.Value = 0 : 最終數1 = 0
+        Dim aa As MsgBoxResult = MsgBox("即將啟動資料庫轉移?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            Dim DT1, DT2 As DateTime
+            資料數1 = 客戶資料表_dgv.Rows.Count * 4
+            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
+                    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
+            Next : conn.Close() : ProgressBar1.Value = 0 : 最終數1 = 0 : MsgBox("資料庫轉移完成")
+        End If
     End Sub
     Private Sub 進度條1()
         平均數1 = 10000 / 資料數1