20210930備份

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

     End Sub
     Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
         主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 系統執行檔版本管理.ShowDialog()
+        PA = "" : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
     End Sub
     Private Sub FTPToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FTP_tsm.Click
         主資料庫() : For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

GA-ERP-SYS/LoginForm1.Designer.vb

         Me.資料庫版本號_lb = New System.Windows.Forms.Label()
         Me.使用者帳號_cb = New System.Windows.Forms.ComboBox()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.更新_bt = 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()
         Me.藏_bt = New System.Windows.Forms.Button()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.UPDATE_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.使用者帳號_cb.Size = New System.Drawing.Size(201, 24)
         Me.使用者帳號_cb.TabIndex = 677
         '
-        'Button1
+        '更新_bt
         '
-        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
+        Me.更新_bt.Location = New System.Drawing.Point(462, 118)
+        Me.更新_bt.Name = "更新_bt"
+        Me.更新_bt.Size = New System.Drawing.Size(219, 94)
+        Me.更新_bt.TabIndex = 678
+        Me.更新_bt.Text = "更新最新的版本"
+        Me.更新_bt.UseVisualStyleBackColor = True
         '
         'Label1
         '
         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) & "防火牆或防毒軟體的阻擋!!"
+        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
         '
         '
         '解鎖_bt
         '
-        Me.解鎖_bt.Location = New System.Drawing.Point(466, 215)
+        Me.解鎖_bt.Location = New System.Drawing.Point(463, 215)
         Me.解鎖_bt.Name = "解鎖_bt"
-        Me.解鎖_bt.Size = New System.Drawing.Size(492, 23)
+        Me.解鎖_bt.Size = New System.Drawing.Size(248, 23)
         Me.解鎖_bt.TabIndex = 682
         Me.解鎖_bt.Text = "解鎖"
         Me.解鎖_bt.UseVisualStyleBackColor = True
         '
         Me.Timer1.Interval = 2000
         '
+        'UPDATE_bt
+        '
+        Me.UPDATE_bt.Location = New System.Drawing.Point(710, 215)
+        Me.UPDATE_bt.Name = "UPDATE_bt"
+        Me.UPDATE_bt.Size = New System.Drawing.Size(248, 23)
+        Me.UPDATE_bt.TabIndex = 684
+        Me.UPDATE_bt.Text = "UPDATE"
+        Me.UPDATE_bt.UseVisualStyleBackColor = True
+        '
         'LoginForm1
         '
         Me.AcceptButton = Me.確認_bt
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.CancelButton = Me.取消_bt
         Me.ClientSize = New System.Drawing.Size(964, 240)
-        Me.Controls.Add(Me.簡易登入_dgv)
+        Me.Controls.Add(Me.UPDATE_bt)
         Me.Controls.Add(Me.藏_bt)
         Me.Controls.Add(Me.解鎖_bt)
         Me.Controls.Add(Me.簡易_lb)
         Me.Controls.Add(Me.PasswordLabel)
         Me.Controls.Add(Me.UsernameLabel)
         Me.Controls.Add(Me.LogoPictureBox)
+        Me.Controls.Add(Me.簡易登入_dgv)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.更新_bt)
         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)
     Friend WithEvents 資料庫版本號_lb As Label
     Friend WithEvents 使用者帳號_cb As ComboBox
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
-    Friend WithEvents Button1 As Button
+    Friend WithEvents 更新_bt As Button
     Friend WithEvents Label1 As Label
     Friend WithEvents 簡易_lb As Label
     Friend WithEvents 簡易登入_dgv As DataGridView
     Friend WithEvents 解鎖_bt As Button
     Friend WithEvents 藏_bt As Button
     Friend WithEvents Timer1 As Timer
+    Friend WithEvents UPDATE_bt As Button
 End Class

GA-ERP-SYS/LoginForm1.vb

     ' 其中 CustomPrincipal 是用來執行驗證的 IPrincipal 實作。
     ' 接著，My.User 便會傳回封裝在 CustomPrincipal 物件中的識別資訊，
     ' 例如使用者名稱、顯示名稱等。
+    ReadOnly ds2 As New DataSet
     ReadOnly MACKK As String 'MAC碼
     ReadOnly diskId As String '數字ID
     ReadOnly diskSerialNumber As String '硬碟序列
     ReadOnly ds As New DataSet
     Dim FFGG As Integer
     Dim 更新關閉 As Boolean
+    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()
+    End Sub
     Private Sub Set_使用者清單()
         簡易登入_dgv.DataSource = Nothing : ds.Clear()
         簡易登入_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         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
         簡易登入_dgv.Columns(5).FillWeight = 80 : 簡易登入_dgv.Columns(4).FillWeight = 55
-        Set_grid()
-    End Sub
-    Private Sub Set_grid()
         For i As Integer = 0 To 簡易登入_dgv.Rows.Count - 1
             FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), 簡易登入_dgv.Rows(i).Cells("到期日").Value)
             If FFGG < 0 Then
         Next
     End Sub
     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
