验证用户名及密码
实验2 验证用户名及密码
实验目的:
1、学会创建应用程序界面;
2、学习编写程序代码;
3、掌握常用控件的使用。
实验
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
:
1、实验
要求
对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗
输入的密码在文本框中不可见,以“*”代替,并且密码长度只能为六位数字。单击“确定”按钮时,判断用户名和密码的正确性,如果错误,给出提示信息,单击“退出”按钮时结束程序运行。 2、窗体属性
对象名 属性名 设置值
Label1 caption 用户名
Label2 caption 密码
Text1 text ---
text --- Text2 passwordchar *
Command1 caption 确定
Command2 caption 取消 3、窗体
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
4、源代码
Private Sub Command1_Click()
Dim a%
If Text1 = "" Then
MsgBox "请输入用户名"
Exit Sub
End If
If Text2 = "" Then
MsgBox "请输入口令"
Exit Sub
End If
If Len(Trim(Text2)) <> 6 Then
MsgBox "密码必须为6位~"
End If
If Trim(Text1) = "小王" And Trim(Text2) = "123456" Then
a = MsgBox("欢迎使用本系统~", , "登录")
Else
MsgBox "密码错误!"
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then
" MsgBox "你必须输入数字
Text2.SetFocus
SendKeys "{home}+{end}"
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{tab}"
End Sub
Private Sub Command2_Click()
End
End Sub
实验思考:
假设只给用户三次登录机会,超过三次则自动退出登录界面,应该如何修改程序,