20210709備份

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

@@ -27,6 +27,8 @@ Partial Class GA_ERP_SYS
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(GA_ERP_SYS))
         Me.MenuStrip = New System.Windows.Forms.MenuStrip()
         Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem()
+        Me.個人帳號管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem()
         Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -37,12 +39,12 @@ Partial Class GA_ERP_SYS
         Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.基本資料管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.基本資料_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.報表系統管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.流水帳查詢_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.特殊操作功能_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.流水帳自動導入_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.流水帳手動輸入_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.商客資料導入_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.報表系統管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.資料庫系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統使用者管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統編碼規則_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -55,14 +57,15 @@ Partial Class GA_ERP_SYS
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
         Me.使用者_cb = New System.Windows.Forms.ComboBox()
-        Me.流水帳查詢_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.計算機_bt = New System.Windows.Forms.Button()
+        Me.計算機1_bt = New System.Windows.Forms.Button()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         Me.SuspendLayout()
         '
         'MenuStrip
         '
-        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.基本資料管理ToolStripMenuItem, Me.報表系統管理ToolStripMenuItem, Me.資料庫系統管理_tsm})
+        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.基本資料管理ToolStripMenuItem, Me.報表系統管理ToolStripMenuItem, Me.特殊操作功能_tsm, Me.資料庫系統管理_tsm})
         Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip.MdiWindowListItem = Me.WindowsMenu
         Me.MenuStrip.Name = "MenuStrip"
@@ -72,16 +75,30 @@ Partial Class GA_ERP_SYS
         '
         'FileMenu
         '
-        Me.FileMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExitToolStripMenuItem})
+        Me.FileMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.個人帳號管理_tsm, Me.ToolStripSeparator2, Me.ExitToolStripMenuItem})
+        Me.FileMenu.Image = Global.GA_ERP_SYS.My.Resources.Resources._0111121hh
         Me.FileMenu.ImageTransparentColor = System.Drawing.SystemColors.ActiveBorder
         Me.FileMenu.Name = "FileMenu"
-        Me.FileMenu.Size = New System.Drawing.Size(57, 20)
+        Me.FileMenu.Size = New System.Drawing.Size(73, 20)
         Me.FileMenu.Text = "檔案(&F)"
         '
+        '個人帳號管理_tsm
+        '
+        Me.個人帳號管理_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Personnel
+        Me.個人帳號管理_tsm.Name = "個人帳號管理_tsm"
+        Me.個人帳號管理_tsm.Size = New System.Drawing.Size(146, 22)
+        Me.個人帳號管理_tsm.Text = "個人帳號管理"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(143, 6)
+        '
         'ExitToolStripMenuItem
         '
+        Me.ExitToolStripMenuItem.Image = Global.GA_ERP_SYS.My.Resources.Resources.Sys_Command
         Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
-        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(114, 22)
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
         Me.ExitToolStripMenuItem.Text = "結束(&X)"
         '
         'WindowsMenu
@@ -129,7 +146,7 @@ Partial Class GA_ERP_SYS
         '
         '基本資料管理ToolStripMenuItem
         '
-        Me.基本資料管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.基本資料_tsm, Me.ToolStripSeparator3, Me.流水帳自動導入_tsm, Me.流水帳手動輸入_tsm, Me.ToolStripSeparator1, Me.商客資料導入_tsm})
+        Me.基本資料管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.基本資料_tsm})
         Me.基本資料管理ToolStripMenuItem.Image = Global.GA_ERP_SYS.My.Resources.Resources.Personnel
         Me.基本資料管理ToolStripMenuItem.Name = "基本資料管理ToolStripMenuItem"
         Me.基本資料管理ToolStripMenuItem.Size = New System.Drawing.Size(107, 20)
@@ -142,10 +159,28 @@ Partial Class GA_ERP_SYS
         Me.基本資料_tsm.Size = New System.Drawing.Size(180, 22)
         Me.基本資料_tsm.Text = "基本資料"
         '
-        'ToolStripSeparator3
+        '報表系統管理ToolStripMenuItem
         '
-        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
+        Me.報表系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.流水帳查詢_tsm})
+        Me.報表系統管理ToolStripMenuItem.Image = Global.GA_ERP_SYS.My.Resources.Resources.Report
+        Me.報表系統管理ToolStripMenuItem.Name = "報表系統管理ToolStripMenuItem"
+        Me.報表系統管理ToolStripMenuItem.Size = New System.Drawing.Size(107, 20)
+        Me.報表系統管理ToolStripMenuItem.Text = "報表系統管理"
+        '
+        '流水帳查詢_tsm
+        '
+        Me.流水帳查詢_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Report
+        Me.流水帳查詢_tsm.Name = "流水帳查詢_tsm"
+        Me.流水帳查詢_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.流水帳查詢_tsm.Text = "流水帳查詢"
+        '
+        '特殊操作功能_tsm
+        '
+        Me.特殊操作功能_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.流水帳自動導入_tsm, Me.流水帳手動輸入_tsm, Me.商客資料導入_tsm})
+        Me.特殊操作功能_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Personnel
+        Me.特殊操作功能_tsm.Name = "特殊操作功能_tsm"
+        Me.特殊操作功能_tsm.Size = New System.Drawing.Size(107, 20)
+        Me.特殊操作功能_tsm.Text = "特殊操作功能"
         '
         '流水帳自動導入_tsm
         '
@@ -161,11 +196,6 @@ Partial Class GA_ERP_SYS
         Me.流水帳手動輸入_tsm.Size = New System.Drawing.Size(180, 22)
         Me.流水帳手動輸入_tsm.Text = "流水帳手動輸入"
         '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
-        '
         '商客資料導入_tsm
         '
         Me.商客資料導入_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.pen
@@ -173,14 +203,6 @@ Partial Class GA_ERP_SYS
         Me.商客資料導入_tsm.Size = New System.Drawing.Size(180, 22)
         Me.商客資料導入_tsm.Text = "商客資料導入"
         '
-        '報表系統管理ToolStripMenuItem
-        '
-        Me.報表系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.流水帳查詢_tsm})
-        Me.報表系統管理ToolStripMenuItem.Image = Global.GA_ERP_SYS.My.Resources.Resources.Report
-        Me.報表系統管理ToolStripMenuItem.Name = "報表系統管理ToolStripMenuItem"
-        Me.報表系統管理ToolStripMenuItem.Size = New System.Drawing.Size(107, 20)
-        Me.報表系統管理ToolStripMenuItem.Text = "報表系統管理"
-        '
         '資料庫系統管理_tsm
         '
         Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.系統編碼規則_tsm, Me.系統執行檔版本管理_tsm, Me.FTP_tsm, Me.人員ID卡系統配置設定_tsm})
@@ -263,12 +285,25 @@ Partial Class GA_ERP_SYS
         Me.使用者_cb.Size = New System.Drawing.Size(153, 23)
         Me.使用者_cb.TabIndex = 10
         '
-        '流水帳查詢_tsm
+        '計算機_bt
         '
-        Me.流水帳查詢_tsm.Image = Global.GA_ERP_SYS.My.Resources.Resources.Report
-        Me.流水帳查詢_tsm.Name = "流水帳查詢_tsm"
-        Me.流水帳查詢_tsm.Size = New System.Drawing.Size(180, 22)
-        Me.流水帳查詢_tsm.Text = "流水帳查詢"
+        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(1118, 1)
+        Me.計算機_bt.Name = "計算機_bt"
+        Me.計算機_bt.Size = New System.Drawing.Size(10, 23)
+        Me.計算機_bt.TabIndex = 15
+        Me.計算機_bt.UseVisualStyleBackColor = True
+        '
+        '計算機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(1129, 1)
+        Me.計算機1_bt.Name = "計算機1_bt"
+        Me.計算機1_bt.Size = New System.Drawing.Size(75, 23)
+        Me.計算機1_bt.TabIndex = 16
+        Me.計算機1_bt.Text = "計算機"
+        Me.計算機1_bt.UseVisualStyleBackColor = True
         '
         'GA_ERP_SYS
         '
@@ -277,9 +312,11 @@ Partial Class GA_ERP_SYS
         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(1426, 612)
+        Me.Controls.Add(Me.計算機1_bt)
         Me.Controls.Add(Me.使用者_cb)
-        Me.Controls.Add(Me.MenuStrip)
         Me.Controls.Add(Me.StatusStrip)
+        Me.Controls.Add(Me.計算機_bt)
+        Me.Controls.Add(Me.MenuStrip)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.IsMdiContainer = True
         Me.MainMenuStrip = Me.MenuStrip
@@ -318,11 +355,14 @@ Partial Class GA_ERP_SYS
     Friend WithEvents 使用者_cb As ComboBox
     Friend WithEvents 基本資料管理ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 基本資料_tsm As ToolStripMenuItem
-    Friend WithEvents 流水帳手動輸入_tsm As ToolStripMenuItem
-    Friend WithEvents 商客資料導入_tsm As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
-    Friend WithEvents 流水帳自動導入_tsm As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
     Friend WithEvents 報表系統管理ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 流水帳查詢_tsm As ToolStripMenuItem
+    Friend WithEvents 個人帳號管理_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents 計算機_bt As Button
+    Friend WithEvents 計算機1_bt As Button
+    Friend WithEvents 特殊操作功能_tsm As ToolStripMenuItem
+    Friend WithEvents 流水帳自動導入_tsm As ToolStripMenuItem
+    Friend WithEvents 流水帳手動輸入_tsm As ToolStripMenuItem
+    Friend WithEvents 商客資料導入_tsm As ToolStripMenuItem
 End Class

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

@@ -2,9 +2,10 @@
 Public Class GA_ERP_SYS
     Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click
         ' 建立子表單的新執行個體。
-        Dim ChildForm As New System.Windows.Forms.Form
         ' 將它變成這個 MDI 表單的子表單，然後才顯示。
-        ChildForm.MdiParent = Me
+        Dim ChildForm As New System.Windows.Forms.Form With {
+            .MdiParent = Me
+        }
         m_ChildFormNumber += 1
         ChildForm.Text = "視窗 " & m_ChildFormNumber
         ChildForm.Show()
@@ -33,6 +34,7 @@ Public Class GA_ERP_SYS
     End Sub
     Private m_ChildFormNumber As Integer
     Private Sub GA_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.ActiveControl = 使用者_cb
         '----------系統登入時抬頭資訊顯示---------------------------------------------------------------------------------------------------------------
         Me.Text = "GA ERP SYS" & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :  " & 版本
         '-----------------------帳號下拉清單------------------------------------------------------------------------------------------------------------
@@ -60,9 +62,11 @@ Public Class GA_ERP_SYS
         '----------資料庫系統管理-------------------------------------------------------------------------------------------------------------
         資料庫系統管理_tsm.Enabled = CC(1) : 系統使用者管理_tsm.Enabled = CC(2) : 系統編碼規則_tsm.Enabled = CC(3) : 系統執行檔版本管理_tsm.Enabled = CC(4)
         FTP_tsm.Enabled = CC(5) : 人員ID卡系統配置設定_tsm.Enabled = CC(6)
+        '----------特殊操作功能-------------------------------------------------------------------------------------------------------------
+        特殊操作功能_tsm.Enabled = CC(10) : 流水帳自動導入_tsm.Enabled = CC(11) : 流水帳手動輸入_tsm.Enabled = CC(12) : 商客資料導入_tsm.Enabled = CC(13)
     End Sub
     Private Sub GA_ERP_SYS_Close(sender As Object, e As EventArgs) Handles MyBase.Closed
-        LoginForm1.Close()
+        SQL_登入鎖定解除() : LoginForm1.Close()
     End Sub
     Private Sub 使用者_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 使用者_cb.SelectedIndexChanged
         For Each ChildForm As Form In Me.MdiChildren
@@ -89,16 +93,25 @@ Public Class GA_ERP_SYS
     Private Sub 基本資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 基本資料_tsm.Click
         PA = "" : 基本資料.Show() : 基本資料.BringToFront()
     End Sub
-    Private Sub 流水帳導入ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 流水帳手動輸入_tsm.Click
-        PA = "" : 流水帳手動輸入.Show() : 流水帳手動輸入.BringToFront()
+    Private Sub 流水帳查詢_tsm_Click(sender As Object, e As EventArgs) Handles 流水帳查詢_tsm.Click
+        PA = "" : 流水帳查詢.Show() : 流水帳查詢.BringToFront()
     End Sub
-    Private Sub 商客資料導入_tsm_Click(sender As Object, e As EventArgs) Handles 商客資料導入_tsm.Click
-        PA = "" : 商客資料導入.Show() : 商客資料導入.BringToFront()
+    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
+        PA = "" : 個人帳號管理.ShowDialog()
+    End Sub
+    Private Sub 計算機1_bt_Click(sender As Object, e As EventArgs) Handles 計算機1_bt.Click
+        PA = "" : 計算機.ShowDialog()
+    End Sub
+    Private Sub 計算機_bt_Click(sender As Object, e As EventArgs) Handles 計算機_bt.Click
+
     End Sub
     Private Sub 流水帳自動導入_tsm_Click(sender As Object, e As EventArgs) Handles 流水帳自動導入_tsm.Click
         PA = "" : 流水帳自動導入.ShowDialog()
     End Sub
-    Private Sub 流水帳查詢_tsm_Click(sender As Object, e As EventArgs) Handles 流水帳查詢_tsm.Click
-        PA = "" : 流水帳查詢.Show() : 流水帳查詢.BringToFront()
+    Private Sub 流水帳手動輸入_tsm_Click(sender As Object, e As EventArgs) Handles 流水帳手動輸入_tsm.Click
+        PA = "" : 流水帳手動輸入.Show() : 流水帳手動輸入.BringToFront()
+    End Sub
+    Private Sub 商客資料導入_tsm_Click(sender As Object, e As EventArgs) Handles 商客資料導入_tsm.Click
+        PA = "" : 商客資料導入.Show() : 商客資料導入.BringToFront()
     End Sub
 End Class

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

@@ -104,6 +104,12 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="基本資料管理\LOG檔.Designer.vb">
+      <DependentUpon>LOG檔.vb</DependentUpon>
+    </Compile>
+    <Compile Include="基本資料管理\LOG檔.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="報表系統管理\流水帳查詢.vb">
       <SubType>Form</SubType>
     </Compile>
@@ -114,10 +120,10 @@
     <Compile Include="Module\SQL_人事系統管理.vb" />
     <Compile Include="Module\SQL_資料庫系統管理.vb" />
     <Compile Include="Module\SQL_子系統管理.vb" />
-    <Compile Include="基本資料管理\商客資料導入.Designer.vb">
+    <Compile Include="特殊操作功能\商客資料導入.Designer.vb">
       <DependentUpon>商客資料導入.vb</DependentUpon>
     </Compile>
-    <Compile Include="基本資料管理\商客資料導入.vb">
+    <Compile Include="特殊操作功能\商客資料導入.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="基本資料管理\基本資料.Designer.vb">
@@ -126,16 +132,16 @@
     <Compile Include="基本資料管理\基本資料.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="基本資料管理\流水帳手動輸入.Designer.vb">
+    <Compile Include="特殊操作功能\流水帳手動輸入.Designer.vb">
       <DependentUpon>流水帳手動輸入.vb</DependentUpon>
     </Compile>
-    <Compile Include="基本資料管理\流水帳手動輸入.vb">
+    <Compile Include="特殊操作功能\流水帳手動輸入.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="基本資料管理\流水帳自動導入.Designer.vb">
+    <Compile Include="特殊操作功能\流水帳自動導入.Designer.vb">
       <DependentUpon>流水帳自動導入.vb</DependentUpon>
     </Compile>
-    <Compile Include="基本資料管理\流水帳自動導入.vb">
+    <Compile Include="特殊操作功能\流水帳自動導入.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="資料庫系統管理\FTP資料夾管理.Designer.vb">
@@ -188,6 +194,12 @@
     <Compile Include="資料庫系統管理\人員ID卡系統配置設定.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>
@@ -206,8 +218,17 @@
     <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="基本資料管理\LOG檔.resx">
+      <DependentUpon>LOG檔.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="報表系統管理\流水帳查詢.resx">
       <DependentUpon>流水帳查詢.vb</DependentUpon>
     </EmbeddedResource>
@@ -226,16 +247,16 @@
     <EmbeddedResource Include="SplashScreen1.resx">
       <DependentUpon>SplashScreen1.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="基本資料管理\商客資料導入.resx">
+    <EmbeddedResource Include="特殊操作功能\商客資料導入.resx">
       <DependentUpon>商客資料導入.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="基本資料管理\基本資料.resx">
       <DependentUpon>基本資料.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="基本資料管理\流水帳手動輸入.resx">
+    <EmbeddedResource Include="特殊操作功能\流水帳手動輸入.resx">
       <DependentUpon>流水帳手動輸入.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="基本資料管理\流水帳自動導入.resx">
+    <EmbeddedResource Include="特殊操作功能\流水帳自動導入.resx">
       <DependentUpon>流水帳自動導入.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\FTP資料夾管理.resx">
@@ -244,6 +265,9 @@
     <EmbeddedResource Include="資料庫系統管理\人員ID卡系統配置設定.resx">
       <DependentUpon>人員ID卡系統配置設定.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="資料庫系統管理\個人帳號管理.resx">
+      <DependentUpon>個人帳號管理.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\系統使用者管理.resx">
       <DependentUpon>系統使用者管理.vb</DependentUpon>
     </EmbeddedResource>
@@ -253,6 +277,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.Designer.vb

@@ -46,13 +46,16 @@ Partial Class LoginForm1
         Me.更新下載_ch = New System.Windows.Forms.CheckBox()
         Me.執行檔版本號_lb = New System.Windows.Forms.Label()
         Me.資料庫版本號_lb = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.FTP執行檔_wb = New System.Windows.Forms.WebBrowser()
         Me.使用者帳號_cb = New System.Windows.Forms.ComboBox()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.簡易_lb = New System.Windows.Forms.Label()
+        Me.簡易登入_dgv = New System.Windows.Forms.DataGridView()
+        Me.解鎖_bt = New System.Windows.Forms.Button()
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.簡易登入_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'UsernameLabel
@@ -86,15 +89,18 @@ Partial Class LoginForm1
         '
         '確認_bt
         '
+        Me.確認_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.確認_bt.Location = New System.Drawing.Point(226, 164)
         Me.確認_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.確認_bt.Name = "確認_bt"
         Me.確認_bt.Size = New System.Drawing.Size(92, 34)
         Me.確認_bt.TabIndex = 4
         Me.確認_bt.Text = "確定(&O)"
+        Me.確認_bt.UseVisualStyleBackColor = False
         '
         '取消_bt
         '
+        Me.取消_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.取消_bt.DialogResult = System.Windows.Forms.DialogResult.Cancel
         Me.取消_bt.Location = New System.Drawing.Point(333, 164)
         Me.取消_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -102,6 +108,7 @@ Partial Class LoginForm1
         Me.取消_bt.Size = New System.Drawing.Size(92, 34)
         Me.取消_bt.TabIndex = 5
         Me.取消_bt.Text = "取消(&C)"
+        Me.取消_bt.UseVisualStyleBackColor = False
         '
         'LogoPictureBox
         '
@@ -237,37 +244,6 @@ Partial Class LoginForm1
         Me.資料庫版本號_lb.TabIndex = 673
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
         '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label4.Location = New System.Drawing.Point(469, 3)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(100, 16)
-        Me.Label4.TabIndex = 674
-        Me.Label4.Text = "伺服器FTP文件夾"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label3.ForeColor = System.Drawing.Color.Red
-        Me.Label3.Location = New System.Drawing.Point(469, 17)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(188, 48)
-        Me.Label3.TabIndex = 675
-        Me.Label3.Text = "更新時請直接拖曳檔案到桌面，再" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "將原來的執行檔刪除即可，請不要" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "使用剪下的方式來更新檔案"
-        '
-        'FTP執行檔_wb
-        '
-        Me.FTP執行檔_wb.Location = New System.Drawing.Point(470, 66)
-        Me.FTP執行檔_wb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.FTP執行檔_wb.MinimumSize = New System.Drawing.Size(23, 27)
-        Me.FTP執行檔_wb.Name = "FTP執行檔_wb"
-        Me.FTP執行檔_wb.Size = New System.Drawing.Size(187, 151)
-        Me.FTP執行檔_wb.TabIndex = 676
-        Me.FTP執行檔_wb.Url = New System.Uri("", System.UriKind.Relative)
-        '
         '使用者帳號_cb
         '
         Me.使用者帳號_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -279,18 +255,72 @@ Partial Class LoginForm1
         Me.使用者帳號_cb.Size = New System.Drawing.Size(201, 24)
         Me.使用者帳號_cb.TabIndex = 677
         '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(462, 118)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(219, 94)
+        Me.Button1.TabIndex = 678
+        Me.Button1.Text = "開啟下載網頁，下載最新根新版本"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.Blue
+        Me.Label1.Location = New System.Drawing.Point(464, 10)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(217, 80)
+        Me.Label1.TabIndex = 679
+        Me.Label1.Text = "如果您的網頁沒有自動開啟，" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "請按下方按鈕，來開啟下載最" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "新版本的網頁。下載時請注意" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "防火牆或防毒軟體的阻擋!!"
+        '
+        '簡易_lb
+        '
+        Me.簡易_lb.AutoSize = True
+        Me.簡易_lb.BackColor = System.Drawing.Color.White
+        Me.簡易_lb.ForeColor = System.Drawing.Color.White
+        Me.簡易_lb.Location = New System.Drawing.Point(12, 7)
+        Me.簡易_lb.Name = "簡易_lb"
+        Me.簡易_lb.Size = New System.Drawing.Size(32, 16)
+        Me.簡易_lb.TabIndex = 680
+        Me.簡易_lb.Text = "簡易"
+        '
+        '簡易登入_dgv
+        '
+        Me.簡易登入_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.簡易登入_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.簡易登入_dgv.Location = New System.Drawing.Point(458, 4)
+        Me.簡易登入_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.簡易登入_dgv.Name = "簡易登入_dgv"
+        Me.簡易登入_dgv.RowHeadersWidth = 5
+        Me.簡易登入_dgv.RowTemplate.Height = 24
+        Me.簡易登入_dgv.Size = New System.Drawing.Size(327, 210)
+        Me.簡易登入_dgv.TabIndex = 681
+        Me.簡易登入_dgv.Visible = False
+        '
+        '解鎖_bt
+        '
+        Me.解鎖_bt.Location = New System.Drawing.Point(460, 215)
+        Me.解鎖_bt.Name = "解鎖_bt"
+        Me.解鎖_bt.Size = New System.Drawing.Size(325, 23)
+        Me.解鎖_bt.TabIndex = 682
+        Me.解鎖_bt.Text = "解鎖"
+        Me.解鎖_bt.UseVisualStyleBackColor = True
+        '
         'LoginForm1
         '
         Me.AcceptButton = Me.確認_bt
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.CancelButton = Me.取消_bt
-        Me.ClientSize = New System.Drawing.Size(720, 294)
+        Me.ClientSize = New System.Drawing.Size(789, 240)
+        Me.Controls.Add(Me.解鎖_bt)
+        Me.Controls.Add(Me.簡易_lb)
         Me.Controls.Add(Me.使用者帳號_cb)
-        Me.Controls.Add(Me.FTP執行檔_wb)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.資料庫版本號_lb)
         Me.Controls.Add(Me.執行檔版本號_lb)
         Me.Controls.Add(Me.更新下載_ch)
@@ -308,6 +338,9 @@ Partial Class LoginForm1
         Me.Controls.Add(Me.PasswordLabel)
         Me.Controls.Add(Me.UsernameLabel)
         Me.Controls.Add(Me.LogoPictureBox)
+        Me.Controls.Add(Me.簡易登入_dgv)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Button1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -319,6 +352,7 @@ Partial Class LoginForm1
         Me.Text = "GA-ERP-SYS"
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.簡易登入_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -335,9 +369,11 @@ Partial Class LoginForm1
     Friend WithEvents 更新下載_ch As CheckBox
     Friend WithEvents 執行檔版本號_lb As Label
     Friend WithEvents 資料庫版本號_lb As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents Label3 As Label
-    Friend WithEvents FTP執行檔_wb As WebBrowser
     Friend WithEvents 使用者帳號_cb As ComboBox
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 簡易_lb As Label
+    Friend WithEvents 簡易登入_dgv As DataGridView
+    Friend WithEvents 解鎖_bt As Button
 End Class

GA-ERP-SYS/LoginForm1.vb

@@ -1,8 +1,5 @@
-Imports System.Drawing
-Imports System.Net
-Imports System.Windows.Forms
+Imports System.Net
 Public Class LoginForm1
-
     ' TODO: 插入程式碼，利用提供的使用者名稱和密碼執行自訂驗證
     ' (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
     ' 如此便可將自訂主體附加到目前執行緒的主體，如下所示: 
@@ -10,7 +7,6 @@ Public Class LoginForm1
     ' 其中 CustomPrincipal 是用來執行驗證的 IPrincipal 實作。
     ' 接著，My.User 便會傳回封裝在 CustomPrincipal 物件中的識別資訊，
     ' 例如使用者名稱、顯示名稱等。
-    ReadOnly ds2 As New DataSet
     Dim MACKK As String 'MAC碼
     Dim diskId As String '數字ID
     Dim diskSerialNumber As String '硬碟序列
@@ -18,12 +14,16 @@ Public Class LoginForm1
     Public Property Credentials As ICredentials
     ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
     ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
-    Private Sub Set_清單1()
-        FTP清單_dgv.DataSource = Nothing : ds2.Clear()
-        FTP清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        FTP清單_dgv.ColumnHeadersHeight = 25 : FTP清單_dgv.AllowUserToAddRows = False
-        SQL_FTP資料夾路徑分配()
-        da.Fill(ds2) : FTP清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
+    ReadOnly ds As New DataSet
+    Private Sub Set_使用者清單()
+        簡易登入_dgv.DataSource = Nothing : ds.Clear()
+        簡易登入_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        簡易登入_dgv.ColumnHeadersHeight = 25
+        簡易登入_dgv.AllowUserToAddRows = False
+        簡易登入_dgv.RowTemplate.Height = 25
+        SQL_簡易登入清單()
+        da.Fill(ds) : 簡易登入_dgv.DataSource = ds.Tables(0) : conn.Close()
+        簡易登入_dgv.Columns(0).FillWeight = 80 : 簡易登入_dgv.Columns(1).FillWeight = 100 : 簡易登入_dgv.Columns(2).FillWeight = 80 : 簡易登入_dgv.Columns(3).FillWeight = 55
     End Sub
     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
@@ -31,14 +31,6 @@ Public Class LoginForm1
         執行檔版本號_lb.Text = "執行檔版本號 : " & 版本
         伺服器區域_ch.SelectedIndex = 0
 
-        '-----------------------調整視窗大小-----------------------------------------------------------------------------------------------------------------------------------------------
-        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)
-        ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.Location = New Point(487, 311)
-        ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.Location = New Point(407, 373)
-        ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(567, 311)
-        End If
         Me.ActiveControl = 使用者帳號_cb
         '-----MAC碼與硬碟資料-------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim Wmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
@@ -62,6 +54,12 @@ Public Class LoginForm1
         Else
             conn.Close() : MsgBox("該電腦沒有註冊，無法使用系統。") : Me.Close()
         End If
+        Set_使用者清單()
+    End Sub
+    Private Sub 簡易登入_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 簡易登入_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            使用者帳號_cb.Text = 簡易登入_dgv("ID卡號", e.RowIndex).Value.ToString
+        End If
     End Sub
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_ch.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
@@ -74,21 +72,18 @@ Public Class LoginForm1
         '-----------------------系統版本號驗證-----------------------------------------------------------------------------------------------------------------------------------------------
         SQL_系統版本號驗證()
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號 = dr("系統認證版本號") : End If : conn.Close()
-        '-----------------------FTP伺服器登入位置--------------------------------------------------------------------------------------------------------------------------------------------
-        SQL_FTP伺服器登入位置()
-        If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : FTP物理位置 = dr("FTP物理位置") : End If : conn.Close()
-        Set_清單1()
-        Dim HH As String = 0
-        For i As Integer = 0 To FTP清單_dgv.Rows.Count - 1
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
-            If FTP清單_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FTP清單_dgv("資料夾名稱", i).Value.ToString : End If
-        Next
-        Target1 = Target & AA(0) & "/"
-        FTP執行檔_wb.Url = New Uri(Target1)
 
         If Strings.Right(執行檔版本號_lb.Text, 10) <> Strings.Right(資料庫版本號_lb.Text, 10) Then
             自動更新2()
-        Else : End If
+        Else
+            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)
+            ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.Location = New Point(487, 311)
+            ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.Location = New Point(407, 373)
+            ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(567, 311)
+            End If
+        End If
     End Sub
     Private Sub 自動更新1()
         登入程序()
@@ -97,16 +92,15 @@ Public Class LoginForm1
         Dim aa1 As MsgBoxResult
         aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上，請下載最新的執行檔。", MsgBoxStyle.OkCancel)
         If aa1 = MsgBoxResult.Ok Then
-            With SaveFileDialog1 : .Filter = "所有文件(*.exe)|*.exe" : End With
-            SaveFileDialog1.FileName = "GA-ERP-SYS - " & 版本號 & ".exe"
-            SaveFileDialog1.ShowDialog()
-            If Strings.Right(SaveFileDialog1.FileName, 27) = "GA-ERP-SYS - " & 版本號 & ".exe" Then
-                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS - " & 版本號 & ".exe", SaveFileDialog1.FileName, "", "", True, 10000, True)
-                MsgBox("下載完成，請手動刪除就的執行檔，並且用新的執行檔開啟。")
-                Me.Close()
-            Else
-                MsgBox("操作不正確，請用手動方式下載更新。")
+            更新下載_ch.Checked = True
+            Me.Size = New Size(805, 279)
+            If screenWidth = 1920 And screenHeight = 1080 Then
+            ElseIf screenWidth = 1366 And screenHeight = 768 Then
+            ElseIf screenWidth = 1440 And screenHeight = 900 Then
+            ElseIf screenWidth = 1280 And screenHeight = 1024 Then
+            ElseIf screenWidth = 1600 And screenHeight = 900 Then
             End If
+            Shell("explorer http://106.1.50.79:8080/ga-erp-sys/", vbNormalFocus)
         End If
     End Sub
     Private Sub 登入程序()
@@ -141,7 +135,14 @@ Public Class LoginForm1
             If 密碼驗證_tb.Text = "" Then
                 MsgBox("帳號或密碼錯誤，請重新輸入!")
             Else
-                Hide() : GA_ERP_SYS.Show() : 密碼_tb.Text = "" : 帳號_tb.Text = ""
+                SQL_登入查詢()
+                If dr.Read() Then
+                    If dr("CC07") = True Then
+                        MsgBox("該帳號已在線上，無法重複登入!!  如需協助請找線上客服!!") : conn.Close()
+                    Else
+                        conn.Close() : SQL_登入鎖定() : conn.Close() : Hide() : GA_ERP_SYS.Show()
+                    End If
+                End If
             End If
         ElseIf 密碼_tb.Text <> 密碼驗證_tb.Text Then
             MsgBox("帳號或密碼錯誤，請重新輸入!")
@@ -150,7 +151,6 @@ Public Class LoginForm1
     Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 確認_bt.Click
         登入第一層()
     End Sub
-
     Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取消_bt.Click
         Me.Close()
     End Sub
@@ -163,8 +163,9 @@ Public Class LoginForm1
             ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.Location = New Point(407, 373)
             ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(567, 311)
             End If
+            簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False
         Else
-            Me.Size = New Size(705, 279)
+            If 簡易登入_dgv.Visible = True Then : Me.Size = New Size(805, 279) : Else : Me.Size = New Size(705, 279) : End If
             If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(608, 401)
             ElseIf screenWidth = 1366 And screenHeight = 768 Then : Me.Location = New Point(331, 245)
             ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.Location = New Point(368, 311)
@@ -201,5 +202,18 @@ Public Class LoginForm1
             End If
         End If
     End Sub
-
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Shell("explorer http://106.1.50.79:8080/ga-erp-sys/", vbNormalFocus)
+    End Sub
+    Private Sub 簡易_lb_Click(sender As Object, e As EventArgs) Handles 簡易_lb.Click
+        PA = InputBox("請輸入系統商管理密碼!!")
+        If PA = "753582" Then
+            簡易登入_dgv.Visible = True : 解鎖_bt.Visible = True : 更新下載_ch.Checked = True
+        Else
+            簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : 更新下載_ch.Checked = False
+        End If
+    End Sub
+    Private Sub 解鎖_bt_Click(sender As Object, e As EventArgs) Handles 解鎖_bt.Click
+        SQL_登入鎖定解除() : Set_使用者清單() : conn.Close() : 使用者帳號_cb.Text = ""
+    End Sub
 End Class

GA-ERP-SYS/Module/SQL_Module.vb

@@ -1,17 +1,21 @@
 Imports System.Data.SqlClient
 Module SQL_Module
-    Public ConString As String : Public ConString1 As String : Public SQL1 As String : Public SQL2 As String : Public SQL3 As String
+    Public ConString As String : Public ConString1 As String : Public ConString2 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
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String
-    Public 登入權限 As String = "姓名, 帳號, 密碼,ID卡號,主客戶,CC01,CC02,CC03,CC04,CC05,CC06"
+    Public 登入權限 As String = "姓名, 帳號, 密碼, ID卡號, 主客戶, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13"
 
-    Public 權限數量 As Integer = 6
+    Public 權限數量 As Integer = 13
     Friend Sub ConnOpen()
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Friend Sub ConnOpen_子SQL()
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString1 : conn.Open() : End If
     End Sub
+    Friend Sub ConnOpen_LOGSQL()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString2 : conn.Open() : End If
+    End Sub
     Friend Sub CmdSet_For_DGV()
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
     End Sub

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

@@ -3,75 +3,18 @@
     Friend Sub SQL_商品資料表()
         ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商品資料表 ORDER BY 商品" : CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_系統編碼規則_商品重複查詢()
-        SQL1 = "SELECT 商品 FROM 商品資料表 WHERE 商品 LIKE N'" & 基本資料.商品_tb.Text & "'"
-    End Sub
-    Friend Sub SQL_系統編碼規則_商品新增()
-        SQL1 = "INSERT INTO 商品資料表 (商品) VALUES (N'" & 基本資料.商品_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_商品刪除()
-        SQL1 = "DELETE FROM 商品資料表 WHERE (商品 = N'" & 基本資料.商品_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_商品修改()
-        SQL1 = "UPDATE 商品資料表 SET 商品 = N'" & PA & "' 
-                                  WHERE 商品 LIKE N'" & 基本資料.商品_tb.Text & "'"
-    End Sub
     '--------------------------------------基數資料表---------------------------------------------------
     Friend Sub SQL_基數資料表()
         ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表 ORDER BY 基數" : CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_系統編碼規則_基數重複查詢()
-        SQL1 = "SELECT 基數 FROM 基數資料表 WHERE 基數 LIKE N'" & 基本資料.基數_tb.Text & "'"
-    End Sub
-    Friend Sub SQL_系統編碼規則_基數新增()
-        SQL1 = "INSERT INTO 基數資料表 (基數) VALUES (N'" & 基本資料.基數_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_基數刪除()
-        SQL1 = "DELETE FROM 基數資料表 WHERE (基數 = N'" & 基本資料.基數_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_基數修改()
-        SQL1 = "UPDATE 基數資料表 SET 基數 = N'" & PA & "' 
-                                  WHERE 基數 LIKE N'" & 基本資料.基數_tb.Text & "'"
-    End Sub
     '----------------------------(長短版資料表)------------------------------
     Friend Sub SQL_長短板資料表()
         ConnOpen_子SQL() : SQL1 = "SELECT 資料 FROM 長短版資料表 ORDER BY 資料" : CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_系統編碼規則_資料重複查詢()
-        SQL1 = "SELECT 資料 FROM 長短版資料表 WHERE 資料 LIKE N'" & 基本資料.資料_tb.Text & "'"
-    End Sub
-    Friend Sub SQL_系統編碼規則_資料新增()
-        SQL1 = "INSERT INTO 長短版資料表 (資料) VALUES (N'" & 基本資料.資料_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_資料刪除()
-        SQL1 = "DELETE FROM 長短版資料表 WHERE (資料 = N'" & 基本資料.資料_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_資料修改()
-        SQL1 = "UPDATE 長短版資料表 SET 資料 = N'" & PA & "' 
-                                  WHERE 資料 LIKE N'" & 基本資料.資料_tb.Text & "'"
-    End Sub
-    '-----------------------------上行客戶-----------------------------------------
-    Friend Sub SQL_客戶上資料表()
-        ConnOpen_子SQL() : SQL1 = "SELECT 上行客戶, 網址, 帳號 FROM 上行客戶 ORDER BY 上行客戶" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_系統編碼規則_客戶上重複查詢()
-        SQL1 = "SELECT 上行客戶 FROM 上行客戶 
-                WHERE 上行客戶 LIKE N'" & 基本資料.客戶上_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址2_tb.Text & "' AND 帳號 LIKE N'" & 基本資料.帳號2_tb.Text & "'"
-    End Sub
-    Friend Sub SQL_系統編碼規則_客戶上新增()
-        SQL1 = "INSERT INTO 上行客戶 (上行客戶, 網址, 帳號) VALUES (N'" & 基本資料.客戶上_tb.Text & "', N'" & 基本資料.網址2_tb.Text & "', N'" & 基本資料.帳號2_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_客戶上刪除()
-        SQL1 = "DELETE FROM 上行客戶 WHERE (上行客戶 = N'" & 基本資料.客戶上_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址2_tb.Text & "' AND 帳號 LIKE N'" & 基本資料.帳號2_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_客戶上修改()
-        SQL1 = "UPDATE 上行客戶 SET 上行客戶 = N'" & PA & "', 網址 = N'" & PA1 & "', 帳號 = N'" & PA2 & "'
-                                  WHERE 上行客戶 LIKE N'" & 基本資料.客戶上_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址2_tb.Text & "' AND 帳號 LIKE N'" & 基本資料.帳號2_tb.Text & "'"
-    End Sub
     '-----------------------下行客戶--------------------------------------------------------------------
     Friend Sub SQL_基本資料_客戶下資料表()
         ConnOpen_子SQL()
