在考生文件夹下存在一个数据库文件“samp3.aecdb”,里面已经设计好表对象“tStud”和窗体对象“fSys”,同时还设计出以“tStud”为数据源的报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计。

admin2019-01-09  14

问题 在考生文件夹下存在一个数据库文件“samp3.aecdb”,里面已经设计好表对象“tStud”和窗体对象“fSys”,同时还设计出以“tStud”为数据源的报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计。
试根据以下窗体功能要求,补充已给的事件代码,并运行调试。
    在窗体中有“用户名称”和“用户密码”两个文本框,名称分别为“tIJser”和“tPass”,还有“确定”和“退出”两个命令按钮,名称分别为“cmdEnter”和“cmdQuit”。在输入用户名称和用户密码后,单击“确定”按钮,程序将判断输入的值是否正确,如果输入的用户名称为“cueb”,用户密码为“1234”,则显示提示框,提示框标题为“欢迎”,显示内容为“密码输入正确,欢迎进入系统!”,提示框中只有一个“确定”按钮,当单击“确定”按钮后,关闭该窗体;如果输入不正确,则提示框显示“密码错误!”,同时清除“tUser”和“tPass”两个文本框中的内容,并将光标置于“tUser”文本框中。当单击窗体上的“退出”按钮后,关闭当前窗体。
    注意:不允许修改报表对象“rStud”中已有的控件和属性;不允许修改表对象“tStud”。不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码;只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条代码语句、不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 步骤l:单击“设计”选项卡下“工具”组中的“查看代码”按钮,如图4—199所示,打开VBA编程环境。 [*] 步骤2:在Add1空行输入如下代码: ’***********Add1*********** If tUser = "cueb" And tPass="1234"Then ***********Add1*********** 步骤3:在Add2空行输入如下代码: ’******************Add2****************** tUser.SetFocus ’******************Add2****************** 代码窗口中输入各代码的位置如图4—200所示。 [*] 步骤4:关闭VBA编程环境,保存对窗体设计的修改,关闭窗体设计视图。 补充:①双击“窗体”对象“fSys”,弹出如图4—201所示的“系统登录”窗口。 [*] ②在“用户名称”后的文本框中输入“cueb”,在“用户密码”后的文本框中输入“1234”,单击“确定”按钮,弹出“欢迎”对话框,并在上面显示“密码输入正确,欢迎进入系统”,如图4—202所示。单击对话框中的“确定”按钮,关闭窗体。 [*] ③如果在“用户名称”后的文本框中输入“cueb”,在“用户密码”后的文本框中输入“4321”,单击“确定"按钮,在弹出的对话框中,会显示“密码错误!”,如图4—203所示。 [*] 当单击提示框中的“确定”按钮后,“用户名称”和“用户密码”后的文本框中的内容被清除,然后用户可以重新输入用户名和密码。 ④单击“退出”按钮,则当前窗体被关闭。 以上补充内容不写人操作步骤,只是为了演示前面的操作结果。

解析
转载请注明原文地址:https://jikaoti.com/ti/uj10FFFM
0

随机试题
最新回复(0)