HT-ODOO-SELLING-PI-LEEHSIEHJUI/HT-ODOO-SELLING-PI/09、資料庫系統管理/系統綁定電腦資訊.vb

Public Class 系統綁定電腦資訊
    Private Sub 系統綁定電腦資訊_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        取得本地電腦訊息_bt.PerformClick()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 取得本地電腦訊息_bt.Click
        '-----MAC碼----------------------------------------------------------------------------------------------
        Dim Wmi As New System.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("size") : diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model") : 硬碟ID_tb.Text = diskId : 硬碟序列_tb.Text = diskSerialNumber : 磁盘型態_tb.Text = diskModel : Exit For
        Next
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 電腦註冊_tb.Click
        SQL_電腦綁定(硬碟ID_tb.Text, 硬碟序列_tb.Text, 磁盘型態_tb.Text)
        If dr1.Read() Then : MsgBox("該電腦以綁定過") : Else
            SQL_電腦綁定_寫入(MAC碼_tb.Text, 硬碟ID_tb.Text, 硬碟序列_tb.Text, 磁盘型態_tb.Text)
            MsgBox("新增完成") : Me.Close()
        End If
    End Sub
End Class