20240302備份

BIFENG-ERP-SYS/0.MyModule/通用變數.vb

@@ -1,6 +1,8 @@
-Module 通用變數
+Imports System.Data.SqlClient
+
+Module 通用變數
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023122001"
+    Public 版本 As String = "2024020202"
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public g_conn_type As String = "" : Public ConString As String : Public AA(99) As String : Public 版本號 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 : Public 登入人IP As String
@@ -11,6 +13,8 @@
     Public PB1(300), PB2(300), PB3(300), PB4(300), PB5(300), PB6(300), PB7(300), PB8(300), PPBB(3000), A(1000), B(1000), C(1000), D(1000), F(1000), 進度條後墜 As String
     Public NU1, NU2, NU3, NU4, NU5, 分段1, 分段2, 分段3, 分段4 As Double
     Public 異常表0, 異常表1, 異常表2, 計算累加, 分母, NN1, NN2, NN3, NN4, NN5, NN6, NN7, NN8, NN9, NN10 As Integer
+    Public conn As New SqlConnection : Public cmd As New SqlCommand
+    Public dr As SqlDataReader : Public da As New SqlDataAdapter
     Public Class MyModule1
         Friend Shared Sub 進度條()
             平均數 = 10000 / 資料數
@@ -19,4 +23,13 @@
             BIFENG_ERP_SYS.ToolStripProgressBar1.Value = 最終數
         End Sub
     End Class
+    Friend Sub ConnOpen()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+    End Sub
+    Friend Sub CmdSet_For_DGV()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
+    End Sub
+    Friend Sub CmdSet_For_dr()
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+    End Sub
 End Module

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

@@ -78,6 +78,7 @@ Partial Class BIFENG_ERP_SYS
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
         Me.開啟 = New System.Windows.Forms.Timer(Me.components)
+        Me.系統對應電腦註冊_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.StatusStrip1.SuspendLayout()
@@ -196,20 +197,20 @@ Partial Class BIFENG_ERP_SYS
         Me.書架ToolStripMenuItem4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.書架ToolStripMenuItem4.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.BOOK
         Me.書架ToolStripMenuItem4.Name = "書架ToolStripMenuItem4"
-        Me.書架ToolStripMenuItem4.Size = New System.Drawing.Size(180, 22)
+        Me.書架ToolStripMenuItem4.Size = New System.Drawing.Size(166, 22)
         Me.書架ToolStripMenuItem4.Text = "------書架------"
         '
         'ToolStripSeparator7
         '
         Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
-        Me.ToolStripSeparator7.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator7.Size = New System.Drawing.Size(163, 6)
         '
         '風水資料導入ToolStripMenuItem
         '
         Me.風水資料導入ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.風水資料導入ToolStripMenuItem.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.pen1
         Me.風水資料導入ToolStripMenuItem.Name = "風水資料導入ToolStripMenuItem"
-        Me.風水資料導入ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.風水資料導入ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
         Me.風水資料導入ToolStripMenuItem.Text = "風水(資料導入)"
         '
         '風水歷史資料庫ToolStripMenuItem
@@ -217,7 +218,7 @@ Partial Class BIFENG_ERP_SYS
         Me.風水歷史資料庫ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.風水歷史資料庫ToolStripMenuItem.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.Server
         Me.風水歷史資料庫ToolStripMenuItem.Name = "風水歷史資料庫ToolStripMenuItem"
-        Me.風水歷史資料庫ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.風水歷史資料庫ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
         Me.風水歷史資料庫ToolStripMenuItem.Text = "風水(歷史資料庫)"
         '
         '醫ToolStripMenuItem
@@ -387,7 +388,7 @@ Partial Class BIFENG_ERP_SYS
         '
         '資料庫系統管理ToolStripMenuItem
         '
-        Me.資料庫系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統執行檔版本管理ToolStripMenuItem, Me.FTP資料夾管理ToolStripMenuItem, Me.ToolStripSeparator4, Me.圖書資料導入ToolStripMenuItem1})
+        Me.資料庫系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統執行檔版本管理ToolStripMenuItem, Me.系統對應電腦註冊_tsm, Me.FTP資料夾管理ToolStripMenuItem, Me.ToolStripSeparator4, Me.圖書資料導入ToolStripMenuItem1})
         Me.資料庫系統管理ToolStripMenuItem.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.system
         Me.資料庫系統管理ToolStripMenuItem.Name = "資料庫系統管理ToolStripMenuItem"
         Me.資料庫系統管理ToolStripMenuItem.Size = New System.Drawing.Size(119, 20)
@@ -465,6 +466,13 @@ Partial Class BIFENG_ERP_SYS
         '
         Me.開啟.Interval = 500
         '
