《实例5 密码验证.pdf》由会员分享，可在线阅读，更多相关《实例5 密码验证.pdf（4页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、实例实例5 5密码验证密码验证“密码验证”程序运行后的窗体如图所示。要求用户在“密码验证”窗体内的文本框中输入正确的用户名和密码。用户输入正确的用户名和密码后。单击“确定”按钮或按回车键，会弹出“聊天室”窗体，同时关闭“密码验证”窗体，如图所示。如果输入了错误的用户名或密码，则“密码验证”窗体内会显示“输入错误！请重新输入用户名和密码”。单击“取消”按钮或按键盘上的Esc键后，可以退出程序的运行。1创建两个窗体(1)创建一个名称为“密码验证”的窗体，在窗体上添加2个标签控件、3个文本框和2个命令按钮控件，如图所示。各对象的属性设置。对象对象名称名称Form1frmLoginCommandlcm
2、dOKCommand2cmdCancelLabel1Label1Label2Label2TextBox1txtUserTextBox2 txtPasswordLabel3Label3CaptionCaption密码验证确定取消用户名：密码：DefaultDefaultCancelCancelPasswordCharPasswordCharTrueFalseFalseTrue*BorderStyle属性为 0，Appearance 属请输入用户名和密码！性为 0(2)为程序添加一个新窗体 Form2再在该窗体内添加一个标签控件。(3)Form2 窗体的名称为 frmMain.Caption 的值
3、为“聊天室”。Font 属性设置为宋体，大小为三号，字形为粗体,ForeColor 属性为红色。此时的工程资源管理器的窗口如图所示。2输入程序(1)在“密码验证”窗体的“代码”窗口中输入以下代码。Private Sub cmdCancel_Click()Unload Me 卸载当前窗体，退出程序End Sub 检查用户名和密码是否正确Private Sub cmdOK_Click()If txtUser=丰金兰 And txtPassword=8888 Then frmMain.Show 显示“聊天室”窗体 Unload Me 卸载当前窗体 Else txtUser.Text=txtPassw
4、ord.Text=Label3.Caption=输入错误！请重新输入用户名和密码。End IfEnd Sub程序中的 If-Else-End If 语句用来判断输入的用户名（txtUser.text）和密码（txtPassward.text）是否等于预设值。如果等于，则执行If 和 Else 语句之间的程序代码，即显示“聊天室”窗体，卸载当前窗口。如果不等于，则执行Else 下面的代码程序。程序中的 Me 是 VB 语言中的关键字，它代表了当前代码所在的窗口，在这里即相当于 frmLogin。(2)在“聊天室”窗体的“代码”窗口中输入以下代码。Private Sub Form_Load()Label1.Caption=用户名和密码输入正确，欢迎您进入聊天室!设置标签文本End SubPrivate Sub Command1_Click()EndEnd Sub由于 Load 事件将在窗体加载时执行，因此当 frmMain 窗体显示时，其中的标签文字已经被改变为“用户名和密码输入正确，欢迎您进入聊天室！”。如图所示。