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

第九章 罗斯文商贸信息系统试验试验一 罗斯文商贸登陆功能一、试验目的“系统登陆”功能是在应用程序开发中十分常见的一项功能。在本试验中，大家试着对熟悉的罗斯文商贸信息系统进行扩展，为其添加一个简单的系统登陆功能，进一步体会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 释放变量rstEnd Function（7）使用Access菜单上的“工具”|“启动”命令来打开“启动”对话框，对系统启动时自动打开的窗体进行设置，取消选中“显示数据库窗口”（在确认所编写程序无误后，可取消选中“允许全部菜单”、“允许默认快捷菜单”等，提高系统安全性，现在暂时不必取消选中），如图8.20所示。图8.20 设置“启动”对话框（8）关闭并重新打开“罗斯文商贸”数据库，使用你在第2步中初始化的用户密码来登陆修改后的带登陆功能的罗斯文数据库（如图8.21所示）。图8.21 完成