+        '系統對應電腦註冊_tsm
+        '
+        Me.系統對應電腦註冊_tsm.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.system
+        Me.系統對應電腦註冊_tsm.Name = "系統對應電腦註冊_tsm"
+        Me.系統對應電腦註冊_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.系統對應電腦註冊_tsm.Text = "系統對應電腦註冊"
+        '
         'BIFENG_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -543,4 +551,5 @@ Partial Class BIFENG_ERP_SYS
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
     Friend WithEvents 開啟 As Timer
     Friend WithEvents 日誌_tsm As ToolStripMenuItem
+    Friend WithEvents 系統對應電腦註冊_tsm As ToolStripMenuItem
 End Class

BIFENG-ERP-SYS/BIFENG-ERP-SYS.resx

@@ -124,7 +124,7 @@
   <data name="NewWindowToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAoAAAAJtCAYAAACmF8F/AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vQAADr0BR/uQrQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
+        vAAADrwBlbxySQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
         sAd3h0CAQJCEQPDg7vb+59PP/7v/Q//fe2dm78zuzL1dz3Oe7q46depUddU5vz7V/b6ndlva0pZOfPqf
         //mf/3u2P/33f//3Qv/1X/+1+4//+I/df/7nfy51XCNl+2TIW5clqzR5OtfGv/3bvy3lzv/u7/5uIe2m
         g/Sv//qvSx28f/M3f7P7+7//+4X+/M//fPdHf/RHuz/5kz/Z/d7v/d7uL//yL2+Qj5eMmbRJ9tQrnpmn
@@ -5063,7 +5063,7 @@
   <data name="CascadeToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAoAAAAJtCAYAAACmF8F/AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vQAADr0BR/uQrQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
+        vAAADrwBlbxySQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
         sAd3h0CAQJCEQPDg7vb+59PP/7v/Q//fe2dm78zuzL1dz3Oe7q46depUddU5vz7V/b6ndlva0pZOfPqf
         //mf/3u2P/33f//3Qv/1X/+1+4//+I/df/7nfy51XCNl+2TIW5clqzR5OtfGv/3bvy3lzv/u7/5uIe2m
         g/Sv//qvSx28f/M3f7P7+7//+4X+/M//fPdHf/RHuz/5kz/Z/d7v/d7uL//yL2+Qj5eMmbRJ9tQrnpmn
@@ -10002,7 +10002,7 @@
   <data name="TileVerticalToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAoAAAAJtCAYAAACmF8F/AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vQAADr0BR/uQrQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
+        vAAADrwBlbxySQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
         sAd3h0CAQJCEQPDg7vb+59PP/7v/Q//fe2dm78zuzL1dz3Oe7q46depUddU5vz7V/b6ndlva0pZOfPqf
         //mf/3u2P/33f//3Qv/1X/+1+4//+I/df/7nfy51XCNl+2TIW5clqzR5OtfGv/3bvy3lzv/u7/5uIe2m
         g/Sv//qvSx28f/M3f7P7+7//+4X+/M//fPdHf/RHuz/5kz/Z/d7v/d7uL//yL2+Qj5eMmbRJ9tQrnpmn
@@ -14941,7 +14941,7 @@
   <data name="TileHorizontalToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAoAAAAJtCAYAAACmF8F/AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vQAADr0BR/uQrQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
+        vAAADrwBlbxySQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
         sAd3h0CAQJCEQPDg7vb+59PP/7v/Q//fe2dm78zuzL1dz3Oe7q46depUddU5vz7V/b6ndlva0pZOfPqf
         //mf/3u2P/33f//3Qv/1X/+1+4//+I/df/7nfy51XCNl+2TIW5clqzR5OtfGv/3bvy3lzv/u7/5uIe2m
         g/Sv//qvSx28f/M3f7P7+7//+4X+/M//fPdHf/RHuz/5kz/Z/d7v/d7uL//yL2+Qj5eMmbRJ9tQrnpmn
@@ -19880,7 +19880,7 @@
   <data name="CloseAllToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAoAAAAJtCAYAAACmF8F/AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vQAADr0BR/uQrQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
+        vAAADrwBlbxySQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
         sAd3h0CAQJCEQPDg7vb+59PP/7v/Q//fe2dm78zuzL1dz3Oe7q46depUddU5vz7V/b6ndlva0pZOfPqf
         //mf/3u2P/33f//3Qv/1X/+1+4//+I/df/7nfy51XCNl+2TIW5clqzR5OtfGv/3bvy3lzv/u7/5uIe2m
         g/Sv//qvSx28f/M3f7P7+7//+4X+/M//fPdHf/RHuz/5kz/Z/d7v/d7uL//yL2+Qj5eMmbRJ9tQrnpmn
@@ -24819,7 +24819,7 @@
   <data name="ArrangeIconsToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAoAAAAJtCAYAAACmF8F/AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vQAADr0BR/uQrQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
