20211101備份

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

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class GA_ERP_SYS
     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
@@ -21,7 +21,7 @@ Partial Class GA_ERP_SYS
     '注意: 以下為 Windows Form 設計工具所需的程序
     '可以使用 Windows Form 設計工具進行修改。
     '請勿使用程式碼編輯器進行修改。
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -86,7 +86,7 @@ Partial Class GA_ERP_SYS
         Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip.MdiWindowListItem = Me.WindowsMenu
         Me.MenuStrip.Name = "MenuStrip"
-        Me.MenuStrip.Size = New System.Drawing.Size(1184, 24)
+        Me.MenuStrip.Size = New System.Drawing.Size(1350, 24)
         Me.MenuStrip.TabIndex = 5
         Me.MenuStrip.Text = "MenuStrip"
         '
@@ -346,7 +346,7 @@ Partial Class GA_ERP_SYS
         Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel, Me.ToolStripStatusLabel1, Me.ToolStripProgressBar1, Me.合計_TSSL})
         Me.StatusStrip.Location = New System.Drawing.Point(0, 707)
         Me.StatusStrip.Name = "StatusStrip"
-        Me.StatusStrip.Size = New System.Drawing.Size(1184, 22)
+        Me.StatusStrip.Size = New System.Drawing.Size(1350, 22)
         Me.StatusStrip.TabIndex = 7
         Me.StatusStrip.Text = "StatusStrip"
         '
@@ -380,7 +380,7 @@ Partial Class GA_ERP_SYS
         Me.使用者_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.使用者_cb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.使用者_cb.FormattingEnabled = True
-        Me.使用者_cb.Location = New System.Drawing.Point(964, 0)
+        Me.使用者_cb.Location = New System.Drawing.Point(1130, 1)
         Me.使用者_cb.Name = "使用者_cb"
         Me.使用者_cb.Size = New System.Drawing.Size(153, 23)
         Me.使用者_cb.TabIndex = 10
@@ -389,7 +389,7 @@ Partial Class GA_ERP_SYS
         '
         Me.計算機_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.計算機_bt.CausesValidation = False
-        Me.計算機_bt.Location = New System.Drawing.Point(876, 1)
+        Me.計算機_bt.Location = New System.Drawing.Point(1042, 1)
         Me.計算機_bt.Name = "計算機_bt"
         Me.計算機_bt.Size = New System.Drawing.Size(10, 23)
         Me.計算機_bt.TabIndex = 15
@@ -398,7 +398,7 @@ Partial Class GA_ERP_SYS
         '計算機1_bt
         '
         Me.計算機1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.計算機1_bt.Location = New System.Drawing.Point(887, 1)
+        Me.計算機1_bt.Location = New System.Drawing.Point(1053, 1)
         Me.計算機1_bt.Name = "計算機1_bt"
         Me.計算機1_bt.Size = New System.Drawing.Size(75, 23)
         Me.計算機1_bt.TabIndex = 16
@@ -422,7 +422,7 @@ Partial Class GA_ERP_SYS
         Me.除錯_dgv.Name = "除錯_dgv"
         Me.除錯_dgv.RowHeadersWidth = 4
         Me.除錯_dgv.RowTemplate.Height = 24
-        Me.除錯_dgv.Size = New System.Drawing.Size(727, 247)
+        Me.除錯_dgv.Size = New System.Drawing.Size(893, 247)
         Me.除錯_dgv.TabIndex = 1550
         Me.除錯_dgv.Visible = False
         '
@@ -432,7 +432,7 @@ Partial Class GA_ERP_SYS
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources.depositphotos_189846782_stock_illustration_ga_g_a_letter_logo
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.ClientSize = New System.Drawing.Size(1184, 729)
+        Me.ClientSize = New System.Drawing.Size(1350, 729)
         Me.Controls.Add(Me.除錯_dgv)
         Me.Controls.Add(Me.計算機1_bt)
         Me.Controls.Add(Me.使用者_cb)

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

@@ -1,6 +1,9 @@
 Imports System.Management
+Imports System.IO
+Imports System.Text
 Public Class GA_ERP_SYS
     ReadOnly ds4 As New DataSet
+    Dim strDirName As String
     Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click
         ' 建立子表單的新執行個體。
         ' 將它變成這個 MDI 表單的子表單，然後才顯示。
@@ -49,7 +52,11 @@ Public Class GA_ERP_SYS
         Next
     End Sub
     Private Sub GA_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.ActiveControl = 使用者_cb
+        Me.ActiveControl = 使用者_cb : 本機資料 = False
+        '-----------------------處理檔案-----------------------------------------------------------------------------------------------------------------------------------------------
+        Dim Str2 As String = Application.StartupPath
+        If File.Exists("B.txt") Then : File.Delete("B.txt") : ElseIf File.Exists(Str2 & "\B.txt") Then : strDirName = Str2 & "\B.txt" : End If
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt") : End If
         '----------系統登入時抬頭資訊顯示---------------------------------------------------------------------------------------------------------------
         Me.Text = "GA ERP SYS" & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :  " & 版本
         '-----------------------帳號下拉清單------------------------------------------------------------------------------------------------------------
@@ -73,6 +80,7 @@ Public Class GA_ERP_SYS
             End If : conn.Close()
             SQL_連線字串_子SQL()
         End If : conn.Close()
+
         '----------基本作功能-----------------------------------------------------------------------------------------------------------------
         報表系統管理_tsm.Enabled = CC(17) : 帳務彙總計算表_tsm.Enabled = CC(18) : 帳務明細查詢表_tsm.Enabled = CC(21) : 歷史資料查詢_tsm.Enabled = CC(22)
         '----------資料庫系統管理-------------------------------------------------------------------------------------------------------------
@@ -86,6 +94,23 @@ Public Class GA_ERP_SYS
         Set_修正清單()
     End Sub
     Private Sub GA_ERP_SYS_Close(sender As Object, e As EventArgs) Handles MyBase.Closed
+        '-----------------------處理檔案-----------------------------------------------------------------------------------------------------------------------------------------------
+        Dim FilePath As String = "B.txt"
+        Try
+            Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
+                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
+                    sw.Flush()
+                End Using
+            End Using
+        Catch ex As Exception
+        End Try
+        Dim Str2 As String = Application.StartupPath
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt") Then : strDirName = My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt"
+        ElseIf File.Exists(Str2 & "\B.txt") Then : strDirName = Str2 & "\B.txt" : End If
+        Dim diMyDir1 As New DirectoryInfo(strDirName) : diMyDir1.Attributes = FileAttributes.Hidden
+        '-----------------------系統關閉-----------------------------------------------------------------------------------------------------------------------------------------------
+        If File.Exists("000.csv") Then : File.Delete("000.csv") : ElseIf File.Exists(Str2 & "\000.csv") Then : strDirName = Str2 & "\000.csv" : End If
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\000.csv") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "\000.csv") : End If
         SQL_登入鎖定解除() : LoginForm1.Close()
     End Sub
     Private Sub 主資料庫()
@@ -105,6 +130,44 @@ Public Class GA_ERP_SYS
         子SQL名稱 = Strings.Right(使用者_cb.Text, 6)
         業務名稱 = StrReverse(Strings.Mid(StrReverse(使用者_cb.Text), 10, 50))
         SQL_連線字串_子SQL() : Me.WindowState = 0
+
+        '-----------------------處理檔案-----------------------------------------------------------------------------------------------------------------------------------------------
+        Dim FilePath As String = "B.txt"
+        Try
+            Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
+                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
+                    sw.Flush()
+                End Using
+            End Using
+        Catch ex As Exception
+        End Try
+        Dim Str2 As String = Application.StartupPath
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt") Then : strDirName = My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt"
+        ElseIf File.Exists(Str2 & "\B.txt") Then : strDirName = Str2 & "\B.txt" : End If
+        Dim diMyDir1 As New DirectoryInfo(strDirName) : diMyDir1.Attributes = FileAttributes.Hidden
+
+        If File.Exists("000.csv") Then : File.Delete("000.csv") : ElseIf File.Exists(Str2 & "\000.csv") Then : strDirName = Str2 & "\000.csv" : End If
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\000.csv") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "\000.csv") : End If
+        FilePath = "000.csv"
+        Try
+            Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
+                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
+                    Dim str As String = "8888,"
+                    Dim str1 As String = 業務名稱 & ","
+                    sw.WriteLine(str)   '插入一整行
+                    sw.Write(str1)   '第一行
+                    sw.Flush()
+                End Using
+            End Using
+        Catch ex As Exception
+        End Try
+        If File.Exists("B.txt") Then : File.Delete("B.txt") : ElseIf File.Exists(Str2 & "\B.txt") Then : strDirName = Str2 & "\B.txt" : End If
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt") : End If
+
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\000.csv") Then : strDirName = My.Computer.FileSystem.SpecialDirectories.Desktop & "\000.csv"
+        ElseIf File.Exists(Str2 & "\000.csv") Then : strDirName = Str2 & "\000.csv" : End If
+        Dim diMyDir As New DirectoryInfo(strDirName) : diMyDir.Attributes = FileAttributes.Hidden
+        Shell("Auto.exe", vbNormalFocus)
     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
@@ -131,7 +194,7 @@ Public Class GA_ERP_SYS
         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
+        主資料庫() ': 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
@@ -139,7 +202,7 @@ Public Class GA_ERP_SYS
         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 歷史帳務明細查詢表_tsm.Click

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

@@ -117,12 +117,30 @@
     <Compile Include="基本資料管理\網址帳號驗證中.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="報表系統管理\客戶資料.Designer.vb">
+      <DependentUpon>客戶資料.vb</DependentUpon>
+    </Compile>
+    <Compile Include="報表系統管理\客戶資料.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="報表系統管理\帳號資料.Designer.vb">
+      <DependentUpon>帳號資料.vb</DependentUpon>
+    </Compile>
+    <Compile Include="報表系統管理\帳號資料.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="報表系統管理\帳務明細查詢表.Designer.vb">
       <DependentUpon>帳務明細查詢表.vb</DependentUpon>
     </Compile>
     <Compile Include="報表系統管理\帳務明細查詢表.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="報表系統管理\設定異常表.Designer.vb">
+      <DependentUpon>設定異常表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="報表系統管理\設定異常表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="特殊操作功能\錯誤排除手冊.Designer.vb">
       <DependentUpon>錯誤排除手冊.vb</DependentUpon>
     </Compile>
@@ -267,14 +285,29 @@
     <Compile Include="資料庫系統管理\資料備份轉移.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="輸入密碼.Designer.vb">
+      <DependentUpon>輸入密碼.vb</DependentUpon>
+    </Compile>
+    <Compile Include="輸入密碼.vb">
+      <SubType>Form</SubType>
+    </Compile>
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="基本資料管理\網址帳號驗證中.resx">
       <DependentUpon>網址帳號驗證中.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="報表系統管理\客戶資料.resx">
+      <DependentUpon>客戶資料.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="報表系統管理\帳號資料.resx">
+      <DependentUpon>帳號資料.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="報表系統管理\帳務明細查詢表.resx">
       <DependentUpon>帳務明細查詢表.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="報表系統管理\設定異常表.resx">
+      <DependentUpon>設定異常表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="特殊操作功能\錯誤排除手冊.resx">
       <DependentUpon>錯誤排除手冊.vb</DependentUpon>
     </EmbeddedResource>
@@ -286,6 +319,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="GA-ERP-SYS.resx">
       <DependentUpon>GA-ERP-SYS.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="LoginForm1.resx">
       <DependentUpon>LoginForm1.vb</DependentUpon>
@@ -313,6 +347,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="特殊操作功能\流水帳自動導入.resx">
       <DependentUpon>流水帳自動導入.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\FTP資料夾管理.resx">
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
@@ -341,6 +376,9 @@
     <EmbeddedResource Include="資料庫系統管理\資料備份轉移.resx">
       <DependentUpon>資料備份轉移.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="輸入密碼.resx">
+      <DependentUpon>輸入密碼.vb</DependentUpon>
+    </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
     <None Include="My Project\app.manifest" />

GA-ERP-SYS/LoginForm1.vb

@@ -1,6 +1,7 @@
 Imports System.Net
 Imports System.Management
 Imports System.IO
+Imports System.Text
 Public Class LoginForm1
     ' TODO: 插入程式碼，利用提供的使用者名稱和密碼執行自訂驗證
     ' (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
@@ -20,6 +21,7 @@ Public Class LoginForm1
     ReadOnly ds As New DataSet
     Dim FFGG As Integer
     Dim 更新關閉 As Boolean
+    Dim strDirName As String
     Private Sub Set_清單1()
         FTP清單_dgv.DataSource = Nothing : ds2.Clear()
         FTP清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -48,6 +50,27 @@ Public Class LoginForm1
         Next
     End Sub
     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        '-----------------------處理檔案-----------------------------------------------------------------------------------------------------------------------------------------------
+        Dim FilePath As String = "B.txt"
+        Try
+            Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
+                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
+                    sw.Flush()
+                End Using
+            End Using
+        Catch ex As Exception
+        End Try
+        Dim Str2 As String = Application.StartupPath
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt") Then : strDirName = My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt"
+        ElseIf File.Exists(Str2 & "\B.txt") Then : strDirName = Str2 & "\B.txt" : End If
+        Dim diMyDir As New DirectoryInfo(strDirName) : diMyDir.Attributes = FileAttributes.Hidden
+
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\myLog.log") Then : strDirName = My.Computer.FileSystem.SpecialDirectories.Desktop & "\myLog.log"
+        ElseIf File.Exists(Str2 & "\myLog.log") Then : strDirName = Str2 & "\myLog.log" : End If
+        If File.Exists("B.txt") Then : Dim diMyDir1 As New DirectoryInfo(strDirName) : diMyDir1.Attributes = FileAttributes.Hidden
+        ElseIf File.Exists(Str2 & "\B.txt") Then : Dim diMyDir1 As New DirectoryInfo(strDirName) : diMyDir1.Attributes = FileAttributes.Hidden
+        ElseIf File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\B.txt") Then : Dim diMyDir1 As New DirectoryInfo(strDirName) : diMyDir1.Attributes = FileAttributes.Hidden : End If
+
         Me.Size = New Size(466, 279)
         If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(727, 401)
         ElseIf screenWidth = 1366 And screenHeight = 768 Then : Me.Location = New Point(450, 245)
@@ -157,7 +180,7 @@ Public Class LoginForm1
     End Sub
     Private Sub 登入()
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
-        SQL_連線字串_主SQL()
+        SQL_連線字串_主SQL() ': SQL_連線字串_本機()
         驗證_tb.Text = "1" : g_conn_type = 伺服器區域_ch.Text & "伺服器"
         '-----------------------系統版本號驗證-----------------------------------------------------------------------------------------------------------------------------------------------
         SQL_系統版本號驗證()
@@ -222,6 +245,14 @@ Public Class LoginForm1
                     If dr("CC07") = True Then
                         MsgBox("該帳號已在線上，無法重複登入!!  如需協助請找線上客服!!") : conn.Close()
                     Else
+                        Dim Str2 As String = Application.StartupPath
+                        If File.Exists("000.csv") Then : File.Delete("000.csv") : ElseIf File.Exists(Str2 & "\000.csv") Then : strDirName = Str2 & "\000.csv" : End If
+                        If File.Exists("myLog.log") Then : File.Delete("myLog.log") : ElseIf File.Exists(Str2 & "\myLog.log") Then : strDirName = Str2 & "\myLog.log" : End If
+                        If File.Exists("log.txt") Then : File.Delete("log.txt") : ElseIf File.Exists(Str2 & "\log.txt") Then : strDirName = Str2 & "\log.txt" : End If
+                        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\000.csv") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "\000.csv") : End If
+                        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\myLog.log") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "\myLog.log") : End If
+                        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\log.txt") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "\log.txt") : End If
+
                         If dr("CC20") = True Then : 判斷重登 = True : End If
                         conn.Close() : SQL_登入鎖定() : conn.Close()
                         Dim cmicWmi As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
@@ -302,7 +333,7 @@ Public Class LoginForm1
         End If
     End Sub
     Private Sub 簡易_lb_Click(sender As Object, e As EventArgs) Handles 簡易_lb.Click
-        PA = InputBox("請輸入系統商管理密碼!!")
+        輸入密碼.ShowDialog()
         If PA = "753582" Then
             簡易登入_dgv.Visible = True : 解鎖_bt.Visible = True : UPDATE_bt.Visible = True : 更新下載_ch.Checked = True : Set_使用者清單()
         Else

GA-ERP-SYS/Module/SQL_Module.vb

@@ -1,5 +1,9 @@
 Imports System.Data.SqlClient
+Imports System.Data.OleDb
 Module SQL_Module
+    Public 本機資料 As Boolean
+    Public Access1 As New OleDbConnection : Public AccesCmd As OleDbCommand : Public Acdr As OleDbDataReader : Public Acda As New OleDbDataAdapter
+    Public AccessConString As String
     Public ConString As String : Public ConString1 As String : Public ConString2 As String : Public ConString3 As String : Public ConString4 As String
     Public SQL1 As String : Public SQL2 As String : Public SQL3 As String
     Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
@@ -28,4 +32,14 @@ Module SQL_Module
     Friend Sub CmdSet_For_dr()
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
     End Sub
+
+    Friend Sub AccesConnOpen()
+        Access1.Close() : If Access1.State = ConnectionState.Closed Then : Access1.ConnectionString = AccessConString : Access1.Open() : End If
+    End Sub
+    Friend Sub AccesCmdSet_For_DGV()
+        AccesCmd.Connection = Access1 : AccesCmd.CommandText = SQL1 : Acda.SelectCommand = AccesCmd
+    End Sub
+    Friend Sub AccesCmdSet_For_dr()
+        AccesCmd = New OleDbCommand(SQL1, Access1) : Acdr = AccesCmd.ExecuteReader
+    End Sub
 End Module

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

@@ -24,19 +24,6 @@
     Friend Sub SQL_商品流水號查詢()
         ConnOpen_子SQL() : SQL1 = "SELECT 編號 FROM 商品資料表 WHERE (系統 LIKE N'" & 基本資料.系統_cb.Text & "') ORDER BY 編號 DESC" : CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_商品資料表()
-        ConnOpen_子SQL()
-        SQL1 = "SELECT     商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 
-                           商客基本資料表.網址 AS 使用
-                FROM       商品資料表 LEFT OUTER JOIN
-                           商客基本資料表 ON 商品資料表.商品 = 商客基本資料表.商品 AND 
-                           商品資料表.網址 = 商客基本資料表.網址
-                WHERE     (商品資料表.系統 LIKE '" & 基本資料.系統_cb.Text & "') AND (商品資料表.網址 LIKE N'%" & PA16 & "%')
-                GROUP BY   商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 
-                           商客基本資料表.網址
-                ORDER BY   商品資料表.編號, 商品資料表.商品, 商品資料表.層級"
-        CmdSet_For_DGV()
-    End Sub
     Friend Sub SQL_商品寫入驗證1()
         ConnOpen_子SQL()
         SQL1 = "SELECT 編號 FROM 商品資料表 WHERE 編號 LIKE N'" & 基本資料.編號_tb.Text & "'"
@@ -102,14 +89,8 @@
     Friend Sub SQL_系統編碼規則_客戶下修改()
         ConnOpen_子SQL()
         SQL1 = "UPDATE 下行客戶 SET 客戶下 = N'" & PA & "', 網址 = N'" & PA1 & "', 帳號 = N'" & PA2 & "', 基數 = N'" & PA3 & "', 客名 = N'" & PA4 & "', 
-                                    計算 = '" & 基本資料.參與計算_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 & "', 所得另算 = N'" & PA1 & "', 下層 = '" & BL4 & "' WHERE  流水號 LIKE N'" & PA & "'"
+                                    計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "', 所得另算 = N'" & PA5 & "', 下層 = '" & BL4 & "'
+                WHERE  流水號 LIKE N'" & PA6 & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商客資料表2()
@@ -142,8 +123,7 @@
     Friend Sub SQL_系統編碼規則_商客新增()
         ConnOpen_子SQL()
         SQL1 = "INSERT INTO 商客基本資料表 (網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數) 
-                            VALUES (N'" & 基本資料.網址_tb.Text & "',N'" & 基本資料.帳號_tb.Text & "',N'" & 基本資料.密碼_tb.Text & "', N'" & 基本資料.資料_cb.Text & "',
-                                    N'" & 基本資料.上繳源_tb.Text & "', N'" & 基本資料.商品_cb.Text & "', N'" & 基本資料.上行_cb.Text & "', N'" & 基本資料.下行_cb.Text & "')"
+                            VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統編碼規則_商客刪除()
@@ -155,23 +135,20 @@
         ConnOpen_子SQL()
         SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "',上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "',
                                           帳號 = N'" & PA4 & "', 密碼 = N'" & PA5 & "' ,上行基數 = N'" & PA6 & "' ,下行基數 = N'" & PA7 & "', 驗證 = N'          '                                    
-                                  WHERE (帳號 LIKE N'" & 基本資料.帳號1_tb.Text & "' AND  網址 LIKE N'" & 基本資料.網址1_tb.Text & "')"
+                                  WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_商品確認()
-        ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商品資料表 WHERE 商品 LIKE N'" & PA9 & "'" : CmdSet_For_dr()
-    End Sub
     Friend Sub SQL_下拉商品清單讀取()
-        ConnOpen_子SQL() : SQL1 = "SELECT 編號, 商品, 層級 FROM 商品資料表 WHERE 系統 LIKE N'" & 基本資料.系統1_cb.Text & "'  ORDER BY 編號" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "SELECT 編號, 商品, 層級 FROM 商品資料表 WHERE 系統 LIKE N'" & PA42 & "'  ORDER BY 編號" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_下拉商品清單讀取1()
-        ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商客基本資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商品資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商品讀取()
         ConnOpen_子SQL() : SQL1 = "SELECT 商品, 編號, 層級 FROM 商品資料表 WHERE (網址 LIKE '" & PA1 & "') AND (商品 LIKE '" & PA2 & "') ORDER BY 編號" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商品網址讀取()
-        ConnOpen_子SQL() : SQL1 = "SELECT 網址, 商品 FROM 商品資料表 WHERE 編號 LIKE N'" & Strings.Left(基本資料.商品1_cb.Text, 4) & "'" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "SELECT 網址, 商品 FROM 商品資料表 WHERE 編號 LIKE N'" & Strings.Left(PA41, 4) & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_下拉資料清單讀取()
         ConnOpen_子SQL() : SQL1 = "SELECT 資料 FROM 長短版資料表" : CmdSet_For_dr()
@@ -180,18 +157,25 @@
         ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_上行清單讀取1()
-        ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表 WHERE 基數 NOT LIKE '上%'" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_商客清單讀取1()
-        ConnOpen_子SQL() : SQL1 = "SELECT 網址, 帳號, 上繳源 FROM 商客基本資料表 WHERE (商品 LIKE N'" & 基本資料.商品2_cb.Text & "') ORDER BY   商品" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "SELECT 網址, 帳號, 上繳源 FROM 商客基本資料表 WHERE (商品 LIKE N'" & PA15 & "') ORDER BY   商品" : CmdSet_For_dr()
     End Sub
-    '-----------------------------------------流水帳導入----------------------------
-    Friend Sub SQL_流水帳資料表()
-        ConnOpen_子SQL() : SQL1 = "SELECT 日期,網址,帳號,[1],[2],[3],[4],[5],[6],[7],[8],[9],[10],[11],[12],[13],[14],[15],[16],[17],[18],[19],[20],[21],[22],[23],資料流水號
-                                   FROM 流水帳1
-                                   ORDER BY 資料流水號"
+    Friend Sub SQL_商品資料表()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT     商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 
+                           商客基本資料表.網址 AS 使用
+                FROM       商品資料表 LEFT OUTER JOIN
+                           商客基本資料表 ON 商品資料表.商品 = 商客基本資料表.商品 AND 
+                           商品資料表.網址 = 商客基本資料表.網址
+                WHERE     (商品資料表.系統 LIKE '" & 基本資料.系統_cb.Text & "') AND (商品資料表.網址 LIKE N'%" & PA16 & "%')
+                GROUP BY   商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 
+                           商客基本資料表.網址
+                ORDER BY   商品資料表.編號, 商品資料表.商品, 商品資料表.層級"
         CmdSet_For_DGV()
     End Sub
+    '-----------------------------------------流水帳導入----------------------------
     Friend Sub SQL_流水號最後一筆()
         ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) [index] FROM 流水帳 ORDER BY [index] DESC" : CmdSet_For_dr()
     End Sub
@@ -239,13 +223,6 @@
                 ORDER BY   商客基本資料表.商品, 商客基本資料表.上繳源, 商客基本資料表.帳號"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_LOG流水()
-        ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 項 FROM PY執行LOG ORDER BY 項 DESC" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_LOG寫入()
-        ConnOpen_子SQL() : SQL1 = "INSERT INTO  PY執行LOG  (項, 日期, MyLOGy資料, LOG資料) VALUES (N'" & PA13 & "',N'" & PA12 & "',N'" & PA10 & "',N'" & PA11 & "')" : CmdSet_For_dr()
-    End Sub
-    '--------------------------商客資料導入------------------------------------------------------
     Friend Sub SQL_商客資料表空白()
         ConnOpen_子SQL() : SQL1 = "SELECT 網址,帳號,密碼,資料,上繳源,商品,上行基數,下行基數, 帳號 AS 流水號 FROM 商客基本資料表 WHERE 網址 LIKE N''" : CmdSet_For_DGV()
     End Sub
@@ -257,9 +234,6 @@
         SQL1 = "INSERT INTO  商客基本資料表  (網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數) VALUES (N'',N'" & PA & "',N'',N'',N'',N'',N'',N'')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_商客資料空白刪除()
-        ConnOpen_子SQL() : SQL1 = "DELETE 商客基本資料表 WHERE 帳號 LIKE N'" & PA & "'" : CmdSet_For_dr()
-    End Sub
     Friend Sub SQL_商客比對修改1()
         ConnOpen_子SQL()
         SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "', 帳號 = N'" & PA3 & "', 密碼 = N'" & PA4 & "', 資料 = N'" & PA5 & "', 上繳源 = N'" & PA6 & "', 商品 = N'" & PA7 & "', 
@@ -276,14 +250,22 @@
     Friend Sub SQL_商客比對_商品新增()
         ConnOpen_子SQL() : SQL1 = "INSERT INTO 商品資料表 (商品) VALUES (N'" & PA & "')" : CmdSet_For_dr()
     End Sub
-    '--------------------------流水帳自動導入------------------------------------------------------
+    '--------------------------網路資料庫不變---------------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_LOG流水()
+        ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 項 FROM PY執行LOG ORDER BY 項 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG寫入()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO  PY執行LOG  (項, 日期, MyLOGy資料, LOG資料) VALUES (N'" & PA13 & "',N'" & PA12 & "',N'" & PA10 & "',N'" & PA11 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_商客資料空白刪除()
+        ConnOpen_子SQL() : SQL1 = "DELETE 商客基本資料表 WHERE 帳號 LIKE N'" & PA & "'" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_查詢日期清空()
         ConnOpen_子SQL() : SQL1 = "DELETE  查詢時間" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_流水帳同日期清除()
         ConnOpen_子SQL()
         SQL1 = "DELETE  流水帳 WHERE  (開始日期 LIKE N'" & PA1 & "')"
-        'SQL1 = "DELETE  流水帳 WHERE  (開始日期 LIKE N'" & PA1 & "' AND 結束日期 LIKE N'" & PA2 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_查詢日期寫入()
@@ -319,9 +301,116 @@
                 WHERE 查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND 狀態 LIKE N'無法取得資料'"
         CmdSet_For_DGV()
     End Sub
-    '--------------------------帳務彙總計算表------------------------------------------------------
-    Friend Sub SQL_流水帳查詢()
+    Friend Sub SQL_流水帳_客戶下新增()
+        ConnOpen_子SQL()
+        SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得) 
+                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'', N'" & PA3 & "', N'', '1', '0', '1')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG查詢1()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
+                WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "' AND 狀態 LIKE N'查詢期間無資料'"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LOG查詢2()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
+                WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "' AND 狀態 LIKE N'無法取得資料'"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LOG查詢5()
+        ConnOpen_子SQL() : SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] WHERE  狀態 LIKE N'查詢期間無資料' ORDER BY 網址" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LOG查詢6()
+        ConnOpen_子SQL() : SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] WHERE  狀態 LIKE N'無法取得資料' ORDER BY 網址" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LOG查詢()
+        ConnOpen_子SQL() : SQL1 = "SELECT 項, 日期, MyLOGy資料, LOG資料 FROM PY執行LOG ORDER BY 項 DESC" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LOG_刪除()
+        ConnOpen_子SQL()
+        SQL1 = "DELETE [LOG] WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_商客資料暫存檔_新增()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO 商客資料暫存檔 (網址, 帳號, 密碼) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_商客資料暫存檔_刪除()
+        ConnOpen_子SQL() : SQL1 = "DELETE 商客資料暫存檔" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_下行客戶流水號最後一筆()
+        ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 流水號 FROM 下行客戶 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_流水帳修正()
+        SQL1 = "SELECT [index], 開始日期, 結束日期, 網址, 帳戶 FROM 流水帳 WHERE (網址 LIKE 'http:\%') ORDER BY 結束日期 DESC" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_修正網址()
+        SQL1 = "UPDATE 流水帳 SET 網址 = N'" & PA1 & "' WHERE [index] LIKE N'" & PA2 & "' AND 開始日期 LIKE N'" & PA3 & "' AND 結束日期 LIKE N'" & PA4 & "' AND 帳戶 LIKE N'" & PA5 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_系統編碼規則_客戶下批改()
+        ConnOpen_子SQL()
+        SQL1 = "UPDATE 下行客戶 SET 計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "', 所得另算 = N'" & PA1 & "', 下層 = '" & BL4 & "', 基數 = N'" & PA2 & "' 
+                WHERE  流水號 LIKE N'" & PA & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳戶資料查詢()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT 網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數, 驗證 FROM 商客基本資料表 WHERE (商品 LIKE '" & PA5 & "') AND (帳號 LIKE '" & PA6 & "')"
+        CmdSet_For_dr()
+    End Sub
+    '-------------------------單機資料庫共用----------------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_彙總合帳使用()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT TOP (" & NU1 & ") 開始日期 AS 客戶, 開始日期 AS 應付, 開始日期 AS 應收, 開始日期 AS 個人所得 FROM 流水帳"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_彙總存檔刪除()
         ConnOpen_子SQL()
