HX-PGS-ERP-SYS-LEEHSIEHJUI/09、資料庫系統管理/系統對應電腦註冊.vb

Option Strict Off
Imports System.IO
Public Class 系統對應電腦註冊
    ReadOnly ds As New DataSet
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    DIM 對話框(3) As String
    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 Set_語言()
        語言_dgv.DataSource = Nothing
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next
        If File.Exists(Str + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "")
                    If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H601-106" Or Strings.Left(line, 8) = "H601-103" Or Strings.Left(line, 8) = "H001-178" Or
                       Strings.Left(line, 8) = "H001-154" Then
                        If 系統語言 = "繁體中文" Then
                            If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "English" Then
                            If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "Indonesian" Then
                            If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        End If
                    End If
                End If
            End While
            filereader.Close()
        End If
    End Sub
    Private Sub Set_語言查詢()
         RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows
            If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then
                RI = row.Index : Exit For
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言()
        SK = "H001-154" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-147" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-118" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString : SK = "G000-124" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-120" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString : SK = "G000-148" : Set_語言查詢() : 取得本地電腦訊息_bt.Text = 語言_dgv(1, RI).Value.ToString
        SK = "G000-149" : Set_語言查詢() : 電腦註冊_tb.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-150" : Set_語言查詢() : 註冊刪除_bt.Text = 語言_dgv(1, RI).Value.ToString
    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
        MyMod.虛擬桌面開啟()
    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 : MGB(對話框(0), 1) : Else : SQL_系統綁定電腦註冊_新增() : conn.Close() : MGB(對話框(1), 1) : Set_使用者清單() : End If
    End Sub
    Private Sub 註冊刪除_bt_Click(sender As Object, e As EventArgs) Handles 註冊刪除_bt.Click
        MGB(對話框(2), 2) : If 訊息回應 = "YES" Then : SQL_系統綁定電腦註冊_刪除() : conn.Close() : MGB(對話框(3), 1) : End If : conn.Close() : Set_使用者清單()
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.Linen :: Label1.ForeColor = Color.Black
            Label2.ForeColor = Color.Black : Label3.ForeColor = Color.Black : Label4.ForeColor = Color.Black

            MAC碼_tb.BackColor = Color.White : MAC碼_tb.ForeColor = Color.Black : 硬碟ID_tb.BackColor = Color.White : 硬碟ID_tb.ForeColor = Color.Black
            硬碟序列_tb.BackColor = Color.White : 硬碟序列_tb.ForeColor = Color.Black : 磁盘型態_tb.BackColor = Color.White : 磁盘型態_tb.ForeColor = Color.Black
            取得本地電腦訊息_bt.BackColor = Color.White : 取得本地電腦訊息_bt.ForeColor = Color.Black : 電腦註冊_tb.BackColor = Color.White : 電腦註冊_tb.ForeColor = Color.Black
            註冊刪除_bt.BackColor = Color.White : 註冊刪除_bt.ForeColor = Color.Red

            註冊表_dgv.EnableHeadersVisualStyles = True : 註冊表_dgv.BackgroundColor = Color.White : 註冊表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            註冊表_dgv.DefaultCellStyle.BackColor = Color.White : 註冊表_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black :: Label1.ForeColor = Color.White
            Label2.ForeColor = Color.White : Label3.ForeColor = Color.White : Label4.ForeColor = Color.White

            MAC碼_tb.BackColor = Color.DimGray : MAC碼_tb.ForeColor = Color.White : 硬碟ID_tb.BackColor = Color.DimGray : 硬碟ID_tb.ForeColor = Color.White
            硬碟序列_tb.BackColor = Color.DimGray : 硬碟序列_tb.ForeColor = Color.White : 磁盘型態_tb.BackColor = Color.DimGray : 磁盘型態_tb.ForeColor = Color.White
            取得本地電腦訊息_bt.BackColor = Color.DimGray : 取得本地電腦訊息_bt.ForeColor = Color.White : 電腦註冊_tb.BackColor = Color.DimGray : 電腦註冊_tb.ForeColor = Color.White
            註冊刪除_bt.BackColor = Color.DimGray : 註冊刪除_bt.ForeColor = Color.LightPink

            註冊表_dgv.EnableHeadersVisualStyles = False : 註冊表_dgv.BackgroundColor = Color.DimGray : 註冊表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            註冊表_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            註冊表_dgv.DefaultCellStyle.BackColor = Color.Black : 註冊表_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class