+        vAAADrwBlbxySQAA/7JJREFUeF7s3QW4JslV//HB3d3dJbi7uxMsECCbECQQiGeTbHQjuxvfECPIECBI
         sAd3h0CAQJCEQPDg7vb+59PP/7v/Q//fe2dm78zuzL1dz3Oe7q46depUddU5vz7V/b6ndlva0pZOfPqf
         //mf/3u2P/33f//3Qv/1X/+1+4//+I/df/7nfy51XCNl+2TIW5clqzR5OtfGv/3bvy3lzv/u7/5uIe2m
         g/Sv//qvSx28f/M3f7P7+7//+4X+/M//fPdHf/RHuz/5kz/Z/d7v/d7uL//yL2+Qj5eMmbRJ9tQrnpmn

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

@@ -1,5 +1,6 @@
 Option Explicit On
 Imports System.Data.SqlClient
+Imports System.IO
 Imports System.Net
 Public Class BIFENG_ERP_SYS
     Dim HostName As String
@@ -72,9 +73,9 @@ Public Class BIFENG_ERP_SYS
         ElseIf CInt(PA) = 10 Then : Me.BackgroundImage = My.Resources._23712799_MotionElements_view_from_above_of_a
         ElseIf CInt(PA) = 11 Then : Me.BackgroundImage = My.Resources._23723248_MotionElements_beautiful_bright_and
         End If : 網段.ShowDialog() : PA = ""
-        If 不通 = True Then : Me.Close() : Else : 開啟.Enabled = True : End If
     End Sub
     Private Sub BIFENG_ERP_SYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        If 不通 = True Then : Me.Close() : Else : 開啟.Enabled = True : End If
     End Sub
     <Obsolete>
     Private Sub 開啟_Tick(sender As Object, e As EventArgs) Handles 開啟.Tick
@@ -132,24 +133,19 @@ Public Class BIFENG_ERP_SYS
         Next
         '-----------------------父表單抬頭資料--------------------------------------------------------------------------------------------------------------------------------------
         Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & TT1 & "  --  " & TT2
-
+        Dim Str As String = Application.StartupPath
+        If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
         If Strings.Right(TT1, 10) <> Strings.Right(TT2, 10) Then
-            Dim aa1 As MsgBoxResult
-            aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上，請下載最新的執行檔。", MsgBoxStyle.OkCancel)
-            If aa1 = MsgBoxResult.Ok Then
-                With SaveFileDialog1 : .Filter = "所有文件(*.exe)|*.exe" : End With
-                SaveFileDialog1.FileName = "BIFENG-ERP-SYS - " & 版本號 & ".exe"
-                SaveFileDialog1.ShowDialog()
-                If Strings.Right(SaveFileDialog1.FileName, 31) = "BIFENG-ERP-SYS - " & 版本號 & ".exe" Then
-                    My.Computer.Network.DownloadFile(Target & AA(1) & "/" & "BIFENG-ERP-SYS - " & 版本號 & ".exe", SaveFileDialog1.FileName, "", "", True, 10000, True)
-                    MsgBox("下載完成，請手動刪除就的執行檔，並且用新的執行檔開啟。")
-                    Me.Close()
-                Else
-                    MsgBox("操作不正確，請用手動方式下載更新。")
-                End If
-            End If
+            自動更新2()
         Else : End If
     End Sub
+    Private Sub 自動更新2()
+        Dim Str As String = Application.StartupPath
+        If File.Exists(Str + "\NOTAUTO.txt") Then : Else
+            My.Computer.Network.DownloadFile(Target & AA(1) & "/" & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
+            Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus) : Me.Close()
+        End If
+    End Sub
     Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理ToolStripMenuItem.Click
         系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
     End Sub
@@ -213,4 +209,7 @@ Public Class BIFENG_ERP_SYS
     Private Sub 日誌_tsm_Click(sender As Object, e As EventArgs) Handles 日誌_tsm.Click
         日誌.Show() : 日誌.BringToFront()
     End Sub
+    Private Sub 系統對應電腦註冊_tsm_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_tsm.Click
+        系統對應電腦註冊.Show() : 系統對應電腦註冊.BringToFront()
+    End Sub
 End Class

BIFENG-ERP-SYS/BIFENG-ERP-SYS.vbproj

@@ -133,6 +133,18 @@
     <Compile Include="3.醫\藥方資料庫.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="資料庫系統管理\系統對應電腦註冊.Designer.vb">
+      <DependentUpon>系統對應電腦註冊.vb</DependentUpon>
+    </Compile>
+    <Compile Include="資料庫系統管理\系統對應電腦註冊.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="資料庫系統管理\電腦註冊.Designer.vb">
+      <DependentUpon>電腦註冊.vb</DependentUpon>
+    </Compile>
+    <Compile Include="資料庫系統管理\電腦註冊.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\下拉清單_1.Designer.vb">
       <DependentUpon>下拉清單_1.vb</DependentUpon>
     </Compile>
