8 罗斯文商贸信息系统实验.docVIP

第九章 罗斯文商贸信息系统试验 试验一 罗斯文商贸登陆功能 一、试验目的 “系统登陆”功能是在应用程序开发中十分常见的一项功能。在本试验中，大家试着对熟悉的罗斯文商贸信息系统进行扩展，为其添加一个简单的系统登陆功能，进一步体会Access简单、快捷的系统开发方式。 二、实验内容 这个“系统登陆功能”试验，是一个涉及Access多方面知识的综合性试验，其中涉及到数据库中表的修改、查询，Access窗体及控件、VBA事件处理、ADO/DAO编程等多个知识点。由于所涉及的内容较广，在下面的试验步骤中如有未详细说明的地方，同学们可参照课本上的相关章节。 试验步骤 （1）打开罗斯文数据库，修改“雇员”表，向其加入“密码”字段，数据类型设置为“文本”，并将“输入掩码”设置为“密码”，如图8.1所示。（“将输入掩码属性设为“密码”，可创建密码输入控件。在该控件中键入的任何字符都将以原字符保存，但显示为星号（*）。使用“密码”输入掩码可以避免在屏幕上显示键入的字符”——摘自Access帮助文档） 图8.1 添加“密码”字段 （2）打开“雇员”表在“密码”字段中填入一些初始密码，如图8.2所示。 图8.2 添加初始密码 （3）使用“简单查询向导”新建查询（图8.3），从“雇员”表中选出字段“姓氏”和“名字”，并为查询指定标题为“雇员姓名”（图8.4、图8.5）。 图8.3 新建查询 图8.4 简单查询向导1 图8.5简单查询向导2 （4）如图8.6所示，右键点击新建的“雇员姓名”查询，选择“设计视图”。在设计视图窗体的空白位置上点击鼠标右键，在弹出的菜单中选择“SQL视图”（图8.7），将其中的SQL语句改为图8.8所示，并保存。现在你可以打开查询，看看“雇员姓名”查询得到的结果（图8.9）。 图8.6 打开设计视图 图8.7 打开SQL视图 图8.8 SQL语句 图8.9 “雇员姓名”查询结果 （5）打开启动窗体的设计视图，如图8.10所示。删除“下次不再显示本屏”控件，如图8.11所示，并添加“用户名”组合框和“密码”文本框。在添加“用户名”组合框时系统会启动组合框向导，请按照图8.12至图8.17 的步骤进行。 图8.10 打开“启动”窗体设计视图 图8.11 删除控件 图8.12 “姓名”组合框向导 1 图8.13“姓名”组合框向导 2 图8.14“姓名”组合框向导 3 图8.15 “姓名”组合框向导 4 图8.16 “姓名”组合框向导 5 图8.17“姓名”组合框向导 6 另外，在创建完“密码”文本框后，将其“输入掩码”属性设置为“密码”，如图8.18所示。 图8.18 “密码”文本框设置 （6）鼠标右键点击启动窗体上的“确定”按钮，选择“事件生成器”，如图8.19所示。 图8.19 打开“确定”按键事件生成器 将函数CloseForm进行如下改写： Function CloseForm（） “启动”窗体的登陆功能. 用于“启动”窗体上的“确定”命令钮的 OnClick 属性。 Dim rst As Recordset 声明类型为ADODB.Recordset的变量rst Set rst = CurrentDb（）.OpenRecordset（雇员） 打开“雇员”表并新建数据记录集对象实例，赋值给变量rst rst.MoveFirst 指向“雇员”表中的第一条记录 While Not rst.EOF 用一个while循环遍历“雇员”表 If Forms!启动!姓名 = （rst.Fields（姓氏） + rst.Fields（名字）） And Forms!启动!密码 = rst.Fields（密码） Then 对比表中的用户名、密码与输入是否匹配，若匹配则进入主切换面板 DoCmd.Close DoCmd.OpenForm （主切换面板） GoTo flag End If rst.MoveNext 下一条记录 Wend MsgBox 用户名和密码不匹配！ flag: rst.Close 关闭数据连接 Set rst = Nothing 释放变量rst End Function （7）使用Access菜单上的“工具”|“启动”命令来打开“启动”对话框，对系统启动时自动打开的窗体进行设置，取消选中“显示数据库窗口”（在确认所编写程序无误后，可取消选中“允许全部