+        SQL1 = "DELETE 彙總存檔 WHERE  (開始日期 LIKE N'" & PA1 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_彙總存檔新增()
+        ConnOpen_子SQL()
+        SQL1 = "INSERT INTO 彙總存檔 (開始日期, 結束日期, 網址, 帳戶, 商品, 資料, 上行基數, 下行基數, 老闆, 客戶, 天帳, 地帳, 個人所得, 水差, 
+                            核帳, 天帳1, 地帳1, 個人所得1, 水差1, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 上繳貢獻額, 
+                            貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 客戶s, 總量s, 
+                            中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 
+                            下注明細s, 查看對帳s, 客帳, 按鈕, 客名, 計算, 同帳, 同帳指定, 所得, 下層, 所得另算, 總監, 天帳2, 地帳2, 個人所得2, 
+                            水差2) 
+                VALUES     (N'" & PB(0) & "',N'" & PB(1) & "',N'" & PB(2) & "', N'" & PB(3) & "', N'" & PB(4) & "', N'" & PB(5) & "', N'" & PB(6) & "', N'" & PB(7) & "',
+                            N'" & PB(8) & "',N'" & PB(9) & "',N'" & PB(10) & "', N'" & PB(11) & "', N'" & PB(12) & "', N'" & PB(13) & "', N'" & PB(14) & "', N'" & PB(15) & "',
+                            N'" & PB(16) & "',N'" & PB(17) & "',N'" & PB(18) & "', N'" & PB(19) & "', N'" & PB(20) & "', N'" & PB(21) & "', N'" & PB(22) & "', N'" & PB(23) & "',
+                            N'" & PB(24) & "',N'" & PB(25) & "',N'" & PB(26) & "', N'" & PB(27) & "', N'" & PB(28) & "', N'" & PB(29) & "', N'" & PB(30) & "', N'" & PB(31) & "',
+                            N'" & PB(32) & "',N'" & PB(33) & "',N'" & PB(34) & "', N'" & PB(35) & "', N'" & PB(36) & "', N'" & PB(37) & "', N'" & PB(38) & "', N'" & PB(39) & "',
+                            N'" & PB(40) & "',N'" & PB(41) & "',N'" & PB(42) & "', N'" & PB(43) & "', N'" & PB(44) & "', N'" & PB(45) & "', N'" & PB(46) & "', N'" & PB(47) & "',
+                            N'" & PB(48) & "',N'" & PB(49) & "',N'" & PB(50) & "', N'" & PB(51) & "', N'" & PB(52) & "', N'" & PB(53) & "', N'" & PB(54) & "', N'" & BL5 & "',
+                            N'" & PB(55) & "',N'" & BL1 & "',N'" & BL2 & "', N'" & PB(56) & "', N'" & BL3 & "', N'" & BL4 & "', N'" & PB(57) & "', N'" & PB(58) & "',
+                            N'" & PB(59) & "',N'" & PB(60) & "',N'" & PB(61) & "', N'" & PB(62) & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_彙總存檔確認()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT      開始日期, 結束日期 FROM 彙總存檔
+                WHERE      (開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND (結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_彙總存檔查詢()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT      開始日期, 結束日期, 網址, 帳戶, 商品, 資料, 上行基數, 下行基數, 老闆, 客戶, 天帳, 地帳, 個人所得, 水差, 
+                            核帳, 天帳1, 地帳1, 個人所得1, 水差1, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 上繳貢獻額, 
+                            貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 客戶s, 總量s, 
+                            中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 
+                            下注明細s, 查看對帳s, 客帳, 按鈕, 客名, 計算, 同帳, 同帳指定, 所得, 下層, 所得另算, 總監, 天帳2, 地帳2, 個人所得2, 
+                            水差2
+                FROM        彙總存檔
+                WHERE      (開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND (結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND 
+                           (商品 LIKE '%" & 帳務彙總計算表.商品_cb.Text & "%') AND (老闆 LIKE '%" & 帳務彙總計算表.老闆_cb.Text & "%') AND (網址 LIKE '%" & PA40 & "%')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_流水帳查詢()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT      QQQ.開始日期, QQQ.結束日期, QQQ.網址, QQQ.帳戶, QQQ.商品, QQQ.資料, QQQ.上行基數, QQQ.下行基數, QQQ.老闆, 
                             QQQ.客戶, QQQ.天帳, QQQ.地帳, QQQ.個人所得, QQQ.水差, QQQ.核帳, QQQ.天帳1, QQQ.地帳1, QQQ.個人所得1, 
                             QQQ.水差1, QQQ.總量, QQQ.退水, QQQ.中獎, QQQ.輸贏, QQQ.佔成輸贏, QQQ.水倍差, QQQ.上繳金額, 
@@ -349,11 +438,11 @@
                                             流水帳.查看對帳s, 商客基本資料表.上繳源 AS 客帳
                             FROM            流水帳 LEFT OUTER JOIN 商客基本資料表 ON 流水帳.網址 = 商客基本資料表.網址 AND 
                                             流水帳.帳戶 = 商客基本資料表.帳號
-                            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 
-                                           (流水帳.網址 LIKE N'%" & PA40 & "%')
+                            WHERE          (流水帳.開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND 
+                                           (流水帳.結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND 
+                                           (商客基本資料表.商品 LIKE '%" & 帳務彙總計算表.商品_cb.Text & "%') AND 
+                                           (商客基本資料表.上繳源 LIKE '%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 
+                                           (流水帳.網址 LIKE '%" & PA40 & "%')
                             GROUP BY        流水帳.開始日期, 流水帳.結束日期, 流水帳.網址, 流水帳.帳戶, 
                                             商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
                                             商客基本資料表.上繳源, 流水帳.名稱, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 
@@ -365,38 +454,38 @@
                                             流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.總監) AS QQQ ON 
                             選擇按鈕.選擇 = QQQ.商品
                 ORDER BY    QQQ.商品, QQQ.網址, QQQ.帳戶"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_彙總查詢()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT      商客基本資料表.商品, 商客基本資料表.上繳源 AS 老闆, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.上繳源 AS 天帳, 
                             商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 商客基本資料表.上繳源 AS 水差, 商客基本資料表.上繳源 AS 核帳, 
-                            商客基本資料表.網址 AS 狀態, 商客基本資料表.密碼
+                            商客基本資料表.網址 AS 狀態, 商客基本資料表.密碼, 商客基本資料表.驗證
                 FROM        流水帳 FULL OUTER JOIN
                             商客基本資料表 ON 流水帳.網址 = 商客基本資料表.網址 AND 
                             流水帳.帳戶 = 商客基本資料表.帳號
-                WHERE      (商客基本資料表.商品 LIKE N'%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 
-                            商客基本資料表.網址 LIKE N'%" & PA40 & "%'
-                GROUP BY    商客基本資料表.商品, 商客基本資料表.上繳源, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.密碼
+                WHERE      (商客基本資料表.商品 LIKE '%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE '%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 
+                            商客基本資料表.網址 LIKE '%" & PA40 & "%'
+                GROUP BY    商客基本資料表.商品, 商客基本資料表.上繳源, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.密碼, 商客基本資料表.驗證
                 ORDER BY    商客基本資料表.商品"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_彙總查詢1()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT      商客基本資料表.商品, 
                             商客基本資料表.商品 AS 天帳, 商客基本資料表.商品 AS 地帳, 商客基本資料表.商品 AS 個人所得, 
                             商客基本資料表.商品 AS 水差, 商客基本資料表.商品 AS 核帳
                 FROM        流水帳 FULL OUTER JOIN
                             商客基本資料表 ON 流水帳.網址 = 商客基本資料表.網址 AND 
                             流水帳.帳戶 = 商客基本資料表.帳號
-                WHERE      (商客基本資料表.商品 LIKE N'%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 
-                            商客基本資料表.網址 LIKE N'%" & PA40 & "%'
+                WHERE      (商客基本資料表.商品 LIKE '%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE '%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 
+                            商客基本資料表.網址 LIKE '%" & PA40 & "%'
                 GROUP BY    商客基本資料表.商品
                 ORDER BY    商客基本資料表.商品"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_彙總查詢2()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT     選擇按鈕.按鈕 AS 選擇, QQ.老闆, QQ.天帳, QQ.地帳, QQ.個人所得, QQ.水差, QQ.核帳
                 FROM       選擇按鈕 RIGHT OUTER JOIN
                                 (SELECT 商客基本資料表.上繳源 AS 老闆, 商客基本資料表.上繳源 AS 天帳, 商客基本資料表.上繳源 AS 地帳, 
@@ -405,95 +494,108 @@
                                   FROM  商客基本資料表 FULL OUTER JOIN
                                         流水帳 ON 流水帳.網址 = 商客基本資料表.網址 AND 
                                         流水帳.帳戶 = 商客基本資料表.帳號
-                            WHERE      (商客基本資料表.商品 LIKE N'%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 
-                                        商客基本資料表.網址 LIKE N'%" & PA40 & "%'
+                            WHERE      (商客基本資料表.商品 LIKE '%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE '%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 
+                                        商客基本資料表.網址 LIKE '%" & PA40 & "%'
                             GROUP BY    商客基本資料表.上繳源) AS QQ ON dbo.選擇按鈕.選擇 = QQ.老闆
                 ORDER BY    QQ.老闆 DESC"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_彙總查詢3()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT  商品, 上繳源 AS 天帳, 上繳源 AS 地帳, 上繳源 AS 個人所得, 上繳源 AS 水差, 
                         上繳源 AS 核帳, 上繳源
                 FROM    商客基本資料表
-                WHERE  (上繳源 LIKE N'" & 帳務彙總計算表.老闆_tb.Text & "')
+                WHERE  (上繳源 LIKE '" & 帳務彙總計算表.老闆_tb.Text & "')
                 GROUP BY   商品, 上繳源
                 ORDER BY   商品"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_彙總查詢4()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT     商客基本資料表.商品, 下行客戶.客名 AS 客戶, 下行客戶.客戶下 AS 帳號, 商客基本資料表.上繳源 AS 天帳, 
                            商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 商客基本資料表.上繳源 AS 水差, 
                            商客基本資料表.上繳源 AS 核帳, 商客基本資料表.上繳源
                 FROM       商客基本資料表 INNER JOIN
                            下行客戶 ON 商客基本資料表.網址 = 下行客戶.網址 AND 商客基本資料表.帳號 = 下行客戶.帳號
-                WHERE     (商客基本資料表.上繳源 LIKE N'" & 帳務彙總計算表.老闆_tb.Text & "')
+                WHERE     (商客基本資料表.上繳源 LIKE '" & 帳務彙總計算表.老闆_tb.Text & "') AND (下行客戶.計算 = 1) AND 
+                          (下行客戶.下層 = 0 OR 下行客戶.下層 IS NULL)
                 GROUP BY   商客基本資料表.商品, 商客基本資料表.上繳源, 下行客戶.客戶下, 下行客戶.客名
                 ORDER BY   商客基本資料表.商品"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_彙總查詢5()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT          商客基本資料表.商品, 下行客戶.客戶下 AS 客戶帳號, 下行客戶.客名 AS 個人所得, 下行客戶.客名 AS 應收, 下行客戶.基數, 下行客戶.網址, 下行客戶.帳號
                 FROM              下行客戶 INNER JOIN
                             商客基本資料表 ON 下行客戶.網址 = 商客基本資料表.網址 AND 下行客戶.帳號 = 商客基本資料表.帳號
-                WHERE          (下行客戶.客名 LIKE  N'" & 帳務彙總計算表.客戶_tb.Text & "')
+                WHERE          (下行客戶.客名 LIKE  '" & 帳務彙總計算表.客戶_tb.Text & "')
                 GROUP BY   下行客戶.客名, 商客基本資料表.商品, 下行客戶.客戶下, 下行客戶.網址, 下行客戶.帳號, 下行客戶.基數, 
                             商客基本資料表.上繳源
                 ORDER BY   應收"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
+    End Sub
+    Friend Sub SQL_彙總查詢6()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
+        SQL1 = "SELECT      商客基本資料表.商品, 商客基本資料表.上繳源 AS 老闆, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.上繳源 AS 天帳, 
+                            商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 商客基本資料表.上繳源 AS 水差, 商客基本資料表.上繳源 AS 核帳, 
+                            商客基本資料表.網址 AS 狀態, 商客基本資料表.密碼, 商客基本資料表.驗證
+                FROM        流水帳 FULL OUTER JOIN
+                            商客基本資料表 ON 流水帳.網址 = 商客基本資料表.網址 AND 
+                            流水帳.帳戶 = 商客基本資料表.帳號
+                WHERE       商客基本資料表.商品 IS NOT NULL AND 商客基本資料表.商品 NOT LIKE ''
+                GROUP BY    商客基本資料表.商品, 商客基本資料表.上繳源, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.密碼, 商客基本資料表.驗證
+                ORDER BY    商客基本資料表.商品"
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_流水帳_清除()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "DELETE  流水帳 
-                WHERE  (開始日期 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "' AND 
-                        結束日期 LIKE N'" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "')"
-        CmdSet_For_dr()
+                WHERE  (開始日期 LIKE '" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "' AND 
+                        結束日期 LIKE '" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "')"
+        If 本機資料 = False Then : CmdSet_For_dr() : ElseIf 本機資料 = True Then : AccesCmdSet_For_dr() : End If
     End Sub
     Friend Sub SQL_流水帳日期()
-        ConnOpen_子SQL() : SQL1 = "SELECT 開始日期, 結束日期 FROM 流水帳 GROUP BY 開始日期, 結束日期 ORDER BY 結束日期 DESC" : CmdSet_For_DGV()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
+        SQL1 = "SELECT 開始日期, 結束日期 FROM 流水帳 GROUP BY 開始日期, 結束日期 ORDER BY 結束日期 DESC"
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_流水帳上繳()
-        ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 FROM 商客基本資料表 GROUP BY 上繳源 ORDER BY 上繳源" : CmdSet_For_dr()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
+        SQL1 = "SELECT 上繳源 FROM 商客基本資料表 GROUP BY 上繳源 ORDER BY 上繳源"
+        If 本機資料 = False Then : CmdSet_For_dr() : ElseIf 本機資料 = True Then : AccesCmdSet_For_dr() : End If
     End Sub
     Friend Sub SQL_流水帳上繳_明細用()
-        ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 FROM 商客基本資料表 WHERE 商品 LIKE N'" & PA40 & "' GROUP BY 上繳源 ORDER BY 上繳源" : CmdSet_For_dr()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
+        SQL1 = "SELECT 上繳源 FROM 商客基本資料表 WHERE 商品 LIKE '" & PA40 & "' GROUP BY 上繳源 ORDER BY 上繳源"
+        If 本機資料 = False Then : CmdSet_For_dr() : ElseIf 本機資料 = True Then : AccesCmdSet_For_dr() : End If
     End Sub
     Friend Sub SQL_流水帳客戶_明細用()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT     下行客戶.客名
                 FROM       下行客戶 INNER JOIN
                            商客基本資料表 ON 下行客戶.帳號 = 商客基本資料表.帳號 AND 下行客戶.網址 = 商客基本資料表.網址
-                WHERE     (商客基本資料表.上繳源 LIKE N'" & PA39 & "') AND (商客基本資料表.商品 LIKE N'" & PA40 & "')
+                WHERE     (商客基本資料表.上繳源 LIKE '" & PA39 & "') AND (商客基本資料表.商品 LIKE '" & PA40 & "')
                 GROUP BY   下行客戶.客名
                 ORDER BY   下行客戶.客名"
-        CmdSet_For_dr()
+        If 本機資料 = False Then : CmdSet_For_dr() : ElseIf 本機資料 = True Then : AccesCmdSet_For_dr() : End If
     End Sub
     Friend Sub SQL_客戶下所得名稱清單()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT 所得另算 FROM 下行客戶 WHERE (所得另算 IS NOT NULL) GROUP BY 所得另算 ORDER BY 所得另算"
-        CmdSet_For_dr()
+        If 本機資料 = False Then : CmdSet_For_dr() : ElseIf 本機資料 = True Then : AccesCmdSet_For_dr() : End If
     End Sub
     Friend Sub SQL_流水帳商品()
-        ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商客基本資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_流水帳_客戶下新增()
-        ConnOpen_子SQL()
-        SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得) 
-                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'', N'" & PA3 & "', N'', '1', '0', '1')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_流水帳_客戶下修改()
-        ConnOpen_子SQL()
-        SQL1 = "UPDATE 下行客戶 SET 客名 = N'" & PA3 & "' WHERE (客戶下 LIKE N'" & PA & "' AND 網址 LIKE N'" & PA1 & "' AND 帳號 LIKE N'" & PA2 & "')"
-        CmdSet_For_dr()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
+        SQL1 = "SELECT 商品 FROM 商客基本資料表 GROUP BY 商品 ORDER BY 商品"
+        If 本機資料 = False Then : CmdSet_For_dr() : ElseIf 本機資料 = True Then : AccesCmdSet_For_dr() : End If
     End Sub
     Friend Sub SQL_客戶下資料表()
-        ConnOpen_子SQL() : SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 客名 AS 客戶名稱, 計算, 同帳, 所得, 下層, 基數, 流水號, 所得另算  FROM 下行客戶" : CmdSet_For_DGV()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
+        SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 客名 AS 客戶名稱, 計算, 同帳, 所得, 下層, 基數, 流水號, 所得另算  FROM 下行客戶"
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_客戶下名稱()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT   選擇按鈕.按鈕 AS 選擇, QQ.客戶, QQ.應收 AS 個人所得, QQ.應收
                 FROM     選擇按鈕 RIGHT OUTER JOIN
                         (SELECT      客名 AS 客戶, 客名 AS 應收
@@ -501,56 +603,70 @@
                          WHERE      (客名 NOT LIKE '') AND (客名 IS NOT NULL) AND (計算 = 1)
                          GROUP BY    客名) AS QQ ON 選擇按鈕.選擇 = QQ.客戶
                 ORDER BY 客戶"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
-    Friend Sub SQL_LOG查詢1()
+    Friend Sub SQL_帳務明細刪除()
         ConnOpen_子SQL()
-        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
-                WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "' AND 狀態 LIKE N'查詢期間無資料'"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_LOG查詢2()
-        ConnOpen_子SQL()
-        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
-                WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "' AND 狀態 LIKE N'無法取得資料'"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_LOG查詢5()
-        ConnOpen_子SQL() : SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] WHERE  狀態 LIKE N'查詢期間無資料' ORDER BY 網址" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_LOG查詢6()
-        ConnOpen_子SQL() : SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] WHERE  狀態 LIKE N'無法取得資料' ORDER BY 網址" : CmdSet_For_DGV()
+        SQL1 = "DELETE 明細存檔  WHERE  (開始日期 LIKE N'" & PA1 & "')"
+        CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_LOG查詢()
-        ConnOpen_子SQL() : SQL1 = "SELECT 項, 日期, MyLOGy資料, LOG資料 FROM PY執行LOG ORDER BY 項 DESC" : CmdSet_For_DGV()
+    Friend Sub SQL_帳務明細存檔()
+        ConnOpen_子SQL()
+        SQL1 = "INSERT INTO 明細存檔 (開始日期, 結束日期, 網址, 商品, 帳戶, 資料, [上繳.], 下行基數, 老闆, 客戶, [會員.], [代理.], [總代理.], [股東.], 
+                            [大股東.], [總監.], [上繳金額.], 個人所得, 水差, 會員1, 代理1, 總代理1, 股東1, 大股東1, 總監1, 上繳金額1, 個人所得1, 
+                            水差1, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 
+                            玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 客戶s, 總量s, 中獎s, 輸贏s, 客戶小計s, 
+                            代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 下注明細s, 查看對帳s, 客戶帳號, 
+                            按鈕, 客戶名稱, [下收.], 計算, 同帳, 所得, 下層, 同帳指定, 所得另算, [index], 下客流水, 總監, 所得指定, 天帳1, 地帳1, 
+                            個人所得2, 水差2, 核帳) 
+                VALUES     (N'" & PB(0) & "',N'" & PB(1) & "',N'" & PB(2) & "', N'" & PB(3) & "', N'" & PB(4) & "', N'" & PB(5) & "', N'" & PB(6) & "', N'" & PB(7) & "',
+                            N'" & PB(8) & "',N'" & PB(9) & "',N'" & PB(10) & "', N'" & PB(11) & "', N'" & PB(12) & "', N'" & PB(13) & "', N'" & PB(14) & "', N'" & PB(15) & "',N'" & PB(76) & "',
+                            N'" & PB(16) & "',N'" & PB(17) & "',N'" & PB(18) & "', N'" & PB(19) & "', N'" & PB(20) & "', N'" & PB(21) & "', N'" & PB(22) & "', N'" & PB(23) & "',
+                            N'" & PB(24) & "',N'" & PB(25) & "',N'" & PB(26) & "', N'" & PB(27) & "', N'" & PB(28) & "', N'" & PB(29) & "', N'" & PB(30) & "', N'" & PB(31) & "',
+                            N'" & PB(32) & "',N'" & PB(33) & "',N'" & PB(34) & "', N'" & PB(35) & "', N'" & PB(36) & "', N'" & PB(37) & "', N'" & PB(38) & "', N'" & PB(39) & "',
+                            N'" & PB(40) & "',N'" & PB(41) & "',N'" & PB(42) & "', N'" & PB(43) & "', N'" & PB(44) & "', N'" & PB(45) & "', N'" & PB(46) & "', N'" & PB(47) & "',
+                            N'" & PB(48) & "',N'" & PB(49) & "',N'" & PB(50) & "', N'" & PB(51) & "', N'" & PB(52) & "', N'" & PB(53) & "', N'" & PB(54) & "', N'" & PB(55) & "',
+                            N'" & PB(56) & "',N'" & PB(57) & "',N'" & PB(58) & "', N'" & PB(59) & "', N'" & PB(60) & "', N'" & PB(61) & "', N'" & PB(62) & "', N'" & BL5 & "',
+                            N'" & PB(63) & "',N'" & PB(64) & "',N'" & BL1 & "', N'" & BL2 & "', N'" & BL3 & "', N'" & BL4 & "', N'" & PB(65) & "', N'" & PB(66) & "',N'" & PB(67) & "',
+                            N'" & PB(68) & "',N'" & PB(69) & "', N'" & PB(70) & "', N'" & PB(71) & "', N'" & PB(72) & "', N'" & PB(73) & "', N'" & PB(74) & "',N'" & PB(75) & "')"
+        CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_LOG_刪除()
+    Friend Sub SQL_帳務明細存檔確認()
         ConnOpen_子SQL()
-        SQL1 = "DELETE [LOG] WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "'"
+        SQL1 = "SELECT      開始日期, 結束日期
+                 FROM       明細存檔
+                 WHERE    (開始日期 LIKE '" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
+                          (結束日期 LIKE '" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_商客資料暫存檔_新增()
-        ConnOpen_子SQL() : SQL1 = "INSERT INTO 商客資料暫存檔 (網址, 帳號, 密碼) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_商客資料暫存檔_刪除()
-        ConnOpen_子SQL() : SQL1 = "DELETE 商客資料暫存檔" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_下行客戶流水號最後一筆()
-        ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 流水號 FROM 下行客戶 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    Friend Sub SQL_帳務明細存檔查詢()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT      開始日期, 結束日期, 網址, 商品, 帳戶, 資料, [上繳.], 下行基數, 老闆, 客戶, [會員.], [代理.], [總代理.], [股東.], 
+                            [大股東.], [總監.], [上繳金額.], 個人所得, 水差, 會員1, 代理1, 總代理1, 股東1, 大股東1, 總監1, 上繳金額1, 個人所得1, 
+                            水差1, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 
+                            玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 客戶s, 總量s, 中獎s, 輸贏s, 客戶小計s, 
+                            代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 下注明細s, 查看對帳s, 客戶帳號, 
+                            按鈕, 客戶名稱, [下收.], 計算, 同帳, 所得, 下層, 同帳指定, 所得另算, [index], 下客流水, 總監, 所得指定, 天帳1, 地帳1, 
+                            個人所得2, 水差2, 核帳
+                 FROM       明細存檔
+                 WHERE    (開始日期 LIKE '" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
+                          (結束日期 LIKE '" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
+                          (商品 LIKE '%" & 帳務明細查詢表.商品_cb.Text & "%') AND 
+                          (老闆 LIKE '%" & 帳務明細查詢表.老闆_cb.Text & "%') " & PA32 & ""
+        CmdSet_For_DGV()
     End Sub
-    '--------------------------帳務明細查詢表------------------------------------------------------
     Friend Sub SQL_帳務明細查詢表查詢()
-        ConnOpen_子SQL()
-        SQL1 = "SELECT      QQQ.開始日期, QQQ.結束日期, QQQ.網址, QQQ.商品, QQQ.帳戶, QQQ.資料, QQQ.上行基數, QQQ.下行基數, QQQ.老闆, 
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
+        SQL1 = "SELECT      QQQ.開始日期, QQQ.結束日期, QQQ.網址, QQQ.商品, QQQ.帳戶, QQQ.資料, QQQ.上行基數 AS [上繳.], QQQ.下行基數, QQQ.老闆, 
                             QQQ.客戶, QQQ.[會員.], QQQ.[代理.], QQQ.[總代理.], QQQ.[股東.], QQQ.[大股東.], QQQ.[總監.], QQQ.[上繳金額.], QQQ.個人所得, 
-                            QQQ.水差, QQQ.會員1, QQQ.代理1, QQQ.總代理1, QQQ.股東1, QQQ.大股東1, QQQ.總監1, QQQ.上繳金額1, QQQ.個人所得1, 
-                            QQQ.水差1, QQQ.總量, QQQ.退水, QQQ.中獎, QQQ.輸贏, QQQ.佔成輸贏, QQQ.水倍差, QQQ.上繳金額, 
-                            QQQ.自已總輸贏, QQQ.上繳貢獻額, QQQ.貢獻額, QQQ.貢獻度, QQQ.下注明細, QQQ.玩法明細, QQQ.調盤退水, 
-                            QQQ.調退實佔, QQQ.上繳, QQQ.會員, QQQ.代理, QQQ.總代理, QQQ.股東, QQQ.大股東, 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.下注明細s, QQQ.查看對帳s, QQQ.客帳 AS 客戶帳號, 選擇按鈕.按鈕, 
-                            QQQ.帳戶 AS 客戶名稱, 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, QQQ.帳戶 AS 同帳指定, 選擇按鈕.按鈕 AS 所得, 
-                            選擇按鈕.按鈕 AS 下層, QQQ.個人所得 AS 所得另算, QQQ.[index], QQQ.帳戶 AS 下客流水, QQQ.總監, QQQ.帳戶 AS 所得指定
+                            QQQ.水差, QQQ.會員1, QQQ.代理1, QQQ.總代理1, QQQ.股東1, QQQ.大股東1, QQQ.總監1, QQQ.上繳金額1, QQQ.個人所得1, QQQ.水差1, 
+                            QQQ.總量, QQQ.退水, QQQ.中獎, QQQ.輸贏, QQQ.佔成輸贏, QQQ.水倍差, QQQ.上繳金額, QQQ.自已總輸贏, QQQ.上繳貢獻額, QQQ.貢獻額, 
+                            QQQ.貢獻度, QQQ.下注明細, QQQ.玩法明細, QQQ.調盤退水, QQQ.調退實佔, QQQ.上繳, QQQ.會員, QQQ.代理, QQQ.總代理, QQQ.股東, 
+                            QQQ.大股東, 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.下注明細s, QQQ.查看對帳s, QQQ.客帳 AS 客戶帳號, 選擇按鈕.按鈕, QQQ.帳戶 AS 客戶名稱, 
+                            QQQ.下行基數 AS [下收.], 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, 選擇按鈕.按鈕 AS 所得, 
+                            選擇按鈕.按鈕 AS 下層, QQQ.帳戶 AS 同帳指定, QQQ.個人所得 AS 所得另算, QQQ.[index], QQQ.帳戶 AS 下客流水, QQQ.總監, QQQ.帳戶 AS 所得指定, 
+                            QQQ.帳戶 AS 天帳1, QQQ.帳戶 AS 地帳1, QQQ.帳戶 AS 個人所得2, QQQ.帳戶 AS 水差2, QQQ.帳戶 AS 核帳
                 FROM        選擇按鈕 RIGHT OUTER JOIN
                            (SELECT     流水帳.開始日期, 流水帳.結束日期, 流水帳.網址 AS 網址, 流水帳.帳戶, 
                                        商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
@@ -571,10 +687,10 @@
                                        流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 
                                        商客基本資料表.上繳源 AS 客帳, 流水帳.[index]
                              FROM      流水帳 LEFT OUTER JOIN 商客基本資料表 ON 流水帳.網址 = 商客基本資料表.網址 AND 流水帳.帳戶 = 商客基本資料表.帳號
-                             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 & "%') " & PA32 & "
+                             WHERE    (流水帳.開始日期 LIKE '" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
+                                      (流水帳.結束日期 LIKE '" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
+                                      (商客基本資料表.商品 LIKE '%" & 帳務明細查詢表.商品_cb.Text & "%') AND 
+                                      (商客基本資料表.上繳源 LIKE '%" & 帳務明細查詢表.老闆_cb.Text & "%') " & PA32 & "
                              GROUP BY  流水帳.開始日期, 流水帳.結束日期, 流水帳.網址, 流水帳.帳戶, 
                                        商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
                                        商客基本資料表.上繳源, 流水帳.名稱, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 
@@ -585,31 +701,24 @@
                                        流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 
                                        流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.[index], 流水帳.總監) AS QQQ ON 選擇按鈕.選擇 = QQQ.商品
                 ORDER BY   QQQ.商品, QQQ.網址, QQQ.帳戶"
-        CmdSet_For_DGV()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
     Friend Sub SQL_帳務明細查詢表客戶寫入()
-        ConnOpen_子SQL()
-        SQL1 = "UPDATE 流水帳 SET 查看對帳s = N'" & PA38 & "', 下注明細s = N'" & PA32 & "'
-                WHERE ([index] LIKE N'" & PA37 & "') AND (開始日期 LIKE N'" & PA36 & "') AND (結束日期 LIKE N'" & PA35 & "') AND 
-                      (網址 LIKE N'" & PA34 & "') AND (帳戶 LIKE N'" & PA33 & "')"
-        CmdSet_For_dr()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
+        SQL1 = "UPDATE 流水帳 SET 查看對帳s = '" & PA38 & "', 下注明細s = '" & PA32 & "'
+                WHERE ([index] LIKE '" & PA37 & "') AND (開始日期 LIKE '" & PA36 & "') AND (結束日期 LIKE '" & PA35 & "') AND 
+                      (網址 LIKE '" & PA34 & "') AND (帳戶 LIKE '" & PA33 & "')"
+        If 本機資料 = False Then : CmdSet_For_dr() : ElseIf 本機資料 = True Then : AccesCmdSet_For_dr() : End If
     End Sub
     Friend Sub SQL_所得另算表()
-        ConnOpen_子SQL()
+        If 本機資料 = False Then : ConnOpen_子SQL() : ElseIf 本機資料 = True Then : AccesConnOpen() : End If
         SQL1 = "SELECT     商客基本資料表.商品, 商客基本資料表.商品 AS 所得
                 FROM       流水帳 LEFT OUTER JOIN
                            商客基本資料表 ON 流水帳.帳戶 = 商客基本資料表.帳號 AND 流水帳.網址 = 商客基本資料表.網址
-                WHERE     (流水帳.下注明細s LIKE N'%" & 帳務明細查詢表.所得指定_cb.Text & "%') AND (流水帳.開始日期 LIKE N'" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
-                          (流水帳.結束日期 LIKE N'" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "')
+                WHERE     (流水帳.下注明細s LIKE '%" & 帳務明細查詢表.所得指定_cb.Text & "%') AND (流水帳.開始日期 LIKE '" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 
+                          (流水帳.結束日期 LIKE '" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "')
                 GROUP BY   商客基本資料表.商品
                 ORDER BY   商客基本資料表.商品"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_流水帳修正()
-        SQL1 = "SELECT [index], 開始日期, 結束日期, 網址, 帳戶 FROM 流水帳 WHERE (網址 LIKE 'http:\%') ORDER BY 結束日期 DESC" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_修正網址()
-        SQL1 = "UPDATE 流水帳 SET 網址 = N'" & PA1 & "' WHERE [index] LIKE N'" & PA2 & "' AND 開始日期 LIKE N'" & PA3 & "' AND 結束日期 LIKE N'" & PA4 & "' AND 帳戶 LIKE N'" & PA5 & "'"
-        CmdSet_For_dr()
+        If 本機資料 = False Then : CmdSet_For_DGV() : ElseIf 本機資料 = True Then : AccesCmdSet_For_DGV() : End If
     End Sub
 End Module

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

@@ -201,7 +201,7 @@
     Friend Sub SQL_資料庫轉換3_新增()
         ConnOpen_備份2()
         SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層) 
-                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "')"
+                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_資料庫轉換4()

GA-ERP-SYS/Module/SQL_連線字串.vb

@@ -18,5 +18,9 @@
         ConString4 = "Data Source=" & 登入人IP5 & ";Initial Catalog=" & 子SQL名稱3 & ";Persist Security Info=True;User ID=" & 業務帳號3 & ";Password=" & 業務密碼3 & ";Max pool size = 200;
                       Connection Timeout=0"
     End Sub
+    Friend Sub SQL_連線字串_本機()
+        Dim Str As String = Application.StartupPath
+        AccessConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Str & "/GADB.mdb;Jet OLEDB:Database Password=Qaz!@#123;Persist Security Info=False;User ID=Admin"
+    End Sub
 End Module
 

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

@@ -1,6 +1,6 @@
 Module 全域變數
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public g_conn_type As String = "" : Public gUserName As String
+    Public g_conn_type, gUserName As String
     Public 登入人IP As String : Public 登入人IP2 As String : Public 登入人IP3 As String : Public 登入人IP4 As String : Public 登入人IP5 As String
     Public 子SQL名稱 As String : Public 子SQL名稱1 As String : Public 子SQL名稱2 As String : Public 子SQL名稱3 As String
     Public 業務帳號 As String : Public 業務密碼 As String : Public 業務帳號1 As String : Public 業務密碼1 As String
@@ -10,34 +10,40 @@
     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 = "2021100801"
+    Public 版本 As String = "2021103105"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 判斷重登 As Boolean : Public 內外網 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
-    Public timeExit As Integer = 0 : Public timeExit2 As Integer = 0 : Public timeNow As Integer = 0 : Public timeNow2 As Integer = 0 : Public 密碼時限 As Integer = 30
+    Public 判斷重登, 內外網, 重登確認, 主頁開啟 As Boolean
+    Public timeExit, timeExit2, timeNow, timeNow2 As Integer : Public 密碼時限 As Integer = 30
     '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = ""
-    Public PA6 As String = "" : Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = ""
-    Public PA12 As String = "" : Public PA13 As String = "" : Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = ""
-    Public PA18 As String = "" : Public PA19 As String = "" : Public PA20 As String = "" : Public PA21 As String = "" : Public PA22 As String = "" : Public PA23 As String = ""
-    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 設定異常表0, 設定異常表1, 設定異常表2 As String
+    Public 異常表0, 異常表1, 異常表2, 計算累加 As Integer
+    Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21 As String
+    Public PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41 As String
+    Public PA42 As String
+    Public PB(76) As String
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double
+    Public NU1, NU2, NU3, NU4, NU5 As Double
     '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public BL1 As Boolean : Public BL2 As Boolean : Public BL3 As Boolean : Public BL4 As Boolean : Public BL5 As Boolean : Public BL6 As Boolean
+    Public BL1, BL2, BL3, BL4, BL5, BL6, 是否新增, 是否運行 As Boolean
     '----介面開啟判斷-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 客戶資料強制對話框模式 As Boolean
     '----進度條計算式-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Public Class MyModule1
         Friend Shared Sub 進度條()
-            平均數 = 10000 / 資料數
+            If 資料數 = 0 Then : 平均數 = 0 : Else : 平均數 = 10000 / 資料數 : End If
             最終數 += 平均數
             If 最終數 > 10000 Then : 最終數 = 10000 : End If
             GA_ERP_SYS.ToolStripProgressBar1.Value = 最終數
         End Sub
+        Friend Shared Sub 計算顯示0()
+            計算累加 += 1
+            GA_ERP_SYS.Text = "GA ERP SYS" & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :  " & 版本 & "   正在計算 : [" &
+                               Strings.Format((計算累加 + 1), "#,##0") & "] 筆資料!! -- "
+        End Sub
+        Friend Shared Sub 計算顯示1()
+            GA_ERP_SYS.Text = "GA ERP SYS" & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :  " & 版本 : 計算累加 = 0
+        End Sub
     End Class
 End Module

GA-ERP-SYS/bin/Debug/lorverrorlog.txt

@@ -1,3 +0,0 @@
-Traceback (most recent call last):
-  File "LoginVerify.py", line 134, in <module>
-FileNotFoundError: [Errno 2] No such file or directory: 'lorv.csv'

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

@@ -1 +1 @@
-ac3e807adc43f305246c981a40a2d7dfaa464546
+f2fb7c61ab5c5f7da348dfe4a2a1a43a443a81de

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

@@ -149,10 +149,14 @@ D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統執行檔版本
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統編碼規則.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.計算機.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.資料備份轉移.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.輸入密碼.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.GenerateResource.cache
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CoreCompileInputs.cache
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CopyComplete
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳號資料.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.設定異常表.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.客戶資料.resources
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbprojAssemblyReference.cache

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

@@ -65,12 +65,19 @@ Partial Class 基本資料
         Me.狀態_tb = New System.Windows.Forms.TextBox()
         Me.GroupBox5 = New System.Windows.Forms.GroupBox()
         Me.所得指定_tb = New System.Windows.Forms.TextBox()
+        Me.所得取消_bt = New System.Windows.Forms.Button()
         Me.Label28 = New System.Windows.Forms.Label()
+        Me.所得全選_bt = New System.Windows.Forms.Button()
         Me.所得計算_ch = New System.Windows.Forms.CheckBox()
+        Me.同帳取消_bt = New System.Windows.Forms.Button()
         Me.參與計算_ch = New System.Windows.Forms.CheckBox()
+        Me.同帳全選_bt = New System.Windows.Forms.Button()
         Me.取消2_bt = New System.Windows.Forms.Button()
+        Me.批量存檔_bt = New System.Windows.Forms.Button()
         Me.存檔2_bt = New System.Windows.Forms.Button()
+        Me.計算取消_bt = New System.Windows.Forms.Button()
         Me.Label20 = New System.Windows.Forms.Label()
+        Me.計算全選_bt = New System.Windows.Forms.Button()
         Me.Label19 = New System.Windows.Forms.Label()
         Me.帳號3_cb = New System.Windows.Forms.ComboBox()
         Me.Label18 = New System.Windows.Forms.Label()
@@ -84,13 +91,14 @@ Partial Class 基本資料
         Me.客戶下修正_bt = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.客戶下新增_bt = New System.Windows.Forms.Button()
-        Me.客戶下_dgv = New System.Windows.Forms.DataGridView()
         Me.商品3_cb = New System.Windows.Forms.ComboBox()
         Me.RadioButton3 = New System.Windows.Forms.RadioButton()
         Me.RadioButton2 = New System.Windows.Forms.RadioButton()
         Me.RadioButton1 = New System.Windows.Forms.RadioButton()
         Me.上下同帳_ch = New System.Windows.Forms.CheckBox()
         Me.Label23 = New System.Windows.Forms.Label()
+        Me.下層帳號_ch = New System.Windows.Forms.CheckBox()
+        Me.客戶下_dgv = New System.Windows.Forms.DataGridView()
         Me.搜索3_bt = New System.Windows.Forms.Button()
         Me.清除搜索1_bt = New System.Windows.Forms.Button()
         Me.搜索1_bt = New System.Windows.Forms.Button()
@@ -148,18 +156,12 @@ Partial Class 基本資料
         Me.LOG檔_bt = New System.Windows.Forms.Button()
         Me.開網站1_bt = New System.Windows.Forms.Button()
         Me.進階控制_bt = New System.Windows.Forms.Button()
-        Me.計算全選_bt = New System.Windows.Forms.Button()
-        Me.計算取消_bt = New System.Windows.Forms.Button()
-        Me.批量存檔_bt = New System.Windows.Forms.Button()
-        Me.同帳取消_bt = New System.Windows.Forms.Button()
-        Me.同帳全選_bt = New System.Windows.Forms.Button()
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.所得取消_bt = New System.Windows.Forms.Button()
-        Me.所得全選_bt = New System.Windows.Forms.Button()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
-        Me.下層帳號_ch = New System.Windows.Forms.CheckBox()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.開帳務明細_bt = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.基數_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -173,8 +175,8 @@ Partial Class 基本資料
         Me.L50.SuspendLayout()
         CType(Me.LOG1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LOG2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'GroupBox1
@@ -203,7 +205,7 @@ Partial Class 基本資料
         Me.GroupBox1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.GroupBox1.Location = New System.Drawing.Point(6, 2)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(392, 641)
+        Me.GroupBox1.Size = New System.Drawing.Size(392, 672)
         Me.GroupBox1.TabIndex = 1502
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "商品資料表"
@@ -320,7 +322,7 @@ Partial Class 基本資料
         '
         Me.網址2_tb.Location = New System.Drawing.Point(126, 45)
         Me.網址2_tb.Name = "網址2_tb"
-        Me.網址2_tb.Size = New System.Drawing.Size(148, 23)
+        Me.網址2_tb.Size = New System.Drawing.Size(151, 23)
         Me.網址2_tb.TabIndex = 1524
         '
         'Label5
@@ -381,7 +383,7 @@ Partial Class 基本資料
         Me.商品_dgv.Name = "商品_dgv"
         Me.商品_dgv.RowHeadersWidth = 4
         Me.商品_dgv.RowTemplate.Height = 24
-        Me.商品_dgv.Size = New System.Drawing.Size(381, 544)
+        Me.商品_dgv.Size = New System.Drawing.Size(381, 575)
         Me.商品_dgv.TabIndex = 0
         '
         'Label7
@@ -427,9 +429,9 @@ Partial Class 基本資料
         Me.清除搜索3_bt.BackColor = System.Drawing.SystemColors.ControlLight
         Me.清除搜索3_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.清除搜索3_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.清除搜索3_bt.Location = New System.Drawing.Point(309, 649)
+        Me.清除搜索3_bt.Location = New System.Drawing.Point(411, 680)
         Me.清除搜索3_bt.Name = "清除搜索3_bt"
-        Me.清除搜索3_bt.Size = New System.Drawing.Size(85, 25)
+        Me.清除搜索3_bt.Size = New System.Drawing.Size(86, 49)
         Me.清除搜索3_bt.TabIndex = 1537
         Me.清除搜索3_bt.Text = "清除搜索"
         Me.清除搜索3_bt.UseVisualStyleBackColor = False
@@ -440,9 +442,9 @@ Partial Class 基本資料
         Me.搜索4_bt.BackColor = System.Drawing.SystemColors.ControlLight
         Me.搜索4_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.搜索4_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.搜索4_bt.Location = New System.Drawing.Point(105, 649)
+        Me.搜索4_bt.Location = New System.Drawing.Point(236, 680)
         Me.搜索4_bt.Name = "搜索4_bt"
-        Me.搜索4_bt.Size = New System.Drawing.Size(115, 47)
+        Me.搜索4_bt.Size = New System.Drawing.Size(86, 49)
         Me.搜索4_bt.TabIndex = 1536
         Me.搜索4_bt.Text = "使用網址搜索資料"
         Me.搜索4_bt.UseVisualStyleBackColor = False
@@ -451,9 +453,9 @@ Partial Class 基本資料
         '
         Me.開網站_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.開網站_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.開網站_bt.Location = New System.Drawing.Point(222, 649)
+        Me.開網站_bt.Location = New System.Drawing.Point(324, 680)
         Me.開網站_bt.Name = "開網站_bt"
-        Me.開網站_bt.Size = New System.Drawing.Size(85, 47)
+        Me.開網站_bt.Size = New System.Drawing.Size(86, 49)
         Me.開網站_bt.TabIndex = 1529
         Me.開網站_bt.Text = "開網站"
         Me.開網站_bt.UseVisualStyleBackColor = True
@@ -481,14 +483,20 @@ 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.下層帳號_ch)
         Me.GroupBox5.Controls.Add(Me.所得指定_tb)
+        Me.GroupBox5.Controls.Add(Me.所得取消_bt)
         Me.GroupBox5.Controls.Add(Me.Label28)
+        Me.GroupBox5.Controls.Add(Me.所得全選_bt)
         Me.GroupBox5.Controls.Add(Me.所得計算_ch)
+        Me.GroupBox5.Controls.Add(Me.同帳取消_bt)
         Me.GroupBox5.Controls.Add(Me.參與計算_ch)
+        Me.GroupBox5.Controls.Add(Me.同帳全選_bt)
         Me.GroupBox5.Controls.Add(Me.取消2_bt)
+        Me.GroupBox5.Controls.Add(Me.批量存檔_bt)
         Me.GroupBox5.Controls.Add(Me.存檔2_bt)
+        Me.GroupBox5.Controls.Add(Me.計算取消_bt)
         Me.GroupBox5.Controls.Add(Me.Label20)
+        Me.GroupBox5.Controls.Add(Me.計算全選_bt)
         Me.GroupBox5.Controls.Add(Me.Label19)
         Me.GroupBox5.Controls.Add(Me.帳號3_cb)
         Me.GroupBox5.Controls.Add(Me.Label18)
@@ -502,89 +510,174 @@ Partial Class 基本資料
         Me.GroupBox5.Controls.Add(Me.客戶下修正_bt)
         Me.GroupBox5.Controls.Add(Me.Label6)
         Me.GroupBox5.Controls.Add(Me.客戶下新增_bt)
-        Me.GroupBox5.Controls.Add(Me.客戶下_dgv)
         Me.GroupBox5.Controls.Add(Me.商品3_cb)
         Me.GroupBox5.Controls.Add(Me.RadioButton3)
         Me.GroupBox5.Controls.Add(Me.RadioButton2)
         Me.GroupBox5.Controls.Add(Me.RadioButton1)
         Me.GroupBox5.Controls.Add(Me.上下同帳_ch)
         Me.GroupBox5.Controls.Add(Me.Label23)
+        Me.GroupBox5.Controls.Add(Me.下層帳號_ch)
+        Me.GroupBox5.Controls.Add(Me.客戶下_dgv)
         Me.GroupBox5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.GroupBox5.Location = New System.Drawing.Point(706, 2)
+        Me.GroupBox5.Location = New System.Drawing.Point(790, 2)
         Me.GroupBox5.Name = "GroupBox5"
-        Me.GroupBox5.Size = New System.Drawing.Size(471, 641)
+        Me.GroupBox5.Size = New System.Drawing.Size(549, 672)
         Me.GroupBox5.TabIndex = 1506
         Me.GroupBox5.TabStop = False
         Me.GroupBox5.Text = "下收客戶帳號設定"
         '
         '所得指定_tb
         '
-        Me.所得指定_tb.Location = New System.Drawing.Point(253, 119)
+        Me.所得指定_tb.Location = New System.Drawing.Point(253, 113)
         Me.所得指定_tb.Name = "所得指定_tb"
         Me.所得指定_tb.Size = New System.Drawing.Size(133, 23)
         Me.所得指定_tb.TabIndex = 1558
         '
+        '所得取消_bt
+        '
+        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.Green
+        Me.所得取消_bt.Location = New System.Drawing.Point(389, 188)
+        Me.所得取消_bt.Name = "所得取消_bt"
+        Me.所得取消_bt.Size = New System.Drawing.Size(75, 25)
+        Me.所得取消_bt.TabIndex = 1630
+        Me.所得取消_bt.Text = "所得取消"
+        Me.所得取消_bt.UseVisualStyleBackColor = False
+        '
         '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.Location = New System.Drawing.Point(197, 117)
         Me.Label28.Name = "Label28"
         Me.Label28.Size = New System.Drawing.Size(56, 16)
         Me.Label28.TabIndex = 1557
         Me.Label28.Text = "所得指定"
         '
+        '所得全選_bt
+        '
+        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.Green
+        Me.所得全選_bt.Location = New System.Drawing.Point(312, 188)
+        Me.所得全選_bt.Name = "所得全選_bt"
+        Me.所得全選_bt.Size = New System.Drawing.Size(75, 25)
+        Me.所得全選_bt.TabIndex = 1629
+        Me.所得全選_bt.Text = "所得全選"
+        Me.所得全選_bt.UseVisualStyleBackColor = False
+        '
         '所得計算_ch
         '
         Me.所得計算_ch.AutoSize = True
-        Me.所得計算_ch.Location = New System.Drawing.Point(210, 98)
+        Me.所得計算_ch.Location = New System.Drawing.Point(212, 94)
         Me.所得計算_ch.Name = "所得計算_ch"
         Me.所得計算_ch.Size = New System.Drawing.Size(75, 20)
         Me.所得計算_ch.TabIndex = 1556
         Me.所得計算_ch.Text = "所得計算"
         Me.所得計算_ch.UseVisualStyleBackColor = True
         '
+        '同帳取消_bt
+        '
+        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(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.同帳取消_bt.Location = New System.Drawing.Point(235, 188)
+        Me.同帳取消_bt.Name = "同帳取消_bt"
+        Me.同帳取消_bt.Size = New System.Drawing.Size(75, 25)
+        Me.同帳取消_bt.TabIndex = 1628
+        Me.同帳取消_bt.Text = "同帳取消"
+        Me.同帳取消_bt.UseVisualStyleBackColor = False
+        '
         '參與計算_ch
         '
         Me.參與計算_ch.AutoSize = True
-        Me.參與計算_ch.Location = New System.Drawing.Point(10, 98)
+        Me.參與計算_ch.Location = New System.Drawing.Point(10, 94)
         Me.參與計算_ch.Name = "參與計算_ch"
         Me.參與計算_ch.Size = New System.Drawing.Size(75, 20)
         Me.參與計算_ch.TabIndex = 1554
         Me.參與計算_ch.Text = "參與計算"
         Me.參與計算_ch.UseVisualStyleBackColor = True
         '
+        '同帳全選_bt
+        '
+        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(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.同帳全選_bt.Location = New System.Drawing.Point(158, 188)
+        Me.同帳全選_bt.Name = "同帳全選_bt"
+        Me.同帳全選_bt.Size = New System.Drawing.Size(75, 25)
+        Me.同帳全選_bt.TabIndex = 1627
+        Me.同帳全選_bt.Text = "同帳全選"
+        Me.同帳全選_bt.UseVisualStyleBackColor = False
+        '
         '取消2_bt
         '
         Me.取消2_bt.ForeColor = System.Drawing.Color.Black
-        Me.取消2_bt.Location = New System.Drawing.Point(389, 93)
+        Me.取消2_bt.Location = New System.Drawing.Point(389, 89)
         Me.取消2_bt.Name = "取消2_bt"
-        Me.取消2_bt.Size = New System.Drawing.Size(76, 24)
+        Me.取消2_bt.Size = New System.Drawing.Size(154, 24)
         Me.取消2_bt.TabIndex = 1551
         Me.取消2_bt.Text = "取消"
         Me.取消2_bt.UseVisualStyleBackColor = True
         '
+        '批量存檔_bt
+        '
+        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.Purple
+        Me.批量存檔_bt.Location = New System.Drawing.Point(467, 188)
+        Me.批量存檔_bt.Name = "批量存檔_bt"
+        Me.批量存檔_bt.Size = New System.Drawing.Size(75, 25)
+        Me.批量存檔_bt.TabIndex = 1626
+        Me.批量存檔_bt.Text = "批量存檔"
+        Me.批量存檔_bt.UseVisualStyleBackColor = False
+        '
         '存檔2_bt
         '
         Me.存檔2_bt.ForeColor = System.Drawing.Color.Green
-        Me.存檔2_bt.Location = New System.Drawing.Point(389, 68)
+        Me.存檔2_bt.Location = New System.Drawing.Point(389, 65)
         Me.存檔2_bt.Name = "存檔2_bt"
-        Me.存檔2_bt.Size = New System.Drawing.Size(76, 24)
+        Me.存檔2_bt.Size = New System.Drawing.Size(154, 24)
         Me.存檔2_bt.TabIndex = 1550
         Me.存檔2_bt.Text = "儲存"
         Me.存檔2_bt.UseVisualStyleBackColor = True
         '
+        '計算取消_bt
+        '
+        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(81, 188)
+        Me.計算取消_bt.Name = "計算取消_bt"
+        Me.計算取消_bt.Size = New System.Drawing.Size(75, 25)
+        Me.計算取消_bt.TabIndex = 1625
+        Me.計算取消_bt.Text = "計算取消"
+        Me.計算取消_bt.UseVisualStyleBackColor = False
+        '
         'Label20
         '
         Me.Label20.AutoSize = True
         Me.Label20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label20.ForeColor = System.Drawing.Color.Red
-        Me.Label20.Location = New System.Drawing.Point(13, 144)
+        Me.Label20.Location = New System.Drawing.Point(13, 138)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(452, 32)
         Me.Label20.TabIndex = 1544
         Me.Label20.Text = "下收客戶帳號在自動讀取帳務時會自動生成到資料庫中，這裡不推薦一個一個新建，" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "建議是自動讀取完帳務資料後再回來這裡進行 [客戶名稱] 與 [階級] 的修正即可。"
         '
+        '計算全選_bt
+        '
+        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(4, 188)
+        Me.計算全選_bt.Name = "計算全選_bt"
+        Me.計算全選_bt.Size = New System.Drawing.Size(75, 25)
+        Me.計算全選_bt.TabIndex = 1624
+        Me.計算全選_bt.Text = "計算全選"
+        Me.計算全選_bt.UseVisualStyleBackColor = False
+        '
         'Label19
         '
         Me.Label19.AutoSize = True
@@ -624,7 +717,7 @@ Partial Class 基本資料
         '
         '客戶名稱_tb
         '
-        Me.客戶名稱_tb.Location = New System.Drawing.Point(253, 46)
+        Me.客戶名稱_tb.Location = New System.Drawing.Point(253, 44)
         Me.客戶名稱_tb.Name = "客戶名稱_tb"
         Me.客戶名稱_tb.Size = New System.Drawing.Size(133, 23)
         Me.客戶名稱_tb.TabIndex = 1532
@@ -633,7 +726,7 @@ Partial Class 基本資料
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label1.Location = New System.Drawing.Point(197, 49)
+        Me.Label1.Location = New System.Drawing.Point(197, 48)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(56, 16)
         Me.Label1.TabIndex = 1531
@@ -643,7 +736,7 @@ Partial Class 基本資料
         '
         Me.下行1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.下行1_cb.FormattingEnabled = True
-        Me.下行1_cb.Location = New System.Drawing.Point(253, 72)
+        Me.下行1_cb.Location = New System.Drawing.Point(253, 69)
         Me.下行1_cb.Name = "下行1_cb"
         Me.下行1_cb.Size = New System.Drawing.Size(133, 24)
         Me.下行1_cb.TabIndex = 1530
@@ -652,19 +745,19 @@ Partial Class 基本資料
         '
         Me.Label29.AutoSize = True
         Me.Label29.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label29.Location = New System.Drawing.Point(198, 74)
+        Me.Label29.Location = New System.Drawing.Point(196, 72)
         Me.Label29.Name = "Label29"
-        Me.Label29.Size = New System.Drawing.Size(55, 17)
+        Me.Label29.Size = New System.Drawing.Size(60, 17)
         Me.Label29.TabIndex = 1529
-        Me.Label29.Text = "階       級"
+        Me.Label29.Text = "同帳階級"
         '
         '客戶下刪除_bt
         '
         Me.客戶下刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.客戶下刪除_bt.ForeColor = System.Drawing.Color.Red
-        Me.客戶下刪除_bt.Location = New System.Drawing.Point(389, 119)
+        Me.客戶下刪除_bt.Location = New System.Drawing.Point(389, 113)
         Me.客戶下刪除_bt.Name = "客戶下刪除_bt"
-        Me.客戶下刪除_bt.Size = New System.Drawing.Size(76, 24)
+        Me.客戶下刪除_bt.Size = New System.Drawing.Size(154, 24)
         Me.客戶下刪除_bt.TabIndex = 1505
         Me.客戶下刪除_bt.Text = "刪除"
         Me.客戶下刪除_bt.UseVisualStyleBackColor = True
@@ -679,9 +772,9 @@ 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, 43)
+        Me.客戶下修正_bt.Location = New System.Drawing.Point(389, 41)
         Me.客戶下修正_bt.Name = "客戶下修正_bt"
-        Me.客戶下修正_bt.Size = New System.Drawing.Size(76, 24)
+        Me.客戶下修正_bt.Size = New System.Drawing.Size(154, 24)
         Me.客戶下修正_bt.TabIndex = 1504
         Me.客戶下修正_bt.Text = "修正"
         Me.客戶下修正_bt.UseVisualStyleBackColor = True
@@ -703,31 +796,16 @@ Partial Class 基本資料
         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, 17)
         Me.客戶下新增_bt.Name = "客戶下新增_bt"
-        Me.客戶下新增_bt.Size = New System.Drawing.Size(76, 24)
+        Me.客戶下新增_bt.Size = New System.Drawing.Size(154, 24)
         Me.客戶下新增_bt.TabIndex = 1503
         Me.客戶下新增_bt.Text = "新增"
         Me.客戶下新增_bt.UseVisualStyleBackColor = False
         '
-        '客戶下_dgv
-        '
-        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)
-        Me.客戶下_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶下_dgv.Location = New System.Drawing.Point(6, 198)
-        Me.客戶下_dgv.Name = "客戶下_dgv"
-        Me.客戶下_dgv.RowHeadersWidth = 4
-        Me.客戶下_dgv.RowTemplate.Height = 24
-        Me.客戶下_dgv.Size = New System.Drawing.Size(459, 437)
-        Me.客戶下_dgv.TabIndex = 0
-        '
         '商品3_cb
         '
         Me.商品3_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.商品3_cb.FormattingEnabled = True
-        Me.商品3_cb.Location = New System.Drawing.Point(97, 119)
+        Me.商品3_cb.Location = New System.Drawing.Point(97, 113)
         Me.商品3_cb.Name = "商品3_cb"
         Me.商品3_cb.Size = New System.Drawing.Size(98, 24)
         Me.商品3_cb.TabIndex = 1552
@@ -735,7 +813,7 @@ Partial Class 基本資料
         'RadioButton3
         '
         Me.RadioButton3.AutoSize = True
-        Me.RadioButton3.Location = New System.Drawing.Point(284, 175)
+        Me.RadioButton3.Location = New System.Drawing.Point(339, 169)
         Me.RadioButton3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.RadioButton3.Name = "RadioButton3"
         Me.RadioButton3.Size = New System.Drawing.Size(158, 20)
@@ -746,7 +824,7 @@ Partial Class 基本資料
         'RadioButton2
         '
         Me.RadioButton2.AutoSize = True
-        Me.RadioButton2.Location = New System.Drawing.Point(133, 175)
+        Me.RadioButton2.Location = New System.Drawing.Point(169, 169)
         Me.RadioButton2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.RadioButton2.Name = "RadioButton2"
         Me.RadioButton2.Size = New System.Drawing.Size(146, 20)
@@ -758,7 +836,7 @@ Partial Class 基本資料
         '
         Me.RadioButton1.AutoSize = True
         Me.RadioButton1.Checked = True
-        Me.RadioButton1.Location = New System.Drawing.Point(30, 175)
+        Me.RadioButton1.Location = New System.Drawing.Point(48, 169)
         Me.RadioButton1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.RadioButton1.Name = "RadioButton1"
         Me.RadioButton1.Size = New System.Drawing.Size(98, 20)
@@ -770,7 +848,7 @@ Partial Class 基本資料
         '上下同帳_ch
         '
         Me.上下同帳_ch.AutoSize = True
-        Me.上下同帳_ch.Location = New System.Drawing.Point(111, 98)
+        Me.上下同帳_ch.Location = New System.Drawing.Point(111, 94)
         Me.上下同帳_ch.Name = "上下同帳_ch"
         Me.上下同帳_ch.Size = New System.Drawing.Size(75, 20)
         Me.上下同帳_ch.TabIndex = 1555
@@ -780,21 +858,46 @@ Partial Class 基本資料
         'Label23
         '
         Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(6, 123)
+        Me.Label23.Location = New System.Drawing.Point(6, 117)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(92, 16)
         Me.Label23.TabIndex = 1553
         Me.Label23.Text = "依商品顯示清單"
         '
+        '下層帳號_ch
+        '
+        Me.下層帳號_ch.AutoSize = True
+        Me.下層帳號_ch.Location = New System.Drawing.Point(313, 94)
+        Me.下層帳號_ch.Name = "下層帳號_ch"
+        Me.下層帳號_ch.Size = New System.Drawing.Size(75, 20)
+        Me.下層帳號_ch.TabIndex = 1559
+        Me.下層帳號_ch.Text = "下層帳號"
+        Me.下層帳號_ch.UseVisualStyleBackColor = True
+        '
+        '客戶下_dgv
+        '
+        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)
+        Me.客戶下_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.客戶下_dgv.Location = New System.Drawing.Point(6, 214)
+        Me.客戶下_dgv.Name = "客戶下_dgv"
+        Me.客戶下_dgv.RowHeadersWidth = 4
+        Me.客戶下_dgv.RowTemplate.Height = 24
+        Me.客戶下_dgv.Size = New System.Drawing.Size(537, 452)
+        Me.客戶下_dgv.TabIndex = 0
+        '
         '搜索3_bt
         '
         Me.搜索3_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.搜索3_bt.BackColor = System.Drawing.SystemColors.ControlLight
         Me.搜索3_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.搜索3_bt.ForeColor = System.Drawing.Color.Purple
-        Me.搜索3_bt.Location = New System.Drawing.Point(714, 647)
+        Me.搜索3_bt.Location = New System.Drawing.Point(997, 678)
         Me.搜索3_bt.Name = "搜索3_bt"
-        Me.搜索3_bt.Size = New System.Drawing.Size(140, 25)
+        Me.搜索3_bt.Size = New System.Drawing.Size(86, 49)
         Me.搜索3_bt.TabIndex = 1536
         Me.搜索3_bt.Text = "使用網址搜索客商資料"
         Me.搜索3_bt.UseVisualStyleBackColor = False
@@ -805,9 +908,9 @@ Partial Class 基本資料
         Me.清除搜索1_bt.BackColor = System.Drawing.SystemColors.ControlLight
         Me.清除搜索1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.清除搜索1_bt.ForeColor = System.Drawing.Color.Purple
-        Me.清除搜索1_bt.Location = New System.Drawing.Point(1070, 671)
+        Me.清除搜索1_bt.Location = New System.Drawing.Point(1172, 678)
         Me.清除搜索1_bt.Name = "清除搜索1_bt"
-        Me.清除搜索1_bt.Size = New System.Drawing.Size(65, 25)
+        Me.清除搜索1_bt.Size = New System.Drawing.Size(95, 25)
         Me.清除搜索1_bt.TabIndex = 1534
         Me.清除搜索1_bt.Text = "清除搜索"
         Me.清除搜索1_bt.UseVisualStyleBackColor = False
@@ -818,9 +921,9 @@ Partial Class 基本資料
         Me.搜索1_bt.BackColor = System.Drawing.SystemColors.ControlLight
         Me.搜索1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.搜索1_bt.ForeColor = System.Drawing.Color.Purple
-        Me.搜索1_bt.Location = New System.Drawing.Point(714, 671)
+        Me.搜索1_bt.Location = New System.Drawing.Point(1084, 678)
         Me.搜索1_bt.Name = "搜索1_bt"
-        Me.搜索1_bt.Size = New System.Drawing.Size(140, 25)
+        Me.搜索1_bt.Size = New System.Drawing.Size(86, 49)
         Me.搜索1_bt.TabIndex = 1533
         Me.搜索1_bt.Text = "使用客戶帳號搜索資料"
         Me.搜索1_bt.UseVisualStyleBackColor = False
@@ -887,7 +990,7 @@ Partial Class 基本資料
         '
         Me.流水號_tb.Location = New System.Drawing.Point(175, 161)
         Me.流水號_tb.Name = "流水號_tb"
-        Me.流水號_tb.Size = New System.Drawing.Size(95, 23)
+        Me.流水號_tb.Size = New System.Drawing.Size(106, 23)
         Me.流水號_tb.TabIndex = 1535
         Me.流水號_tb.Visible = False
         '
@@ -942,7 +1045,7 @@ Partial Class 基本資料
         Me.GroupBox7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.GroupBox7.Location = New System.Drawing.Point(401, 2)
         Me.GroupBox7.Name = "GroupBox7"
-        Me.GroupBox7.Size = New System.Drawing.Size(302, 641)
+        Me.GroupBox7.Size = New System.Drawing.Size(383, 672)
         Me.GroupBox7.TabIndex = 1508
         Me.GroupBox7.TabStop = False
         Me.GroupBox7.Text = "上繳帳號設定"
@@ -959,9 +1062,9 @@ Partial Class 基本資料
         '帳號驗證_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(129, 15)
+        Me.帳號驗證_bt.Location = New System.Drawing.Point(156, 15)
         Me.帳號驗證_bt.Name = "帳號驗證_bt"
-        Me.帳號驗證_bt.Size = New System.Drawing.Size(113, 25)
+        Me.帳號驗證_bt.Size = New System.Drawing.Size(87, 25)
         Me.帳號驗證_bt.TabIndex = 1550
         Me.帳號驗證_bt.Text = "帳號驗證"
         Me.帳號驗證_bt.UseVisualStyleBackColor = True
@@ -971,7 +1074,7 @@ Partial Class 基本資料
         Me.取消1_bt.ForeColor = System.Drawing.Color.Black
         Me.取消1_bt.Location = New System.Drawing.Point(244, 90)
         Me.取消1_bt.Name = "取消1_bt"
-        Me.取消1_bt.Size = New System.Drawing.Size(53, 25)
+        Me.取消1_bt.Size = New System.Drawing.Size(133, 25)
         Me.取消1_bt.TabIndex = 1549
         Me.取消1_bt.Text = "取消"
         Me.取消1_bt.UseVisualStyleBackColor = True
@@ -981,7 +1084,7 @@ Partial Class 基本資料
         Me.存檔1_bt.ForeColor = System.Drawing.Color.Green
         Me.存檔1_bt.Location = New System.Drawing.Point(244, 65)
         Me.存檔1_bt.Name = "存檔1_bt"
-        Me.存檔1_bt.Size = New System.Drawing.Size(53, 25)
+        Me.存檔1_bt.Size = New System.Drawing.Size(133, 25)
         Me.存檔1_bt.TabIndex = 1548
         Me.存檔1_bt.Text = "儲存"
         Me.存檔1_bt.UseVisualStyleBackColor = True
@@ -1001,7 +1104,7 @@ Partial Class 基本資料
         Me.狀態1_tb.Enabled = False
         Me.狀態1_tb.Location = New System.Drawing.Point(215, 220)
         Me.狀態1_tb.Name = "狀態1_tb"
-        Me.狀態1_tb.Size = New System.Drawing.Size(52, 23)
+        Me.狀態1_tb.Size = New System.Drawing.Size(66, 23)
         Me.狀態1_tb.TabIndex = 1538
         Me.狀態1_tb.Visible = False
         '
@@ -1123,7 +1226,7 @@ Partial Class 基本資料
         Me.商客刪除_bt.ForeColor = System.Drawing.Color.Red
         Me.商客刪除_bt.Location = New System.Drawing.Point(244, 115)
         Me.商客刪除_bt.Name = "商客刪除_bt"
-        Me.商客刪除_bt.Size = New System.Drawing.Size(53, 25)
+        Me.商客刪除_bt.Size = New System.Drawing.Size(133, 25)
         Me.商客刪除_bt.TabIndex = 1511
         Me.商客刪除_bt.Text = "刪除"
         Me.商客刪除_bt.UseVisualStyleBackColor = True
@@ -1132,7 +1235,7 @@ Partial Class 基本資料
         '
         Me.商客修正_bt.Location = New System.Drawing.Point(244, 40)
         Me.商客修正_bt.Name = "商客修正_bt"
-        Me.商客修正_bt.Size = New System.Drawing.Size(53, 25)
+        Me.商客修正_bt.Size = New System.Drawing.Size(133, 25)
         Me.商客修正_bt.TabIndex = 1510
         Me.商客修正_bt.Text = "修正"
         Me.商客修正_bt.UseVisualStyleBackColor = True
@@ -1142,7 +1245,7 @@ Partial Class 基本資料
         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(244, 15)
         Me.商客新增_bt.Name = "商客新增_bt"
-        Me.商客新增_bt.Size = New System.Drawing.Size(53, 25)
+        Me.商客新增_bt.Size = New System.Drawing.Size(133, 25)
         Me.商客新增_bt.TabIndex = 1509
         Me.商客新增_bt.Text = "新增"
         Me.商客新增_bt.UseVisualStyleBackColor = True
@@ -1209,7 +1312,7 @@ Partial Class 基本資料
         Me.商客_dgv.Name = "商客_dgv"
         Me.商客_dgv.RowHeadersWidth = 4
         Me.商客_dgv.RowTemplate.Height = 24
-        Me.商客_dgv.Size = New System.Drawing.Size(291, 493)
+        Me.商客_dgv.Size = New System.Drawing.Size(372, 524)
         Me.商客_dgv.TabIndex = 0
         '
         '帳號_tb
@@ -1259,20 +1362,20 @@ Partial Class 基本資料
         'Label10
         '
         Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label10.Location = New System.Drawing.Point(4, 20)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(29, 12)
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
         Me.Label10.TabIndex = 1516
         Me.Label10.Text = "帳號"
         '
         'Label12
         '
         Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label12.Location = New System.Drawing.Point(3, 69)
+        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label12.Location = New System.Drawing.Point(3, 70)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(29, 12)
+        Me.Label12.Size = New System.Drawing.Size(32, 16)
         Me.Label12.TabIndex = 1518
         Me.Label12.Text = "上繳"
         '
@@ -1282,7 +1385,7 @@ Partial Class 基本資料
         Me.資料_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.資料_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.資料_cb.FormattingEnabled = True
-        Me.資料_cb.Location = New System.Drawing.Point(408, 647)
+        Me.資料_cb.Location = New System.Drawing.Point(608, 678)
         Me.資料_cb.Name = "資料_cb"
         Me.資料_cb.Size = New System.Drawing.Size(114, 24)
         Me.資料_cb.TabIndex = 1513
@@ -1293,7 +1396,7 @@ Partial Class 基本資料
         Me.清除搜索2_bt.BackColor = System.Drawing.SystemColors.ControlLight
         Me.清除搜索2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.清除搜索2_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.清除搜索2_bt.Location = New System.Drawing.Point(523, 671)
+        Me.清除搜索2_bt.Location = New System.Drawing.Point(723, 702)
         Me.清除搜索2_bt.Name = "清除搜索2_bt"
         Me.清除搜索2_bt.Size = New System.Drawing.Size(105, 25)
         Me.清除搜索2_bt.TabIndex = 1536
@@ -1306,7 +1409,7 @@ Partial Class 基本資料
         Me.搜索2_bt.BackColor = System.Drawing.SystemColors.ControlLight
         Me.搜索2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.搜索2_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.搜索2_bt.Location = New System.Drawing.Point(407, 671)
+        Me.搜索2_bt.Location = New System.Drawing.Point(607, 702)
         Me.搜索2_bt.Name = "搜索2_bt"
         Me.搜索2_bt.Size = New System.Drawing.Size(115, 25)
         Me.搜索2_bt.TabIndex = 1535
@@ -1317,11 +1420,11 @@ Partial Class 基本資料
         '
         Me.開啟基本資料_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.開啟基本資料_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.開啟基本資料_bt.Location = New System.Drawing.Point(4, 649)
+        Me.開啟基本資料_bt.Location = New System.Drawing.Point(4, 680)
         Me.開啟基本資料_bt.Name = "開啟基本資料_bt"
         Me.開啟基本資料_bt.Size = New System.Drawing.Size(99, 47)
         Me.開啟基本資料_bt.TabIndex = 1617
-        Me.開啟基本資料_bt.Text = "開流水帳查詢"
+        Me.開啟基本資料_bt.Text = "開帳務彙總"
         Me.開啟基本資料_bt.UseVisualStyleBackColor = True
         '
         '重新整理_bt
@@ -1330,7 +1433,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(523, 646)
+        Me.重新整理_bt.Location = New System.Drawing.Point(723, 677)
         Me.重新整理_bt.Name = "重新整理_bt"
         Me.重新整理_bt.Size = New System.Drawing.Size(105, 25)
         Me.重新整理_bt.TabIndex = 1618
@@ -1344,9 +1447,9 @@ Partial Class 基本資料
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.L50.Controls.Add(Me.LOG1_dgv)
         Me.L50.Controls.Add(Me.LOG2_dgv)
-        Me.L50.Location = New System.Drawing.Point(1181, 2)
+        Me.L50.Location = New System.Drawing.Point(1345, 2)
         Me.L50.Name = "L50"
-        Me.L50.Size = New System.Drawing.Size(310, 694)
+        Me.L50.Size = New System.Drawing.Size(177, 725)
         Me.L50.TabIndex = 1619
         Me.L50.TabStop = False
         Me.L50.Text = "LOG檔"
@@ -1387,7 +1490,7 @@ Partial Class 基本資料
         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)
+        Me.LOG1_dgv.Size = New System.Drawing.Size(163, 457)
         Me.LOG1_dgv.TabIndex = 1540
         '
         'LOG2_dgv
@@ -1427,14 +1530,14 @@ Partial Class 基本資料
         Me.LOG2_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
         Me.LOG2_dgv.RowHeadersWidth = 4
         Me.LOG2_dgv.RowTemplate.Height = 24
-        Me.LOG2_dgv.Size = New System.Drawing.Size(296, 210)
+        Me.LOG2_dgv.Size = New System.Drawing.Size(163, 241)
         Me.LOG2_dgv.TabIndex = 1541
         '
         'LOG檔_bt
         '
         Me.LOG檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.LOG檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.LOG檔_bt.Location = New System.Drawing.Point(630, 671)
+        Me.LOG檔_bt.Location = New System.Drawing.Point(830, 702)
         Me.LOG檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.LOG檔_bt.Name = "LOG檔_bt"
         Me.LOG檔_bt.Size = New System.Drawing.Size(65, 25)
@@ -1446,7 +1549,7 @@ Partial Class 基本資料
         '
         Me.開網站1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.開網站1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.開網站1_bt.Location = New System.Drawing.Point(630, 646)
+        Me.開網站1_bt.Location = New System.Drawing.Point(830, 677)
         Me.開網站1_bt.Name = "開網站1_bt"
         Me.開網站1_bt.Size = New System.Drawing.Size(65, 25)
         Me.開網站1_bt.TabIndex = 1621
@@ -1457,120 +1560,18 @@ Partial Class 基本資料
         '
         Me.進階控制_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.進階控制_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.進階控制_bt.Location = New System.Drawing.Point(1139, 647)
+        Me.進階控制_bt.Location = New System.Drawing.Point(1275, 678)
         Me.進階控制_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.進階控制_bt.Name = "進階控制_bt"
-        Me.進階控制_bt.Size = New System.Drawing.Size(38, 49)
+        Me.進階控制_bt.Size = New System.Drawing.Size(65, 49)
         Me.進階控制_bt.TabIndex = 1623
         Me.進階控制_bt.Text = "進階控制"
         Me.進階控制_bt.UseVisualStyleBackColor = True
         '
-        '計算全選_bt
-        '
-        Me.計算全選_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        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.Purple
-        Me.計算全選_bt.Location = New System.Drawing.Point(859, 647)
-        Me.計算全選_bt.Name = "計算全選_bt"
-        Me.計算全選_bt.Size = New System.Drawing.Size(69, 25)
-        Me.計算全選_bt.TabIndex = 1624
-        Me.計算全選_bt.Text = "計算全選"
-        Me.計算全選_bt.UseVisualStyleBackColor = False
-        '
-        '計算取消_bt
-        '
-        Me.計算取消_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        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.Purple
-        Me.計算取消_bt.Location = New System.Drawing.Point(859, 671)
-        Me.計算取消_bt.Name = "計算取消_bt"
-        Me.計算取消_bt.Size = New System.Drawing.Size(69, 25)
-        Me.計算取消_bt.TabIndex = 1625
-        Me.計算取消_bt.Text = "計算取消"
-        Me.計算取消_bt.UseVisualStyleBackColor = False
-        '
-        '批量存檔_bt
-        '
-        Me.批量存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        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.Purple
-        Me.批量存檔_bt.Location = New System.Drawing.Point(1070, 647)
-        Me.批量存檔_bt.Name = "批量存檔_bt"
-        Me.批量存檔_bt.Size = New System.Drawing.Size(65, 25)
-        Me.批量存檔_bt.TabIndex = 1626
-        Me.批量存檔_bt.Text = "批量存檔"
-        Me.批量存檔_bt.UseVisualStyleBackColor = False
-        '
-        '同帳取消_bt
-        '
-        Me.同帳取消_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        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.Purple
-        Me.同帳取消_bt.Location = New System.Drawing.Point(929, 671)
-        Me.同帳取消_bt.Name = "同帳取消_bt"
-        Me.同帳取消_bt.Size = New System.Drawing.Size(69, 25)
-        Me.同帳取消_bt.TabIndex = 1628
-        Me.同帳取消_bt.Text = "同帳取消"
-        Me.同帳取消_bt.UseVisualStyleBackColor = False
-        '
-        '同帳全選_bt
-        '
-        Me.同帳全選_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        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.Purple
-        Me.同帳全選_bt.Location = New System.Drawing.Point(929, 647)
-        Me.同帳全選_bt.Name = "同帳全選_bt"
-        Me.同帳全選_bt.Size = New System.Drawing.Size(69, 25)
-        Me.同帳全選_bt.TabIndex = 1627
-        Me.同帳全選_bt.Text = "同帳全選"
-        Me.同帳全選_bt.UseVisualStyleBackColor = False
-        '
         'Timer2
         '
         Me.Timer2.Interval = 1000
         '
-        'PictureBox1
-        '
-        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1627008239188
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox1.Location = New System.Drawing.Point(2, 647)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(1135, 49)
-        Me.PictureBox1.TabIndex = 1622
-        Me.PictureBox1.TabStop = False
-        '
-        '所得取消_bt
-        '
-        Me.所得取消_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        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.Purple
-        Me.所得取消_bt.Location = New System.Drawing.Point(999, 671)
-        Me.所得取消_bt.Name = "所得取消_bt"
-        Me.所得取消_bt.Size = New System.Drawing.Size(69, 25)
-        Me.所得取消_bt.TabIndex = 1630
-        Me.所得取消_bt.Text = "所得取消"
-        Me.所得取消_bt.UseVisualStyleBackColor = False
-        '
-        '所得全選_bt
-        '
-        Me.所得全選_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        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.Purple
-        Me.所得全選_bt.Location = New System.Drawing.Point(999, 647)
-        Me.所得全選_bt.Name = "所得全選_bt"
-        Me.所得全選_bt.Size = New System.Drawing.Size(69, 25)
-        Me.所得全選_bt.TabIndex = 1629
-        Me.所得全選_bt.Text = "所得全選"
-        Me.所得全選_bt.UseVisualStyleBackColor = False
-        '
         '字體大小調整_lb
         '
         Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -1578,7 +1579,7 @@ Partial Class 基本資料
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(307, 676)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1169, 705)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1632
@@ -1589,7 +1590,7 @@ Partial Class 基本資料
         Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.字體_NUD.DecimalPlaces = 1
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
-        Me.字體_NUD.Location = New System.Drawing.Point(368, 674)
+        Me.字體_NUD.Location = New System.Drawing.Point(1230, 703)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -1597,30 +1598,40 @@ Partial Class 基本資料
         Me.字體_NUD.TabIndex = 1631
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
-        '下層帳號_ch
+        'Timer1
         '
-        Me.下層帳號_ch.AutoSize = True
-        Me.下層帳號_ch.Location = New System.Drawing.Point(313, 98)
-        Me.下層帳號_ch.Name = "下層帳號_ch"
-        Me.下層帳號_ch.Size = New System.Drawing.Size(75, 20)
-        Me.下層帳號_ch.TabIndex = 1559
-        Me.下層帳號_ch.Text = "下層帳號"
-        Me.下層帳號_ch.UseVisualStyleBackColor = True
+        Me.Timer1.Interval = 2000
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1627008239188
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(234, 678)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(1035, 49)
+        Me.PictureBox1.TabIndex = 1622
+        Me.PictureBox1.TabStop = False
+        '
+        '開帳務明細_bt
+        '
+        Me.開帳務明細_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.開帳務明細_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.開帳務明細_bt.Location = New System.Drawing.Point(109, 679)
+        Me.開帳務明細_bt.Name = "開帳務明細_bt"
+        Me.開帳務明細_bt.Size = New System.Drawing.Size(99, 47)
+        Me.開帳務明細_bt.TabIndex = 1633
+        Me.開帳務明細_bt.Text = "開帳務明細"
+        Me.開帳務明細_bt.UseVisualStyleBackColor = True
         '
         '基本資料
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1499, 698)
+        Me.ClientSize = New System.Drawing.Size(1530, 729)
+        Me.Controls.Add(Me.開帳務明細_bt)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
-        Me.Controls.Add(Me.所得取消_bt)
-        Me.Controls.Add(Me.所得全選_bt)
-        Me.Controls.Add(Me.同帳取消_bt)
-        Me.Controls.Add(Me.同帳全選_bt)
-        Me.Controls.Add(Me.批量存檔_bt)
-        Me.Controls.Add(Me.計算取消_bt)
-        Me.Controls.Add(Me.計算全選_bt)
         Me.Controls.Add(Me.進階控制_bt)
         Me.Controls.Add(Me.開網站1_bt)
         Me.Controls.Add(Me.LOG檔_bt)
@@ -1637,8 +1648,8 @@ Partial Class 基本資料
         Me.Controls.Add(Me.清除搜索2_bt)
         Me.Controls.Add(Me.搜索1_bt)
         Me.Controls.Add(Me.搜索3_bt)
-        Me.Controls.Add(Me.清除搜索1_bt)
         Me.Controls.Add(Me.資料_cb)
+        Me.Controls.Add(Me.清除搜索1_bt)
         Me.Controls.Add(Me.PictureBox1)
         Me.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Name = "基本資料"
@@ -1659,8 +1670,8 @@ Partial Class 基本資料
         Me.L50.ResumeLayout(False)
         CType(Me.LOG1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LOG2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1789,4 +1800,6 @@ Partial Class 基本資料
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents 下層帳號_ch As CheckBox
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents 開帳務明細_bt As Button
 End Class

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

@@ -120,6 +120,9 @@
   <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>19, 5</value>
   </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>111, 5</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>31</value>
   </metadata>

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

@@ -3,7 +3,7 @@ Imports System.IO
 Imports System.Text
 Public Class 基本資料
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6 As New DataSet : Dim GP As Integer = 0 : Dim GPP As String
-    Dim 批次 As Integer : Dim 批次1 As Integer : ReadOnly N2 As Integer : ReadOnly N3 As Integer : ReadOnly 連線(299) As String
+    Dim 批次, 批次1 As Integer : ReadOnly 連線(299) As String
     Private Sub Set_商品清單()
         商品_dgv.DataSource = Nothing : ds.Clear()
         商品_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -111,7 +111,7 @@ Public Class 基本資料
         Next
     End Sub
     Private Sub Set_商品下拉讀取()
-        SQL_下拉商品清單讀取()
+        PA42 = 系統1_cb.Text : SQL_下拉商品清單讀取()
         商品1_cb.Items.Clear() : While (dr.Read()) : 商品1_cb.Items.Add(dr("編號") & " - " & dr("商品") & " - " & dr("層級")) : End While : conn.Close()
         網址_tb.Text = "" : 商品_cb.Text = ""
     End Sub
@@ -131,6 +131,8 @@ Public Class 基本資料
     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
+        本機資料 = False
+
         商品_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 : 下層帳號_ch.Enabled = False
@@ -315,6 +317,7 @@ Public Class 基本資料
                 MsgBox("資料有缺或有誤，請重新檢查")
             Else
                 PA = 客戶下_tb.Text : PA1 = 網址3_tb.Text : PA2 = 帳號3_tb.Text : PA3 = 下行1_cb.Text : PA4 = 客戶名稱_tb.Text : PA5 = 所得指定_tb.Text
+                PA6 = 流水號_tb.Text : BL1 = 參與計算_ch.Checked : BL2 = 上下同帳_ch.Checked : BL3 = 所得計算_ch.Checked : BL4 = 下層帳號_ch.Checked
                 SQL_系統編碼規則_客戶下修改() : MsgBox("修改完成") : conn.Close() : dr.Close()
                 客戶下修正_bt.Enabled = True : 客戶下_tb.Enabled = False : 客戶名稱_tb.Enabled = False : 所得指定_tb.Enabled = False
             End If : PA = "" : Set_客戶下清單()
@@ -380,7 +383,7 @@ Public Class 基本資料
         If 商客新增_bt.Enabled = False Then
             MsgBox("新增中，無法修改!!!")
         Else
-            If 網址_tb.Text = "" Or 上繳源_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Or 上行_cb.Text = "" Or 下行_cb.Text = "" Then
+            If 網址_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Or 上行_cb.Text = "" Or 下行_cb.Text = "" Then
                 MsgBox("資料有缺或有誤，請重新檢查")
             Else
                 商客修正_bt.Enabled = False : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True : 上繳源_tb.Enabled = True
@@ -396,6 +399,7 @@ Public Class 基本資料
                 If dr.Read() Then
                     MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
                 Else
+                    PA1 = 網址_tb.Text : PA2 = 帳號_tb.Text : PA3 = 密碼_tb.Text : PA4 = 資料_cb.Text : PA5 = 上繳源_tb.Text : PA6 = 商品_cb.Text : PA7 = 上行_cb.Text : PA8 = 下行_cb.Text
                     SQL_系統編碼規則_商客新增() : MsgBox("新增完成") : conn.Close() : dr.Close()
                     商客新增_bt.Enabled = True : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_tb.Enabled = False
                     PA1 = "" : PA = "" : Set_商客清單() : Set_客戶下清單() : Set_商品下拉讀取1()
@@ -403,7 +407,7 @@ Public Class 基本資料
             End If
         ElseIf 商客修正_bt.Enabled = False Then
             PA2 = 網址_tb.Text : PA3 = 上繳源_tb.Text : PA4 = 帳號_tb.Text : PA5 = 密碼_tb.Text : PA6 = 上行_cb.Text
-            PA7 = 下行_cb.Text : PA8 = 資料_cb.Text : PA9 = 商品_cb.Text
+            PA7 = 下行_cb.Text : PA8 = 資料_cb.Text : PA9 = 商品_cb.Text : PA10 = 帳號1_tb.Text : PA11 = 網址1_tb.Text
             SQL_系統編碼規則_商客修改() : MsgBox("修改完成") : conn.Close() : dr.Close() : PA9 = ""
             商客修正_bt.Enabled = True : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False : 上繳源_tb.Enabled = False
             PA1 = "" : PA = "" : Set_商客清單() : Set_客戶下清單() : Set_商品下拉讀取1()
@@ -449,22 +453,23 @@ Public Class 基本資料
         層級_cb.SelectedIndex = 0 : Set_商品清單()
     End Sub
     Private Sub 商品2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 商品2_cb.SelectedIndexChanged
-        SQL_商客清單讀取1()
+        PA15 = 商品2_cb.Text : SQL_商客清單讀取1()
         帳號3_cb.Items.Clear() : 帳號4_cb.Items.Clear() : 網址_cb.Items.Clear() : 老闆_cb.Items.Clear()
         While (dr.Read())
             帳號3_cb.Items.Add(dr("帳號") & " - " & dr("上繳源")) : 帳號4_cb.Items.Add(dr("帳號")) : 網址_cb.Items.Add(dr("網址")) : 老闆_cb.Items.Add(dr("上繳源"))
         End While : conn.Close()
     End Sub
+
+    Private Sub 商品1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 商品1_cb.SelectedIndexChanged
+        PA41 = 商品1_cb.Text : SQL_商品網址讀取()
+        If dr.Read() Then : 網址_tb.Text = dr("網址") : 商品_cb.Text = dr("商品") : conn.Close() : dr.Close() : End If
+    End Sub
     Private Sub 系統1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 系統1_cb.SelectedIndexChanged
         Set_商品下拉讀取()
         Dim ff As String
         If 系統1_cb.Text = "101" Then : ff = "長板" : Else : ff = "短版" : End If
         資料_cb.Text = ff & "(" & 資料1_cb.Text & ")"
     End Sub
-    Private Sub 商品1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 商品1_cb.SelectedIndexChanged
-        SQL_商品網址讀取()
-        If dr.Read() Then : 網址_tb.Text = dr("網址") : 商品_cb.Text = dr("商品") : conn.Close() : dr.Close() : End If
-    End Sub
     Private Sub 資料1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 資料1_cb.SelectedIndexChanged
         Dim ff As String
         If 系統1_cb.Text = "101" Then : ff = "長板" : Else : ff = "短版" : End If
@@ -568,51 +573,37 @@ Public Class 基本資料
     End Sub
     Private Sub 開網站1_bt_Click(sender As Object, e As EventArgs) Handles 開網站1_bt.Click
         Dim Strs As String = Application.StartupPath
-        If 網址1_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then
+        If 網址1_tb.Text = "" Then
             MsgBox("資料不齊全，請重新確認!!!")
         Else
-            If File.Exists(Strs + "\lorv.csv") Then
-                File.Delete("lorv.csv")
-            End If
-            If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv") Then
-                File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv")
-            End If
-            Dim FilePath As String = "lorv.csv"
-            Try
-                Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
-                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
-                        Dim str As String = "loginorverify,web,admin,password,customer"
-                        Dim str1 As String = "login," & 網址1_tb.Text & "," & 帳號_tb.Text & "," & 密碼_tb.Text & "," & 業務名稱
-                        sw.WriteLine(str)   '插入一整行
-                        sw.Write(str1)   '第一行
-                        sw.Flush()
-                    End Using
-                End Using
-            Catch ex As Exception
-            End Try
-            Shell("loginVerify.exe", vbNormalFocus)
-
-            Delay(1500)
-            If File.Exists("lorv.csv") Then : File.Delete("lorv.csv")
-            ElseIf File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv")
-            End If
-            If File.Exists("lorverrorlog.txt") Then : File.Delete("lorverrorlog.txt")
-            ElseIf File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorverrorlog.csv") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorverrorlog.txt")
-            End If
+            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://" & 網址1_tb.Text)
         End If
     End Sub
     Private Sub 帳號驗證_bt_Click(sender As Object, e As EventArgs) Handles 帳號驗證_bt.Click
-        SQL_SQL_自動導入判斷_關閉() : 批次 = 0 : NU1 = 0 : 批次1 = 0
-        For i As Integer = 0 To 商客_dgv.Rows.Count - 1
-            If Strings.Left(商客_dgv("驗證", i).Value.ToString, 3) = "帳號密" Or Strings.Left(商客_dgv("驗證", i).Value.ToString, 3) = "網址錯" Or
-               Strings.Left(商客_dgv("驗證", i).Value.ToString, 3) = "   " Or 商客_dgv("驗證", i).Value.ToString = "" Then
-                批次1 += 1 : NU1 += 1
-                連線(批次1) = "verify," & 商客_dgv("網址", i).Value.ToString & "," & 商客_dgv("帳號", i).Value.ToString & "," & 商客_dgv("密碼", i).Value.ToString & "," & 業務名稱
+        SQL_自動導入判斷()
+        If dr.Read() Then
+            If dr("正在自動導入中").ToString = "YES" Then
+                MsgBox("自動導入進行中，不可以重複導入!!") : conn.Close() : dr.Close()
+            Else
+                conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
+                '-----------------------------------------------------------------------
+                Shell("Verify.exe", vbNormalFocus)
+                網址帳號驗證中.Show()
+                Timer1.Enabled = True
             End If
-        Next
-        資料數 = 批次1
-        網址帳號驗證中.Show()
-        Timer2.Enabled = True
+        End If
+    End Sub
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        SQL_自動導入判斷()
+        If dr.Read() Then
+            If dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
+                Timer1.Enabled = False
+                SQL_SQL_自動導入判斷_關閉() : 網址帳號驗證中.Close() : MsgBox("帳號驗證完成!!!") : Set_商客清單()
+            End If : conn.Close()
+        End If
     End Sub
     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
         SQL_自動導入判斷()
@@ -622,48 +613,10 @@ Public Class 基本資料
             ElseIf dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
                 批次 += 1
                 If 批次 > 批次1 Then
-                    '----------------------刪除CSV檔案跟LOG檔案---------------------------------------------------------------------------
-                    If File.Exists("lorv.csv") Then : File.Delete("lorv.csv")
-                    ElseIf File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv")
-                    End If
-                    If File.Exists("lorverrorlog.txt") Then : File.Delete("lorverrorlog.txt")
-                    ElseIf File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorverrorlog.csv") Then : File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorverrorlog.txt")
-                    End If
-
                     '----------------------結束循環認證---------------------------------------------------------------------------
                     Timer2.Enabled = False
                     SQL_SQL_自動導入判斷_關閉() : Set_商客清單() : 網址帳號驗證中.Close() : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                     MsgBox("自動驗證 " & 批次 - 1 & " 次，完成!!!") : conn.Close() : dr.Close() : 資料_cb.SelectedIndex = 0
-                Else
-                    '----------------------關閉背景程式---------------------------------------------------------------------------
-                    Dim pProcess1() As Process = System.Diagnostics.Process.GetProcessesByName("chromedriver")
-                    For Each p As Process In pProcess1 : p.Kill() : Next
-
-                    MyModule1.進度條()
-                    conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
-                    '----------------------刪除CSV檔案---------------------------------------------------------------------------
-                    If File.Exists("lorv.csv") Then
-                        File.Delete("lorv.csv")
-                    End If
-                    If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv") Then
-                        File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv")
-                    End If
-                    '----------------------生成CSV檔案---------------------------------------------------------------------------
-                    Dim FilePath As String = "lorv.csv"
-                    Try
-                        Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
-                            Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
-                                Dim str As String = "loginorverify,web,admin,password,customer"
-                                Dim str1 As String = 連線(批次)
-                                sw.WriteLine(str)   '插入一整行
-                                sw.Write(str1)   '第一行
-                                sw.Flush()
-                            End Using
-                        End Using
-                    Catch ex As Exception
-                    End Try
-                    '----------------------開啟PY檔案---------------------------------------------------------------------------
-                    Shell("loginVerify.exe", vbNormalFocus)
                 End If
             End If
         End If
@@ -677,6 +630,9 @@ Public Class 基本資料
     Private Sub 開啟基本資料_bt_Click(sender As Object, e As EventArgs) Handles 開啟基本資料_bt.Click
         帳務彙總計算表.Show() : 帳務彙總計算表.BringToFront() : Me.Close()
     End Sub
+    Private Sub 開帳務明細_bt_Click(sender As Object, e As EventArgs) Handles 開帳務明細_bt.Click
+        帳務明細查詢表.Show() : 帳務明細查詢表.BringToFront() : Me.Close()
+    End Sub
     Private Sub 進階控制_bt_Click(sender As Object, e As EventArgs) Handles 進階控制_bt.Click
         If PictureBox1.Visible = False Then
             PictureBox1.Visible = True : 參與計算_ch.Enabled = False : 上下同帳_ch.Enabled = False : 所得計算_ch.Enabled = False : 下層帳號_ch.Enabled = False
@@ -685,7 +641,7 @@ Public Class 基本資料
         End If
     End Sub
     Private Sub LOG檔_bt_Click(sender As Object, e As EventArgs) Handles LOG檔_bt.Click
-        If L50.Visible = False Then : L50.Visible = True : Else : L50.Visible = False : End If
+        If L50.Visible = False Then : L50.Visible = True : GA_ERP_SYS.WindowState = 2 : Else : L50.Visible = False : GA_ERP_SYS.WindowState = 0 : End If
     End Sub
     Private Sub 清除搜索2_bt_Click(sender As Object, e As EventArgs) Handles 清除搜索2_bt.Click
         PA1 = "" : Set_商客清單()

GA-ERP-SYS/基本資料管理/網址帳號驗證中.Designer.vb

@@ -22,34 +22,56 @@ Partial Class 網址帳號驗證中
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(網址帳號驗證中))
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.SuspendLayout()
         '
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label1.Location = New System.Drawing.Point(40, 9)
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.Location = New System.Drawing.Point(52, 34)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(233, 20)
+        Me.Label1.Size = New System.Drawing.Size(188, 17)
         Me.Label1.TabIndex = 0
         Me.Label1.Text = "網址帳號驗證中，請勿關閉........"
         '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(12, 8)
+        Me.ProgressBar1.Maximum = 10000
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(286, 23)
+        Me.ProgressBar1.TabIndex = 1
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 900
+        '
         '網址帳號驗證中
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(310, 40)
+        Me.ClientSize = New System.Drawing.Size(310, 57)
+        Me.ControlBox = False
         Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.ProgressBar1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "網址帳號驗證中"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "."
+        Me.Text = "網址帳號驗證中"
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents Label1 As Label
+    Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents Timer1 As Timer
 End Class

GA-ERP-SYS/基本資料管理/網址帳號驗證中.resx

@@ -117,4 +117,84 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAgBAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABQAAAAuAAAAPQAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAA
+        AEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAPQAA
+        AC4AAAAUAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAUGxsbmSMjI+0oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/IyMj7RsbG5kAAAAUAAAAAAAAAAAAAAAAAAAAACAgIIE7P0r/X3Kj/0pmrv9FYqz/RWKs/0Vi
+        rP9FYqz/RWKs/0VirP9FYqz/RWKs/0VirP9FYq3/RWKt/0Virf9FYqz/RWKs/0VirP9FYqz/RWKs/0Vi
+        rP9FYqz/RWKs/0pmrv9fcqP/Oz9K/yAgIIQAAAAAAAAAAAAAAAAAAAAAJiYm2mJ0o/8fQ5z/CzGT/wgv
+        kv8IL5L/CC+S/wgvkv8IL5P/CDCT/wgwk/8IMJT/CDCU/wgwlP8IMJT/CDCU/wgwlP8IMJP/CDCT/wgw
+        k/8IMJP/CC+S/wgvkv8IL5L/CzGT/x9DnP9gc6T/JiYm3QAAAAAAAAAAAAAAAAAAAAAoKCj/VXK2/xI6
+        mf8JMJT/CTCU/wkxlf8JMpX/CTKW/wkylv8KMpb/CjOW/wo0lv8KNJb/CjSX/wo0l/8KNJf/CjSX/woz
+        lv8KM5b/CjOW/wkylv8JMpb/CTKV/wkylf8JMZT/DDOV/0xosf8oKCj/AAAAAAAAAAAAAAAAAAAAACgo
+        KP9Qbrb/Fz+f/xA7m/8KNJj/CjSY/wo1mP8KNpn/CzeZ/ws3mf8LOJn/Czma/ws5m/8LOZv/Czmb/ws5
+        m/8LOZr/Czia/ws4mv8LOJr/CzeZ/ws2mP8KNpj/CjSY/wo0mP8JNJj/R2ex/ygoKP8AAAAAAAAAAAAA
+        AAAAAAAAKCgo/1BxuP8ZQ6L/GESi/xI+n/8MOZv/DDqc/ww7nP8YRaL/DTyf/w48n/8OPKD/Dj2g/w49
+        oP8OPaD/Dj2g/w49oP8OPaD/ED6h/ydQqf8kTqb/DTud/ww6nP8MOZv/Czib/ws3mv9IaLP/KCgo/wAA
+        AAAAAAAAAAAAAAAAAAAoKCj/UnO6/xtGpP8bSKX/HEqm/xVEo/8PPqH/Gkim/yRAev8mUqz/EEGk/xBC
+        pP8QQ6T/EEOl/xBDpf8QQ6T/EEOk/xJEpf8qVKX/ER44/xQjQ/8jT6r/Dz6i/w8+of8NPp//DDye/0ls
+        tv8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9Ud7z/HUuo/x1Nqf8eTar/H0+q/xlKqP8NMHP/AwMD/xco
+        R/8kVa7/Ekeo/xJIqP8TSKj/E0io/xNIqP8VSan/LVmp/w0WJf8DAwP/BAQE/xMoTv8RRKb/EUOl/w9C
+        pP8PQaP/SnC5/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/1d6v/8gUKz/IFCs/yFTrf8hVLD/IlWw/xxQ
+        rf8JHkH/BAQE/yA4YP8jV7L/Fk2t/xZOrf8WTq3/GE+u/zBfrf8QGSn/BwcH/xMfM/8GBgb/Ch1C/xNJ
+        qv8SSKn/EUao/xFFp/9Mcrz/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/WX7C/yNWsf8jWLL/I1my/yVa
+        s/8nXLT/J1y1/yBZs/8OK1r/BgYG/ylJfP8lXbf/GFWz/xpWtP8yZLL/FB4t/wsLC/8LCwv/CQkJ/wcS
+        JP8VTKX/FU+u/xRNrf8UTKz/E0qr/012v/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9agsb/J1u1/yhc
+        tf8pXrb/KmC4/ypguf8qY7r/KmW7/yRfuP8TOnP/BwcH/yxOf/8rZrz/Nmm2/xchMP8ODg7/Dg4O/wwM
+        DP8JFCb/GVOr/xlWtf8ZVLT/GFOz/xhSsf8WT6//UHrC/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/1yF
+        yf8qYbj/LGO6/yxju/8tZr3/LWi9/y5pvv8va7//MGzA/ylovv8WP3f/CgoK/y1NeP8bJTT/EhIS/xIS
+        Ev8PDw//ChYn/x1asP8eXrr/HV25/xxbuP8aWbf/Gli2/xlWtf9Rf8b/KCgo/wAAAAAAAAAAAAAAAAAA
+        AAAoKCj/X4rM/y1nvP8uab7/L2u//zBuwf8ybsL/M3DD/zRzxP82dMX/NnXG/zBxw/8sTnn/FRUV/xUV
+        Ff8VFRX/EhIS/wwZKf8gYbX/ImfA/yJmv/8hZL7/IGK9/x5gvP8dX7r/G1y5/1SDyv8oKCj/AAAAAAAA
+        AAAAAAAAAAAAACgoKP9hjs7/MGzB/zJvwv8zccT/NXTF/zZ2x/84eMj/TIfN/1eP0P9TjdD/S4PF/yQv
+        PP8ZGRn/GRkZ/xkZGf8hLTr/K2+9/ydwxf8mbsT/JW3D/yRrwv8jasL/ImjA/yFlv/8fY73/VojM/ygo
+        KP8AAAAAAAAAAAAAAAAAAAAAKCgo/2SS0f81c8T/N3XH/zl3yP86esr/O3zL/06K0P80SmL/HBwc/ygz
+        P/81S2P/HBwc/xwcHP8YGBj/Gxsb/x8jJ/9CdrD/QIPQ/y12yv8qc8n/KXLH/ydwxv8mbcT/JWvE/yRo
+        wv9ZjND/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/aJbU/zp4yP89e8n/PnzK/z6Ay/9Ags3/OE1l/yAg
+        IP8gICD/ICAg/yAgIP8gICD/FxcX/xQhL/8PExj/Hh4e/yMnK/8zS2T/RoXH/zF7y/8ueMr/LXbJ/yx0
+        yP8qcMb/J27F/1yS0v8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9rmtb/Pn7K/0B/zP9Bgs7/RIXQ/0eI
+        0v8gICD/GRkZ/wkJCf8ZGRn/IyMj/yMjI/85UGb/T43M/zx1r/8cISX/IyMj/yMjI/8sOEX/S4jL/zWA
+        zv8yfs3/MXrM/y54yv8tdcj/YJXU/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/26e2P9Cg8z/RIXO/0eI
+        0f9Ii9L/S47T/xIbJP8kPlf/UpXX/yU+WP8lJSX/Jycn/zU/Sv9amtv/Wprb/yU/WP8hISH/Jycn/ycn
+        J/8wPUn/TY7M/zeD0P81gc7/NH7N/zJ6zP9km9f/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/caLa/0aH
+        0f9IitL/So3T/02Q1v9PlNf/VJbY/1WY2f9Ymtr/aqXd/y8yNf8qKir/Hh4e/1+g2/9iodz/XZjP/xon
+        M/8kJCT/Kioq/yoqKv8zP0v/PYnT/zuH0v85hND/N4HP/2ee2v8oKCj/AAAAAAAAAAAAAAAAAAAAACgo
+        KP9zpdz/SYvS/0qP0/9Pk9f/UZXZ/1SY2f9Ymtv/W53c/1+g3P9HXHD/Li4u/yEhIf8uRVv/Z6Xe/2ek
+        3f9ppt7/Y5zS/x0pNf8oKCj/Li4u/xgYGP9Djtb/QIzU/z2K0/87htH/a6Pc/ygoKP8AAAAAAAAAAAAA
+        AAAAAAAAKCgo/3en3v9Mj9T/T5LW/1OW2P9Wmdn/Wp3a/12g2/9hodz/ZKTe/xcfJv8MDAz/MEZc/2yo
+        4P9tqeH/bqng/26q4P9vquH/aaHU/xwoM/8ODg7/NGKL/0qT1/9HkNf/Q47W/z+L1P9upt7/KCgo/wAA
+        AAAAAAAAAAAAAAAAAAAoKCj/eKrf/1GT1/9Tl9n/WJrb/1ud2/9goNz/ZKPd/2el3v9qqN7/bKng/3Cs
+        4f9wreL/c67i/3Ov4v9zsOL/dLDi/3Sv4/92r+L/dK7h/2Ke0v9XnNv/UZja/06W2f9Kk9j/RZDW/3Gp
+        3/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP96reD/VJbY/1ia2v9dndz/YKHd/2Wk3v9op9//bang/3Cr
+        4f9yruL/dLDi/3ex4/94suP/erPj/3q04/96s+P/e7Pk/3qz5P96suP/ebHj/2qp4P9Zntz/Upna/0+X
+        2f9LlNj/da3h/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/3yw4/9Wmtr/W53c/2Ch3P9kpN3/aaff/2yq
+        4f9xreL/dLDj/3ax4/96s+P/e7Xk/3625v9/t+b/gLfm/4C35f+At+X/f7Xl/3215f99teT/fLPk/22q
+        4P9bn9z/VJva/1CX2v94sOP/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/fbLj/1qc2/9eoN3/Y6Te/2mn
+        3/9tquD/cq3h/3Ww5P94suT/e7Tl/3635f9/uOb/g7rm/4S75/+Fu+f/hLvn/4S75/+Euub/g7nm/4K3
+        5f+AtuX/f7Xl/2+s4P9boN3/VJzb/3uy4/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP2DtOL/ZaTd/2Oj
+        3v9npt//a6nh/3Gt4f90sOP/ebLk/3u25P9/ueb/g7vn/4S76P+HvOj/ib7p/4q+6f+Kvun/ib7p/4m8
+        6P+HvOj/hrvm/4O55v+CuOX/gLbl/3Kt4f9mpt7/grbl/ygoKP8AAAAAAAAAAAAAAAAAAAAAJycn1pGv
+        yv+Rv+j/bKrg/2io4P9urOH/dK/j/3iz5P97teX/gLjm/4O65v+HvOj/ib/p/4vA6v+Nwer/jcLq/43B
+        6v+NwOr/jL/p/4u+6P+KvOf/h7rm/4W55v+Dt+b/ibzm/5/H6/+UsMr/Jycn1gAAAAAAAAAAAAAAAAAA
+        AAAnJydrS09T/73K1v/a6vf/2ur4/9vr+P/c7Pj/3uz4/9/t+f/g7vn/4O75/+Hv+v/i8Pr/4vD6/+Pw
+        +v/j8Pr/4/D6/+Pw+v/i8Pr/4u/6/+Hv+f/h7vn/4O75/+Dt+f/g7fj/v8rT/0tQU/8nJydrAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAoKChsKCgo1SgoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCjSKCgoaQAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA/////8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
+        AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
+        AAPAAAADwAAAA8AAAAPAAAAD4AAAB/////8=
+</value>
+  </data>
 </root>

GA-ERP-SYS/基本資料管理/網址帳號驗證中.vb

@@ -1,5 +1,15 @@
 Public Class 網址帳號驗證中
     Private Sub 網址帳號驗證中_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        Timer1.Enabled = True
+    End Sub
+    Private Sub 網址帳號驗證中_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        Timer1.Enabled = False
+    End Sub
+    Public 平均數1 As Integer : Public 最終數1 As Integer = 0 : Public 資料數1 As Integer = 100
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        平均數1 = 10000 / 資料數1
+        最終數1 += 平均數1
+        If 最終數1 > 10000 Then : 最終數1 = 10000 : End If
+        ProgressBar1.Value = 最終數1
     End Sub
 End Class

GA-ERP-SYS/報表系統管理/客戶資料.Designer.vb

@@ -0,0 +1,343 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 客戶資料
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(客戶資料))
+        Me.所得指定_tb = New System.Windows.Forms.TextBox()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.所得計算_ch = New System.Windows.Forms.CheckBox()
+        Me.參與計算_ch = New System.Windows.Forms.CheckBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.帳號3_cb = New System.Windows.Forms.ComboBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.商品2_cb = New System.Windows.Forms.ComboBox()
+        Me.客戶名稱_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.下行1_cb = New System.Windows.Forms.ComboBox()
+        Me.Label29 = New System.Windows.Forms.Label()
+        Me.客戶下_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.上下同帳_ch = New System.Windows.Forms.CheckBox()
+        Me.下層帳號_ch = New System.Windows.Forms.CheckBox()
+        Me.網址_cb = New System.Windows.Forms.ComboBox()
+        Me.老闆_cb = New System.Windows.Forms.ComboBox()
+        Me.帳號4_cb = New System.Windows.Forms.ComboBox()
+        Me.流水號_tb = New System.Windows.Forms.TextBox()
+        Me.網址4_tb = New System.Windows.Forms.TextBox()
+        Me.取消_bt = New System.Windows.Forms.Button()
+        Me.存檔1_bt = New System.Windows.Forms.Button()
+        Me.網址3_tb = New System.Windows.Forms.TextBox()
+        Me.帳號3_tb = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        '所得指定_tb
+        '
+        Me.所得指定_tb.Location = New System.Drawing.Point(250, 54)
+        Me.所得指定_tb.Name = "所得指定_tb"
+        Me.所得指定_tb.Size = New System.Drawing.Size(133, 23)
+        Me.所得指定_tb.TabIndex = 1574
+        '
+        '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(194, 58)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(56, 16)
+        Me.Label28.TabIndex = 1573
+        Me.Label28.Text = "所得指定"
+        '
+        '所得計算_ch
+        '
+        Me.所得計算_ch.AutoSize = True
+        Me.所得計算_ch.Location = New System.Drawing.Point(199, 79)
+        Me.所得計算_ch.Name = "所得計算_ch"
+        Me.所得計算_ch.Size = New System.Drawing.Size(75, 20)
+        Me.所得計算_ch.TabIndex = 1572
+        Me.所得計算_ch.Text = "所得計算"
+        Me.所得計算_ch.UseVisualStyleBackColor = True
+        '
+        '參與計算_ch
+        '
+        Me.參與計算_ch.AutoSize = True
+        Me.參與計算_ch.Location = New System.Drawing.Point(25, 79)
+        Me.參與計算_ch.Name = "參與計算_ch"
+        Me.參與計算_ch.Size = New System.Drawing.Size(75, 20)
+        Me.參與計算_ch.TabIndex = 1570
+        Me.參與計算_ch.Text = "參與計算"
+        Me.參與計算_ch.UseVisualStyleBackColor = True
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label19.Location = New System.Drawing.Point(2, 30)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(56, 16)
+        Me.Label19.TabIndex = 1569
+        Me.Label19.Text = "老闆帳號"
+        '
+        '帳號3_cb
+        '
+        Me.帳號3_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.帳號3_cb.FormattingEnabled = True
+        Me.帳號3_cb.Location = New System.Drawing.Point(59, 28)
+        Me.帳號3_cb.Name = "帳號3_cb"
+        Me.帳號3_cb.Size = New System.Drawing.Size(133, 24)
+        Me.帳號3_cb.TabIndex = 1568
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(3, 5)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(56, 16)
+        Me.Label18.TabIndex = 1567
+        Me.Label18.Text = "商        品"
+        '
+        '商品2_cb
+        '
+        Me.商品2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.商品2_cb.FormattingEnabled = True
+        Me.商品2_cb.Location = New System.Drawing.Point(59, 2)
+        Me.商品2_cb.Name = "商品2_cb"
+        Me.商品2_cb.Size = New System.Drawing.Size(133, 24)
+        Me.商品2_cb.TabIndex = 1566
+        '
+        '客戶名稱_tb
+        '
+        Me.客戶名稱_tb.Location = New System.Drawing.Point(250, 29)
+        Me.客戶名稱_tb.Name = "客戶名稱_tb"
+        Me.客戶名稱_tb.Size = New System.Drawing.Size(133, 23)
+        Me.客戶名稱_tb.TabIndex = 1565
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.Location = New System.Drawing.Point(194, 33)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 1564
+        Me.Label1.Text = "客戶名稱"
+        '
+        '下行1_cb
+        '
+        Me.下行1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.下行1_cb.FormattingEnabled = True
+        Me.下行1_cb.Location = New System.Drawing.Point(250, 2)
+        Me.下行1_cb.Name = "下行1_cb"
+        Me.下行1_cb.Size = New System.Drawing.Size(133, 24)
+        Me.下行1_cb.TabIndex = 1563
+        '
+        'Label29
+        '
+        Me.Label29.AutoSize = True
+        Me.Label29.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label29.Location = New System.Drawing.Point(192, 5)
+        Me.Label29.Name = "Label29"
+        Me.Label29.Size = New System.Drawing.Size(60, 17)
+        Me.Label29.TabIndex = 1562
+        Me.Label29.Text = "同帳階級"
+        '
+        '客戶下_tb
+        '
+        Me.客戶下_tb.Location = New System.Drawing.Point(59, 54)
+        Me.客戶下_tb.Name = "客戶下_tb"
+        Me.客戶下_tb.Size = New System.Drawing.Size(133, 23)
+        Me.客戶下_tb.TabIndex = 1561
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label6.Location = New System.Drawing.Point(3, 57)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1560
+        Me.Label6.Text = "客戶帳號"
+        '
+        '上下同帳_ch
+        '
+        Me.上下同帳_ch.AutoSize = True
+        Me.上下同帳_ch.Location = New System.Drawing.Point(111, 79)
+        Me.上下同帳_ch.Name = "上下同帳_ch"
+        Me.上下同帳_ch.Size = New System.Drawing.Size(75, 20)
+        Me.上下同帳_ch.TabIndex = 1571
+        Me.上下同帳_ch.Text = "上下同帳"
+        Me.上下同帳_ch.UseVisualStyleBackColor = True
+        '
+        '下層帳號_ch
+        '
+        Me.下層帳號_ch.AutoSize = True
+        Me.下層帳號_ch.Location = New System.Drawing.Point(285, 79)
+        Me.下層帳號_ch.Name = "下層帳號_ch"
+        Me.下層帳號_ch.Size = New System.Drawing.Size(75, 20)
+        Me.下層帳號_ch.TabIndex = 1575
+        Me.下層帳號_ch.Text = "下層帳號"
+        Me.下層帳號_ch.UseVisualStyleBackColor = True
+        '
+        '網址_cb
+        '
+        Me.網址_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.網址_cb.FormattingEnabled = True
+        Me.網址_cb.Location = New System.Drawing.Point(199, 273)
+        Me.網址_cb.Name = "網址_cb"
+        Me.網址_cb.Size = New System.Drawing.Size(133, 24)
+        Me.網址_cb.TabIndex = 1576
+        '
+        '老闆_cb
+        '
+        Me.老闆_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.老闆_cb.FormattingEnabled = True
+        Me.老闆_cb.Location = New System.Drawing.Point(199, 246)
+        Me.老闆_cb.Name = "老闆_cb"
+        Me.老闆_cb.Size = New System.Drawing.Size(133, 24)
+        Me.老闆_cb.TabIndex = 1577
+        '
+        '帳號4_cb
+        '
+        Me.帳號4_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.帳號4_cb.FormattingEnabled = True
+        Me.帳號4_cb.Location = New System.Drawing.Point(8, 273)
+        Me.帳號4_cb.Name = "帳號4_cb"
+        Me.帳號4_cb.Size = New System.Drawing.Size(133, 24)
+        Me.帳號4_cb.TabIndex = 1578
+        '
+        '流水號_tb
+        '
+        Me.流水號_tb.Location = New System.Drawing.Point(8, 247)
+        Me.流水號_tb.Name = "流水號_tb"
+        Me.流水號_tb.Size = New System.Drawing.Size(133, 23)
+        Me.流水號_tb.TabIndex = 1579
+        '
+        '網址4_tb
+        '
+        Me.網址4_tb.Location = New System.Drawing.Point(8, 221)
+        Me.網址4_tb.Name = "網址4_tb"
+        Me.網址4_tb.Size = New System.Drawing.Size(133, 23)
+        Me.網址4_tb.TabIndex = 1580
+        '
+        '取消_bt
+        '
+        Me.取消_bt.ForeColor = System.Drawing.Color.Red
+        Me.取消_bt.Location = New System.Drawing.Point(197, 99)
+        Me.取消_bt.Name = "取消_bt"
+        Me.取消_bt.Size = New System.Drawing.Size(186, 26)
+        Me.取消_bt.TabIndex = 1582
+        Me.取消_bt.Text = "取消"
+        Me.取消_bt.UseVisualStyleBackColor = True
+        '
+        '存檔1_bt
+        '
+        Me.存檔1_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔1_bt.Location = New System.Drawing.Point(7, 99)
+        Me.存檔1_bt.Name = "存檔1_bt"
+        Me.存檔1_bt.Size = New System.Drawing.Size(186, 26)
+        Me.存檔1_bt.TabIndex = 1581
+        Me.存檔1_bt.Text = "儲存"
+        Me.存檔1_bt.UseVisualStyleBackColor = True
+        '
+        '網址3_tb
+        '
+        Me.網址3_tb.Location = New System.Drawing.Point(199, 221)
+        Me.網址3_tb.Name = "網址3_tb"
+        Me.網址3_tb.Size = New System.Drawing.Size(133, 23)
+        Me.網址3_tb.TabIndex = 1583
+        Me.網址3_tb.Visible = False
+        '
+        '帳號3_tb
+        '
+        Me.帳號3_tb.Location = New System.Drawing.Point(8, 195)
+        Me.帳號3_tb.Name = "帳號3_tb"
+        Me.帳號3_tb.Size = New System.Drawing.Size(133, 23)
+        Me.帳號3_tb.TabIndex = 1584
+        Me.帳號3_tb.Visible = False
+        '
+        '客戶資料
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(387, 130)
+        Me.Controls.Add(Me.帳號3_tb)
+        Me.Controls.Add(Me.網址3_tb)
+        Me.Controls.Add(Me.下層帳號_ch)
+        Me.Controls.Add(Me.取消_bt)
+        Me.Controls.Add(Me.存檔1_bt)
+        Me.Controls.Add(Me.網址4_tb)
+        Me.Controls.Add(Me.流水號_tb)
+        Me.Controls.Add(Me.帳號4_cb)
+        Me.Controls.Add(Me.老闆_cb)
+        Me.Controls.Add(Me.網址_cb)
+        Me.Controls.Add(Me.所得指定_tb)
+        Me.Controls.Add(Me.Label28)
+        Me.Controls.Add(Me.所得計算_ch)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.帳號3_cb)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.商品2_cb)
+        Me.Controls.Add(Me.客戶名稱_tb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.下行1_cb)
+        Me.Controls.Add(Me.Label29)
+        Me.Controls.Add(Me.客戶下_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.上下同帳_ch)
+        Me.Controls.Add(Me.參與計算_ch)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "客戶資料"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "客戶資料"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 所得指定_tb As TextBox
+    Friend WithEvents Label28 As Label
+    Friend WithEvents 所得計算_ch As CheckBox
+    Friend WithEvents 參與計算_ch As CheckBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents 帳號3_cb As ComboBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents 商品2_cb As ComboBox
+    Friend WithEvents 客戶名稱_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 下行1_cb As ComboBox
+    Friend WithEvents Label29 As Label
+    Friend WithEvents 客戶下_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 上下同帳_ch As CheckBox
+    Friend WithEvents 下層帳號_ch As CheckBox
+    Friend WithEvents 網址_cb As ComboBox
+    Friend WithEvents 老闆_cb As ComboBox
+    Friend WithEvents 帳號4_cb As ComboBox
+    Friend WithEvents 流水號_tb As TextBox
+    Friend WithEvents 網址4_tb As TextBox
+    Friend WithEvents 取消_bt As Button
+    Friend WithEvents 存檔1_bt As Button
+    Friend WithEvents 網址3_tb As TextBox
+    Friend WithEvents 帳號3_tb As TextBox
+End Class

GA-ERP-SYS/報表系統管理/客戶資料.resx

@@ -0,0 +1,197 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAgBAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABQAAAAuAAAAPQAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAA
+        AEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAPQAA
+        AC4AAAAUAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAUGxsbmSMjI+0oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/IyMj7RsbG5kAAAAUAAAAAAAAAAAAAAAAAAAAACAgIIE7P0r/X3Kj/0pmrv9FYqz/RWKs/0Vi
+        rP9FYqz/RWKs/0VirP9FYqz/RWKs/0VirP9FYq3/RWKt/0Virf9FYqz/RWKs/0VirP9FYqz/RWKs/0Vi
+        rP9FYqz/RWKs/0pmrv9fcqP/Oz9K/yAgIIQAAAAAAAAAAAAAAAAAAAAAJiYm2mJ0o/8fQ5z/CzGT/wgv
+        kv8IL5L/CC+S/wgvkv8IL5P/CDCT/wgwk/8IMJT/CDCU/wgwlP8IMJT/CDCU/wgwlP8IMJP/CDCT/wgw
+        k/8IMJP/CC+S/wgvkv8IL5L/CzGT/x9DnP9gc6T/JiYm3QAAAAAAAAAAAAAAAAAAAAAoKCj/VXK2/xI6
+        mf8JMJT/CTCU/wkxlf8JMpX/CTKW/wkylv8KMpb/CjOW/wo0lv8KNJb/CjSX/wo0l/8KNJf/CjSX/woz
+        lv8KM5b/CjOW/wkylv8JMpb/CTKV/wkylf8JMZT/DDOV/0xosf8oKCj/AAAAAAAAAAAAAAAAAAAAACgo
+        KP9Qbrb/Fz+f/xA7m/8KNJj/CjSY/wo1mP8KNpn/CzeZ/ws3mf8LOJn/Czma/ws5m/8LOZv/Czmb/ws5
+        m/8LOZr/Czia/ws4mv8LOJr/CzeZ/ws2mP8KNpj/CjSY/wo0mP8JNJj/R2ex/ygoKP8AAAAAAAAAAAAA
+        AAAAAAAAKCgo/1BxuP8ZQ6L/GESi/xI+n/8MOZv/DDqc/ww7nP8YRaL/DTyf/w48n/8OPKD/Dj2g/w49
+        oP8OPaD/Dj2g/w49oP8OPaD/ED6h/ydQqf8kTqb/DTud/ww6nP8MOZv/Czib/ws3mv9IaLP/KCgo/wAA
+        AAAAAAAAAAAAAAAAAAAoKCj/UnO6/xtGpP8bSKX/HEqm/xVEo/8PPqH/Gkim/yRAev8mUqz/EEGk/xBC
+        pP8QQ6T/EEOl/xBDpf8QQ6T/EEOk/xJEpf8qVKX/ER44/xQjQ/8jT6r/Dz6i/w8+of8NPp//DDye/0ls
+        tv8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9Ud7z/HUuo/x1Nqf8eTar/H0+q/xlKqP8NMHP/AwMD/xco
+        R/8kVa7/Ekeo/xJIqP8TSKj/E0io/xNIqP8VSan/LVmp/w0WJf8DAwP/BAQE/xMoTv8RRKb/EUOl/w9C
+        pP8PQaP/SnC5/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/1d6v/8gUKz/IFCs/yFTrf8hVLD/IlWw/xxQ
+        rf8JHkH/BAQE/yA4YP8jV7L/Fk2t/xZOrf8WTq3/GE+u/zBfrf8QGSn/BwcH/xMfM/8GBgb/Ch1C/xNJ
+        qv8SSKn/EUao/xFFp/9Mcrz/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/WX7C/yNWsf8jWLL/I1my/yVa
+        s/8nXLT/J1y1/yBZs/8OK1r/BgYG/ylJfP8lXbf/GFWz/xpWtP8yZLL/FB4t/wsLC/8LCwv/CQkJ/wcS
+        JP8VTKX/FU+u/xRNrf8UTKz/E0qr/012v/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9agsb/J1u1/yhc
+        tf8pXrb/KmC4/ypguf8qY7r/KmW7/yRfuP8TOnP/BwcH/yxOf/8rZrz/Nmm2/xchMP8ODg7/Dg4O/wwM
+        DP8JFCb/GVOr/xlWtf8ZVLT/GFOz/xhSsf8WT6//UHrC/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/1yF
+        yf8qYbj/LGO6/yxju/8tZr3/LWi9/y5pvv8va7//MGzA/ylovv8WP3f/CgoK/y1NeP8bJTT/EhIS/xIS
+        Ev8PDw//ChYn/x1asP8eXrr/HV25/xxbuP8aWbf/Gli2/xlWtf9Rf8b/KCgo/wAAAAAAAAAAAAAAAAAA
+        AAAoKCj/X4rM/y1nvP8uab7/L2u//zBuwf8ybsL/M3DD/zRzxP82dMX/NnXG/zBxw/8sTnn/FRUV/xUV
+        Ff8VFRX/EhIS/wwZKf8gYbX/ImfA/yJmv/8hZL7/IGK9/x5gvP8dX7r/G1y5/1SDyv8oKCj/AAAAAAAA
+        AAAAAAAAAAAAACgoKP9hjs7/MGzB/zJvwv8zccT/NXTF/zZ2x/84eMj/TIfN/1eP0P9TjdD/S4PF/yQv
+        PP8ZGRn/GRkZ/xkZGf8hLTr/K2+9/ydwxf8mbsT/JW3D/yRrwv8jasL/ImjA/yFlv/8fY73/VojM/ygo
+        KP8AAAAAAAAAAAAAAAAAAAAAKCgo/2SS0f81c8T/N3XH/zl3yP86esr/O3zL/06K0P80SmL/HBwc/ygz
+        P/81S2P/HBwc/xwcHP8YGBj/Gxsb/x8jJ/9CdrD/QIPQ/y12yv8qc8n/KXLH/ydwxv8mbcT/JWvE/yRo
+        wv9ZjND/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/aJbU/zp4yP89e8n/PnzK/z6Ay/9Ags3/OE1l/yAg
+        IP8gICD/ICAg/yAgIP8gICD/FxcX/xQhL/8PExj/Hh4e/yMnK/8zS2T/RoXH/zF7y/8ueMr/LXbJ/yx0
+        yP8qcMb/J27F/1yS0v8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9rmtb/Pn7K/0B/zP9Bgs7/RIXQ/0eI
+        0v8gICD/GRkZ/wkJCf8ZGRn/IyMj/yMjI/85UGb/T43M/zx1r/8cISX/IyMj/yMjI/8sOEX/S4jL/zWA
+        zv8yfs3/MXrM/y54yv8tdcj/YJXU/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/26e2P9Cg8z/RIXO/0eI
+        0f9Ii9L/S47T/xIbJP8kPlf/UpXX/yU+WP8lJSX/Jycn/zU/Sv9amtv/Wprb/yU/WP8hISH/Jycn/ycn
+        J/8wPUn/TY7M/zeD0P81gc7/NH7N/zJ6zP9km9f/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/caLa/0aH
+        0f9IitL/So3T/02Q1v9PlNf/VJbY/1WY2f9Ymtr/aqXd/y8yNf8qKir/Hh4e/1+g2/9iodz/XZjP/xon
+        M/8kJCT/Kioq/yoqKv8zP0v/PYnT/zuH0v85hND/N4HP/2ee2v8oKCj/AAAAAAAAAAAAAAAAAAAAACgo
+        KP9zpdz/SYvS/0qP0/9Pk9f/UZXZ/1SY2f9Ymtv/W53c/1+g3P9HXHD/Li4u/yEhIf8uRVv/Z6Xe/2ek
+        3f9ppt7/Y5zS/x0pNf8oKCj/Li4u/xgYGP9Djtb/QIzU/z2K0/87htH/a6Pc/ygoKP8AAAAAAAAAAAAA
+        AAAAAAAAKCgo/3en3v9Mj9T/T5LW/1OW2P9Wmdn/Wp3a/12g2/9hodz/ZKTe/xcfJv8MDAz/MEZc/2yo
+        4P9tqeH/bqng/26q4P9vquH/aaHU/xwoM/8ODg7/NGKL/0qT1/9HkNf/Q47W/z+L1P9upt7/KCgo/wAA
+        AAAAAAAAAAAAAAAAAAAoKCj/eKrf/1GT1/9Tl9n/WJrb/1ud2/9goNz/ZKPd/2el3v9qqN7/bKng/3Cs
+        4f9wreL/c67i/3Ov4v9zsOL/dLDi/3Sv4/92r+L/dK7h/2Ke0v9XnNv/UZja/06W2f9Kk9j/RZDW/3Gp
+        3/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP96reD/VJbY/1ia2v9dndz/YKHd/2Wk3v9op9//bang/3Cr
+        4f9yruL/dLDi/3ex4/94suP/erPj/3q04/96s+P/e7Pk/3qz5P96suP/ebHj/2qp4P9Zntz/Upna/0+X
+        2f9LlNj/da3h/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/3yw4/9Wmtr/W53c/2Ch3P9kpN3/aaff/2yq
+        4f9xreL/dLDj/3ax4/96s+P/e7Xk/3625v9/t+b/gLfm/4C35f+At+X/f7Xl/3215f99teT/fLPk/22q
+        4P9bn9z/VJva/1CX2v94sOP/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/fbLj/1qc2/9eoN3/Y6Te/2mn
+        3/9tquD/cq3h/3Ww5P94suT/e7Tl/3635f9/uOb/g7rm/4S75/+Fu+f/hLvn/4S75/+Euub/g7nm/4K3
+        5f+AtuX/f7Xl/2+s4P9boN3/VJzb/3uy4/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP2DtOL/ZaTd/2Oj
+        3v9npt//a6nh/3Gt4f90sOP/ebLk/3u25P9/ueb/g7vn/4S76P+HvOj/ib7p/4q+6f+Kvun/ib7p/4m8
+        6P+HvOj/hrvm/4O55v+CuOX/gLbl/3Kt4f9mpt7/grbl/ygoKP8AAAAAAAAAAAAAAAAAAAAAJycn1pGv
+        yv+Rv+j/bKrg/2io4P9urOH/dK/j/3iz5P97teX/gLjm/4O65v+HvOj/ib/p/4vA6v+Nwer/jcLq/43B
+        6v+NwOr/jL/p/4u+6P+KvOf/h7rm/4W55v+Dt+b/ibzm/5/H6/+UsMr/Jycn1gAAAAAAAAAAAAAAAAAA
+        AAAnJydrS09T/73K1v/a6vf/2ur4/9vr+P/c7Pj/3uz4/9/t+f/g7vn/4O75/+Hv+v/i8Pr/4vD6/+Pw
+        +v/j8Pr/4/D6/+Pw+v/i8Pr/4u/6/+Hv+f/h7vn/4O75/+Dt+f/g7fj/v8rT/0tQU/8nJydrAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAoKChsKCgo1SgoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCjSKCgoaQAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA/////8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
+        AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
+        AAPAAAADwAAAA8AAAAPAAAAD4AAAB/////8=
+</value>
+  </data>
+</root>

GA-ERP-SYS/報表系統管理/客戶資料.vb

@@ -0,0 +1,44 @@
+Public Class 客戶資料
+    Private Sub Set_商品下拉讀取1()
+        SQL_下拉商品清單讀取1()
+        商品2_cb.Items.Clear() : While (dr.Read()) : 商品2_cb.Items.Add(dr("商品")) : End While : conn.Close()
+    End Sub
+    Private Sub Set_帳號下拉讀取1()
+        PA15 = PA5 : SQL_商客清單讀取1()
+        帳號3_cb.Items.Clear() : 帳號4_cb.Items.Clear() : 網址_cb.Items.Clear() : 老闆_cb.Items.Clear()
+        While (dr.Read())
+            帳號3_cb.Items.Add(dr("帳號") & " - " & dr("上繳源")) : 帳號4_cb.Items.Add(dr("帳號")) : 網址_cb.Items.Add(dr("網址")) : 老闆_cb.Items.Add(dr("上繳源"))
+        End While : conn.Close()
+    End Sub
+    Private Sub 客戶資料_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    End Sub
+    Private Sub 客戶資料_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Set_帳號下拉讀取1() : Set_商品下拉讀取1() : SQL_上行清單讀取1() : 下行1_cb.Items.Clear() : While (dr.Read()) : 下行1_cb.Items.Add(dr("基數")) : End While : conn.Close()
+        商品2_cb.Text = PA5 : 流水號_tb.Text = PA7 : 客戶下_tb.Text = PA8 : 網址_cb.Text = PA10 : 網址4_tb.Text = PA10 : 帳號4_cb.Text = PA6 : 下行1_cb.Text = PA11
+        客戶名稱_tb.Text = PA12 : 所得指定_tb.Text = PA13 : 參與計算_ch.Checked = BL1 : 上下同帳_ch.Checked = BL2 : 所得計算_ch.Checked = BL3 : 下層帳號_ch.Checked = BL4
+        網址3_tb.Text = PA10 : 老闆_cb.Text = PA14 : 帳號3_tb.Text = PA14 : 帳號3_cb.Text = 帳號4_cb.Text & " - " & 老闆_cb.Text
+    End Sub
+    Private Sub 帳號3_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳號3_cb.SelectedIndexChanged
+        網址_cb.SelectedIndex = 帳號3_cb.SelectedIndex : 帳號4_cb.SelectedIndex = 帳號3_cb.SelectedIndex
+    End Sub
+    Private Sub 取消_bt_Click(sender As Object, e As EventArgs) Handles 取消_bt.Click
+        Me.Close() : 是否運行 = False
+    End Sub
+    Private Sub 存檔1_bt_Click(sender As Object, e As EventArgs) Handles 存檔1_bt.Click
+        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 : PA5 = 所得指定_tb.Text
+            PA6 = 流水號_tb.Text : BL1 = 參與計算_ch.Checked : BL2 = 上下同帳_ch.Checked : BL3 = 所得計算_ch.Checked : BL4 = 下層帳號_ch.Checked
+            SQL_系統編碼規則_客戶下修改() : MsgBox("修改完成") : conn.Close() : dr.Close()
+
+            PA11 = 下行1_cb.Text
+            PA12 = 客戶名稱_tb.Text
+            PA13 = 所得指定_tb.Text
+            BL1 = 參與計算_ch.Checked
+            BL2 = 上下同帳_ch.Checked
+            BL3 = 所得計算_ch.Checked
+            BL4 = 下層帳號_ch.Checked
+        End If : Me.Close() : 是否運行 = True
+    End Sub
+End Class

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

@@ -23,11 +23,13 @@ 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(帳務明細查詢表))
+        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 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()
@@ -45,7 +47,6 @@ Partial Class 帳務明細查詢表
         Me.重讀_bt = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.進階控制_bt = New System.Windows.Forms.Button()
         Me.自動導入_bt = New System.Windows.Forms.Button()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
@@ -78,23 +79,46 @@ Partial Class 帳務明細查詢表
         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.所得彙總_dgv = New System.Windows.Forms.DataGridView()
         Me.所得指定整合_bt = New System.Windows.Forms.Button()
+        Me.修改帳號資料_bt = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.帳戶資料_bt = New System.Windows.Forms.Button()
+        Me.應付_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.應收_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.所得_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.核帳_tb = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.商品_tb = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.帳戶_tb = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.修改客戶資料_bt = New System.Windows.Forms.Button()
+        Me.異常設定_bt = New System.Windows.Forms.Button()
+        Me.新增帳號資料_bt = New System.Windows.Forms.Button()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.明細存檔_bt = New System.Windows.Forms.Button()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.客戶下_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.日期_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.Panel2.SuspendLayout()
+        CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '流水帳_dgv
         '
-        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
+        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
         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)
@@ -105,26 +129,26 @@ Partial Class 帳務明細查詢表
         Me.流水帳_dgv.Name = "流水帳_dgv"
         Me.流水帳_dgv.RowHeadersWidth = 4
         Me.流水帳_dgv.RowTemplate.Height = 24
-        Me.流水帳_dgv.Size = New System.Drawing.Size(1173, 605)
+        Me.流水帳_dgv.Size = New System.Drawing.Size(1342, 608)
         Me.流水帳_dgv.TabIndex = 2
         '
         '客戶下_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.客戶下_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶下_dgv.Location = New System.Drawing.Point(30, 75)
+        Me.客戶下_dgv.Location = New System.Drawing.Point(827, 363)
         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(975, 406)
+        Me.客戶下_dgv.Size = New System.Drawing.Size(178, 118)
         Me.客戶下_dgv.TabIndex = 1537
         '
         '日期_dgv
         '
-        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
+        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
         Me.日期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.日期_dgv.Location = New System.Drawing.Point(827, 514)
         Me.日期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -220,7 +244,7 @@ Partial Class 帳務明細查詢表
         Me.資料_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.資料_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.資料_cb.FormattingEnabled = True
-        Me.資料_cb.Location = New System.Drawing.Point(72, 670)
+        Me.資料_cb.Location = New System.Drawing.Point(72, 674)
         Me.資料_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.資料_cb.Name = "資料_cb"
         Me.資料_cb.Size = New System.Drawing.Size(158, 24)
@@ -248,7 +272,7 @@ Partial Class 帳務明細查詢表
         '
         Me.重讀_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.重讀_bt.ForeColor = System.Drawing.Color.Teal
-        Me.重讀_bt.Location = New System.Drawing.Point(5, 670)
+        Me.重讀_bt.Location = New System.Drawing.Point(5, 674)
         Me.重讀_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.重讀_bt.Name = "重讀_bt"
         Me.重讀_bt.Size = New System.Drawing.Size(66, 24)
@@ -274,22 +298,11 @@ Partial Class 帳務明細查詢表
         Me.Label2.TabIndex = 1586
         Me.Label2.Text = "到"
         '
-        'PictureBox1
-        '
-        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1627008239187
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox1.Location = New System.Drawing.Point(3, 669)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(470, 26)
-        Me.PictureBox1.TabIndex = 1623
-        Me.PictureBox1.TabStop = False
-        '
         '進階控制_bt
         '
         Me.進階控制_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.進階控制_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.進階控制_bt.Location = New System.Drawing.Point(476, 668)
+        Me.進階控制_bt.Location = New System.Drawing.Point(476, 673)
         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)
@@ -300,12 +313,12 @@ Partial Class 帳務明細查詢表
         '自動導入_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(575, 3)
+        Me.自動導入_bt.Location = New System.Drawing.Point(571, 3)
         Me.自動導入_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.自動導入_bt.Name = "自動導入_bt"
-        Me.自動導入_bt.Size = New System.Drawing.Size(95, 25)
+        Me.自動導入_bt.Size = New System.Drawing.Size(85, 25)
         Me.自動導入_bt.TabIndex = 1625
-        Me.自動導入_bt.Text = "導入資料"
+        Me.自動導入_bt.Text = "導入報表"
         Me.自動導入_bt.UseVisualStyleBackColor = True
         '
         'Timer1
@@ -315,7 +328,7 @@ Partial Class 帳務明細查詢表
         '存檔_bt
         '
         Me.存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.存檔_bt.Location = New System.Drawing.Point(230, 670)
+        Me.存檔_bt.Location = New System.Drawing.Point(230, 674)
         Me.存檔_bt.Name = "存檔_bt"
         Me.存檔_bt.Size = New System.Drawing.Size(112, 24)
         Me.存檔_bt.TabIndex = 1626
@@ -324,23 +337,24 @@ Partial Class 帳務明細查詢表
         '
         'R_bT
         '
+        Me.R_bT.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.R_bT.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.R_bT.Location = New System.Drawing.Point(672, 3)
+        Me.R_bT.Location = New System.Drawing.Point(1320, 33)
         Me.R_bT.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.R_bT.Name = "R_bT"
-        Me.R_bT.Size = New System.Drawing.Size(40, 25)
+        Me.R_bT.Size = New System.Drawing.Size(26, 26)
         Me.R_bT.TabIndex = 1627
         Me.R_bT.Text = "R"
         Me.R_bT.UseVisualStyleBackColor = True
         '
         '字體大小調整_lb
         '
-        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(573, 673)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1221, 38)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1629
@@ -348,10 +362,10 @@ Partial Class 帳務明細查詢表
         '
         '字體_NUD
         '
-        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體_NUD.DecimalPlaces = 1
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
-        Me.字體_NUD.Location = New System.Drawing.Point(634, 670)
+        Me.字體_NUD.Location = New System.Drawing.Point(1279, 35)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -372,7 +386,7 @@ Partial Class 帳務明細查詢表
         '
         Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(268, 17)
+        Me.Label3.Location = New System.Drawing.Point(437, 17)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(913, 16)
         Me.Label3.TabIndex = 1631
@@ -384,7 +398,7 @@ Partial Class 帳務明細查詢表
         '
         Me.商品_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.商品_cb.FormattingEnabled = True
-        Me.商品_cb.Location = New System.Drawing.Point(92, 34)
+        Me.商品_cb.Location = New System.Drawing.Point(189, 34)
         Me.商品_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.商品_cb.Name = "商品_cb"
         Me.商品_cb.Size = New System.Drawing.Size(93, 24)
@@ -394,7 +408,7 @@ Partial Class 帳務明細查詢表
         '
         Me.老闆_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.老闆_cb.FormattingEnabled = True
-        Me.老闆_cb.Location = New System.Drawing.Point(217, 34)
+        Me.老闆_cb.Location = New System.Drawing.Point(314, 34)
         Me.老闆_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.老闆_cb.Name = "老闆_cb"
         Me.老闆_cb.Size = New System.Drawing.Size(78, 24)
@@ -403,7 +417,7 @@ Partial Class 帳務明細查詢表
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(62, 38)
+        Me.Label4.Location = New System.Drawing.Point(159, 38)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(32, 16)
         Me.Label4.TabIndex = 1635
@@ -412,7 +426,7 @@ Partial Class 帳務明細查詢表
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(187, 38)
+        Me.Label5.Location = New System.Drawing.Point(284, 38)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(32, 16)
         Me.Label5.TabIndex = 1633
@@ -422,7 +436,7 @@ Partial Class 帳務明細查詢表
         '
         Me.客戶_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.客戶_cb.FormattingEnabled = True
-        Me.客戶_cb.Location = New System.Drawing.Point(331, 34)
+        Me.客戶_cb.Location = New System.Drawing.Point(428, 34)
         Me.客戶_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.客戶_cb.Name = "客戶_cb"
         Me.客戶_cb.Size = New System.Drawing.Size(78, 24)
@@ -431,7 +445,7 @@ Partial Class 帳務明細查詢表
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(301, 38)
+        Me.Label6.Location = New System.Drawing.Point(398, 38)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(32, 16)
         Me.Label6.TabIndex = 1637
@@ -440,7 +454,7 @@ Partial Class 帳務明細查詢表
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(3, 38)
+        Me.Label7.Location = New System.Drawing.Point(100, 38)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(62, 16)
         Me.Label7.TabIndex = 1638
@@ -449,7 +463,7 @@ Partial Class 帳務明細查詢表
         '加總_tb
         '
         Me.加總_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.加總_tb.Location = New System.Drawing.Point(397, 670)
+        Me.加總_tb.Location = New System.Drawing.Point(397, 674)
         Me.加總_tb.Name = "加總_tb"
         Me.加總_tb.Size = New System.Drawing.Size(76, 23)
         Me.加總_tb.TabIndex = 1639
@@ -458,7 +472,7 @@ Partial Class 帳務明細查詢表
         '
         Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(341, 674)
+        Me.Label8.Location = New System.Drawing.Point(341, 678)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(56, 16)
         Me.Label8.TabIndex = 1640
@@ -468,7 +482,7 @@ Partial Class 帳務明細查詢表
         '
         Me.開啟基本資料_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.開啟基本資料_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.開啟基本資料_bt.Location = New System.Drawing.Point(971, 2)
+        Me.開啟基本資料_bt.Location = New System.Drawing.Point(917, 33)
         Me.開啟基本資料_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.開啟基本資料_bt.Name = "開啟基本資料_bt"
         Me.開啟基本資料_bt.Size = New System.Drawing.Size(102, 26)
@@ -482,7 +496,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.Purple
-        Me.取消_bt.Location = New System.Drawing.Point(1060, 34)
+        Me.取消_bt.Location = New System.Drawing.Point(1229, 3)
         Me.取消_bt.Name = "取消_bt"
         Me.取消_bt.Size = New System.Drawing.Size(50, 25)
         Me.取消_bt.TabIndex = 1643
@@ -495,7 +509,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.Purple
-        Me.全選_bt.Location = New System.Drawing.Point(1009, 34)
+        Me.全選_bt.Location = New System.Drawing.Point(1178, 3)
         Me.全選_bt.Name = "全選_bt"
         Me.全選_bt.Size = New System.Drawing.Size(50, 25)
         Me.全選_bt.TabIndex = 1642
@@ -506,7 +520,7 @@ Partial Class 帳務明細查詢表
         '
         Me.所得_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.所得_ch.AutoSize = True
-        Me.所得_ch.Location = New System.Drawing.Point(963, 36)
+        Me.所得_ch.Location = New System.Drawing.Point(1132, 5)
         Me.所得_ch.Name = "所得_ch"
         Me.所得_ch.Size = New System.Drawing.Size(51, 20)
         Me.所得_ch.TabIndex = 1646
@@ -517,7 +531,7 @@ Partial Class 帳務明細查詢表
         '
         Me.同帳_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.同帳_ch.AutoSize = True
-        Me.同帳_ch.Location = New System.Drawing.Point(914, 36)
+        Me.同帳_ch.Location = New System.Drawing.Point(1083, 5)
         Me.同帳_ch.Name = "同帳_ch"
         Me.同帳_ch.Size = New System.Drawing.Size(51, 20)
         Me.同帳_ch.TabIndex = 1645
@@ -530,7 +544,7 @@ Partial Class 帳務明細查詢表
         Me.計算_ch.AutoSize = True
         Me.計算_ch.Checked = True
         Me.計算_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.計算_ch.Location = New System.Drawing.Point(867, 36)
+        Me.計算_ch.Location = New System.Drawing.Point(1036, 5)
         Me.計算_ch.Name = "計算_ch"
         Me.計算_ch.Size = New System.Drawing.Size(51, 20)
         Me.計算_ch.TabIndex = 1644
@@ -540,7 +554,7 @@ Partial Class 帳務明細查詢表
         '所選商品_tb
         '
         Me.所選商品_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.所選商品_tb.Location = New System.Drawing.Point(740, 35)
+        Me.所選商品_tb.Location = New System.Drawing.Point(909, 4)
         Me.所選商品_tb.Name = "所選商品_tb"
         Me.所選商品_tb.Size = New System.Drawing.Size(80, 23)
         Me.所選商品_tb.TabIndex = 1647
@@ -549,7 +563,7 @@ Partial Class 帳務明細查詢表
         '
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(686, 39)
+        Me.Label9.Location = New System.Drawing.Point(855, 8)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(56, 16)
         Me.Label9.TabIndex = 1648
@@ -559,7 +573,7 @@ Partial Class 帳務明細查詢表
         '
         Me.清除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.清除_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.清除_bt.Location = New System.Drawing.Point(821, 34)
+        Me.清除_bt.Location = New System.Drawing.Point(990, 3)
         Me.清除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.清除_bt.Name = "清除_bt"
         Me.清除_bt.Size = New System.Drawing.Size(40, 25)
@@ -573,7 +587,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.Purple
-        Me.批量存檔_bt.Location = New System.Drawing.Point(1112, 34)
+        Me.批量存檔_bt.Location = New System.Drawing.Point(1281, 3)
         Me.批量存檔_bt.Name = "批量存檔_bt"
         Me.批量存檔_bt.Size = New System.Drawing.Size(65, 25)
         Me.批量存檔_bt.TabIndex = 1650
@@ -584,7 +598,7 @@ Partial Class 帳務明細查詢表
         '
         Me.開啟帳務彙總_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.開啟帳務彙總_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.開啟帳務彙總_bt.Location = New System.Drawing.Point(1074, 2)
+        Me.開啟帳務彙總_bt.Location = New System.Drawing.Point(1020, 33)
         Me.開啟帳務彙總_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.開啟帳務彙總_bt.Name = "開啟帳務彙總_bt"
         Me.開啟帳務彙總_bt.Size = New System.Drawing.Size(102, 26)
@@ -595,26 +609,26 @@ Partial Class 帳務明細查詢表
         '列印_bt
         '
         Me.列印_bt.ForeColor = System.Drawing.Color.Green
-        Me.列印_bt.Location = New System.Drawing.Point(718, 3)
+        Me.列印_bt.Location = New System.Drawing.Point(658, 3)
         Me.列印_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.列印_bt.Name = "列印_bt"
-        Me.列印_bt.Size = New System.Drawing.Size(112, 25)
+        Me.列印_bt.Size = New System.Drawing.Size(85, 25)
         Me.列印_bt.TabIndex = 1652
-        Me.列印_bt.Text = "列印資料"
+        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)
+            Or System.Windows.Forms.AnchorStyles.Right), 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.Controls.Add(Me.所得彙總_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(1105, 60)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(241, 606)
+        Me.Panel1.Size = New System.Drawing.Size(241, 609)
         Me.Panel1.TabIndex = 1653
         '
         '列印1_bt
@@ -628,22 +642,6 @@ Partial Class 帳務明細查詢表
         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
@@ -663,10 +661,27 @@ Partial Class 帳務明細查詢表
         Me.Label10.TabIndex = 1637
         Me.Label10.Text = "所得指定"
         '
+        '所得彙總_dgv
+        '
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        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.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, 573)
+        Me.所得彙總_dgv.TabIndex = 1638
+        '
         '所得指定整合_bt
         '
