20240316備份

.vs/SYS-UPDATE/v17/DocumentLayout.json

@@ -0,0 +1,107 @@
+{
+  "Version": 1,
+  "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\",
+  "Documents": [
+    {
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\tenden\\sys-update\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\tenden\\sys-update\\sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\tenden\\sys-update\\sys-update\\sql_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sql_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\tenden\\sys-update\\sys-update\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    }
+  ],
+  "DocumentGroupContainers": [
+    {
+      "Orientation": 0,
+      "VerticalTabListWidth": 256,
+      "DocumentGroups": [
+        {
+          "DockedWidth": 200,
+          "SelectedChildIndex": 4,
+          "Children": [
+            {
+              "$type": "Bookmark",
+              "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 3,
+              "Title": "\u5168\u57DF\u8B8A\u6578.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
+              "RelativeDocumentMoniker": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
+              "RelativeToolTip": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAYAAAAcAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-13T11:50:36.4Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 2,
+              "Title": "SQL_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SQL_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb",
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SQL_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SQL_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb",
+              "RelativeToolTip": "SYS-UPDATE\\SQL_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAACsAAAAAAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-13T11:46:41.726Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "SQL_Module.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SQL_Module.vb",
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SQL_Module.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SQL_Module.vb",
+              "RelativeToolTip": "SYS-UPDATE\\SQL_Module.vb",
+              "ViewState": "AQIAAAQAAAAAAAAAAIA2wBUAAABzAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-13T11:38:42.727Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 0,
+              "Title": "SYS-UPDATE.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
+              "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
+              "ViewState": "AQIAAAsAAAAAAAAAAAAAwBwAAAAvAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2023-06-07T08:43:19.563Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 4,
+              "Title": "SYS-UPDATE.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
+              "WhenOpened": "2023-06-07T08:43:17.998Z"
+            }
+          ]
+        }
+      ]
+    }
+  ]
+}

SYS-UPDATE/SQL_連線狀態模組1.vb

@@ -0,0 +1,65 @@
+Module SQL_連線狀態模組1
+#Region "——连接测试：避免等待时间过长——"
+    Dim bConnect As Boolean
+    Dim BgWorker1 As New System.ComponentModel.BackgroundWorker
+    Dim ServerIP As String
+    ''' <summary>
+    ''' 测试连接：True-连接成功，False-连接失败
+    ''' 参数[必选]：服务器IP
+    ''' 参数[可选]：等待超时时间（秒）,默认为1.2秒
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Function ConnectTest1(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 1.5) As Boolean
+        AddHandler BgWorker1.DoWork, AddressOf BgWorker1_DoWork
+        Dim g As Integer
+        Dim k As Integer
+        If BgWorker1.CancellationPending Then
+            BgWorker1.CancelAsync()
+            '取消BackgroundWorker執行中的工作
+        End If
+        Try
+            If varServerIP = "" Then
+                Exit Function
+            End If
+            ServerIP = varServerIP
+            If varTimeout <= 0 Then
+                varTimeout = 1.5
+            End If
+            k = Int(varTimeout * 10)
+            bConnect = False
+            BgWorker1.WorkerSupportsCancellation = True
+            BgWorker1.RunWorkerAsync()
+            For g = 1 To k '1.2s
+                Threading.Thread.Sleep(100)
+                If bConnect = True Then
+                    ConnectTest1 = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest1 = False
+            BgWorker1.CancelAsync()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+    '--异步动作
+    Private Sub BgWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Call ConnectMSSQLServer()
+    End Sub
+    '--连接数据库
+    Private Function ConnectMSSQLServer() As Boolean
+        Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接   
+        sqlConTest = New Data.SqlClient.SqlConnection
+        sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        Try
+            sqlConTest.Open()
+            sqlConTest.Close()
+        Catch ex As Exception
+        Finally
+            bConnect = True
+        End Try
+    End Function
+#End Region
+End Module
+

SYS-UPDATE/SYS-UPDATE.vb

@@ -13,29 +13,25 @@ Public Class SYS_UPDATE
         Dim pProcess1() As Process = System.Diagnostics.Process.GetProcessesByName("TENDEN-ERP-SYS.exe")
         For Each p As Process In pProcess1 : p.Kill() : Next
         Dim Strs As String = Application.StartupPath : 資料數 = 17