@@ -261,6 +273,9 @@
     <EmbeddedResource Include="3.醫\藥方資料庫.resx">
       <DependentUpon>藥方資料庫.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="資料庫系統管理\電腦註冊.resx">
+      <DependentUpon>電腦註冊.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\下拉清單_1.resx">
       <DependentUpon>下拉清單_1.vb</DependentUpon>
     </EmbeddedResource>

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

@@ -0,0 +1,170 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+BIFENG-ERP-SYS
+</name>
+</assembly>
+<members>
+<member name="T:BIFENG_ERP_SYS.My.Resources.Resources">
+<summary>
+  用於查詢當地語系化字串等的強類型資源類別。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.ResourceManager">
+<summary>
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.Culture">
+<summary>
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+  使用這個強類型資源類別的資源查閱。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._123">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._1980X1010">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._22147396_MotionElements_mountain_range_in_the">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._22148217_MotionElements_beautiful_scenery_of">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._22153649_MotionElements_beautiful_natural_scenery">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._22155049_MotionElements_beautiful_natural_scenery">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._22547140_MotionElements_gradient_abstract_mountain">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._22631442_MotionElements_breathtaking_photograph_of">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._22739892_MotionElements_snowy_mountain_peaks_in">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._22741530_MotionElements_mountain_pass_surrounded">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._23074104_MotionElements_gorgeous_milky_way_moon">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._23090451_MotionElements_mountains_in_silhouette">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._23712799_MotionElements_view_from_above_of_a">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources._23723248_MotionElements_beautiful_bright_and">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.BOOK">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.L180">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.L90">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.L901">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.pen1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.Picture">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.picwish">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.R180">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.R90">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.Server">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.system">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.timg01">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:BIFENG_ERP_SYS.My.Resources.Resources.User_Clients_01">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="M:BIFENG_ERP_SYS.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+</members>
+</doc>

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

@@ -1 +1 @@
-2b4bd07066bca017ffc530b3f0cb84b8fc8bb69a4d46988a5dcc1aee109044c6
+19c8ed37d03478bba33d1ded8002118b357d669dd4b1c74ad005d9d5ea29a75a

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

@@ -181,3 +181,4 @@ D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.xml
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.pdb
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.下拉清單_1.resources
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.日誌.resources
+D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.電腦註冊.resources

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

@@ -31,6 +31,7 @@ Partial Class 網段
         Me.外網_bt = New System.Windows.Forms.Button()
         Me.內網_bt = New System.Windows.Forms.Button()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label3 = New System.Windows.Forms.Label()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -137,6 +138,16 @@ Partial Class 網段
         Me.PictureBox1.TabIndex = 685
         Me.PictureBox1.TabStop = False
         '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.Transparent
+        Me.Label3.Location = New System.Drawing.Point(3, 4)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(19, 16)
+        Me.Label3.TabIndex = 686
+        Me.Label3.Text = "口"
+        '
         '網段
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -144,6 +155,7 @@ Partial Class 網段
         Me.BackgroundImage = Global.BIFENG_ERP_SYS.My.Resources.Resources._22739892_MotionElements_snowy_mountain_peaks_in
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.ClientSize = New System.Drawing.Size(515, 301)
+        Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.外網_bt)
         Me.Controls.Add(Me.內網_bt)
@@ -161,6 +173,7 @@ Partial Class 網段
         Me.Text = "網段"
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
 
@@ -173,4 +186,5 @@ Partial Class 網段
     Friend WithEvents 外網_bt As Button
     Friend WithEvents 內網_bt As Button
     Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label3 As Label
 End Class

BIFENG-ERP-SYS/網段.vb

@@ -10,9 +10,9 @@
         End If
     End Sub
     Private Sub 內網_bt_Click(sender As Object, e As EventArgs) Handles 內網_bt.Click
-        If SQL_連線狀態模組1.ConnectTest1("192.168.12.127") = True Then
+        If SQL_連線狀態模組1.ConnectTest1("192.168.0.18") = True Then
             '---主伺服器導通-------------------------------------------
-            登入人IP = "192.168.12.127"
+            登入人IP = "192.168.0.18"
             Me.Close()
         Else
             MsgBox("電腦不再內網網段，請重新開啟系統選擇!!") : 不通 = True : Me.Close()
@@ -28,4 +28,7 @@
         End If
         不通 = False
     End Sub
+    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
+        PA = InputBox("請輸入管理密碼!!") : If PA = "0003065795" Then : 電腦註冊.ShowDialog() : Else : MsgBox("密碼錯誤!!") : End If
+    End Sub
 End Class

BIFENG-ERP-SYS/資料庫系統管理/系統對應電腦註冊.Designer.vb