+        Me.所得指定整合_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.所得指定整合_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.所得指定整合_bt.Location = New System.Drawing.Point(415, 33)
+        Me.所得指定整合_bt.Location = New System.Drawing.Point(1123, 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)
@@ -674,20 +689,276 @@ Partial Class 帳務明細查詢表
         Me.所得指定整合_bt.Text = "所得指定整合"
         Me.所得指定整合_bt.UseVisualStyleBackColor = True
         '
+        '修改帳號資料_bt
+        '
+        Me.修改帳號資料_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.修改帳號資料_bt.Location = New System.Drawing.Point(612, 33)
+        Me.修改帳號資料_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.修改帳號資料_bt.Name = "修改帳號資料_bt"
+        Me.修改帳號資料_bt.Size = New System.Drawing.Size(95, 26)
+        Me.修改帳號資料_bt.TabIndex = 1655
+        Me.修改帳號資料_bt.Text = "修改帳號資料"
+        Me.修改帳號資料_bt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel2.Controls.Add(Me.彙總_dgv)
+        Me.Panel2.Location = New System.Drawing.Point(4, 61)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(662, 608)
+        Me.Panel2.TabIndex = 1656
+        '
+        '彙總_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, 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), System.Windows.Forms.AnchorStyles)
+        Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總_dgv.Location = New System.Drawing.Point(2, 2)
+        Me.彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.彙總_dgv.Name = "彙總_dgv"
+        Me.彙總_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.彙總_dgv.RowTemplate.Height = 24
+        Me.彙總_dgv.Size = New System.Drawing.Size(653, 601)
+        Me.彙總_dgv.TabIndex = 1522
+        '
+        '帳戶資料_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(3, 34)
+        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 = 1657
+        Me.帳戶資料_bt.Text = "帳戶資料"
+        Me.帳戶資料_bt.UseVisualStyleBackColor = True
+        '
+        '應付_tb
+        '
+        Me.應付_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.應付_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.應付_tb.Location = New System.Drawing.Point(852, 673)
+        Me.應付_tb.Name = "應付_tb"
+        Me.應付_tb.Size = New System.Drawing.Size(80, 23)
+        Me.應付_tb.TabIndex = 1658
+        Me.應付_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label11.Location = New System.Drawing.Point(818, 676)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 1659
+        Me.Label11.Text = "應付"
+        '
+        '應收_tb
+        '
+        Me.應收_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.應收_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.應收_tb.Location = New System.Drawing.Point(979, 673)
+        Me.應收_tb.Name = "應收_tb"
+        Me.應收_tb.Size = New System.Drawing.Size(80, 23)
+        Me.應收_tb.TabIndex = 1660
+        Me.應收_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label12.Location = New System.Drawing.Point(938, 676)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(40, 16)
+        Me.Label12.TabIndex = 1661
+        Me.Label12.Text = "- 應收"
+        '
+        '所得_tb
+        '
+        Me.所得_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.所得_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.所得_tb.Location = New System.Drawing.Point(1133, 673)
+        Me.所得_tb.Name = "所得_tb"
+        Me.所得_tb.Size = New System.Drawing.Size(80, 23)
+        Me.所得_tb.TabIndex = 1662
+        Me.所得_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label13
+        '
+        Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label13.Location = New System.Drawing.Point(1065, 676)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(68, 16)
+        Me.Label13.TabIndex = 1663
+        Me.Label13.Text = "+ 個人所得"
+        '
+        '核帳_tb
+        '
+        Me.核帳_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.核帳_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.核帳_tb.Location = New System.Drawing.Point(1264, 673)
+        Me.核帳_tb.Name = "核帳_tb"
+        Me.核帳_tb.Size = New System.Drawing.Size(80, 23)
+        Me.核帳_tb.TabIndex = 1664
+        Me.核帳_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label14
+        '
+        Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label14.AutoSize = True
+        Me.Label14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label14.Location = New System.Drawing.Point(1219, 676)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(44, 16)
+        Me.Label14.TabIndex = 1665
+        Me.Label14.Text = "= 核帳"
+        '
+        '商品_tb
+        '
+        Me.商品_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.商品_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.商品_tb.Location = New System.Drawing.Point(619, 673)
+        Me.商品_tb.Name = "商品_tb"
+        Me.商品_tb.Size = New System.Drawing.Size(80, 23)
+        Me.商品_tb.TabIndex = 1666
+        Me.商品_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label15
+        '
+        Me.Label15.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label15.AutoSize = True
+        Me.Label15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label15.Location = New System.Drawing.Point(588, 676)
+        Me.Label15.Name = "Label15"
+        Me.Label15.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.Label15.Size = New System.Drawing.Size(32, 16)
+        Me.Label15.TabIndex = 1667
+        Me.Label15.Text = "商品"
+        '
+        '帳戶_tb
+        '
+        Me.帳戶_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.帳戶_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.帳戶_tb.Location = New System.Drawing.Point(735, 673)
+        Me.帳戶_tb.Name = "帳戶_tb"
+        Me.帳戶_tb.Size = New System.Drawing.Size(80, 23)
+        Me.帳戶_tb.TabIndex = 1668
+        Me.帳戶_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label17
+        '
+        Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label17.AutoSize = True
+        Me.Label17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label17.Location = New System.Drawing.Point(701, 676)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(32, 16)
+        Me.Label17.TabIndex = 1669
+        Me.Label17.Text = "帳號"
+        '
+        '修改客戶資料_bt
+        '
+        Me.修改客戶資料_bt.ForeColor = System.Drawing.Color.Teal
+        Me.修改客戶資料_bt.Location = New System.Drawing.Point(708, 33)
+        Me.修改客戶資料_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.修改客戶資料_bt.Name = "修改客戶資料_bt"
+        Me.修改客戶資料_bt.Size = New System.Drawing.Size(95, 26)
+        Me.修改客戶資料_bt.TabIndex = 1670
+        Me.修改客戶資料_bt.Text = "修改客戶資料"
+        Me.修改客戶資料_bt.UseVisualStyleBackColor = True
+        '
+        '異常設定_bt
+        '
+        Me.異常設定_bt.ForeColor = System.Drawing.Color.Red
+        Me.異常設定_bt.Location = New System.Drawing.Point(804, 33)
+        Me.異常設定_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.異常設定_bt.Name = "異常設定_bt"
+        Me.異常設定_bt.Size = New System.Drawing.Size(101, 26)
+        Me.異常設定_bt.TabIndex = 1671
+        Me.異常設定_bt.Text = "異常設定查閱表"
+        Me.異常設定_bt.UseVisualStyleBackColor = True
+        '
+        '新增帳號資料_bt
+        '
+        Me.新增帳號資料_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增帳號資料_bt.Location = New System.Drawing.Point(516, 33)
+        Me.新增帳號資料_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.新增帳號資料_bt.Name = "新增帳號資料_bt"
+        Me.新增帳號資料_bt.Size = New System.Drawing.Size(95, 26)
+        Me.新增帳號資料_bt.TabIndex = 1672
+        Me.新增帳號資料_bt.Text = "新增帳號資料"
+        Me.新增帳號資料_bt.UseVisualStyleBackColor = True
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1627008239187
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(3, 673)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(470, 26)
+        Me.PictureBox1.TabIndex = 1623
+        Me.PictureBox1.TabStop = False
+        '
+        '明細存檔_bt
+        '
+        Me.明細存檔_bt.ForeColor = System.Drawing.Color.Red
+        Me.明細存檔_bt.Location = New System.Drawing.Point(745, 3)
+        Me.明細存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.明細存檔_bt.Name = "明細存檔_bt"
+        Me.明細存檔_bt.Size = New System.Drawing.Size(85, 25)
+        Me.明細存檔_bt.TabIndex = 1673
+        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.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.明細存檔_bt)
+        Me.Controls.Add(Me.新增帳號資料_bt)
+        Me.Controls.Add(Me.異常設定_bt)
+        Me.Controls.Add(Me.修改客戶資料_bt)
+        Me.Controls.Add(Me.客戶下_dgv)
+        Me.Controls.Add(Me.帳戶_tb)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.商品_tb)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.核帳_tb)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.所得_tb)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.應收_tb)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.應付_tb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.帳戶資料_bt)
+        Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.批量存檔_bt)
         Me.Controls.Add(Me.清除_bt)
         Me.Controls.Add(Me.所選商品_tb)
         Me.Controls.Add(Me.取消_bt)
         Me.Controls.Add(Me.全選_bt)