-        SQL1 = "SELECT     下行客戶.客戶下, 下行客戶.網址, 下行客戶.帳號, 下行客戶.基數, 商客基本資料表.商品
+        SQL1 = "SELECT     商客基本資料表.商品, 下行客戶.網址, 下行客戶.帳號 AS 老闆帳號, 下行客戶.客戶下 AS 客戶帳號, 下行客戶.基數 AS 客戶名稱, 下行客戶.流水號
                 FROM       下行客戶 LEFT OUTER JOIN
                            商客基本資料表 ON 下行客戶.網址 = 商客基本資料表.網址 AND 下行客戶.帳號 = 商客基本資料表.帳號
                 ORDER BY   商客基本資料表.商品, 下行客戶.帳號"
@@ -79,7 +22,7 @@
     End Sub
     Friend Sub SQL_系統編碼規則_客戶下重複查詢()
         SQL1 = "SELECT 客戶下 FROM 下行客戶 
-                WHERE  客戶下 LIKE N'" & 基本資料.客戶上_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址3_tb.Text & "' AND 
+                WHERE  客戶下 LIKE N'" & 基本資料.客戶下_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址3_tb.Text & "' AND 
                        帳號 LIKE N'" & 基本資料.帳號3_tb.Text & "' AND 基數 LIKE N'" & 基本資料.下行1_cb.Text & "'"
     End Sub
     Friend Sub SQL_系統編碼規則_客戶下新增()
@@ -87,31 +30,14 @@
                 VALUES (N'" & 基本資料.客戶下_tb.Text & "', N'" & 基本資料.網址3_tb.Text & "', N'" & 基本資料.帳號3_tb.Text & "', N'" & 基本資料.下行1_cb.Text & "')"
     End Sub
     Friend Sub SQL_系統編碼規則_客戶下刪除()
-        SQL1 = "DELETE FROM 下行客戶  WHERE  客戶下 LIKE N'" & 基本資料.客戶上_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址3_tb.Text & "' AND 
+        SQL1 = "DELETE FROM 下行客戶  WHERE  客戶下 LIKE N'" & 基本資料.客戶下_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址3_tb.Text & "' AND 
                        帳號 LIKE N'" & 基本資料.帳號3_tb.Text & "' AND 基數 LIKE N'" & 基本資料.下行1_cb.Text & "'"
     End Sub
     Friend Sub SQL_系統編碼規則_客戶下修改()
         SQL1 = "UPDATE 下行客戶 SET 客戶下 = N'" & PA & "', 網址 = N'" & PA1 & "', 帳號 = N'" & PA2 & "', 基數 = N'" & PA3 & "'
-                WHERE  客戶下 LIKE N'" & 基本資料.客戶上_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址3_tb.Text & "' AND 
+                WHERE  客戶下 LIKE N'" & 基本資料.客戶下_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址3_tb.Text & "' AND 
                        帳號 LIKE N'" & 基本資料.帳號3_tb.Text & "' AND 基數 LIKE N'" & 基本資料.下行1_cb.Text & "'"
     End Sub
-    '--------------------------------結帳日期-----------------------------------------------------------
-    Friend Sub SQL_日期資料表()
-        ConnOpen_子SQL() : SQL1 = "SELECT 日期 FROM 結帳日期 ORDER BY 日期" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_系統編碼規則_日期重複查詢()
-        SQL1 = "SELECT 日期 FROM 結帳日期 WHERE 日期 LIKE N'" & 基本資料.日期_tb.Text & "'"
-    End Sub
-    Friend Sub SQL_系統編碼規則_日期新增()
-        SQL1 = "INSERT INTO 結帳日期 (日期) VALUES (N'" & 基本資料.日期_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_日期刪除()
-        SQL1 = "DELETE FROM 結帳日期 WHERE (日期 = N'" & 基本資料.日期_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_日期修改()
-        SQL1 = "UPDATE 結帳日期 SET 日期 = N'" & PA & "' 
-                                  WHERE 日期 LIKE N'" & 基本資料.日期_tb.Text & "'"
-    End Sub
     '--------------------------商客基本資料表------------------------------------------------------
     Friend Sub SQL_商客資料表()
         ConnOpen_子SQL()
@@ -148,28 +74,6 @@
     Friend Sub SQL_上行清單讀取()
         ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表" : CmdSet_For_dr()
     End Sub
-    '-----------------------------------------長短表資料表頭------------------------------------
-    Friend Sub SQL_長短資料表()
-        ConnOpen_子SQL() : SQL1 = "SELECT 資料,會員,代理,總代理,股東,大股東,總監,上繳金額,個人所得,水差 FROM 長短版資料表頭" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_系統編碼規則_長短重複查詢()
-        SQL1 = "SELECT 資料,會員,代理,總代理,股東,大股東,總監,上繳金額,個人所得,水差  FROM 長短版資料表頭 WHERE (資料 LIKE N'" & 基本資料.資料表頭_cb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_長短新增()
-        SQL1 = "INSERT INTO 長短版資料表頭 (資料,會員,代理,總代理,股東,大股東,總監,上繳金額,個人所得,水差) 
-                            VALUES (N'" & 基本資料.資料表頭_cb.Text & "',N'" & 基本資料.會員_tb.Text & "',N'" & 基本資料.代理_tb.Text & "',N'" & 基本資料.總代理_tb.Text & "',
-                                    N'" & 基本資料.股東_tb.Text & "', N'" & 基本資料.大股東_tb.Text & "', N'" & 基本資料.總監_tb.Text & "', N'" & 基本資料.上繳金額_tb.Text & "',
-                                    N'" & 基本資料.個人所得_tb.Text & "', N'" & 基本資料.水差_tb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_長短刪除()
-        SQL1 = "DELETE FROM 長短版資料表頭 WHERE (資料 LIKE N'" & 基本資料.資料表頭_cb.Text & "')"
-    End Sub
-    Friend Sub SQL_系統編碼規則_長短修改()
-        SQL1 = "UPDATE 長短版資料表頭 SET 資料 = N'" & PA & "' , 會員 = N'" & PA1 & "',代理 = N'" & PA2 & "', 總代理 = N'" & PA3 & "',
-                                          股東 = N'" & PA4 & "', 大股東 = N'" & PA5 & "',總監 = N'" & PA6 & "',上繳金額 = N'" & PA7 & "',
-                                          個人所得 = N'" & PA8 & "',水差 = N'" & PA9 & "'
-                                  WHERE (資料 LIKE N'" & 基本資料.資料表頭1_cb.Text & "')"
-    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],資料流水號
@@ -254,9 +158,6 @@
     Friend Sub SQL_商客比對_商品新增()
         ConnOpen_子SQL() : SQL1 = "INSERT INTO 商品資料表 (商品) VALUES (N'" & PA & "')" : CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_商客比對_客戶上修改()
-        ConnOpen_子SQL() : SQL1 = "INSERT INTO 上行客戶 (上行客戶, 網址, 帳號) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "')" : CmdSet_For_dr()
-    End Sub
     '--------------------------流水帳自動導入------------------------------------------------------
     Friend Sub SQL_查詢日期清空()
         ConnOpen_子SQL() : SQL1 = "DELETE  查詢時間" : CmdSet_For_dr()
@@ -264,14 +165,14 @@
     Friend Sub SQL_流水帳同日期清除()
         ConnOpen_子SQL()
         SQL1 = "DELETE  流水帳 
-                WHERE  (開始日期 LIKE N'" & Format(流水帳自動導入.開始日期_dtp.Value, "yyyy-MM-dd") & "' AND 
-                        結束日期 LIKE N'" & Format(流水帳自動導入.結束日期_dtp.Value, "yyyy-MM-dd") & "')"
+                WHERE  (開始日期 LIKE N'" & PA1 & "' AND 結束日期 LIKE N'" & PA2 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_查詢日期寫入()
-        ConnOpen_子SQL()
-        SQL1 = "INSERT INTO 查詢時間 (開始, 結束) VALUES (N'" & Format(流水帳自動導入.開始日期_dtp.Value, "yyyy-MM-dd") & "', N'" & Format(流水帳自動導入.結束日期_dtp.Value, "yyyy-MM-dd") & "')"
-        CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO 查詢時間 (開始, 結束, 是否全導) VALUES (N'" & PA1 & "', N'" & PA2 & "', '0')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢日期寫入1()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO 查詢時間 (開始, 結束, 是否全導) VALUES (N'" & PA1 & "', N'" & PA2 & "', '1')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_自動導入判斷()
         ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 正在自動導入中 FROM 自動導入判斷" : CmdSet_For_dr()
@@ -282,78 +183,112 @@
     Friend Sub SQL_SQL_自動導入判斷_開啟()
         ConnOpen_子SQL() : SQL1 = "UPDATE 自動導入判斷 Set 正在自動導入中 = N'YES'" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_LOG_刪除1()
+        ConnOpen_子SQL() : SQL1 = "DELETE [LOG] WHERE 查詢區間 LIKE N'" & PA1 & "-" & PA2 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG_刪除2()
+        ConnOpen_子SQL() : SQL1 = "DELETE [LOG] WHERE 查詢區間 LIKE N'" & PA1 & "-" & PA2 & "' AND 狀態 LIKE N'無法取得資料'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_查詢日期資料()
+        ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 開始, 結束 FROM 查詢時間" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG查詢3()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
+                WHERE 查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND 狀態 LIKE N'查詢期間無資料'"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LOG查詢4()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 
+                WHERE 查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND 狀態 LIKE N'無法取得資料'"
+        CmdSet_For_DGV()
+    End Sub
     '--------------------------流水帳查詢------------------------------------------------------
     Friend Sub SQL_流水帳查詢()
         ConnOpen_子SQL()
-        SQL1 = "SELECT      流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50) AS 網址, 流水帳.帳戶, 商客基本資料表.商品, 
-                            商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 商客基本資料表.上繳源 AS 老闆, 
-                            流水帳.名稱 AS 客戶, 商客基本資料表.上行基數 AS 天帳, 商客基本資料表.下行基數 AS 地帳, 
-                            商客基本資料表.上行基數 AS 個人所得, 商客基本資料表.下行基數 AS 水差, 商客基本資料表.上行基數 AS 天帳1, 商客基本資料表.下行基數 AS 地帳1, 
-                            商客基本資料表.上行基數 AS 個人所得1, 商客基本資料表.下行基數 AS 水差1, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 
-                            流水帳.輸贏, 流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 
-                            流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 流水帳.調退實佔, 流水帳.上繳, 
-                            流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 
-                            流水帳.輸贏s, 流水帳.客戶小計s, 流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 
-                            流水帳.總監小計s, 流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 下行客戶.基數 AS 下行
-                FROM        流水帳 LEFT OUTER JOIN
-                            下行客戶 ON SUBSTRING(流水帳.網址, 7, 50) = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 AND 
-                            (流水帳.名稱 = 下行客戶.客戶下 OR
-                            流水帳.客戶s = 下行客戶.客戶下) LEFT OUTER JOIN
-                            商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 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 & "%')
-                GROUP BY    流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50), 流水帳.帳戶, 商客基本資料表.商品, 
-                            商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 商客基本資料表.上繳源, 
-                            流水帳.名稱, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 
-                            流水帳.輸贏, 流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 
-                            流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 流水帳.調退實佔, 流水帳.上繳, 
-                            流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 
-                            流水帳.輸贏s, 流水帳.客戶小計s, 流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 
-                            流水帳.總監小計s, 流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 下行客戶.基數
-                ORDER BY    商客基本資料表.商品, 網址, 流水帳.帳戶"
+        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.上繳金額, 
+                            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.客帳, 選擇按鈕.按鈕, QQQ.帳戶 AS 客名
+                FROM        選擇按鈕 RIGHT OUTER JOIN
+                           (SELECT          流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50) AS 網址, 流水帳.帳戶, 
+                                            商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
+                                            商客基本資料表.上繳源 AS 老闆, 流水帳.名稱 AS 客戶, 商客基本資料表.上行基數 AS 天帳, 
+                                            商客基本資料表.下行基數 AS 地帳, 商客基本資料表.上行基數 AS 個人所得, 
+                                            商客基本資料表.下行基數 AS 水差, 商客基本資料表.上行基數 AS 核帳, 
+                                            商客基本資料表.上行基數 AS 天帳1, 商客基本資料表.下行基數 AS 地帳1, 
+                                            商客基本資料表.上行基數 AS 個人所得1, 商客基本資料表.下行基數 AS 水差1, 流水帳.總量, 
+                                            流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 
+                                            流水帳.自已總輸贏, 流水帳.上繳貢獻額, 流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 
+                                            流水帳.玩法明細, 流水帳.調盤退水, 流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 
+                                            流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 
+                                            流水帳.輸贏s, 流水帳.客戶小計s, 流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 
+                                            流水帳.大股東小計s, 流水帳.總監小計s, 流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 
+                                            流水帳.查看對帳s, 商客基本資料表.上繳源 AS 客帳
+                            FROM            流水帳 LEFT OUTER JOIN 商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 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 
+                                           (SUBSTRING(流水帳.網址, 7, 50) LIKE N'%" & PA40 & "%')
+                            GROUP BY        流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50), 流水帳.帳戶, 
+                                            商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 
+                                            商客基本資料表.上繳源, 流水帳.名稱, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 
+                                            流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 
+                                            流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 
+                                            流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 
+                                            流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 
+                                            流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 
+                                            流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s) AS QQQ ON 
+                            選擇按鈕.選擇 = QQQ.商品
+                ORDER BY    QQQ.商品, QQQ.網址, QQQ.帳戶"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_彙總查詢()
         ConnOpen_子SQL()
-        SQL1 = "SELECT     商客基本資料表.商品, 商客基本資料表.上繳源 AS 老闆, 
-                           商客基本資料表.上繳源 AS 天帳, 商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 
-                           商客基本資料表.上繳源 AS 水差
-                FROM       流水帳 LEFT OUTER JOIN
-                           商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 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 & "%')
-                GROUP BY   商客基本資料表.商品, 商客基本資料表.上繳源
-                ORDER BY   商客基本資料表.商品"
+        SQL1 = "SELECT      商客基本資料表.商品, 商客基本資料表.上繳源 AS 老闆, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.上繳源 AS 天帳, 
+                            商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 商客基本資料表.上繳源 AS 水差, 商客基本資料表.上繳源 AS 核帳, 
+                            商客基本資料表.網址 AS 狀態, 商客基本資料表.密碼
+                FROM        流水帳 FULL OUTER JOIN
+                            商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 AND 
+                            流水帳.帳戶 = 商客基本資料表.帳號
+                WHERE      (商客基本資料表.商品 LIKE N'%" & 流水帳查詢.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 流水帳查詢.老闆_cb.Text & "%') AND 
+                            商客基本資料表.網址 LIKE N'%" & PA40 & "%'
+                GROUP BY    商客基本資料表.商品, 商客基本資料表.上繳源, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.密碼
+                ORDER BY    商客基本資料表.商品"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_彙總查詢1()
         ConnOpen_子SQL()
-        SQL1 = "SELECT     商客基本資料表.商品, 
-                           商客基本資料表.商品 AS 天帳, 商客基本資料表.商品 AS 地帳, 商客基本資料表.商品 AS 個人所得, 
-                           商客基本資料表.商品 AS 水差
-                FROM       流水帳 LEFT OUTER JOIN
-                           商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 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 & "%')
-                GROUP BY   商客基本資料表.商品
-                ORDER BY   商客基本資料表.商品"
+        SQL1 = "SELECT      商客基本資料表.商品, 
+                            商客基本資料表.商品 AS 天帳, 商客基本資料表.商品 AS 地帳, 商客基本資料表.商品 AS 個人所得, 
+                            商客基本資料表.商品 AS 水差, 商客基本資料表.商品 AS 核帳
+                FROM        流水帳 FULL OUTER JOIN
+                            商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 AND 
+                            流水帳.帳戶 = 商客基本資料表.帳號
+                WHERE      (商客基本資料表.商品 LIKE N'%" & 流水帳查詢.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 流水帳查詢.老闆_cb.Text & "%') AND 
+                            商客基本資料表.網址 LIKE N'%" & PA40 & "%'
+                GROUP BY    商客基本資料表.商品
+                ORDER BY    商客基本資料表.商品"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_彙總查詢2()
         ConnOpen_子SQL()
-        SQL1 = "SELECT     商客基本資料表.上繳源 AS 老闆, 
-                           商客基本資料表.上繳源 AS 天帳, 商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 
-                           商客基本資料表.上繳源 AS 水差
-                FROM       流水帳 LEFT OUTER JOIN
-                           商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 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 & "%')
-                GROUP BY   商客基本資料表.上繳源
-                ORDER BY   商客基本資料表.上繳源"
+        SQL1 = "SELECT      商客基本資料表.上繳源 AS 老闆, 
+                            商客基本資料表.上繳源 AS 天帳, 商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 
+                            商客基本資料表.上繳源 AS 水差, 商客基本資料表.上繳源 AS 核帳
+                FROM        流水帳 FULL OUTER JOIN
+                            商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 AND 
+                            流水帳.帳戶 = 商客基本資料表.帳號
+                WHERE      (商客基本資料表.商品 LIKE N'%" & 流水帳查詢.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 流水帳查詢.老闆_cb.Text & "%') AND 
+                            商客基本資料表.網址 LIKE N'%" & PA40 & "%'
+                GROUP BY    商客基本資料表.上繳源
+                ORDER BY    商客基本資料表.上繳源"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_流水帳_清除()
@@ -364,7 +299,7 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_流水帳日期()
-        ConnOpen_子SQL() : SQL1 = "SELECT 開始日期, 結束日期 FROM 流水帳 GROUP BY 開始日期, 結束日期 ORDER BY 結束日期 DESC" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "SELECT 開始日期, 結束日期 FROM 流水帳 GROUP BY 開始日期, 結束日期 ORDER BY 結束日期 DESC" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_流水帳上繳()
         ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 FROM 商客基本資料表 GROUP BY 上繳源 ORDER BY 上繳源" : CmdSet_For_dr()
@@ -373,7 +308,7 @@
         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'" & PA3 & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA4 & "', N'" & PA3 & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_流水帳_客戶下修改()
         ConnOpen_子SQL()
@@ -381,6 +316,32 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_客戶下資料表()
-        ConnOpen_子SQL() : SQL1 = "SELECT 客戶下, 網址, 帳號, 基數 FROM 下行客戶 ORDER BY 客戶下" : CmdSet_For_DGV()
+        ConnOpen_子SQL() : SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 基數 AS 客戶名稱 FROM 下行客戶" : CmdSet_For_DGV()
+    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_刪除()
+        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
 End Module

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

@@ -29,4 +29,16 @@
     Friend Sub SQL_讀取子資料庫()
         ConnOpen() : SQL1 = "SELECT 客戶, 資料庫, IP位置, 帳號, 密碼 FROM 客戶資料表 WHERE 客戶 LIKE N'" & 登入客戶 & "'" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_登入查詢()
+        ConnOpen() : SQL1 = "SELECT CC07 FROM 使用者權限管理表 WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_登入鎖定()
+        ConnOpen() : SQL1 = "UPDATE 使用者權限管理表 SET  CC07 = N'1' WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_登入鎖定解除()
+        ConnOpen() : SQL1 = "UPDATE 使用者權限管理表 SET  CC07 = N'0' WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_簡易登入清單()
+        ConnOpen() : SQL1 = "SELECT 姓名, ID卡號, 主客戶, CC07 AS 鎖定 FROM 使用者權限管理表" : CmdSet_For_DGV()
+    End Sub
 End Module

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

@@ -4,7 +4,7 @@
         SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 系統執行檔版本管理.版本號_tb.Text & "' WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理.資料庫版本號_lb.Text, 10) & "')"
         CmdSet_For_dr()
     End Sub
-    '------------------------------------FTP資料夾管理-------
+    '------------------------------------FTP資料夾管理----------------------------------------------
     Friend Sub SQL_FTP資料夾管理新增()
         ConnOpen()
         SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) 
@@ -34,16 +34,23 @@
         ConnOpen()
         SQL1 = "INSERT INTO 使用者權限管理表 (" & 登入權限 & ") " &
                "VALUES (N'" & 系統使用者管理.姓名_tb.Text & "',N'" & 系統使用者管理.帳號_tb.Text & "',N'" & 系統使用者管理.密碼_tb.Text & "', '',N'" & 系統使用者管理.主客戶_cb.Text & "',
-                        N'" & 系統使用者管理.CheckBox1.Checked & "', N'" & 系統使用者管理.CheckBox2.Checked & "',N'" & 系統使用者管理.CheckBox3.Checked & "',
-                        N'" & 系統使用者管理.CheckBox4.Checked & "', N'" & 系統使用者管理.CheckBox5.Checked & "',N'" & 系統使用者管理.CheckBox6.Checked & "')"
+                        N'" & 系統使用者管理.CheckBox1.Checked & "', N'" & 系統使用者管理.CheckBox2.Checked & "', N'" & 系統使用者管理.CheckBox3.Checked & "',
+                        N'" & 系統使用者管理.CheckBox4.Checked & "', N'" & 系統使用者管理.CheckBox5.Checked & "', N'" & 系統使用者管理.CheckBox6.Checked & "',
+                        N'" & 系統使用者管理.CheckBox7.Checked & "', N'" & 系統使用者管理.CheckBox8.Checked & "', N'" & 系統使用者管理.CheckBox9.Checked & "', 
+                        N'" & 系統使用者管理.CheckBox10.Checked & "', N'" & 系統使用者管理.CheckBox11.Checked & "', N'" & 系統使用者管理.CheckBox12.Checked & "', 
+                        N'" & 系統使用者管理.CheckBox13.Checked & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者修改()
         ConnOpen()
         SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = N'" & 系統使用者管理.姓名_tb.Text & "', 密碼 = N'" & 系統使用者管理.密碼_tb.Text & "', 
                                             CC01 = N'" & 系統使用者管理.CheckBox1.Checked & "', CC02 = N'" & 系統使用者管理.CheckBox2.Checked & "', 
-                                       CC03 = N'" & 系統使用者管理.CheckBox3.Checked & "', CC04 = N'" & 系統使用者管理.CheckBox4.Checked & "', CC05 = N'" & 系統使用者管理.CheckBox5.Checked & "', 
-                                       CC06 = N'" & 系統使用者管理.CheckBox6.Checked & "'                    
+                                            CC03 = N'" & 系統使用者管理.CheckBox3.Checked & "', CC04 = N'" & 系統使用者管理.CheckBox4.Checked & "', 
+                                            CC05 = N'" & 系統使用者管理.CheckBox5.Checked & "', CC06 = N'" & 系統使用者管理.CheckBox6.Checked & "', 
+                                            CC07 = N'" & 系統使用者管理.CheckBox7.Checked & "', CC08 = N'" & 系統使用者管理.CheckBox8.Checked & "', 
+                                            CC09 = N'" & 系統使用者管理.CheckBox9.Checked & "', CC010 = N'" & 系統使用者管理.CheckBox10.Checked & "', 
+                                            CC11 = N'" & 系統使用者管理.CheckBox11.Checked & "', CC12 = N'" & 系統使用者管理.CheckBox12.Checked & "', 
+                                            CC13 = N'" & 系統使用者管理.CheckBox13.Checked & "'                   
                 WHERE (帳號 = N'" & 系統使用者管理.帳號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
@@ -53,20 +60,64 @@
     Friend Sub SQL_下拉式清單讀取()
         ConnOpen() : SQL1 = "SELECT 客戶 FROM 客戶資料表 " : CmdSet_For_dr()
     End Sub
-    '--------------系統編碼規則(客戶基本資料表)------------------------------------------
+    '--------------系統編碼規則----------------------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_LOG多餘資料刪除()
+        ConnOpen_LOGSQL() : SQL1 = "DELETE [LOG] WHERE (狀態 LIKE N'查詢期間無資料')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG子資料表()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT  客戶, 查詢區間, 網址, 狀態, 查詢時間
+                FROM    [LOG]
+                WHERE  (狀態 LIKE N'無法取得資料')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LOG主資料表()
+        ConnOpen_LOGSQL()
+        SQL1 = "SELECT [LOG].客戶 AS 項, [LOG].客戶, [LOG].查詢區間, [LOG].網址, [LOG].狀態, [LOG].查詢時間, 選擇按鈕.按鈕 AS 比對
+                FROM [LOG] LEFT OUTER JOIN 選擇按鈕 ON [LOG].客戶 = 選擇按鈕.選擇"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LOG主資料表刪除1()
+        ConnOpen_LOGSQL() : SQL1 = "DELETE [LOG] WHERE 查詢區間 = N'" & PA1 & "' AND 網址 = N'" & PA2 & "' AND 客戶 = N'" & PA3 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG主資料表刪除2()
+        ConnOpen_LOGSQL() : SQL1 = "DELETE [LOG] WHERE 客戶 = N'" & 系統編碼規則.客戶名_tb.Text & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG主資料表刪除3()
+        ConnOpen_子SQL() : SQL1 = "DELETE [LOG]" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG資料庫修改()
+        ConnOpen()
+        SQL1 = "UPDATE LOGDB SET 資料庫 = N'" & 系統編碼規則.LOG資料庫_tb.Text & "', IP位置 = N'" & 系統編碼規則.IP_tb.Text & "', 
+                                   帳號 = N'" & 系統編碼規則.帳號_tb.Text & "', 密碼 = N'" & 系統編碼規則.密碼_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LOG資料庫讀取()
+        ConnOpen() : SQL1 = "SELECT 資料庫, IP位置, 帳號, 密碼 FROM LOGDB" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_客戶資料表()
-        ConnOpen() : SQL1 = "SELECT  客戶,資料庫 FROM 客戶資料表 ORDER BY 客戶" : CmdSet_For_DGV()
+        ConnOpen() : SQL1 = "SELECT  客戶, 資料庫, IP位置, 帳號, 密碼 FROM 客戶資料表 ORDER BY 客戶" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_系統編碼規則_客戶重複查詢()
         SQL1 = "SELECT 客戶 FROM 客戶資料表 WHERE 客戶 LIKE N'" & PA & "'"
     End Sub
     Friend Sub SQL_系統編碼規則_客戶新增()
-        SQL1 = "INSERT INTO 客戶資料表 (客戶, 資料庫) VALUES (N'" & PA & "', N'" & PA1 & "')"
+        SQL1 = "INSERT INTO 客戶資料表 (客戶, 資料庫, IP位置, 帳號, 密碼) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
     End Sub
     Friend Sub SQL_系統編碼規則_客戶修改()
-        SQL1 = "UPDATE 客戶資料表 SET 客戶 = N'" & PA & "', 資料庫 = N'" & PA1 & "' WHERE 資料庫 LIKE N'" & PA3 & "' AND 客戶 LIKE N'" & PA2 & "'"
+        SQL1 = "UPDATE 客戶資料表 SET 客戶 = N'" & PA & "', 資料庫 = N'" & PA1 & "', IP位置 = N'" & PA4 & "', 帳號 = N'" & PA5 & "', 密碼 = N'" & PA6 & "' 
+                WHERE 資料庫 LIKE N'" & PA3 & "' AND 客戶 LIKE N'" & PA2 & "'"
     End Sub
     Friend Sub SQL_系統編碼規則_客戶刪除()
         SQL1 = "DELETE FROM 客戶資料表 WHERE (客戶 = N'" & PA2 & "' AND 資料庫 LIKE N'" & PA3 & "')"
     End Sub
+    '------------------------------------個人帳號管理----------------------------------------------
+    Friend Sub SQL_個人帳號管理讀取()
+        ConnOpen() : SQL1 = "SELECT 姓名, 帳號, 密碼 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_個人帳號修改()
+        ConnOpen()
+        SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = '" & 個人帳號管理.TextBox2.Text & "', 密碼 = '" & 個人帳號管理.TextBox3.Text & "' WHERE (姓名 = '" & 個人帳號管理.TextBox1.Text & "')"
+        CmdSet_For_dr()
+    End Sub
 End Module

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

@@ -5,5 +5,8 @@
     Friend Sub SQL_連線字串_子SQL()
         ConString1 = "Data Source=" & 登入人IP2 & ";Initial Catalog=" & 子SQL名稱 & ";Persist Security Info=True;User ID=" & 業務帳號 & ";Password=" & 業務密碼 & ";Max pool size = 200;Connection Timeout=0"
     End Sub
+    Friend Sub SQL_連線字串_LOGSQL()
+        ConString2 = "Data Source=" & 登入人IP3 & ";Initial Catalog=" & 子SQL名稱1 & ";Persist Security Info=True;User ID=" & 業務帳號1 & ";Password=" & 業務密碼1 & ";Max pool size = 200;Connection Timeout=0"
+    End Sub
 End Module
 

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

@@ -1,9 +1,11 @@
 Module 全域變數
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public g_conn_type As String = "" : Public gUserName As String : Public 登入人IP As String : Public 登入人IP2 As String
+    Public g_conn_type As String = "" : Public gUserName As String
+    Public 登入人IP As String : Public 登入人IP2 As String : Public 登入人IP3 As String
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean
-    Public 子SQL名稱 As String : Public 登入客戶 As String : Public 登入資料庫 As String : Public 業務帳號 As String : Public 業務密碼 As String : Public 業務名稱 As String
+    Public 子SQL名稱 As String : Public 子SQL名稱1 As String : Public 登入客戶 As String : Public 登入資料庫 As String : Public 業務名稱 As String
+    Public 業務帳號 As String : Public 業務密碼 As String : Public 業務帳號1 As String : Public 業務密碼1 As String
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 版本 As String = "2021061001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

GA-ERP-SYS/bin/Debug/000.csv

@@ -1,2 +0,0 @@
-8888,
-TEST,

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

@@ -1 +1 @@
-641182233235fa9a80335368ef9787ee47fd0e39
+5ec5f9b8767be611ccb8cbc5b4c00a38e35be97d

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

@@ -84,3 +84,30 @@ D:\工巧明\GAME- Accounting-SYS\GA-REG-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbp
 D:\工巧明\GAME- Accounting-SYS\GA-REG-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳手動輸入.resources
 D:\工巧明\GAME- Accounting-SYS\GA-REG-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳自動導入.resources
 D:\工巧明\GAME- Accounting-SYS\GA-REG-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳查詢.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe.config
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.pdb
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.xml
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbprojAssemblyReference.cache
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳查詢.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.GA_ERP_SYS.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LoginForm1.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.Resources.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.SplashScreen1.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.商客資料導入.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.基本資料.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳手動輸入.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳自動導入.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.FTP資料夾管理.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.人員ID卡系統配置設定.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.個人帳號管理.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統使用者管理.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統執行檔版本管理.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統編碼規則.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.GenerateResource.cache
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CoreCompileInputs.cache
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LOG檔.resources
+D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.計算機.resources

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

@@ -0,0 +1,119 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class LOG檔
+    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 DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.LOG2_dgv = New System.Windows.Forms.DataGridView()
+        Me.LOG1_dgv = New System.Windows.Forms.DataGridView()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        CType(Me.LOG2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LOG1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(2, 190)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(92, 16)
+        Me.Label7.TabIndex = 1547
+        Me.Label7.Text = "網址抓資料錯誤"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(5, 5)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(68, 16)
+        Me.Label6.TabIndex = 1546
+        Me.Label6.Text = "本期無資料"
+        '
+        'LOG2_dgv
+        '
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.LOG2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.LOG2_dgv.Location = New System.Drawing.Point(5, 210)
+        Me.LOG2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG2_dgv.Name = "LOG2_dgv"
+        Me.LOG2_dgv.RowHeadersWidth = 4
+        Me.LOG2_dgv.RowTemplate.Height = 24
+        Me.LOG2_dgv.Size = New System.Drawing.Size(710, 162)
+        Me.LOG2_dgv.TabIndex = 1545
+        '
+        'LOG1_dgv
+        '
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.Silver
+        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.LOG1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.LOG1_dgv.Location = New System.Drawing.Point(5, 25)
+        Me.LOG1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG1_dgv.Name = "LOG1_dgv"
+        Me.LOG1_dgv.RowHeadersWidth = 4
+        Me.LOG1_dgv.RowTemplate.Height = 24
+        Me.LOG1_dgv.Size = New System.Drawing.Size(710, 162)
+        Me.LOG1_dgv.TabIndex = 1544
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.Location = New System.Drawing.Point(5, 376)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(710, 71)
+        Me.存檔_bt.TabIndex = 1548
+        Me.存檔_bt.Text = "自動導入完成!!，請注意上方LOG資料，手動紀錄網址。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        'LOG檔
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(726, 451)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.LOG2_dgv)
+        Me.Controls.Add(Me.LOG1_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 = "LOG檔"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "LOG檔"
+        CType(Me.LOG2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LOG1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents LOG2_dgv As DataGridView
+    Friend WithEvents LOG1_dgv As DataGridView
+    Friend WithEvents 存檔_bt As Button
+End Class

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

@@ -0,0 +1,37 @@
+Public Class LOG檔
+    ReadOnly ds5, ds6 As New DataSet
+    Private Sub Set_LOG1()
+        LOG1_dgv.DataSource = Nothing : ds5.Clear() : LOG1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LOG1_dgv.ColumnHeadersHeight = 25
+        LOG1_dgv.AllowUserToAddRows = False
+        SQL_LOG查詢3()
+        da.Fill(ds5) : LOG1_dgv.DataSource = ds5.Tables(0) : conn.Close()
+        LOG1_dgv.Columns(0).FillWeight = 40
+        LOG1_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        For I As Integer = 0 To LOG1_dgv.Rows.Count - 1
+            LOG1_dgv.Rows(I).Cells("項次").Value = I + 1
+        Next
+    End Sub
+    Private Sub Set_LOG2()
+        LOG2_dgv.DataSource = Nothing : ds6.Clear() : LOG2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LOG2_dgv.ColumnHeadersHeight = 25
+        LOG2_dgv.AllowUserToAddRows = False
+        SQL_LOG查詢4()
+        da.Fill(ds6) : LOG2_dgv.DataSource = ds6.Tables(0) : conn.Close()
+        LOG2_dgv.Columns(0).FillWeight = 40
+        LOG2_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        For I As Integer = 0 To LOG2_dgv.Rows.Count - 1
+            LOG2_dgv.Rows(I).Cells("項次").Value = I + 1
+        Next
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        Me.Close()
+    End Sub
+    Private Sub LOG檔_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SQL_查詢日期資料()
+        If dr.Read() Then
+            PA = dr("開始").ToString : PA1 = dr("結束").ToString
+        End If
+        Set_LOG1() : Set_LOG2()
+    End Sub
+End Class

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

@@ -1,5 +1,5 @@
 Public Class 基本資料
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet
+    ReadOnly ds, ds1, ds2, ds4, ds6 As New DataSet
     Private Sub Set_商品清單()
         商品_dgv.DataSource = Nothing : ds.Clear() : 商品_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         商品_dgv.ColumnHeadersHeight = 25
@@ -29,16 +29,6 @@
         資料_dgv.Columns(0).FillWeight = 80
         資料_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     End Sub
-    Private Sub Set_客戶上清單()
-        客戶上_dgv.DataSource = Nothing : ds3.Clear()
-        客戶上_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        客戶上_dgv.ColumnHeadersHeight = 25
-        客戶上_dgv.AllowUserToAddRows = False
-        SQL_客戶上資料表()
-        da.Fill(ds3) : 客戶上_dgv.DataSource = ds3.Tables(0) : conn.Close()
-        客戶上_dgv.Columns(0).FillWeight = 80 : 客戶上_dgv.Columns(1).FillWeight = 200 : 客戶上_dgv.Columns(2).FillWeight = 80
-        客戶上_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-    End Sub
     Private Sub Set_客戶下清單()
         客戶下_dgv.DataSource = Nothing : ds4.Clear()
         客戶下_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -46,20 +36,10 @@
         客戶下_dgv.AllowUserToAddRows = False
         SQL_基本資料_客戶下資料表()
         da.Fill(ds4) : 客戶下_dgv.DataSource = ds4.Tables(0) : conn.Close()
-        客戶下_dgv.Columns(0).FillWeight = 120 : 客戶下_dgv.Columns(1).FillWeight = 200 : 客戶下_dgv.Columns(2).FillWeight = 80 : 客戶下_dgv.Columns(3).FillWeight = 80
-        客戶下_dgv.Columns(4).FillWeight = 80
+        客戶下_dgv.Columns(0).FillWeight = 80 : 客戶下_dgv.Columns(1).FillWeight = 200 : 客戶下_dgv.Columns(2).FillWeight = 80 : 客戶下_dgv.Columns(3).FillWeight = 80
+        客戶下_dgv.Columns(4).FillWeight = 80 : 客戶下_dgv.Columns(5).Visible = False
         客戶下_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     End Sub
-    Private Sub Set_日期清單()
-        日期_dgv.DataSource = Nothing : ds5.Clear()
-        日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        日期_dgv.ColumnHeadersHeight = 25
-        日期_dgv.AllowUserToAddRows = False
-        SQL_日期資料表()
-        da.Fill(ds5) : 日期_dgv.DataSource = ds5.Tables(0) : conn.Close()
-        日期_dgv.Columns(0).FillWeight = 80
-        日期_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-    End Sub
     Private Sub Set_商客清單()
         商客_dgv.DataSource = Nothing : ds6.Clear()
         商客_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -70,16 +50,6 @@
         商客_dgv.Columns(0).FillWeight = 140
         商客_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     End Sub
-    Private Sub Set_長短表清單()
-        長短_dgv.DataSource = Nothing : ds7.Clear()
-        長短_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        長短_dgv.ColumnHeadersHeight = 25
-        長短_dgv.AllowUserToAddRows = False
-        SQL_長短資料表()
-        da.Fill(ds7) : 長短_dgv.DataSource = ds7.Tables(0) : conn.Close()
-        長短_dgv.Columns(0).FillWeight = 120
-        長短_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-    End Sub
     Private Sub 重開()
         dr.Close() : ConnOpen_子SQL()
     End Sub
@@ -88,16 +58,13 @@
     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
-        Set_商品清單() : Set_基數清單() : Set_資料清單() : Set_客戶上清單() : Set_客戶下清單() : Set_日期清單() : Set_商客清單() : Set_長短表清單()
+        Set_商品清單() : Set_基數清單() : Set_資料清單() : Set_客戶下清單() : Set_商客清單()
         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_下拉資料清單讀取()
-        資料表頭_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()
         '-------------------------------------------------------------------------------------------------------
@@ -123,7 +90,7 @@
         If e.RowIndex = 客戶下_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If 客戶下_dgv(4, e.RowIndex).Value.ToString <> 客戶下_dgv(4, e.RowIndex + 1).Value.ToString Then
+            If 客戶下_dgv(0, e.RowIndex).Value.ToString <> 客戶下_dgv(0, e.RowIndex + 1).Value.ToString Then
                 Dim startX As Integer = IIf(客戶下_dgv.RowHeadersVisible, 客戶下_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                 Dim endX As Integer = startX + 客戶下_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 客戶下_dgv.HorizontalScrollingOffset
@@ -132,170 +99,6 @@
             End If
         End If
     End Sub
-    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
-        資料_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) : 客戶上_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
-        商品_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) : 基數_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
-        客戶下_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) : 日期_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
-        商客_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) : 長短_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
-    End Sub
-    '--------------------------------------商品資料表-------------------------------------------------------
-    Private Sub 商品_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 商品_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            商品_tb.Text = 商品_dgv("商品", e.RowIndex).Value.ToString
-        End If
-    End Sub
-    Private Sub 商品新增_bt_Click(sender As Object, e As EventArgs) Handles 商品新增_bt.Click
-        If 商品_tb.Text = "" Then
-            MsgBox("資料沒有完整，請重新檢查")
-        Else
-            連結() : SQL_系統編碼規則_商品重複查詢() : CmdSet_For_dr()
-            If dr.Read() Then
-                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
-            Else
-                重開() : SQL_系統編碼規則_商品新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_商品清單()
-    End Sub
-    Private Sub 商品修正_bt_Click(sender As Object, e As EventArgs) Handles 商品修正_bt.Click
-        If 商品_tb.Text = "" Then
-            MsgBox("資料有缺或有誤，請重新檢查")
-        Else
-            PA = InputBox("請輸入要修改的內容")
-            If PA = "" Then
-                MsgBox("不能空白")
-            Else
-                連結() : SQL_系統編碼規則_商品修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_商品清單()
-    End Sub
-    Private Sub 商品刪除_bt_Click(sender As Object, e As EventArgs) Handles 商品刪除_bt.Click
-        SQL_系統編碼規則_商品刪除()
-        ConnOpen_子SQL()
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            CmdSet_For_dr() : MsgBox("刪除完成")
-        End If
-        conn.Close() : Set_商品清單()
-    End Sub
-    '-----------------------------------------------(基數資料表)------------------------------------------------------------
-    Private Sub 基數新增_tb_Click(sender As Object, e As EventArgs) Handles 基數新增_tb.Click
-        If 基數_tb.Text = "" Then
-            MsgBox("資料沒有完整，請重新檢查")
-        Else
-            連結() : SQL_系統編碼規則_基數重複查詢() : CmdSet_For_dr()
-            If dr.Read() Then
-                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
-            Else
-                重開() : SQL_系統編碼規則_基數新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_基數清單()
-    End Sub
-    Private Sub 基數修正_tb_Click(sender As Object, e As EventArgs) Handles 基數修正_tb.Click
-        If 基數_tb.Text = "" Then
-            MsgBox("資料有缺或有誤，請重新檢查")
-        Else
-            PA = InputBox("請輸入要修改的內容")
-            If PA = "" Then
-                MsgBox("不能空白")
-            Else
-                連結() : SQL_系統編碼規則_基數修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_基數清單()
-    End Sub
-    Private Sub 基數刪除_tb_Click(sender As Object, e As EventArgs) Handles 基數刪除_tb.Click
-        SQL_系統編碼規則_基數刪除()
-        ConnOpen_子SQL()
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            CmdSet_For_dr() : MsgBox("刪除完成")
-        End If
-        conn.Close() : Set_基數清單()
-    End Sub
-    Private Sub 基數_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 基數_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            基數_tb.Text = 基數_dgv("基數", e.RowIndex).Value.ToString
-        End If
-    End Sub
-    '---------------------------------(長短版資料表)------------------------------------------------------------------------
-    Private Sub 資料新增_bt_Click(sender As Object, e As EventArgs) Handles 資料新增_bt.Click
-        If 資料_tb.Text = "" Then
-            MsgBox("資料沒有完整，請重新檢查")
-        Else
-            連結() : SQL_系統編碼規則_資料重複查詢() : CmdSet_For_dr()
-            If dr.Read() Then
-                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
-            Else
-                重開() : SQL_系統編碼規則_資料新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_資料清單()
-    End Sub
-    Private Sub 資料刪除_bt_Click(sender As Object, e As EventArgs) Handles 資料刪除_bt.Click
-        SQL_系統編碼規則_資料刪除()
-        ConnOpen_子SQL()
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            CmdSet_For_dr() : MsgBox("刪除完成")
-        End If
-        conn.Close() : Set_資料清單()
-    End Sub
-    Private Sub 資料修正_bt_Click(sender As Object, e As EventArgs) Handles 資料修正_bt.Click
-        If 資料_tb.Text = "" Then
-            MsgBox("資料有缺或有誤，請重新檢查")
-        Else
-            PA = InputBox("請輸入要修改的內容")
-            If PA = "" Then
-                MsgBox("不能空白")
-            Else
-                連結() : SQL_系統編碼規則_資料修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_資料清單()
-    End Sub
-    Private Sub 資料_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 資料_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            資料_tb.Text = 資料_dgv("資料", e.RowIndex).Value.ToString
-        End If
-    End Sub
-    '----------上行客戶-----------------------------------------------------------------------------------------
-    Private Sub 客戶上_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 客戶上_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            客戶上_tb.Text = 客戶上_dgv("上行客戶", e.RowIndex).Value.ToString : 網址2_tb.Text = 客戶上_dgv("網址", e.RowIndex).Value.ToString
-            帳號2_tb.Text = 客戶上_dgv("帳號", e.RowIndex).Value.ToString
-        End If
-    End Sub
-    Private Sub 客戶上新增_bt_Click(sender As Object, e As EventArgs) Handles 客戶上新增_bt.Click
-        If 客戶上_tb.Text = "" Or 網址2_tb.Text = "" Or 帳號2_tb.Text = "" Then
-            MsgBox("資料沒有完整，請重新檢查")
-        Else
-            連結() : SQL_系統編碼規則_客戶上重複查詢() : CmdSet_For_dr()
-            If dr.Read() Then
-                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
-            Else
-                重開() : SQL_系統編碼規則_客戶上新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_客戶上清單()
-    End Sub
-    Private Sub 客戶上修正_bt_Click(sender As Object, e As EventArgs) Handles 客戶上修正_bt.Click
-        If 客戶上_tb.Text = "" Or 網址2_tb.Text = "" Or 帳號2_tb.Text = "" Then
-            MsgBox("資料有缺或有誤，請重新檢查")
-        Else
-            PA = InputBox("是否修正老闆名稱??", "", 客戶上_tb.Text) : PA1 = InputBox("是否修正網址??", "", 網址2_tb.Text) : PA2 = InputBox("是否修正帳號??", "", 帳號2_tb.Text)
-            If PA = "" Then
-                MsgBox("不能空白")
-            Else
-                連結() : SQL_系統編碼規則_客戶上修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_客戶上清單()
-    End Sub
-    Private Sub 客戶上刪除_bt_Click(sender As Object, e As EventArgs) Handles 客戶上刪除_bt.Click
-        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            ConnOpen_子SQL() : SQL_系統編碼規則_客戶上刪除() : CmdSet_For_dr() : MsgBox("刪除完成")
-        End If
-        conn.Close() : Set_客戶上清單()
-    End Sub
     '----------------------------------------------下行客戶----------------------------------------------------------------
     Private Sub 客戶下新增_bt_Click(sender As Object, e As EventArgs) Handles 客戶下新增_bt.Click
         If 客戶下_tb.Text = "" Or 網址3_tb.Text = "" Or 帳號3_tb.Text = "" Or 下行1_cb.Text = "" Then
