问题补充说明:设计一个用户登录窗体(8分)。要求:⑴ 允许用户最多输入3次密码(密码为:“password”),若密码正确,则装入指定窗体:frmmain,否则,重新输入密码,若密码输入超过3次,则结束程序。 ⑵ 给出窗体上控件名称,并给出相应属性设置VB 要具体的 代码 急要具体的代码 急要具体的代码急要具体的代码急要具体的代码
文件>新建工程>标准EXE(主窗体改满解几名成:frmMain)
工程>添加窗体>登陆对话框(frmLogin)
工程>工程属性>启动对象设置为frmLogin
=================================================找参示言占历修歌===========来自====
frmMain的代码:
根据需要
================================================================
frmLogin的代码:
Opt360问答ionExplicit
PublicLoginTi到一想尔meAsSingle
PrivateSubc架我及袁输mdCancel_Click()
End
EndSub
PrivateS深矛ubcmdOK_Click()
IftxtPassword="p官灯料然送位官县据触转assword"Then
概传学陈田Me.Hide
***.Show
Else
Login跳西校象斤切八牛氧既Time=LoginT确坚每入贵列尔甲危ime+1
IfLoginTime>=3Then
MsgBox"已经输错3次密码,程序退出!",,"登录"
End
EndIf
MsgBox"无效的密码,请重试!",,"登录"
txtPassw笑持这染气北跳ord.Text=""
txtPassword.SetFocus
EndIf
术缺操批EndSub
===========================另顾参笑=============包坚王落名二至整头========================
注:如果要用户名验证则自己添加验证语句,如果不用的话把相关的对象删除构就可以了。
标签:窗体,登录,用户