+        Me.Controls.Add(Me.所得_ch)
+        Me.Controls.Add(Me.同帳_ch)
+        Me.Controls.Add(Me.計算_ch)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.修改帳號資料_bt)
+        Me.Controls.Add(Me.所得指定整合_bt)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.列印_bt)
+        Me.Controls.Add(Me.開啟帳務彙總_bt)
         Me.Controls.Add(Me.開啟基本資料_bt)
         Me.Controls.Add(Me.Label8)
         Me.Controls.Add(Me.加總_tb)
@@ -698,7 +969,6 @@ Partial Class 帳務明細查詢表
         Me.Controls.Add(Me.老闆_cb)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.R_bT)
         Me.Controls.Add(Me.存檔_bt)
@@ -720,14 +990,10 @@ Partial Class 帳務明細查詢表
         Me.Controls.Add(Me.日期_dgv)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.流水帳_dgv)
         Me.Controls.Add(Me.Label16)
         Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.所得_ch)
-        Me.Controls.Add(Me.同帳_ch)
-        Me.Controls.Add(Me.計算_ch)
-        Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.客戶下_dgv)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        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 = "帳務明細查詢表"
@@ -735,11 +1001,13 @@ Partial Class 帳務明細查詢表
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.客戶下_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.日期_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.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.Panel2.ResumeLayout(False)
+        CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -799,4 +1067,24 @@ Partial Class 帳務明細查詢表
     Friend WithEvents 所得彙總_dgv As DataGridView
     Friend WithEvents 所得指定整合_bt As Button
     Friend WithEvents 列印1_bt As Button