@@ -333,51 +136,11 @@
     End Sub
     Private Sub 客戶下_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 客戶下_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            客戶下_tb.Text = 客戶下_dgv("客戶下", e.RowIndex).Value.ToString
+            客戶下_tb.Text = 客戶下_dgv("客戶帳號", e.RowIndex).Value.ToString
             網址3_tb.Text = 客戶下_dgv("網址", e.RowIndex).Value.ToString
-            帳號3_tb.Text = 客戶下_dgv("帳號", e.RowIndex).Value.ToString
-            下行1_cb.Text = 客戶下_dgv("基數", e.RowIndex).Value.ToString
-        End If
-    End Sub
-    '------------------------------------------------結帳日期--------------------------------------------------------
-    Private Sub 日期_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 日期_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            日期_tb.Text = 日期_dgv("日期", e.RowIndex).Value.ToString
-        End If
-    End Sub
-    Private Sub 日期新增_dgv_Click(sender As Object, e As EventArgs) Handles 日期新增_bt.Click
-        If 日期_tb.Text = "" Then
-            MsgBox("資料沒有完整，請重新檢查")
-        Else
-            連結() : SQL_系統編碼規則_日期重複查詢() : CmdSet_For_dr()
-            If dr.Read() Then
-                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
-            Else
-                重開() : SQL_系統編碼規則_日期新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_日期清單()
-    End Sub
-    Private Sub 日期刪除_dgv_Click(sender As Object, e As EventArgs) Handles 日期刪除_bt.Click
-        SQL_系統編碼規則_日期刪除()
-        ConnOpen_子SQL()
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            CmdSet_For_dr() : MsgBox("刪除完成")
+            帳號3_tb.Text = 客戶下_dgv("老闆帳號", e.RowIndex).Value.ToString
+            下行1_cb.Text = 客戶下_dgv("客戶名稱", e.RowIndex).Value.ToString
         End If
-        conn.Close() : Set_日期清單()
-    End Sub
-    Private Sub 日期修正_dgv_Click(sender As Object, e As EventArgs) Handles 日期修正_bt.Click
-        If 日期_tb.Text = "" Then
-            MsgBox("資料有缺或有誤，請重新檢查")
-        Else
-            PA = InputBox("請輸入要修改的內容")
-            If PA = "" Then
-                MsgBox("不能空白")
-            Else
-                連結() : SQL_系統編碼規則_日期修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_日期清單()
     End Sub
     '-----------------------------------商客基本資料表-----------------------------------------
     Private Sub 商客_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 商客_dgv.CellClick
@@ -419,50 +182,4 @@
             連結() : SQL_系統編碼規則_商客修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
         End If : Set_商客清單()
     End Sub
-    '-------------------------------------------------------長短版資料表頭---------------
-    Private Sub 長短_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 長短_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            資料表頭_cb.Text = 長短_dgv("資料", e.RowIndex).Value.ToString : 會員_tb.Text = 長短_dgv("會員", e.RowIndex).Value.ToString
-            代理_tb.Text = 長短_dgv("代理", e.RowIndex).Value.ToString : 總代理_tb.Text = 長短_dgv("總代理", e.RowIndex).Value.ToString
-            股東_tb.Text = 長短_dgv("股東", e.RowIndex).Value.ToString : 大股東_tb.Text = 長短_dgv("大股東", e.RowIndex).Value.ToString
-            總監_tb.Text = 長短_dgv("總監", e.RowIndex).Value.ToString : 上繳金額_tb.Text = 長短_dgv("上繳金額", e.RowIndex).Value.ToString
-            個人所得_tb.Text = 長短_dgv("個人所得", e.RowIndex).Value.ToString : 水差_tb.Text = 長短_dgv("水差", e.RowIndex).Value.ToString
-            資料表頭1_cb.Text = 長短_dgv("資料", e.RowIndex).Value.ToString
-        End If
-    End Sub
-    Private Sub 長短新增_bt_Click(sender As Object, e As EventArgs) Handles 長短新增_bt.Click
-        If 資料表頭_cb.Text = "" Or 會員_tb.Text = "" Or 代理_tb.Text = "" Or 總代理_tb.Text = "" Or 股東_tb.Text = "" Or 大股東_tb.Text = "" Or 水差_tb.Text = "" Then
-            MsgBox("資料沒有完整，請重新檢查")
-        Else
-            連結() : SQL_系統編碼規則_長短重複查詢() : CmdSet_For_dr()
-            If dr.Read() Then
-                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
-            Else
-                重開() : SQL_系統編碼規則_長短新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_長短表清單()
-    End Sub
-    Private Sub 長短修正_bt_Click(sender As Object, e As EventArgs) Handles 長短修正_bt.Click
-        If 資料表頭_cb.Text = "" Or 會員_tb.Text = "" Or 股東_tb.Text = "" Or 水差_tb.Text = "" Or 代理_tb.Text = "" Or 總代理_tb.Text = "" Then
-            MsgBox("資料有缺或有誤，請重新檢查")
-        Else
-            PA = 資料表頭_cb.Text : PA1 = 會員_tb.Text : PA2 = 代理_tb.Text : PA3 = 總代理_tb.Text : PA4 = 股東_tb.Text : PA5 = 大股東_tb.Text
-            PA6 = 總監_tb.Text : PA7 = 上繳金額_tb.Text : PA8 = 個人所得_tb.Text : PA9 = 水差_tb.Text
-            If PA = "" Then
-                MsgBox("不能空白")
-            Else
-                連結() : SQL_系統編碼規則_長短修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
-            End If
-        End If : Set_長短表清單()
-    End Sub
-    Private Sub 長短刪除_bt_Click(sender As Object, e As EventArgs) Handles 長短刪除_bt.Click
-        SQL_系統編碼規則_長短刪除()
-        ConnOpen_子SQL()
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            CmdSet_For_dr() : MsgBox("刪除完成")
-        End If
-        conn.Close() : Set_長短表清單()
-    End Sub
 End Class

GA-ERP-SYS/報表系統管理/流水帳查詢.resx

@@ -117,4 +117,13 @@
   <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>23, 6</value>
+  </metadata>
+  <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>115, 6</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>37</value>
+  </metadata>
 </root>

GA-ERP-SYS/報表系統管理/流水帳查詢.vb

@@ -1,11 +1,22 @@
-Public Class 流水帳查詢
-    ReadOnly ds, ds1, ds2, ds3, ds4 As New DataSet
+Option Strict Off
+Imports System.IO
+Imports System.Text
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Public Class 流水帳查詢
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet : Dim 批次, N1, N2, N3 As Integer : Dim GP As Integer = 0 : Dim GPP As String
     Private Sub Set_客戶下清單()
         客戶下_dgv.DataSource = Nothing : ds4.Clear()
         客戶下_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         客戶下_dgv.ColumnHeadersHeight = 25
         客戶下_dgv.AllowUserToAddRows = False
-        SQL_客戶下資料表()
+        PA40 = 網址_tb.Text : SQL_客戶下資料表()
         da.Fill(ds4) : 客戶下_dgv.DataSource = ds4.Tables(0) : conn.Close()
         客戶下_dgv.Columns(0).FillWeight = 80 : 客戶下_dgv.Columns(1).FillWeight = 200 : 客戶下_dgv.Columns(2).FillWeight = 80
         客戶下_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
@@ -14,29 +25,25 @@
         流水帳_dgv.DataSource = Nothing : ds.Clear() : 流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         流水帳_dgv.ColumnHeadersHeight = 25
         流水帳_dgv.AllowUserToAddRows = False
-        SQL_流水帳查詢()
+        PA40 = 網址_tb.Text : SQL_流水帳查詢()
         da.Fill(ds) : 流水帳_dgv.DataSource = ds.Tables(0) : conn.Close()
-
+        流水帳_dgv.Columns("水差").Visible = False
         流水帳_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
 
-        Set_商客清單_基數1() : Set_商客清單_基數2()
-        流水帳_dgv.Columns("網址").FillWeight = 200 : 流水帳_dgv.Columns("客戶").FillWeight = 150
+        流水帳_dgv.Columns("網址").FillWeight = 200 : 流水帳_dgv.Columns("客戶").FillWeight = 150 : 流水帳_dgv.Columns(1).FillWeight = 110
         流水帳_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        流水帳_dgv.Columns(7).Visible = False : 流水帳_dgv.Columns(9).Visible = False
-        For i As Integer = 16 To 55 : 流水帳_dgv.Columns(i).Visible = False : Next
+        流水帳_dgv.Columns("核帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        流水帳_dgv.Columns(7).Visible = False : 流水帳_dgv.Columns(6).Visible = False
+        For i As Integer = 15 To 55 : 流水帳_dgv.Columns(i).Visible = False : Next
         計算()
     End Sub
     Private Sub 計算()
         For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
-            If 流水帳_dgv.Rows(i).Cells("下行").Value.ToString = "" Then : Else
-                If 流水帳_dgv.Rows(i).Cells("下行基數").Value.ToString = 流水帳_dgv.Rows(i).Cells("下行").Value.ToString Then : Else
-                    流水帳_dgv.Rows(i).Cells("下行基數").Value = 流水帳_dgv.Rows(i).Cells("下行").Value.ToString
-                End If
-            End If
-
+            流水帳_dgv.Rows(i).Cells("按鈕").Value = False
             If Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短版" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短板" Then
                 流水帳_dgv.Rows(i).Cells("客戶").Value = 流水帳_dgv.Rows(i).Cells("客戶s").Value.ToString
                 流水帳_dgv.Rows(i).Cells("個人所得").Value = 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString
@@ -138,34 +145,46 @@
                 流水帳_dgv.Rows(i).Cells("個人所得").Value = "長短版沒轉到" : 流水帳_dgv.Rows(i).Cells("水差").Value = "長短版沒轉到"
             End If
 
-            流水帳_dgv.Rows(i).Cells("天帳").Value = Format(Val(流水帳_dgv.Rows(i).Cells("天帳1").Value), "#,##0")
-            流水帳_dgv.Rows(i).Cells("地帳").Value = Format(Val(流水帳_dgv.Rows(i).Cells("地帳1").Value), "#,##0")
-            流水帳_dgv.Rows(i).Cells("個人所得").Value = Format(Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value), "#,##0")
-            流水帳_dgv.Rows(i).Cells("水差").Value = Format(Val(流水帳_dgv.Rows(i).Cells("水差1").Value), "#,##0")
+            流水帳_dgv.Rows(i).Cells("地帳1").Value = Val(流水帳_dgv.Rows(i).Cells("地帳1").Value) * -1
+            流水帳_dgv.Rows(i).Cells("核帳").Value = Val(流水帳_dgv.Rows(i).Cells("天帳1").Value) + Val(流水帳_dgv.Rows(i).Cells("地帳1").Value) +
+                                                     Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value)
+
+            流水帳_dgv.Rows(i).Cells("天帳").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("天帳1").Value), "#,##0")
+            流水帳_dgv.Rows(i).Cells("地帳").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("地帳1").Value), "#,##0")
+            流水帳_dgv.Rows(i).Cells("個人所得").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value), "#,##0")
+            流水帳_dgv.Rows(i).Cells("水差").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("水差1").Value), "#,##0")
+            流水帳_dgv.Rows(i).Cells("核帳").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("核帳").Value), "#,##0")
+
+            流水帳_dgv.Rows(i).Cells("客帳").Value = StrReverse(流水帳_dgv.Rows(i).Cells("客戶").Value.ToString)
+            Dim 帳號 As String = "" : Dim 單字 As String : Dim 開始數 As Integer
+            If Strings.Left(流水帳_dgv.Rows(i).Cells("客帳").Value.ToString, 1) = ")" Then
+                開始數 = 2
+            Else
+                開始數 = 3
+            End If
+            For H As Integer = 0 To 50
+                單字 = Strings.Mid(流水帳_dgv.Rows(i).Cells("客帳").Value.ToString, 開始數, 1)
+                If 單字 = " " Or 單字 = "(" Then
+                    Exit For
+                Else
+                    帳號 &= 單字
+                End If
+                開始數 += 1
+            Next
+            流水帳_dgv.Rows(i).Cells("客帳").Value = StrReverse(帳號)
+
+            For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
+                If 流水帳_dgv("客帳", i).Value.ToString = 客戶下_dgv("客戶帳號", ii).Value.ToString Then
+                    流水帳_dgv("客名", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString : Exit For
+                Else
+                    流水帳_dgv("客名", i).Value = ""
+                End If
+            Next
         Next
-        Set_流水帳清單2() : Set_流水帳清單3() : Set_流水帳清單4()
-    End Sub
-    Private Sub Set_商客清單_基數1()
-        Dim Col As New DataGridViewComboBoxColumn With {
-            .FillWeight = 100,
-            .DataPropertyName = "上行基數"
-        }
-        SQL_基數讀取()
-        Col.Items.Clear()
-        While (dr.Read()) : Col.Items.Add(dr("基數")) : End While : conn.Close()
-        Col.HeaderText = "上行基數" : Col.Name = "上行基數"
-        流水帳_dgv.Columns.Insert(6, Col)
-    End Sub
-    Private Sub Set_商客清單_基數2()
-        Dim Col As New DataGridViewComboBoxColumn With {
-            .FillWeight = 100,
-            .DataPropertyName = "下行基數"
-        }
-        SQL_基數讀取()
-        Col.Items.Clear()
-        While (dr.Read()) : Col.Items.Add(dr("基數")) : End While : conn.Close()
-        Col.HeaderText = "下行基數" : Col.Name = "下行基數"
-        流水帳_dgv.Columns.Insert(8, Col)
+        Set_LOG1() : Set_LOG2() : Set_流水帳清單2() : Set_流水帳清單3() : Set_流水帳清單4()
+        If 資料_cb.Text <> "" Then
+            開始日期_dtp.Value = Strings.Left(資料_cb.Text, 10) : 結束日期_dtp.Value = Strings.Right(資料_cb.Text, 10)
+        End If
     End Sub
     Private Sub Set_流水帳清單2()
         彙總_dgv.DataSource = Nothing : ds1.Clear() : 彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -175,11 +194,13 @@
         da.Fill(ds1) : 彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
         彙總_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-
+        彙總_dgv.Columns(0).FillWeight = 90 : 彙總_dgv.Columns(1).FillWeight = 75 : 彙總_dgv.Columns(2).FillWeight = 130 : 彙總_dgv.Columns(3).FillWeight = 80
+        彙總_dgv.Columns(7).Visible = False : 彙總_dgv.Columns(8).FillWeight = 60 : 彙總_dgv.Columns(9).FillWeight = 45 : 彙總_dgv.Columns(10).Visible = False
         彙總_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns("核帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
         天帳_tb.Text = "0" : 地帳_tb.Text = "0" : 所得_tb.Text = "0" : 水差_tb.Text = "0"
         For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
@@ -187,7 +208,8 @@
             彙總_dgv.Rows(i).Cells("個人所得").Value = "0" : 彙總_dgv.Rows(i).Cells("水差").Value = "0"
             For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                 If 彙總_dgv.Rows(i).Cells("商品").Value.ToString = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString And
-                    彙總_dgv.Rows(i).Cells("老闆").Value.ToString = 流水帳_dgv.Rows(ii).Cells("老闆").Value.ToString Then
+                    彙總_dgv.Rows(i).Cells("老闆").Value.ToString = 流水帳_dgv.Rows(ii).Cells("老闆").Value.ToString And
+                    彙總_dgv.Rows(i).Cells("帳號").Value.ToString = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString Then
                     彙總_dgv.Rows(i).Cells("天帳").Value = Val(彙總_dgv.Rows(i).Cells("天帳").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳1").Value)
                     彙總_dgv.Rows(i).Cells("地帳").Value = Val(彙總_dgv.Rows(i).Cells("地帳").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳1").Value)
                     彙總_dgv.Rows(i).Cells("個人所得").Value = Val(彙總_dgv.Rows(i).Cells("個人所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value)
@@ -195,18 +217,52 @@
                 End If
             Next
 
+            If 流水帳_dgv.Rows.Count = 0 Then
+                彙總_dgv.Rows(i).Cells("狀態").Value = "NA"
+            Else
+                For ii As Integer = 0 To LOG1_dgv.Rows.Count - 1
+                    If 彙總_dgv.Rows(i).Cells("狀態").Value.ToString = LOG1_dgv.Rows(ii).Cells("網址").Value.ToString And
+                        彙總_dgv.Rows(i).Cells("天帳").Value.ToString = "0" And 彙總_dgv.Rows(i).Cells("地帳").Value.ToString = "0" Then
+                        彙總_dgv.Rows(i).Cells("狀態").Value = "NA"
+                    End If
+                Next
+
+                For ii As Integer = 0 To LOG2_dgv.Rows.Count - 1
+                    If 彙總_dgv.Rows(i).Cells("狀態").Value.ToString = LOG2_dgv.Rows(ii).Cells("網址").Value.ToString Then
+                        彙總_dgv.Rows(i).Cells("狀態").Value = "X"
+                    ElseIf 彙總_dgv.Rows(i).Cells("狀態").Value.ToString <> "NA" And 彙總_dgv.Rows(i).Cells("天帳").Value.ToString <> "0" And
+                        彙總_dgv.Rows(i).Cells("地帳").Value.ToString <> "0" Then
+                        彙總_dgv.Rows(i).Cells("狀態").Value = "V"
+                    End If
+                Next
+                If 流水帳_dgv.Rows.Count <> 0 And 彙總_dgv.Rows(i).Cells("天帳").Value.ToString <> "0" And
+                       彙總_dgv.Rows(i).Cells("地帳").Value.ToString <> "0" And 彙總_dgv.Rows(i).Cells("狀態").Value <> "X" And
+                       彙總_dgv.Rows(i).Cells("狀態").Value <> "V" And 彙總_dgv.Rows(i).Cells("狀態").Value <> "NA" Then
+                    彙總_dgv.Rows(i).Cells("狀態").Value = "V"
+                ElseIf 流水帳_dgv.Rows.Count <> 0 And 彙總_dgv.Rows(i).Cells("天帳").Value.ToString = "0" And
+                       彙總_dgv.Rows(i).Cells("地帳").Value.ToString = "0" And 彙總_dgv.Rows(i).Cells("狀態").Value <> "X" And
+                       彙總_dgv.Rows(i).Cells("狀態").Value <> "V" And 彙總_dgv.Rows(i).Cells("狀態").Value <> "NA" Then
+                    彙總_dgv.Rows(i).Cells("狀態").Value = "NA"
+                End If
+            End If
+
             天帳_tb.Text = Val(天帳_tb.Text) + Val(彙總_dgv.Rows(i).Cells("天帳").Value)
             地帳_tb.Text = Val(地帳_tb.Text) + Val(彙總_dgv.Rows(i).Cells("地帳").Value)
             所得_tb.Text = Val(所得_tb.Text) + Val(彙總_dgv.Rows(i).Cells("個人所得").Value)
             水差_tb.Text = Val(水差_tb.Text) + Val(彙總_dgv.Rows(i).Cells("水差").Value)
+            核帳_tb.Text = Val(天帳_tb.Text) + Val(地帳_tb.Text) + Val(所得_tb.Text)
+
+            彙總_dgv.Rows(i).Cells("核帳").Value = Val(彙總_dgv.Rows(i).Cells("天帳").Value) + Val(彙總_dgv.Rows(i).Cells("地帳").Value) +
+                                                     Val(彙總_dgv.Rows(i).Cells("個人所得").Value)
 
-            彙總_dgv.Rows(i).Cells("天帳").Value = Format(Val(彙總_dgv.Rows(i).Cells("天帳").Value), "#,##0")
-            彙總_dgv.Rows(i).Cells("地帳").Value = Format(Val(彙總_dgv.Rows(i).Cells("地帳").Value), "#,##0")
-            彙總_dgv.Rows(i).Cells("個人所得").Value = Format(Val(彙總_dgv.Rows(i).Cells("個人所得").Value), "#,##0")
-            彙總_dgv.Rows(i).Cells("水差").Value = Format(Val(彙總_dgv.Rows(i).Cells("水差").Value), "#,##0")
+            彙總_dgv.Rows(i).Cells("天帳").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("天帳").Value), "#,##0")
+            彙總_dgv.Rows(i).Cells("地帳").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("地帳").Value), "#,##0")
+            彙總_dgv.Rows(i).Cells("個人所得").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("個人所得").Value), "#,##0")
+            彙總_dgv.Rows(i).Cells("水差").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("水差").Value), "#,##0")
+            彙總_dgv.Rows(i).Cells("核帳").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("核帳").Value), "#,##0")
         Next
-        天帳_tb.Text = Format(Val(天帳_tb.Text), "#,##0") : 地帳_tb.Text = Format(Val(地帳_tb.Text), "#,##0")
-        所得_tb.Text = Format(Val(所得_tb.Text), "#,##0") : 水差_tb.Text = Format(Val(水差_tb.Text), "#,##0")
+        天帳_tb.Text = Strings.Format(Val(天帳_tb.Text), "#,##0") : 地帳_tb.Text = Strings.Format(Val(地帳_tb.Text), "#,##0")
+        所得_tb.Text = Strings.Format(Val(所得_tb.Text), "#,##0") : 水差_tb.Text = Strings.Format(Val(水差_tb.Text), "#,##0") : 核帳_tb.Text = Strings.Format(Val(核帳_tb.Text), "#,##0")
     End Sub
     Private Sub Set_流水帳清單3()
         彙總1_dgv.DataSource = Nothing : ds2.Clear() : 彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -214,13 +270,14 @@
         彙總1_dgv.AllowUserToAddRows = False
         SQL_彙總查詢1()
         da.Fill(ds2) : 彙總1_dgv.DataSource = ds2.Tables(0) : conn.Close()
-
+        彙總1_dgv.Columns("水差").Visible = False
         彙總1_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-
+        彙總1_dgv.Columns(4).FillWeight = 80 : 彙總1_dgv.Columns(5).FillWeight = 80
         彙總1_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總1_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總1_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總1_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總1_dgv.Columns("核帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
         For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1
             彙總1_dgv.Rows(i).Cells("天帳").Value = "0" : 彙總1_dgv.Rows(i).Cells("地帳").Value = "0"
@@ -234,10 +291,14 @@
                 End If
             Next
 
-            彙總1_dgv.Rows(i).Cells("天帳").Value = Format(Val(彙總1_dgv.Rows(i).Cells("天帳").Value), "#,##0")
-            彙總1_dgv.Rows(i).Cells("地帳").Value = Format(Val(彙總1_dgv.Rows(i).Cells("地帳").Value), "#,##0")
-            彙總1_dgv.Rows(i).Cells("個人所得").Value = Format(Val(彙總1_dgv.Rows(i).Cells("個人所得").Value), "#,##0")
-            彙總1_dgv.Rows(i).Cells("水差").Value = Format(Val(彙總1_dgv.Rows(i).Cells("水差").Value), "#,##0")
+            彙總1_dgv.Rows(i).Cells("核帳").Value = Val(彙總1_dgv.Rows(i).Cells("天帳").Value) + Val(彙總1_dgv.Rows(i).Cells("地帳").Value) +
+                                                     Val(彙總1_dgv.Rows(i).Cells("個人所得").Value)
+
+            彙總1_dgv.Rows(i).Cells("天帳").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("天帳").Value), "#,##0")
+            彙總1_dgv.Rows(i).Cells("地帳").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("地帳").Value), "#,##0")
+            彙總1_dgv.Rows(i).Cells("個人所得").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("個人所得").Value), "#,##0")
+            彙總1_dgv.Rows(i).Cells("水差").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("水差").Value), "#,##0")
+            彙總1_dgv.Rows(i).Cells("核帳").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("核帳").Value), "#,##0")
         Next
     End Sub
     Private Sub Set_流水帳清單4()
@@ -246,13 +307,14 @@
         彙總2_dgv.AllowUserToAddRows = False
         SQL_彙總查詢2()
         da.Fill(ds3) : 彙總2_dgv.DataSource = ds3.Tables(0) : conn.Close()
-
+        彙總2_dgv.Columns("水差").Visible = False
         彙總2_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-
+        彙總2_dgv.Columns(4).FillWeight = 80 : 彙總2_dgv.Columns(5).FillWeight = 80
         彙總2_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總2_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總2_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總2_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總2_dgv.Columns("核帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
         For i As Integer = 0 To 彙總2_dgv.Rows.Count - 1
             彙總2_dgv.Rows(i).Cells("天帳").Value = "0" : 彙總2_dgv.Rows(i).Cells("地帳").Value = "0"
@@ -266,26 +328,133 @@
                 End If
             Next
 
-            彙總2_dgv.Rows(i).Cells("天帳").Value = Format(Val(彙總2_dgv.Rows(i).Cells("天帳").Value), "#,##0")
-            彙總2_dgv.Rows(i).Cells("地帳").Value = Format(Val(彙總2_dgv.Rows(i).Cells("地帳").Value), "#,##0")
-            彙總2_dgv.Rows(i).Cells("個人所得").Value = Format(Val(彙總2_dgv.Rows(i).Cells("個人所得").Value), "#,##0")
-            彙總2_dgv.Rows(i).Cells("水差").Value = Format(Val(彙總2_dgv.Rows(i).Cells("水差").Value), "#,##0")
+            彙總2_dgv.Rows(i).Cells("核帳").Value = Val(彙總2_dgv.Rows(i).Cells("天帳").Value) + Val(彙總2_dgv.Rows(i).Cells("地帳").Value) +
+                                                     Val(彙總2_dgv.Rows(i).Cells("個人所得").Value)
+
+            彙總2_dgv.Rows(i).Cells("天帳").Value = Strings.Format(Val(彙總2_dgv.Rows(i).Cells("天帳").Value), "#,##0")
+            彙總2_dgv.Rows(i).Cells("地帳").Value = Strings.Format(Val(彙總2_dgv.Rows(i).Cells("地帳").Value), "#,##0")
+            彙總2_dgv.Rows(i).Cells("個人所得").Value = Strings.Format(Val(彙總2_dgv.Rows(i).Cells("個人所得").Value), "#,##0")
+            彙總2_dgv.Rows(i).Cells("水差").Value = Strings.Format(Val(彙總2_dgv.Rows(i).Cells("水差").Value), "#,##0")
+            彙總2_dgv.Rows(i).Cells("核帳").Value = Strings.Format(Val(彙總2_dgv.Rows(i).Cells("核帳").Value), "#,##0")
+        Next
+    End Sub
+    Private Sub Set_LOG1()
+        LOG1_dgv.DataSource = Nothing : ds5.Clear() : LOG1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LOG1_dgv.ColumnHeadersHeight = 25
+        LOG1_dgv.AllowUserToAddRows = False
+        SQL_LOG查詢1()
+        da.Fill(ds5) : LOG1_dgv.DataSource = ds5.Tables(0) : conn.Close()
+        LOG1_dgv.Columns(0).FillWeight = 35 : LOG1_dgv.Columns(2).FillWeight = 90 : LOG1_dgv.Columns(3).FillWeight = 75 : LOG1_dgv.Columns(4).Visible = False
+        LOG1_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        For I As Integer = 0 To LOG1_dgv.Rows.Count - 1
+            LOG1_dgv.Rows(I).Cells("項次").Value = I + 1
+        Next
+    End Sub
+    Private Sub Set_LOG2()
+        LOG2_dgv.DataSource = Nothing : ds6.Clear() : LOG2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LOG2_dgv.ColumnHeadersHeight = 25
+        LOG2_dgv.AllowUserToAddRows = False
+        SQL_LOG查詢2()
+        da.Fill(ds6) : LOG2_dgv.DataSource = ds6.Tables(0) : conn.Close()
+        LOG2_dgv.Columns(0).FillWeight = 35 : LOG2_dgv.Columns(2).FillWeight = 90 : LOG2_dgv.Columns(3).FillWeight = 75 : LOG2_dgv.Columns(4).Visible = False
+        LOG2_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
+        For I As Integer = 0 To LOG2_dgv.Rows.Count - 1
+            LOG2_dgv.Rows(I).Cells("項次").Value = I + 1
+        Next
+    End Sub
+    Private Sub Set_日期清單()
+        日期_dgv.DataSource = Nothing : ds7.Clear() : 日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        日期_dgv.ColumnHeadersHeight = 25
+        日期_dgv.AllowUserToAddRows = False
+        SQL_流水帳日期()
+        da.Fill(ds7) : 日期_dgv.DataSource = ds7.Tables(0) : conn.Close()
+
+        Dim 天, 周, 月, 天1, 周1, 月1 As Integer
+        If CC(9) = False Then : 天 = 60 : 周 = 8 : 月 = 2 : Else : 天 = 6000 : 周 = 800 : 月 = 200 : End If : 天1 = 0 : 周1 = 0 : 月1 = 0
+        資料_cb.Items.Clear()
+        For I As Integer = 0 To 日期_dgv.Rows.Count - 1
+            開始日期1_dtp.Value = 日期_dgv.Rows(I).Cells("開始日期").Value : 結束日期1_dtp.Value = 日期_dgv.Rows(I).Cells("結束日期").Value
+            If 天_ch.Checked = True Then
+                If 開始日期1_dtp.Value = 結束日期1_dtp.Value Then
+                    天1 += 1
+                    資料_cb.Items.Add(日期_dgv.Rows(I).Cells("開始日期").Value & " / " & 日期_dgv.Rows(I).Cells("結束日期").Value)
+                    If 天 = 天1 Then : Exit For : End If
+                End If
+            ElseIf 周_ch.Checked = True Then
+                If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) = 6 Then
+                    周1 += 1
+                    資料_cb.Items.Add(日期_dgv.Rows(I).Cells("開始日期").Value & " / " & 日期_dgv.Rows(I).Cells("結束日期").Value)
+                    If 周 = 周1 Then : Exit For : End If
+                End If
+            ElseIf 月_ch.Checked = True Then
+                If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) > 27 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 32 Then
+                    月1 += 1
+                    資料_cb.Items.Add(日期_dgv.Rows(I).Cells("開始日期").Value & " / " & 日期_dgv.Rows(I).Cells("結束日期").Value)
+                    If 月 = 月1 Then : Exit For : End If
+                End If
+            End If
         Next
