20220203備份

SYS-UPDATE/SQL_Module.vb

@@ -21,4 +21,7 @@ Module SQL_Module
     Friend Sub SQL_FTP伺服器登入位置()
         ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & SYS_UPDATE.伺服器區域_cb.Text & "'" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_系統版本號驗證()
+        ConnOpen() : SQL1 = "SELECT 系統認證版本號, 小更新1, 小更新2, 小更新3, 小更新4, 小更新5 FROM 版本號管理 " : CmdSet_For_dr()
+    End Sub
 End Module

SYS-UPDATE/SYS-UPDATE.vb

@@ -1,6 +1,7 @@
 Imports System.IO
 Public Class SYS_UPDATE
     ReadOnly ds2 As New DataSet
+    Dim 號1, 號2, 號3, 號4, 號5, fileReader As String
     Private Sub Set_清單1()
         FDT_dgv.DataSource = Nothing : ds2.Clear()
         FDT_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -10,11 +11,12 @@ Public Class SYS_UPDATE
         da.Fill(ds2) : FDT_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        資料數 = 18
+        資料數 = 20
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
         MyModule1.進度條() : 登入人IP = "103.231.201.230,2433"
         MyModule1.進度條() : SQL_連線字串_ERP()
-        MyModule1.進度條() : 伺服器區域_cb.Text = "雲端" : g_conn_type = "雲端"
+        MyModule1.進度條() : 伺服器區域_cb.Text = "雲端"
+        MyModule1.進度條() :: g_conn_type = "雲端"
         '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
         MyModule1.進度條() : SQL_FTP伺服器登入位置()
         MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
@@ -26,19 +28,34 @@ Public Class SYS_UPDATE
         Next
     End Sub
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        MyModule1.進度條() : Dim Strs As String = Application.StartupPath
+        If File.Exists(Strs + "\C.txt") Then
+            fileReader = My.Computer.FileSystem.ReadAllText(Strs + "\C.txt")
+            fileReader = Strings.Left(fileReader, 10)
+        End If
+        MyModule1.進度條() : SQL_系統版本號驗證()
+        If dr.Read() Then
+            號1 = dr("小更新1") : 號2 = dr("小更新2") : 號3 = dr("小更新3")
+            號4 = dr("小更新4") : 號5 = dr("小更新5")
+        End If : conn.Close()
         MyModule1.進度條() : Delay(30000)
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
-        '------------------------------------------系統主體---------------------------------------------------------------------------------
-        MyModule1.進度條() : If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If : Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
+        If (fileReader = 號1 Or fileReader = 號2 Or fileReader = 號3 Or fileReader = 號4 Or fileReader = 號5) And fileReader <> "" Then
+            '------------------------------------------系統主體---------------------------------------------------------------------------------
+            MyModule1.進度條() : MyModule1.進度條() : If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If
+            MyModule1.進度條() : MyModule1.進度條() : Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
+            MyModule1.進度條() : MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
+        Else
+            '------------------------------------------系統主體---------------------------------------------------------------------------------
+            MyModule1.進度條() : If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If : Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
 
-        MyModule1.進度條() : If File.Exists(Str + "\loginVerify.exe") Then : File.Delete(Str + "\loginVerify.exe") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Verify.exe") Then : File.Delete(Str + "\Verify.exe") : End If : Me.Text = "SYS-UPDATE........Verify.exe"
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Verify.exe", Str + "\Verify.exe")
-
-        MyModule1.進度條() : If File.Exists(Str + "\Auto.exe") Then : File.Delete(Str + "\Auto.exe") : End If : Me.Text = "SYS-UPDATE........Auto.exe"
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Auto.exe", Str + "\Auto.exe")
+            MyModule1.進度條() : If File.Exists(Str + "\Verify.exe") Then : File.Delete(Str + "\Verify.exe") : End If : Me.Text = "SYS-UPDATE........Verify.exe"
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Verify.exe", Str + "\Verify.exe")
 
+            MyModule1.進度條() : If File.Exists(Str + "\Auto.exe") Then : File.Delete(Str + "\Auto.exe") : End If : Me.Text = "SYS-UPDATE........Auto.exe"
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Auto.exe", Str + "\Auto.exe")
+        End If
         MyModule1.進度條() : Shell(Str + "\GA-ERP-SYS.exe", vbNormalFocus)
         Me.Close()
     End Sub