20220430備份

.editorconfig

@@ -0,0 +1,4 @@
+[*.vb]
+
+# BC42353: 函式在所有程式碼路徑上皆不會傳回值
+dotnet_diagnostic.BC42353.severity = suggestion

TENDEN-MES-SYS.sln

@@ -5,6 +5,11 @@ VisualStudioVersion = 16.0.29519.87
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "天盾系統", "TENDEN-MES-SYS\天盾系統.vbproj", "{27F7A8C0-0F0B-488C-BECB-5D62C4D74631}"
 EndProject
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Items", "{93AE1D6D-94FC-47DA-8BEC-07107B605AB0}"
+	ProjectSection(SolutionItems) = preProject
+		.editorconfig = .editorconfig
+	EndProjectSection
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU

TENDEN-MES-SYS/LoginForm1vb.vb

@@ -34,13 +34,6 @@ Public Class LoginForm1vb
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
         CheckBox1.Enabled = False : CheckBox1.Enabled = False : TextBox4.Text = "1" : Label1.Text = "執行檔版本號 : " & 版本 : UsernameTextBox.ImeMode = 3
         網段.ShowDialog()
-        If 登入判斷 = True Then
-            ComboBox1.Text = "天盾伺服器"
-            OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
-        ElseIf 登入判斷 = False Then
-            ComboBox1.Text = "雲端伺服器"
-            OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
-        End If
         '-----------------------調整視窗大小-----------------------------------------------------------------------------------------------------------------------------------------------
         Me.Size = New Size(470, 288)
         If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(725, 396)
@@ -51,6 +44,15 @@ Public Class LoginForm1vb
         End If
         Timer1.Enabled = True
     End Sub
+    Private Sub LoginForm1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        If 登入判斷 = True Then
+            ComboBox1.Text = "天盾伺服器"
+            OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
+        ElseIf 登入判斷 = False Then
+            ComboBox1.Text = "雲端伺服器"
+            OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
+        End If
+    End Sub
     Private Sub 登入()
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
         If ComboBox1.Text = "雲端伺服器" Then
@@ -97,12 +99,17 @@ Public Class LoginForm1vb
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
         If ComboBox1.Text = "天盾伺服器" Then
-            登入人IP = "192.168.0.107"
-            登入()
-            OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
+            If SQL_連線狀態模組.ConnectTest("192.168.0.107") = True Then
+                登入人IP = "192.168.0.107" : 登入()
+                OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
+            Else
+                MsgBox("天盾伺服器無法連線，自動轉跳測試線路，請聯繫系統管理員!!")
+                ComboBox1.Text = "雲端伺服器"
+                登入人IP = "106.1.48.106,4567" : 登入()
+                OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
+            End If
         ElseIf ComboBox1.Text = "雲端伺服器" Then
-            登入人IP = "106.1.48.106,4567"
-            登入()
+            登入人IP = "106.1.48.106,4567" : 登入()
             OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
         End If
         UsernameTextBox.Focus()

TENDEN-MES-SYS/Module/SQL_連線狀態模組.vb

@@ -0,0 +1,65 @@
+Module SQL_連線狀態模組
+#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 ConnectTest(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 3) 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 = 3
+            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
+                    ConnectTest = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest = 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=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;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
+

TENDEN-MES-SYS/bin/Debug/TENDEN-ERP-SYS.xml

@@ -232,5 +232,14 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="M:天盾國際管理系統.SQL_連線狀態模組.ConnectTest(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

TENDEN-MES-SYS/obj/Debug/TENDEN-ERP-SYS.xml

@@ -232,5 +232,14 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="M:天盾國際管理系統.SQL_連線狀態模組.ConnectTest(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-84eb73d2d4c30da277b562d207fe0f6ae09feec2
+faf913a810261d1ca276697c3a73648b9bc8c807

TENDEN-MES-SYS/天盾系統.vbproj

@@ -103,6 +103,7 @@
     <Compile Include="Module\SQL_人事系統管理.vb" />
     <Compile Include="Module\SQL_成本系統管理.vb" />
     <Compile Include="Module\SQL_資料庫系統管理.vb" />
+    <Compile Include="Module\SQL_連線狀態模組.vb" />
     <Compile Include="Module\SQL_量產訂單資料庫切換.vb" />
     <Compile Include="Module\SQL_圖片資料庫管理.vb" />
     <Compile Include="Module\SQL_彙總報表管理.vb" />
@@ -1074,6 +1075,9 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="..\.editorconfig">
+      <Link>.editorconfig</Link>
+    </None>
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>