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



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