20230305備份

BIFENG-REG-SYS/BIFENG-REG-SYS.Designer.vb

@@ -48,7 +48,7 @@ Partial Class Form1
         Me.Label4.AutoSize = True
         Me.Label4.Location = New System.Drawing.Point(10, 102)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.Size = New System.Drawing.Size(55, 16)
         Me.Label4.TabIndex = 20
         Me.Label4.Text = "磁盘型態"
         '
@@ -57,7 +57,7 @@ Partial Class Form1
         Me.Label3.AutoSize = True
         Me.Label3.Location = New System.Drawing.Point(10, 73)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(56, 16)
+        Me.Label3.Size = New System.Drawing.Size(55, 16)
         Me.Label3.TabIndex = 19
         Me.Label3.Text = "硬碟序列"
         '
@@ -66,7 +66,7 @@ Partial Class Form1
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(10, 44)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(44, 16)
+        Me.Label2.Size = New System.Drawing.Size(43, 16)
         Me.Label2.TabIndex = 18
         Me.Label2.Text = "硬碟ID"
         '
@@ -75,7 +75,7 @@ Partial Class Form1
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(10, 15)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(48, 16)
+        Me.Label1.Size = New System.Drawing.Size(47, 16)
         Me.Label1.TabIndex = 17
         Me.Label1.Text = "MAC碼"
         '
@@ -120,6 +120,7 @@ Partial Class Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.ClientSize = New System.Drawing.Size(389, 187)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Label4)

BIFENG-REG-SYS/BIFENG-REG-SYS.vb

@@ -10,6 +10,7 @@ Public Class Form1
     Dim SQL1 As String
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         網段.ShowDialog()
+        If 不通 = True Then : Me.Close() : End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         '-----MAC碼----------------------------------------------------------------------------------------------

BIFENG-REG-SYS/BIFENG-REG-SYS.vbproj

@@ -84,7 +84,7 @@
       <DependentUpon>BIFENG-REG-SYS.vb</DependentUpon>
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Module1.vb" />
+    <Compile Include="SQL_連線狀態模組1.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -106,6 +106,7 @@
     <Compile Include="網段.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="通用變數.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="BIFENG-REG-SYS.resx">
@@ -136,5 +137,8 @@
   <ItemGroup>
     <Content Include="BIFENG-ERP-SYS.ico" />
   </ItemGroup>
+  <ItemGroup>
+    <Folder Include="圖片\" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

BIFENG-REG-SYS/Module1.vb

@@ -1,3 +0,0 @@
-Module Module1
-    Public ConString As String
-End Module

BIFENG-REG-SYS/My Project/Resources.Designer.vb

@@ -1,40 +1,41 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
 Option Strict On
 Option Explicit On
 
+Imports System
 
 Namespace My.Resources
-
-    'This class was auto-generated by the StronglyTypedResourceBuilder
-    'class via a tool like ResGen or Visual Studio.
-    'To add or remove a member, edit your .ResX file then rerun ResGen
-    'with the /str option, or rebuild your VS project.
+    
+    '這個類別是自動產生的，是利用 StronglyTypedResourceBuilder
+    '類別透過 ResGen 或 Visual Studio 這類工具。
+    '若要加入或移除成員，請編輯您的 .ResX 檔，然後重新執行 ResGen
+    '(利用 /str 選項)，或重建您的 VS 專案。
     '''<summary>
-    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''  用於查詢當地語系化字串等的強類型資源類別。
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
     Friend Module Resources
-
+        
         Private resourceMan As Global.System.Resources.ResourceManager
-
+        
         Private resourceCulture As Global.System.Globalization.CultureInfo
-
+        
         '''<summary>
-        '''  Returns the cached ResourceManager instance used by this class.
+        '''  傳回這個類別使用的快取的 ResourceManager 執行個體。
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
@@ -44,19 +45,29 @@ Namespace My.Resources
                 Return resourceMan
             End Get
         End Property
