VB.NET 系统登录功能
来源:互联网 发布:hashset源码分析 编辑:程序博客网 时间:2024/05/02 02:30
一般我们设置登入窗体即为启动窗体:
如:一个窗体为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 系统登录功能
- VB.net+三层架构 实现登录功能
- vb.net机房收费登录功能
- vb.net机房收费系统的系统登录
- vb.net机房收费系统的系统登录
- VB.net版机房收费系统——三层登录
- VB.NET版机房收费系统——三层登录
- VB.NET版机房收费系统之七层登录
- VB.net三层登录
- vb.net机房收费系统一个小功能的实现
- vb.net 登录界面 源代码
- VB.NET FTP登录类
- VB.Net 三层登录实例
- VB.NET三层登录demo
- VB.net三层登录实现
- 三层登录VB.NET实现
- vb.net版三层登录
- VB.NET七层登录
- CString::GetBuffer/ReleaseBuffer 技术内幕
- Adept机器人坐标系
- NOI2004 郁闷的出纳员(SBT的应用)
- 最近学习时间明显少很多
- 右键菜单失效
- VB.NET 系统登录功能
- xml序列化的性能问题
- 微软的黑盒子开发法的副作用(安装Visual Studio Express 2010不爽)
- ado.net总结
- POJ 1523 SPF (割点)
- 红包!!?
- C#中获取计算机各种编号信息
- struts学习(1)——MVC模型及struts 2概述
- DataGridView右键菜单动态更改