2021091601

GA-ERP-SYS/App.config

@@ -1,6 +1,6 @@
-<?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

@@ -43,6 +43,8 @@ Partial Class GA_ERP_SYS
         Me.帳務彙總計算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.帳務明細查詢表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.特殊操作功能_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.錯誤排除手冊_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.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()
@@ -67,6 +69,10 @@ Partial Class GA_ERP_SYS
         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()
@@ -164,12 +170,12 @@ Partial Class GA_ERP_SYS
         '
         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)
@@ -191,31 +197,43 @@ Partial Class GA_ERP_SYS
         '
         '特殊操作功能_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
@@ -361,6 +379,33 @@ Partial Class GA_ERP_SYS
         '
         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!)
@@ -429,4 +474,10 @@ Partial Class GA_ERP_SYS
     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

@@ -59,10 +59,11 @@ Public Class GA_ERP_SYS
             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)
 
@@ -71,6 +72,18 @@ Public Class GA_ERP_SYS
     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)
@@ -78,70 +91,80 @@ Public Class GA_ERP_SYS
         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

@@ -11,7 +11,7 @@
     <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>
@@ -28,6 +28,9 @@
     <IsWebBootstrapper>false</IsWebBootstrapper>
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
+    <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -120,6 +123,12 @@
     <Compile Include="報表系統管理\帳務明細查詢表.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="特殊操作功能\錯誤排除手冊.Designer.vb">
+      <DependentUpon>錯誤排除手冊.vb</DependentUpon>
+    </Compile>
+    <Compile Include="特殊操作功能\錯誤排除手冊.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\LOG檔.Designer.vb">
       <DependentUpon>LOG檔.vb</DependentUpon>
     </Compile>
@@ -266,6 +275,9 @@
     <EmbeddedResource Include="報表系統管理\帳務明細查詢表.resx">
       <DependentUpon>帳務明細查詢表.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="特殊操作功能\錯誤排除手冊.resx">
+      <DependentUpon>錯誤排除手冊.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\LOG檔.resx">
       <DependentUpon>LOG檔.vb</DependentUpon>
     </EmbeddedResource>
@@ -356,6 +368,11 @@
   <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

@@ -350,6 +350,7 @@ Partial Class LoginForm1
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.CancelButton = Me.取消_bt
         Me.ClientSize = New System.Drawing.Size(964, 240)
+        Me.Controls.Add(Me.簡易登入_dgv)
         Me.Controls.Add(Me.藏_bt)
         Me.Controls.Add(Me.解鎖_bt)
         Me.Controls.Add(Me.簡易_lb)
@@ -371,7 +372,6 @@ Partial Class LoginForm1
         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

@@ -1,5 +1,6 @@
 Imports System.Net
 Imports System.Management
+Imports System.IO
 Public Class LoginForm1
     ' TODO: 插入程式碼，利用提供的使用者名稱和密碼執行自訂驗證
     ' (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
@@ -17,6 +18,7 @@ Public Class LoginForm1
     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
@@ -44,38 +46,39 @@ Public Class LoginForm1
         刷卡登入_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
@@ -154,7 +157,11 @@ Public Class LoginForm1
             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)
@@ -288,7 +295,10 @@ Public Class LoginForm1
         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

@@ -5,8 +5,8 @@ Module SQL_Module
     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

@@ -74,7 +74,7 @@
     Friend Sub SQL_基本資料_客戶下資料表()
         ConnOpen_子SQL()
         SQL1 = "SELECT     商客基本資料表.商品, 下行客戶.網址, 下行客戶.帳號 AS 老闆帳號, 下行客戶.客戶下 AS 客戶帳號, 下行客戶.客名 AS 客戶名稱, 下行客戶.流水號, 
-                           下行客戶.基數, 下行客戶.基數 AS 階級, 下行客戶.計算, 下行客戶.同帳, 下行客戶.所得
+                           下行客戶.基數, 下行客戶.基數 AS 階級, 下行客戶.計算, 下行客戶.同帳, 下行客戶.所得, 下行客戶.所得另算
                 FROM       下行客戶 LEFT OUTER JOIN
                            商客基本資料表 ON 下行客戶.網址 = 商客基本資料表.網址 AND 下行客戶.帳號 = 商客基本資料表.帳號
                 WHERE      下行客戶.客戶下 LIKE N'%" & PA & "%' " & PA9 & "
@@ -102,12 +102,13 @@
     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()
@@ -327,7 +328,7 @@
                             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 網址, 流水帳.帳戶, 
                                             商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
