第九章罗斯文商贸信息系统试验试验一罗斯文商贸登陆功能一、试验目的“系统登陆”功能是在应用程序开发中十分常见的一项功能。在本试验中,大家试着对熟悉的罗斯文商贸信息系统进行扩展,为其添加一个简单的系统登陆功能,ess简单、快捷的系统开发方式。二、实验内容这个“系统登陆功能”试验,ess多方面知识的综合性试验,其中涉及到数据库中表的修改、查询,Access窗体及控件、VBA事件处理、ADO/DAO编程等多个知识点。由于所涉及的内容较广,在下面的试验步骤中如有未详细说明的地方,同学们可参照课本上的相关章节。三、试验步骤(1)打开罗斯文数据库,修改“雇员”表,向其加入“密码”字段,数据类型设置为“文本”,并将“输入掩码”设置为“密码”,。(“将输入掩码属性设为“密码”,可创建密码输入控件。在该控件中键入的任何字符都将以原字符保存,但显示为星号(*)。使用“密码”输入掩码可以避免在屏幕上显示键入的字符”——ess帮助文档)“密码”字段(2)打开“雇员”表在“密码”字段中填入一些初始密码,。(3)使用“简单查询向导”新建查询(),从“雇员”表中选出字段“姓氏”和“名字”,并为查询指定标题为“雇员姓名”(、)。(4),右键点击新建的“雇员姓名”查询,选择“设计视图”。在设计视图窗体的空白位置上点击鼠标右键,在弹出的菜单中选择“SQL视图”(),,并保存。现在你可以打开查询,看看“雇员姓名”查询得到的结果()。“雇员姓名”查询结果(5)打开启动窗体的设计视图,。删除“下次不再显示本屏”控件,,并添加“用户名”组合框和“密码”文本框。在添加“用户名”组合框时系统会启动组合框向导,。“启动”“姓名”“姓名”“姓名”“姓名”“姓名”“姓名”组合框向导6另外,在创建完“密码”文本框后,将其“输入掩码”属性设置为“密码”,。“密码”文本框设置(6)鼠标右键点击启动窗体上的“确定”按钮,选择“事件生成器”,。“确定”按键事件生成器将函数CloseForm进行如下改写:FunctionCloseForm()'“启动”窗体的登陆功能.'用于“启动”窗体上的“确定”命令钮的OnClick属性。DimrstAsRecordset'=CurrentDb().OpenRecordset("雇员")'打开“雇员”表并新建数据记录集对象实例,'指向“雇员”'用一个while循环遍历“雇员”表IfForms!启动!姓名=(("姓氏")+("名字"))AndForms!启动!密码=("密码")Then'对比表中的用户名、密码与输入是否匹配,若匹配则进入"主切换面板"
8 罗斯文商贸信息系统实验 来自淘豆网m.daumloan.com转载请标明出处.
