HX-PGS-REG-SYS-LEEHSIEHJUI/HX-PGS-REG-SYS/HX-PGS-REG-SYS.vb

Public Class Form1
    ReadOnly ds As New DataSet
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        線路選擇.ShowDialog()
        If 登入判斷 = True Then
            SQL_連線字串_正式()
        ElseIf 登入判斷 = False Then
            SQL_連線字串_測試()
        End If
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT    帳號, 姓名  FROM  使用者權限管理表  
                WHERE    (級別 LIKE '00') OR (級別 LIKE '01') OR (級別 LIKE '02') OR (級別 LIKE '03') OR (級別 LIKE '04') OR (級別 LIKE '05') AND (姓名 NOT LIKE '未啟用%')
                ORDER BY  級別, 姓名"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        使用者1_cb.Items.Clear() : While (dr.Read()) : 使用者1_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    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
        If 使用者1_cb.Text = "" Then : MsgBox("沒有選擇使用者!!") : Else
            conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 
                WHERE  硬碟ID LIKE N'" & 硬碟ID_tb.Text & "' AND 硬碟序列 LIKE N'" & 硬碟序列_tb.Text & "' AND 磁盘型態 LIKE N'" & 磁盘型態_tb.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'" & MAC碼_tb.Text & "',N'" & 硬碟ID_tb.Text & "',N'" & 硬碟序列_tb.Text & "',N'" & 磁盘型態_tb.Text & "',N'" & 使用者1_cb.Text & "')"
                cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                MsgBox("新增完成")
            End If
        End If
    End Sub
End Class