考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好窗体对象“fSys”。请在此基础上按照以下要求补充“fSys”窗体的设计: 按照以下窗体功能,补充事件代码设计。 在窗体中有“用户名称”和“用户密码”两个文本框,名称分别为“

admin2017-07-04  25

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

选项

答案步骤1:单击“窗体设计工具-设计”功能区的“工具”分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“****Add1****”行之间输入代码: If name=’’cueb’’And pass=’’1234’’Then 在“***Add2***”行之间输入代码: Me!ffJser.SetFocus 在“***Add3***”行之间输入代码:DoCmd.Close 步骤2:关闭代码窗口。单击快速访问工具栏中的“保存”按钮,关闭设计视图。

解析
转载请注明原文地址:https://kaotiyun.com/show/osMp777K
0

最新回复(0)