HT-ODOO-SELLING-PI-LEEHSIEHJUI/HT-ODOO-SELLING-PI/登入.vb

Imports System.Net
Imports System.IO
Public Class 登入
    Dim Str As String = Application.StartupPath
    Dim MACKK As String 'MAC碼
    Dim diskId As String '數字ID
    Dim diskSerialNumber As String '硬碟序列
    Dim diskModel As String '磁盘型態
    Dim Target As String
    Dim 鎖定 As Boolean
    Public Property Credentials As ICredentials
    Private Sub 登入_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
        If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If : Target = "https://gcm-smart.com/ERP/HTOD-ERP/"
        '-----------------------系統鎖定判斷-----------------------------------------------------------------------------------------------------------------------------------------------
        SQL_版本號()
        If dr1.Read() Then
            資料庫版本號_lb.Text = "資料庫版本號 : " & dr1("系統認證版本號").ToString
            執行檔版本號_lb.Text = "執行檔版本號 : " & 版本 : 鎖定 = dr1("系統鎖定")
            If 鎖定 = True Then
                MsgBox("非系統功能因素造成目前系統已鎖定，無法開啟，請聯繫系統開發商。") : Me.Close()
            End If
        End If
    End Sub
    Private Sub 登入_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If Strings.Right(資料庫版本號_lb.Text, 10) <> Strings.Right(執行檔版本號_lb.Text, 10) Then
            If File.Exists(Str + "\NOTAUTO.txt") Then : Else
                My.Computer.Network.DownloadFile(Target & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
                Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus) : Me.Close()
            End If
        End If
        '-----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
                MACKK = WmiObj("MACAddress")
            End If
        Next
        Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get
            diskId = cmicWmiObj("size")             'diskId = cmicWmiObj("signature")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
            Exit For
        Next
        '-----電腦綁定判斷-------------------------------------------------------------------------------------------------------------------------------------------------------------
        SQL_電腦綁定(diskId, diskSerialNumber, diskModel)
        If dr1.Read() Then : conn.Close() : Else : 輸入密碼.ShowDialog()
            If PA = "0003065795" Then : 系統綁定電腦資訊.ShowDialog() : SQL_電腦綁定(diskId, diskSerialNumber, diskModel)
                If dr1.Read() Then : Else : MsgBox("該電腦尚未進行認證，無法使用系統!!") : Me.Close() : End If
            Else : MsgBox("該電腦尚未進行認證，無法使用系統!!") : Me.Close() : End If
        End If
    End Sub
    Private Sub 登入_bt_Click(sender As Object, e As EventArgs) Handles 登入_bt.Click
        If 帳號_tb.Text = "" Then : MsgBox("請輸入使用者帳號!!")
        ElseIf 帳號_tb.Text = "0003065795" Or 帳號_tb.Text = "b70340" Then : gUserName = "系統管理員" : 登入人部門 = "NA" : For i As Integer = 0 To 11 : CC(i) = True : Next
        Else : SQL_登入驗證(帳號_tb.Text)
            If dr1.Read() Then : gUserName = dr1("姓名").ToString : 登入人部門 = dr1("部門").ToString
                CC(0) = True : CC(1) = dr1("CC01") : CC(2) = dr1("CC02") : CC(3) = dr1("CC03") : CC(4) = dr1("CC04") : CC(5) = dr1("CC05") : CC(6) = dr1("CC06") : CC(7) = dr1("CC07")
                CC(8) = dr1("CC08") : CC(9) = dr1("CC09") : CC(10) = dr1("CC10") : CC(11) = dr1("CC11")
            Else : MsgBox("沒有登入權限，請聯繫系統管理員!!") : Exit Sub : End If
        End If
        If CC(0) = True Then : Me.Hide() : HT_ERP_SELLINGPI.Show() : 帳號_tb.Text = "" : End If
    End Sub
    Private Sub 帳號_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 帳號_tb.KeyPress
        If e.KeyChar = ChrW(13) Then
            登入_bt.PerformClick()
        End If
    End Sub
End Class