HSKIN-MIS-SYS-SIU/GRAMS-SYS/10、系統管理/系統綁定電腦資訊.vb

Public Class 系統綁定電腦資訊
    Private Sub Set_清單()
        Dim ds As New DataSet
        清單_dgv.DataSource = Nothing : ds.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25
        清單_dgv.AllowUserToAddRows = False
        ConnOpen_ERP()
        SQL1 = "SELECT MAC碼, 硬碟ID, 硬碟序列, 磁盘型態, 考勤綁定 FROM 系統綁定電腦資訊"
        CmdSet_For_DGV()
        da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub 系統綁定電腦資訊_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 系統綁定電腦資訊_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        取得本地電腦訊息_bt.PerformClick()
    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("MAC碼", e.RowIndex).Value.ToString : 硬碟ID_tb.Text = 清單_dgv("硬碟ID", e.RowIndex).Value.ToString
            硬碟序列_tb.Text = 清單_dgv("硬碟序列", e.RowIndex).Value.ToString : 磁盘型態_tb.Text = 清單_dgv("磁盘型態", e.RowIndex).Value.ToString
            考勤綁定_ch.Checked = 清單_dgv("考勤綁定", e.RowIndex).Value
        End If
    End Sub
    Private Sub 取得本地電腦訊息_bt_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
        Set_清單()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 電腦註冊_tb.Click
        ConnOpen_ERP()
        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
            ConnOpen_ERP()
            SQL1 = "UPDATE 系統綁定電腦資訊  SET  考勤綁定 = N'" & 考勤綁定_ch.Checked & "'
                    WHERE (MAC碼 LIKE N'" & MAC碼_tb.Text & "' AND 硬碟ID LIKE N'" & 硬碟ID_tb.Text & "' AND 
                          硬碟序列 LIKE N'" & 硬碟序列_tb.Text & "'AND 磁盘型態 LIKE N'" & 磁盘型態_tb.Text & "')"
            CmdSet_For_dr() : conn.Close()
            MsgBox("修改完成") : Set_清單()
        Else
            ConnOpen_ERP()
            SQL1 = "INSERT INTO 系統綁定電腦資訊 (MAC碼, 硬碟ID, 硬碟序列, 磁盘型態, 考勤綁定) " &
                  "VALUES (N'" & MAC碼_tb.Text & "',N'" & 硬碟ID_tb.Text & "',N'" & 硬碟序列_tb.Text & "',N'" & 磁盘型態_tb.Text & "', N'" & 考勤綁定_ch.Checked & "')"
            CmdSet_For_dr() : conn.Close()
            MsgBox("新增完成") : Set_清單()
        End If
    End Sub
End Class