+    Friend WithEvents 修改帳號資料_bt As Button
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents 彙總_dgv As DataGridView
+    Friend WithEvents 帳戶資料_bt As Button
+    Friend WithEvents 應付_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 應收_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 所得_tb As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 核帳_tb As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 商品_tb As TextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 帳戶_tb As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents 修改客戶資料_bt As Button
+    Friend WithEvents 異常設定_bt As Button
+    Friend WithEvents 新增帳號資料_bt As Button
+    Friend WithEvents 明細存檔_bt As Button
 End Class

GA-ERP-SYS/報表系統管理/帳號資料.Designer.vb

@@ -0,0 +1,382 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 帳號資料
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(帳號資料))
+        Me.資料1_cb = New System.Windows.Forms.ComboBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.密碼_tb = New System.Windows.Forms.TextBox()
+        Me.帳號_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.商品1_cb = New System.Windows.Forms.ComboBox()
+        Me.網址_tb = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.存檔1_bt = New System.Windows.Forms.Button()
+        Me.上繳源_cb = New System.Windows.Forms.ComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.系統1_cb = New System.Windows.Forms.ComboBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.商品_cb = New System.Windows.Forms.ComboBox()
+        Me.資料_cb = New System.Windows.Forms.ComboBox()
+        Me.商品_1_cb = New System.Windows.Forms.ComboBox()
+        Me.取消_bt = New System.Windows.Forms.Button()
+        Me.下行_cb = New System.Windows.Forms.ComboBox()
+        Me.上行_cb = New System.Windows.Forms.ComboBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.帳號1_tb = New System.Windows.Forms.TextBox()
+        Me.網址1_tb = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        '資料1_cb
+        '
+        Me.資料1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.資料1_cb.FormattingEnabled = True
+        Me.資料1_cb.Location = New System.Drawing.Point(156, 54)
+        Me.資料1_cb.Name = "資料1_cb"
+        Me.資料1_cb.Size = New System.Drawing.Size(85, 24)
+        Me.資料1_cb.TabIndex = 1549
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(125, 58)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 1544
+        Me.Label9.Text = "階級"
+        '
+        '密碼_tb
+        '
+        Me.密碼_tb.Location = New System.Drawing.Point(156, 29)
+        Me.密碼_tb.Name = "密碼_tb"
+        Me.密碼_tb.Size = New System.Drawing.Size(85, 23)
+        Me.密碼_tb.TabIndex = 1546
+        '
+        '帳號_tb
+        '
+        Me.帳號_tb.Location = New System.Drawing.Point(34, 29)
+        Me.帳號_tb.Name = "帳號_tb"
+        Me.帳號_tb.Size = New System.Drawing.Size(88, 23)
+        Me.帳號_tb.TabIndex = 1545
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(126, 34)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 1548
+        Me.Label11.Text = "密碼"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label10.Location = New System.Drawing.Point(3, 33)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 1547
+        Me.Label10.Text = "帳戶"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label12.Location = New System.Drawing.Point(2, 57)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(32, 16)
+        Me.Label12.TabIndex = 1551
+        Me.Label12.Text = "上繳"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Location = New System.Drawing.Point(1, 83)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(32, 16)
+        Me.Label27.TabIndex = 1555
+        Me.Label27.Text = "網址"
+        '
+        '商品1_cb
+        '
+        Me.商品1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.商品1_cb.FormattingEnabled = True
+        Me.商品1_cb.Location = New System.Drawing.Point(34, 105)
+        Me.商品1_cb.Name = "商品1_cb"
+        Me.商品1_cb.Size = New System.Drawing.Size(207, 24)
+        Me.商品1_cb.TabIndex = 1553
+        '
+        '網址_tb
+        '
+        Me.網址_tb.Enabled = False
+        Me.網址_tb.Location = New System.Drawing.Point(34, 80)
+        Me.網址_tb.Name = "網址_tb"
+        Me.網址_tb.Size = New System.Drawing.Size(207, 23)
+        Me.網址_tb.TabIndex = 1552
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(3, 108)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(32, 16)
+        Me.Label17.TabIndex = 1554
+        Me.Label17.Text = "網站"
+        '
+        '存檔1_bt
+        '
+        Me.存檔1_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔1_bt.Location = New System.Drawing.Point(160, 130)
+        Me.存檔1_bt.Name = "存檔1_bt"
+        Me.存檔1_bt.Size = New System.Drawing.Size(81, 26)
+        Me.存檔1_bt.TabIndex = 1556
+        Me.存檔1_bt.Text = "儲存"
+        Me.存檔1_bt.UseVisualStyleBackColor = True
+        '
+        '上繳源_cb
+        '
+        Me.上繳源_cb.FormattingEnabled = True
+        Me.上繳源_cb.Location = New System.Drawing.Point(34, 54)
+        Me.上繳源_cb.Name = "上繳源_cb"
+        Me.上繳源_cb.Size = New System.Drawing.Size(88, 24)
+        Me.上繳源_cb.TabIndex = 1557
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(32, 16)
+        Me.Label1.TabIndex = 1559
+        Me.Label1.Text = "商品"
+        '
+        '系統1_cb
+        '
+        Me.系統1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.系統1_cb.FormattingEnabled = True
+        Me.系統1_cb.Items.AddRange(New Object() {"101", "365"})
+        Me.系統1_cb.Location = New System.Drawing.Point(156, 3)
+        Me.系統1_cb.Name = "系統1_cb"
+        Me.系統1_cb.Size = New System.Drawing.Size(85, 24)
+        Me.系統1_cb.TabIndex = 1560
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(125, 7)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(32, 16)
+        Me.Label16.TabIndex = 1561
+        Me.Label16.Text = "系統"
+        '
+        '商品_cb
+        '
+        Me.商品_cb.FormattingEnabled = True
+        Me.商品_cb.Location = New System.Drawing.Point(63, 242)
+        Me.商品_cb.Name = "商品_cb"
+        Me.商品_cb.Size = New System.Drawing.Size(179, 24)
+        Me.商品_cb.TabIndex = 1562
+        '
+        '資料_cb
+        '
+        Me.資料_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.資料_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.資料_cb.FormattingEnabled = True
+        Me.資料_cb.Location = New System.Drawing.Point(63, 268)
+        Me.資料_cb.Name = "資料_cb"
+        Me.資料_cb.Size = New System.Drawing.Size(179, 24)
+        Me.資料_cb.TabIndex = 1563
+        '
+        '商品_1_cb
+        '
+        Me.商品_1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.商品_1_cb.FormattingEnabled = True
+        Me.商品_1_cb.Items.AddRange(New Object() {"101", "365"})
+        Me.商品_1_cb.Location = New System.Drawing.Point(34, 3)
+        Me.商品_1_cb.Name = "商品_1_cb"
+        Me.商品_1_cb.Size = New System.Drawing.Size(88, 24)
+        Me.商品_1_cb.TabIndex = 1564
+        '
+        '取消_bt
+        '
+        Me.取消_bt.ForeColor = System.Drawing.Color.Red
+        Me.取消_bt.Location = New System.Drawing.Point(160, 156)
+        Me.取消_bt.Name = "取消_bt"
+        Me.取消_bt.Size = New System.Drawing.Size(81, 26)
+        Me.取消_bt.TabIndex = 1565
+        Me.取消_bt.Text = "取消"
+        Me.取消_bt.UseVisualStyleBackColor = True
+        '
+        '下行_cb
+        '
+        Me.下行_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.下行_cb.FormattingEnabled = True
+        Me.下行_cb.Location = New System.Drawing.Point(63, 157)
+        Me.下行_cb.Name = "下行_cb"
+        Me.下行_cb.Size = New System.Drawing.Size(95, 24)
+        Me.下行_cb.TabIndex = 1569
+        '
+        '上行_cb
+        '
+        Me.上行_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.上行_cb.FormattingEnabled = True
+        Me.上行_cb.Location = New System.Drawing.Point(63, 131)
+        Me.上行_cb.Name = "上行_cb"
+        Me.上行_cb.Size = New System.Drawing.Size(95, 24)
+        Me.上行_cb.TabIndex = 1568
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label24.Location = New System.Drawing.Point(3, 135)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(60, 17)
+        Me.Label24.TabIndex = 1567
+        Me.Label24.Text = "上繳階級"
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label22.Location = New System.Drawing.Point(3, 160)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(60, 17)
+        Me.Label22.TabIndex = 1566
+        Me.Label22.Text = "下收階級"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label2.Location = New System.Drawing.Point(5, 271)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(58, 17)
+        Me.Label2.TabIndex = 1570
+        Me.Label2.Text = "資        料"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label3.Location = New System.Drawing.Point(5, 245)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(58, 17)
+        Me.Label3.TabIndex = 1571
+        Me.Label3.Text = "商        品"
+        '
+        '帳號1_tb
+        '
+        Me.帳號1_tb.Location = New System.Drawing.Point(63, 217)
+        Me.帳號1_tb.Name = "帳號1_tb"
+        Me.帳號1_tb.Size = New System.Drawing.Size(179, 23)
+        Me.帳號1_tb.TabIndex = 1572
+        '
+        '網址1_tb
+        '
+        Me.網址1_tb.Enabled = False
+        Me.網址1_tb.Location = New System.Drawing.Point(63, 192)
+        Me.網址1_tb.Name = "網址1_tb"
+        Me.網址1_tb.Size = New System.Drawing.Size(179, 23)
+        Me.網址1_tb.TabIndex = 1573
+        '
+        '帳號資料
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(252, 188)
+        Me.Controls.Add(Me.網址1_tb)
+        Me.Controls.Add(Me.帳號1_tb)
+        Me.Controls.Add(Me.商品_1_cb)
+        Me.Controls.Add(Me.資料_cb)
+        Me.Controls.Add(Me.商品_cb)
+        Me.Controls.Add(Me.系統1_cb)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.上繳源_cb)
+        Me.Controls.Add(Me.Label27)
+        Me.Controls.Add(Me.商品1_cb)
+        Me.Controls.Add(Me.網址_tb)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.資料1_cb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.密碼_tb)
+        Me.Controls.Add(Me.帳號_tb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.取消_bt)
+        Me.Controls.Add(Me.存檔1_bt)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.下行_cb)
+        Me.Controls.Add(Me.上行_cb)
+        Me.Controls.Add(Me.Label24)
+        Me.Controls.Add(Me.Label22)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "帳號資料"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "帳號資料"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 資料1_cb As ComboBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 密碼_tb As TextBox
+    Friend WithEvents 帳號_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label27 As Label
+    Friend WithEvents 商品1_cb As ComboBox
+    Friend WithEvents 網址_tb As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents 存檔1_bt As Button
+    Friend WithEvents 上繳源_cb As ComboBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 系統1_cb As ComboBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 商品_cb As ComboBox
+    Friend WithEvents 資料_cb As ComboBox
+    Friend WithEvents 商品_1_cb As ComboBox
+    Friend WithEvents 取消_bt As Button
+    Friend WithEvents 下行_cb As ComboBox
+    Friend WithEvents 上行_cb As ComboBox
+    Friend WithEvents Label24 As Label
+    Friend WithEvents Label22 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 帳號1_tb As TextBox
+    Friend WithEvents 網址1_tb As TextBox
+End Class