+        Dim Str As String = Application.StartupPath
+        If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
-        刷卡登入_ch.Checked = True : 刷卡登入_ch.Enabled = False : 帳號_tb.Visible = False : 解鎖_bt.Visible = False ': 使用者帳號_cb.Enabled = False
+        刷卡登入_ch.Checked = True : 刷卡登入_ch.Enabled = False : 帳號_tb.Visible = False : 解鎖_bt.Visible = False : UPDATE_bt.Visible = False ': 使用者帳號_cb.Enabled = False
         執行檔版本號_lb.Text = "執行檔版本號 : " & 版本
         伺服器區域_ch.SelectedIndex = 0
         If 更新關閉 = True Then : Me.Close() : Else
             End If
             Timer1.Enabled = True
         End If
+        SQL_FTP伺服器登入位置()
+        If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
+        Set_清單1()
+        Dim HH As String = ""
+        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) & "/"
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         Dim Usbkey As Boolean = False
             ElseIf screenWidth = 1280 And screenHeight = 1024 Then
             ElseIf screenWidth = 1600 And screenHeight = 900 Then
             End If
-            Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
-            Dim fullPath As String
-            fullPath = Path.GetFullPath(fileName)
-            Process.Start(fullPath, "--app= http://106.1.50.79:8080/ga-erp-sys/")
+            'Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
+            'Dim fullPath As String
+            'fullPath = Path.GetFullPath(fileName)
+            'Process.Start(fullPath, "--app= http://106.1.50.79:8080/ga-erp-sys/")
+            Timer1.Enabled = False : UPDATE_bt.Visible = True : UPDATE_bt.PerformClick()
             更新關閉 = True
         Else
             Me.Size = New Size(466, 279)
             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
+            簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : UPDATE_bt.Visible = False
         End If
     End Sub
     Private Sub 登入程序()
             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
+            簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : UPDATE_bt.Visible = False
         Else
             If 簡易登入_dgv.Visible = True Then : Me.Size = New Size(980, 279) : Else : Me.Size = New Size(705, 279) : End If
             If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(608, 401)
             End If
         End If
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
-        Dim fullPath As String
-        fullPath = Path.GetFullPath(fileName)
-        Process.Start(fullPath, "--app= http://106.1.50.79:8080/ga-erp-sys/")
-    End Sub
     Private Sub 簡易_lb_Click(sender As Object, e As EventArgs) Handles 簡易_lb.Click
         PA = InputBox("請輸入系統商管理密碼!!")
         If PA = "753582" Then
-            簡易登入_dgv.Visible = True : 解鎖_bt.Visible = True : 更新下載_ch.Checked = True : Set_使用者清單()
+            簡易登入_dgv.Visible = True : 解鎖_bt.Visible = True : UPDATE_bt.Visible = True : 更新下載_ch.Checked = True : Set_使用者清單()
         Else
-            簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : 更新下載_ch.Checked = False : Set_使用者清單()
+            簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : UPDATE_bt.Visible = False : 更新下載_ch.Checked = False : Set_使用者清單()
         End If
     End Sub
     Private Sub 解鎖_bt_Click(sender As Object, e As EventArgs) Handles 解鎖_bt.Click
             登入綁定_ch.Checked = True : 藏_bt.Visible = True
         End If
     End Sub
+    Private Sub 更新_bt_Click(sender As Object, e As EventArgs) Handles 更新_bt.Click
+        Timer1.Enabled = False : UPDATE_bt.Visible = True
+        UPDATE_bt.PerformClick()
+        'Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
+        'Dim fullPath As String
+        'fullPath = Path.GetFullPath(fileName)
+        'Process.Start(fullPath, "--app= http://106.1.50.79:8080/ga-erp-sys/")
+    End Sub
+    Private Sub UPDATE_bt_Click(sender As Object, e As EventArgs) Handles UPDATE_bt.Click
+        Timer1.Enabled = False
+        Dim Strs As String = Application.StartupPath
+        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Strs + "\SYS-UPDATE.exe")
+        Shell(Strs + "\SYS-UPDATE.exe", vbNormalFocus)
+        Me.Close()
+    End Sub
 End Class

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

     Friend Sub SQL_帳務明細查詢表查詢()
         ConnOpen_子SQL()
         SQL1 = "SELECT      QQQ.開始日期, QQQ.結束日期, QQQ.網址, QQQ.商品, QQQ.帳戶, QQQ.資料, QQQ.上行基數, QQQ.下行基數, QQQ.老闆, 
