20240316備份

SYS-UPDATE/SYS-UPDATE.vb

@@ -12,7 +12,7 @@ Public Class SYS_UPDATE
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
         資料數 = 17
-        MyModule1.進度條() : 登入人IP = "180.177.181.162,5264"
+        MyModule1.進度條() : 登入人IP = "mssql-147629-0.cloudclusters.net,12711"
         MyModule1.進度條() : SQL_連線字串_ERP()
         MyModule1.進度條() : 伺服器區域_cb.Text = "工巧明外網"
         MyModule1.進度條() : g_conn_type = 伺服器區域_cb.Text & "伺服器"

SYS-UPDATE/SYS-UPDATE.vbproj

@@ -50,6 +50,9 @@
   <PropertyGroup>
     <ApplicationIcon>favicon-20190809022345261.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="highestAvailable" 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

@@ -9,4 +9,5 @@ D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.CoreCompileIn
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.exe
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.xml
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.pdb
-D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbprojAssemblyReference.cache
+D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.AssemblyReference.cache
+D:\工巧明\GCM\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>

SYS-UPDATE/全域變數.vb

@@ -2,7 +2,7 @@
     Public g_conn_type As String : Public gUserName As String : Public 版本號 As String :: Public 登入人IP As String : Public AA(99) As String
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Friend Sub SQL_連線字串_ERP()
-        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=我的資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=GCM-MIS-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Public Class MyModule1