20221201備份

SYS-UPDATE/SQL_Module.vb

@@ -22,6 +22,6 @@ Module SQL_Module
         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()
+        ConnOpen() : SQL1 = "SELECT 系統認證版本號, 小更新1, 小更新2, 小更新3, 小更新4, 小更新5, Auto, Verify FROM 版本號管理 " : CmdSet_For_dr()
     End Sub
 End Module

SYS-UPDATE/SYS-UPDATE.Designer.vb

@@ -29,6 +29,7 @@ Partial Class SYS_UPDATE
         Me.FDT_dgv = New System.Windows.Forms.DataGridView()
         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.Label1 = New System.Windows.Forms.Label()
         CType(Me.FDT_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -48,7 +49,7 @@ Partial Class SYS_UPDATE
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.FDT_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.FDT_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.FDT_dgv.Location = New System.Drawing.Point(12, 43)
+        Me.FDT_dgv.Location = New System.Drawing.Point(12, 74)
         Me.FDT_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.FDT_dgv.Name = "FDT_dgv"
         Me.FDT_dgv.RowHeadersWidth = 5
@@ -59,7 +60,7 @@ Partial Class SYS_UPDATE
         '
         'ProgressBar1
         '
-        Me.ProgressBar1.Location = New System.Drawing.Point(0, 0)
+        Me.ProgressBar1.Location = New System.Drawing.Point(0, 34)
         Me.ProgressBar1.Maximum = 10000
         Me.ProgressBar1.Name = "ProgressBar1"
         Me.ProgressBar1.Size = New System.Drawing.Size(296, 23)
@@ -69,12 +70,23 @@ Partial Class SYS_UPDATE
         '
         Me.Timer1.Interval = 1000
         '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.Red
+        Me.Label1.Location = New System.Drawing.Point(11, 1)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(273, 32)
+        Me.Label1.TabIndex = 636
+        Me.Label1.Text = "更新過程中如果出現 (沒有回應) 提示文字屬於正常" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "情況，請不要關閉程式，耐心等待更新完成!"
+        '
         'SYS_UPDATE
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(296, 23)
+        Me.ClientSize = New System.Drawing.Size(300, 60)
         Me.ControlBox = False
+        Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.ProgressBar1)
         Me.Controls.Add(Me.FDT_dgv)
         Me.Controls.Add(Me.伺服器區域_cb)
@@ -88,6 +100,7 @@ Partial Class SYS_UPDATE
         Me.Text = "SYS-UPDATE........"
         CType(Me.FDT_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
 
@@ -95,4 +108,5 @@ Partial Class SYS_UPDATE
     Friend WithEvents FDT_dgv As DataGridView
     Friend WithEvents ProgressBar1 As ProgressBar
     Friend WithEvents Timer1 As Timer
+    Friend WithEvents Label1 As Label
 End Class

SYS-UPDATE/SYS-UPDATE.vb

@@ -2,6 +2,7 @@
 Public Class SYS_UPDATE
     ReadOnly ds2 As New DataSet
     Dim 號1, 號2, 號3, 號4, 號5, fileReader As String
+    Dim Auto_B, Verify_B As Boolean
     Private Sub Set_清單1()
         FDT_dgv.DataSource = Nothing : ds2.Clear()
         FDT_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -13,7 +14,7 @@ Public Class SYS_UPDATE
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         資料數 = 20
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : 登入人IP = "103.231.201.230,2433"
+        MyModule1.進度條() : 登入人IP = "106.1.48.106,4567"
         MyModule1.進度條() : SQL_連線字串_ERP()
         MyModule1.進度條() : 伺服器區域_cb.Text = "雲端"
         MyModule1.進度條() :: g_conn_type = "雲端"
@@ -35,8 +36,7 @@ Public Class SYS_UPDATE
         End If
         MyModule1.進度條() : SQL_系統版本號驗證()
         If dr.Read() Then
-            號1 = dr("小更新1") : 號2 = dr("小更新2") : 號3 = dr("小更新3")
-            號4 = dr("小更新4") : 號5 = dr("小更新5")
+            號1 = dr("小更新1") : 號2 = dr("小更新2") : 號3 = dr("小更新3") : 號4 = dr("小更新4") : 號5 = dr("小更新5") : Auto_B = dr("Auto") : Verify_B = dr("Verify")
         End If : conn.Close()
         MyModule1.進度條() : Delay(30000)
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
@@ -49,12 +49,14 @@ Public Class SYS_UPDATE
             '------------------------------------------系統主體---------------------------------------------------------------------------------
             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 + "\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")
+            If Verify_B = True Then
+                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")
+            End If
+            If Auto_B = True Then
+                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
         End If
         MyModule1.進度條() : Shell(Str + "\GA-ERP-SYS.exe", vbNormalFocus)
         Me.Close()