GA-ERP-SYS/報表系統管理/帳號資料.resx

@@ -0,0 +1,197 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAgBAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABQAAAAuAAAAPQAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAA
+        AEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAPQAA
+        AC4AAAAUAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAUGxsbmSMjI+0oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/IyMj7RsbG5kAAAAUAAAAAAAAAAAAAAAAAAAAACAgIIE7P0r/X3Kj/0pmrv9FYqz/RWKs/0Vi
+        rP9FYqz/RWKs/0VirP9FYqz/RWKs/0VirP9FYq3/RWKt/0Virf9FYqz/RWKs/0VirP9FYqz/RWKs/0Vi
+        rP9FYqz/RWKs/0pmrv9fcqP/Oz9K/yAgIIQAAAAAAAAAAAAAAAAAAAAAJiYm2mJ0o/8fQ5z/CzGT/wgv
+        kv8IL5L/CC+S/wgvkv8IL5P/CDCT/wgwk/8IMJT/CDCU/wgwlP8IMJT/CDCU/wgwlP8IMJP/CDCT/wgw
+        k/8IMJP/CC+S/wgvkv8IL5L/CzGT/x9DnP9gc6T/JiYm3QAAAAAAAAAAAAAAAAAAAAAoKCj/VXK2/xI6
+        mf8JMJT/CTCU/wkxlf8JMpX/CTKW/wkylv8KMpb/CjOW/wo0lv8KNJb/CjSX/wo0l/8KNJf/CjSX/woz
+        lv8KM5b/CjOW/wkylv8JMpb/CTKV/wkylf8JMZT/DDOV/0xosf8oKCj/AAAAAAAAAAAAAAAAAAAAACgo
+        KP9Qbrb/Fz+f/xA7m/8KNJj/CjSY/wo1mP8KNpn/CzeZ/ws3mf8LOJn/Czma/ws5m/8LOZv/Czmb/ws5
+        m/8LOZr/Czia/ws4mv8LOJr/CzeZ/ws2mP8KNpj/CjSY/wo0mP8JNJj/R2ex/ygoKP8AAAAAAAAAAAAA
+        AAAAAAAAKCgo/1BxuP8ZQ6L/GESi/xI+n/8MOZv/DDqc/ww7nP8YRaL/DTyf/w48n/8OPKD/Dj2g/w49
+        oP8OPaD/Dj2g/w49oP8OPaD/ED6h/ydQqf8kTqb/DTud/ww6nP8MOZv/Czib/ws3mv9IaLP/KCgo/wAA
+        AAAAAAAAAAAAAAAAAAAoKCj/UnO6/xtGpP8bSKX/HEqm/xVEo/8PPqH/Gkim/yRAev8mUqz/EEGk/xBC
+        pP8QQ6T/EEOl/xBDpf8QQ6T/EEOk/xJEpf8qVKX/ER44/xQjQ/8jT6r/Dz6i/w8+of8NPp//DDye/0ls
+        tv8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9Ud7z/HUuo/x1Nqf8eTar/H0+q/xlKqP8NMHP/AwMD/xco
+        R/8kVa7/Ekeo/xJIqP8TSKj/E0io/xNIqP8VSan/LVmp/w0WJf8DAwP/BAQE/xMoTv8RRKb/EUOl/w9C
+        pP8PQaP/SnC5/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/1d6v/8gUKz/IFCs/yFTrf8hVLD/IlWw/xxQ
+        rf8JHkH/BAQE/yA4YP8jV7L/Fk2t/xZOrf8WTq3/GE+u/zBfrf8QGSn/BwcH/xMfM/8GBgb/Ch1C/xNJ
+        qv8SSKn/EUao/xFFp/9Mcrz/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/WX7C/yNWsf8jWLL/I1my/yVa
+        s/8nXLT/J1y1/yBZs/8OK1r/BgYG/ylJfP8lXbf/GFWz/xpWtP8yZLL/FB4t/wsLC/8LCwv/CQkJ/wcS
+        JP8VTKX/FU+u/xRNrf8UTKz/E0qr/012v/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9agsb/J1u1/yhc
+        tf8pXrb/KmC4/ypguf8qY7r/KmW7/yRfuP8TOnP/BwcH/yxOf/8rZrz/Nmm2/xchMP8ODg7/Dg4O/wwM
+        DP8JFCb/GVOr/xlWtf8ZVLT/GFOz/xhSsf8WT6//UHrC/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/1yF
+        yf8qYbj/LGO6/yxju/8tZr3/LWi9/y5pvv8va7//MGzA/ylovv8WP3f/CgoK/y1NeP8bJTT/EhIS/xIS
+        Ev8PDw//ChYn/x1asP8eXrr/HV25/xxbuP8aWbf/Gli2/xlWtf9Rf8b/KCgo/wAAAAAAAAAAAAAAAAAA
+        AAAoKCj/X4rM/y1nvP8uab7/L2u//zBuwf8ybsL/M3DD/zRzxP82dMX/NnXG/zBxw/8sTnn/FRUV/xUV
+        Ff8VFRX/EhIS/wwZKf8gYbX/ImfA/yJmv/8hZL7/IGK9/x5gvP8dX7r/G1y5/1SDyv8oKCj/AAAAAAAA
+        AAAAAAAAAAAAACgoKP9hjs7/MGzB/zJvwv8zccT/NXTF/zZ2x/84eMj/TIfN/1eP0P9TjdD/S4PF/yQv
+        PP8ZGRn/GRkZ/xkZGf8hLTr/K2+9/ydwxf8mbsT/JW3D/yRrwv8jasL/ImjA/yFlv/8fY73/VojM/ygo
+        KP8AAAAAAAAAAAAAAAAAAAAAKCgo/2SS0f81c8T/N3XH/zl3yP86esr/O3zL/06K0P80SmL/HBwc/ygz
+        P/81S2P/HBwc/xwcHP8YGBj/Gxsb/x8jJ/9CdrD/QIPQ/y12yv8qc8n/KXLH/ydwxv8mbcT/JWvE/yRo
+        wv9ZjND/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/aJbU/zp4yP89e8n/PnzK/z6Ay/9Ags3/OE1l/yAg
+        IP8gICD/ICAg/yAgIP8gICD/FxcX/xQhL/8PExj/Hh4e/yMnK/8zS2T/RoXH/zF7y/8ueMr/LXbJ/yx0
+        yP8qcMb/J27F/1yS0v8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9rmtb/Pn7K/0B/zP9Bgs7/RIXQ/0eI
+        0v8gICD/GRkZ/wkJCf8ZGRn/IyMj/yMjI/85UGb/T43M/zx1r/8cISX/IyMj/yMjI/8sOEX/S4jL/zWA
+        zv8yfs3/MXrM/y54yv8tdcj/YJXU/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/26e2P9Cg8z/RIXO/0eI
+        0f9Ii9L/S47T/xIbJP8kPlf/UpXX/yU+WP8lJSX/Jycn/zU/Sv9amtv/Wprb/yU/WP8hISH/Jycn/ycn
+        J/8wPUn/TY7M/zeD0P81gc7/NH7N/zJ6zP9km9f/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/caLa/0aH
+        0f9IitL/So3T/02Q1v9PlNf/VJbY/1WY2f9Ymtr/aqXd/y8yNf8qKir/Hh4e/1+g2/9iodz/XZjP/xon
+        M/8kJCT/Kioq/yoqKv8zP0v/PYnT/zuH0v85hND/N4HP/2ee2v8oKCj/AAAAAAAAAAAAAAAAAAAAACgo
+        KP9zpdz/SYvS/0qP0/9Pk9f/UZXZ/1SY2f9Ymtv/W53c/1+g3P9HXHD/Li4u/yEhIf8uRVv/Z6Xe/2ek
+        3f9ppt7/Y5zS/x0pNf8oKCj/Li4u/xgYGP9Djtb/QIzU/z2K0/87htH/a6Pc/ygoKP8AAAAAAAAAAAAA
+        AAAAAAAAKCgo/3en3v9Mj9T/T5LW/1OW2P9Wmdn/Wp3a/12g2/9hodz/ZKTe/xcfJv8MDAz/MEZc/2yo
+        4P9tqeH/bqng/26q4P9vquH/aaHU/xwoM/8ODg7/NGKL/0qT1/9HkNf/Q47W/z+L1P9upt7/KCgo/wAA
+        AAAAAAAAAAAAAAAAAAAoKCj/eKrf/1GT1/9Tl9n/WJrb/1ud2/9goNz/ZKPd/2el3v9qqN7/bKng/3Cs
+        4f9wreL/c67i/3Ov4v9zsOL/dLDi/3Sv4/92r+L/dK7h/2Ke0v9XnNv/UZja/06W2f9Kk9j/RZDW/3Gp
+        3/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP96reD/VJbY/1ia2v9dndz/YKHd/2Wk3v9op9//bang/3Cr
+        4f9yruL/dLDi/3ex4/94suP/erPj/3q04/96s+P/e7Pk/3qz5P96suP/ebHj/2qp4P9Zntz/Upna/0+X
+        2f9LlNj/da3h/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/3yw4/9Wmtr/W53c/2Ch3P9kpN3/aaff/2yq
+        4f9xreL/dLDj/3ax4/96s+P/e7Xk/3625v9/t+b/gLfm/4C35f+At+X/f7Xl/3215f99teT/fLPk/22q
+        4P9bn9z/VJva/1CX2v94sOP/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/fbLj/1qc2/9eoN3/Y6Te/2mn
+        3/9tquD/cq3h/3Ww5P94suT/e7Tl/3635f9/uOb/g7rm/4S75/+Fu+f/hLvn/4S75/+Euub/g7nm/4K3
+        5f+AtuX/f7Xl/2+s4P9boN3/VJzb/3uy4/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP2DtOL/ZaTd/2Oj
+        3v9npt//a6nh/3Gt4f90sOP/ebLk/3u25P9/ueb/g7vn/4S76P+HvOj/ib7p/4q+6f+Kvun/ib7p/4m8
+        6P+HvOj/hrvm/4O55v+CuOX/gLbl/3Kt4f9mpt7/grbl/ygoKP8AAAAAAAAAAAAAAAAAAAAAJycn1pGv
+        yv+Rv+j/bKrg/2io4P9urOH/dK/j/3iz5P97teX/gLjm/4O65v+HvOj/ib/p/4vA6v+Nwer/jcLq/43B
+        6v+NwOr/jL/p/4u+6P+KvOf/h7rm/4W55v+Dt+b/ibzm/5/H6/+UsMr/Jycn1gAAAAAAAAAAAAAAAAAA
+        AAAnJydrS09T/73K1v/a6vf/2ur4/9vr+P/c7Pj/3uz4/9/t+f/g7vn/4O75/+Hv+v/i8Pr/4vD6/+Pw
+        +v/j8Pr/4/D6/+Pw+v/i8Pr/4u/6/+Hv+f/h7vn/4O75/+Dt+f/g7fj/v8rT/0tQU/8nJydrAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAoKChsKCgo1SgoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCjSKCgoaQAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA/////8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
+        AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
+        AAPAAAADwAAAA8AAAAPAAAAD4AAAB/////8=
+</value>
+  </data>
+</root>

