修正部分電腦不能用的問題

Signed-off-by: B70340 <b70340@gmail.com>

BIFENG-ERP-SYS/BIFENG-ERP-SYS.vb

@@ -1,7 +1,6 @@
 Option Explicit On
 Imports System.Data.SqlClient
 Imports System.Net
-Imports System.Windows.Forms
 Public Class BIFENG_ERP_SYS
     Dim HostName As String
     Dim IPAdress As IPAddress
@@ -65,7 +64,7 @@ Public Class BIFENG_ERP_SYS
         IPAdress = Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
         MYIP = IPAdress.ToString
         '-----------------------IP比對----------------------------------------------------------------------------------------------------------------------------------------------------
-        If Strings.Left(MYIP, 10) = "192.168.12" Or Strings.Left(MYIP, 7) = "10.0.0." Then
+        If Strings.Left(MYIP, 10) = "192.168.12" Or Strings.Left(MYIP, 7) = "10.0.0." Or Strings.Left(MYIP, 9) = "192.168.0" Then
             登入人IP = "192.168.12.127"
         Else
             登入人IP = ""

BIFENG-ERP-SYS/SplashScreen1.Designer.vb

@@ -34,6 +34,7 @@ Partial Class SplashScreen1
         Me.Copyright = New System.Windows.Forms.Label()
         Me.ApplicationTitle = New System.Windows.Forms.Label()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.Label1 = New System.Windows.Forms.Label()
         Me.MainLayoutPanel.SuspendLayout()
         Me.DetailsLayoutPanel.SuspendLayout()
         Me.SuspendLayout()
@@ -46,7 +47,8 @@ Partial Class SplashScreen1
         Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 243.0!))
         Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
         Me.MainLayoutPanel.Controls.Add(Me.DetailsLayoutPanel, 1, 1)
-        Me.MainLayoutPanel.Controls.Add(Me.ApplicationTitle, 1, 0)
+        Me.MainLayoutPanel.Controls.Add(Me.ApplicationTitle, 0, 0)
+        Me.MainLayoutPanel.Controls.Add(Me.Label1, 0, 1)
         Me.MainLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
         Me.MainLayoutPanel.Location = New System.Drawing.Point(0, 0)
         Me.MainLayoutPanel.Name = "MainLayoutPanel"
@@ -98,9 +100,9 @@ Partial Class SplashScreen1
         Me.ApplicationTitle.Anchor = System.Windows.Forms.AnchorStyles.None
         Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
         Me.ApplicationTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.ApplicationTitle.Location = New System.Drawing.Point(246, 3)
+        Me.ApplicationTitle.Location = New System.Drawing.Point(3, 3)
         Me.ApplicationTitle.Name = "ApplicationTitle"
-        Me.ApplicationTitle.Size = New System.Drawing.Size(247, 212)
+        Me.ApplicationTitle.Size = New System.Drawing.Size(237, 212)
         Me.ApplicationTitle.TabIndex = 0
         Me.ApplicationTitle.Text = "應用程式標題"
         Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.BottomLeft
@@ -109,6 +111,17 @@ Partial Class SplashScreen1
         '
         Me.Timer1.Interval = 1000
         '
+        'Label1
+        '
+        Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 240)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(237, 40)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "著作權"
+        '
         'SplashScreen1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -129,4 +142,5 @@ Partial Class SplashScreen1
     End Sub
 
     Friend WithEvents Timer1 As Timer
+    Friend WithEvents Label1 As Label
 End Class

BIFENG-ERP-SYS/SplashScreen1.vb

@@ -1,9 +1,12 @@
-Public NotInheritable Class SplashScreen1
-
+Imports System.Net
+Public NotInheritable Class SplashScreen1
+    Dim MYIP As String
+    Dim HostName As String
+    Dim IPAdress As IPAddress
     'TODO: 您可以在專案設計工具的 [應用程式] 索引標籤中 (位於 [專案] 功能表下的 [屬性])，輕易地將這個表單設定成
     '  應用程式的啟動顯示畫面。
 
-
+    <Obsolete>
     Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         '在執行階段中，根據應用程式的組件資訊，設定對話方塊文字。
 
@@ -31,6 +34,11 @@
         Copyright.Text = "著作權 - 工巧明智能設備有限公司所有"
 
         Timer1.Enabled = True
+        '-----------------------取得本機IP-----------------------------------------------------------------------------------------------------------------------------------------------
+        HostName = Dns.GetHostName '获得本机的机器名
+        IPAdress = Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
+        MYIP = IPAdress.ToString
+        Label1.Text = "本機IP位置 : " & MYIP
     End Sub
     Public timeExit As Integer = 1 : Public timeNow As Integer = 0
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

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

@@ -86,3 +86,33 @@ D:\OneDrive\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.exe
 D:\OneDrive\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.xml
 D:\OneDrive\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.pdb
 F:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.vbproj.CoreCompileInputs.cache
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\bin\Debug\BIFENG-ERP-SYS.exe.config
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\bin\Debug\BIFENG-ERP-SYS.exe
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\bin\Debug\BIFENG-ERP-SYS.pdb
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\bin\Debug\BIFENG-ERP-SYS.xml
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.vbprojAssemblyReference.cache
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.BIFENG_ERP_SYS.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.擇日_歷史資料庫_.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.擇日_資料導入_.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.中藥資料庫導入.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.流年_歷史資料庫_.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.命名_歷史資料庫_.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.命名_資料導入_.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.系統介面選擇.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.藥方資料庫.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.圖書資料導入.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.客戶資料表.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.流年.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.書架.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.FTP資料夾管理.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.Resources.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.SplashScreen1.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.卜卦.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.系統執行檔版本管理.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.風水_歷史資料庫_.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.風水_資料導入_.resources
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.vbproj.GenerateResource.cache
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.vbproj.CoreCompileInputs.cache
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.exe
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.xml
+G:\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.pdb