-
+        
         '''<summary>
-        '''  Overrides the current thread's CurrentUICulture property for all
-        '''  resource lookups using this strongly typed resource class.
+        '''  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+        '''  使用這個強類型資源類別的資源查閱。
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend Property Culture() As Global.System.Globalization.CultureInfo
             Get
                 Return resourceCulture
             End Get
-            Set(ByVal value As Global.System.Globalization.CultureInfo)
+            Set
                 resourceCulture = value
             End Set
         End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property _22148217_MotionElements_beautiful_scenery_of() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("22148217_MotionElements_beautiful-scenery-of", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
     End Module
 End Namespace

BIFENG-REG-SYS/My Project/Resources.resx

@@ -46,7 +46,7 @@
     
     mimetype: application/x-microsoft.net.object.binary.base64
     value   : The object must be serialized with 
-            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
             : and then encoded with base64 encoding.
     
     mimetype: application/x-microsoft.net.object.soap.base64
@@ -60,6 +60,7 @@
             : and then encoded with base64 encoding.
     -->
   <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
     <xsd:element name="root" msdata:IsDataSet="true">
       <xsd:complexType>
         <xsd:choice maxOccurs="unbounded">
@@ -68,9 +69,10 @@
               <xsd:sequence>
                 <xsd:element name="value" type="xsd:string" minOccurs="0" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="name" use="required" type="xsd:string" />
               <xsd:attribute name="type" type="xsd:string" />
               <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
             </xsd:complexType>
           </xsd:element>
           <xsd:element name="assembly">
@@ -85,9 +87,10 @@
                 <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
                 <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
               <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
               <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
             </xsd:complexType>
           </xsd:element>
           <xsd:element name="resheader">
@@ -109,9 +112,13 @@
     <value>2.0</value>
   </resheader>
   <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="22148217_MotionElements_beautiful-scenery-of" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\22148217_MotionElements_beautiful-scenery-of.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

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

@@ -0,0 +1,64 @@
+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=BIFENG-ERP-SYS;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

BIFENG-REG-SYS/bin/Debug/BIFENG-REG-SYS.xml

@@ -8,19 +8,33 @@ BIFENG-REG-SYS
 <members>
 <member name="T:BIFENG_REG_SYS.My.Resources.Resources">
 <summary>
-  A strongly-typed resource class, for looking up localized strings, etc.
+  用於查詢當地語系化字串等的強類型資源類別。
 </summary>
 </member>
 <member name="P:BIFENG_REG_SYS.My.Resources.Resources.ResourceManager">
 <summary>
-  Returns the cached ResourceManager instance used by this class.
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
 </summary>
 </member>
 <member name="P:BIFENG_REG_SYS.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>
+<member name="P:BIFENG_REG_SYS.My.Resources.Resources._22148217_MotionElements_beautiful_scenery_of">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="M:BIFENG_REG_SYS.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

BIFENG-REG-SYS/obj/Debug/.NETFramework,Version=v4.6.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.6", FrameworkDisplayName:=".NET Framework 4.6")>

BIFENG-REG-SYS/obj/Debug/BIFENG-REG-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-a6f322016b2b9943733ccdeb1ff53a9cf77faf1c
+648863fff601f79cd1b9f55d1859da67a1617216

BIFENG-REG-SYS/obj/Debug/BIFENG-REG-SYS.vbproj.FileListAbsolute.txt

@@ -22,3 +22,17 @@ G:\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.exe
 G:\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.xml
 G:\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.pdb
 G:\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG_REG_SYS.網段.resources
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\bin\Debug\BIFENG-REG-SYS.exe.config
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\bin\Debug\BIFENG-REG-SYS.exe
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\bin\Debug\BIFENG-REG-SYS.pdb
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\bin\Debug\BIFENG-REG-SYS.xml
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.vbproj.AssemblyReference.cache
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.vbproj.SuggestedBindingRedirects.cache
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG_REG_SYS.Form1.resources
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG_REG_SYS.Resources.resources
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG_REG_SYS.網段.resources
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.vbproj.GenerateResource.cache
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.vbproj.CoreCompileInputs.cache
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.exe
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.xml
+D:\工巧明\BIFENG\BIFENG-REG-SYS\BIFENG-REG-SYS\obj\Debug\BIFENG-REG-SYS.pdb

BIFENG-REG-SYS/obj/Debug/BIFENG-REG-SYS.xml

@@ -8,19 +8,33 @@ BIFENG-REG-SYS
 <members>
 <member name="T:BIFENG_REG_SYS.My.Resources.Resources">
 <summary>
-  A strongly-typed resource class, for looking up localized strings, etc.
+  用於查詢當地語系化字串等的強類型資源類別。
 </summary>
 </member>
 <member name="P:BIFENG_REG_SYS.My.Resources.Resources.ResourceManager">
 <summary>
-  Returns the cached ResourceManager instance used by this class.
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
 </summary>
 </member>
 <member name="P:BIFENG_REG_SYS.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>
+<member name="P:BIFENG_REG_SYS.My.Resources.Resources._22148217_MotionElements_beautiful_scenery_of">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="M:BIFENG_REG_SYS.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

BIFENG-REG-SYS/網段.Designer.vb

@@ -24,12 +24,14 @@ Partial Class 網段
     Private Sub InitializeComponent()
         Me.內網_bt = New System.Windows.Forms.Button()
         Me.外網_bt = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
         Me.SuspendLayout()
         '
         '內網_bt
         '
         Me.內網_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.內網_bt.Location = New System.Drawing.Point(93, 12)
+        Me.內網_bt.Location = New System.Drawing.Point(279, 187)
         Me.內網_bt.Name = "內網_bt"
         Me.內網_bt.Size = New System.Drawing.Size(75, 45)
         Me.內網_bt.TabIndex = 0
@@ -39,18 +41,48 @@ Partial Class 網段
         '外網_bt
         '
         Me.外網_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.外網_bt.Location = New System.Drawing.Point(12, 12)
+        Me.外網_bt.Location = New System.Drawing.Point(92, 187)
         Me.外網_bt.Name = "外網_bt"
         Me.外網_bt.Size = New System.Drawing.Size(75, 45)
         Me.外網_bt.TabIndex = 1
         Me.外網_bt.Text = "外網"
         Me.外網_bt.UseVisualStyleBackColor = True
         '
+        'Label1
+        '
+        Me.Label1.AutoEllipsis = True
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Font = New System.Drawing.Font("標楷體", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(75, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(291, 51)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "碧峰堂"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label2
+        '
+        Me.Label2.AutoEllipsis = True
+        Me.Label2.BackColor = System.Drawing.Color.Transparent
+        Me.Label2.Font = New System.Drawing.Font("標楷體", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(12, 87)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(409, 57)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "文件管理系統   電腦驗證工具"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
         '網段
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(183, 69)
+        Me.BackgroundImage = Global.BIFENG_REG_SYS.My.Resources.Resources._22148217_MotionElements_beautiful_scenery_of
+        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.ClientSize = New System.Drawing.Size(433, 244)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.外網_bt)
         Me.Controls.Add(Me.內網_bt)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -63,4 +95,6 @@ Partial Class 網段
 
     Friend WithEvents 內網_bt As Button
     Friend WithEvents 外網_bt As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
 End Class

BIFENG-REG-SYS/網段.vb

@@ -1,10 +1,23 @@
 Public Class 網段
     Private Sub 外網_bt_Click(sender As Object, e As EventArgs) Handles 外網_bt.Click
-        ConString = "Data Source=180.177.181.162,5264;Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
-        Me.Close()
+        If SQL_連線狀態模組1.ConnectTest1("180.177.181.162,5264") = True Then
+            '---主伺服器導通-------------------------------------------
+            ConString = "Data Source=180.177.181.162,5264;Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+            Me.Close()
+        Else
+            MsgBox("系統伺服器無法導通，請聯繫 [工巧明智能企業有限公司] 技術人員協助處理!!") : 不通 = True : Me.Close()
+        End If
     End Sub
     Private Sub 內網_bt_Click(sender As Object, e As EventArgs) Handles 內網_bt.Click
-        ConString = "Data Source=192.168.12.127;Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
-        Me.Close()
+        If SQL_連線狀態模組1.ConnectTest1("192.168.12.127") = True Then
+            '---主伺服器導通-------------------------------------------
+            ConString = "Data Source=192.168.12.127;Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+            Me.Close()
+        Else
+            MsgBox("電腦不再內網網段，請重新開啟系統選擇!!") : 不通 = True : Me.Close()
+        End If
+    End Sub
+    Private Sub 網段_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        不通 = False
     End Sub
 End Class

BIFENG-REG-SYS/通用變數.vb

@@ -0,0 +1,4 @@
+Module 通用變數
+    Public ConString As String
+    Public 不通 As Boolean
+End Module