-                            QQQ.客戶, QQQ.[會員.], QQQ.[代理.], QQQ.[總代理.], QQQ.[股東.], QQQ.[大股東.], QQQ.[總監.], QQQ.個人所得, 
-                            QQQ.水差, QQQ.會員1, QQQ.代理1, QQQ.總代理1, QQQ.股東1, QQQ.大股東1, QQQ.總監1, QQQ.個人所得1, 
+                            QQQ.客戶, QQQ.[會員.], QQQ.[代理.], QQQ.[總代理.], QQQ.[股東.], QQQ.[大股東.], QQQ.[總監.], QQQ.[上繳金額.], QQQ.個人所得, 
+                            QQQ.水差, QQQ.會員1, QQQ.代理1, QQQ.總代理1, QQQ.股東1, QQQ.大股東1, QQQ.總監1, QQQ.上繳金額1, QQQ.個人所得1, 
                             QQQ.水差1, QQQ.總量, QQQ.退水, QQQ.中獎, QQQ.輸贏, QQQ.佔成輸贏, QQQ.水倍差, QQQ.上繳金額, 
                             QQQ.自已總輸贏, QQQ.上繳貢獻額, QQQ.貢獻額, QQQ.貢獻度, QQQ.下注明細, QQQ.玩法明細, QQQ.調盤退水, 
                             QQQ.調退實佔, QQQ.上繳, QQQ.會員, QQQ.代理, QQQ.總代理, QQQ.股東, QQQ.大股東, QQQ.客戶s, QQQ.總量s, 
                                        商客基本資料表.上繳源 AS 老闆, 流水帳.名稱 AS 客戶, 商客基本資料表.上行基數 AS [會員.], 
                                        商客基本資料表.下行基數 AS [代理.], 商客基本資料表.下行基數 AS [總代理.], 
                                        商客基本資料表.下行基數 AS [股東.], 商客基本資料表.下行基數 AS [大股東.], 
-                                       商客基本資料表.下行基數 AS [總監.], 商客基本資料表.上行基數 AS 個人所得, 
-                                       商客基本資料表.下行基數 AS 水差, 商客基本資料表.上行基數 AS 會員1, 
-                                       商客基本資料表.下行基數 AS 代理1, 商客基本資料表.下行基數 AS 總代理1, 
+                                       商客基本資料表.下行基數 AS [總監.], 商客基本資料表.下行基數 AS [上繳金額.], 
+                                       商客基本資料表.上行基數 AS 個人所得, 商客基本資料表.下行基數 AS 水差, 
+                                       商客基本資料表.上行基數 AS 會員1, 商客基本資料表.下行基數 AS 代理1, 商客基本資料表.下行基數 AS 總代理1, 
                                        商客基本資料表.下行基數 AS 股東1, 商客基本資料表.下行基數 AS 大股東1, 
-                                       商客基本資料表.下行基數 AS 總監1, 商客基本資料表.上行基數 AS 個人所得1, 
+                                       商客基本資料表.下行基數 AS 總監1, 商客基本資料表.下行基數 AS [上繳金額1], 商客基本資料表.上行基數 AS 個人所得1, 
                                        商客基本資料表.下行基數 AS 水差1, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 
                                        流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 
                                        流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 

GA-ERP-SYS/My Project/AssemblyInfo.vb

 ' 設為預設，如下所示:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.9.0.0")>
-<Assembly: AssemblyFileVersion("1.9.0.0")>
+<Assembly: AssemblyVersion("1.10.0.0")>
+<Assembly: AssemblyFileVersion("1.10.0.0")>

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

-6526e6772923c5594ab2b4b0d5a97d2ed4a7694f
+ac3e807adc43f305246c981a40a2d7dfaa464546

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

 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務彙總計算表.resources
 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務明細查詢表.resources
 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.錯誤排除手冊.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe.config
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.pdb
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.xml
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.dll
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.xml
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbprojAssemblyReference.cache
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址帳號驗證中.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務明細查詢表.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.錯誤排除手冊.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LOG檔.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務彙總計算表.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.GA_ERP_SYS.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LoginForm1.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.Resources.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.SplashScreen1.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.USB_KEY_指定.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.商客資料導入.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.基本資料.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳手動輸入.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳自動導入.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.FTP資料夾管理.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.人員ID卡系統配置設定.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.個人帳號管理.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PY執行錯誤LOG檔.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統使用者管理.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統執行檔版本管理.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統編碼規則.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.計算機.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.資料備份轉移.resources
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.GenerateResource.cache
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CoreCompileInputs.cache
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CopyComplete
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
+D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb

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

         End While
     End Sub
     Private Sub 開網站1_bt_Click(sender As Object, e As EventArgs) Handles 開網站1_bt.Click
+        Dim Strs As String = Application.StartupPath
         If 網址1_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then
             MsgBox("資料不齊全，請重新確認!!!")
         Else
-            If File.Exists("lorv.csv") Then
+            If File.Exists(Strs + "\lorv.csv") Then
                 File.Delete("lorv.csv")
             End If
             If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "lorv.csv") Then

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

         流水帳_dgv.Columns("網址").Visible = False : 流水帳_dgv.Columns("所得另算").Visible = False : 流水帳_dgv.Columns("按鈕").Visible = False
         流水帳_dgv.Columns("index").Visible = False : 流水帳_dgv.Columns("下客流水").Visible = False
         流水帳_dgv.Columns("總監").Visible = False
