社区
VB
帖子详情
一个登陆窗体的问题!!!!!!!!!!!!!!!!
mingyuebin
2003-08-25 12:37:49
一个登陆窗体,一个主窗体,当用户名和密码匹配时,显示主窗体,并close登陆窗体,但出现这样的问题当我close登陆窗体时,整个应用程序就退出,请大家帮我想想办法。我想要的是彻底地把登陆窗体关掉,而不是仅仅隐藏.
...全文
95
13
打赏
收藏
一个登陆窗体的问题!!!!!!!!!!!!!!!!
一个登陆窗体,一个主窗体,当用户名和密码匹配时,显示主窗体,并close登陆窗体,但出现这样的问题当我close登陆窗体时,整个应用程序就退出,请大家帮我想想办法。我想要的是彻底地把登陆窗体关掉,而不是仅仅隐藏.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
13 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
斗斗来三
2003-08-25
打赏
举报
回复
GZ
menuvb
2003-08-25
打赏
举报
回复
unload 窗体
mingyuebin
2003-08-25
打赏
举报
回复
我是这样做的
在主窗体的Load的事件中
dim frm_login as new Login()
frm_login.showdialog()
在Login窗体中
if '输入的username & pwd正确' then
success=true
me.close
endif
xiyun
2003-08-25
打赏
举报
回复
mainform.visible=false
loginform.showdialog
在loginform里面
mainform.visible=ture
loginform.dispose()
mingyuebin
2003-08-25
打赏
举报
回复
to yuxi007()
但是这样会把主窗体也一起卸载掉的
lirh
2003-08-25
打赏
举报
回复
up
yuxi007
2003-08-25
打赏
举报
回复
我是这样做的:以Public定义两个变量,第一个是登陆窗体,第二个是主窗体,这两个变量必须定义在 Sub Main()之前,在Sub Main()中加入以下代码:
登陆窗体变量=new 登陆窗体 '初始化登陆窗体变量
application.run(登陆窗体变量)
再在“用户名和密码匹配时”执行:
主窗体变量=new 主窗体
主窗体变量.show
之后再卸载登陆窗体就行了
mingyuebin
2003-08-25
打赏
举报
回复
to bue(e人)
这样并不能彻底地关闭登陆窗体,要f3关闭后登陆窗体才会关闭
bue
2003-08-25
打赏
举报
回复
这个问题我也遇到过,我用的f3.ShowDialog
Me.Dispose
Anhowe
2003-08-25
打赏
举报
回复
我觉得程序启动是启动的是主窗体,后再在菜单中调出Login窗体,如果正确,则所有菜单可用,否则就不可用,这用对注销程序的及切换用户会更好做
mingyuebin
2003-08-25
打赏
举报
回复
楼上各位,能不能给出代码?
benlee
2003-08-25
打赏
举报
回复
application.run(frmnext)
转过去就行了
不过你的frmnext必须定义在全局里,而不是登陆里
ms44
2003-08-25
打赏
举报
回复
dispose
登陆
窗体
的制作的方法
1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责! 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用!
登陆
窗体
源代码(java)
刚学习java下面是自己编的
一个
关于
登陆
窗体
的代码,想要更漂亮些的
窗体
,只要在上面调整一下容器(panel及其上面控件的位置)就行了,希望对刚学习java的朋友们有帮助!
窗体
传值-1
两个子
窗体
之间的传值实例。主
窗体
弹出两个子
窗体
,从主
窗体
f1输入字符串,f2随即显示输出字符串。为参考学习用的实例。 1.该实例的test和test2后缀并不是表示有
一个
实例系列,仅代表我自己测试过程中新建的项目编号。 2.本人仅是新人大菜鸟。该实例是本人需要解决实际
问题
,在论坛上提出的,最后在大大们的帮助下完成。 希望能通过这个实例,给其他新人带来福利。谢谢!
登陆
窗体
的制作
1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责! 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用!
一个
简单易用的登录
窗体
我的一段
登陆
按钮代码,用户表里有三个用户名,在
登陆
时只有第
一个
用户名有效,其他几个都是用户名或密码错误,不知什么原因,请高手指点,代码如下,谢谢! Option Compare Database Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmd_
登陆
_Click() Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open "用户表 ", conn Dim username As String Dim userpass As String txt_用户名.SetFocus username = txt_用户名.Text If IsNull(username) Or IsNull(txt_密码.Value) Then MsgBox "用户名或密码不能为空,请重新输入!", vbOKOnly + vbInformation, "错误信息" Else If username rs!用户名 Then MsgBox "用户名或密码不正确,请重新输入", vbOKOnly + vbInformation, "错误信息" txt_用户名.SetFocus txt_用户名.Text = "" txt_密码.SetFocus txt_密码.Value = "" txt_用户名.SetFocus Else rs.Close rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic rs.AddNew rs!用户名 = username rs!登录时间 = Now() rs!退出时间 = CDate(0) rs.Update rs.Close DoCmd.Close DoCmd.OpenForm "库存信息
窗体
" End If End If End Sub Private Sub Form_Load() txt_用户名.SetFocus txt_用户名.Text = "" txt_密码.SetFocus txt_密码.Text = "" txt_用户名.SetFocus End Sub
VB
16,555
社区成员
110,528
社区内容
发帖
与我相关
我的任务
VB
VB技术相关讨论,主要为经典vb,即VB6.0
复制链接
扫一扫
分享
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章