GA-ERP-SYS/報表系統管理/帳號資料.vb

@@ -0,0 +1,105 @@
+Public Class 帳號資料
+    Private Sub Set_基數下拉讀取1()
+        SQL_上行清單讀取1()
+        資料1_cb.Items.Clear() : While (dr.Read()) : 資料1_cb.Items.Add(dr("基數")) : End While : conn.Close()
+
+        SQL_上行清單讀取()
+        上行_cb.Items.Clear() : 下行_cb.Items.Clear()
+        While (dr.Read()) : 下行_cb.Items.Add(dr("基數")) : 上行_cb.Items.Add(dr("基數")) : End While : conn.Close()
+    End Sub
+    Private Sub Set_商品下拉讀取()
+        PA42 = 系統1_cb.Text : SQL_下拉商品清單讀取()
+        商品1_cb.Items.Clear() : While (dr.Read()) : 商品1_cb.Items.Add(dr("編號") & " - " & dr("商品") & " - " & dr("層級")) : End While : conn.Close()
+        網址_tb.Text = "" : 商品_cb.Text = ""
+    End Sub
+    Private Sub Set_商品下拉讀取1()
+        SQL_下拉商品清單讀取1()
+        商品_1_cb.Items.Clear() : While (dr.Read()) : 商品_1_cb.Items.Add(dr("商品")) : End While : conn.Close()
+    End Sub
+    Private Sub 修改帳號資料_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    End Sub
+    Private Sub 修改帳號資料_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Set_商品下拉讀取1() : Set_基數下拉讀取1()
+        If 是否新增 = False Then : 商品_1_cb.Text = PA5 : 帳號1_tb.Text = PA6 : 帳號_tb.Text = PA6
+        Else : 商品_1_cb.Text = "" : 帳號_tb.Text = "" : 密碼_tb.Text = "" : 網址1_tb.Text = "" : 網址_tb.Text = "" : 帳號1_tb.Text = "" : 上繳源_cb.Text = "" : End If
+        SQL_流水帳上繳() : 上繳源_cb.Items.Clear() : 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()
+        '-------------------------------------------------------------------------------------------------------
+        SQL_帳戶資料查詢()
+        If dr.Read() Then
+            密碼_tb.Text = dr("密碼") : 上繳源_cb.Text = dr("上繳源") : 網址_tb.Text = dr("網址") : 網址1_tb.Text = dr("網址") : PA1 = dr("網址") : PA2 = dr("商品")
+            If Strings.Mid(dr("資料"), 4, 2) = "總監" Then : 資料1_cb.Text = "總監"
+            ElseIf Strings.Mid(dr("資料"), 4, 2) = "大股" Then : 資料1_cb.Text = "大股東"
+            ElseIf Strings.Mid(dr("資料"), 4, 2) = "股東" Then : 資料1_cb.Text = "股東"
+            ElseIf Strings.Mid(dr("資料"), 4, 2) = "總代" Then : 資料1_cb.Text = "總代理"
+            ElseIf Strings.Mid(dr("資料"), 4, 2) = "代理" Then : 資料1_cb.Text = "代理"
+            ElseIf Strings.Mid(dr("資料"), 4, 2) = "會員" Then : 資料1_cb.Text = "會員" : End If
+            If Strings.Left(dr("資料"), 2) = "長板" Then : 系統1_cb.Text = "101" : Else : 系統1_cb.Text = "365" : End If
+        End If
+
+        PA42 = 系統1_cb.Text : SQL_下拉商品清單讀取()
+        商品1_cb.Items.Clear() : While (dr.Read()) : 商品1_cb.Items.Add(dr("編號") & " - " & dr("商品") & " - " & dr("層級")) : End While : conn.Close()
+        If 是否新增 = True Then : PA1 = "" : PA2 = "" : End If : SQL_商品讀取()
+        If dr.Read() Then : 商品1_cb.Text = dr("編號") & " - " & dr("商品") & " - " & dr("層級") : End If
+    End Sub
+    Private Sub 系統1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 系統1_cb.SelectedIndexChanged
+        Set_商品下拉讀取()
+        Dim ff As String
+        If 系統1_cb.Text = "101" Then : ff = "長板" : Else : ff = "短版" : End If
+        資料_cb.Text = ff & "(" & 資料1_cb.Text & ")"
+    End Sub
+    Private Sub 資料_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 資料_cb.SelectedIndexChanged
+        If Strings.Left(資料_cb.Text, 2) = "長板" Then
+            上行_cb.Text = "上缴金额"
+            If Strings.Mid(資料_cb.Text, 3, 7) = "(總監)" Then : 下行_cb.Text = "總監"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(大股東)" Then : 下行_cb.Text = "大股東"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(股東)" Then : 下行_cb.Text = "股東"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(總代理)" Then : 下行_cb.Text = "總代理"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(代理)" Then : 下行_cb.Text = "代理"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(會員)" Then : 下行_cb.Text = "會員"
+            End If
+        Else
+            If Strings.Mid(資料_cb.Text, 3, 7) = "(總監)" Then : 上行_cb.Text = "總監" : 下行_cb.Text = "大股東"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(大股東)" Then : 上行_cb.Text = "大股東" : 下行_cb.Text = "股東"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(股東)" Then : 上行_cb.Text = "股東" : 下行_cb.Text = "總代理"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(總代理)" Then : 上行_cb.Text = "總代理" : 下行_cb.Text = "代理"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(代理)" Then : 上行_cb.Text = "代理" : 下行_cb.Text = "會員"
+            ElseIf Strings.Mid(資料_cb.Text, 3, 7) = "(會員)" Then : 上行_cb.Text = "會員" : 下行_cb.Text = "會員"
+            End If
+        End If
+    End Sub
+    Private Sub 資料1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 資料1_cb.SelectedIndexChanged
+        Dim ff As String
+        If 系統1_cb.Text = "101" Then : ff = "長板" : Else : ff = "短版" : End If
+        資料_cb.Text = ff & "(" & 資料1_cb.Text & ")"
+    End Sub
+    Private Sub 商品1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 商品1_cb.SelectedIndexChanged
+        PA41 = 商品1_cb.Text : SQL_商品網址讀取()
+        If dr.Read() Then : 網址_tb.Text = dr("網址") : 商品_cb.Text = dr("商品") : 商品_1_cb.Text = dr("商品") : conn.Close() : dr.Close() : End If
+    End Sub
+    Private Sub 取消_bt_Click(sender As Object, e As EventArgs) Handles 取消_bt.Click
+        Me.Close() : 是否運行 = False
+    End Sub
+    Private Sub 存檔1_bt_Click(sender As Object, e As EventArgs) Handles 存檔1_bt.Click
+        If 是否新增 = False Then
+            PA2 = 網址_tb.Text : PA3 = 上繳源_cb.Text : PA4 = 帳號_tb.Text : PA5 = 密碼_tb.Text : PA6 = 上行_cb.Text : PA7 = 下行_cb.Text : PA8 = 資料_cb.Text : PA9 = 商品_cb.Text
+            PA10 = 帳號1_tb.Text : PA11 = 網址1_tb.Text
+            SQL_系統編碼規則_商客修改() : MsgBox("修改完成") : conn.Close() : dr.Close() : PA9 = "" : PA1 = "" : PA = "" : Me.Close() : 是否運行 = True
+        ElseIf 是否新增 = True Then
+            If 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then
+                MsgBox("資料沒有完整，請重新檢查")
+            Else
+                SQL_系統編碼規則_商客重複查詢()
+                If dr.Read() Then
+                    MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
+                Else
+                    PA1 = 網址_tb.Text : PA2 = 帳號_tb.Text : PA3 = 密碼_tb.Text : PA4 = 資料_cb.Text : PA5 = 上繳源_cb.Text : PA6 = 商品_cb.Text : PA7 = 上行_cb.Text : PA8 = 下行_cb.Text
+                    SQL_系統編碼規則_商客新增() : MsgBox("新增完成") : conn.Close() : dr.Close()
+                    PA1 = "" : PA = "" : Set_商品下拉讀取1() : Me.Close() : 是否運行 = True
+                End If
+            End If
+        End If
+    End Sub
+End Class