@@ -339,7 +340,7 @@
                                             流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 
                                             流水帳.自已總輸贏, 流水帳.上繳貢獻額, 流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 
                                             流水帳.玩法明細, 流水帳.調盤退水, 流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 
-                                            流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 
+                                            流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.總監, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 
                                             流水帳.輸贏s, 流水帳.客戶小計s, 流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 
                                             流水帳.大股東小計s, 流水帳.總監小計s, 流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 
                                             流水帳.查看對帳s, 商客基本資料表.上繳源 AS 客帳
@@ -358,7 +359,7 @@
                                             流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 
                                             流水帳.大股東, 流水帳.客戶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()
@@ -466,6 +467,11 @@
                 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
@@ -481,7 +487,7 @@
         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()
@@ -541,7 +547,7 @@
                             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 網址, 流水帳.帳戶, 
                                        商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
@@ -557,7 +563,7 @@
                                        流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 
                                        流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 
                                        流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 
-                                       流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 
+                                       流水帳.大股東, 流水帳.總監, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 
                                        流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 
                                        流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 
                                        商客基本資料表.上繳源 AS 客帳, 流水帳.[index]
@@ -565,8 +571,7 @@
                              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), 流水帳.帳戶, 
                                        商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
                                        商客基本資料表.上繳源, 流水帳.名稱, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 
@@ -575,15 +580,26 @@
                                        流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 
                                        流水帳.大股東, 流水帳.客戶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

@@ -41,7 +41,9 @@
                         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_系統使用者修改()
@@ -57,7 +59,9 @@
                                             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
@@ -186,41 +190,37 @@
         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
@@ -235,13 +235,16 @@
         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

@@ -10,7 +10,7 @@
     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
@@ -23,6 +23,7 @@
     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

@@ -60,6 +60,16 @@ Namespace My.Resources
             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>
@@ -70,6 +80,16 @@ Namespace My.Resources
             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>
@@ -90,6 +110,36 @@ Namespace My.Resources
             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

@@ -121,9 +121,15 @@
   <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>
@@ -133,6 +139,9 @@
   <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>
@@ -160,15 +169,15 @@
   <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>
@@ -184,6 +193,9 @@
   <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>
@@ -196,8 +208,8 @@
   <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>
@@ -214,6 +226,9 @@
   <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>
@@ -226,7 +241,7 @@
   <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

@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <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>
 '------------------------------------------------------------------------------
 
@@ -13,42 +13,42 @@ Option Explicit On
 
 
 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
@@ -57,13 +57,13 @@ Namespace My
 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

@@ -1,6 +1,6 @@
-<?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

@@ -22,11 +22,21 @@ GA-ERP-SYS
   使用這個強類型資源類別的資源查閱。
 </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 的當地語系化資源。
@@ -37,6 +47,21 @@ GA-ERP-SYS
   查詢類型 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

@@ -1 +1 @@
-21f061c57a10f84251eafdb24fe43be1b961d696
+6526e6772923c5594ab2b4b0d5a97d2ed4a7694f

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

@@ -119,3 +119,4 @@ D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網
 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

@@ -22,11 +22,21 @@ GA-ERP-SYS
   使用這個強類型資源類別的資源查閱。
 </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 的當地語系化資源。
@@ -37,6 +47,21 @@ GA-ERP-SYS
   查詢類型 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

@@ -23,19 +23,19 @@ Partial Class 基本資料
     <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()
@@ -155,6 +155,8 @@ Partial Class 基本資料
         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()
@@ -235,8 +237,8 @@ Partial Class 基本資料
         '
         '基數_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)
@@ -261,8 +263,8 @@ Partial Class 基本資料
         '
         '資料_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)
@@ -365,8 +367,8 @@ Partial Class 基本資料
         '
         '商品_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)
@@ -475,6 +477,8 @@ Partial Class 基本資料
         '
         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)
@@ -531,7 +535,7 @@ Partial Class 基本資料
         '取消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
@@ -541,7 +545,7 @@ Partial Class 基本資料
         '存檔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
@@ -636,7 +640,7 @@ Partial Class 基本資料
         '
         Me.客戶下刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.客戶下刪除_bt.ForeColor = System.Drawing.Color.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
@@ -653,7 +657,7 @@ Partial Class 基本資料
         '客戶下修正_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
@@ -675,7 +679,7 @@ Partial Class 基本資料
         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
@@ -684,8 +688,8 @@ Partial Class 基本資料
         '
         '客戶下_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)
@@ -1173,8 +1177,8 @@ Partial Class 基本資料
         '
         '商客_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)
@@ -1327,38 +1331,38 @@ Partial Class 基本資料
         '
         '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)