+        資料_cb.Items.Add("")
     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
-        SQL_流水帳日期()
-        資料_cb.Items.Clear() : While (dr.Read()) : 資料_cb.Items.Add(dr("開始日期") & " / " & dr("結束日期")) : End While : 資料_cb.Items.Add("") : conn.Close()
-        SQL_流水帳上繳()
+        天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False : DA1_bt.Text = "上週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下週"
+        LOG檔_GUP.Visible = False : 流水帳1_dgv.Visible = False : 客戶下_dgv.Visible = False
+        Set_客戶下清單() : Set_日期清單() : SQL_流水帳上繳()
         老闆_cb.Items.Clear() : 老闆_cb.Items.Add("") : While (dr.Read()) : 老闆_cb.Items.Add(dr("上繳源")) : End While : conn.Close()
         SQL_流水帳商品()
         商品_cb.Items.Clear() : 商品_cb.Items.Add("") : While (dr.Read()) : 商品_cb.Items.Add(dr("商品")) : End While : conn.Close()
         彙總_dgv.Visible = True : 彙總1_dgv.Visible = False : 彙總2_dgv.Visible = False : 資料_cb.SelectedIndex = 0
-        Set_流水帳清單1() : Set_客戶下清單()
+        Set_流水帳清單1()
+        If CC(8) = False Then
+            Delete_bT.Enabled = False
+        End If
+    End Sub
+    Private Sub 彙總_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 彙總_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            If 使用網址_ch.Checked = True Then
+                網址_tb.Text = 彙總_dgv("網址", e.RowIndex).Value.ToString
+            End If
+        End If
+    End Sub
+    Private Sub 流水帳_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 流水帳_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            If 使用網址_ch.Checked = True Then
+                網址_tb.Text = 流水帳_dgv("網址", e.RowIndex).Value.ToString
+            End If
+        End If
+    End Sub
+    Private Sub LOG1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles LOG1_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            If 使用網址_ch.Checked = True Then
+                網址_tb.Text = LOG1_dgv("網址", e.RowIndex).Value.ToString
+            End If
+        End If
     End Sub
-    Private Sub 流水帳_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 流水帳_dgv.CellEndEdit
+    Private Sub LOG2_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles LOG2_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            If 使用網址_ch.Checked = True Then
+                網址_tb.Text = LOG2_dgv("網址", e.RowIndex).Value.ToString
+            End If
+        End If
+    End Sub
+    Private Sub 流水帳_dgv_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles 流水帳_dgv.CellEndEdit
         計算()
     End Sub
+    Private Sub 彙總_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 彙總_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 彙總_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 彙總_dgv(0, e.RowIndex).Value.ToString <> 彙總_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(彙總_dgv.RowHeadersVisible, 彙總_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 彙總_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
     Private Sub 流水帳_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 流水帳_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
         If e.RowIndex = 流水帳_dgv.Rows.Count - 1 Then
@@ -326,70 +495,477 @@
     Private Sub 老闆_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 老闆_cb.SelectedIndexChanged
         Set_流水帳清單1()
     End Sub
-    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
-        彙總_dgv.Visible = True : 彙總1_dgv.Visible = False : 彙總2_dgv.Visible = False
+    Private Sub 天_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 天_ch.Click
+        天_ch.Checked = True : 周_ch.Checked = False : 月_ch.Checked = False : DA2_bt.PerformClick()
+        DA1_bt.Text = "上一天" : DA2_bt.Text = "今天" : DA3_bt.Text = "下一天" : 重讀_bt.PerformClick()
     End Sub
-    Private Sub R_bT_Click(sender As Object, e As EventArgs) Handles R_bT.Click
-        SQL_流水帳_清除() : SQL_流水帳日期()
-        資料_cb.Items.Clear() : While (dr.Read()) : 資料_cb.Items.Add(dr("開始日期") & " / " & dr("結束日期")) : End While : 資料_cb.Items.Add("") : conn.Close()
+    Private Sub 周_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 周_ch.Click
+        天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False : DA2_bt.PerformClick()
+        DA1_bt.Text = "上一週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下一週" : 重讀_bt.PerformClick()
+    End Sub
+    Private Sub 月_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 月_ch.Click
+        天_ch.Checked = False : 周_ch.Checked = False : 月_ch.Checked = True : DA2_bt.PerformClick()
+        DA1_bt.Text = "上一月" : DA2_bt.Text = "本月" : DA3_bt.Text = "下一月" : 重讀_bt.PerformClick()
+    End Sub
+    Private Sub DA1_bt_Click(sender As Object, e As EventArgs) Handles DA1_bt.Click
+        If 天_ch.Checked = True Then
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 結束日期_dtp.Value
+        ElseIf 周_ch.Checked = True Then
+            If DateDiff("d", 開始日期_dtp.Value, 結束日期_dtp.Value) <> 6 Then
+                DA2_bt.PerformClick()
+            End If
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-7) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7)
+        ElseIf 月_ch.Checked = True Then
+            If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 28 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) > 31 Then
+                DA2_bt.PerformClick()
+            End If
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub DA2_bt_Click(sender As Object, e As EventArgs) Handles DA2_bt.Click
+        If 天_ch.Checked = True Then
+            結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
+        ElseIf 周_ch.Checked = True Then
+            結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
+            Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)
+            If oldWeekDay = 7 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1)
+            ElseIf oldWeekDay = 6 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(2)
+            ElseIf oldWeekDay = 5 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(3)
+            ElseIf oldWeekDay = 4 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(4)
+            ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5)
+            ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)
+            End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6)
+        ElseIf 月_ch.Checked = True Then
+            結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub DA3_bt_Click(sender As Object, e As EventArgs) Handles DA3_bt.Click
+        If 天_ch.Checked = True Then
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1) : 開始日期_dtp.Value = 結束日期_dtp.Value
+        ElseIf 周_ch.Checked = True Then
+            If DateDiff("d", 開始日期_dtp.Value, 結束日期_dtp.Value) <> 6 Then
+                DA2_bt.PerformClick()
+            End If
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(7) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(7)
+        ElseIf 月_ch.Checked = True Then
+            If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 28 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) > 31 Then
+                DA2_bt.PerformClick()
+            End If
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub Delete_bTlick(sender As Object, e As EventArgs) Handles Delete_bT.Click
+        Set_客戶下清單() : SQL_LOG_刪除() : SQL_流水帳_清除() : Set_日期清單()
         SQL_流水帳上繳()
         老闆_cb.Items.Clear() : 老闆_cb.Items.Add("") : While (dr.Read()) : 老闆_cb.Items.Add(dr("上繳源")) : End While : conn.Close()
         SQL_流水帳商品()
         商品_cb.Items.Clear() : 商品_cb.Items.Add("") : While (dr.Read()) : 商品_cb.Items.Add(dr("商品")) : End While : conn.Close()
         彙總_dgv.Visible = True : 彙總1_dgv.Visible = False : 彙總2_dgv.Visible = False : 資料_cb.SelectedIndex = 0
-        Set_流水帳清單1() : Set_客戶下清單()
+        Set_流水帳清單1()
     End Sub
     Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click
-        SQL_流水帳日期()
-        資料_cb.Items.Clear() : While (dr.Read()) : 資料_cb.Items.Add(dr("開始日期") & " / " & dr("結束日期")) : End While : 資料_cb.Items.Add("") : conn.Close()
+        Set_客戶下清單() : Set_日期清單()
         SQL_流水帳上繳()
         老闆_cb.Items.Clear() : 老闆_cb.Items.Add("") : While (dr.Read()) : 老闆_cb.Items.Add(dr("上繳源")) : End While : conn.Close()
         SQL_流水帳商品()
         商品_cb.Items.Clear() : 商品_cb.Items.Add("") : While (dr.Read()) : 商品_cb.Items.Add(dr("商品")) : End While : conn.Close()
         彙總_dgv.Visible = True : 彙總1_dgv.Visible = False : 彙總2_dgv.Visible = False : 資料_cb.SelectedIndex = 0
-        Set_流水帳清單1() : Set_客戶下清單()
+        Set_流水帳清單1()
     End Sub
-    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
-        彙總_dgv.Visible = False : 彙總1_dgv.Visible = True : 彙總2_dgv.Visible = False
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
+        彙總_dgv.Visible = True : 彙總1_dgv.Visible = False : 彙總2_dgv.Visible = False
     End Sub
-    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
-        彙總_dgv.Visible = False : 彙總1_dgv.Visible = False : 彙總2_dgv.Visible = True
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
+        彙總_dgv.Visible = False : 彙總1_dgv.Visible = True : 彙總2_dgv.Visible = True
     End Sub
     Private Sub 商品_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 商品_cb.SelectedIndexChanged
         Set_流水帳清單1()
     End Sub
     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
-        For I As Integer = 0 To 流水帳_dgv.Rows.Count - 1
-            資料數 = 流水帳_dgv.Rows.Count : MyModule1.進度條()
-            Set_客戶下清單()
-            If 客戶下_dgv.Rows.Count = 0 Then
-                PA = 流水帳_dgv.Rows(I).Cells("客戶").Value.ToString : PA2 = 流水帳_dgv.Rows(I).Cells("帳戶").Value.ToString
-                PA1 = 流水帳_dgv.Rows(I).Cells("網址").Value.ToString : PA3 = 流水帳_dgv.Rows(I).Cells("下行基數").Value.ToString
-                SQL_流水帳_客戶下新增()
-            Else
-                For II As Integer = 0 To 客戶下_dgv.Rows.Count - 1
-                    If 流水帳_dgv.Rows(I).Cells("客戶").Value.ToString = 客戶下_dgv.Rows(II).Cells("客戶下").Value.ToString And
-                    流水帳_dgv.Rows(I).Cells("帳戶").Value.ToString = 客戶下_dgv.Rows(II).Cells("帳號").Value.ToString And
-                    流水帳_dgv.Rows(I).Cells("網址").Value.ToString = 客戶下_dgv.Rows(II).Cells("網址").Value.ToString And
-                    流水帳_dgv.Rows(I).Cells("下行基數").Value.ToString = 客戶下_dgv.Rows(II).Cells("基數").Value.ToString Then
-                        Exit For
-                    ElseIf 流水帳_dgv.Rows(I).Cells("客戶").Value.ToString = 客戶下_dgv.Rows(II).Cells("客戶下").Value.ToString And
-                    流水帳_dgv.Rows(I).Cells("帳戶").Value.ToString = 客戶下_dgv.Rows(II).Cells("帳號").Value.ToString And
-                    流水帳_dgv.Rows(I).Cells("網址").Value.ToString = 客戶下_dgv.Rows(II).Cells("網址").Value.ToString And
-                    流水帳_dgv.Rows(I).Cells("下行基數").Value.ToString <> 客戶下_dgv.Rows(II).Cells("基數").Value.ToString Then
-                        PA = 流水帳_dgv.Rows(I).Cells("客戶").Value.ToString : PA2 = 流水帳_dgv.Rows(I).Cells("帳戶").Value.ToString
-                        PA1 = 流水帳_dgv.Rows(I).Cells("網址").Value.ToString : PA3 = 流水帳_dgv.Rows(I).Cells("下行基數").Value.ToString
-                        SQL_流水帳_客戶下修改() : Exit For
-                    ElseIf II = 客戶下_dgv.Rows.Count - 1 And (流水帳_dgv.Rows(I).Cells("客戶").Value.ToString <> 客戶下_dgv.Rows(II).Cells("客戶下").Value.ToString Or
-                    流水帳_dgv.Rows(I).Cells("帳戶").Value.ToString <> 客戶下_dgv.Rows(II).Cells("帳號").Value.ToString Or
-                    流水帳_dgv.Rows(I).Cells("網址").Value.ToString <> 客戶下_dgv.Rows(II).Cells("網址").Value.ToString) Then
-                        PA = 流水帳_dgv.Rows(I).Cells("客戶").Value.ToString : PA2 = 流水帳_dgv.Rows(I).Cells("帳戶").Value.ToString
-                        PA1 = 流水帳_dgv.Rows(I).Cells("網址").Value.ToString : PA3 = 流水帳_dgv.Rows(I).Cells("下行基數").Value.ToString
-                        SQL_流水帳_客戶下新增() : Exit For
+        SQL_下行客戶流水號最後一筆()
+        If dr.Read() Then : GP = Double.Parse(Strings.Right(dr("流水號").ToString, 6)) : Else : GP = 0 : End If : conn.Close()
+        Dim 數量 As Integer
+        Set_客戶下清單()
+        If 客戶下_dgv.Rows.Count = 0 Then
+            資料數 = 流水帳_dgv.Rows.Count
+            For I As Integer = 0 To 流水帳_dgv.Rows.Count - 1
+                GP += 1 : MyModule1.進度條()
+                '----------------------自动生成流水号-------------------------------------------------------------------------
+                If GP < 10 Then : GPP = "GA" & "00000" & GP
+                ElseIf GP > 9 And GP < 100 Then : GPP = "GA" & "0000" & GP
+                ElseIf GP > 99 And GP < 1000 Then : GPP = "GA" & "000" & GP
+                ElseIf GP > 999 And GP < 10000 Then : GPP = "GA" & "00" & GP
+                ElseIf GP > 9999 And GP < 100000 Then : GPP = "GA" & "0" & GP
+                ElseIf GP > 999999 Then : GPP = "GA" & GP : End If
+
+                PA = 流水帳_dgv.Rows(I).Cells("客帳").Value.ToString : PA2 = 流水帳_dgv.Rows(I).Cells("帳戶").Value.ToString
+                PA1 = 流水帳_dgv.Rows(I).Cells("網址").Value.ToString : PA3 = GPP : PA4 = ""
+                SQL_流水帳_客戶下新增() : 數量 += 1
+            Next
+        Else
+            資料數 = 流水帳_dgv.Rows.Count * 2
+            For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
+                MyModule1.進度條()
+                For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
+                    If 流水帳_dgv("按鈕", i).Value = False Then
+                        If 流水帳_dgv("客帳", i).Value.ToString = 客戶下_dgv("客戶帳號", ii).Value.ToString And
+                           流水帳_dgv("網址", i).Value.ToString = 客戶下_dgv("網址", ii).Value.ToString And
+                           流水帳_dgv("帳戶", i).Value.ToString = 客戶下_dgv("帳號", ii).Value.ToString Then
+                            流水帳_dgv("按鈕", i).Value = True
+                        End If
                     End If
                 Next