-        If File.Exists(Strs + "\LIVE.txt") Then
-            MyModule1.進度條() : Dim fileReader As String : fileReader = My.Computer.FileSystem.ReadAllText(Strs + "\LIVE.txt")
-            MyModule1.進度條() : If Strings.Left(fileReader, 1) = "A" Then : 伺服器區域_cb.Text = "天盾伺服器" : Else : 伺服器區域_cb.Text = "雲端伺服器" : End If
-            '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
-            MyModule1.進度條() : If 伺服器區域_cb.Text = "天盾伺服器" Then : 登入人IP = "192.168.0.107" : ElseIf 伺服器區域_cb.Text = "雲端伺服器" Then : 登入人IP = "106.1.48.106,4567" : End If
-            MyModule1.進度條() : SQL_連線字串_ERP()
-            '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
-            MyModule1.進度條() : SQL_版本號()
-            MyModule1.進度條() : If dr.Read() Then : 版本號 = dr("系統認證版本號") : End If : conn.Close()
-            '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
-            MyModule1.進度條() : SQL_FTP伺服器登入位置()
-            MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
-            MyModule1.進度條() : Set_清單1()
-            MyModule1.進度條() : Dim HH As String = ""
-            For i As Integer = 0 To FDT_dgv.Rows.Count - 1
-                If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
-                If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
-            Next
-            MyModule1.進度條() : Target1 = Target & AA(0) & "/"
+
+        If SQL_連線狀態模組1.ConnectTest1("192.168.0.107") = True Then
+            MyModule1.進度條() : 登入人IP = "192.168.0.107" : SQL_連線字串_正式() : 伺服器區域_cb.Text = "天盾伺服器"
         Else
-            Delay(30000)
-            MsgBox("沒有連線指定!!!") : Me.Close()
+            MyModule1.進度條() : 登入人IP = "106.1.49.218,2433" : SQL_連線字串_測試() : 伺服器區域_cb.Text = "雲端伺服器"
         End If
+        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
+        MyModule1.進度條() : SQL_版本號()
+        MyModule1.進度條() : If dr.Read() Then : 版本號 = dr("系統認證版本號") : End If : conn.Close()
+        '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
+        MyModule1.進度條() : SQL_FTP伺服器登入位置()
+        MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
+        MyModule1.進度條() : Set_清單1()
+        MyModule1.進度條() : Dim HH As String = ""
+        For i As Integer = 0 To FDT_dgv.Rows.Count - 1
+            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
+            If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
+        Next
+        MyModule1.進度條() : Target1 = Target & AA(0) & "/"
     End Sub
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         MyModule1.進度條() : Delay(30000)

SYS-UPDATE/SYS-UPDATE.vbproj

@@ -76,6 +76,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="SQL_連線狀態模組1.vb" />
     <Compile Include="SYS-UPDATE.vb">
       <SubType>Form</SubType>
     </Compile>

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

@@ -22,5 +22,14 @@ SYS-UPDATE
   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
+<member name="M:SYS_UPDATE.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

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

@@ -1 +1 @@
-f7bf0ccb484b8b6b002ac292c9038830c025f75f
+e5b528b0002881bb6b04de9704eee6656a54038231ece3a779f32181c783e6bf

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

@@ -22,4 +22,3 @@ D:\工巧明\TENDEN\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.exe
 D:\工巧明\TENDEN\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.xml
 D:\工巧明\TENDEN\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.pdb
 D:\工巧明\TENDEN\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.AssemblyReference.cache
-D:\工巧明\TENDEN\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache

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

@@ -22,5 +22,14 @@ SYS-UPDATE
   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
+<member name="M:SYS_UPDATE.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

SYS-UPDATE/全域變數.vb

@@ -1,12 +1,11 @@
 Module 全域變數
     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()
-        If SYS_UPDATE.伺服器區域_cb.Text = "雲端伺服器" Then
-            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
-        Else
-            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
-        End If
+    Friend Sub SQL_連線字串_正式()
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_測試()
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;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