GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/09、資料庫系統管理/系統對應電腦註冊.vb

Option Strict Off
Public Class 系統對應電腦註冊
    ReadOnly ds As New DataSet
    Private Sub Set_使用者清單()
        註冊表_dgv.DataSource = Nothing : ds.Clear()
        註冊表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        註冊表_dgv.ColumnHeadersHeight = 25
        註冊表_dgv.AllowUserToAddRows = False
        註冊表_dgv.RowTemplate.Height = 35
        SQL_系統綁定電腦資訊表()
        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 = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_使用者清單()
    End Sub
    Private Sub 系統對應電腦註冊_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    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
        SQL_系統綁定電腦註冊()
        If dr.Read() Then : conn.Close() : If 系統語言 = "繁體中文" Then : MsgBox("該電腦以綁定過!!") : Else : MsgBox("Komputer terikat untuk!!") : End If
        Else : SQL_系統綁定電腦註冊_新增() : conn.Close() : MsgBox("新增完成") : Set_使用者清單()
        End If
    End Sub
    Private Sub 註冊刪除_bt_Click(sender As Object, e As EventArgs) Handles 註冊刪除_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "確定要刪除該筆資料?" : Else : SS = "Apakah Anda yakin ingin menghapus data ini?" : End If
        Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_系統綁定電腦註冊_刪除() : conn.Close() : If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If
        End If
        conn.Close() : Set_使用者清單()
    End Sub
End Class