Option Strict Off
Public Class 系統對應電腦註冊
    ReadOnly ds As New DataSet
    Private Sub Set_DGV1載入前設定()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.RowTemplate.Height = 35
        ConnOpen()
    End Sub
    Private Sub Set_DGV1載入後設定()
        CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
    End Sub
    Private Sub Set_使用者清單()
        Set_DGV1載入前設定()
        SQL1 = "SELECT MAC碼, 硬碟ID, 硬碟序列, 磁盘型態 FROM 系統綁定電腦資訊"
        Set_DGV1載入後設定()
    End Sub
    Private Sub Set_grid()
        DataGridView1.Columns(0).Width = 325 : DataGridView1.Columns(1).Width = 325 : DataGridView1.Columns(2).Width = 325 : DataGridView1.Columns(3).Width = 325
    End Sub
    Private Sub 系統測試_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_使用者清單()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("MAC碼").Value.ToString : TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("硬碟ID").Value
            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("硬碟序列").Value : TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells("磁盘型態").Value
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.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("signature")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
            TextBox2.Text = diskId
            TextBox3.Text = diskSerialNumber
            TextBox4.Text = diskModel
            Exit For
        Next
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        conn.Close()
        ConnOpen()
        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 & "'"
        CmdSet_For_dr()
        If dr.Read() Then
            conn.Close()
            MsgBox("該電腦以綁定過")
        Else
            conn.Close()
            ConnOpen()
            SQL1 = "INSERT INTO 系統綁定電腦資訊 (MAC碼, 硬碟ID, 硬碟序列, 磁盘型態) " &
                  "VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "',N'" & TextBox4.Text & "')"
            CmdSet_For_dr() : conn.Close()
            MsgBox("新增完成") : Set_使用者清單()
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        SQL1 = "DELETE 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
        ConnOpen()
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : MsgBox("刪除完成") : End If
        conn.Close() : Set_使用者清單()
    End Sub
End Class