@@ -1366,39 +1370,39 @@ Partial Class 基本資料
         '
         '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)
@@ -1545,6 +1549,23 @@ Partial Class 基本資料
         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!)
@@ -1718,4 +1739,6 @@ Partial Class 基本資料
     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

@@ -132,7 +132,7 @@ Public Class 基本資料
         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_下拉資料清單讀取()
@@ -262,11 +262,11 @@ Public Class 基本資料
     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
@@ -288,22 +288,22 @@ Public Class 基本資料
                     ElseIf GP > 999999 Then : GPP = "GA" & GP : End If : PA10 = GPP
 
                     SQL_系統編碼規則_客戶下新增() : MsgBox("新增完成") : conn.Close() : dr.Close()
-                    客戶下新增_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_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)
@@ -336,6 +336,7 @@ Public Class 基本資料
             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 = ""
@@ -533,7 +534,10 @@ Public Class 基本資料
         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

@@ -23,21 +23,21 @@ Partial Class 帳務彙總計算表
     <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()
@@ -164,8 +164,8 @@ Partial Class 帳務彙總計算表
         '
         '流水帳_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
@@ -242,8 +242,8 @@ Partial Class 帳務彙總計算表
         '
         '彙總_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
@@ -251,8 +251,8 @@ Partial Class 帳務彙總計算表
         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
@@ -343,8 +343,8 @@ Partial Class 帳務彙總計算表
         '
         '彙總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
@@ -363,16 +363,16 @@ Partial Class 帳務彙總計算表
         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
@@ -421,8 +421,8 @@ Partial Class 帳務彙總計算表
         '
         '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)
@@ -434,8 +434,8 @@ Partial Class 帳務彙總計算表
         '
         '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
@@ -503,8 +503,8 @@ Partial Class 帳務彙總計算表
         '
         '日期_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)
@@ -796,8 +796,8 @@ Partial Class 帳務彙總計算表
         '
         '彙總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
@@ -805,16 +805,16 @@ Partial Class 帳務彙總計算表
         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
@@ -917,16 +917,16 @@ Partial Class 帳務彙總計算表
         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
@@ -934,8 +934,8 @@ Partial Class 帳務彙總計算表
         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
@@ -966,7 +966,7 @@ Partial Class 帳務彙總計算表
         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
@@ -975,7 +975,7 @@ Partial Class 帳務彙總計算表
         '合計_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)
@@ -1285,7 +1285,7 @@ Partial Class 帳務彙總計算表
         '所得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)
@@ -1297,7 +1297,7 @@ Partial Class 帳務彙總計算表
         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

@@ -48,7 +48,7 @@ Public Class 帳務彙總計算表
         流水帳_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
@@ -175,7 +175,7 @@ Public Class 帳務彙總計算表
                     流水帳_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
@@ -191,6 +191,8 @@ Public Class 帳務彙總計算表
                     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
@@ -208,7 +210,7 @@ Public Class 帳務彙總計算表
                     流水帳_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
@@ -224,6 +226,8 @@ Public Class 帳務彙總計算表
                     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
@@ -522,22 +526,22 @@ Public Class 帳務彙總計算表
                        彙總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
@@ -547,22 +551,22 @@ Public Class 帳務彙總計算表
                        彙總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
@@ -667,7 +671,7 @@ Public Class 帳務彙總計算表
         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
@@ -675,7 +679,7 @@ Public Class 帳務彙總計算表
         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.進度條()
@@ -1170,7 +1174,10 @@ Public Class 帳務彙總計算表
     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
@@ -1501,6 +1508,11 @@ Public Class 帳務彙總計算表
             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

@@ -23,10 +23,11 @@ Partial Class 帳務明細查詢表
     <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()
@@ -75,20 +76,29 @@ Partial Class 帳務明細查詢表
         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)
@@ -100,28 +110,28 @@ Partial Class 帳務明細查詢表
         '
         '客戶下_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
@@ -593,11 +603,84 @@ Partial Class 帳務明細查詢表
         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)
@@ -635,7 +718,6 @@ Partial Class 帳務明細查詢表
         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)
@@ -645,6 +727,7 @@ Partial Class 帳務明細查詢表
         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 = "帳務明細查詢表"
@@ -654,6 +737,9 @@ Partial Class 帳務明細查詢表
         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()
 
@@ -707,4 +793,10 @@ Partial Class 帳務明細查詢表
     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

@@ -10,11 +10,31 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 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
@@ -68,12 +88,17 @@ Public Class 帳務明細查詢表
         流水帳_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
