20210930備份

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

@@ -96,7 +96,7 @@ Public Class GA_ERP_SYS
     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

@@ -51,13 +51,14 @@ Partial Class LoginForm1
         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()
@@ -264,14 +265,14 @@ Partial Class LoginForm1
         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
         '
@@ -283,7 +284,7 @@ Partial Class LoginForm1
         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
         '
@@ -316,9 +317,9 @@ Partial Class LoginForm1
         '
         '解鎖_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
@@ -341,6 +342,15 @@ Partial Class LoginForm1
         '
         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
@@ -350,7 +360,7 @@ Partial Class LoginForm1
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.CancelButton = Me.取消_bt
         Me.ClientSize = New System.Drawing.Size(964, 240)
-        Me.Controls.Add(Me.簡易登入_dgv)
+        Me.Controls.Add(Me.UPDATE_bt)
         Me.Controls.Add(Me.藏_bt)
         Me.Controls.Add(Me.解鎖_bt)
         Me.Controls.Add(Me.簡易_lb)
@@ -372,8 +382,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.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)
@@ -404,11 +415,12 @@ Partial Class LoginForm1
     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

@@ -9,6 +9,7 @@ Public Class LoginForm1
     ' 其中 CustomPrincipal 是用來執行驗證的 IPrincipal 實作。
     ' 接著，My.User 便會傳回封裝在 CustomPrincipal 物件中的識別資訊，
     ' 例如使用者名稱、顯示名稱等。
+    ReadOnly ds2 As New DataSet
     ReadOnly MACKK As String 'MAC碼
     ReadOnly diskId As String '數字ID
     ReadOnly diskSerialNumber As String '硬碟序列
@@ -19,6 +20,14 @@ Public Class LoginForm1
     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
@@ -29,9 +38,6 @@ Public Class LoginForm1
         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
@@ -42,8 +48,11 @@ Public Class LoginForm1
         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
@@ -79,6 +88,15 @@ Public Class LoginForm1
             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
@@ -157,10 +175,11 @@ Public Class LoginForm1
             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)
@@ -170,7 +189,7 @@ 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
+            簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : UPDATE_bt.Visible = False
         End If
     End Sub
     Private Sub 登入程序()
@@ -255,7 +274,7 @@ 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
+            簡易登入_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)
@@ -294,18 +313,12 @@ Public Class LoginForm1
             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
@@ -321,4 +334,19 @@ Public Class LoginForm1
             登入綁定_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

@@ -539,8 +539,8 @@
     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, 
@@ -554,11 +554,11 @@
                                        商客基本資料表.上繳源 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

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' 設為預設，如下所示:
 ' <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

@@ -1 +1 @@
-6526e6772923c5594ab2b4b0d5a97d2ed4a7694f
+ac3e807adc43f305246c981a40a2d7dfaa464546

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

@@ -120,3 +120,39 @@ D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.資
 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務彙總計算表.resources
 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務明細查詢表.resources
 D:\工巧明\GAME- Accounting-SYS\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.錯誤排除手冊.resources
+D:\工巧明\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

@@ -547,10 +547,11 @@ Public Class 基本資料
         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

@@ -109,7 +109,7 @@ Public Class 帳務明細查詢表
         流水帳_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
@@ -117,10 +117,11 @@ Public Class 帳務明細查詢表
         流水帳_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
@@ -177,12 +178,15 @@ Public Class 帳務明細查詢表
                 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"
@@ -196,7 +200,7 @@ Public Class 帳務明細查詢表
                 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
@@ -206,6 +210,7 @@ Public Class 帳務明細查詢表
             流水帳_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
@@ -213,7 +218,7 @@ Public Class 帳務明細查詢表
             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"
@@ -278,6 +283,10 @@ Public Class 帳務明細查詢表
                         流水帳_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
@@ -349,15 +358,15 @@ Public Class 帳務明細查詢表
     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
@@ -381,12 +390,15 @@ Public Class 帳務明細查詢表
                 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"
@@ -402,7 +414,7 @@ Public Class 帳務明細查詢表
             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")
@@ -410,6 +422,7 @@ Public Class 帳務明細查詢表
             流水帳_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
@@ -417,7 +430,7 @@ Public Class 帳務明細查詢表
             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"
@@ -474,6 +487,10 @@ Public Class 帳務明細查詢表
                         流水帳_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
@@ -782,12 +799,15 @@ Public Class 帳務明細查詢表
                 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"
@@ -803,7 +823,7 @@ Public Class 帳務明細查詢表
             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")
@@ -811,6 +831,7 @@ Public Class 帳務明細查詢表
             流水帳_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
@@ -875,6 +896,10 @@ Public Class 帳務明細查詢表
                         流水帳_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
@@ -1019,15 +1044,15 @@ Public Class 帳務明細查詢表
 
         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) = "合計"
@@ -1035,6 +1060,7 @@ Public Class 帳務明細查詢表
         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
@@ -1056,15 +1082,15 @@ Public Class 帳務明細查詢表
         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
@@ -1072,7 +1098,7 @@ Public Class 帳務明細查詢表
         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

@@ -27,24 +27,31 @@ Partial Class 系統執行檔版本管理
         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 = "修改"
         '
@@ -52,30 +59,114 @@ Partial Class 系統執行檔版本管理
         '
         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 = "系統執行檔版本管理"
@@ -88,4 +179,11 @@ Partial Class 系統執行檔版本管理
     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

@@ -118,6 +118,9 @@
     <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

@@ -1,12 +1,25 @@
 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