VB.NET 系统登录功能

晨曦之光 发布于 2012/04/24 12:47
阅读 319
收藏 0

 一般我们设置登入窗体即为启动窗体:

如:一个窗体为FrmLogin.vb,我们设置它为启动窗体

当用户名和密码正确的时候,我们才进入主窗体:FrmMainWindows.vb。这样我们启动完主窗体时,FrmLogin窗体就只能是Hide了,不能将其关闭,因为关闭了就是将整个程序关闭了(它是启动窗体,将启动窗体关闭就是关闭整个程序)

我们可以在主窗体即FrmMainWindows中编写代码:

    Public Shared Sub main()
        '显示登录对话框
        Dim loginFrm As FrmLogin = New FrmLogin
        loginFrm.ShowDialog()
        '合法进入系统
        If loginFrm.bResult = True Then
            Dim frm As FrmMainWindows = New FrmMainWindows
            Application.Run(FrmMainWindows)
        End If

    End Sub

在FrmLogin中:

    Public bResult As Boolean = False

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Dim badduser As New BLL.b_AddDelUser
        Dim eadduser As New Entity.e_AddUser


        eadduser.UserName = Trim(txtUser.Text)
        eadduser.UserPwd = Trim(txtPwd.Text)

        If (badduser.CheckUser(eadduser)) Then
            bResult = True
            Me.Close()
        Else
            MsgBox("请输入正确的用户名和密码!", , "提示")
            txtUser.Focus()
            Exit Sub
        End If
    End Sub

再将启动项设置为Sub Main

这样成功登录后,登录窗体即可释放


原文链接:http://blog.csdn.net/wulingmin21/article/details/6882525
加载中
返回顶部
顶部