@@ -83,7 +108,7 @@ Public Class 帳務明細查詢表
         流水帳_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
@@ -100,6 +125,7 @@ Public Class 帳務明細查詢表
             If IsDBNull(流水帳_dgv("同帳", i).Value) = True Then : 流水帳_dgv("同帳", i).Value = False : End If
             If IsDBNull(流水帳_dgv("計算", i).Value) = True Then : 流水帳_dgv("計算", i).Value = False : End If
             If IsDBNull(流水帳_dgv("所得", i).Value) = True Then : 流水帳_dgv("所得", i).Value = False : End If
+            流水帳_dgv("所得指定", i).Value = ""
         Next
         計算()
     End Sub
@@ -126,7 +152,9 @@ Public Class 帳務明細查詢表
                 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
@@ -155,8 +183,8 @@ Public Class 帳務明細查詢表
                 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"
@@ -191,12 +219,13 @@ Public Class 帳務明細查詢表
                 流水帳_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
@@ -228,7 +257,7 @@ Public Class 帳務明細查詢表
                     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
@@ -253,20 +282,22 @@ Public Class 帳務明細查詢表
                 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
@@ -277,6 +308,7 @@ Public Class 帳務明細查詢表
         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
@@ -309,6 +341,11 @@ Public Class 帳務明細查詢表
             e.CellStyle.ForeColor = Color.Red
         End If
     End Sub
+    Private Sub 所得彙總_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 所得彙總_dgv.CellFormatting
+        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
+            e.CellStyle.ForeColor = Color.Red
+        End If
+    End Sub
     Private Sub 流水帳_dgv_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
@@ -350,8 +387,8 @@ Public Class 帳務明細查詢表
                 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"
@@ -416,7 +453,7 @@ Public Class 帳務明細查詢表
                     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
@@ -751,8 +788,8 @@ Public Class 帳務明細查詢表
                 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"
@@ -817,7 +854,7 @@ Public Class 帳務明細查詢表
                     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
@@ -904,10 +941,70 @@ Public Class 帳務明細查詢表
             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
@@ -986,4 +1083,41 @@ Public Class 帳務明細查詢表
 
         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

@@ -0,0 +1,305 @@
+<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

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

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

@@ -0,0 +1,19 @@
+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

@@ -43,6 +43,7 @@ Partial Class 系統使用者管理
         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()
@@ -68,7 +69,10 @@ Partial Class 系統使用者管理
         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()
@@ -254,7 +258,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -266,7 +270,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -278,7 +282,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -290,7 +294,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -301,7 +305,7 @@ Partial Class 系統使用者管理
         '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)
@@ -316,6 +320,10 @@ Partial Class 系統使用者管理
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.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)
@@ -343,11 +351,23 @@ Partial Class 系統使用者管理
         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)
@@ -359,7 +379,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -371,7 +391,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -382,7 +402,7 @@ Partial Class 系統使用者管理
         '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)
@@ -429,7 +449,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -441,7 +461,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -453,7 +473,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -464,7 +484,7 @@ Partial Class 系統使用者管理
         '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)
@@ -476,7 +496,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -488,7 +508,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -500,7 +520,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -512,7 +532,7 @@ Partial Class 系統使用者管理
         '
         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)
@@ -627,17 +647,53 @@ Partial Class 系統使用者管理
         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
         '
         '系統使用者管理
         '
@@ -726,4 +782,8 @@ Partial Class 系統使用者管理
     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

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class 資料備份轉移
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,17 +20,17 @@ Partial Class 資料備份轉移
     '注意: 以下為 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()
@@ -64,8 +64,8 @@ Partial Class 資料備份轉移
         '
         '客戶資料表_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
@@ -79,8 +79,8 @@ Partial Class 資料備份轉移
         '
         '商品資料表_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
@@ -94,8 +94,8 @@ Partial Class 資料備份轉移
         '
         '商客基本資料表_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
@@ -109,8 +109,8 @@ Partial Class 資料備份轉移
         '
         '下行客戶_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
@@ -124,8 +124,8 @@ Partial Class 資料備份轉移
         '
         '流水帳_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)
@@ -213,8 +213,8 @@ Partial Class 資料備份轉移
         '
         '流水帳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)
@@ -229,8 +229,8 @@ Partial Class 資料備份轉移
         '
         '下行客戶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
@@ -244,8 +244,8 @@ Partial Class 資料備份轉移
         '
         '商客基本資料表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
@@ -259,8 +259,8 @@ Partial Class 資料備份轉移
         '
         '商品資料表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

@@ -93,52 +93,61 @@
         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