GA-ERP-SYS/報表系統管理/設定異常表.Designer.vb

@@ -0,0 +1,91 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 設定異常表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(設定異常表))
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(4, 3)
+        Me.TextBox1.Multiline = True
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.TextBox1.Size = New System.Drawing.Size(350, 314)
+        Me.TextBox1.TabIndex = 3
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(356, 3)
+        Me.TextBox2.Multiline = True
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.TextBox2.Size = New System.Drawing.Size(350, 314)
+        Me.TextBox2.TabIndex = 1
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(708, 3)
+        Me.TextBox3.Multiline = True
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.TextBox3.Size = New System.Drawing.Size(473, 314)
+        Me.TextBox3.TabIndex = 2
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Location = New System.Drawing.Point(442, 188)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(100, 23)
+        Me.TextBox4.TabIndex = 0
+        Me.TextBox4.Visible = False
+        '
+        '設定異常表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1184, 320)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "設定異常表"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "設定異常表"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents TextBox4 As TextBox
+End Class

GA-ERP-SYS/報表系統管理/設定異常表.resx

@@ -0,0 +1,197 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAgBAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABQAAAAuAAAAPQAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAA
+        AEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAPQAA
+        AC4AAAAUAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAUGxsbmSMjI+0oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/IyMj7RsbG5kAAAAUAAAAAAAAAAAAAAAAAAAAACAgIIE7P0r/X3Kj/0pmrv9FYqz/RWKs/0Vi
+        rP9FYqz/RWKs/0VirP9FYqz/RWKs/0VirP9FYq3/RWKt/0Virf9FYqz/RWKs/0VirP9FYqz/RWKs/0Vi
+        rP9FYqz/RWKs/0pmrv9fcqP/Oz9K/yAgIIQAAAAAAAAAAAAAAAAAAAAAJiYm2mJ0o/8fQ5z/CzGT/wgv
+        kv8IL5L/CC+S/wgvkv8IL5P/CDCT/wgwk/8IMJT/CDCU/wgwlP8IMJT/CDCU/wgwlP8IMJP/CDCT/wgw
+        k/8IMJP/CC+S/wgvkv8IL5L/CzGT/x9DnP9gc6T/JiYm3QAAAAAAAAAAAAAAAAAAAAAoKCj/VXK2/xI6
+        mf8JMJT/CTCU/wkxlf8JMpX/CTKW/wkylv8KMpb/CjOW/wo0lv8KNJb/CjSX/wo0l/8KNJf/CjSX/woz
+        lv8KM5b/CjOW/wkylv8JMpb/CTKV/wkylf8JMZT/DDOV/0xosf8oKCj/AAAAAAAAAAAAAAAAAAAAACgo
+        KP9Qbrb/Fz+f/xA7m/8KNJj/CjSY/wo1mP8KNpn/CzeZ/ws3mf8LOJn/Czma/ws5m/8LOZv/Czmb/ws5
+        m/8LOZr/Czia/ws4mv8LOJr/CzeZ/ws2mP8KNpj/CjSY/wo0mP8JNJj/R2ex/ygoKP8AAAAAAAAAAAAA
+        AAAAAAAAKCgo/1BxuP8ZQ6L/GESi/xI+n/8MOZv/DDqc/ww7nP8YRaL/DTyf/w48n/8OPKD/Dj2g/w49
+        oP8OPaD/Dj2g/w49oP8OPaD/ED6h/ydQqf8kTqb/DTud/ww6nP8MOZv/Czib/ws3mv9IaLP/KCgo/wAA
+        AAAAAAAAAAAAAAAAAAAoKCj/UnO6/xtGpP8bSKX/HEqm/xVEo/8PPqH/Gkim/yRAev8mUqz/EEGk/xBC
+        pP8QQ6T/EEOl/xBDpf8QQ6T/EEOk/xJEpf8qVKX/ER44/xQjQ/8jT6r/Dz6i/w8+of8NPp//DDye/0ls
+        tv8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9Ud7z/HUuo/x1Nqf8eTar/H0+q/xlKqP8NMHP/AwMD/xco
+        R/8kVa7/Ekeo/xJIqP8TSKj/E0io/xNIqP8VSan/LVmp/w0WJf8DAwP/BAQE/xMoTv8RRKb/EUOl/w9C
+        pP8PQaP/SnC5/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/1d6v/8gUKz/IFCs/yFTrf8hVLD/IlWw/xxQ
+        rf8JHkH/BAQE/yA4YP8jV7L/Fk2t/xZOrf8WTq3/GE+u/zBfrf8QGSn/BwcH/xMfM/8GBgb/Ch1C/xNJ
+        qv8SSKn/EUao/xFFp/9Mcrz/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/WX7C/yNWsf8jWLL/I1my/yVa
+        s/8nXLT/J1y1/yBZs/8OK1r/BgYG/ylJfP8lXbf/GFWz/xpWtP8yZLL/FB4t/wsLC/8LCwv/CQkJ/wcS
+        JP8VTKX/FU+u/xRNrf8UTKz/E0qr/012v/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9agsb/J1u1/yhc
+        tf8pXrb/KmC4/ypguf8qY7r/KmW7/yRfuP8TOnP/BwcH/yxOf/8rZrz/Nmm2/xchMP8ODg7/Dg4O/wwM
+        DP8JFCb/GVOr/xlWtf8ZVLT/GFOz/xhSsf8WT6//UHrC/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/1yF
+        yf8qYbj/LGO6/yxju/8tZr3/LWi9/y5pvv8va7//MGzA/ylovv8WP3f/CgoK/y1NeP8bJTT/EhIS/xIS
+        Ev8PDw//ChYn/x1asP8eXrr/HV25/xxbuP8aWbf/Gli2/xlWtf9Rf8b/KCgo/wAAAAAAAAAAAAAAAAAA
+        AAAoKCj/X4rM/y1nvP8uab7/L2u//zBuwf8ybsL/M3DD/zRzxP82dMX/NnXG/zBxw/8sTnn/FRUV/xUV
+        Ff8VFRX/EhIS/wwZKf8gYbX/ImfA/yJmv/8hZL7/IGK9/x5gvP8dX7r/G1y5/1SDyv8oKCj/AAAAAAAA
+        AAAAAAAAAAAAACgoKP9hjs7/MGzB/zJvwv8zccT/NXTF/zZ2x/84eMj/TIfN/1eP0P9TjdD/S4PF/yQv
+        PP8ZGRn/GRkZ/xkZGf8hLTr/K2+9/ydwxf8mbsT/JW3D/yRrwv8jasL/ImjA/yFlv/8fY73/VojM/ygo
+        KP8AAAAAAAAAAAAAAAAAAAAAKCgo/2SS0f81c8T/N3XH/zl3yP86esr/O3zL/06K0P80SmL/HBwc/ygz
+        P/81S2P/HBwc/xwcHP8YGBj/Gxsb/x8jJ/9CdrD/QIPQ/y12yv8qc8n/KXLH/ydwxv8mbcT/JWvE/yRo
+        wv9ZjND/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/aJbU/zp4yP89e8n/PnzK/z6Ay/9Ags3/OE1l/yAg
+        IP8gICD/ICAg/yAgIP8gICD/FxcX/xQhL/8PExj/Hh4e/yMnK/8zS2T/RoXH/zF7y/8ueMr/LXbJ/yx0
+        yP8qcMb/J27F/1yS0v8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP9rmtb/Pn7K/0B/zP9Bgs7/RIXQ/0eI
+        0v8gICD/GRkZ/wkJCf8ZGRn/IyMj/yMjI/85UGb/T43M/zx1r/8cISX/IyMj/yMjI/8sOEX/S4jL/zWA
+        zv8yfs3/MXrM/y54yv8tdcj/YJXU/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/26e2P9Cg8z/RIXO/0eI
+        0f9Ii9L/S47T/xIbJP8kPlf/UpXX/yU+WP8lJSX/Jycn/zU/Sv9amtv/Wprb/yU/WP8hISH/Jycn/ycn
+        J/8wPUn/TY7M/zeD0P81gc7/NH7N/zJ6zP9km9f/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/caLa/0aH
+        0f9IitL/So3T/02Q1v9PlNf/VJbY/1WY2f9Ymtr/aqXd/y8yNf8qKir/Hh4e/1+g2/9iodz/XZjP/xon
+        M/8kJCT/Kioq/yoqKv8zP0v/PYnT/zuH0v85hND/N4HP/2ee2v8oKCj/AAAAAAAAAAAAAAAAAAAAACgo
+        KP9zpdz/SYvS/0qP0/9Pk9f/UZXZ/1SY2f9Ymtv/W53c/1+g3P9HXHD/Li4u/yEhIf8uRVv/Z6Xe/2ek
+        3f9ppt7/Y5zS/x0pNf8oKCj/Li4u/xgYGP9Djtb/QIzU/z2K0/87htH/a6Pc/ygoKP8AAAAAAAAAAAAA
+        AAAAAAAAKCgo/3en3v9Mj9T/T5LW/1OW2P9Wmdn/Wp3a/12g2/9hodz/ZKTe/xcfJv8MDAz/MEZc/2yo
+        4P9tqeH/bqng/26q4P9vquH/aaHU/xwoM/8ODg7/NGKL/0qT1/9HkNf/Q47W/z+L1P9upt7/KCgo/wAA
+        AAAAAAAAAAAAAAAAAAAoKCj/eKrf/1GT1/9Tl9n/WJrb/1ud2/9goNz/ZKPd/2el3v9qqN7/bKng/3Cs
+        4f9wreL/c67i/3Ov4v9zsOL/dLDi/3Sv4/92r+L/dK7h/2Ke0v9XnNv/UZja/06W2f9Kk9j/RZDW/3Gp
+        3/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP96reD/VJbY/1ia2v9dndz/YKHd/2Wk3v9op9//bang/3Cr
+        4f9yruL/dLDi/3ex4/94suP/erPj/3q04/96s+P/e7Pk/3qz5P96suP/ebHj/2qp4P9Zntz/Upna/0+X
+        2f9LlNj/da3h/ygoKP8AAAAAAAAAAAAAAAAAAAAAKCgo/3yw4/9Wmtr/W53c/2Ch3P9kpN3/aaff/2yq
+        4f9xreL/dLDj/3ax4/96s+P/e7Xk/3625v9/t+b/gLfm/4C35f+At+X/f7Xl/3215f99teT/fLPk/22q
+        4P9bn9z/VJva/1CX2v94sOP/KCgo/wAAAAAAAAAAAAAAAAAAAAAoKCj/fbLj/1qc2/9eoN3/Y6Te/2mn
+        3/9tquD/cq3h/3Ww5P94suT/e7Tl/3635f9/uOb/g7rm/4S75/+Fu+f/hLvn/4S75/+Euub/g7nm/4K3
+        5f+AtuX/f7Xl/2+s4P9boN3/VJzb/3uy4/8oKCj/AAAAAAAAAAAAAAAAAAAAACgoKP2DtOL/ZaTd/2Oj
+        3v9npt//a6nh/3Gt4f90sOP/ebLk/3u25P9/ueb/g7vn/4S76P+HvOj/ib7p/4q+6f+Kvun/ib7p/4m8
+        6P+HvOj/hrvm/4O55v+CuOX/gLbl/3Kt4f9mpt7/grbl/ygoKP8AAAAAAAAAAAAAAAAAAAAAJycn1pGv
+        yv+Rv+j/bKrg/2io4P9urOH/dK/j/3iz5P97teX/gLjm/4O65v+HvOj/ib/p/4vA6v+Nwer/jcLq/43B
+        6v+NwOr/jL/p/4u+6P+KvOf/h7rm/4W55v+Dt+b/ibzm/5/H6/+UsMr/Jycn1gAAAAAAAAAAAAAAAAAA
+        AAAnJydrS09T/73K1v/a6vf/2ur4/9vr+P/c7Pj/3uz4/9/t+f/g7vn/4O75/+Hv+v/i8Pr/4vD6/+Pw
+        +v/j8Pr/4/D6/+Pw+v/i8Pr/4u/6/+Hv+f/h7vn/4O75/+Dt+f/g7fj/v8rT/0tQU/8nJydrAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAoKChsKCgo1SgoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygo
+        KP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCj/KCgo/ygoKP8oKCjSKCgoaQAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA/////8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
+        AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
+        AAPAAAADwAAAA8AAAAPAAAAD4AAAB/////8=
+</value>
+  </data>
+</root>

GA-ERP-SYS/報表系統管理/設定異常表.vb

@@ -0,0 +1,8 @@
+Public Class 設定異常表
+    Private Sub 設定異常表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        TextBox1.Text = 設定異常表0
+        TextBox2.Text = 設定異常表1
+        TextBox3.Text = 設定異常表2
+        Me.ActiveControl = TextBox4
+    End Sub
+End Class

GA-ERP-SYS/特殊操作功能/流水帳自動導入.vb

@@ -5,40 +5,40 @@ Public Class 流水帳自動導入
         結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6)
     End Sub
     Private Sub 商客新增_bt_Click(sender As Object, e As EventArgs) Handles 商客新增_bt.Click
-        SQL_自動導入判斷()
-        If dr.Read() Then
-            If dr("正在自動導入中").ToString = "YES" Then
-                MsgBox("自動導入進行中，不可以重複導入!!") : conn.Close() : dr.Close()
-            Else
-                conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
-                PA1 = Format(開始日期_dtp.Value, "yyyy-MM-dd") : PA2 = Format(結束日期_dtp.Value, "yyyy-MM-dd")
-                SQL_流水帳同日期清除() : SQL_查詢日期清空()
-                SQL_LOG_刪除1() : SQL_查詢日期寫入()
-                If File.Exists("000.csv") Then
-                    File.Delete("000.csv")
-                End If
-                If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "000.csv") Then
-                    File.Delete("000.csv")
-                End If
-                Dim FilePath As String = "000.csv"
-                Try
-                    Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
-                        Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
-                            Dim str As String = "8888,"
-                            Dim str1 As String = 業務名稱 & ","
-                            sw.WriteLine(str)   '插入一整行
-                            sw.Write(str1)   '第一行
-                            sw.Flush()
-                        End Using
-                    End Using
-                Catch ex As Exception
-                End Try
-                '-----------------------------------------------------------------------
-                Shell("Auto.exe", vbNormalFocus)
-                Timer1.Enabled = True
-                Me.Close()
-            End If
-        End If
+        'SQL_自動導入判斷()
+        'If dr.Read() Then
+        '    If dr("正在自動導入中").ToString = "YES" Then
+        '        MsgBox("自動導入進行中，不可以重複導入!!") : conn.Close() : dr.Close()
+        '    Else
+        '        conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
+        '        PA1 = Format(開始日期_dtp.Value, "yyyy-MM-dd") : PA2 = Format(結束日期_dtp.Value, "yyyy-MM-dd")
+        '        SQL_流水帳同日期清除() : SQL_查詢日期清空()
+        '        SQL_LOG_刪除1() : SQL_查詢日期寫入()
+        '        If File.Exists("000.csv") Then
+        '            File.Delete("000.csv")
+        '        End If
+        '        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "000.csv") Then
+        '            File.Delete("000.csv")
+        '        End If
+        '        Dim FilePath As String = "000.csv"
+        '        Try
+        '            Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
+        '                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
+        '                    Dim str As String = "8888,"
+        '                    Dim str1 As String = 業務名稱 & ","
+        '                    sw.WriteLine(str)   '插入一整行
+        '                    sw.Write(str1)   '第一行
+        '                    sw.Flush()
+        '                End Using
+        '            End Using
+        '        Catch ex As Exception
+        '        End Try
+        '        '-----------------------------------------------------------------------
+        '        'Shell("Auto.exe", vbNormalFocus)
+        '        Timer1.Enabled = True
+        '        Me.Close()
+        '    End If
+        'End If
     End Sub
     Private Sub R_bT_Click(sender As Object, e As EventArgs) Handles R_bT.Click
         SQL_SQL_自動導入判斷_關閉()
@@ -47,18 +47,18 @@ Public Class 流水帳自動導入
         開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6)
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
-        SQL_自動導入判斷()
-        If dr.Read() Then
-            If dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
-                Timer1.Enabled = False
-                If File.Exists("000.csv") Then
-                    File.Delete("000.csv")
-                End If
-                If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "000.csv") Then
-                    File.Delete("000.csv")
-                End If
-                LOG檔.ShowDialog() : SQL_SQL_自動導入判斷_關閉() : SQL_查詢日期清空()
-            End If
-        End If
+        'SQL_自動導入判斷()
+        'If dr.Read() Then
+        '    If dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
+        '        Timer1.Enabled = False
+        '        If File.Exists("000.csv") Then
+        '            File.Delete("000.csv")
+        '        End If
+        '        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "000.csv") Then
+        '            File.Delete("000.csv")
+        '        End If
+        '        LOG檔.ShowDialog() : SQL_SQL_自動導入判斷_關閉() : SQL_查詢日期清空()
+        '    End If
+        'End If
     End Sub
 End Class

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

@@ -333,7 +333,6 @@ Partial Class 資料備份轉移
         Me.Controls.Add(Me.資料庫_bt)
         Me.Controls.Add(Me.流水帳1_dgv)
         Me.Controls.Add(Me.下行客戶1_dgv)
-        Me.Controls.Add(Me.商客基本資料表1_dgv)
         Me.Controls.Add(Me.商品資料表1_dgv)
         Me.Controls.Add(Me.資料轉移_bt)
         Me.Controls.Add(Me.Label6)
@@ -345,9 +344,10 @@ Partial Class 資料備份轉移
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.流水帳_dgv)
         Me.Controls.Add(Me.下行客戶_dgv)
-        Me.Controls.Add(Me.商客基本資料表_dgv)
         Me.Controls.Add(Me.商品資料表_dgv)
         Me.Controls.Add(Me.客戶資料表_dgv)
+        Me.Controls.Add(Me.商客基本資料表1_dgv)
+        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 = "資料備份轉移"

GA-ERP-SYS/輸入密碼.Designer.vb

@@ -0,0 +1,91 @@
+<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.取消_bt = New System.Windows.Forms.Button()
+        Me.確認_bt = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.密碼_tb = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        '取消_bt
+        '
+        Me.取消_bt.Location = New System.Drawing.Point(222, 5)
+        Me.取消_bt.Name = "取消_bt"
+        Me.取消_bt.Size = New System.Drawing.Size(75, 42)
+        Me.取消_bt.TabIndex = 7
+        Me.取消_bt.Text = "取消"
+        Me.取消_bt.UseVisualStyleBackColor = True
+        '
+        '確認_bt
+        '
+        Me.確認_bt.Location = New System.Drawing.Point(145, 5)
+        Me.確認_bt.Name = "確認_bt"
+        Me.確認_bt.Size = New System.Drawing.Size(75, 42)
+        Me.確認_bt.TabIndex = 6
+        Me.確認_bt.Text = "確認"
+        Me.確認_bt.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 5)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(136, 16)
+        Me.Label1.TabIndex = 5
+        Me.Label1.Text = "請輸入系統商管理密碼!!"
+        '
+        '密碼_tb
+        '
+        Me.密碼_tb.Location = New System.Drawing.Point(5, 25)
+        Me.密碼_tb.Name = "密碼_tb"
+        Me.密碼_tb.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
+        Me.密碼_tb.Size = New System.Drawing.Size(134, 23)
+        Me.密碼_tb.TabIndex = 4
+        '
+        '輸入密碼
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(300, 53)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.取消_bt)
+        Me.Controls.Add(Me.確認_bt)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.密碼_tb)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "輸入密碼"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "輸入密碼"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 取消_bt As Button
+    Friend WithEvents 確認_bt As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 密碼_tb As TextBox
+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,13 @@
+Public Class 輸入密碼
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
+        PA = 密碼_tb.Text : 密碼_tb.Text = "" : Me.Close()
+    End Sub
+    Private Sub 密碼_tb_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles 密碼_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            PA = 密碼_tb.Text : 密碼_tb.Text = "" : Me.Close()
+        End If
+    End Sub
+    Private Sub 取消_bt_Click(sender As Object, e As EventArgs) Handles 取消_bt.Click
+        PA = "" : 密碼_tb.Text = "" : Me.Close()
+    End Sub
+End Class