@@ -0,0 +1,227 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 系統對應電腦註冊
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.MAC碼_tb = New System.Windows.Forms.TextBox()
+        Me.取得本地電腦訊息_bt = New System.Windows.Forms.Button()
+        Me.硬碟ID_tb = New System.Windows.Forms.TextBox()
+        Me.硬碟序列_tb = New System.Windows.Forms.TextBox()
+        Me.磁盘型態_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.電腦註冊_tb = New System.Windows.Forms.Button()
+        Me.註冊刪除_bt = New System.Windows.Forms.Button()
+        Me.註冊表_dgv = New System.Windows.Forms.DataGridView()
+        Me.語言_dgv = New System.Windows.Forms.DataGridView()
+        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        CType(Me.註冊表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.語言_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'MAC碼_tb
+        '
+        Me.MAC碼_tb.Location = New System.Drawing.Point(74, 3)
+        Me.MAC碼_tb.Name = "MAC碼_tb"
+        Me.MAC碼_tb.Size = New System.Drawing.Size(307, 23)
+        Me.MAC碼_tb.TabIndex = 0
+        '
+        '取得本地電腦訊息_bt
+        '
+        Me.取得本地電腦訊息_bt.Location = New System.Drawing.Point(762, 3)
+        Me.取得本地電腦訊息_bt.Name = "取得本地電腦訊息_bt"
+        Me.取得本地電腦訊息_bt.Size = New System.Drawing.Size(130, 52)
+        Me.取得本地電腦訊息_bt.TabIndex = 1
+        Me.取得本地電腦訊息_bt.Text = "取得本地電腦訊息"
+        Me.取得本地電腦訊息_bt.UseVisualStyleBackColor = True
+        '
+        '硬碟ID_tb
+        '
+        Me.硬碟ID_tb.Location = New System.Drawing.Point(74, 28)
+        Me.硬碟ID_tb.Name = "硬碟ID_tb"
+        Me.硬碟ID_tb.Size = New System.Drawing.Size(307, 23)
+        Me.硬碟ID_tb.TabIndex = 2
+        '
+        '硬碟序列_tb
+        '
+        Me.硬碟序列_tb.Location = New System.Drawing.Point(449, 3)
+        Me.硬碟序列_tb.Name = "硬碟序列_tb"
+        Me.硬碟序列_tb.Size = New System.Drawing.Size(307, 23)
+        Me.硬碟序列_tb.TabIndex = 4
+        '
+        '磁盘型態_tb
+        '
+        Me.磁盘型態_tb.Location = New System.Drawing.Point(449, 28)
+        Me.磁盘型態_tb.Name = "磁盘型態_tb"
+        Me.磁盘型態_tb.Size = New System.Drawing.Size(307, 23)
+        Me.磁盘型態_tb.TabIndex = 6
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Location = New System.Drawing.Point(12, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(47, 16)
+        Me.Label1.TabIndex = 7
+        Me.Label1.Text = "MAC碼"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.Color.Transparent
+        Me.Label2.Location = New System.Drawing.Point(12, 31)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(43, 16)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "硬碟ID"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.Transparent
+        Me.Label3.Location = New System.Drawing.Point(387, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 16)
+        Me.Label3.TabIndex = 9
+        Me.Label3.Text = "硬碟序列"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Location = New System.Drawing.Point(387, 31)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(55, 16)
+        Me.Label4.TabIndex = 10
+        Me.Label4.Text = "磁盘型態"
+        '
+        '電腦註冊_tb
+        '
+        Me.電腦註冊_tb.Location = New System.Drawing.Point(898, 3)
+        Me.電腦註冊_tb.Name = "電腦註冊_tb"
+        Me.電腦註冊_tb.Size = New System.Drawing.Size(130, 52)
+        Me.電腦註冊_tb.TabIndex = 11
+        Me.電腦註冊_tb.Text = "電腦註冊" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.電腦註冊_tb.UseVisualStyleBackColor = True
+        '
+        '註冊刪除_bt
+        '
+        Me.註冊刪除_bt.ForeColor = System.Drawing.Color.Red
+        Me.註冊刪除_bt.Location = New System.Drawing.Point(1034, 3)
+        Me.註冊刪除_bt.Name = "註冊刪除_bt"
+        Me.註冊刪除_bt.Size = New System.Drawing.Size(130, 52)
+        Me.註冊刪除_bt.TabIndex = 12
+        Me.註冊刪除_bt.Text = "註冊刪除"
+        Me.註冊刪除_bt.UseVisualStyleBackColor = True
+        '
+        '註冊表_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.註冊表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.註冊表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.註冊表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.註冊表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.註冊表_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.註冊表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.註冊表_dgv.Location = New System.Drawing.Point(3, 56)
+        Me.註冊表_dgv.Name = "註冊表_dgv"
+        Me.註冊表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.註冊表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.註冊表_dgv.RowTemplate.Height = 24
+        Me.註冊表_dgv.Size = New System.Drawing.Size(1340, 620)
+        Me.註冊表_dgv.TabIndex = 229
+        '
+        '語言_dgv
+        '
+        Me.語言_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.語言_dgv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2})
+        Me.語言_dgv.Location = New System.Drawing.Point(640, 304)
+        Me.語言_dgv.Name = "語言_dgv"
+        Me.語言_dgv.RowTemplate.Height = 24
+        Me.語言_dgv.Size = New System.Drawing.Size(70, 73)
+        Me.語言_dgv.TabIndex = 1725
+        Me.語言_dgv.Visible = False
+        '
+        'Column1
+        '
+        Me.Column1.HeaderText = "Column1"
+        Me.Column1.Name = "Column1"
+        '
+        'Column2
+        '
+        Me.Column2.HeaderText = "Column2"
+        Me.Column2.Name = "Column2"
+        '
+        '系統對應電腦註冊
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1350, 681)
+        Me.Controls.Add(Me.註冊表_dgv)
+        Me.Controls.Add(Me.註冊刪除_bt)
+        Me.Controls.Add(Me.電腦註冊_tb)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.磁盘型態_tb)
+        Me.Controls.Add(Me.硬碟序列_tb)
+        Me.Controls.Add(Me.硬碟ID_tb)
+        Me.Controls.Add(Me.取得本地電腦訊息_bt)
+        Me.Controls.Add(Me.MAC碼_tb)
+        Me.Controls.Add(Me.語言_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "系統對應電腦註冊"
+        Me.Text = "系統對應電腦註冊"
+        CType(Me.註冊表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.語言_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents MAC碼_tb As TextBox
+    Friend WithEvents 取得本地電腦訊息_bt As Button
+    Friend WithEvents 硬碟ID_tb As TextBox
+    Friend WithEvents 硬碟序列_tb As TextBox
+    Friend WithEvents 磁盘型態_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 電腦註冊_tb As Button
+    Friend WithEvents 註冊刪除_bt As Button
+    Friend WithEvents 註冊表_dgv As DataGridView
+    Friend WithEvents 語言_dgv As DataGridView
+    Friend WithEvents Column1 As DataGridViewTextBoxColumn
+    Friend WithEvents Column2 As DataGridViewTextBoxColumn
+End Class

BIFENG-ERP-SYS/資料庫系統管理/系統對應電腦註冊.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : 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">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <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">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <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" 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">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>

BIFENG-ERP-SYS/資料庫系統管理/系統對應電腦註冊.vb

@@ -0,0 +1,72 @@
+Option Strict Off
+Public Class 系統對應電腦註冊
+    Dim ds As New DataSet
+    Dim RI As Integer = -1
+    Dim SK As String = "要查找的 KEY"
+    Dim Str As String = Application.StartupPath
+    Dim 對話框(3) As String
+    Private Sub Set_使用者清單()
+        註冊表_dgv.DataSource = Nothing : ds.Clear() : 註冊表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        註冊表_dgv.ColumnHeadersHeight = 25 : 註冊表_dgv.AllowUserToAddRows = False : 註冊表_dgv.RowTemplate.Height = 35
+        ConnOpen() : SQL1 = "SELECT MAC碼, 硬碟ID, 硬碟序列, 磁盘型態 FROM 系統綁定電腦資訊" : CmdSet_For_DGV()
+        da.Fill(ds) : 註冊表_dgv.DataSource = ds.Tables(0) : conn.Close()
+        註冊表_dgv.Columns(0).FillWeight = 325 : 註冊表_dgv.Columns(1).FillWeight = 325 : 註冊表_dgv.Columns(2).FillWeight = 325 : 註冊表_dgv.Columns(3).FillWeight = 325
+    End Sub
+    Private Sub 系統對應電腦註冊_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = BIFENG_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Set_使用者清單()
+    End Sub
+    Private Sub 註冊表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 註冊表_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            MAC碼_tb.Text = 註冊表_dgv.Rows(e.RowIndex).Cells("MAC碼").Value.ToString : 硬碟ID_tb.Text = 註冊表_dgv.Rows(e.RowIndex).Cells("硬碟ID").Value
+            硬碟序列_tb.Text = 註冊表_dgv.Rows(e.RowIndex).Cells("硬碟序列").Value : 磁盘型態_tb.Text = 註冊表_dgv.Rows(e.RowIndex).Cells("磁盘型態").Value
+        End If
+    End Sub
+    Private Sub 取得本地電腦訊息_bt_Click(sender As Object, e As EventArgs) Handles 取得本地電腦訊息_bt.Click
+        '-----MAC碼----------------------------------------------------------------------------------------------
+        Dim Wmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
+        For Each WmiObj As Management.ManagementObject In Wmi.Get
+            If CBool(WmiObj("IPEnabled")) Then
+                MAC碼_tb.Text = WmiObj("MACAddress")
+            End If
+        Next
+        '-----硬碟資料----------------------------------------------------------------------------------------------
+        Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
+        Dim diskId As String '数字ID
+        Dim diskSerialNumber As String '这个我们暂且称其为序列号码
+        Dim diskModel As String '序列号
+        For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get
+            diskId = cmicWmiObj("signature")
+            diskSerialNumber = cmicWmiObj("serialnumber")
+            diskModel = cmicWmiObj("Model")
+            硬碟ID_tb.Text = diskId
+            硬碟序列_tb.Text = diskSerialNumber
+            磁盘型態_tb.Text = diskModel
+        Next
+    End Sub
+    Private Sub 電腦註冊_tb_Click(sender As Object, e As EventArgs) Handles 電腦註冊_tb.Click
+        ConnOpen()
+        SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 
+                WHERE 硬碟ID LIKE N'" & 硬碟ID_tb.Text & "' AND 硬碟序列 LIKE N'" & 硬碟序列_tb.Text & "' AND 
+                      磁盘型態 LIKE N'" & 磁盘型態_tb.Text & "'"
+        CmdSet_For_dr()
+        If dr.Read() Then : MsgBox("該位置已經綁定過，無須重複邦定!!") : Else
+            ConnOpen()
+            SQL1 = "INSERT INTO 系統綁定電腦資訊 (MAC碼, 硬碟ID, 硬碟序列, 磁盘型態) 
+                VALUES (N'" & MAC碼_tb.Text & "',N'" & 硬碟ID_tb.Text & "',
+                        N'" & 硬碟序列_tb.Text & "',N'" & 磁盘型態_tb.Text & "')"
+            CmdSet_For_dr()
+            MsgBox("電腦與使用位置邦定成功!!") : Set_使用者清單()
+        End If
+    End Sub
+    Private Sub 註冊刪除_bt_Click(sender As Object, e As EventArgs) Handles 註冊刪除_bt.Click
+        Dim aa1 As MsgBoxResult
+        aa1 = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            ConnOpen()
+            SQL1 = "DELETE FROM 系統綁定電腦資訊   WHERE 硬碟ID LIKE N'" & 硬碟ID_tb.Text & "' AND 硬碟序列 LIKE N'" & 硬碟序列_tb.Text & "' AND  磁盘型態 LIKE N'" & 磁盘型態_tb.Text & "'"
+            CmdSet_For_dr()
+            MsgBox("資料刪除完成!!")
+        End If : Set_使用者清單()
+    End Sub
+End Class

BIFENG-ERP-SYS/資料庫系統管理/電腦註冊.Designer.vb

@@ -0,0 +1,180 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 電腦註冊
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.電腦註冊_bt = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.取得本地電腦訊息_bt = New System.Windows.Forms.Button()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.外網_bt = New System.Windows.Forms.Button()
+        Me.內網_bt = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        '電腦註冊_bt
+        '
+        Me.電腦註冊_bt.Location = New System.Drawing.Point(281, 120)
+        Me.電腦註冊_bt.Name = "電腦註冊_bt"
+        Me.電腦註冊_bt.Size = New System.Drawing.Size(92, 52)
+        Me.電腦註冊_bt.TabIndex = 31
+        Me.電腦註冊_bt.Text = "電腦註冊" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.電腦註冊_bt.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(5, 94)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(55, 16)
+        Me.Label4.TabIndex = 30
+        Me.Label4.Text = "磁盘型態"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(5, 65)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 16)
+        Me.Label3.TabIndex = 29
+        Me.Label3.Text = "硬碟序列"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(5, 36)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(43, 16)
+        Me.Label2.TabIndex = 28
+        Me.Label2.Text = "硬碟ID"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(5, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(47, 16)
+        Me.Label1.TabIndex = 27
+        Me.Label1.Text = "MAC碼"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Location = New System.Drawing.Point(67, 91)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(307, 23)
+        Me.TextBox4.TabIndex = 26
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(67, 62)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(307, 23)
+        Me.TextBox3.TabIndex = 25
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(67, 33)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(307, 23)
+        Me.TextBox2.TabIndex = 24
+        '
+        '取得本地電腦訊息_bt
+        '
+        Me.取得本地電腦訊息_bt.Location = New System.Drawing.Point(160, 120)
+        Me.取得本地電腦訊息_bt.Name = "取得本地電腦訊息_bt"
+        Me.取得本地電腦訊息_bt.Size = New System.Drawing.Size(120, 52)
+        Me.取得本地電腦訊息_bt.TabIndex = 23
+        Me.取得本地電腦訊息_bt.Text = "取得本地電腦訊息"
+        Me.取得本地電腦訊息_bt.UseVisualStyleBackColor = True
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(67, 4)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(307, 23)
+        Me.TextBox1.TabIndex = 22
+        '
+        '外網_bt
+        '
+        Me.外網_bt.Font = New System.Drawing.Font("標楷體", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.外網_bt.Location = New System.Drawing.Point(2, 120)
+        Me.外網_bt.Name = "外網_bt"
+        Me.外網_bt.Size = New System.Drawing.Size(67, 52)
+        Me.外網_bt.TabIndex = 686
+        Me.外網_bt.Text = "外網"
+        Me.外網_bt.UseVisualStyleBackColor = True
+        '
+        '內網_bt
+        '
+        Me.內網_bt.Font = New System.Drawing.Font("標楷體", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.內網_bt.Location = New System.Drawing.Point(70, 120)
+        Me.內網_bt.Name = "內網_bt"
+        Me.內網_bt.Size = New System.Drawing.Size(67, 52)
+        Me.內網_bt.TabIndex = 685
+        Me.內網_bt.Text = "內網"
+        Me.內網_bt.UseVisualStyleBackColor = True
+        '
+        '電腦註冊
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(378, 179)
+        Me.Controls.Add(Me.外網_bt)
+        Me.Controls.Add(Me.內網_bt)
+        Me.Controls.Add(Me.電腦註冊_bt)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.取得本地電腦訊息_bt)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.Name = "電腦註冊"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "BIFENG_REG_SYS"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 電腦註冊_bt As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents 取得本地電腦訊息_bt As Button
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents 外網_bt As Button
+    Friend WithEvents 內網_bt As Button
+End Class

BIFENG-ERP-SYS/資料庫系統管理/電腦註冊.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : 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">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <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">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <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" 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">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

BIFENG-ERP-SYS/資料庫系統管理/電腦註冊.vb

@@ -0,0 +1,73 @@
+Option Strict Off
+Imports System.Data.SqlClient
+Public Class 電腦註冊
+    Dim conn As New SqlConnection
+    Dim da As New SqlDataAdapter
+    Dim cmd As New SqlCommand
+    Dim ds As New DataSet
+    Dim dr As SqlDataReader
+    Private Sub 電腦註冊_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取得本地電腦訊息_bt.Click
+        '-----MAC碼----------------------------------------------------------------------------------------------
+        Dim Wmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
+        For Each WmiObj As Management.ManagementObject In Wmi.Get
+            If CBool(WmiObj("IPEnabled")) Then
+                TextBox1.Text = WmiObj("MACAddress")
+            End If
+        Next
+        '-----硬碟資料----------------------------------------------------------------------------------------------
+        Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
+        Dim diskId As String '数字ID
+        Dim diskSerialNumber As String '这个我们暂且称其为序列号码
+        Dim diskModel As String '序列号
+        For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get
+            diskId = cmicWmiObj("size")
+            diskSerialNumber = cmicWmiObj("serialnumber")
+            diskModel = cmicWmiObj("Model")
+            TextBox2.Text = diskId
+            TextBox3.Text = diskSerialNumber
+            TextBox4.Text = diskModel
+        Next
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 電腦註冊_bt.Click
+        If ConString = "" Then
+            MsgBox("請先選擇內網還是外網!!")
+        Else
+            conn.Close()
+            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+            SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 WHERE MAC碼 LIKE N'" & TextBox1.Text & "' AND 硬碟ID LIKE N'" & TextBox2.Text & "' AND 
+                硬碟序列 LIKE N'" & TextBox3.Text & "' AND 磁盘型態 LIKE N'" & TextBox4.Text & "'"
+            cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+            If dr.Read() Then
+                conn.Close()
+                MsgBox("該電腦以綁定過")
+            Else
+                conn.Close()
+                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+                SQL1 = "INSERT INTO 系統綁定電腦資訊 (MAC碼, 硬碟ID, 硬碟序列, 磁盘型態) " &
+                      "VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "',N'" & TextBox4.Text & "')"
+                cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
+                MsgBox("新增完成")
+            End If
+        End If
+    End Sub
+    Private Sub 外網_bt_Click(sender As Object, e As EventArgs) Handles 外網_bt.Click
+        If SQL_連線狀態模組1.ConnectTest1("180.177.181.162,5264") = True Then
+            '---主伺服器導通-------------------------------------------
+            登入人IP = "180.177.181.162,5264"
+            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        Else
+            MsgBox("系統伺服器無法導通，請聯繫 [工巧明智能企業有限公司] 技術人員協助處理!!") : 不通 = True
+        End If
+    End Sub
+    Private Sub 內網_bt_Click(sender As Object, e As EventArgs) Handles 內網_bt.Click
+        If SQL_連線狀態模組1.ConnectTest1("192.168.0.18") = True Then
+            '---主伺服器導通-------------------------------------------
+            登入人IP = "192.168.0.18"
+            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        Else
+            MsgBox("電腦不再內網網段，請重新開啟系統選擇!!") : 不通 = True
+        End If
+    End Sub
+End Class