logon.vb

这是我自己用VB.NET编写的一款监护仪的电脑软件

Imports Microsoft.Win32
Imports System.Management

Public Class Login
    Public MachineSN As String = ""
    Public RegisterSN As String = ""
    Public Part1 As String = ""
    Public Part2 As String = ""
    Public Part3 As String = ""
    Public MySqlDataBaseConnectionString As String = "DSN=BestmanTMD"
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label1.Text = " Admin ID"
        Label2.Text = "Password"
        UserID.Focus()
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label1.Text = "User Name"
        Label2.Text = "Password"
        UserID.Focus()
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Close()
    End Sub

    Private Sub LogOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogOn.Click
        Dim UserType As String
        If Me.RadioButton1.Checked Then
            UserType = Me.RadioButton1.Text
        Else
            UserType = Me.RadioButton2.Text
        End If
        Dim MySQL As String = MySqlDataBaseConnectionString
        Dim MyDataCon As New System.Data.Odbc.OdbcConnection(MySQL)
        MyDataCon.Open()
        Dim MySQLStr As String
        MySQLStr = "Select count(*) From [User] where User_Name='" & Me.UserID.Text & "' and User_Psw='" & Me.PassWord.Text & "' and User_Type='" & UserType & "'"
        Dim MyCommand As New System.Data.Odbc.OdbcCommand(MySQLStr, MyDataCon)

        Dim i As Integer = MyCommand.ExecuteScalar
        If i = 1 Then
            MainForm.Show()
            Me.Hide()
        Else
            MessageBox.Show("Invalid user name or password, please try again!", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        If MyDataCon.State = ConnectionState.Open Then
            MyDataCon.Close()
        End If
    End Sub

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Start()
        Form2.ShowDialog()
        Dim RootKey As String = Registry.LocalMachine.ToString & "\Software\ODBC\ODBC.ini"
        Dim MyDSNKey As String = RootKey & "\ODBC Data Sources"
        Dim MyNewKeys As String = RootKey & "\BestmanTMD"
        Dim DataPath As String = Application.StartupPath & "\Preg_File.mdb"
        Registry.SetValue(MyDSNKey, "BestmanTMD", "Driver do Microsoft Access (*.mdb)")
        Registry.SetValue(MyNewKeys, "DBQ", DataPath)
        Registry.SetValue(MyNewKeys, "Driver", "C:\WINDOWS\system32\odbcjt32.dll")
        Registry.SetValue(MyNewKeys, "DriverID", 25)
        Registry.SetValue(MyNewKeys, "FIL", "MS Access;")
    End Sub

    Private Sub UserID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles UserID.GotFocus
        '以下判断是否注册  
        Dim RootKey As String = Registry.LocalMachine.ToString & "\Software\ODBC\ODBC.ini"
        Dim MyDSNKey As String = RootKey & "\ODBC Data Sources"
        Dim MyNewKeys As String = RootKey & "\BestmanTMD"
        If Registry.GetValue(MyNewKeys, "MACCODE", "0") = Me.MachineSN And Registry.GetValue(MyNewKeys, "REGCODE", "0") = Me.RegisterSN Then
            Exit Sub
        Else
            '   Me.LogOn.Focus()
            '   软件注册.ShowDialog()
        End If
    End Sub
    Dim Tick As Integer = 0
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Tick += 1
        If Tick = 2 Then
            Form2.Opacity = 1
        End If
        If Tick >= 3 Then
            Form2.Close()
        End If
    End Sub
End Class