+            Next
+            For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
+                MyModule1.進度條()
+                If 流水帳_dgv("按鈕", i).Value = False Then
+                    GP += 1
+                    '----------------------自动生成流水号-------------------------------------------------------------------------
+                    If GP < 10 Then : GPP = "GA" & "00000" & GP
+                    ElseIf GP > 9 And GP < 100 Then : GPP = "GA" & "0000" & GP
+                    ElseIf GP > 99 And GP < 1000 Then : GPP = "GA" & "000" & GP
+                    ElseIf GP > 999 And GP < 10000 Then : GPP = "GA" & "00" & GP
+                    ElseIf GP > 9999 And GP < 100000 Then : GPP = "GA" & "0" & GP
+                    ElseIf GP > 999999 Then : GPP = "GA" & GP : End If
+
+                    PA = 流水帳_dgv.Rows(i).Cells("客帳").Value.ToString : PA2 = 流水帳_dgv.Rows(i).Cells("帳戶").Value.ToString
+                    PA1 = 流水帳_dgv.Rows(i).Cells("網址").Value.ToString : PA3 = GPP : PA4 = 流水帳_dgv("客名", i).Value.ToString
+                    SQL_流水帳_客戶下新增() : 數量 += 1
+                End If
+            Next
+        End If
+        If 數量 = 0 Then : MsgBox("比對完成，沒有新的客戶資料需要寫入!!!")
+        Else : MsgBox("比對存檔完成，已經自動寫入 " & 數量 & "筆新的客戶資料，請到基本資料處指定客戶!!!")
+        End If
+        GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub LOG檔_bt_Click(sender As Object, e As EventArgs) Handles LOG檔_bt.Click
+        If LOG檔_GUP.Visible = False Then : LOG檔_GUP.Visible = True : Else : LOG檔_GUP.Visible = False : End If
+    End Sub
+    Private Sub R_bT_Click(sender As Object, e As EventArgs) Handles R_bT.Click
+        SQL_SQL_自動導入判斷_關閉()
+    End Sub
+    Private Sub 重新導入_bt_Click(sender As Object, e As EventArgs) Handles 重新導入_bt.Click
+        Dim 執行 As Boolean
+        For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
+            If 彙總_dgv.Rows(i).Cells("狀態").Value.ToString = "X" Then
+                PA1 = 彙總_dgv.Rows(i).Cells("網址").Value.ToString : PA2 = 彙總_dgv.Rows(i).Cells("帳號").Value.ToString
+                PA3 = 彙總_dgv.Rows(i).Cells("密碼").Value.ToString : SQL_商客資料暫存檔_新增() : 執行 = True
+            End If
+        Next
+
+        If 執行 = True Then
+            SQL_自動導入判斷()
+            If dr.Read() Then
+                If dr("正在自動導入中").ToString = "YES" Then
+                    MsgBox("自動導入進行中，不可以重複導入!!") : conn.Close() : dr.Close()
+                Else
+                    conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
+                    PA1 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : PA2 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
+                    SQL_查詢日期清空() : SQL_LOG_刪除2() : SQL_查詢日期寫入1()
+                    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(My.Computer.FileSystem.SpecialDirectories.Desktop & "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(版本號 & ".exe", vbNormalFocus)
+                    Timer1.Enabled = True
+                End If
+            End If
+        Else
+            MsgBox("沒有需要重新導入的網址與帳號!!")
+        End If
+    End Sub
+    Private Sub 明細合併_bt_Click(sender As Object, e As EventArgs) Handles 明細合併_bt.Click
+        If 流水帳1_dgv.Visible = False Then : 流水帳1_dgv.Visible = True : Else : 流水帳1_dgv.Visible = False : End If
+    End Sub
+    Private Sub 客戶資料_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料_bt.Click
+        If 客戶下_dgv.Visible = False Then : 客戶下_dgv.Visible = True : Else : 客戶下_dgv.Visible = False : End If
+    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 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : PA2 = Strings.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(My.Computer.FileSystem.SpecialDirectories.Desktop & "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(版本號 & ".exe", vbNormalFocus)
+                Timer1.Enabled = True
+            End If
+        End If
+    End Sub
+    Private Sub Delete_bT_Click(sender As Object, e As EventArgs) Handles Delete_bT.Click
+        SQL_SQL_自動導入判斷_關閉()
+    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(My.Computer.FileSystem.SpecialDirectories.Desktop & "000.csv")
+                End If
+                LOG檔.ShowDialog() : SQL_SQL_自動導入判斷_關閉() : SQL_查詢日期清空() : SQL_商客資料暫存檔_刪除() : 重讀_bt.PerformClick()
             End If
-        Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
-        MsgBox("比對存檔完成!!!") : Set_流水帳清單1()
+        End If
+    End Sub
+    Private Sub 批次導入_bt_Click(sender As Object, e As EventArgs) Handles 批次導入_bt.Click
+        批次 = 0 : Timer2.Enabled = True
+    End Sub
+    Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click
+        網址_tb.Text = "" : 重讀_bt.PerformClick()
+    End Sub
+    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
+        SQL_自動導入判斷()
+        If dr.Read() Then
+            If dr("正在自動導入中").ToString = "YES" Then
+                conn.Close() : dr.Close()
+            ElseIf dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
+                批次 += 1
+                If 批次 > 批次_nud.Value Then
+                    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(My.Computer.FileSystem.SpecialDirectories.Desktop & "000.csv")
+                    End If
+                    Timer2.Enabled = False
+                    SQL_SQL_自動導入判斷_關閉() : SQL_查詢日期清空()
+                    MsgBox("批量自動導入 " & 批次 - 1 & " 次，完成!!!") : conn.Close() : dr.Close() : 重讀_bt.PerformClick()
+                Else
+                    conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
+                    PA1 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : PA2 = Strings.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(My.Computer.FileSystem.SpecialDirectories.Desktop & "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(版本號 & ".exe", vbNormalFocus)
+                    DA1_bt.PerformClick()
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
+        Dim xlApp As Microsoft.Office.Interop.Excel.Application
+        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
+        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+
+        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlApp.Visible = True
+        xlApp.Application.WindowState = xlMaximized
+        '-------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        xlSheet = NewMethod(xlBook)
+        If xlApp.Sheets(1).Name = "工作表2" Then : xlApp.Sheets("工作表2").Select : xlApp.Sheets("工作表2").Name = "應收帳款"
+        Else : xlApp.Sheets("sheet2").Select : xlApp.Sheets("sheet2").Name = "應收帳款" : End If
+        xlBook.Activate()
+        xlSheet.Activate()
+
+
+        '-------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        xlSheet = NewMethod(xlBook)
+        If xlApp.Sheets(1).Name = "工作表3" Then : xlApp.Sheets("工作表3").Select : xlApp.Sheets("工作表3").Name = "應付帳款"
+        Else : xlApp.Sheets("sheet3").Select : xlApp.Sheets("sheet3").Name = "應付帳款" : End If
+        xlBook.Activate()
+        xlSheet.Activate()
+
+        AA(xlApp, xlSheet)
+        xlSheet.Cells(1, 1) = "老闆" : xlSheet.Cells(1, 2) = "應收" : xlSheet.Cells(1, 3) = "應付" : xlSheet.Cells(1, 4) = "個人所得" : xlSheet.Cells(1, 5) = "核帳"
+        For I As Integer = 0 To 彙總2_dgv.Rows.Count - 1
+            xlSheet.Cells(2 + I, 1) = 彙總2_dgv.Rows(I).Cells("老闆").Value : xlSheet.Cells(2 + I, 2) = 彙總2_dgv.Rows(I).Cells("天帳").Value
+            xlSheet.Cells(2 + I, 3) = 彙總2_dgv.Rows(I).Cells("地帳").Value : xlSheet.Cells(2 + I, 4) = 彙總2_dgv.Rows(I).Cells("個人所得").Value
+            xlSheet.Cells(2 + I, 5) = 彙總2_dgv.Rows(I).Cells("核帳").Value
+            N1 = I + 2
+        Next
+        xlSheet.Cells(1, 7) = "商品" : xlSheet.Cells(1, 8) = "應收" : xlSheet.Cells(1, 9) = "應付" : xlSheet.Cells(1, 10) = "個人所得" : xlSheet.Cells(1, 11) = "核帳"
+        For I As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+            xlSheet.Cells(2 + I, 7) = 彙總1_dgv.Rows(I).Cells("商品").Value : xlSheet.Cells(2 + I, 8) = 彙總1_dgv.Rows(I).Cells("天帳").Value
+            xlSheet.Cells(2 + I, 9) = 彙總1_dgv.Rows(I).Cells("地帳").Value : xlSheet.Cells(2 + I, 10) = 彙總1_dgv.Rows(I).Cells("個人所得").Value
+            xlSheet.Cells(2 + I, 11) = 彙總1_dgv.Rows(I).Cells("核帳").Value
+            N2 = I + 2
+        Next
+        xlSheet.Cells(1, 13) = "商品" : xlSheet.Cells(1, 14) = "老闆" : xlSheet.Cells(1, 15) = "網址" : xlSheet.Cells(1, 16) = "帳號"
+        xlSheet.Cells(1, 17) = "應收" : xlSheet.Cells(1, 18) = "應付" : xlSheet.Cells(1, 19) = "個人所得" : xlSheet.Cells(1, 20) = "核帳"
+        For I As Integer = 0 To 彙總1_dgv.Rows.Count - 1
+            xlSheet.Cells(2 + I, 13) = 彙總_dgv.Rows(I).Cells("商品").Value : xlSheet.Cells(2 + I, 14) = 彙總_dgv.Rows(I).Cells("老闆").Value
+            xlSheet.Cells(2 + I, 15) = 彙總_dgv.Rows(I).Cells("網址").Value : xlSheet.Cells(2 + I, 16) = 彙總_dgv.Rows(I).Cells("帳號").Value
+            xlSheet.Cells(2 + I, 17) = 彙總_dgv.Rows(I).Cells("天帳").Value : xlSheet.Cells(2 + I, 18) = 彙總_dgv.Rows(I).Cells("地帳").Value
+            xlSheet.Cells(2 + I, 19) = 彙總_dgv.Rows(I).Cells("個人所得").Value : xlSheet.Cells(2 + I, 20) = 彙總_dgv.Rows(I).Cells("核帳").Value
+            N3 = I + 2
+        Next
+        BB(xlApp, xlSheet)
+
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        MsgBox("列印完成")
+    End Sub
+    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
+        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
+    End Function
+    Private Sub AA(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+        xlSheet.Columns("A:A").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+        xlSheet.Columns("G:G").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+        xlSheet.Columns("M:M").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+        xlSheet.Columns("N:N").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+        xlSheet.Range("A1:T1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+
+        xlSheet.Range("A1:E1").Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic
+            .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.399975585192419 : .PatternTintAndShade = 0 : End With
+        xlSheet.Range("G1:K1").Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic
+            .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.399975585192419 : .PatternTintAndShade = 0 : End With
+        xlSheet.Range("M1:T1").Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic
+            .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.399975585192419 : .PatternTintAndShade = 0 : End With
+    End Sub
+    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Columns("A:T").Select
+        xlSheet.Columns("A:T").EntireColumn.AutoFit
+        xlSheet.Range("A2:E" & N1).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 "
+        xlSheet.Range("A2:A" & N1).Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 65535
+            .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
+
+        xlSheet.Range("G2:K" & N2).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 "
+        xlSheet.Range("G2:G" & N2).Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 65535
+            .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
+
+        xlSheet.Range("M2:T" & N3).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 "
+        xlSheet.Range("M2:N" & N3).Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 65535
+            .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
     End Sub
 End Class

GA-ERP-SYS/基本資料管理/商客資料導入.Designer.vb → GA-ERP-SYS/特殊操作功能/商客資料導入.Designer.vb

@@ -25,17 +25,14 @@ Partial Class 商客資料導入
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.商客1_dgv = New System.Windows.Forms.DataGridView()
         Me.商客2_dgv = New System.Windows.Forms.DataGridView()
         Me.刪除空白_bt = New System.Windows.Forms.Button()
         Me.貼上_bt = New System.Windows.Forms.Button()
         Me.資料分析後存檔_bt = New System.Windows.Forms.Button()
-        Me.客戶上_dgv = New System.Windows.Forms.DataGridView()
         Me.商品_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.商客1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.商客2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.客戶上_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.商品_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -104,27 +101,10 @@ Partial Class 商客資料導入
         Me.資料分析後存檔_bt.Text = "資料分析後存檔" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.資料分析後存檔_bt.UseVisualStyleBackColor = True
         '
-        '客戶上_dgv
-        '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.客戶上_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
-        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(1161, 4)
-        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(491, 42)
-        Me.客戶上_dgv.TabIndex = 1003
-        Me.客戶上_dgv.Visible = False
-        '
         '商品_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.商品_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.商品_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.商品_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -143,7 +123,6 @@ Partial Class 商客資料導入
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
-        Me.Controls.Add(Me.客戶上_dgv)
         Me.Controls.Add(Me.商品_dgv)
         Me.Controls.Add(Me.刪除空白_bt)
         Me.Controls.Add(Me.貼上_bt)
@@ -156,7 +135,6 @@ Partial Class 商客資料導入
         Me.Text = "商客資料導入"
         CType(Me.商客1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.商客2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.客戶上_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.商品_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
@@ -167,6 +145,5 @@ Partial Class 商客資料導入
     Friend WithEvents 刪除空白_bt As Button
     Friend WithEvents 貼上_bt As Button
     Friend WithEvents 資料分析後存檔_bt As Button
-    Friend WithEvents 客戶上_dgv As DataGridView
     Friend WithEvents 商品_dgv As DataGridView
 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 → GA-ERP-SYS/特殊操作功能/商客資料導入.vb

@@ -1,16 +1,6 @@
 Public Class 商客資料導入
     ReadOnly ds, ds3, ds6, ds7 As New DataSet
     Dim GP As Integer = 0 : Dim GPP As String
-    Private Sub Set_客戶上清單()
-        客戶上_dgv.DataSource = Nothing : ds3.Clear()
-        客戶上_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        客戶上_dgv.ColumnHeadersHeight = 25
-        客戶上_dgv.AllowUserToAddRows = False
-        SQL_客戶上資料表()
-        da.Fill(ds3) : 客戶上_dgv.DataSource = ds3.Tables(0) : conn.Close()
-        客戶上_dgv.Columns(0).FillWeight = 80 : 客戶上_dgv.Columns(1).FillWeight = 200 : 客戶上_dgv.Columns(2).FillWeight = 80
-        客戶上_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
-    End Sub
     Private Sub Set_商品清單()
         商品_dgv.DataSource = Nothing : ds.Clear() : 商品_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         商品_dgv.ColumnHeadersHeight = 25
@@ -167,26 +157,13 @@
             Set_商客清單1() : Set_商客清單2() : 刪除空白()
             For I As Integer = 0 To 商客2_dgv.Rows.Count - 1
                 資料數 = 商客2_dgv.Rows.Count : MyModule1.進度條()
-                Set_客戶上清單() : Set_商品清單()
+                Set_商品清單()
                 For II As Integer = 0 To 商品_dgv.Rows.Count - 1
                     If 商客2_dgv.Rows(I).Cells("商品").Value.ToString = 商品_dgv.Rows(II).Cells("商品").Value.ToString Then : Exit For
                     ElseIf II = 商品_dgv.Rows.Count - 1 And 商客2_dgv.Rows(I).Cells("商品").Value.ToString <> 商品_dgv.Rows(II).Cells("商品").Value.ToStrinG Then
                         PA = 商客2_dgv.Rows(I).Cells("商品").Value.ToString : SQL_商客比對_商品新增() : Exit For
                     End If
                 Next
-                For II As Integer = 0 To 客戶上_dgv.Rows.Count - 1
-                    If 商客2_dgv.Rows(I).Cells("上繳源").Value.ToString = 客戶上_dgv.Rows(II).Cells("上行客戶").Value.ToString And
-                        商客2_dgv.Rows(I).Cells("網址").Value.ToString = 客戶上_dgv.Rows(II).Cells("網址").Value.ToString And
-                        商客2_dgv.Rows(I).Cells("帳號").Value.ToString = 客戶上_dgv.Rows(II).Cells("帳號").Value.ToString Then
-                        Exit For
-                    ElseIf II = 客戶上_dgv.Rows.Count - 1 And (商客2_dgv.Rows(I).Cells("上繳源").Value.ToString <> 客戶上_dgv.Rows(II).Cells("上行客戶").Value.ToString Or
-                        商客2_dgv.Rows(I).Cells("網址").Value.ToString = 客戶上_dgv.Rows(II).Cells("網址").Value.ToString Or
-                        商客2_dgv.Rows(I).Cells("帳號").Value.ToString = 客戶上_dgv.Rows(II).Cells("帳號").Value.ToString) Then
-                        PA = 商客2_dgv.Rows(I).Cells("上繳源").Value.ToString : PA1 = 商客2_dgv.Rows(I).Cells("網址").Value.ToString
-                        PA2 = 商客2_dgv.Rows(I).Cells("帳號").Value.ToString
-                        SQL_商客比對_客戶上修改() : Exit For
-                    End If
-                Next
             Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
             MsgBox("比對存檔完成!!!")
         End If

GA-ERP-SYS/基本資料管理/流水帳自動導入.vb → GA-ERP-SYS/特殊操作功能/流水帳自動導入.vb

@@ -10,12 +10,16 @@ Public Class 流水帳自動導入
             If dr("正在自動導入中").ToString = "YES" Then
                 MsgBox("自動導入進行中，不可以重複導入!!") : conn.Close() : dr.Close()
             Else
-                conn.Close() : dr.Close()
-                SQL_SQL_自動導入判斷_開啟() : SQL_流水帳同日期清除() : SQL_查詢日期清空() : SQL_查詢日期寫入()
+                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
-                File.Delete("000.csv")
+                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)
@@ -47,7 +51,13 @@ Public Class 流水帳自動導入
         If dr.Read() Then
             If dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
                 Timer1.Enabled = False
-                MsgBox("自動導入完成!!") : SQL_SQL_自動導入判斷_關閉() : 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
+                LOG檔.ShowDialog() : SQL_SQL_自動導入判斷_關閉() : SQL_查詢日期清空()
             End If
         End If
     End Sub

GA-ERP-SYS/資料庫系統管理/個人帳號管理.Designer.vb

@@ -0,0 +1,126 @@
+<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.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox3.Location = New System.Drawing.Point(49, 70)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(305, 25)
+        Me.TextBox3.TabIndex = 61
+        '
+        '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(8, 42)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(34, 17)
+        Me.Label3.TabIndex = 60
+        Me.Label3.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(9, 73)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(34, 17)
+        Me.Label2.TabIndex = 59
+        Me.Label2.Text = "密碼"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.Location = New System.Drawing.Point(8, 11)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(34, 17)
+        Me.Label1.TabIndex = 58
+        Me.Label1.Text = "姓名"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox2.Location = New System.Drawing.Point(48, 39)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(305, 25)
+        Me.TextBox2.TabIndex = 57
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox1.Location = New System.Drawing.Point(48, 8)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(305, 25)
+        Me.TextBox1.TabIndex = 56
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(8, 101)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(346, 67)
+        Me.Button2.TabIndex = 62
+        Me.Button2.Text = "修改"
+        Me.Button2.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(362, 176)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        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.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 TextBox3 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button2 As Button
+End Class

GA-ERP-SYS/資料庫系統管理/個人帳號管理.resx

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

GA-ERP-SYS/資料庫系統管理/個人帳號管理.vb

@@ -0,0 +1,22 @@
+Option Strict Off
+Public Class 個人帳號管理
+    Private Sub Set_使用者資料()
+        SQL_個人帳號管理讀取()
+        If dr.Read() Then : TextBox1.Text = dr("姓名").ToString : TextBox2.Text = dr("帳號").ToString : TextBox3.Text = dr("密碼").ToString : End If
+        conn.Close() : dr.Close()
+    End Sub
+    Private Sub 個人帳號管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        FormBorderStyle = FormBorderStyle.SizableToolWindow
+        Set_使用者資料()
+        TextBox1.Enabled = False : TextBox2.Enabled = False
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
+            MsgBox("輸入資料有誤")
+        Else
+            SQL_個人帳號修改() : conn.Close() : conn.Close()
+            MsgBox("修改完成") : Me.Close()
+        End If
+        Set_使用者資料()
+    End Sub
+End Class

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

@@ -22,7 +22,7 @@ Partial Class 系統使用者管理
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.顯示密碼_bt = New System.Windows.Forms.Button()
@@ -44,6 +44,9 @@ Partial Class 系統使用者管理
         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.CheckBox9 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox8 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
         Me.CheckBox6 = New System.Windows.Forms.CheckBox()
         Me.主客戶_cb = New System.Windows.Forms.ComboBox()
         Me.Label4 = New System.Windows.Forms.Label()
@@ -53,6 +56,10 @@ Partial Class 系統使用者管理
         Me.客戶表新增_bt = New System.Windows.Forms.Button()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.Label5 = New System.Windows.Forms.Label()
+        Me.CheckBox10 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox11 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox12 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox13 = New System.Windows.Forms.CheckBox()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
@@ -222,8 +229,8 @@ Partial Class 系統使用者管理
         '
         '使用者清單_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, 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.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -240,7 +247,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox5.AutoSize = True
         Me.CheckBox5.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox5.Location = New System.Drawing.Point(33, 119)
+        Me.CheckBox5.Location = New System.Drawing.Point(33, 205)
         Me.CheckBox5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox5.Name = "CheckBox5"
         Me.CheckBox5.Size = New System.Drawing.Size(142, 20)
@@ -252,7 +259,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox4.AutoSize = True
         Me.CheckBox4.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox4.Location = New System.Drawing.Point(33, 91)
+        Me.CheckBox4.Location = New System.Drawing.Point(33, 177)
         Me.CheckBox4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox4.Name = "CheckBox4"
         Me.CheckBox4.Size = New System.Drawing.Size(170, 20)
@@ -264,7 +271,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox3.AutoSize = True
         Me.CheckBox3.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox3.Location = New System.Drawing.Point(33, 63)
+        Me.CheckBox3.Location = New System.Drawing.Point(33, 149)
         Me.CheckBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox3.Name = "CheckBox3"
         Me.CheckBox3.Size = New System.Drawing.Size(134, 20)
@@ -302,6 +309,13 @@ Partial Class 系統使用者管理
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.CheckBox13)
+        Me.Panel1.Controls.Add(Me.CheckBox12)
+        Me.Panel1.Controls.Add(Me.CheckBox11)
+        Me.Panel1.Controls.Add(Me.CheckBox10)
+        Me.Panel1.Controls.Add(Me.CheckBox9)
+        Me.Panel1.Controls.Add(Me.CheckBox8)
+        Me.Panel1.Controls.Add(Me.CheckBox7)
         Me.Panel1.Controls.Add(Me.CheckBox6)
         Me.Panel1.Controls.Add(Me.CheckBox1)
         Me.Panel1.Controls.Add(Me.CheckBox2)
@@ -314,11 +328,47 @@ Partial Class 系統使用者管理
         Me.Panel1.Size = New System.Drawing.Size(1182, 910)
         Me.Panel1.TabIndex = 1513
         '
+        'CheckBox9
+        '
+        Me.CheckBox9.AutoSize = True
+        Me.CheckBox9.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox9.Location = New System.Drawing.Point(55, 119)
+        Me.CheckBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox9.Name = "CheckBox9"
+        Me.CheckBox9.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox9.TabIndex = 267
+        Me.CheckBox9.Text = "帳務查詢大於兩個月-CC09"
+        Me.CheckBox9.UseVisualStyleBackColor = True
+        '
+        'CheckBox8
+        '
+        Me.CheckBox8.AutoSize = True
+        Me.CheckBox8.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox8.Location = New System.Drawing.Point(55, 91)
+        Me.CheckBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox8.Name = "CheckBox8"
+        Me.CheckBox8.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox8.TabIndex = 266
+        Me.CheckBox8.Text = "流水帳刪除權限-CC08"
+        Me.CheckBox8.UseVisualStyleBackColor = True
+        '
+        'CheckBox7
+        '
+        Me.CheckBox7.AutoSize = True
+        Me.CheckBox7.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox7.Location = New System.Drawing.Point(55, 63)
+        Me.CheckBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox7.Name = "CheckBox7"
+        Me.CheckBox7.Size = New System.Drawing.Size(110, 20)
+        Me.CheckBox7.TabIndex = 265
+        Me.CheckBox7.Text = "登入鎖定-CC07"
+        Me.CheckBox7.UseVisualStyleBackColor = True
+        '
         'CheckBox6
         '
         Me.CheckBox6.AutoSize = True
         Me.CheckBox6.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox6.Location = New System.Drawing.Point(33, 147)
+        Me.CheckBox6.Location = New System.Drawing.Point(33, 233)
         Me.CheckBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox6.Name = "CheckBox6"
         Me.CheckBox6.Size = New System.Drawing.Size(182, 20)
@@ -413,6 +463,53 @@ Partial Class 系統使用者管理
         Me.Label5.TabIndex = 1523
         Me.Label5.Text = "新增客戶與子SQL後需要料庫複製之資料表，並將長短版資料、表頭與基數資料表資料複製到對應SQL中。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
+        'CheckBox10
+        '
+        Me.CheckBox10.AutoSize = True
+        Me.CheckBox10.Location = New System.Drawing.Point(271, 7)
+        Me.CheckBox10.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox10.Name = "CheckBox10"
+        Me.CheckBox10.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox10.TabIndex = 268
+        Me.CheckBox10.Text = "特殊操作功能-CC10"
+        Me.CheckBox10.UseVisualStyleBackColor = True
+        '
+        'CheckBox11
+        '
+        Me.CheckBox11.AutoSize = True
+        Me.CheckBox11.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox11.Location = New System.Drawing.Point(296, 35)
+        Me.CheckBox11.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox11.Name = "CheckBox11"
+        Me.CheckBox11.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox11.TabIndex = 269
+        Me.CheckBox11.Text = "流水帳自動導入-CC11"
+        Me.CheckBox11.UseVisualStyleBackColor = True
+        '
+        'CheckBox12
+        '
+        Me.CheckBox12.AutoSize = True
+        Me.CheckBox12.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox12.Location = New System.Drawing.Point(296, 63)
+        Me.CheckBox12.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox12.Name = "CheckBox12"
+        Me.CheckBox12.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox12.TabIndex = 270
+        Me.CheckBox12.Text = "流水帳手動輸入-CC12"
+        Me.CheckBox12.UseVisualStyleBackColor = True
+        '
+        'CheckBox13
+        '
+        Me.CheckBox13.AutoSize = True
+        Me.CheckBox13.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox13.Location = New System.Drawing.Point(296, 91)
+        Me.CheckBox13.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox13.Name = "CheckBox13"
+        Me.CheckBox13.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox13.TabIndex = 271
+        Me.CheckBox13.Text = "商客資料導入-CC13"
+        Me.CheckBox13.UseVisualStyleBackColor = True
+        '
         '系統使用者管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -481,4 +578,11 @@ Partial Class 系統使用者管理
     Friend WithEvents 客戶表新增_bt As Button
     Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents Label5 As Label
+    Friend WithEvents CheckBox7 As CheckBox
+    Friend WithEvents CheckBox9 As CheckBox
+    Friend WithEvents CheckBox8 As CheckBox
+    Friend WithEvents CheckBox10 As CheckBox
+    Friend WithEvents CheckBox13 As CheckBox
+    Friend WithEvents CheckBox12 As CheckBox
+    Friend WithEvents CheckBox11 As CheckBox
 End Class

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

@@ -23,9 +23,9 @@ Partial Class 系統編碼規則
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.字體大小調整_lb = New System.Windows.Forms.Label()
-        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.資料庫_tb = New System.Windows.Forms.TextBox()
         Me.Label5 = New System.Windows.Forms.Label()
@@ -35,9 +35,42 @@ Partial Class 系統編碼規則
         Me.客戶表新增_bt = New System.Windows.Forms.Button()
         Me.客戶表刪除_bt = New System.Windows.Forms.Button()
         Me.客戶名_tb = New System.Windows.Forms.TextBox()
-        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.LOG資料庫_tb = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.IP_tb = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.帳號_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.密碼_tb = New System.Windows.Forms.TextBox()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.LOG資料庫修正_bt = New System.Windows.Forms.Button()
+        Me.LOG總_dgv = New System.Windows.Forms.DataGridView()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.比對_bt = New System.Windows.Forms.Button()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.LOG資料庫1_tb = New System.Windows.Forms.TextBox()
+        Me.密碼1_tb = New System.Windows.Forms.TextBox()
+        Me.IP1_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.帳號1_tb = New System.Windows.Forms.TextBox()
+        Me.LOG子_dgv = New System.Windows.Forms.DataGridView()
+        Me.批量比對_bt = New System.Windows.Forms.Button()
+        Me.刪除LOG檔_bt = New System.Windows.Forms.Button()
+        Me.IP2_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.密碼2_tb = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.帳號2_tb = New System.Windows.Forms.TextBox()
         Me.GroupBox3.SuspendLayout()
         CType(Me.客戶資料表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.LOG總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox2.SuspendLayout()
+        CType(Me.LOG子_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Label3
@@ -45,36 +78,20 @@ Partial Class 系統編碼規則
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label3.ForeColor = System.Drawing.Color.Red
-        Me.Label3.Location = New System.Drawing.Point(12, 9)
+        Me.Label3.Location = New System.Drawing.Point(3, 1)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(986, 34)
         Me.Label3.TabIndex = 242
         Me.Label3.Text = "*  編碼原則對於系統非常重要，如有更動需求請與系統開發商進行討論後再行修改"
         '
-        '字體大小調整_lb
-        '
-        Me.字體大小調整_lb.AutoSize = True
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
-        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1009, 17)
-        Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
-        Me.字體大小調整_lb.TabIndex = 1499
-        Me.字體大小調整_lb.Text = "字體調整"
-        '
-        '字體_NUD
-        '
-        Me.字體_NUD.Location = New System.Drawing.Point(1084, 17)
-        Me.字體_NUD.Maximum = New Decimal(New Integer() {12, 0, 0, 0})
-        Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
-        Me.字體_NUD.Name = "字體_NUD"
-        Me.字體_NUD.Size = New System.Drawing.Size(52, 22)
-        Me.字體_NUD.TabIndex = 1498
-        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
-        '
         'GroupBox3
         '
+        Me.GroupBox3.Controls.Add(Me.Label13)
+        Me.GroupBox3.Controls.Add(Me.密碼2_tb)
+        Me.GroupBox3.Controls.Add(Me.Label14)
+        Me.GroupBox3.Controls.Add(Me.帳號2_tb)
+        Me.GroupBox3.Controls.Add(Me.IP2_tb)
+        Me.GroupBox3.Controls.Add(Me.Label12)
         Me.GroupBox3.Controls.Add(Me.資料庫_tb)
         Me.GroupBox3.Controls.Add(Me.Label5)
         Me.GroupBox3.Controls.Add(Me.客戶資料表_dgv)
@@ -83,26 +100,29 @@ Partial Class 系統編碼規則
         Me.GroupBox3.Controls.Add(Me.客戶表新增_bt)
         Me.GroupBox3.Controls.Add(Me.客戶表刪除_bt)
         Me.GroupBox3.Controls.Add(Me.客戶名_tb)
-        Me.GroupBox3.Location = New System.Drawing.Point(18, 63)
+        Me.GroupBox3.Location = New System.Drawing.Point(12, 35)
+        Me.GroupBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Size = New System.Drawing.Size(248, 356)
+        Me.GroupBox3.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GroupBox3.Size = New System.Drawing.Size(482, 923)
         Me.GroupBox3.TabIndex = 1500
         Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "客戶資料表"
         '
         '資料庫_tb
         '
-        Me.資料庫_tb.Location = New System.Drawing.Point(169, 17)
+        Me.資料庫_tb.Location = New System.Drawing.Point(174, 16)
+        Me.資料庫_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.資料庫_tb.Name = "資料庫_tb"
-        Me.資料庫_tb.Size = New System.Drawing.Size(73, 22)
+        Me.資料庫_tb.Size = New System.Drawing.Size(84, 23)
         Me.資料庫_tb.TabIndex = 1006
         '
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(12, 21)
+        Me.Label5.Location = New System.Drawing.Point(4, 19)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(29, 12)
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
         Me.Label5.TabIndex = 231
         Me.Label5.Text = "客戶"
         '
@@ -114,20 +134,22 @@ Partial Class 系統編碼規則
             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, 70)
+        Me.客戶資料表_dgv.Location = New System.Drawing.Point(4, 76)
+        Me.客戶資料表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.客戶資料表_dgv.Name = "客戶資料表_dgv"
         Me.客戶資料表_dgv.RowHeadersWidth = 5
         Me.客戶資料表_dgv.RowTemplate.Height = 24
-        Me.客戶資料表_dgv.Size = New System.Drawing.Size(239, 280)
+        Me.客戶資料表_dgv.Size = New System.Drawing.Size(473, 839)
         Me.客戶資料表_dgv.TabIndex = 222
         '
         '客戶表修改_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.DarkGreen
-        Me.客戶表修改_bt.Location = New System.Drawing.Point(88, 42)
+        Me.客戶表修改_bt.Location = New System.Drawing.Point(63, 42)
+        Me.客戶表修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.客戶表修改_bt.Name = "客戶表修改_bt"
-        Me.客戶表修改_bt.Size = New System.Drawing.Size(66, 25)
+        Me.客戶表修改_bt.Size = New System.Drawing.Size(55, 28)
         Me.客戶表修改_bt.TabIndex = 224
         Me.客戶表修改_bt.Text = "修改"
         Me.客戶表修改_bt.UseVisualStyleBackColor = True
@@ -135,9 +157,9 @@ Partial Class 系統編碼規則
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(126, 22)
+        Me.Label6.Location = New System.Drawing.Point(129, 19)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(41, 12)
+        Me.Label6.Size = New System.Drawing.Size(44, 16)
         Me.Label6.TabIndex = 229
         Me.Label6.Text = "資料庫"
         '
@@ -145,9 +167,10 @@ Partial Class 系統編碼規則
         '
         Me.客戶表新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.客戶表新增_bt.ForeColor = System.Drawing.Color.Blue
-        Me.客戶表新增_bt.Location = New System.Drawing.Point(3, 43)
+        Me.客戶表新增_bt.Location = New System.Drawing.Point(6, 42)
+        Me.客戶表新增_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.客戶表新增_bt.Name = "客戶表新增_bt"
-        Me.客戶表新增_bt.Size = New System.Drawing.Size(66, 25)
+        Me.客戶表新增_bt.Size = New System.Drawing.Size(55, 28)
         Me.客戶表新增_bt.TabIndex = 223
         Me.客戶表新增_bt.Text = "新增"
         Me.客戶表新增_bt.UseVisualStyleBackColor = True
@@ -156,43 +179,357 @@ Partial Class 系統編碼規則
         '
         Me.客戶表刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.客戶表刪除_bt.ForeColor = System.Drawing.Color.Red
-        Me.客戶表刪除_bt.Location = New System.Drawing.Point(169, 43)
+        Me.客戶表刪除_bt.Location = New System.Drawing.Point(122, 42)
+        Me.客戶表刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.客戶表刪除_bt.Name = "客戶表刪除_bt"
-        Me.客戶表刪除_bt.Size = New System.Drawing.Size(66, 25)
+        Me.客戶表刪除_bt.Size = New System.Drawing.Size(55, 28)
         Me.客戶表刪除_bt.TabIndex = 225
         Me.客戶表刪除_bt.Text = "刪除"
         Me.客戶表刪除_bt.UseVisualStyleBackColor = True
         '
         '客戶名_tb
         '
-        Me.客戶名_tb.Location = New System.Drawing.Point(45, 17)
+        Me.客戶名_tb.Location = New System.Drawing.Point(39, 16)
+        Me.客戶名_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.客戶名_tb.Name = "客戶名_tb"
-        Me.客戶名_tb.Size = New System.Drawing.Size(73, 22)
+        Me.客戶名_tb.Size = New System.Drawing.Size(84, 23)
         Me.客戶名_tb.TabIndex = 227
         '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(6, 19)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(93, 16)
+        Me.Label1.TabIndex = 1502
+        Me.Label1.Text = "LOG檔案資料庫"
+        '
+        'LOG資料庫_tb
+        '
+        Me.LOG資料庫_tb.Location = New System.Drawing.Point(105, 16)
+        Me.LOG資料庫_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG資料庫_tb.Name = "LOG資料庫_tb"
+        Me.LOG資料庫_tb.Size = New System.Drawing.Size(119, 23)
+        Me.LOG資料庫_tb.TabIndex = 1501
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(230, 19)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(42, 16)
+        Me.Label2.TabIndex = 1504
+        Me.Label2.Text = "IP位置"
+        '
+        'IP_tb
+        '
+        Me.IP_tb.Location = New System.Drawing.Point(278, 16)
+        Me.IP_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.IP_tb.Name = "IP_tb"
+        Me.IP_tb.Size = New System.Drawing.Size(205, 23)
+        Me.IP_tb.TabIndex = 1503
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(489, 19)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 1506
+        Me.Label4.Text = "帳號"
+        '
+        '帳號_tb
+        '
+        Me.帳號_tb.Location = New System.Drawing.Point(527, 15)
+        Me.帳號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.帳號_tb.Name = "帳號_tb"
+        Me.帳號_tb.Size = New System.Drawing.Size(103, 23)
+        Me.帳號_tb.TabIndex = 1505
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(636, 19)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(32, 16)
+        Me.Label7.TabIndex = 1508
+        Me.Label7.Text = "密碼"
+        '
+        '密碼_tb
+        '
+        Me.密碼_tb.Location = New System.Drawing.Point(674, 15)
+        Me.密碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.密碼_tb.Name = "密碼_tb"
+        Me.密碼_tb.Size = New System.Drawing.Size(114, 23)
+        Me.密碼_tb.TabIndex = 1507
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.LOG資料庫修正_bt)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.Label7)
+        Me.GroupBox1.Controls.Add(Me.LOG資料庫_tb)
+        Me.GroupBox1.Controls.Add(Me.密碼_tb)
+        Me.GroupBox1.Controls.Add(Me.IP_tb)
+        Me.GroupBox1.Controls.Add(Me.Label4)
+        Me.GroupBox1.Controls.Add(Me.Label2)
+        Me.GroupBox1.Controls.Add(Me.帳號_tb)
+        Me.GroupBox1.Location = New System.Drawing.Point(501, 33)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(918, 48)
+        Me.GroupBox1.TabIndex = 1509
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "LOG總資料庫"
+        '
+        'LOG資料庫修正_bt
+        '
+        Me.LOG資料庫修正_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.LOG資料庫修正_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.LOG資料庫修正_bt.Location = New System.Drawing.Point(794, 13)
+        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(118, 28)
+        Me.LOG資料庫修正_bt.TabIndex = 1510
+        Me.LOG資料庫修正_bt.Text = "修改"
+        Me.LOG資料庫修正_bt.UseVisualStyleBackColor = True
+        '
+        'LOG總_dgv
+        '
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.LOG總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.LOG總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.LOG總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.LOG總_dgv.Location = New System.Drawing.Point(501, 136)
+        Me.LOG總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG總_dgv.Name = "LOG總_dgv"
+        Me.LOG總_dgv.RowHeadersWidth = 5
+        Me.LOG總_dgv.RowTemplate.Height = 24
+        Me.LOG總_dgv.Size = New System.Drawing.Size(757, 822)
+        Me.LOG總_dgv.TabIndex = 1510
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.比對_bt)
+        Me.GroupBox2.Controls.Add(Me.Label8)
+        Me.GroupBox2.Controls.Add(Me.Label9)
+        Me.GroupBox2.Controls.Add(Me.LOG資料庫1_tb)
+        Me.GroupBox2.Controls.Add(Me.密碼1_tb)
+        Me.GroupBox2.Controls.Add(Me.IP1_tb)
+        Me.GroupBox2.Controls.Add(Me.Label10)
+        Me.GroupBox2.Controls.Add(Me.Label11)
+        Me.GroupBox2.Controls.Add(Me.帳號1_tb)
+        Me.GroupBox2.Location = New System.Drawing.Point(501, 81)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(918, 48)
+        Me.GroupBox2.TabIndex = 1511
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "LOG客戶資料庫"
+        '
+        '比對_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.DarkGreen
+        Me.比對_bt.Location = New System.Drawing.Point(794, 13)
+        Me.比對_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.比對_bt.Name = "比對_bt"
+        Me.比對_bt.Size = New System.Drawing.Size(118, 28)
+        Me.比對_bt.TabIndex = 1512
+        Me.比對_bt.Text = "比對"
+        Me.比對_bt.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(6, 19)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(93, 16)
+        Me.Label8.TabIndex = 1502
+        Me.Label8.Text = "LOG檔案資料庫"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(636, 19)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 1508
+        Me.Label9.Text = "密碼"
+        '
+        'LOG資料庫1_tb
+        '
+        Me.LOG資料庫1_tb.Location = New System.Drawing.Point(105, 16)
+        Me.LOG資料庫1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG資料庫1_tb.Name = "LOG資料庫1_tb"
+        Me.LOG資料庫1_tb.Size = New System.Drawing.Size(119, 23)
+        Me.LOG資料庫1_tb.TabIndex = 1501
+        '
+        '密碼1_tb
+        '
+        Me.密碼1_tb.Location = New System.Drawing.Point(674, 15)
+        Me.密碼1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.密碼1_tb.Name = "密碼1_tb"
+        Me.密碼1_tb.Size = New System.Drawing.Size(114, 23)
+        Me.密碼1_tb.TabIndex = 1507
+        '
+        'IP1_tb
+        '
+        Me.IP1_tb.Location = New System.Drawing.Point(278, 16)
+        Me.IP1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.IP1_tb.Name = "IP1_tb"
+        Me.IP1_tb.Size = New System.Drawing.Size(205, 23)
+        Me.IP1_tb.TabIndex = 1503
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(489, 19)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 1506
+        Me.Label10.Text = "帳號"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(230, 19)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(42, 16)
+        Me.Label11.TabIndex = 1504
+        Me.Label11.Text = "IP位置"
+        '
+        '帳號1_tb
+        '
+        Me.帳號1_tb.Location = New System.Drawing.Point(527, 15)
+        Me.帳號1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.帳號1_tb.Name = "帳號1_tb"
+        Me.帳號1_tb.Size = New System.Drawing.Size(103, 23)
+        Me.帳號1_tb.TabIndex = 1505
+        '
+        'LOG子_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG子_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.LOG子_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.LOG子_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.LOG子_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.LOG子_dgv.Location = New System.Drawing.Point(1260, 136)
+        Me.LOG子_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG子_dgv.Name = "LOG子_dgv"
+        Me.LOG子_dgv.RowHeadersWidth = 5
+        Me.LOG子_dgv.RowTemplate.Height = 24
+        Me.LOG子_dgv.Size = New System.Drawing.Size(647, 822)
+        Me.LOG子_dgv.TabIndex = 1512
+        '
+        '批量比對_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.DarkGreen
+        Me.批量比對_bt.Location = New System.Drawing.Point(1423, 40)
+        Me.批量比對_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.批量比對_bt.Name = "批量比對_bt"
+        Me.批量比對_bt.Size = New System.Drawing.Size(118, 89)
+        Me.批量比對_bt.TabIndex = 1513
+        Me.批量比對_bt.Text = "批量比對"
+        Me.批量比對_bt.UseVisualStyleBackColor = True
+        '
+        '刪除LOG檔_bt
+        '
+        Me.刪除LOG檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除LOG檔_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除LOG檔_bt.Location = New System.Drawing.Point(1547, 40)
+        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(118, 89)
+        Me.刪除LOG檔_bt.TabIndex = 1514
+        Me.刪除LOG檔_bt.Text = "刪除LOG檔"
+        Me.刪除LOG檔_bt.UseVisualStyleBackColor = True
+        '
+        'IP2_tb
+        '
+        Me.IP2_tb.Location = New System.Drawing.Point(312, 16)
+        Me.IP2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.IP2_tb.Name = "IP2_tb"
+        Me.IP2_tb.Size = New System.Drawing.Size(164, 23)
+        Me.IP2_tb.TabIndex = 1505
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(264, 19)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(42, 16)
+        Me.Label12.TabIndex = 1506
+        Me.Label12.Text = "IP位置"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(328, 48)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(32, 16)
+        Me.Label13.TabIndex = 1512
+        Me.Label13.Text = "密碼"
+        '
+        '密碼2_tb
+        '
+        Me.密碼2_tb.Location = New System.Drawing.Point(363, 45)
+        Me.密碼2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.密碼2_tb.Name = "密碼2_tb"
+        Me.密碼2_tb.Size = New System.Drawing.Size(114, 23)
+        Me.密碼2_tb.TabIndex = 1511
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(181, 48)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(32, 16)
+        Me.Label14.TabIndex = 1510
+        Me.Label14.Text = "帳號"
+        '
+        '帳號2_tb
+        '
+        Me.帳號2_tb.Location = New System.Drawing.Point(216, 45)
+        Me.帳號2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.帳號2_tb.Name = "帳號2_tb"
+        Me.帳號2_tb.Size = New System.Drawing.Size(103, 23)
+        Me.帳號2_tb.TabIndex = 1509
+        '
         '系統編碼規則
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1490, 681)
+        Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.刪除LOG檔_bt)
+        Me.Controls.Add(Me.批量比對_bt)
+        Me.Controls.Add(Me.LOG子_dgv)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.LOG總_dgv)
+        Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.GroupBox3)
-        Me.Controls.Add(Me.字體大小調整_lb)
-        Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.Label3)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "系統編碼規則"
         Me.Text = "系統編碼規則"