SYS-UPDATE/SYS-UPDATE.vbproj

@@ -50,6 +50,9 @@
   <PropertyGroup>
     <ApplicationIcon>wrench1.ico</ApplicationIcon>
   </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>app.manifest</ApplicationManifest>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
     <Reference Include="System.Data" />
@@ -114,6 +117,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>

SYS-UPDATE/app.manifest

@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="utf-8"?>
+<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <!-- UAC 資訊清單選項
+             如果要變更 Windows 使用者帳戶控制層級，請將 
+             requestedExecutionLevel 節點以下列其中之一取代。
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            指定 requestedExecutionLevel 項目會停用檔案及登錄虛擬化。
+            如果您的應用程式需要針對回溯相容性進行這項虛擬化，請移除這個
+            項目。
+        -->
+        <requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- 此應用程式已通過測試，並設計要搭配使用的
+           應用程式版本清單。請取消註解適當元素，
+           Windows 就會自動選取最相容的環境。 -->
+
+      <!-- Windows Vista -->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
+
+      <!-- Windows 7 -->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+
+      <!-- Windows 8 -->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
+
+      <!-- Windows 8.1 -->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
+
+      <!-- Windows 10 -->
+      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+
+    </application>
+  </compatibility>
+
+  <!-- 表示應用程式為 DPI 感知，Windows 不會在 DPI 變高時自動
+       縮放。Windows Presentation Foundation (WPF) 應用程式會自動感知 DPI，因此不需要
+       加入。以 .NET Framework 4.6 為目標的 Windows Form 應用程式若加入這項設定，也
+       應該在其 app.config 中將 'EnableWindowsFormsHighDpiAutoResizing' 設定為 'true'。
+       
+       將應用程式設定為感知長路徑。請參閱 https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation-->
+  <!--
+  <application xmlns="urn:schemas-microsoft-com:asm.v3">
+    <windowsSettings>
+      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
+      <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
+    </windowsSettings>
+  </application>
+  -->
+
+  <!-- 啟用 Windows 通用控制項和對話方塊的佈景主題 (Windows XP 以後版本) -->
+  <!--
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+          type="win32"
+          name="Microsoft.Windows.Common-Controls"
+          version="6.0.0.0"
+          processorArchitecture="*"
+          publicKeyToken="6595b64144ccf1df"
+          language="*"
+        />
+    </dependentAssembly>
+  </dependency>
+  -->
+
+</assembly>

SYS-UPDATE/bin/Debug/SYS-UPDATE.exe.config

@@ -1,6 +1,6 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
-</configuration>
+</configuration>

SYS-UPDATE/bin/Debug/SYS-UPDATE.xml

@@ -8,18 +8,18 @@ SYS-UPDATE
 <members>
 <member name="T:SYS_UPDATE.My.Resources.Resources">
 <summary>
-  A strongly-typed resource class, for looking up localized strings, etc.
+  用於查詢當地語系化字串等的強類型資源類別。
 </summary>
 </member>
 <member name="P:SYS_UPDATE.My.Resources.Resources.ResourceManager">
 <summary>
-  Returns the cached ResourceManager instance used by this class.
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
 </summary>
 </member>
 <member name="P:SYS_UPDATE.My.Resources.Resources.Culture">
 <summary>
-  Overrides the current thread's CurrentUICulture property for all
-  resource lookups using this strongly typed resource class.
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+  使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
 </members>

SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-04af96f1783334a1d4800be8ce0d19988d8815ee
+f7bf0ccb484b8b6b002ac292c9038830c025f75f

SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.FileListAbsolute.txt

@@ -26,7 +26,6 @@ D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.exe.co
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.exe
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.pdb
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.xml
-D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbprojAssemblyReference.cache
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS_UPDATE.SYS_UPDATE.resources
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS_UPDATE.Resources.resources
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.GenerateResource.cache
@@ -34,3 +33,5 @@ D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.exe
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.xml
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.pdb
+D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.AssemblyReference.cache
+D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache

SYS-UPDATE/obj/Debug/SYS-UPDATE.xml

@@ -8,18 +8,18 @@ SYS-UPDATE
 <members>
 <member name="T:SYS_UPDATE.My.Resources.Resources">
 <summary>
-  A strongly-typed resource class, for looking up localized strings, etc.
+  用於查詢當地語系化字串等的強類型資源類別。
 </summary>
 </member>
 <member name="P:SYS_UPDATE.My.Resources.Resources.ResourceManager">
 <summary>
-  Returns the cached ResourceManager instance used by this class.
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
 </summary>
 </member>
 <member name="P:SYS_UPDATE.My.Resources.Resources.Culture">
 <summary>
-  Overrides the current thread's CurrentUICulture property for all
-  resource lookups using this strongly typed resource class.
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+  使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
 </members>