-        For i As Integer = 0 To 67 : 流水帳_dgv.Columns(i).ReadOnly = True : Next
+        For i As Integer = 0 To 69 : 流水帳_dgv.Columns(i).ReadOnly = True : Next
 
         流水帳_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
+        流水帳_dgv.Columns("上繳金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        For i As Integer = 18 To 60 : 流水帳_dgv.Columns(i).Visible = False : Next
+        For i As Integer = 19 To 62 : 流水帳_dgv.Columns(i).Visible = False : Next
         For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
             If IsDBNull(流水帳_dgv("同帳", i).Value) = True Then : 流水帳_dgv("同帳", i).Value = False : End If
             If IsDBNull(流水帳_dgv("計算", i).Value) = True Then : 流水帳_dgv("計算", i).Value = False : End If
                 Else : 流水帳_dgv.Rows(i).Cells("代理1").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("客戶小計s").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("會員1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("會員1").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value.ToString : End If
+                流水帳_dgv.Rows(i).Cells("上繳金額1").Value = "0"
                 '------------長版轉換---------------------------------------------------------------------------------------------------------------------------------------
             ElseIf Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "長板" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "長版" Then
                 If 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("水差1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("水差1").Value = 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString : End If
+                If 流水帳_dgv.Rows(i).Cells("上繳金額").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("上繳金額1").Value = "0"
+                Else : 流水帳_dgv.Rows(i).Cells("上繳金額1").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("總監").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("總監1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("總監1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("大股東1").Value = "0"
                 If 流水帳_dgv.Rows(i).Cells("會員").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("會員1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("會員1").Value = 流水帳_dgv.Rows(i).Cells("會員").Value.ToString : End If
             Else
-                流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0" : 流水帳_dgv.Rows(i).Cells("會員1").Value = "0"
+                流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0" : 流水帳_dgv.Rows(i).Cells("會員1").Value = "0" : 流水帳_dgv.Rows(i).Cells("上繳金額1").Value = "0"
                 流水帳_dgv.Rows(i).Cells("水差1").Value = "0" : 流水帳_dgv.Rows(i).Cells("總監1").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東1").Value = "0"
                 流水帳_dgv.Rows(i).Cells("股東1").Value = "0" : 流水帳_dgv.Rows(i).Cells("總代理1").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理1").Value = "0"
             End If
             流水帳_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("個人所得1").Value), "#,##0")
             流水帳_dgv.Rows(i).Cells("水差").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("水差1").Value), "#,##0")
             流水帳_dgv.Rows(i).Cells("所得另算").Value = 流水帳_dgv.Rows(i).Cells("個人所得1").Value
             If 流水帳_dgv("計算", i).Value = False Then
                 流水帳_dgv.Rows(i).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("個人所得").Value = "0"
                 流水帳_dgv.Rows(i).Cells("水差").Value = "0" : 流水帳_dgv.Rows(i).Cells("總代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("總監.").Value = "0"
-                流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = "0"
+                流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("上繳金額.").Value = "0"
             End If
             If 流水帳_dgv("所得", i).Value = False Then
                 流水帳_dgv.Rows(i).Cells("所得另算").Value = "0"
                         流水帳_dgv.Rows(i).Cells("會員.").Value = 流水帳_dgv.Rows(i).Cells("會員").Value : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0"
                         流水帳_dgv.Rows(i).Cells("總代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = "0"
                         流水帳_dgv.Rows(i).Cells("總監.").Value = "0"
+                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "上繳金額" Then
+                        流水帳_dgv.Rows(i).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0"
+                        流水帳_dgv.Rows(i).Cells("總代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = "0"
+                        流水帳_dgv.Rows(i).Cells("總監.").Value = "0" : 流水帳_dgv.Rows(i).Cells("上繳金額.").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value
                     End If
                 End If
             End If
     Private Sub 流水帳_dgv_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 流水帳_dgv.CellMouseClick
         Dim YY As Integer
         If 流水帳_dgv.SelectedCells.Count = 1 Then
-            If 流水帳_dgv.SelectedCells(0).ColumnIndex = 64 Then
+            If 流水帳_dgv.SelectedCells(0).ColumnIndex = 66 Then
                 If 流水帳_dgv("計算", 流水帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 流水帳_dgv("計算", 流水帳_dgv.SelectedCells(0).RowIndex).Value = True
                 ElseIf 流水帳_dgv("計算", 流水帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 流水帳_dgv("計算", 流水帳_dgv.SelectedCells(0).RowIndex).Value = False
                 End If
-            ElseIf 流水帳_dgv.SelectedCells(0).ColumnIndex = 65 Then
+            ElseIf 流水帳_dgv.SelectedCells(0).ColumnIndex = 67 Then
                 If 流水帳_dgv("同帳", 流水帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 流水帳_dgv("同帳", 流水帳_dgv.SelectedCells(0).RowIndex).Value = True
                 ElseIf 流水帳_dgv("同帳", 流水帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 流水帳_dgv("同帳", 流水帳_dgv.SelectedCells(0).RowIndex).Value = False
                 End If
-            ElseIf 流水帳_dgv.SelectedCells(0).ColumnIndex = 67 Then
+            ElseIf 流水帳_dgv.SelectedCells(0).ColumnIndex = 69 Then
                 If 流水帳_dgv("所得", 流水帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 流水帳_dgv("所得", 流水帳_dgv.SelectedCells(0).RowIndex).Value = True
                 ElseIf 流水帳_dgv("所得", 流水帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 流水帳_dgv("所得", 流水帳_dgv.SelectedCells(0).RowIndex).Value = False
                 End If
                 Else : 流水帳_dgv.Rows(YY).Cells("代理1").Value = 流水帳_dgv.Rows(YY).Cells("代理小計s").Value.ToString : End If
                 If 流水帳_dgv.Rows(YY).Cells("客戶小計s").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("會員1").Value = "0"
                 Else : 流水帳_dgv.Rows(YY).Cells("會員1").Value = 流水帳_dgv.Rows(YY).Cells("客戶小計s").Value.ToString : End If
+                流水帳_dgv.Rows(YY).Cells("上繳金額1").Value = "0"
                 '------------長版轉換---------------------------------------------------------------------------------------------------------------------------------------
             ElseIf Strings.Left(流水帳_dgv.Rows(YY).Cells("資料").Value, 2) = "長板" Or Strings.Left(流水帳_dgv.Rows(YY).Cells("資料").Value, 2) = "長版" Then
                 If 流水帳_dgv.Rows(YY).Cells("自已總輸贏").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("個人所得1").Value = "0"
                 Else : 流水帳_dgv.Rows(YY).Cells("個人所得1").Value = 流水帳_dgv.Rows(YY).Cells("自已總輸贏").Value.ToString : End If
                 If 流水帳_dgv.Rows(YY).Cells("水倍差").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("水差1").Value = "0"
                 Else : 流水帳_dgv.Rows(YY).Cells("水差1").Value = 流水帳_dgv.Rows(YY).Cells("水倍差").Value.ToString : End If
+                If 流水帳_dgv.Rows(YY).Cells("上繳金額").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("上繳金額1").Value = "0"
+                Else : 流水帳_dgv.Rows(YY).Cells("上繳金額1").Value = 流水帳_dgv.Rows(YY).Cells("上繳金額").Value.ToString : End If
                 If 流水帳_dgv.Rows(YY).Cells("總監").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("總監1").Value = "0"
                 Else : 流水帳_dgv.Rows(YY).Cells("總監1").Value = 流水帳_dgv.Rows(YY).Cells("總監").Value.ToString : End If
                 If 流水帳_dgv.Rows(YY).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(YY).Cells("大股東1").Value = "0"
             Else
                 流水帳_dgv.Rows(YY).Cells("個人所得1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("會員1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("水差1").Value = "0"
                 流水帳_dgv.Rows(YY).Cells("總監1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("大股東1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("股東1").Value = "0"
-                流水帳_dgv.Rows(YY).Cells("總代理1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("代理1").Value = "0"
+                流水帳_dgv.Rows(YY).Cells("總代理1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("代理1").Value = "0" : 流水帳_dgv.Rows(YY).Cells("上繳金額1").Value = "0"
             End If
             流水帳_dgv.Rows(YY).Cells("會員.").Value = Strings.Format(Val(流水帳_dgv.Rows(YY).Cells("會員1").Value), "#,##0")
             流水帳_dgv.Rows(YY).Cells("代理.").Value = Strings.Format(Val(流水帳_dgv.Rows(YY).Cells("代理1").Value), "#,##0")
             流水帳_dgv.Rows(YY).Cells("股東.").Value = Strings.Format(Val(流水帳_dgv.Rows(YY).Cells("股東1").Value), "#,##0")
             流水帳_dgv.Rows(YY).Cells("大股東.").Value = Strings.Format(Val(流水帳_dgv.Rows(YY).Cells("大股東1").Value), "#,##0")
             流水帳_dgv.Rows(YY).Cells("總監.").Value = Strings.Format(Val(流水帳_dgv.Rows(YY).Cells("總監1").Value), "#,##0")
+            流水帳_dgv.Rows(YY).Cells("上繳金額.").Value = Strings.Format(Val(流水帳_dgv.Rows(YY).Cells("上繳金額1").Value), "#,##0")
             流水帳_dgv.Rows(YY).Cells("個人所得").Value = Strings.Format(Val(流水帳_dgv.Rows(YY).Cells("個人所得1").Value), "#,##0")
             流水帳_dgv.Rows(YY).Cells("水差").Value = Strings.Format(Val(流水帳_dgv.Rows(YY).Cells("水差1").Value), "#,##0")
             流水帳_dgv.Rows(YY).Cells("所得另算").Value = 流水帳_dgv.Rows(YY).Cells("個人所得1").Value
             If 流水帳_dgv("計算", YY).Value = False Then
                 流水帳_dgv.Rows(YY).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("代理.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("大股東.").Value = "0"
                 流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("水差").Value = "0" : 流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0"
-                流水帳_dgv.Rows(YY).Cells("總監.").Value = "0"
+                流水帳_dgv.Rows(YY).Cells("總監.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("上繳金額.").Value = "0"
             End If
             If 流水帳_dgv("所得", YY).Value = False Then
                 流水帳_dgv.Rows(YY).Cells("個人所得").Value = "0"
                         流水帳_dgv.Rows(YY).Cells("會員.").Value = 流水帳_dgv.Rows(YY).Cells("會員").Value : 流水帳_dgv.Rows(YY).Cells("代理.").Value = "0"
                         流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("大股東.").Value = "0"
                         流水帳_dgv.Rows(YY).Cells("總監.").Value = "0"
+                    ElseIf 流水帳_dgv.Rows(YY).Cells("同帳指定").Value.ToString = "上繳金額" Then
+                        流水帳_dgv.Rows(YY).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("代理.").Value = "0"
+                        流水帳_dgv.Rows(YY).Cells("總代理.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("大股東.").Value = "0"
+                        流水帳_dgv.Rows(YY).Cells("總監.").Value = "0" : 流水帳_dgv.Rows(YY).Cells("上繳金額.").Value = 流水帳_dgv.Rows(YY).Cells("上繳金額").Value
                     End If
                 End If
             End If
                 Else : 流水帳_dgv.Rows(i).Cells("代理1").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("客戶小計s").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("會員1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("會員1").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value.ToString : End If
+                流水帳_dgv.Rows(i).Cells("上繳金額1").Value = "0"
                 '------------長版轉換---------------------------------------------------------------------------------------------------------------------------------------
             ElseIf Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "長板" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "長版" Then
                 If 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("水差1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("水差1").Value = 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString : End If
+                If 流水帳_dgv.Rows(i).Cells("上繳金額").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("上繳金額1").Value = "0"
+                Else : 流水帳_dgv.Rows(i).Cells("上繳金額1").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("總監").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("總監1").Value = "0"
                 Else : 流水帳_dgv.Rows(i).Cells("總監1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value.ToString : End If
                 If 流水帳_dgv.Rows(i).Cells("大股東").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("大股東1").Value = "0"
             Else
                 流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0" : 流水帳_dgv.Rows(i).Cells("會員1").Value = "0" : 流水帳_dgv.Rows(i).Cells("水差1").Value = "0"
                 流水帳_dgv.Rows(i).Cells("總監1").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東1").Value = "0" : 流水帳_dgv.Rows(i).Cells("股東1").Value = "0"
-                流水帳_dgv.Rows(i).Cells("總代理1").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理1").Value = "0"
+                流水帳_dgv.Rows(i).Cells("總代理1").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理1").Value = "0" : 流水帳_dgv.Rows(i).Cells("上繳金額1").Value = "0"
             End If
             流水帳_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("總監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 = 流水帳_dgv.Rows(i).Cells("個人所得1").Value
                         流水帳_dgv.Rows(i).Cells("會員.").Value = 流水帳_dgv.Rows(i).Cells("會員").Value : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0"
                         流水帳_dgv.Rows(i).Cells("總代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = "0"
                         流水帳_dgv.Rows(i).Cells("總監.").Value = "0"
+                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "上繳金額" Then
+                        流水帳_dgv.Rows(i).Cells("會員.").Value = "0" : 流水帳_dgv.Rows(i).Cells("代理.").Value = "0"
+                        流水帳_dgv.Rows(i).Cells("總代理.").Value = "0" : 流水帳_dgv.Rows(i).Cells("股東.").Value = "0" : 流水帳_dgv.Rows(i).Cells("大股東.").Value = "0"
+                        流水帳_dgv.Rows(i).Cells("總監.").Value = "0" : 流水帳_dgv.Rows(i).Cells("上繳金額.").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value
                     End If
                 End If
             End If
 
         xlSheet.Cells(2, 1) = "商品" : xlSheet.Cells(2, 2) = "帳戶" : xlSheet.Cells(2, 3) = "老闆" : xlSheet.Cells(2, 4) = "客戶帳號" : xlSheet.Cells(2, 5) = "客戶"
         xlSheet.Cells(2, 6) = "會員" : xlSheet.Cells(2, 7) = "代理" : xlSheet.Cells(2, 8) = "總代理" : xlSheet.Cells(2, 9) = "股東" : xlSheet.Cells(2, 10) = "大股東"
-        xlSheet.Cells(2, 11) = "總監" : xlSheet.Cells(2, 12) = "個人所得" : xlSheet.Cells(2, 13) = "水差"
+        xlSheet.Cells(2, 11) = "總監" : xlSheet.Cells(2, 12) = "上繳金額" : xlSheet.Cells(2, 13) = "個人所得" : xlSheet.Cells(2, 14) = "水差"
         For I As Integer = 0 To 流水帳_dgv.Rows.Count - 1
             xlSheet.Cells(3 + N1, 1) = 流水帳_dgv.Rows(I).Cells("商品").Value : xlSheet.Cells(3 + N1, 2) = 流水帳_dgv.Rows(I).Cells("帳戶").Value
             xlSheet.Cells(3 + N1, 3) = 流水帳_dgv.Rows(I).Cells("老闆").Value : xlSheet.Cells(3 + N1, 4) = 流水帳_dgv.Rows(I).Cells("客戶帳號").Value
             xlSheet.Cells(3 + N1, 5) = 流水帳_dgv.Rows(I).Cells("客戶").Value : xlSheet.Cells(3 + N1, 6) = 流水帳_dgv.Rows(I).Cells("會員.").Value
             xlSheet.Cells(3 + N1, 7) = 流水帳_dgv.Rows(I).Cells("代理.").Value : xlSheet.Cells(3 + N1, 8) = 流水帳_dgv.Rows(I).Cells("總代理.").Value
             xlSheet.Cells(3 + N1, 9) = 流水帳_dgv.Rows(I).Cells("股東.").Value : xlSheet.Cells(3 + N1, 10) = 流水帳_dgv.Rows(I).Cells("大股東.").Value
-            xlSheet.Cells(3 + N1, 11) = 流水帳_dgv.Rows(I).Cells("總監.").Value : xlSheet.Cells(3 + N1, 12) = 流水帳_dgv.Rows(I).Cells("個人所得").Value
-            xlSheet.Cells(3 + N1, 13) = 流水帳_dgv.Rows(I).Cells("水差").Value
+            xlSheet.Cells(3 + N1, 11) = 流水帳_dgv.Rows(I).Cells("總監.").Value : xlSheet.Cells(3 + N1, 12) = 流水帳_dgv.Rows(I).Cells("上繳金額.").Value
+            xlSheet.Cells(3 + N1, 13) = 流水帳_dgv.Rows(I).Cells("個人所得").Value : xlSheet.Cells(3 + N1, 14) = 流水帳_dgv.Rows(I).Cells("水差").Value
             N1 += 1
         Next
         xlSheet.Cells(4 + N1, 5) = "合計"
         xlSheet.Cells(4 + N1, 8) = "=SUM(H3:H" & N1 + 3 & ")" : xlSheet.Cells(4 + N1, 9) = "=SUM(I3:I" & N1 + 3 & ")"
         xlSheet.Cells(4 + N1, 10) = "=SUM(J3:J" & N1 + 3 & ")" : xlSheet.Cells(4 + N1, 11) = "=SUM(K3:K" & N1 + 3 & ")"
         xlSheet.Cells(4 + N1, 12) = "=SUM(L3:L" & N1 + 3 & ")" : xlSheet.Cells(4 + N1, 13) = "=SUM(M3:M" & N1 + 3 & ")"
+        xlSheet.Cells(4 + N1, 14) = "=SUM(N3:N" & N1 + 3 & ")"
         總表格式(xlApp, xlSheet)
 
         If xlApp.Sheets(2).Name = "工作表1" Then : xlApp.Sheets("工作表1").Delete : Else : xlApp.Sheets("sheet1").Delete : End If
         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("F2:M2").Select()
+        xlSheet.Range("F2:N2").Select()
         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
-        xlSheet.Columns("A:M").Select : myExcel.Columns("A:M").EntireColumn.AutoFit
-        xlSheet.Range("F3:M" & N1 + 4).Select() : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
-        xlSheet.Columns("F:M").Select : myExcel.Selection.ColumnWidth = 12
+        xlSheet.Columns("A:N").Select : myExcel.Columns("A:N").EntireColumn.AutoFit
+        xlSheet.Range("F3:N" & N1 + 4).Select() : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
+        xlSheet.Columns("F:N").Select : myExcel.Selection.ColumnWidth = 12
 
-        xlSheet.Range("A2:M2").Select()
+        xlSheet.Range("A2:N2").Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
-        xlSheet.Range("A" & N1 + 3 & ":M" & N1 + 3).Select()
+        xlSheet.Range("A" & N1 + 3 & ":N" & N1 + 3).Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

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

         Me.Label3 = New System.Windows.Forms.Label()
         Me.版本號_tb = New System.Windows.Forms.TextBox()
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.讀取料夾路徑_bt = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.WebBrowser3 = New System.Windows.Forms.WebBrowser()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
+        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
         Me.SuspendLayout()
         '
         '資料庫版本號_lb
         '
         Me.資料庫版本號_lb.AutoSize = True
         Me.資料庫版本號_lb.BackColor = System.Drawing.SystemColors.Control
-        Me.資料庫版本號_lb.Location = New System.Drawing.Point(262, 12)
+        Me.資料庫版本號_lb.Location = New System.Drawing.Point(469, 9)
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
-        Me.資料庫版本號_lb.Size = New System.Drawing.Size(146, 12)
+        Me.資料庫版本號_lb.Size = New System.Drawing.Size(159, 16)
         Me.資料庫版本號_lb.TabIndex = 658
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2021060901"
         '
         '修改_bt
         '
-        Me.修改_bt.Location = New System.Drawing.Point(155, 6)
-        Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.修改_bt.Location = New System.Drawing.Point(344, 4)
+        Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
         Me.修改_bt.Name = "修改_bt"
-        Me.修改_bt.Size = New System.Drawing.Size(105, 24)
+        Me.修改_bt.Size = New System.Drawing.Size(122, 25)
         Me.修改_bt.TabIndex = 652
         Me.修改_bt.Text = "修改"
         '
         '
         Me.Label3.AutoSize = True
         Me.Label3.BackColor = System.Drawing.SystemColors.Control
-        Me.Label3.Location = New System.Drawing.Point(9, 12)
+        Me.Label3.Location = New System.Drawing.Point(177, 9)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(41, 12)
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
         Me.Label3.TabIndex = 651
         Me.Label3.Text = "版本號"
         '
         '版本號_tb
         '
         Me.版本號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.版本號_tb.Location = New System.Drawing.Point(52, 7)
-        Me.版本號_tb.Margin = New System.Windows.Forms.Padding(5)
+        Me.版本號_tb.Location = New System.Drawing.Point(224, 5)
+        Me.版本號_tb.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.版本號_tb.Name = "版本號_tb"
-        Me.版本號_tb.Size = New System.Drawing.Size(101, 23)
+        Me.版本號_tb.Size = New System.Drawing.Size(117, 23)
         Me.版本號_tb.TabIndex = 650
         '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label13.Location = New System.Drawing.Point(12, 9)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.TabIndex = 660
+        Me.Label13.Text = "我的電腦"
+        '
+        '讀取料夾路徑_bt
+        '
+        Me.讀取料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.讀取料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
+        Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(74, 5)
+        Me.讀取料夾路徑_bt.Name = "讀取料夾路徑_bt"
+        Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(97, 24)
+        Me.讀取料夾路徑_bt.TabIndex = 659
+        Me.讀取料夾路徑_bt.Text = "讀取料夾路徑"
+        Me.讀取料夾路徑_bt.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.Location = New System.Drawing.Point(950, 352)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(80, 16)
+        Me.Label1.TabIndex = 665
+        Me.Label1.Text = "原代碼存放區"
+        '
+        'WebBrowser3
+        '
+        Me.WebBrowser3.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.WebBrowser3.Location = New System.Drawing.Point(958, 371)
+        Me.WebBrowser3.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser3.Name = "WebBrowser3"
+        Me.WebBrowser3.Size = New System.Drawing.Size(382, 322)
+        Me.WebBrowser3.TabIndex = 664
+        Me.WebBrowser3.Url = New System.Uri("", System.UriKind.Relative)
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label12.Location = New System.Drawing.Point(957, 8)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(80, 16)
+        Me.Label12.TabIndex = 663
+        Me.Label12.Text = "執行檔存放區"
+        '
+        'WebBrowser2
+        '
+        Me.WebBrowser2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.WebBrowser2.Location = New System.Drawing.Point(8, 33)
+        Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser2.Name = "WebBrowser2"
+        Me.WebBrowser2.Size = New System.Drawing.Size(944, 660)
+        Me.WebBrowser2.TabIndex = 662
+        Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
+        '
+        'WebBrowser1
+        '
+        Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.WebBrowser1.Location = New System.Drawing.Point(960, 33)
+        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser1.Name = "WebBrowser1"
+        Me.WebBrowser1.Size = New System.Drawing.Size(382, 311)
+        Me.WebBrowser1.TabIndex = 661
+        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
+        '
         '系統執行檔版本管理
         '
-        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(411, 35)
+        Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.WebBrowser3)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.WebBrowser2)
+        Me.Controls.Add(Me.WebBrowser1)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.讀取料夾路徑_bt)
         Me.Controls.Add(Me.資料庫版本號_lb)
         Me.Controls.Add(Me.修改_bt)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.版本號_tb)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "系統執行檔版本管理"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "系統執行檔版本管理"
     Friend WithEvents Label3 As Label
     Friend WithEvents 版本號_tb As TextBox
     Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 讀取料夾路徑_bt As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents WebBrowser3 As WebBrowser
+    Friend WithEvents Label12 As Label
+    Friend WithEvents WebBrowser2 As WebBrowser
+    Friend WithEvents WebBrowser1 As WebBrowser
 End Class

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

     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
+    <value>17, 7</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>39</value>
   </metadata>
 </root>

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

 Option Strict Off
 Public Class 系統執行檔版本管理
     Private Sub 系統執行檔版本管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Target1 = Target & AA(0) & "/"
+        WebBrowser1.Url = New Uri(Target1)
+        Target2 = Target & AA(1) & "/"
+        WebBrowser3.Url = New Uri(Target2)
         SQL_系統版本號驗證()
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close()
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
+            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
+        End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
         SQL_版本號管理修改() : conn.Close() : SQL_系統版本號驗證()
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close() : MsgBox("修改完成")
         Me.Close()
     End Sub
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
+            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
+        End If
+    End Sub
 End Class