-        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox3.ResumeLayout(False)
         Me.GroupBox3.PerformLayout()
         CType(Me.客戶資料表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.LOG總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        CType(Me.LOG子_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents Label3 As Label
-    Friend WithEvents 字體大小調整_lb As Label
-    Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents GroupBox3 As GroupBox
     Friend WithEvents Label5 As Label
     Friend WithEvents 客戶資料表_dgv As DataGridView
@@ -202,4 +539,34 @@ Partial Class 系統編碼規則
     Friend WithEvents 客戶表刪除_bt As Button
     Friend WithEvents 客戶名_tb As TextBox
     Friend WithEvents 資料庫_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents LOG資料庫_tb As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents IP_tb As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 帳號_tb As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 密碼_tb As TextBox
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents LOG資料庫修正_bt As Button
+    Friend WithEvents LOG總_dgv As DataGridView
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents 比對_bt As Button
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents LOG資料庫1_tb As TextBox
+    Friend WithEvents 密碼1_tb As TextBox
+    Friend WithEvents IP1_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 帳號1_tb As TextBox
+    Friend WithEvents LOG子_dgv As DataGridView
+    Friend WithEvents 批量比對_bt As Button
+    Friend WithEvents 刪除LOG檔_bt As Button
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 密碼2_tb As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 帳號2_tb As TextBox
+    Friend WithEvents IP2_tb As TextBox
+    Friend WithEvents Label12 As Label
 End Class

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

@@ -1,5 +1,5 @@
 Public Class 系統編碼規則
-    ReadOnly ds As New DataSet
+    ReadOnly ds, ds1, ds2 As New DataSet
     Private Sub Set_客戶資料清單()
         客戶資料表_dgv.DataSource = Nothing : ds.Clear()
         客戶資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -7,38 +7,71 @@
         客戶資料表_dgv.AllowUserToAddRows = False
         SQL_客戶資料表()
         da.Fill(ds) : 客戶資料表_dgv.DataSource = ds.Tables(0) : conn.Close()
-        客戶資料表_dgv.Columns(0).FillWeight = 80 : 客戶資料表_dgv.Columns(1).FillWeight = 80
+        客戶資料表_dgv.Columns(0).FillWeight = 60 : 客戶資料表_dgv.Columns(1).FillWeight = 80 : 客戶資料表_dgv.Columns(2).FillWeight = 150 : 客戶資料表_dgv.Columns(3).FillWeight = 80
+        客戶資料表_dgv.Columns(4).FillWeight = 80
     End Sub
-    Private Sub 重開()
-        dr.Close() : ConnOpen()
+    Private Sub Set_LOG總()
+        LOG總_dgv.DataSource = Nothing : ds1.Clear()
+        LOG總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LOG總_dgv.ColumnHeadersHeight = 25
+        LOG總_dgv.AllowUserToAddRows = False
+        SQL_LOG主資料表()
+        da.Fill(ds1) : LOG總_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        LOG總_dgv.Columns(0).FillWeight = 25 : LOG總_dgv.Columns(1).FillWeight = 40 : LOG總_dgv.Columns(4).FillWeight = 70
+        LOG總_dgv.Columns(5).FillWeight = 120 : LOG總_dgv.Columns(6).FillWeight = 30
+        For i As Integer = 0 To LOG總_dgv.Rows.Count - 1
+            LOG總_dgv("項", i).Value = i + 1
+            LOG總_dgv("比對", i).Value = False
+        Next
     End Sub
-    Private Sub 連結()
-        ConnOpen()
+    Private Sub Set_LOG子()
+        LOG子_dgv.DataSource = Nothing : ds2.Clear()
+        LOG子_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LOG子_dgv.ColumnHeadersHeight = 25
+        LOG子_dgv.AllowUserToAddRows = False
+        SQL_LOG子資料表()
+        da.Fill(ds2) : LOG子_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        LOG子_dgv.Columns(0).FillWeight = 40 : LOG子_dgv.Columns(1).FillWeight = 110 : LOG子_dgv.Columns(3).FillWeight = 70 : LOG子_dgv.Columns(4).FillWeight = 120
+    End Sub
+    Private Sub LOG資料庫()
+        SQL_LOG資料庫讀取()
+        If dr.Read() Then
+            LOG資料庫_tb.Text = dr("資料庫").ToString : IP_tb.Text = dr("IP位置").ToString : 帳號_tb.Text = dr("帳號").ToString : 密碼_tb.Text = dr("密碼").ToString
+            子SQL名稱1 = dr("資料庫").ToString : 登入人IP3 = dr("IP位置").ToString : 業務帳號1 = dr("帳號").ToString : 業務密碼1 = dr("密碼").ToString
+        End If
     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
-        Set_客戶資料清單()
+        Set_客戶資料清單() : LOG資料庫() : SQL_連線字串_LOGSQL() : SQL_LOG多餘資料刪除() : Set_LOG總()
+    End Sub
+    Private Sub 系統編碼規則_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        子SQL名稱 = Strings.Right(GA_ERP_SYS.使用者_cb.Text, 6)
+        SQL_連線字串_子SQL()
     End Sub
-
     Private Sub 客戶資料表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 客戶資料表_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            客戶名_tb.Text = 客戶資料表_dgv("客戶", e.RowIndex).Value.ToString : 資料庫_tb.Text = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString
+            客戶名_tb.Text = 客戶資料表_dgv("客戶", e.RowIndex).Value.ToString
+            資料庫_tb.Text = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString : LOG資料庫1_tb.Text = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString
+            子SQL名稱 = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString
+            IP1_tb.Text = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString : 登入人IP2 = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString
+            IP2_tb.Text = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString
+            帳號1_tb.Text = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString : 業務帳號 = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString
+            帳號2_tb.Text = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString
+            密碼1_tb.Text = 客戶資料表_dgv("密碼", e.RowIndex).Value.ToString : 客戶資料表_dgv("密碼", e.RowIndex).Value.ToString()
+            密碼2_tb.Text = 客戶資料表_dgv("密碼", e.RowIndex).Value.ToString
+            SQL_連線字串_子SQL() : Set_LOG子()
         End If
     End Sub
-    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
-        客戶資料表_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
-    End Sub
-
     Private Sub 客戶表新增_bt_Click(sender As Object, e As EventArgs) Handles 客戶表新增_bt.Click
         If 客戶名_tb.Text = "" And 資料庫_tb.Text = "" Then
             MsgBox("資料沒有完整，請重新檢查")
         Else
-            PA = 客戶名_tb.Text : PA1 = 資料庫_tb.Text
-            連結() : SQL_系統編碼規則_客戶重複查詢() : CmdSet_For_dr()
+            PA = 客戶名_tb.Text : PA1 = 資料庫_tb.Text : PA2 = IP2_tb.Text : PA3 = 帳號2_tb.Text : PA4 = 密碼2_tb.Text
+            ConnOpen() : SQL_系統編碼規則_客戶重複查詢() : CmdSet_For_dr()
             If dr.Read() Then
                 MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
             Else
-                重開() : SQL_系統編碼規則_客戶新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
+                dr.Close() : ConnOpen() : SQL_系統編碼規則_客戶新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
             End If
         End If : Set_客戶資料清單()
     End Sub
@@ -46,20 +79,71 @@
         If 客戶名_tb.Text = "" Or 資料庫_tb.Text = "" Then
             MsgBox("資料有缺或有誤，請重新檢查")
         Else
-            PA = InputBox("請輸入要修改的客戶名:", "客戶名稱") : PA1 = InputBox("請輸入要修改的內容", "資料庫名稱")
+            PA = InputBox("請輸入要修改的客戶名:", "客戶名稱", 客戶名_tb.Text) : PA1 = InputBox("請輸入要修改的資料庫名稱", "資料庫名稱", 資料庫_tb.Text)
+            PA4 = InputBox("請輸入要修改的IP位置", "IP位置", IP2_tb.Text) : PA5 = InputBox("請輸入要修改的資料庫帳號", "資料庫帳號", 帳號2_tb.Text)
+            PA6 = InputBox("請輸入要修改的資料庫密碼", "資料庫密碼", 密碼2_tb.Text)
             PA2 = 客戶名_tb.Text : PA3 = 資料庫_tb.Text
             If PA = "" Or PA1 = "" Then
                 MsgBox("不能空白")
             Else
-                連結() : SQL_系統編碼規則_客戶修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
+                ConnOpen() : SQL_系統編碼規則_客戶修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
             End If
         End If : Set_客戶資料清單()
     End Sub
+    Private Sub 比對_bt_Click(sender As Object, e As EventArgs) Handles 比對_bt.Click
+        If 客戶名_tb.Text = "" Then
+            MsgBox("要先選擇客戶，才能比對LOG檔!!!")
+        Else
+            資料數 = LOG總_dgv.Rows.Count * 2 : 比對() : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        End If
+    End Sub
+    Private Sub 批量比對_bt_Click(sender As Object, e As EventArgs) Handles 批量比對_bt.Click
+        資料數 = LOG總_dgv.Rows.Count * 客戶資料表_dgv.Rows.Count
+        For III As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
+            客戶名_tb.Text = 客戶資料表_dgv("客戶", III).Value.ToString : 資料庫_tb.Text = 客戶資料表_dgv("資料庫", III).Value.ToString
+            LOG資料庫1_tb.Text = 客戶資料表_dgv("資料庫", III).Value.ToString : IP1_tb.Text = 客戶資料表_dgv("IP位置", III).Value.ToString
+            帳號1_tb.Text = 客戶資料表_dgv("帳號", III).Value.ToString : 密碼1_tb.Text = 客戶資料表_dgv("密碼", III).Value.ToString
+            子SQL名稱 = 客戶資料表_dgv("資料庫", III).Value.ToString : 登入人IP2 = 客戶資料表_dgv("IP位置", III).Value.ToString
+            業務帳號 = 客戶資料表_dgv("帳號", III).Value.ToString : 客戶資料表_dgv("密碼", III).Value.ToString()
+            SQL_連線字串_子SQL() : Set_LOG子() : 比對()
+        Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub 比對()
+        For i As Integer = 0 To LOG總_dgv.Rows.Count - 1
+            MyModule1.進度條()
+            If 客戶名_tb.Text = LOG總_dgv("客戶", i).Value.ToString Then
+                For ii As Integer = 0 To LOG子_dgv.Rows.Count - 1
+                    If LOG總_dgv("比對", i).Value = False Then
+                        If LOG總_dgv("查詢區間", i).Value.ToString = LOG子_dgv("查詢區間", ii).Value.ToString And
+                           LOG總_dgv("網址", i).Value.ToString = LOG子_dgv("網址", ii).Value.ToString Then
+                            LOG總_dgv("比對", i).Value = True
+                        End If
+                    End If
+                Next
+            End If
+        Next
+        For i As Integer = 0 To LOG總_dgv.Rows.Count - 1
+            MyModule1.進度條()
+            If LOG總_dgv("比對", i).Value = False And 客戶名_tb.Text = LOG總_dgv("客戶", i).Value.ToString Then
+                PA1 = LOG總_dgv("查詢區間", i).Value.ToString : PA2 = LOG總_dgv("網址", i).Value.ToString : PA3 = LOG總_dgv("客戶", i).Value.ToString
+                SQL_LOG主資料表刪除1()
+            End If
+        Next
+        Set_LOG總()
+    End Sub
+    Private Sub 刪除LOG檔_bt_Click(sender As Object, e As EventArgs) Handles 刪除LOG檔_bt.Click
+        Dim aa As MsgBoxResult = MsgBox("確定要刪除該客戶的LOG檔?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            SQL_LOG主資料表刪除2() : SQL_LOG主資料表刪除3() : MsgBox("刪除完成")
+        End If : conn.Close() : Set_LOG總() : Set_LOG子()
+    End Sub
     Private Sub 客戶表刪除_bt_Click(sender As Object, e As EventArgs) Handles 客戶表刪除_bt.Click
         Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
         If aa = MsgBoxResult.Ok Then
             ConnOpen() : SQL_系統編碼規則_客戶刪除() : CmdSet_For_dr() : MsgBox("刪除完成")
-        End If
-        conn.Close() : Set_客戶資料清單()
+        End If : conn.Close() : Set_客戶資料清單()
+    End Sub
+    Private Sub LOG資料庫修正_bt_Click(sender As Object, e As EventArgs) Handles LOG資料庫修正_bt.Click
+        SQL_LOG資料庫修改() : MsgBox("修改完成!!")
     End Sub
 End Class

GA-ERP-SYS/資料庫系統管理/計算機.Designer.vb

@@ -0,0 +1,345 @@
+<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.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Button18 = New System.Windows.Forms.Button()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button9 = New System.Windows.Forms.Button()
+        Me.Button8 = New System.Windows.Forms.Button()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button16 = New System.Windows.Forms.Button()
+        Me.Button15 = New System.Windows.Forms.Button()
+        Me.Button14 = New System.Windows.Forms.Button()
+        Me.Button13 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox4.Location = New System.Drawing.Point(12, 31)
+        Me.TextBox4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(256, 39)
+        Me.TextBox4.TabIndex = 859
+        Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(100, 5)
+        Me.TextBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(80, 23)
+        Me.TextBox3.TabIndex = 858
+        Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Button18
+        '
+        Me.Button18.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button18.Location = New System.Drawing.Point(208, 302)
+        Me.Button18.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button18.Name = "Button18"
+        Me.Button18.Size = New System.Drawing.Size(58, 67)
+        Me.Button18.TabIndex = 857
+        Me.Button18.Text = "="
+        Me.Button18.UseVisualStyleBackColor = True
+        '
+        'Button17
+        '
+        Me.Button17.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button17.Location = New System.Drawing.Point(144, 302)
+        Me.Button17.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button17.Name = "Button17"
+        Me.Button17.Size = New System.Drawing.Size(58, 67)
+        Me.Button17.TabIndex = 856
+        Me.Button17.Text = "AC"
+        Me.Button17.UseVisualStyleBackColor = True
+        '
+        'Button12
+        '
+        Me.Button12.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button12.Location = New System.Drawing.Point(77, 302)
+        Me.Button12.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(58, 67)
+        Me.Button12.TabIndex = 855
+        Me.Button12.Text = "."
+        Me.Button12.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button11.Location = New System.Drawing.Point(208, 78)
+        Me.Button11.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(58, 40)
+        Me.Button11.TabIndex = 854
+        Me.Button11.Text = "➨"
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'Button10
+        '
+        Me.Button10.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button10.Location = New System.Drawing.Point(12, 302)
+        Me.Button10.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(58, 67)
+        Me.Button10.TabIndex = 853
+        Me.Button10.Text = "0"
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button9
+        '
+        Me.Button9.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button9.Location = New System.Drawing.Point(143, 78)
+        Me.Button9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(58, 67)
+        Me.Button9.TabIndex = 852
+        Me.Button9.Text = "9"
+        Me.Button9.UseVisualStyleBackColor = True
+        '
+        'Button8
+        '
+        Me.Button8.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button8.Location = New System.Drawing.Point(77, 78)
+        Me.Button8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(58, 67)
+        Me.Button8.TabIndex = 851
+        Me.Button8.Text = "8"
+        Me.Button8.UseVisualStyleBackColor = True
+        '
+        'Button7
+        '
+        Me.Button7.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button7.Location = New System.Drawing.Point(12, 78)
+        Me.Button7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(58, 67)
+        Me.Button7.TabIndex = 850
+        Me.Button7.Text = "7"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'Button6
+        '
+        Me.Button6.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button6.Location = New System.Drawing.Point(143, 153)
+        Me.Button6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(58, 67)
+        Me.Button6.TabIndex = 849
+        Me.Button6.Text = "6"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button5.Location = New System.Drawing.Point(77, 153)
+        Me.Button5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(58, 67)
+        Me.Button5.TabIndex = 848
+        Me.Button5.Text = "5"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button4.Location = New System.Drawing.Point(12, 153)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(58, 67)
+        Me.Button4.TabIndex = 847
+        Me.Button4.Text = "4"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button3.Location = New System.Drawing.Point(143, 228)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(58, 67)
+        Me.Button3.TabIndex = 846
+        Me.Button3.Text = "3"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button2.Location = New System.Drawing.Point(77, 228)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(58, 67)
+        Me.Button2.TabIndex = 845
+        Me.Button2.Text = "2"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button1.Location = New System.Drawing.Point(12, 228)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(58, 67)
+        Me.Button1.TabIndex = 844
+        Me.Button1.Text = "1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(12, 5)
+        Me.TextBox2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(80, 23)
+        Me.TextBox2.TabIndex = 843
+        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(188, 5)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(80, 23)
+        Me.TextBox1.TabIndex = 842
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Button16
+        '
+        Me.Button16.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button16.Location = New System.Drawing.Point(208, 166)
+        Me.Button16.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button16.Name = "Button16"
+        Me.Button16.Size = New System.Drawing.Size(58, 40)
+        Me.Button16.TabIndex = 841
+        Me.Button16.Text = "/"
+        Me.Button16.UseVisualStyleBackColor = True
+        '
+        'Button15
+        '
+        Me.Button15.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button15.Location = New System.Drawing.Point(208, 122)
+        Me.Button15.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button15.Name = "Button15"
+        Me.Button15.Size = New System.Drawing.Size(58, 40)
+        Me.Button15.TabIndex = 840
+        Me.Button15.Text = "X"
+        Me.Button15.UseVisualStyleBackColor = True
+        '
+        'Button14
+        '
+        Me.Button14.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button14.Location = New System.Drawing.Point(208, 255)
+        Me.Button14.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(58, 40)
+        Me.Button14.TabIndex = 839
+        Me.Button14.Text = "-"
+        Me.Button14.UseVisualStyleBackColor = True
+        '
+        'Button13
+        '
+        Me.Button13.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button13.Location = New System.Drawing.Point(208, 210)
+        Me.Button13.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button13.Name = "Button13"
+        Me.Button13.Size = New System.Drawing.Size(58, 40)
+        Me.Button13.TabIndex = 838
+        Me.Button13.Text = "+"
+        Me.Button13.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(280, 374)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.Button18)
+        Me.Controls.Add(Me.Button17)
+        Me.Controls.Add(Me.Button12)
+        Me.Controls.Add(Me.Button11)
+        Me.Controls.Add(Me.Button10)
+        Me.Controls.Add(Me.Button9)
+        Me.Controls.Add(Me.Button8)
+        Me.Controls.Add(Me.Button7)
+        Me.Controls.Add(Me.Button6)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Button16)
+        Me.Controls.Add(Me.Button15)
+        Me.Controls.Add(Me.Button14)
+        Me.Controls.Add(Me.Button13)
+        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 TextBox4 As TextBox
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents Button18 As Button
+    Friend WithEvents Button17 As Button
+    Friend WithEvents Button12 As Button
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Button9 As Button
+    Friend WithEvents Button8 As Button
+    Friend WithEvents Button7 As Button
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button16 As Button
+    Friend WithEvents Button15 As Button
+    Friend WithEvents Button14 As Button
+    Friend WithEvents Button13 As Button
+End Class

GA-ERP-SYS/資料庫系統管理/計算機.resx

@@ -0,0 +1,654 @@
+<?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>
+        AAABAAEAAAAAAAEAIADcewAAFgAAAIlQTkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAAe6NJ
+        REFUeNrtXXd8FNXafmZmd7PpFUIKHYHQFVGRqiJSQpMexN71Xj/1Xtu14NXrtfeCnQ727rUCaYDSW5Be
+        Qid1s9lsmznfH7tncmZ2s9m+G8jz+wWS3SmnvuftL9CKVrSiFa1oRSta0YpWtKIVrWhFK1rRila0ohWt
+        aEUrWtGKVrSiFa1oRSta0YpWtKIVrWhFK1ouOLPZTNx+wXGeb3R+L0kSCCEQBKH5lzXzzGDd4y0Iaey6
+        3W4Hx3HQaDQhe28o++IJkiTJ749UG/wFO0ccx4EQIveH5/mAnxmpvqghiiJ4ngfP84rrfG2rN9ez12is
+        VqvbizwtFkKI4nu73Q4AEATB433+LEBfrvf12ZR4EUJgt9vB8zxEUYRGo/GKoLUkiKIoE2p/N04koN4M
+        kiRBkiR5rv0haJSABLt9gVxLCIHVapWJAP2sqXs8fU73p6fvKTiDwaB4kqeBZT9Tv4ROjCAI8uahL/Jn
+        sry51t/TTBRFeRFIkgStVqsYdPqZv4jGU5YQAlEU5fZRYh2p09CXdrMnP/07ECKm7nMwx6C5ZzX1Pcdx
+        kCQJoijK/WPnxx9C0FwbCCFwO4r+bD5BEKDRaCCKIux2u0sDomFTEEJgs9lkVl+j0YDjOFitVvknGtoZ
+        CtA+UxaTEuxoB90EdrsdkiSB5/mAuTPKibI/4eyPO1DCRg8euodCLYrKHEBzp7S3OgF60gQiTwfr9Kfs
+        Dj0taLvY7zQajby4tFqtTLho2wMZ3EihuTbQkxSAfNL4inBwDuyp6E58CVYbgs0R+CqHuwMl0Or5cXef
+        P1wA/V6xyptj+5uCgqI4Nz6dOHrKNtcYbxehL4tVFEV509P7aNt0Op0sCgiCIJ+KrAwWrHaEG821je2v
+        KIp+6QXCQQDoyU/brG6jp9M00PEKpH/sIePpGk/f041PdVMajaZJnUBTz2ruHRzHQROIMqWp+1giQDvg
+        aYGFajMRQqDT6QA0yv2sPElZYEKIQg8QDQg1gWHlaMoR0L9DpX/xdVPR+fKWKAd7fCKtH6EigSiKsNls
+        st4GgFsR2x8ioPGX5fd0Df2cUm0qz7iT3bwVLfwdQJbNp0RJo9HAZrPJVJae/KFqh79tD8c7WJ2A3W6X
+        5yjY8+ILW0zb4+/mV7ctEI4gGJxAU8/ytp2CIMjcmjtTIfu8pj5v6vn+CbrwTldAX0g7QBcY7UAoFzk9
+        3W02m0wE6KKi1JReRxUvoW6TN+MXTqjNuazcGew2enoWO+7qhR7pcQoWMfD2XZ6IABUJKLfmz4nvcr3R
+        aHRrBvR2UFg0R6lZvUAoTlzacVbsoIRHq9WC4zjZFEa1yYFwQP4iWh1yWFMbAI/jEwpQCxJ9d6jY/kA2
+        cjAsJ/6aCul3VClK9QL+PIPC5xEOZMNQZQZVzgUbdIOzpzt9J6WclPhE6yaMJKh/AD1d6EILB1gHH28O
+        iLMZ3ihxqdOav8+Qr6McgK8yX6BefSwVY9mW5p6pdg1Vg6XQgiDAZrPJBIAubF80yoGgJRMZlgCE2nuQ
+        Vch64jo8ecYF2tdA2h6q9zb3PWvF8uU5rHOV3zqAQMFaCXxhNdlOq813rLJD/Td9ZzjRUjc/bTvV3bBW
+        gmD3ydvNT9sUac18ONvU3LNZToDuCW9FeCpqNcsBBHLye8NV0JPGW20vPdEp+8NaF1jnHtZtlH7HuvcG
+        eyG35NPeE9R6gWCa5NTOLv5YFqKFIwhGW7yV292BVQ425x9B95xWq/VdBxBM0AazjkPNgW5+qgBhqR7l
+        CKhLL2vnZk//s3GjhgqsXgBA0FyI2ed44zjTVNvOpqjNQEAD2LzR27BzydXX13sVDhzMk7+pa9iAIk8c
+        CUvB1A4+rMmRnlZUzxAMRMJqEC1gHagC0Quw3FkwNrG/rrDBeIen6/19fyCcgFqk8uQ6bLPZIqMD8GRG
+        9BTOyLKjkiTBarXKRIByBGw0FdUThILdPxfBRhH6qxdQR7wBgftfBNuVtyWDdW4D3OsRFHozNQfg7uR3
+        97k7hDKEF4CLWzHrHsk69NAFFoyY/qbG41wHa7bzdpzZe8Lh5BOKsF9/4v9DwQl4e42aE6HxFVQk9oqH
+        CzX77A2oHE81mDSgh3Uzpll9gm22ikTYaLTDV2Wgu1j+cHjWRXLeAn1vKNotiiJ0Ol0jIQjGy4J58rMy
+        vlqRR5UcNGyXsv6sn7+3/gTetrN10zcNurnYcaefs/+zEZnBYvv9aasa/hAgX+MMAnUl9iaiz9OzWcc4
+        ykFTTkyr1YZHB+DtRLPsCjUN0v/VIceKvGZOdkan00Ul1T0bQeeKzTJEweaJpHMXDser5hBOv3537/X3
+        nb76GlDiysbD0M+pklzhCOQpD0Aoo/XUYCP0AMgsP+0AVVzQv1mOIJjhzK3wDnShUfGLVeCyEX3RmF8x
+        mBF/3t4fKCHw5tnqHBg0UxdVmtOT32azOTgCT2atQDe/L/JXc/kDaSd4npdj9yl7E8jmV/+0wj+wFgHq
+        jEU/j1aNfLDm3BfxNtC12hzYSEHWyQ6AHGNB9QBuHYG8fVGwNwvP87JygrVTUjmfOjjQLMa0Y/6eLq2b
+        PbhgdQHsGmoJhDUYh4Av94Xy0KGEl7L/oijCbDYrvC3tdnujjq2pxgXSWV87po5JBxrleXe+/tT+r1Y+
+        +TMBrfAfdH5YhR4lyoEqY8Pdj3ASgUDe1dw9rOlRq9XKHDI1mVM9gMVicc0KHImTnz7PZrPJpj51vDO7
+        yOgC8zWcuHXTBw/qk571PGPZz5Yc0hvIBvX3XYGCrW/B8zwsFotCMc4m5JHN5iaTiQDNJ/MIBXFgO261
+        WiEIguzHL0kS9Hq9y2JiY/19EVdaN35wQF2vg+leHe0IVI/h7b3+vIfltKgfDCsqazQa6HQ6ueiIOht0
+        k1aAUINlH9kTnlIsSZJgsVig1+vljrFEqqmUSE29qxWBgTX5+bL5w23vP9dA94o6YlOn04HnebneBfWX
+        UScW5YPhkumPzE8DdthNbLFYIEmSXLyDdsCdHZnCXRES9j0tmQ2NJrDJQXyZ66YKxbQkBOq67Aun6ut7
+        qEKPwmq1yp6ydrtd9palJnaX90ViQFkvPqrk02q1svzPaiypuaK5QXAXotp68gQGypmx6dR8HVPWC60l
+        E4FoA8uRUecenueh1+sVeRbovNG5c/F0bao6sHyBhwn3V+ZnI/roAqEbn1Iq+uNNuiM2Mo2teddKAAKD
+        epEFMp5UdxAt2X6DNT7+Jg8J5Pms4pwq81gPP8qtUbdf6igX1LTg/oAuJnbjqxcC9VxSF0dsCtTbiS32
+        ebYssEgjGJtfnWGYrUbU0ufIVxfdYIAlyuxaZ3VirPclm/LebR+a4gCCefIDUCgg2FhlttY7e4p7C7UP
+        Afu8VvnfPwTz5Hf3bJqPzt/akdGGcHEC6iSg1BpDRWCO4xTBcd68N2hpwT2BUnx1rTeqVKInuD9KJhYs
+        8Wgp1W+jEf4q/LwBXaRsxaiWrhsIh5mZrmdWb0Z/p1mv2OzXXjslqTkAf09+tczNmhrYqrzUiYfKKvSU
+        9ufkb6pNdFGxvgKtvgDNI5Qnv7t3scqqli62qZNuBHK/O9CDkw3vpYp06kMDuHK+zaUX81oH4Gly2I3M
+        fqZ246WyChvrT2P7/fWgamogAyl8ea4iXJsfUJq8zgbnomBE+qlLfrFEkka9Aq5rm+rNmmqXpzbx7IWe
+        IgObApU/2LhwNksP1VLSjW+1WuWOefN8d23xtq3syaJ2lmhFIwghsu9FOJVzlAiwYd9ng9jmK7dJx5+G
+        6LKfAXARkaldnzX/Ndeepj5vVgfgTUdoSmLWHk9lPNoBm80GrVarMEn4W6jDl2AlNREIZ7mraAclxKyn
+        ZaROYDatdUv2GfBH1KSbmya4paIY1ZPRvUI5bRrkw5r7vGmXO/CevvQGVPHAeu6pg3UoV8BmJvF28wcj
+        UouebKzs1FIXWLBBT5BIJu1g9UN0XZwNc+TteqVrk8bps5yQO29ZQEk0AhmngBKCsNfSij2saYeVYXQ6
+        nSKnPCUavgxkoKcTu9Apt9LSF5k/oPPC5lSIFiUpa8M+VzgB1peFLWLD3k85AnrIBqukPWexWHz2A2DB
+        ZuJlO60O8qEdYMtze+ICPGn5A4W63NXZ4JTiC1h7cjT5SrAmQaozousmGtOK+dIv9n9337Mp7tUbn4rT
+        rLcfXb/q4rretINFQJ6A7GSxJzplY1gHHTqJ3iougNBp7FnPKfYkjKbNECoEo7JPqEADW6ifAGslANBi
+        iUBzG5QN42Uz9lKwST7phmcPUnqNN+1QX+v3CqANYhumlt8oNaMKHm8TRYSDHWWTiwDnhuMQW405mjY/
+        kSSAAP/74UeUFJco3MQpp8gGJbVEeNJjsRucKsppX9kknywBdJcp258948IB+PIQNvsLm2qYzRbLPjMa
+        k3eo5S/ar7MNdCHR0zWaQCSCg4f24/n/Pov2HdrjkksHIyE+Xv6eHiLUQhBtBMxbuNv46u9YvxXK4qtr
+        /LlLt8b+7m2tApeUYL6Cbhz2FKWN9WeCIqWIokSARk+dDRpoFtG6+dnDY/HChfhr1y6UlJSgpLhY/p4F
+        qy2nxLqlzpPaVM3a+KmI7K2oHAi8cgRyuYlhP9SKPTY/nL/PjBSo3MkGXrRU0I3BKouiafMDjaLipo0b
+        8cnyFRBFEXW1Biz88CMYDAa3m5uKBJQbOBvAcqB036iz94TicPQrIYhay6/RaBTOPdSW6wtljvTGZ8Eq
+        A1syN0AVRaz5KNrAcRzq6uowf/58nDhxQpb5i4uLUVJc7NGDjVWGtcT5UfdHp9MpPP5ogpxQg/fHbZEu
+        LBbqOH5vtfzRcPK7DIoqsUhL9BdgTX3RNr4UPM9j5a+/4defflYoyIy1dViyaDHq6+ubvJcV21gP1JYw
+        T6zowwasUS8/Twk8mtuvvu4pn44FuvmpjO9LYs6WBnYg/SUCkRwbtoJStIGOy4kTJzD/nXdgNBoVC1bQ
+        CCguKkJJSYlX/aRVo1qSSMCKzZGMVvUpGpCt7a7WTNJrvH2WL9dHCvSUYbme5vwFWFMn2z+a7NRqtaKh
+        oQEWiwUNDQ0wm82KRI6OFwM8x3tsl3rsWY8wdp4ICOCBDnmd1YYDODiLfwi8/Lv6WRqNBlqdFhpeA4Hn
+        kZmZiYSkRMV19BBZumgxNq7f4HY862oNWPTxAgwePBiJiYkex5zOEyvy0M+jCWzhWyCwpDXNRR9SgtJc
+        vgWvCIC6tnswTpVom5zm2souMHcbnEV9fT2qq6tx/PhxHDlyBMcOH8HRo0dx6uQpVFVXwWAwoN5oRIPZ
+        DLvNDlG0Q5KIYrM2PT4EBHDZgBzPQafVAXCWVJNE5grfntXUtYDzlKLEgFN+TQgBLzgOB57jMeCC8/Hq
+        a68pCADVE23ZsgWLFy6SiZUaPM+jcPVqlJSUYNy4cc26vLLmXBp9Gk2OQ+zmZysnRxo+cQDqyi/sd94+
+        w5frowlqIiCKIjRaLYgkob6+HuVHjmDXzjJs27oVO3bswOHDR3DmzBk0mEwQmdNdHgPnv74OBUvLOQCE
+        AILAQ6PVwmZx5ICXRNHlOm+e5c17ueaucRKCmFg9xo4fh8x2mS7jWFdXh3fffgdHy8s9KvqMhjosXbQY
+        w4cPR2JiIjxB7datZrEjBXafqMumN9Vv9X2e4A0n4K4tFB4JAGsGYzd/IGiJm59tu0ajgc1mw8njJ7Cr
+        rAx/rFuH9es3YPfuv1BdWQWbzabwgqQ/wTqN1KMnCLzsNmq1WhtLQ/vxrECv5Zz/SKKEIUOHYMLEiXBH
+        4QoLC/HDd987qJdKTGI3hkbQoLioCKWlpRgzZkyzc0NBNz2blyJS606diyKYm9+XNjT1zGY5AE9axZa8
+        mb0FuyhramqwdfNm/PzTzyguLMSRw0dgsVhgt9kgSQQc36jNbQosKxvohLPhs7T2e6RBJAkpqSm49fbb
+        kZ6ergiEIYSgsrIS8996GwZDLbSC1imEALxGQLdu3XFw/wGINqcyjwPqDAYsWrAAl156KRISErxmm1nv
+        QRqpGm6Wm9X2A75VVAoVMVDDLQFQy/zhakw0wmazoby8HL/98gu++/Y7bNuyFXWGWgCNylCtTic7pjSV
+        pky2IjhPPdb00ygWNMrVzY21wPPQOsup0zwLkVjgLp8ByJ8wEUNHDHP0SRXZtmTJEqxbswYCL8ibXxIl
+        9Oidh2dfeAH/evAh7Ni6rTFXJMejaNVqFBUVYfz48T6Fv7JEQJ08I9SHl3rz+5SoM4z7zYUAsIkag832
+        twSOgS4wm92GsrJd+HT5Cvz4ww84evgIRLsdHM9DEBrjtal2X6vRgNdoYbM7uAGAgON5xOr1SExJRlpa
+        GjIy2iAjIwMZbTKQnp6O+Ph4xMXFISYmRvb55nkeRCIQRXvTynsnEWEdljh4VPYHb3wkCQTALz//jG++
+        +lolY0ro1LkTbrntFsTqY+XP6Xrat2cvFi9YCLtdBM/cFxMbg5tuuhnDhg7FrIICPLGzzBEgBKozMGLZ
+        kqUYMWJEs7oAd2D1ApQND/k4MZs/EBHEW2LQnDWnKV2AggCwjgmsI0ww0BI2P+DIuLJt61asWL4CP/3v
+        fzhx7BhAnBRcdcKypbPsNhsSExOR0z4XWTnZ6JmXh549eqJzl87I6dAeaWlpiIuLkx09Ajmtw+Ej7gkn
+        T57EwgULFUEpjjWjxTXXXoveffvKugi6EawWKz58730c2r8fAtN2URRx+chRmDhlMkRRxPgJ47F0yRKU
+        bdsub1SNIKC0qAilJSUYM3asX20OZ0CROrAs1Jufvd4bIuCWALCN9qa8lreRfd5eGwmwkYsAsG/fPiz4
+        6CN88fkXOHnsuMPkyfEKDRjVvIuSCJ7jkZSShK7duuGSwYNx8SWXoGfPnsjIbIvEhASXmobqiC5fx4VN
+        sR6p0md2ux3Lly7Dxg0bFL4goiii//kDMGv2bPlzdv6LCgvx5ZdfgOOUKavT0tNxx513Ii01FZIkoX1u
+        e8wuKMC8ssccA+28v85Qh8WLFmHI0KFISEjwue/0epYIBFMvoNZ1BNPL1ddIP1+iATWAMgRRHYDQXIN8
+        aXy0gfa7qqoKn3/6GT768EPs37MXgPvkE0QisENCQnwC8vLyMPKykRgxciR69u6F9PT0RpacEEjORcb6
+        TQQyFmwsvzsnrHBh9+7dWPTxAog2WyNHRAjiYmNxw403IisnW+nVxnGorKzEu2+/jarKKuW4EmDKtKkY
+        OmyYIuvPlKunYMXy5Sjbtl0hghauXIXC1YUYn++bLkANViRgo1kDnSN1QZVgrn1fuHFfOAGNWuYPxslP
+        r4vWzU8kCRzPg0gSSkvX4K3XX0fhylWwWq3g3Wx8ySn3ZmVn4bJRozBx0kQMHDgQaWlpcgSkIssKxwHO
+        z4ORY4DNEhspLzdKgD7+6CMcOnRQ0R+7JGLEZSMxPj/fhcshAL756muUlJQoWH9JknBe9+64+ZabodXp
+        FO/Kzc3F7ILZmFdWBiIpuYClS5Zg+IjhSExKCqg/6kzRgRSVZdPfhTK/oi8igbcEQ0PdW9nIo0BNftG8
+        +QHHSX761El8/OGH+PjDj3D69GnwHO+y+SVJAsdz6N6jB8bkj8OkyZPRr18/lygtd5vbXSpyf1hCNYGO
+        BOtP21BUWIgvP/1M4TlICEFamza47e67kJqepmCFRVHE/n37seDDD2G1WBXjpNVqcc1116J7jx4u/gCE
+        EEyYOBHLli1D2VY3uoDSUoz1UxfAgnXuYsNvfRljVtvP+vWHCr4Sgeau1YTCZTLaNr/aa3HTpk3473/+
+        g6LCQoh2UWF+4+Bg4QmATp07Y0bBLEybPh2dO3f22R+C9QlgT3Fvx0eduTdSY8vzPAwGAz54/wNUVVVB
+        4BvXCyEEU6dOxeBLL3U5/SVJwqKFC7Fr1y7F5pckCUOGDsWMmTPcLk5JkpCdnY3Zs2Zj3s5dLrqAJYsd
+        3oHxTNagQPtHRQJfnbbYbFjh8joMlnKe4zhooslfOhSgWnqO42Axm/H111/jhWefx6EDBxo3IzNnoiQh
+        o00bTJ42Fdddfx369OkT0PvVKcfUMmdTYFnTaPAZ/+brr1G8erW8+enJ1/m8rrjuhuuhVTm58DyP9X/+
+        iS8++ZSGEcj3paSk4Pa77kS7rCy3py0leFOmTcUnn36Csq3bHYveOZ5Fv6/CqpUrMT4/Xx7jQOeIDaTy
+        FsHS9vuKYFrmNPSXsxmCIKCyshJvvvY6Pnr/AxiNRpdNKEkStDodrhh1Oe66+25cdNFFcmKTYIyP2qHK
+        0zPVmz9SGn8Ku92O/fv3g+OUaao4nsd1112PvLw8lzYajUa88/Y7OHXqlMvpPz4/HyNGjmyyX/Sz3Jwc
+        zJ49G/N2lkESG/0CDAYDlixeguF++gV4mqOmCmuqNfFs1Ge4CXQwzfOw2+3E048oil7/SJJEogWSJBGb
+        zUZsNhvZt28fufbaa0laYjJJjU8kaQlJ8k9qfCJJ0seRPt17krdff4NUVFbK9we7P/SZkiQRu91ObDab
+        PG7s+NFxjxZIkkSqq6vJ5599Ri4ZdBFJjk8gyXHxZNTll5OTJ08qrhVFkdhsNrJk8WLSLj1DMd4pcQmk
+        X89eZPOmTV738ciRI+TSSwaT5Nh4xZy1z8wiP/7wQ0j6arPZiMViIRaLhVitVmK1WuX9wPYx0nNE1423
+        P+72d1BJV7RxEhyAbdu24e933Y3vv/waHFwpOcdxuPKq0fhg4ce49c47kJqS0hhQE+T+SJIEs9mMhoYG
+        mEwm+cdsNiuSWURjspX4+HhMnjIFr7/xBvr264f4+HjcetttyMxURvsRQnDo0CHMf2c+GkwNiu80Wi2u
+        vc4hVhEvuBpRFNGuXTvMnDUTgkpJbayrw9IlS1FvMgWtj4SQJqMIWXdi1lEukggKZ+rp4S3R5EcnkUgS
+        1pauwf/d/TesKS5xaZ8kSUhMTsLd996Dt+bPx8WXXOJTOjN/IEkSLBaLnKGXpn5iqyvT8WT/jzTYUPCB
+        gy7EI4/+CzMKZmP06NGK5KP0Z8nixdi5dZvCJCZKIgZceAFmz70GGmdxy+b6R7MaXT11KvL69FYSRI5D
+        4cpVWL1yZbNJL3wB3eCEuE/bRccjWtZ8oPs0KCs9WgaDQpIkFBYW4v5778MOxpmEMCaqTp064fkXXsCD
+        Dz+E1LRURT9CbcahSi6aCFKRDShKIZs1CcGw4cPx8COPQB8b6yInb9m6BZ+sWCFr7gHHeMfFxeOmm29G
+        28y2TSYBcTdWQKNfgNpUbaitxaJFi1BXVxd0bok+Tw5K8qECTzgR6HoNqDJQNG18QivHSBKKVq3GP++7
+        H3v37lGc5jznIAQDB12IN+e/g2kzZiBWHxuW7KtqUMcaNvIyWsbSE3iOQ1xcHNq0aaOIaaAJPN55/U2c
+        OHpcETchiiLG5I9Dfn6+39ryiZMmoXuvPAWnJAgC1hQVo7S4JGhcG7uuKQeg/vxsQkCjFm0DQgjB6tWr
+        8fCDD+LAvv3g0KgtJQDskHDFVaPx6ptv4OLBlzhSW4WQ5W8KtAYe6+QTDaY+b8DW7FO0mePwy88/45f/
+        /aSI9COEICc3F7ffcYccz++PM1S7du0wY6Y7XYARS5YsCUgXQLlDup5Zlp/2M9pO/mDBZdVF26ZuDrKc
+        JkooLSrBQ/98EHv27FUq+0DA8xyunjYVr7z+GvLy8sKy8ekGp6eWVqtFgjNIyGKxoKqqCmdOnQaRJMTE
+        xCj61FJAOa/j5Ufx7vz5qK+vV4y9RqtBwTVzMGDAAL/fQXUQU66egrw+vSGxbtc8j6LVq1G4apVfY0fX
+        jzrbNX0nm+o+GhR/nsbI13wDQIDVgaMBdJNt+HM9Hn7gAezdvVvhc04IAQQeswoK8Pi8J5CekQEgPJVm
+        RVGEwWBAxekzOHjwAA4eOIhDhw7h2NGjqKyqQm1tLdq2bYuXXnkFySkpLWrjU1ACsGTxYmzeuEnhTi1J
+        Evr3HYCCa+YEFMFIF3f79u0xe04Bnix7TJH30FBTi4ULFmLI0KFITEz0yY1XHcfR0g5Att20T95eT2g0
+        oPoh3r4skqCTx/M8/irbhYcfegh//fWXii0FeF5AwTVz8Ohjj8mbP5jtV7OPdpsNJ44fx/Zt27Fu3Tps
+        2bIFB/ftR3VVFUwNDQ6HFs5ZRg3AuPHj0b5De/lZ0TK+3oLjOOze9ReWL10qm09pX/Sxetxw003o3KVL
+        0HL2T5o0CZ8sW45tW7bIXomCIKC0uBilJSUYN368V89hN7+3brzsmovWOfKVEGjUN3rzgmjoPO3g0fKj
+        eOzRR7Fl82aXk58XBMyeU4AnnpyH5JSUkLD91If81MmT2LhhA3795Vds/HM9Tpw4AaPRCLvNJmfv4TgO
+        gsaxaEVRxICBF2DO3GsUGmZ1QpZoh9liwQfvv4/yw0eUYpckYdSoKzFugsNdNxiKVkII2mW1w7SZM7Bz
+        +w5FjEC9wYili5dgxMiRzcYIqE9+XzY05Xh8ye8XTviSOwBowSIAIQQ1NTX4z1NPYfWqVdBqtJBYW7rA
+        Y8asmXj88SeQlpYOiQTHzMb6fkuShP379+Pbr7/Bd99+i31/7YbVmYBSIk4FXxOiRmxcHG67/XZ06tTJ
+        xeRE3xPNmmd6Eq5euRLffv0NoIoQbNO2LW6743akpaYG98UEmDx5Mj5b8Ykid6Ag8CgqKkJRURHGjh3b
+        pLih1uz7mquPrUIULXEagaDFEgC73Y5335mPLz/7HJAIJKJ0pMmfMhmPPvE40jLSAQ6KCLZAIUkS9uze
+        jeXLluObr75G+eHDkCQJOp1OXiA0UacaRHIswJHjLsP4CfkuDiZsJSJf2NNwgoo9p06dwttvvoXamhpl
+        Ug2ew/RZM3HhxRcFlWWmG7BDhw6YNacA88p2gTh1AQSAoboGCz/6GJdeeqlbXQB78gcSusvmYqTPou1r
+        SeA4zpEQxFuFWDR0kG6KH3/4AfPfftslE68kSbjsisvx+GOPIbNtZgBvanweu0FPnjyJT5avwPKlS3Fg
+        736nhYGHXq+XM/TSe+TThhBotFokJCYgLS0due1z8fe/34MkVVILVgfAVopVBOBEwRzQNnz+2Wf4Y+06
+        F84lr3cvXH/DDdDpdF47/fgKqgvYvmUrwwUIKHHqAsaOG+cyru7q8fkLNoSYigTRBm+ChjTehjNGCytq
+        t9tRtn0Hnnv6GRhqahVx8qIoYsD55+PxJ59Ebvv2AZ889CTmOA5WqxWrVq7E66+8hg1//ukI63U+n7r0
+        2mw22b7P8zzS0tNxXvfz0L9/fwzoPwCdz+uKdu3aIS09HQkJCS5sqvp3an9mWc5IzwFt866//sKH730A
+        m5VJ9EEIdPoY3HjrLejarWvIOBdCCLKzszF91kw3uoA6LF28BMNHjkBCfIJ8j7oKbzDAEmp2fiI9R7Rt
+        7Hg1BY1Wq1UUVYyGxrsD7UR1dTVefOEF7N69W8G5iJKE7NwcPDHvCfTt2wdigK619H0ajQaHDx/GB++8
+        i2VLl6K6ulqRPk2n04EDYDFbYLVZkZycjP4DBmDUlVfi0mFD0LVbNyQnJckOLL64/LI6AEpYgPDn/1fD
+        ZrNh4ccf4+CBA4q2iJKEkcOG4eqrr5Y9AUO1niRJwsQJE/HpsuWyuzfg4AKKi4pQUlyCMWPGuGX7gw2W
+        G4i2moTNQUMHjc0+w05qtFA0WuHl0+Ur8Osvv7hsgsTERPzzoYcweNhQ8IIAPgBixgaCrCldg//852ms
+        X/sHoFpEWq0WhBBYrFZkZmbiilFXYOKkyRh48SCkMsovh4yqTKHti028qaQi4Z4XAgdHVLRyFb769HNF
+        uTAOQFqbDNxx911IS0sLaTvoeHTs1BGzrpmDeY8+BmJv1AXU1tRgwYcf4ZJLLpEtAqHytlQHCKnTi0U7
+        ZMGFajSpDBttMo0gCFj/53q89+67sNuUNmVBI+C666/D1GlTA5aV6clvtVqxfNkyvPjsczhx/ISz1HYj
+        dM7Nn5qehrET8jF37lz07tXLUTCUMedxHCcXAlX852P71EQgEhwbBw61tbV45513UFlZqZT9nanBhg0f
+        Fp62OPs9adIkfLpsObaxugBOQHFRMUpKSnDVVVeFxdWaEnSNRuOoE9FCrATyLmdZ3mhUbNTU1OCt119H
+        +eEjChaLSBIuHTIct999FxITEwPKniNJEuyiiHpn9dq333obdQYDBGcGYdaer4uJwahRo3Dz7bfhwosG
+        yWPFvj9U7CZtK9VPhNpKQHUhgiDgh2++Q0lRsXLziyI6deuK6268ATG6mADe5DtycnIwY/Ys7GB1ATwH
+        q9mMT5evwPDhw5GUlBRyL0uFe62bAiSR4gZYjtPdGLiNBaD+z7S6aiRB3//NN9/g119/VQRmSJKErOxs
+        /OMf/0Dbtm3l9vv7Hp7nUVtTg6effhqvvfoa6o1G8ELjyS84syf37NkTT//3Gbz42isYdPFFLmGqoRab
+        WDnTnTtrqN55YP9+vPvufFitVuWC12lx/fXXo1u3bkHz+PMGlDCNz89HXu9espaflllbvWoVSktLAYTf
+        ekLjCCihjtZw7yb5E0EQoNVqFYESkcKBAwfwwfz3YGkwK9uo1eKm22/FkOHDA+JWaB9PnzqFeY8+hoUf
+        fgyL2exk352nOc8jRq9H/qSJePv9d1FwzRwkp6REjMVjCXXIiQDnKLW98KMF2LWzTGFekkQRgy6+GLPm
+        FECn04V1PCj306lTJ8yeMweCVgMdY5GpranFoo8XoLa2NiIbkE23H2ki0NTBxDd3k9oxJdyw2WxYunQp
+        du0qc2H9hw4dgmvmzpXLcvsKli2qqKjAvCfm4bNPPgVhym/R79PatsHd996DZ59/Dj3z8uQMtZFW9LD1
+        AkI1RxyAP//8EyuWL3cZv6SkJNxx553IzMyMSFgzfd+ESRPQt18/iKIIq9XqKNLB8ygqLERJSYnc3kiA
+        igHU2hYpuFurfHMX05OGc54C4aJi9D37du/B58s/kavFAo6JTE5LxV1//5vM+vsDm80Gq9WKmupqPPef
+        Z/DpihUOFpbN3kuA9h064Mmn/o177r0Xqc5qQNGk3GFjB4J50lCPxpqaGsx/622cPnXKReudP2kiLr/i
+        8oidbpT7yc7KxvSZMyCCKE67+jojli9ZCqOxPiLEmraDVnVSc9SRFrGbXMXqhtEOsMkRQwV68tpsNqxY
+        vhxHDh9uZMWdJ/P4/HxcfMklAcmc1Orx5htvYvnSZYDk6pjTrUd3/PfF5zF16lQ52CjaXHNpW9UKwkDn
+        iC7eH77/Hit//U3BgUmShPbt2+O2O+5AbFxcxBYy5XxouvG8Xr0UMSE8z6O4sAhr1pRGpH0sqEigdvWO
+        aJvUH3hSYlF2M9R6AbqY/yrbha++/NLF1TenfS5uvvUWOcOMr5DNdAA+XbYc773jUGwBkBV+Go0GeX16
+        48VXX8ZVY66KuDbXW1BujU1o6S84jsOJ48fxwbvvoaGhweW7OdfORd9+fQGE3jnJnRZbXTmpY8eOmD1n
+        DniVUra2pgYLP14Ag8EQtKCwQMaU6m4o4QpmUlNv3s/ub76pi5oCq9gIlUhAKeTXX3yJo+VHXdozddo0
+        9Onb129WnA520epCvPj8C6g3Ghudc5x97NatG5557lkMHTYMPMfLHFA0EwDaNragSCAigSRJWLRoscLT
+        DnAo/gYOHIiZs2dBQug5Inc5E6n7LT0saBsmTZ7kyCDM9JnneRStWo2iwiJFmrhIwp2HZzjfLY+Npy89
+        PUBNxYLdwMOHD+P7779XeJtJkoTcDu0xa/bsgLT+HMfh4IEDeObp/+DEiRMKrTYvCMjt2AH//s/TGDp0
+        aFQsFn9AT0VW+eRtX+h1mzdvxtLFixXzSwhBbGICbrvzDuTm5iIc5NBdu+kaVNdMzM3NRUFBgQsXYDQa
+        sXzpUtTV1UUFEWdTjkVCyd4kB+BLI+gio04PwVRs/Pbbbzh44ICLT3n+xAno1v28gN7R0NCAV19+BRvX
+        r1dEhgm8gDZtMvDoE49j5BWXt9jNT8Gejr6IbYQQ1NfX4/333sPxo0ddvhs7fhzGTZzgcLkOIevP5utr
+        qm/uOIPxE/LRU51BmOdRUlSMNWvWhGPovYZagRuuNSc7/rENYf/3tvFyKiyn+2MwMqXU1dXh+2+/g81m
+        U2TLaZPZFlOnTfO7TDZ1z/3xhx/w5RdfuHhvxcbG4s6770Z+fn5IvfnCCXaBsTKzOz0Pm97sl59+wg/f
+        fQ+eU2ZZSk9Px+RJk1BTXY0qIgGkMc6hKRDi+McL0gMQR1xHijODkz9JPnNzczF7TgEe31mmiBSsra3B
+        ogULMGTIECQkJETN3LqLKgy1TiWgnIDuHkbdH23OjDj+bCC6+LZs3oztm7coI83sdgwfOQJ9+/Xze3AI
+        ITh46BBee+VV1Nc1Fgh15LfnMD4/H3Ovv04O742WBRIMsBFrTQV9UYXUqZMn8e5b78BYa3C5xmQy4cnH
+        5wE858WGBgACSSKQiCRbcjxBkiQMHTYUzz73HJKSkhQHgDfzQed08pQpWL5smaOyMLXecDwKV67G6tWr
+        HZWFo0AL39QchTrgq0kOwF+w6ZL8qbNOnyGKIn75+WfU1NTI8hEAxMbHYXx+PnQ6XUDtXLF8OXZu3yEP
+        rlarBTgOPfJ64v/uv0/2G4+mhRFMuEs0whJrSZLw6YpPsGHDBreE1mKxYN/evT69k3M8vMnt76ge7vjW
+        LtpRV1eHG268EYMGDQLgn4UhJycHswsK8MTOx2SFIMc5agouW7IUI4aPQGJS8CoLBwt037Ah+vTzYL8H
+        CFJpMBasZ5o/sQQVFRUoKSxWsH+iKKJHr164+JJLAlI4lpWVYcXSZSBOUYCW5orRx+C2u+5Epy6d5T6c
+        jWCdUtxZCXiex+5df2HJwkUePdaoRcTbH6or4FQ/NGxbAoFIJPACDwkE5UeP4pPly5tMq+YNCCGYMHEi
+        ejIxArTtpUVFWLN2TdQSebXzXUjN7fSXUHWAhhd7ix3bt2Pf3r2K6jIcx2HkZSP99vqjp92ypUtRfuSI
+        ouCD1WrF6KuuwjhnCqloXRTBBhtQRP0FLBYL3nvvPRw+dEjJ+qMx5Sfn549bEMBmt8HYYILR0gCraIco
+        SRAlEUuXLcfmzZv97p8kScjKysKs2bNcqgkZag1YtHAh6uvrIz0NHqH2HgwF+FDYcNmThuoGKBFozulh
+        TUkp6uuMcpsIIUhMSsJlIy/zO9OKJEnYsWMHvv/mW/BoNB/ZrDZktG2DW26/DUlJSVEV/hwOsLEeNpsN
+        P//0M774/HPYRBGSzQ7J7vgRbY4fyS76/CMyv9vtdtiYH7vN5vjeSaDrTPWwSyJ4jsfJUyfxyssvw2g0
+        +tU3Wll4ytVXo2efXrKPB/2u8PdVWLXSv2pC4USgHHVzCOmKZxVpbOmlpgiOsc6I9X/+6SQSADjH5u3W
+        rRt6e1lT3h0IIfj6q69x7OgxOWLNZrPBbrdj6tRp6N+/v9zecwls1mG73Q6bzYobbrjBcWqrxCAOHHiB
+        90qRpwYvOE2R7K3UMiBJMJkb8MMPP2D7jh3Qa2NgE+2w2Kz47vvvUVpaiquuusrnd9K5zMnJQUHBHMzb
+        +agiHbjRWIelS5dg+IjhSEyMPl2Aui/ucgwEBSRMkCSJ2Gw2YrVaiSRJiu9EUSR2u51s27qV9OjSlaTF
+        J5K0hCSSlpBEkvRx5MF//pNIkuRyn7coLy8nl150MWmbkkay0tuQNsmpJCUugfTp2Yts37ad+PfUswd0
+        bOk8iHa732PtL1555RUSFxdHtBoN0QgCze5FZs+aRRoaGgJ69pEjR8jQS4eQ5Nh4eV2lxieS9u2yyP9+
+        /DGs/QwUdrudWK1WYrPZgjJHYdN2scontQsx/W7nzp2oqqySo/EAQK/X4+KLLwnILLdmzRocPnQYGkGQ
+        K/MSQjBm7Bh079Fd4TZ6LoLNlktTn9FxChduv/123HTjjbDZHXoAjuOg4QUUrSpEUVGR38+llYVnzprp
+        krjFUGvA4kWLo14XwCLY3oNhVXezYZGK2GjOUTBjx9ZtclAO4Pisbdu26NWrl1/vE0URFosFK3/9DVar
+        VU7bzQFITU/D5KuvdmT1PcdYf3Z81HIlnSPqCxHoAvMWer0eF190EeJj4yDwAjhwiNXFwGgwYMmChTAY
+        DH5ZBaipd8rVV6NHbze6gJUrsboF6ALUfWLjcQJpd0S0Xu5kmvr6evxVtktxnUQkdOnSBdk52T7L/3RQ
+        Dh08iE0bNoJIIkRRcvoaSBg46EL07d9Pbs+5CEII9u3bh6+++BKSze6irqdjLvACJOJbxiGec5gZ1f5/
+        Go0WaelpAAfUVtfI3m8Zbdpg9+7dSE9JRV2dAZJE5PDr1atWY03pGlw5+kqf1wGrC5g9pwBPPvqYo0Cr
+        87s6Qx0WL1mMYS1AF6DuF+s9yCoLfRmfiBEAoDF5oihJOHPmNA4dOqRg9QmA7nk9EddMscemQAjB1k2b
+        UX7kCCQm1l+r1WD0laOR1IImPJigORTq64x49cWXsWLZMtlllsKpg3WIBoIAjSA42HNRBIhCSlPeRxxK
+        P4kDLGYzBJ6HKBFoNQJEUYIoSdDotLDarBDAQafRwiraYScS0tPSkD9uPL775hvYbXZ5MRtqa7F8yRJc
+        MvgSpKSk+N3vSZMm4dPlK7Bt8xbZoiQIAkoLXasJtQS4iyPw1VIWcY8Xwbm4jh87DkNtrSMDr9NUqBEE
+        9OyV53OniNNkIooiNqzfgAZTg+K79PR0XHLJJZHuekRAT3FCCL78/At898030Gq1EDQaxY/G+T8tbioR
+        gpiYGOj1emi0Gpfr5fu0GlhFOwz1RlglEWbRDotoQ73Vgga7FSLnYMFFSYJVElFvtcAmOubqwgsvxP3/
+        +Icj5Rpzkgk8j9UrV2FtAIE8VBcww40uoM5gwJLFS1qULoAFm2iE6te85dYiTgAoyo8eRYPZDF1MjLzh
+        9bF6dO3a1ednUVfk+vp6bNmyBRyvjBbr1qMHOnTqGHD1oJYIuqm2b92GN15/HQ0NDYrFQokv+wNAzrVH
+        7evq0lPstVpBA43zZBIYX36e4wBCYHHK8oQQgGtsU6xej67dumHm7NngBJ5tNGpra7FsyVLUGQx+ZYGi
+        p+XkKVPQs3cvZ0IYpzssz6Nw5SoUrl7d2K4WBqrr8DWbd9QQgEOHDsJkMgGA7KKbkpKC7Oxsr+6nC5Au
+        Do1Gg+PHj6O8vFwR0QYA/c/vj/iEBBe291xBbW0tXn3pZRzcf0Cp6GM2MluFiDpyiaKIhoYGhY86Ya6T
+        PdYIQYxGCw4cbM75EHgecTF6xOpiIIqNCzRWF4Ok2Hgk6mNx/PgJGOoMmDhlMvJ691JYZwRBQOGq1Sgq
+        KvJLOUmtHLm5uZg1pwAarRZg9BN1Bod3oMFgaJEEgIJyA2y2IU+ICtc3SZJQXn5Ujiak5sKsrCykp6cD
+        8E5RxypDAEc68erqavl7Qgh0Oh3OP/8CuazXuQRqdflk+Qr89NNP4AUlYdTHxaFNZlvwHNcEbWxU6Snm
+        gyiVAjExMbDabDhx6iT0ej3MZjNEUUSMToekhESYTCYY6upQXVPtOIk1HDSCBtUVlThz+jTyevfCrIIC
+        /HvX47LCDgAMTi5g6NChSEpO9nscJk+ejM9WfIKtm7fIBV41Gg1Ki0pQUlyMcePHR3qq/AarQ6Omdk9R
+        hVFBAKw2K06fPgWo8ti1bZupqPDqDiyLyibGBBwEwOxURNHBSU5ORvfu3eW/zxXQcdq4caOjrLrN5pIA
+        dc7ca3D7XXc6FgzPe/T5o0pC9TtEUYRWq4XdbofBYIBer3fkE3SKAzqdDnarDf/78Uc89e9/Q2C4s3qj
+        EWdOnUZe796YPGUKvvjkU2zdtFnWQwg8j+LCQhQXlyB/Qr7f45CVleWsLLwdRFJyAcuWLMXwkSOR4Kfi
+        OVrAJoLxhKggABazBdVVSgcgu92O5JRkaGN0CsWVuzwD6pOf4sC+/SBEApV0JElCRps2yGyXGekuhxU0
+        EUpNdTVefuFFR0AULzQST0nCoIsG4a6770aHTh0B+EccaY4+KkJkZ2fLBFkURZk11el0OHXqJOLj4mF2
+        JhvlOA7mBjNOnToFAMjOzsL0mTOxfft2EKf5Fk6z3fJlyzDyspGIjY31Oz5k0sSJ+MRZWVjgHLkNeJ7H
+        6lWrUFRYKAeHtXTwjFLd3f6JCh2AuaEBddW1ykXHASkZ6bJcT7X61IefDS5ylxzUYrHg1PHjCt91Iklo
+        0y4T8eeQ+Y9uRrvdjsULFmLVb7/LNnr6fVpGOv7vH/ejfccOXntcEkJgsVhk9p5Nc00VhVQzTZ/HKqfS
+        MjIQF69MJy6Kdpw5cwYcAIEXMHnqFPTq28fFUalkdSEKV6/2K5suVQa279DBoQvQaMDyMnW1BiyiGYTP
+        AiUx5crU+4fuoaggACaTycUEw3M8UlNTXcp8s6mtgMZoKfWiNTc0oLq6xuVdWVlZ0OvDW8Ay0uA4DuvW
+        rMW78+e7etNxHK67/nqMGjXKqwXPKgWpxyDgWGg0xJoGfFFCIAgCdDodtFotdDqdXFEoTlVPQJIkVFZW
+        yn/nZOdgtioBLMdxqHWy6oGa7SZOnIi8XnkQJVF+tqARUFJSgmJVAdSWCjYAiv1fdiCKdAMBwFRvgs2N
+        TJqclAzO2ViW2ntSatDrTA0NqKmpUX7JccjIyIDA+8c2tkRwHIfTp0/jxeeex4njJ1wSaA4eciluu+N2
+        xDDm16ZAnGHDVKSgYdXUP90T56DWz8TFxSExIVExr4Q4LBRU1UgATJg0Cb379VUQJ4HjUFJYhOIAYgQI
+        IcjJycHMOQXgNY395sDBWGPA8iVL/A5FjiZQDhlQ7iP6WVQQALPZ7JYAxMXFKf6W5RYPlFkuCVVfj4YG
+        k+Ja3qkEPFdAxaePP/oIpSUlCsJHCEFWdhYefOghtGvXTh47T2DjBPw9HamOQKfVIT4+3sV11VBbC9Hu
+        OJFpUo8ZM2YoknqA42AwGLBs6TKYTCa/rTmSJCE/Px+9evdW+ITwAo/VhYUoLi4O7QSFEXSc5foXNPgr
+        0g0DoIjQo+A4DvpYvfw7q8TwRvYzm82KwCLAcaIkJLRs7a63oGP0+++/4+P3P3CcoFzjdxqNBjffdisu
+        HToEkg8bKBhJUziOQ0yMDnHxcS56H1NDg7wZeY6DRhAw6eop6Nmnl0sEaUmhQxfgT0AMJWYdO3Z0+gVo
+        mPJzQF1NLRZ++BFqDbUt2lzsjvVns0JHBQEQJVFmK9kGqxMislmCPIkAgCOLsDqclQMQozv75X86PseO
+        HsPLL72EM2fOKDMsiyKGjxiO66+/wSFORaCNGo0GMTGquSAEVotFkcobcATyqIvB8DyPOkMdlixeLDuQ
+        +Qr6/EmTJqFX796QnLoAQhxiZklJKUqKSiIwOoGDNafTfcCm8afiQFQQAOLMGc+6mbJupNS7iToIuTP5
+        UciUzg2XQANbzmbQk99mteH9+fOxfu0fClOQJEnIbp+Le//5D6RleO9kFUzQedBqtKwzHggB7E3EuE+a
+        NAl5/frI3AElciWri1BSVBxQH3JycjBrTgE4J4Gh689oMGBZC9MFUK0/m+iV7hs2F6b8eaQbDChlS8rO
+        EUJk1pQ2mP0B4NHVkXdX+AI4K0w7zYHjOPz226+OiseEKEyhWq0Wt95+GwZddFFUpD/3qlwIIcjOzsas
+        WbNcLAJGoxGLFi1EnZ+blG6Y8ePHo1dvpZjB8zyKCgtRUtJyuAD5ZFdZY9z9RI0IIAgCYnQ6WK1WhX1f
+        bCbog7I57oiAwNSNk0Ec/gFnNTgOhw8dwsvPv4CKigqXDX7l2Ktww403NpsIJZhyb1PPInAlQE21ied5
+        TJo8Gb0YLoBeX1pUjKJVq3zOQE3v53leUVmYY74z1NRi4UcfO6wTUawLYE9+X7JnRZQAsGY9dZFRQgjM
+        Zs+blSoE1QpE4gxdVRcRIYSgvgWxc/7AZrXirbfewqaNm5QVfSUJHTt2xH333x9QTL0/oDZntc3fblex
+        +xxk33w1OI5DTk4O5syZI/seUNQZ6gJK7UXHaeKkiejdp7eiTYIgoKSoWLYIRCsRUJ/8Xvc9ko2mMmmM
+        ztUGLUkSjPVNb1Z1WWi1N1p8fDz0er2KMEioNRgi2eWQj+V333yLFUuXuYyVXq/HnX+7G/0HDPBrEfsS
+        Y66GuuQVJQgWi1lp+oWjWAs8cAX5Eya4cAGCIKC0uASlxSUBOe/k5OQ4QpFZvwBaTWjxkqipLAwo8zrQ
+        uWF9LaKaA6CNptrJhIQEN5uVoLa21uNzWK0m+1zA6WiSmKgIKSUEOH36dFiTXYYLHMdhz549eOmll2A0
+        1Ll8P2HiBMyYPcvrhaG+zlM6d0+EQe28RYmAxWJBvVF1YnNAfHy8rPx196x27dphxsyZ0Kg2aX1dHRYv
+        WgRDXR38hSiKGJ8/Hj3zlJWFeZ5HSVERSktL/X52sMHGXNCTn46xL0Qq7ARA3Wie5xEXH4fYuFhwRHld
+        DRPK62kg2NRIhBCIkgh9TAzS0zMUpwnPAadOnjyr9ACSJMFms8FYZ8Rbr7+Bsh07FJtVIhK6nNcNf7/v
+        XiQlJcnjoU76QZ9jb4o4qogz4IitaE6RyH5HtdCAo0R7vUlJADgAycnJHi01HMdhktM7UFQp7IqLilBS
+        WOQiTnoLjuPQoUMHFFwzB4JWWeC2lokRiCSaO/l9RVijAam8DihPFH1sLJKSk13s0WfOVCiSTzQFOXWU
+        M0miJEnQaDTIzs5Snk6Ew6kTJ1FnMCi8DFsyaH+//OJzfPX5F3J4bWO/Oei0Wiz46GOPz7GLdlTX1CJG
+        H4PMtpnO/HI80tPSYHYSTJ1Wh+qaahgNdeB4DlddNQajrhzVdIJA2gKVh6cgCDCZTDCbzdBqtQp/9bT0
+        dEVZODVoUo+Ca65B2fYdIKIEWkTAaKjDokULcfGlg5Hih8cnXWeTJk/G8mXLsXPLNjmbFM9xKFrtSFE+
+        3pkvINzigLvN76vMr0bYCIC7zS8TAL0e6RkZkAgBJ0ngeB5anRaG2lo5QYi3YJ/dqUsXR9ILZ/A6L/Co
+        rKjAyRMnkdmuXVSYwQKFIAjYVVaGN19/AyaTyaU/Asdhd9lfKNu+w+2pSCvz2iQ7TFbHRufBQXKa57Ra
+        LSTRUbiTEAJIBHqNFnq9HkOHDnOpIOQNOI5DTU0NjEYjdDqdHKXG8wIyMjI83keRn5+PpYsWuyb4LCrG
+        2tJSR/lvP+GoLDwbT+wsg8Q40dQbjVi6eAmGDx/u4KbCCNYLNhgnP0VYRAB19J5aTtFqtWiT2RYxcXqM
+        uPwy/Ovxx/DOB+/j7r/d7Ve8N312525dkZCQCEHjjH3nHT7ke/bskQe1paO+vh6vv/oa9u3Z65aYETjE
+        AI7n3STwdITs8gIP4rw3LkaPpPh4xGgdadlEu4j4mBjEarSI08YgITYOWo0GWe3a+VWvgY75iRMnUFNT
+        I3N4Op0OOp0WWVlZXj0jKysLBXOvgUbXaBFwOO/UYZGzjoC/kCQJ4/Pz0aNXnsKLjud5rCkuxpoAkpP6
+        A/bkp+KNJ2c4XxByAsAq5txtfsAxuIMHD8bLr76KhUuX4N5/3I+p06dh6PDhztxt/g1Yp06dEBsbC96Z
+        MBFw+AFs3bo1pGWXwwE6pl98/jm+//57l7yH6vGw2Kyw2m2KPltsNhjNDTA01MPiPP2tdhssNhsEZ7ow
+        vU4HjaCBVqOFVqMBz3EQJQldunVDVlYWJOK7rE0IwaGDB2E1W+T4dI7jkJya6hUBoJg0aRL69uundN4R
+        BKwpKUWJ02znjy5AkiRHTUE5d6ADcmXhBQtRF4Cy0Vewfvxsha1gIKQEoLmTn4IQgkmTJ2PG7FlISkpy
+        eihxDm++AAYsJycH7dvnwmK1yllTOY7D5s2bwjqBoQDHcdi4aRNeeell1BvqYHem1nb3Y7FaUW8xw2hu
+        QJ2pHmarBUZzA4xmE6x2G0RJgl4XA4EXYBdFNFgtMJnNkEQRWkHjkvWX4zj0O38A4hMT4IUjn7rhkCQJ
+        h/YdkJ9nt9thtVqRlJKMlPS0ZgkzPY2zsrIw26mwY2Gsq8PiBQtRXV3tF5HXONOiT5oyBXl9eivShnEc
+        hyJnBmF/EpL4Avpsuo+CxfYr+hrKxrMnP/VHdweO41ycdoKBlJQU9O7bFxs3bJR1CTqdDgf27cehQ4cw
+        4PwBoep+yGGxWPDzTz8hLi4O/Qb093itKEmw2m0QtFpH5l9RQkJiAuqMjjLsGkEAJAJeEJCckgxCiCOA
+        iONQcfK00hxLCPSxsbjo4os8zmlT4OAQW/bu3eOS1q1t27ZIz8hoMsWbO1BdwNZNm+XrHRaBYhQVFmLi
+        pEl+j3FOdjZmzZ6FJ8vK5BBlAKirq8PSJUsxbNiwgJKTNjtWjMwPeM6D4S9CQgAoxaLUyl0eP3VHgxFm
+        6tI5jQYDLxqEZUuWQnKehhzHoaaqGn+sXYsBAwYgIqFwQYAgCLjllltw0403NquFpycVZR1NJhNiY2Pl
+        FOocx8Fus4HAoY+J0enQ0NCAuro63H37HVj/5/rGzSgRdOjYwTF28E8Tfvr0aRw8eMiltsB53c9DQnw8
+        eJ5XVLrx5H+QmZmJgrnXYOeOnSCswq7OiGWLl2DEZSORkpzi1xgTQpA/YQJWLF+B7U5lI2XBS4uKsWbt
+        WowdOzZkc8xG9HnywwgEQd91lGKxm9+bhoeic4QQXHjhhcjMzMSJ48dlimpuaMDvv/2O2QUFSExKapGp
+        nwTBoTH3dtyoOEC17u7mheaOA4Ck5GTs3LETe/YoT2oC4MJBg5DpTCLiD/bs3o2KijONzyUEWq0Wffv0
+        levbaTQaOXddUzIvvX/ChAn4ZNlybNqwUXYiEjQCSktKUVJcgvz8fL8sPoQQ5ObmYnbBbOzasUMWBeRq
+        QosWY9iwYUhISPDpud6+W81BhwJBfapa5g8V1fIWHMeha5cuuOCCCxSurLwgYNP6Ddi5Y6fsANPSFIK+
+        Lggq/tDfWeLM/sTExECj0cDcYMZPP/yI2ppaxbu0MTqMvPwyF398X7BJVa4NBEhKTkKfvn0VBwcNXfVU
+        BpvneUek4JwCaFUBTsa6OixduAjV1dV+eX9SMYStJkTBcRwKV67C6lXBryzM7qNQsP2KPgbrQe60/dEA
+        fWwsrhx9JTQqRVFVVRW+/+47OYIsGLXWw41gjzFdbBqNBocPH8bvv/2mcMqRJAndu3fH4MGX+v0OU309
+        Nm3cqJS8CEGH9h3QqXNnt20SBEHOGtXUGORPyEderzxF2TBHOG8RCgsLAzKZZWdnY3ZBgYuYWmcwYOmS
+        pUGNFGTZfn9ce32F3wRAXTdObaKIBgJA2zB0xAi079DBxST0v+9/wKH9B+TTrCUSgVDhu2+/xZEjR2RH
+        H5qX//LRVyJL7WHpA8rLy7F7zx6FA5FICPr07+coG86AzQHJFr909+52me3c+gXUG41YvnhJs3ElzSF/
+        wgT06K30CxAEAWuKirGmpDQoLDrd/E1lug4F/G61OrUQdUuMho2vRvuOHTBmzBhF23iex+FDh/Hll18q
+        lE3++pG3RDRlxjpw4AA+++xTl/Ddtm3bYsLECQHN8eYtW3Dm9BnFMzRaDQZddJHHU5qN93BHBAghmDBh
+        Avr176/gFBypvUpQVFgoX+crqF/ALDcpyusMBixevBjGAFOUsyc/G9wWavhMADyd/NG4+QFAq9Fg0tVT
+        HO7G7ObmgC8+/Qx/le1SDH5LFQl8hUvGJEJgs1qxbNFi7N+zz+VUu3z0KPTr399vQm+1WFG6usiR9495
+        Z2paWrOmTNpetUgg63V43uG8c80caGKUJmWjoQ5LFi0OSBeg0Whw9dSp6Nmnt1IXwPMoXl2I1StXyv3x
+        FXTzs/so1Ky/3Ddfb1Cf/GpTXzSCEIK+/frhsssvl/+mfTl06BA+/ugjOYMw7QtbAONshLpUlHNAsHXL
+        Vny24hNl5WRCkJaWhoI5c5rNJOQJx08cx59//OFSm6B7j+7o1LkzRC+9CimL7O7UzJ8wAf1U3oGCIGBN
+        SQkKV6+WLUH+IDs7G7MKZrvVBSxZssQvXYBCOc2rA7lCD784ALVXUjRvfor4+Hhcd+P1yGjbRqGA4jgO
+        X372OVb+9psitJhOMrvIWhK84WJYVpMQArPJhPfffRdHysuVWYQlCWPyx2HQoEEBtWnDH3/iyJEjimdz
+        HIchw4YiMTERkLxf+PRUBqCw4mRmZjrCeV10AfVY6tQFBLJeJ06YiB69e8nVhGhb1hR5n5CEjjfLQdPC
+        KuE6+eW2e3uhum487XhL2Py0jRcOGoTJU6a4lL6urqrGqy+/gvLycsU9VCalNvSWAPUc0c+aGhP5GgDf
+        f/sdfvz+B5cTul1WFuZcMzegkupWiwX/++FHmM1mxecpKSkYOWJkk6nAPEEtEtDTdHx+vosugOc4rGF0
+        Af6ObXZONmbOngWNoEpO6uQCmtMFsO690aA384kDoAuLDnpL2PwsdDodbrjxRnTp1lWmvADA8Rw2btiI
+        t998EyaTST5R2AXmLvdgtEIURYUrrTcVf/b89RdeefllGI1GZTUlgcesgtkYeOFAr57VFHbt+gtrSksV
+        94uiiN59+6J3374BPZv2lZ6oWVlZmHPNNdDG6Bq5PRUX4M9c0vVw9dVXI8+dLqCwEIUe/ALcbf4WQQDY
+        xR9Kr6RwoEdeT9zurIXHyo8cgKWLl+Czzz5zcfhgYxmiWS9A2X42O5I3i6vWUIuXX3wJf5XtUvj3E0lC
+        /379ccPNN0Gn0/llSyeEwGq14ttvv8HJU6eU2n+NBldedSUSkxMDZn1ZkYCm9urTr59L1qA1JaVYtXKl
+        zzFMFDQ56Ux3uoBaAxYvWuRWF8BuftZTNtLwqgXsRglGDHIkIQgCps+aidFjxshJLyjqjUa88Nxz+GPt
+        WlkRSMHqO9zJ15HiDFjRjJ783sqSoijCZrHio/c+wDdffd1YP8D5X1xCAu78293o0KFDQBvm2LFj+P7b
+        71zSimXlZOPK0aM9hjL7Mg5AY1afjDZtMLtgtotfgKm+HsuWLEWtunCsj5g0aRJ69spzm5xUXVlYvfmD
+        FcsfDHgcebXCj7LCLRV0QySnpOCe++9Fpy6dHf1zLm+e43H00BE88tDD2Lhxo8LerM5CzGZmiTTUJ7+3
+        J6lEJHz91Vd489XXYLNYGwOjnF2aMWMGxuaPdxDCAPr5ww8/4MDeRrMiJaIjLrsMXbp2DcoYskSP53lw
+        AMaNH48BAy9QPJ/neEcdgcJCvzkOmpBkRsFsl41srK3D8qVLZV2AO7Y/WjY/4IEAqF17vZUnWwIkSUL/
+        /v3xwAMPIiUtVRHTLggCdu7YgUceegh7d+8BB06x0VlCwJoKIzUurF7GW3mSusuWFpXgqX8/harqajn3
+        HeDgDM4feAH+fu//IS42Vu63Pzh+/Dg+Wb5c4aJLbf9Tp0+DTqcLOhGlhCA7OxuzZ89GXEJ844nMASaT
+        CUsWL4HBYAgo1fmUKVPQq09vFRfgcD8uZhyPovHkl/vh7sOzSeZ322mnvDh1+jTcevttDo2u6pRYv/YP
+        PHD/P7Bz5063NQYjbSVg3WJp0IyXN4KIEtaWlOKBf/wD5YcPKzaHJEnIzGqHBx55GO07dgD8FPuoaPLF
+        559j1/adLkVKho4cjksGDw7Z+qLPHT8hH30H9JdLzwGO+VtbUopff/nFL50OPQRyc3NlXQDLPBkNBiz8
+        eAGqnSnPonkfubTIXVBPqDOfRAparRa33X47pk6fJufEkweG57F2zRr84/77sH3bNhc3YZYIsArCcI2T
+        N/HyahBCAI7D+j//xP333Ye9e/YoFyUBEhITcO9992HkiBEBJU2lTlbLli6Vw48pEhITMWvWLMTq9SEf
+        p8y2mZg+fYZcKi4mJsaRE6G+HksWL0ZtTU1A3JujsnAvpbKR41BSXIzS4uJmi9lGGgoCwC5iNgY73M4J
+        Yes8zyM9IwOPP/0krhx7lYtSj+M4rCtZg7/dcSdWr1oFq83qohh0RwRCaSWgJz8AOcWZt7Barfj6q69w
+        9513YdfOMoXyjRACQaPBDTfdhGuvvw66mJiAFq1dFLFwwQLs3bVbYVkQRRFDRgzDpUOGhIVYEkIwbvw4
+        5PXtDYvF4sg+FaODRqPBn2vWoTBAXUB2djZmFhRAYGMEeB7WBjM+Xb4CpoaGqDz5KeSWuUvbfbae/Gyf
+        CSHIapeFZ555BsOHD3cqvBqv4TgO27dtx1133oVPV3wij5G6sIa6anGoiABLoL3tHwAYjUa8/fob+Mc9
+        9+LggQMui5LjeUyfMR1/v+fviNX7L/fT923dsgUrlq9wGYfklBRcf/0NYUurTQhB27ZtMWfONY6NabUC
+        BI5itBYrli5ZImcQ9scvgOM4TJo8Cb379HZwOuDknIKrVq1CSVGRX88OF4R58+bNayr7yNl68lPQ/lGl
+        1AUXDsTu3Xtw5OAhWSlG5T1DrQElRcWorKpEl65dkZycrCCY6vFife2DMYYsgdYwdew9XU91BLvKduGJ
+        xx/HRx98gPq6RkcfAgIQRzTetOnT8MS/n0Tbdu0UCkGf2wkCo6EOz/z7Kfyxdp2LOWzi1VNw5113+sy9
+        +As6/jm5OSguLsbR8iPgCJxp0gWcPnUaPfPy0L1Hd7/nKjk5GSZzA4pWF0LrnBurzQaz2Yz6+npcedXo
+        gGIoQgnh8ccfn8cGI1B2LRobGyrQzZqWkYFBF1+EQ4cP4cC+/Q67uHMYeJ6HxWzGlk2bsXH9BrRt0wbt
+        O3aQJ9ZZe0S+FoAiYCqQ8WRFM7pxmsquTMFxjqKWX37xBR598CGsK13jIouDOLwgp02fjifmzUNmZqZf
+        hT7Yd/Mcjy8+/xxvv/mWnO6bIjYuFo88+i/06NEjDLOqRHx8PERRxKrfV0ISRUcRGmdocV19Ha4YNQqx
+        sbF+uSMDQFZWFtaUluLUyVNyvzmOw4kTJ9BvQH907949KveU8Nhjj80D4CLzn2ugE5aRno6hw4ai8vQZ
+        7Pprl9Jl2Pn/sfJy/P77ShwvP4qcnBy0adMWHKeMMqScgzqdtq9Qn/xNPYP1MLNYLPhj3Tr8599P4d23
+        3sHJkyddcp9KkoS4+DjceNNN+NdjjyEzOwsIgFDR9+/bsxePPvQwjh07ptT8EwnDL78MN9x4I+Lj4yOy
+        xrJzclC6Zg2OlR+VzbgAUHH6DHrm5aFnXp58rS+KVUII4uPjYTI3YOXvvytESKvFAovZjNFjxiAmJibs
+        fW4OwuOPPz6vJfr1BxNqz7nExERcMuRSgOewY/sOmM1mZQQbz8NisWDLli1YvXIVKs6cQZuMDKRnZChk
+        c1bEYHUF3sLd5m+KmHAcB5vVhh3btuO1l17Gs888iy2bNjuqArlJ/tmuXTs88OCDuOvuu5GSlhYUUaWh
+        oQHP/fdZ/PLzz4pxEEUROTm5+O9zz6Hbed0i4v8uSRLi4uJAQLDyt9/lqtGEEFjMZtSZ6nHlVVf6rP9g
+        k+BmZ2ejpKgIJ0+ckOeZ5zgcP3EC/QYMwHnnnRfWPnsD4cknn5x3Lm9+dyCEIC4+HkOGDEH73FyU7SpD
+        VWWlyybhOA7V1dVYt2YNfvv1NxwrP4qE+HikpKbKCTjZTe8LEWC1/ezJLzELl/5dXV2NP9auw1tvvIHn
+        n30WRauLYDa71z5LkoTzLxyIp//7DKbNmOGoyhyIzE+JGwi+/OwLvPHqa7DZbIqMvxqtBvf+8x+YNn1a
+        xIJfWNt9cWkJjh09KhdSBcfh5IkTyMvLw3nduwPwLumqWneWkpKCBosFq1etAkca+2gxW2RdQExMTFQd
+        tsK8efPmRboR0QYaHCQIAnr16oVBgwahsqISR8vLlYsbjad8TU0N/vzzT/z4w49Y/8efqKyoAK/RQK/X
+        Iy42TtaveLuwqF+/mu2nWXIrKyuxadMmfLJ8BV558UW8P/9drFu7zhHNJ7huMlGSkJichNlz5uDpZ/6D
+        8y+4ICjOKZSgbdq0GQ8/+CBOnTypYv0JxowdiwcfeRhxcXERX/zx8fGQRAmrfv8dEpN/wGKxwFBnwOir
+        rnKUk2tmXNQmc7oO2mVlobioCKdOnFCIjieOn0Df/v3Q3UlgIj0OFByJVvtElIAQAo4AFZUV+PSTT/Dh
+        ex/g4IEDDpm6CUWcJEoQNALSMtLRo0dPXHjhQPQfMACdu3ZFZrtMxMfHQ6fTyR586sXGnip20Q5zgxnV
+        1dU4fvw49u7eg62bN2Pz5s3Yt28fDDW1Dldgnle0h60mK/ACzr/gfNx5z9/kBR4sC4VEJBw9XI47b7sd
+        paWlEKjew9EKdOzUCe9/9CEuuGAgOIGDf8XegovTp05hTkEB1q/9QyGq6PV6vP72Ww7HMEb8Uot1rGuv
+        Wj8kSRLeefttPP6vxwDGBCqKIsbmj8f8999DcgirCfmKVgLgBVh2fPdff2HBxwvw3dffyKedp8o1VPMe
+        o49BUlIyOnfpgtzcHKSnZyA9Ix3JycnQ6/XQajQQRQmSJMJsscBoNKKqsgpnzpzGyVOncOrkSZw+cwb1
+        dUbYbTYAnhOyULm0Y8eOmD33GsyYMQO5HdoDCG6u+ZraGjz0jwfw6bIVClFCIgSx8XF47vnnMHvOnKC/
+        N5C5JIRg4YKFeOD++yExJb+IJGHUmKvw5jtvOzgFVRQsra1AWX934y9JEo4cOYK5BXOwfcvWRuJBCOIT
+        E/HuRx+EtJqQr2glAF6CLXVms9uw4c/1WPjxAqz87XdUnD4ta9A9mVB5nkfbNm1AADSYTJCcZj2B5yER
+        gtqaGoiiBAKn5YAQR4gC5zTRUnOjB18D6siU26E9Jk6ehNkFBejZu5eDOSCN7Qh4POwirBYLXnzhBbz+
+        6muOjcR0mxd43HrnHXjkkUcQFx/vswI0lKC1DwtmzcaGP/6AwDee8MkpKfjPs/9F/sQJsmWM9feIdQZH
+        0ee4S6zKcRzeefsd/Ouhh8BJRObMJCJh7PjxmP/eu0h0FsGNNFp1AF6CpfYCLyA3NxdXjBqFIcOGITEp
+        EZVVVaitqVHU21NDEATEJyQ4qhHZ7TCZTNA49QQ8z8shpLJVgtEbNOf0QwiBXq9HXq9emHv9tXjsiccw
+        dcZ0ZLbL9ClHgLewW21479138erLL8NmtbooOkeNvhL/evwxpKamRk3yCwqO4xAfHw+7JGHVbytliwDg
+        4AKqqqsx6sorER8fD61WC0mS5BJlWlW5cHfPBoCs7CwUri7E6ZMnFbUVThw/jj79+srKxkgTgVYC4Cdo
+        FF779u0x8vLLcNWYMejZsyd4gUdDvQlmsxlWqxVEIo4y585NkJCQIIsG9IShFoN6L3LLc46XQyIERJKg
+        i9Eht2MHjBk7Fv9337249/77cNW4sWibmekinwYDNqsVIASfLl+BZ57+j0PpyOoeAPQ7fwCef+lFdHXG
+        +kfT5meRnZ2NNWtKcfRIuaIc2bFjx9Crdy/0zMtTJPDked7rkmiJiYkwm81YvXq1wi/AbDbDYrHgyqtG
+        Qx+GYKjm0CoCBBGSJMFUX4+jR8qxefNmlBQXY8eOHTh27Djq6gywWW1IT0tzJLF0VuPVaDTQarWwWCyo
+        rKxsMpUU4NjIMbF6pKWlo3Pnzujfvx8uvPgi9OnbFx06dAj9giIE5gYzvvziCzz2r0dRVVmp1PiLInI6
+        tMerb72JkSNGhKTic/C64hjXBQsW4IH77odkc4gwMTExsJjNGHHF5Xj73flISkqSA7x0Op1CBPAEqgu4
+        pmAOdih0AY6Iy3c+eB/jxo+L9DC0EoBggT0lKKtttdlQXVWFkydP4tChQ9i/Zy+Olpfj5MmTqKqqRm1t
+        LRoaGmCzWZ2VcEVwnKN4qU6rQ3x8HBISEtG2bRvk5uaic5cu6NKtKzp36YKsrCwkJCQovA1DceLL/ZMI
+        JFHE8mXLMO/xJxxmTpWff2paKp559llMnTFddluOZoiiiIqKCswtmIMNf66XTb+CICAmVo9XXn8NEydN
+        Uij8vOVmqALx3fnz8ehDjyjyTYiSwyLw3gcfONKhRxCtBCBEYMNfWe23JEloaGiAxWKByWSCyWSCxWJx
+        KbQSGxuL+Ph4xMTEQK/X++WnHkyYjEZ8/NHHePG55xW59alZLC4+Hv96/DHcfMvN0Op0Ab4tvFiwYAEe
+        /ucDsJobKxZJkojLRo3C+x99iNTUVL/FmGPHjmHm9Bko27ZdMX9x8XF46913MWHiBHkcIwLSipBAkiRi
+        tVqJ3W5XfEYIIXa7nUiSJP/Nfk9/RFF0+T2cbWfbV11dTZ58/AmS07YdSY1PJGkJSYqf7Iy25MVnnyPG
+        WgOxW22RHnqvIYoisdvt5MSJE2TUZZeT5Nh4Rb8y0zPIiuUriCiKirHxFW+9+SbJSE5RPDs5Np7MnD6d
+        VFdXh3Vu1YhO7UwLB6s1VjuRAO7LPhMmsy81OSqSXIbxhCDUy00iOHjgAB584AG88eprMNXXu5gg4xLi
+        8X/334c77r4b8UmJ4DXRmflG3T/qzEMIQWZmJq65di60qpqClgYzPlm2XK4sTJz+IE1VKG7qXePz89Gj
+        Vy9loRJnNaE1a9ZEf12AVngPwugCfGEbWfmSrb0Y7rbTdxJJQklxMe685TZ8sfwTl8SnxBkBd9/99+PO
+        u+6CXh8jtz3aQQkAAFmHMnbcOFwwcKCysjAvYN26tQ5NvhNs7QFv5ocQgtzcXBTMmQONVlVZuK4OixYu
+        hNFojNhY8LSRrQgMdFGxJ7+v48rWiKOEJJyEgL6zproa77/3Hm6/7TasXbvWpSaAJElITUvDI489irvu
+        vhvxiQl+5xEIN9SVeCl31bZtW8y5di50ej1jtiNoqDdh8YKFqKqscqnjR8uR0bFzB5oPcPKUyejZu7cy
+        RTnPo7SwCCt/Xxmx7Fs8OceSf4QS6pPf13Gli0CdXixUi4M+l332tq1bce//3Yun/v0UThw/7pJ6TBRF
+        ZGVn47/PPovrb7gefAtIF0/7qM7Nr7aajBk7FhcMvACSs0oxgTM5bOka/PrrL4o+0gKy3maEzs7ORsGc
+        AjeVheuw1FlZOBLg2TrrrZyAf2hK5vcVrF6AXaTeVPr1t930uWfOnMHbb72FG669Dt9++RWsDWbwqsAd
+        iRAMuHAg3pz/DqbPmoHY+HgIUS7zs5u/uZJcGW3aYPacOdCpdAHmhgZ8smw5qqurFZ9TbkDWmXjYQwQE
+        +RMmoHvvPDe6gGKUlpREhIjytM56S6l+G22gmz8Ued9ZNhXwXu5sCuoTn+d5NDQ04KcffsStN9yEp594
+        EuWHj7gQMUIIOJ7H5MmT8fY7b2P4iOGyf3s0n/wU7qL33I6PJGHsuLE4/4ILVLoAHuvWOTII0/FgQQm1
+        J+UgkRwZhGcXKLkAjuNgNBqxZMkSrzxBgw2eLaroi3bzXAfdSNTOH8q872puwN+Mw+xJaDKZUFJUjPv+
+        fg9uv/U2rF65Us51wK4BSZKQlpaG+x/4J5576QXk5fWKeEVbX/rLilXNxULwTl1AwbVzodMr03eZ6k1Y
+        unARqqur3Y4/XQNNcWuUW5gyZQry+iorC/M8j5LVhY50YgivTk4+stjIp2itfhtNoCYhfxV+voJlXb0V
+        Cdwtwvr6ehSvLsS9f/s7rp97LT7/9FMY6+pkWZ69l4Bg4MUX4bW33sQ99/4fUlJT5cjEaCcALOvvbRAU
+        vWbsuLG4YOBASGKjLkDgeawpXYNffvnFbdo3oLHilKcgoezsbMyZO9dFzDDWGbF48WLU1NSElQBo2MZR
+        CkaVJdFazSSSYDXz7hJChBJUJKCb35NMq5BHOaCyohIlhUX47NNPUVpSitrqame0oesci6KItLQ0XDN3
+        Lm696w7k5uYqYuOjHezJrzaveoM2GW0wZ84cbNmwETampmGDyYQFH3yE7Mx20LvEBDTmhXa8WwLgWlCX
+        4zjkZLZDu8x2KC8vV6yfNUUlKCkuRv6ECWEbK7euwKxSw1Mm2nMRVqvVUVbbZkNcXFxEAl7UWu2mqgLX
+        19dj3969KFpdiO+/+x47tm1DfX19kyc4DXi5dMgQ3Hn3XRg2fDj0cd4Fv0QL2LXL6k98gShJqDx9BjfM
+        vdaR5Yg5CHmBR6w+1pnZqOmT2sHyayEIPCSJwGZzRIaCcySVbWhoUBRMBRzjPyZ/PN7/6EMkxMeHZbzc
+        rl62FLg6wOVcBi0lXlVRiXlPPIG0tDSMvuoq9OnXFxlMRmD1aRnscVP74UuSJBMik8mEw4cOYd26dfj9
+        19+wYcMGnDl5CpIogm9CV0FPyr79+uGGm27ExMmTkJ6R0eJEQXbzB6KU5TkObdtlYs61c7F+wwaINpus
+        9BTtIoxGIzgvuXSNRgOtRgMCApvN5kj4wrlPyiLwPIoLC1G4chXGT8gPS32OZoOBKMsbzQUOwwG6sERJ
+        wqsvvoTnn/kv7KKIxKQkdOnWFRddfBEuvuhi9O7TB1k52UhISAh5NBwhBCaTCRUVFdi3dy82rt+AP9at
+        w+5df+H06VOwWKweN4KjrDiPLt26Yeq0aZg5axY6dOrYIsU/uvmBRn1JoJunsqICc2cXYF3JGnABmDup
+        zwDHcbBarR4JqyRJuHLsGLz3wftISkoKeS4Fr6IB2cGNhrxu4QClvjKrDUd6ruVLluKJxx5DbXWNnD3Y
+        8T2g02qRnpGBDp07oXuP7ujTpy+6deuKnPbtkZ6ejri4OMT4WXTTbrfDYrWiob4ep0+ewoEDB7Bjxw5s
+        27YNu/fswakTJ2AzO6IKJVFyVitqTEfFQpIkaAQB3fN6YsrVV2PK1Kno3KWzooZBSyIA7PoMtl5m6aLF
+        uPfv9ziq/YAmZHFzofwuovie/koVhFTRbrfbHSHCrCTBOT6KS4jHOx+8j/ET8kOeQtXrcGC1J9XZLBKo
+        zWCiKOLwwUNY8PHHWLJoMQyGWkVl3abGiab7SkxNRnp6Btq1y0RGRhukpaUiNTUNyclJzpBfPbRaDTiO
+        d77PkQm4rq4OBoMBlVVVqKysQEVFJarOVOD0qVOoqamBxWIBkSTwjA6ALjLWTRVw2LgJCBISEtFvQH9M
+        mjwZV40di9z2uS1Cq98UWLNosH0xqIPUtXPnYt2atdDwggfWn/2Ca/J7rVYLrVYLURQdGaPcPE+SRIyb
+        OAFvzX8n5EVUvdZgUb1AsLzeohmsLz7g4HoOHTiAndt3ACCARCBBdDGdseNEYTabYT7egFNHj6Nsq1M/
+        wHGONGFMvj/KTRCaUpva7J2pv2SCyxBeQRAA5l2saVKj0cBms8Fut0Oj0yIrJxvDhw9H/oQJuHjwYKSm
+        pwLgHIShhbqDq4N6QlHXMiMjA/999lns3r3bMQcBWOhYqwRdXxzvJlU6IYiNiwvLGPqcEIR1gKGLvSUu
+        HtoXtk/sSagu+iBJEgwGA7Zv2YrffvkVhUWF2L9vP4x1dS73RrI/lPuIiYlBu+ws9O7dGyNHXYGhQ4ei
+        a9euirRhtDpwpNvtD9Qnf0vlSCNNfP3OCHS26AVsNptiITWluGPFH0mSUFFRgbKyMpQWl+CPNWuxe/du
+        VFVVwWa1NsbxO0/skIE4Uk0TQsALPOLi45Gbm4uBFwzE4EsH4/xBF6Jjx47Q6/Uu1YVa6nwB7mX+ltof
+        KmJGSskeUEqwYNhcIwlJkmT3VzoJnuq4NzrWKJm22tpaHDp0CH+VlWHLlq3YXVaG8vJynD59GiaTCTar
+        zUHp6b1uFqy7/PLsd+yJx3EcdDE6JCYmITs7Cz169ES/8wegb79+6HZeN2RnZysWE3Xx9ibFeLTjbDn5
+        1X1iI0nD2Z+g5ASMZAf8Ae0ybTfdYHJFVx+osexx51yIEiEwm0yorKxEeXk5yo8cwdHDR3C0/ChOnjyJ
+        ysoKGAx1qK+vh8VicXAgoggCRkZ06gccBNaOuLh4JCcno02bDOTk5KJrt67o2v08dOnaFbm5uUhLS/No
+        cmRFg0hkGArmvJ0tJ7+6X/QQoj4d4epX0JKCUgUU0Jg1Jdomh03aQdtnt9sVSTioq61Wq/Wp/YSadJqq
+        fkcAq9UCs9kMU0MDjHVGNDSYYHUq6ujkC07iw/MCbHYbzA1mpGekIy0tDYmJiUiIT3Abgkun0RP30pTS
+        LBrnSt0nNjFKSyVg3oAeSk15dwYbQc0K7M4TK5omim5+tZ3Y5qy1x3GcbKLxlQCEoq10AbB+/YEsCndE
+        oCWcoupY/mhvbzD6Gy69QEjSgrPeg5GcMJaa0r/VSRto26j5DGh02gg1PJ2+TU1LMMaSFQmA6Fbi0gPl
+        XNn8FGpxJ1T6tZAQANZUCCBiAUVUw89uNOrLoNVqQYjDP5t6Z/Ey+31uLLRoPlnV4bzR1r5wjQFrfQoF
+        EQhpYRB3psJwypxWZ9FKNlsLTeEEQOZS1CLLubTQ3CkIgcjoBNi1ca6e/O6gTmQaTITUbucug2o4Nxi1
+        2QNQKPjYBA60PeFSukQT1BsskGxDwQBbPal18zeCcqZU0R7MMztspcFY78FQTSp7stNFxKZypu+nOfzo
+        4Ear1SKcUOsFQil3NtcGQJkBqRUOhMLvJqy1AUPpPajO/sqauOg7qYbfU2rocx0s8QyXdxpLuFtP/uYR
+        zHiciBQHlW3eQfYepJ59alaf9fRj7f1suqbWxdYINSEN9WZU6yHO1iCzYIKKA4HE4xBCIkMAWCuBrwus
+        qdJbrJMPK9dTpx9WARgJ9rYlIhzmXHUij9bN7z3ciQTNBRepvWDDn9AOjc4s9GRWl9D2BLooqSmPdedl
+        NdhqW3+0ROy1JKgLk4SCcIZb3DibwOq2WJ+B5kA5ZZ7nI8MBqOGLSEC1oJR4sJ1W58ej19FNH4kEni0d
+        6gSkwQoBV4sZVBxrJdD+gS1QQwlpUw5m1P9FEIToIADsImvulCGEKOz7tPNAo9lPXamHNUe2wj+o3YgD
+        IQKt2v7QwJts3qwnrM1mi47y4HQRsHUJPIFex57u7GcxMTEy68omZPR9QIPXR3XyEfazlgA6R+qipf6M
+        g9rJpxXBAVtKzht/Do1GEx0cAIvm/OOpQxE9RWJiYhRuvGydQ7Wpz1uYas/g3TdewZZDVZgw6WoMuXgg
+        0lMSUF9fD31cImJjfMv2y8Yk0MAjts48leNaSk4FtuiGX4TVmUSV9tVqMaGqqhZJqWmIU5XkCnUfWsJ4
+        B7PPAJROedFGADw1nmr41cUy6QZiZX/AO4WIGicOluHpJ+fhh9+LcfjoSQg6Pbp374kunbLRrlMeHnro
+        YXTLSW+yjaxHnbsS3/QUpTKY1WqV5d9AuJWWArO5AZygRYy2UR/z6+fv4en53+Ct9z9Cn86ZYWmHmgtj
+        D56zUWHMWt5o/wgh0SECeAMqx9OstzR9l1arlX+XU3H5qa3eXPIzCmZOx9fFe/Hhim/xybKPMWP0cJQf
+        2AdNSgfc8/d7mtz87CDT+H673Q6bs5IQ5UTowmI9ESmncrZrwatOHMDdt9+I70u2KD4/fOgohozKR89O
+        4d38VHvOlvam3NrZUihXHf1KDyaZS450A32Bp6KLgYFg9deLMWfudVi9vgy8JgZde/TGsIsHQavh0HvQ
+        SNx92y3o2aW9y50mYy0qqqohEZZL4QHJjorKSkhOolRdeQZ1JjNESYLNYkZlRSVEwkEfE6MgbBzHob6u
+        Fmcqq71qeV1tNapqDO57Jdpx6tQpWO1KedBuNePUqTOQVOubSHacOnUaNtF14ddWV6K2ziT/XVNVAaPJ
+        orj3zJkzsDvvrauthqG+oXGcak9j3oP34cNl36CiqlZegKLNjBETr8Fj994CjXMqRZsFZ85UyO2rqaqA
+        yWx120ezyYjTp87A161KNwbluOjGZ7m1lkgA2LaLoihnnWLZfkoENBoNhHnz5s2LdKMjjXU/fYY77n0c
+        3fsNQPn+vYhJbIOcVA2e/NcjKNywFeWHduObr77GnqMVGHTRRUiKi8Gxw/vw608/4slHHsQr8xfg0InT
+        2LtrFxCTjHjehFeeeQIPPv4MhPT2iLecwh233ozvSnZg2NDB+O2z93Hn3x9GlYlDZeVxtMlpj/gYLSpP
+        H8f/vvoMDz34T7y/9Bv0u2goctumOgtIKAndwb1l+PmHb/HIA/fh3cWf4URFNXbtKENcaju0TUtE9Znj
+        eOflp/H3+x/B5t2H0aFTV7Rrk4qTR/bh2XkP4YHHn8HBk9Xo2qU7UpP0KN+7C6+/8DTue+Ax7DpwAm2z
+        spCamgyBIyj99Rvcdcft+OynEvTudwGOlhXjlptvwo/F2zFg0CDE81a8/eJT+Ps/H4WYmIU0vhZ33HQD
+        vincBA2xoN4iYPXX7+Pplz+AjQDVZ46jbO8x9OzeCe8+/zgeefoVIL4NBvTNg7HyGJ6b9zAenPc8Ujvk
+        wXaqDDfecCPWlB2Bvb4GkiYZbdOTUFdTgdLCX/Gvh/6B5156E+UVdWiX2QZb/yjGgVP16Noxu9l5VweI
+        0c1BiUJLFQPUxWMp2IhCSoBBznFUH99HLrugG+k3fBL5ZsVHJEUnEH18MumQk0vm/u1xsnnTBvL2y/8m
+        nbJSCQByxyMvEokQUvLDEnLpkGHkppuuI907ZBEApE3HPmTt9gPkz9XfkssH9yYASG7XPmTa1ZNJm+Q4
+        Al5Lrsy/mowfewXR6wTCCTHk5gefISY7IRVHd5MJlw0k8UnJpGeP7gQAuWT0NLLvWKXbdn+76FUyZMQV
+        5IbrCkjHdukEAOncbxjZe7yaSGYDuWvuBMJzHElMSiaCoCV/e/x1UnO6nEy+YhABOJKcnES0MQnklY+/
+        IVuKvyd9O2eTlDY5ZPTYK0hqUhxJyWhHHnvhQ2KsqyXPPnwXidGAgNeT1z76krzy6F0EAIlJziSf/r6B
+        HN27hUy96hICgGR36UVmzJxOOmRnEACkxwXDyZbdx8nuTatI7w7pBNo48sK7y8j+Q+Xk0K4N5ILzsgkA
+        MnjCXHLGaCFl61eSywb1JABItz6DyPRpU0jb1AQCgFw8aio5fLKO1J0+QmZPGEmSUlLI4GGXkW6dsgjA
+        kaycXJIYH09u/derzc67KIrEarUSSZKIzWYjFouFWCwWYjab5e9EUYz08vQZdrtd7gvtlyRJxGq1ErPZ
+        TKxWK7Hb7fJ1LUoECAXWrvwRxZv2oe8FFyIjOQ6iJCI9qzNGXTEE5/XKw4DzB+KOex/DS089BD0P/PK/
+        73GsqgEXDh2Fvl1zcc1dj+DpB+4ED6BtTg6y26Zj0IgJuHbGFAAAr0nE/Y/+G2NGDAQkGzh9Jl588QX0
+        65wFIvG4dPBQxApAQ101ynbugp2Pw2P/fRnTR1+Mdb98jtc/WA67m3YPGzUeXbPb4u+PPocHbi0AAHTo
+        0gVZbVJgt5px8MABSITH7Q88hW+/+RL33zkHksWI/QcPATHJePyFt/HVF5/g2mmjUXG8HH8dPI6MnB54
+        76NluOnq0aipOIldu/cjNiEJ02dMR1pSLOKT22HQJYNw/oD+0API6dQNF/friZxu/XHNzKvBAyCIwT0P
+        P4XbZ+Y72nReHnqel4XMdtmIi9EAvIAOXc5Dl4656Ni1B/p27woAGHLpCGTE65B34WWYOmE0AEAbk4In
+        nnkR068cAgDo2f98dMhMQEN9DbZs3QaDWcA/n3oZi999CRl6AbUNNjzw7+dw7ZQrPM45YRyO2N8BKPQw
+        LfH0Z1PIUZGGZr4mTuUfGxx3zrvG7dyxBXYAMTqtI48/AbTaWCTG67F9fSk2XNwDSbE62DRapCbFwGJp
+        gF2U0GA24OiRg3j/3XeQRs4AoM4xAKTGNGRtszvivC7toY9xFOTo0asPMtOTIXA8wPEQGGclgRfgqC1H
+        kJvTCTOvOx83z8p3O0lGQw0OH9iNt955G9KJwwAcVW1p6nGqZGyT0wnjxjs2Y1X5KfnzDt16Yfxl5zuf
+        xjmUQYRAp49DSlKi43kuilRnxmImyIr+rtPFgABo074z+uR1xXpnf7VajaN+IiNPE+LM0YDGTSYwm03n
+        vDe3e09079YBsVqd43PZk5ODIPDgOAJBo0XbxExoBR46fTzGT5qO87u2bXK+CWPCZO3l7MYPd96KYILK
+        9jabTbaOsX202WyyJ2BMTEzLUgKGAna7wy6/f89eVBmMsBGgS/fuSE2MQ5u2WRDNJpyprEGbth2QGKdH
+        tx79kJHA443nn8ae2hjce8dNiBcACY0LWxRF2Gjtd3mxy2UiIfCC/Bdh1VccB0tdFd547VW0HzIB773z
+        Gvp27+jSZtFSh+efmoe6uI64+/rZEKRGHoGontqUQ0hTnxOF8qs5JRiRnaUIc7/j2cTlEUT9C0sUlI91
+        Dl1jYdamW0MgkcakLzT4S90n9ntKAKjZVaPRyFYY9rOWCFbhxya3pfOi0Whky5nVam0lAD169oEGwOaS
+        XzB/4ae48IoJePn5echI0OLokcM4VVGDM8eP4ddffkYdl4I777gF9Sd2Y+mn30Afn4Qeffpg2KDzIQDg
+        OUdhEUGrkYuH0jVO/+Y4gOc5WaenTCJOIOjicNv//Qv33jQHSbE6t23ev+0PfPbtr0hMTkOfvn0xuH9v
+        +jDn0xqfzwvMFMsFTRwnaOPHjSe6RtAw+kbXE5AXeGbjMtwA7YmDiZIv4bjGdtGncTJn0VgaV3Haco3/
+        sy1wdx5zHO8YW+JsA+fuGs6tr7w7kBao+aftZv1P2EA7NuEN5Qh0Ol0rBwAAI8ZMxmUX94Khohy/FG3C
+        rX97EP27dwIBh669+mPsmKuQ0zYBq0s34LZ/PoGpVw5C5cnjqKitx6E92/DLL0XYsr0MIgCLxYLqmlrY
+        bTZYrGYAgNVmgcVigcXsMJmZGkwQJcm5S0TU1RlAAFjMDWhosAI8j9j4WADAiWNHcLqq1qXNp08eQ029
+        FX9t/QO/F67D9r/2AHAUIjXWN6DBZERtjQGAiD27dmLP7l345bfVOFNZBaOxHrCZsWPHduzavhmrS//A
+        6apKWADUVJ7AH+v+QF29o60i46/PgYNob8DWdSVY+uXXMANoaDChqrrG0S9jPQgAm6UBZrMVgtaxtBoa
+        GmAy2WCqN6LebAXsNhw6eAANZisIB1kEMtXXwWwTARCYjA5zo8Vsgs0uyXUQ6k31aLARAASiKIFIdlRW
+        nkLhqt9RabLCbrfDbLG5jBfriXm2bv5GzqvR8Yyy/Kxlg/Wd4Xm+1QwYm5SOAX26Y/eO7Th48AA2bNwE
+        Ozjs27kZVTYBVQd34vvf1mL2Lf+H26+5GgIH6HQalK78Cbv27MO2HXuQlJKIPWU7cPpMBbjYFAzq1w1L
+        PnwHm3YegB088np2xf+++hRHz9RCE5+KieNHY82v32LXoaM4XVmN8y+6FJaqY6isNcNQcRzff/8Ddu3c
+        iR2796Fzj97ITEtSeKppBWDlLz9gz759KNt9GMnJsdi5YxdOnzmDuLQc5KTqcPDQcVRXV2DlLz+i+I+t
+        yDv/EiTChOOnqlBx+ih++uFbbCo7iIGXDIal5hQ4XQxOHtyFpUuXYeeBY+jYvTeuu+46XNC7GzQCwar/
+        fY89Bw/hxJk6DL50EHZsWoeTpyrAx6dj6KC+WP7BW1iz5S/YReDK8ZOgNR3HZ9/9jorKCmR2PA8xlip8
+        /f2vqKypwcb16xGTmoVLBvbDhsKfULyxDGdOn0Zulx7olpWId159Bdv3lwO8DvmTpqDq0Gb8r3A9zpyp
+        QKeefdG3R2fs3LoR23fuwh9ri1BnEwCzAceOnUT2eX1w2eDzZRaEZX29letbguxPxRiq7KMnO+tSTrkd
+        q7NeJWH8HmTdy7lOAAAgM7crxo8fh55dOsFuNWLb1i0wSwJy2rXFeb3Ox/U33YRLBuSBd64LfUIq+vTs
+        BCunw533P4S7br4WWmJB9/5DcNdtNyCrTQa6de0Kq1nCNTffjRmTxuC8TlkQ4tLxf/fej/N790BOVgYa
+        RD3uvud+DB3YG1kdumLS1Gm4bMhAVFWcQc8LhuH2W29C56wMF0+1hJQ26NGlHRCbjvsefhQ3XzMdksWI
+        Sy6fgNtvmoPOnbti3KQpuHzoRZBECXNuuQtzp1yF7PZdkD9xMgb17wleo8fd9z+IcSMuQZ/zL8a0adNw
+        +bCLYbVZceXUuXjp+Wcw4qJ+AICY+BR065ANokvFQ489idlXj0e8hqDb+cNxz503I7ttGrqe1wWi3Y4Z
+        19+G8ZcNRvsO7QHRjMvyZ+P6WZPRrXserrx8BHhix7Crrsat181EYlwscttno9bQgJk33oHp+VcgLj4B
+        Xbt2hF3icfNd92DERf3Qvn0OrFYrphTcgukTrkBCQhKuGD0a1srDOG6MwRtvz8cFndPx+6rfsX7jDlw4
+        fDS65GQAgMKe39zGbimKP5ZToRp+1ruU5QTYWhds+Tg5JwdpqXxPiCA5FXgcx0Gn03m+VuHvL8JqtUPr
+        9HGnzhZK7TIBzzcuMFGUFLK4++cq6xrI5hxnHUJ6HZEkRrZuBPs5m4+RfYfieiI5PBldPlcHzxAQtQbD
+        +S7ZtObGgUmSRHC8oLhPPU7qMXDXrpMHd+KmuXOxt4Ygr1tHxMcm4PC+DfhzWzleX/QV7pg5Oqjrwluw
+        c0X/DiRsWv0s+jc9+VmrBvs/3fz0M1apybanlQAEEeoJizYEuhijqV8H/9qCwjUbYZeUmZ8TktIx6spR
+        SE2Ki0i72NyTwRw3uuFZQslWto6JiVEEzLEFVTxZNFoJwDkKq9mE8qPHQMBDp9PCarXAbheh08chJycH
+        MdrIByZFO0H1t0/+JvCkRIASOyrbs6c9BZtf0dP7ImoFOJdoj9K+Hrxrm3tOUzixfyc+WrgQG7f/hYrK
+        CmxYW4i333wLf2wqgyhFz7ycTZsf8H9u6WnO1rTQarWy3wIVB4BG2d8rvUckOYBws5Wucmz0ItCxUedH
+        dPleFCERQKNRspSsoqip5wL+5VqIRkQTl+FNW2g5ewpJkuQUefR+NrK0OQRlFgOhauFES0pBFcjYsCdB
+        U/PCC4Ji8wNodvMTQlBRUeF3OrCmEMmSZNGk+fc2jRcLOg+CIECr1Toc0XzIghXwbqAeVpGsKRdNkMMs
+        IwhK6Fi2MFhITEwMSTnxc3kNUdnenyQkbCJdf8KX/XZ4pg1l7ZCtiC7WONjzwnEcYmNjg9pGyk00x31E
+        A0IlslLtva8bmHVy8hcBRzxQt8JWRJ9SU6/XR7oJzYL1XT9XwTry+HyC+yDvu313sJWAalNEKBAtNmk2
+        bJQm9zzb8/oFG9Eyl5Fsq7+KSLYMnr+HcMBHN5t4gI1ICiWCXVXY3/aqF0Sw2xUqsP7jwRoLf9FSNn+o
+        4c84sGXx/F0vAYkANLEA7QANNmgpIgHdCLT9vk4Ce9o35zasfm9zBRxDeTKy0WLuPm8p8xdOsCnogw2/
+        K/sGoeJVQDOtXjDRuvnVpxq1nVIWnp58nqhoME/k5k7aUClVWf9xd5r8c7E6r7cmbG/WSCjaZrFYmlwr
+        waghEZAVgG5+d4upqWCTSMDdQmfDItXFPELNlkbCasJu/qYWTrTMVzjhtb08hCXSmwJbQs3fdjfbL39v
+        VJfjVjec5h6LBrgjAOxkstVpm7KdB9ucFoxrvAUr6rTUVFeRRrBKo/vim+FOTAt6v3y9wZ2Wnzow0IUm
+        lx5uQQoelv1lEymeLWDLerekeTnb4O34U3Ej1ATbZzOgmgCorQCUarXUxcZyAeoyXq1oRbhAtfuhXnt+
+        +QGwyj827tmdvNLSCADbFzadckvsx7mCluRLwMJTYFW4+uQzf8HaHlm0xNO+KbB9of0NlgzYilYAjVaF
+        pvZMuPaSTwSAZY3PBfdNOd0Www2oiYCaUlNLAssR+TJO6hRgTREdeh2ryGwOzXmc+dtmXxHsENyWtA5Z
+        7jIaxMtm304ni9Vengubn4I1c9LIx6akJtamHKiHYXN2Z1ryyWQy+WTHbu4aIPQbKlxrJ9x2e09g55Td
+        /JHeR80SANZGzmqSzzWwk8UqPdWuwGwWVn8cNeh9Go0GFovF43Ucx6GhocErU5E3cxdOMSccaygaNhgL
+        NScZDW1rVgnInvzn6uZnwZ7MwfCc86Ts8eRMFelMNp48Clvhimg7+Sk8knvWE6l1ohsRzAls7kT2dF8k
+        58NgMMhJKaMZkQhwcvf+aNz8gAcOgN380dboaEAg+QVZXUGkN3IkQBNgBMOX3Zt32Ww2RU3AcIy3Oi1b
+        tO4jt6v3XFX4+Qp1wQZ3oCcArdEGNLKD1MQYDMVhSwGb2joc64rWwwOUHqvhQLRvfgDgRFEk7GSw4bGR
+        NlG0FHiKHVB/11TsNlvZ5WxGpHQX6uq5ofKxbyknPwUniiIBlNp+NjiGftcK92DHKJplvVa4FtcIhV5L
+        rSSO9nUgEwBWpm09+f0HmxEpmAvsXOAOwgW2hBado2AddmrFeSta0YpWtKIVrWhFK1rRila0ohWtaEUr
+        WtGKVrSiFa1oRSta0YpWtKIVrWhFK1rRilaEHP8PF4E0AnvyZgMAAAAASUVORK5CYII=
+</value>
+  </data>
+</root>

GA-ERP-SYS/資料庫系統管理/計算機.vb

@@ -0,0 +1,216 @@
+Public Class 計算機
+    Private Sub 計算機_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False
+        Me.KeyPreview = True
+    End Sub
+    Private Sub 計算機_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        Button17.PerformClick() : Me.Close()
+    End Sub
+    Private Sub Form_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+        Select Case e.KeyCode
+            Case Keys.NumPad1 : Me.ActiveControl = Button1 : Button1.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad2 : Me.ActiveControl = Button2 : Button2.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad3 : Me.ActiveControl = Button3 : Button3.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad4 : Me.ActiveControl = Button4 : Button4.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad5 : Me.ActiveControl = Button5 : Button5.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad6 : Me.ActiveControl = Button6 : Button6.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad7 : Me.ActiveControl = Button7 : Button7.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad8 : Me.ActiveControl = Button8 : Button8.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad9 : Me.ActiveControl = Button9 : Button9.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.NumPad0 : Me.ActiveControl = Button10 : Button10.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Decimal : Me.ActiveControl = Button12 : Button12.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D1 : Me.ActiveControl = Button1 : Button1.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D2 : Me.ActiveControl = Button2 : Button2.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D3 : Me.ActiveControl = Button3 : Button3.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D4 : Me.ActiveControl = Button4 : Button4.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D5 : Me.ActiveControl = Button5 : Button5.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D6 : Me.ActiveControl = Button6 : Button6.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D7 : Me.ActiveControl = Button7 : Button7.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D8 : Me.ActiveControl = Button8 : Button8.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D9 : Me.ActiveControl = Button9 : Button9.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.D0 : Me.ActiveControl = Button10 : Button10.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.OemPeriod : Me.ActiveControl = Button12 : Button12.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Delete : Me.ActiveControl = Button11 : Button11.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Multiply : Me.ActiveControl = Button15 : Button15.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Subtract : Me.ActiveControl = Button14 : Button14.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.OemMinus : Me.ActiveControl = Button14 : Button14.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Add : Me.ActiveControl = Button13 : Button13.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Oemplus : Me.ActiveControl = Button13 : Button13.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Oem2 : Me.ActiveControl = Button16 : Button16.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Divide : Me.ActiveControl = Button16 : Button16.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Back : Me.ActiveControl = Button11 : Button11.PerformClick() : Me.ActiveControl = Button18
+            Case Keys.Return : Me.ActiveControl = Button11 : Button11.PerformClick() : Me.ActiveControl = Button18
+        End Select
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 1
+        Else
+            TextBox1.Text = 1
+        End If
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 2
+        Else
+            TextBox1.Text = 2
+        End If
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 3
+        Else
+            TextBox1.Text = 3
+        End If
+    End Sub
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 4
+        Else
+            TextBox1.Text = 4
+        End If
+    End Sub
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 5
+        Else
+            TextBox1.Text = 5
+        End If
+    End Sub
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 6
+        Else
+            TextBox1.Text = 6
+        End If
+    End Sub
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 7
+        Else
+            TextBox1.Text = 7
+        End If
+    End Sub
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 8
+        Else
+            TextBox1.Text = 8
+        End If
+    End Sub
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 9
+        Else
+            TextBox1.Text = 9
+        End If
+    End Sub
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & 0
+        Else
+            TextBox1.Text = 0
+        End If
+    End Sub
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = TextBox1.Text & "."
+        Else
+            TextBox1.Text = "0."
+        End If
+    End Sub
+    '----------------------------數字鍵盤---------------------------------------------------------------------------------------------------------------
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+        Dim SS As Integer
+        If TextBox1.Text <> "" Then
+            TextBox1.Text = Int(Val(TextBox1.Text) / 10)
+        ElseIf TextBox1.Text = "" And TextBox2.Text <> "" Then
+            SS = Len(TextBox2.Text)
+            TextBox2.Text = Strings.Left(TextBox2.Text, SS - 1)
+        Else
+            TextBox1.Text = ""
+        End If
+    End Sub
+    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
+        Button18.PerformClick()
+        If TextBox1.Text <> "" And TextBox2.Text = "" Then
+            TextBox2.Text = TextBox1.Text
+            TextBox1.Text = ""
+        End If
+        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
+            TextBox2.Text = Val(TextBox2.Text) / Val(TextBox1.Text)
+            TextBox1.Text = ""
+        End If
+        TextBox3.Text = "/"
+    End Sub
+
+    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
+        Button18.PerformClick()
+        If TextBox1.Text <> "" And TextBox2.Text = "" Then
+            TextBox2.Text = TextBox1.Text
+            TextBox1.Text = ""
+        End If
+        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
+            TextBox2.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
+            TextBox1.Text = ""
+        End If
+        TextBox3.Text = "X"
+    End Sub
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+        Button18.PerformClick()
+        If TextBox1.Text <> "" And TextBox2.Text = "" Then
+            TextBox2.Text = TextBox1.Text
+            TextBox1.Text = ""
+        End If
+        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
+            TextBox2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
+            TextBox1.Text = ""
+        End If
+        TextBox3.Text = "+"
+    End Sub
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        Button18.PerformClick()
+        If TextBox1.Text <> "" And TextBox2.Text = "" Then
+            TextBox2.Text = TextBox1.Text
+            TextBox1.Text = ""
+        End If
+        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
+            TextBox2.Text = Val(TextBox2.Text) - Val(TextBox1.Text)
+            TextBox1.Text = ""
+        End If
+        TextBox3.Text = "-"
+    End Sub
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = ""
+    End Sub
+    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
+        TextBox4.Text = TextBox2.Text
+        If TextBox2.Text = "" Then : Else
+            If TextBox2.Text - Int(TextBox2.Text) <> 0 Then
+                TextBox4.Text = Format(Val(TextBox4.Text), "#,##0.0000")
+            Else
+                TextBox4.Text = Format(Val(TextBox4.Text), "#,##0")
+            End If
+        End If
+        If Val(TextBox2.Text) > 9.99973000350998E+85 Then
+            MsgBox("EFFORT错误！结果过大请点击AC重新启动!!!")
+        End If
+    End Sub
+    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
+        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
+            If TextBox3.Text = "X" Then
+                TextBox2.Text = Val(TextBox1.Text) * Val(TextBox2.Text) : TextBox1.Text = ""
+            End If
+            If TextBox3.Text = "/" Then
+                TextBox2.Text = Val(TextBox2.Text) / Val(TextBox1.Text) : TextBox1.Text = ""
+            End If
+            If TextBox3.Text = "+" Then
+                TextBox2.Text = Val(TextBox1.Text) + Val(TextBox2.Text) : TextBox1.Text = ""
+            End If
+            If TextBox3.Text = "-" Then
+                TextBox2.Text = Val(TextBox2.Text) - Val(TextBox1.Text) : TextBox1.Text = ""
+            End If
+        Else
+        End If
+    End Sub
+End Class