Public Class frmlogin

    ' TODO: 插入代码，以使用提供的用户名和密码执行自定义的身份验证
    ' (请参见 http://go.)。
    ' 随后自定义主体可附加到当前线程的主体，如下所示:
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' 其中 CustomPrincipal 是用于执行身份验证的 IPrincipal 实现。
    ' 随后，My.User 将返回 CustomPrincipal 对象中封装的标识信息
    ' 如用户名、显示名等
    Public i As Integer


    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Dim user As New dbuser(Trim(UsernameTextBox.Text), Trim(PasswordTextBox.Text))
        If user.loginconfirm Then
            Dim frmobj1 As New frmMain()
            frmobj1.setprivilege(user.getprivilege())
            frmobj1.show()
            Me.Finalize()
        Else
            i = i + 1
            If i > 2 Then
                MsgBox("您输入用户名和密码错误已经超过三次,您无权登录此系统!", MsgBoxStyle.Exclamation, "信息框")
                '退出系统
                Me.Close()
            End If
            Exit Sub
        End If
    End Sub

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

End Class