VB.NET 系统登录功能

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

如:一个窗体为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

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

阅读更多
文章标签: vb.net button
个人分类: VB.NET
想对作者说点什么? 我来说一句

asp.net实现登陆界面

2016年05月31日 12.39MB 下载

asp.net注册登录页面

2015年07月06日 17.83MB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