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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!