《Visual Basic程序设计项目化教程》项目6 用户登录系统

VisualBasic程序设计项目化教程 主编管小清郭贺彬 项目六用户登录系统 项目目标 本项目主要介绍如何使用MsgBox函数和语句 MDI窗体的使用 控件属性的设置方法 随机函数的使用 项目主要知识点 1 MsgBox函数和语句的使用Msgbox函数的格式Msgbox语句2 参数传递址传传值多窗体的使用加载窗体显示窗体隐藏窗体卸载窗体 项目六用户登录系统 项目实施步骤 掌握相关基础知识界面设计窗体设计控件属性设置程序设计编程初步程序代码运行程序 优化程序保存项目工程 6 1第1步 项目知识 6 1 1MsgBox函数和语句Msgbox函数的格式 格式 MsgBox msg type title helpfile context 功能 在屏幕上显示一个消息对话框 根据选择 确定其后的操作 该函数有5个参数 除第一个参数外 其余参数都是可选的 各参数的含义如下 6 1第1步 项目知识 msg 是一个字符串 其长度不能超过1024个字符 如果超过 则多余的字符被截掉 该字符串的内容将在MsgBox函数产生的对话框内显示 当字符串在一行内显示不完时 将自动换行 当然也可以用 Chr 13 Chr 10 强制换行 type 是一个整数值或符号常量 用来控制在对话框内显示的按钮 图标的种类及数量 该参数的值由4类数值相加产生 这4类数值或符号常量分别表示按钮的类型 显示图标的种类活动按钮的位置及强制返回 如表6 1所示 6 1第1步 项目知识 表6 1Msgbox参数 显示CriticalMessage图标 显示WarningQuery图标 显示WarningMessage图标 显示InformationMessage图标 6 1第1步 项目知识 上述表中的数值分为4类 其作用分别为 数值0 5 对话框内命令按钮的类型和数量 按钮共有7种 即确认 取消 终止 重试 忽略 是 否 每个数值表示一种组合方式 数值16 32 48 64 指定对话框所显示的图标 共有4种 其中16指定暂停 32表示疑问 48通常用于警告 64用于显示提示信息 i 例如 16 0 16 0显示 确定 按钮 暂停 图标 默认按钮为 确定 35 3 32 0显示 是 否 取消 3个按钮 显示 图标 默认活动按钮为 是 50 2 48 0显示 终止 重试 忽略 3个按钮 显示 图标默认活动按钮为 终止 每种数值都有相同的符号常量 其作用与数值相同 使用符号常量可以提高程序的可读性 上面4类数值是type参数较为常用的数值 除这4类数值外 type参数还可以取其他几种值 这些数值是不常用的 6 1第1步 项目知识 title 是一个字符串 用来显示对话框的标题 helpfile context MsgBox函数的5个参数中 只有第一个参数msg是必需的 其他参数均可忽略 如果省略第二个参数type 默认值为0 则对话框内只显示一个 确定 命令按钮 并把该按钮设置为活动按钮 不显示任何图标 如果省略第三个参数title 则对话框的标题为当前工程的名称 如果希望标题栏中没有任何内容 则应把title参数置为空字符串 6 1第1步 项目知识 MsgBox函数的返回值是一个整数 这个整数与所选择的命令按钮有关 如前所述 MsgBox函数所显示的对话框有7种命令按钮 返回值与这7种按钮相对应 分别为1 7的整数 如表6 2所示 表6 2MsgBox函数的返回值 6 1第1步 项目知识 2 MsgBox语句格式 MsgBoxMsg type title helpfile context 功能 在屏幕上显示一个消息框 说明 各参数的含义及作用与MsgBox函数相同 由于MsgBox语句没有返回值 因而常用于较简单的信息显示 6 1第1步 项目知识 6 1 2参数传递参数传递的方法有两种 传址和传值 在通过地址方式进行参数传递时 数组也可以作为过程的参数 1 传址在调用一个过程时 如果是用传址方式进行参数传递 则会将实参的内存地址传递给形参 即让形参和实参使用相同的内存单元 因此 在被调用的过程中对形参的任何操作都变成了对相应实参的操作 实参的值就会随形参的改变而改变 6 1第1步 项目知识 2 传值按传值方式传递参数时 系统将实参的值复制给形参 形参与参数使用不同的内存单元 因此 被调过程对形参的操作是在形参自己的存储单元中进行的 实参的值不会随形参的改变而改变 当过程调用结束时 这些形参所占用的存储单元也同时被释放 因此在过程中对形参的任何操作都不会影响到实参 传值不使默认的参数传递方式 要使用传值方式时 必须在形参前加 ByVal 关键字 使用传值方式 可以减少过程间的关联 从而增加程序的可靠性 减少程序的调试难度 6 1第1步 项目知识 3 传址与传值的区别 最主要的区别是 对形参的操作是否会对实参产生影响 传址时 实参和形参共用一个内存单元 对形参的操作等同于对实参操作 传值时 实参和形参使用不同内存单元 对形参的操作不会对实参操作 形式上的区别是 在形参前是否有关键字 ByVal 使用传址时 无需在形参前加任何关键字 使用传值时 需要在形参前加关键字 ByVal 6 1第1步 项目知识 6 1 3多窗体的使用1 加载窗体加载窗体使用Load语句 格式 Load窗体名功能 加载窗体到内存 说明 加载窗体只是将这个窗体对象装入内存 但并不显示这个窗体对象 此语句只是需要在初始化时加载所有的窗体并在以后需要他们的时候显示 当VB加载窗体时 先把窗体的各属性设置为初始值 再执行Load事件 6 1第1步 项目知识 2 显示窗体显示一个窗体就要把它的Visible属性设置为True 显示一个窗体还可以用窗体对象的Show方法 格式 窗体名 Show功能 将窗体显示在屏幕上 说明 如果在调用一个窗体的Show方法时 指定的窗体尚未加载 VB将自动装载该窗体 6 1第1步 项目知识 3 隐藏窗体把一个窗体的Visible属性设置为False或使用它的Hide方法 就可以把窗体隐藏 格式 窗体名 Hide功能 将窗体隐藏起来 说明 隐藏窗体并不把窗体从内存中卸载 只是变得不可见 在使用Visible属性或Hide方法隐藏窗体时 如果窗体尚未加载 则VB会加载该窗体 但不会让它显示出来 6 1第1步 项目知识 4 卸载窗体窗体用完后可以卸载窗体 要用Unload语句 Unload语句的语法格式与Load语句相同 格式 UnLoad窗体名功能 将窗体从内存中卸载下来 说明 当卸载一个窗体时它的子窗体也会被卸载 6 2第2步 登录窗体的设计 6 2 1任务一 界面设计所需控件 标签 Label 文本框 TextBox 图像框 ImageBox 命令按钮 框架 Frame 等 说明 所有标签的AutoSize属性设为True 密码输入框的PasswordChar属性 其他各控件属性根据需要设置参考界面如图6 1所示 图6 1登录界面 6 2第2步 登录窗体的设计 6 2 2任务二 程序设计1 产生验证码的语句为 PrivateSubForm Load RandomizeDimxAsLongx Int 90000 Rnd 0 10000Label4 Caption xEndSub 6 2第2步 登录窗体的设计 提示 Randomize语句的使用方法 当一个应用程序不断地重复使用随机函数时 同一序列的随机数反复出现 用Randomize语句 重复执行程序 每次产生的随机数可以不同 Randomize语句的格式如下 Randomize x 这里的x是一整型数 它是随机数发生器的 种子数 可以省略 用Rnd 函数可以产生0 1之间的单精度随机数 用Int x 函数求不大于自变量x的最大整数 如Int 1000 表示求不大于1000的最大整数 6 2第2步 登录窗体的设计 2 登录 按钮的程序设计 该部分程序由学生自行设计 需要注意以下几点 用户名 和 密码 不能为空 如果为空 应该用MsgBox提示问题 并允许返回登录窗体进行添加 用户名 或 密码 必须同时成立 单击 登录 按钮才能显示登录成功 如果 用户名 或 密码 错误 则显示出错信息 用MsgBox提示问题 并允许返回登录窗体修改 如果连续三次出现 用户名 或 密码 错误则认为是非法登录 拒绝登录 如果 验证码 输入框为空 则提示错误问题并允许添加 6 2第2步 登录窗体的设计 3 注册 命令按钮的程序设计为 PrivateSubCommand3 Click Form2 ShowForm1 HideEndSub提示 在集成开发环境中 使用 工程 添加窗体 菜单 就可以在一个工程中使用多个窗体 被设置为启动对象的窗体在程序运行之初会被自动加载和显示 但是只能在工程属性中设置一个窗体模块为启动对象 当启动对象是SubMain过程时 要显示窗体或当显示一个窗体后再显示其他的窗体 就要考虑窗体的加载 显示 隐藏和卸载问题 4 退出 按钮程序自行设计 6 3第3步 注册窗体的设计 6 3 1任务一 界面设计所需控件 标签 Label 文本框 TextBox 图像框 ImageBox 命令按钮 框架 Frame 单选按钮 OptionButton 组合框 ComboBox 等 说明 所有标签的AutoSize属性设为True两个密码输入框的PasswordChar属性 组合框里根据实际情况输入几项 如 宠物的名字等 单选按钮的标题分别为男和女其他控件的属性根据需要设置附 添加窗体的方法如图6 4所示 6 3第3步 注册窗体的设计 在工程资源管理器中单击鼠标右键 然后按照图6 4操作 图6 4添加窗体的方法 6 3第3步 注册窗体的设计 其他界面操作参照图6 5所示 图6 5注册界面 6 3第3步 注册窗体的设计 1 将验证码图片随机装入图像框的语句参照第1步当中的装载语句 2 提交 命令按钮的程序设计 该部分由师生共同完成 需要注意以下几点 凡是带 的项目如果为空 则提示错误 用MsgBox提示 并允许返回注册窗体添加 如果两次密码不一致 则显示错误信息 用MsgBox提示 然后自动清空 等待重新输入 3 重填 命令按钮就是将所有的文本框清空 4 如果注册信息符合要求则显示注册成功窗体所用语句为 Form3 ShowForm2 Hide 6 4第4步 登录成功窗体设计 6 4 1任务一 界面设计参照图6 6所示 图6 6登录成功界面 6 4第4步 登录成功窗体设计 6 4 2任务二 程序设计参数传递语句为 PrivateSubForm Load Label1 Caption Form1 Text1 TextEndSub2 关闭 命令按钮程序语句为 Unloadme 在程序中可以用赋值语句为对象的属性设置属性值 格式 对象 属性 属性值 例如 为命令按钮Command1的Caption属性设置值 Command1 Caption 显示文本 6 5第5步 注册成功 窗体设计 参照第三步 任务一 界面设计如图6 7所示 任务二 程序设计同第三步 图6 7注册成功界面 6 6第6步 运行程序 优化程序 该部分由学生自主完成 教师可进行辅导 要求学生在此基础上进行功能完善 项目总结 掌握加载窗体 显示窗体 隐藏窗体方法以及多窗体的建立方法掌握Msgbox函数以及Msgbox语句的使用方法 掌握控件的特殊属性 位置 样式和颜色等 掌握随机数的产生方法了解如何程序功能的完善 6 6第6步 运行程序 优化程序 操作练习 设计1个程序 当在窗体上单击 第一号窗体 按钮时 装载1幅图片 当在窗体上单击 第一号窗体 按钮时 装载另一幅图片 当单击 返回 按钮时 返回到第一号窗体 如图6 8和图6 9所示 图6 8第一号窗体 图6 9第二号窗体 6 6第6步 运行程序 优化程序 2 编写程序 用文本框检查口令输入 在窗体上建立1个文本框 1个图片框和3个命令按钮 把文本框的Passwordchars属性设置为 把3个命令按狃的标题分别设置为 开始 检查口令 和 结束 程序运行后 单击第2个命令按钮 检查输入的口令是否正确 如果正确 则在图片框中显示一个图形 否则显示一个信息框 要求重新输入 此时将调用第一个命令按钮的click事件过程 再一次在文本框中输入口令 直到输入正确的口令为止 如果单击 结束 按钮 则结束程序 6 6第6步 运行程序 优化程序 习题 一 选择题1 为了使1个窗体从屏幕上消失但仍在内存中 所使用的方法或语句为 A ShowB HideC LoadD Unload2 下列操作中不能向工程中添加窗体的是 A 执行 工程 菜单中的 添加窗体 命令B 单击工具栏上的 添加窗体 按钮C 右击窗体 在弹出的菜单中选择 添加窗体 命令D 右击工程资源管理器 在弹出的菜单中选择 添加 命令 然后在下一级菜单中选择