在考生文件夹下存在一个数据库文件“samp3.acedb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”和子窗体对象“fDetail”。请在此基础上按照以下要求补充“fStud”窗体的设计。 按照以下窗体功能,补充事件代码设计。

admin2019-01-09  39

问题 在考生文件夹下存在一个数据库文件“samp3.acedb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”和子窗体对象“fDetail”。请在此基础上按照以下要求补充“fStud”窗体的设计。
按照以下窗体功能,补充事件代码设计。
    在窗体中有一个组合框控件和一个文本框控件,名称分别为“cItem”和“TxtDetail”;有两个标签控件,名称分别为“Label3”和“Ldetail”;还有三个命令按钮,名称分别为“CmdList”“CmdRefer”和“CmdClear”。在“cItern”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选项目名加上“内容:”。在“TXtDetail”文本框中输入具体项目值后,单击“CmdRefer”命令按钮,如果“cItem”和“TxtDetail”两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中不全有值,显示消息框,消息框标题为“注意”,提示文字为“查询项目和查询内容不能为空”,消息框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显示“tStud”表中的全部记录;单击“CmdClear”命令按钮,将“cItern”和“TXtDeta”两个控件中的值清空。
    注意:不允许修改窗体对象“fStud”和子窗体对象“fDeta”中未涉及的控件、属性和任何VBA代码;不允许修改表对象“tStud”。代码设计只允许补充一条语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 步骤:在设计视图中的任意位置右击,在弹出的快捷菜单中选择“事件生成器”命令,在弹出的“选择生成器”对话框中选择“代码生成器"选项,如图4—181所示。 [*] 单击“确定”按钮,在打开的代码编辑窗口中在空行依次输入: ’*************************Add1************************* Dim aa aa=cItem.Value Ldetail.Caption=aa+"内容:" ’************************* Add2*************************= fDetail.Form.RecordSource="tStud" ’*************************Add2************************* *************************Add3************************* MsgBox"查询项目和查询内容不能为空",vbOKOnly,"注意" ’*************************Add3************************* 输入后的代码位置如图4—182所示,关闭代码生成器,按Ctrl+S保存修改。 [*] 补充:①双击“窗体”对象中的fStud,打开如图4—183所示的“学生查询”窗口。 [*] ②在“查询项目”右边的组合框中的下拉三角菜单中选中姓名,会看到“查询内容”标签变成“姓名内容:”,此时单击“查询”按钮,会弹出“注意”对话框,上面显示“查询项目和查询内容不能为空”,如图4—184所示,单击“确定”按钮。如果“查询项目”和“查询内容”均为空,单击“查询”按钮,依然会弹出“注意”对话框。 [*] ③如果在“姓名内容:”后面的文本框中随便输入学生基本信息中的一个名字,比如“李林”,单击“查询”按钮,会看到“学生基本信息”标签下只显示关于李林的信息,如图4—185所示。 [*] ④单击“重填”命令按钮,会看到“查询项目”后的组合框和“姓名内容”后的文本框的内容被清空。然后可以开始新的项目查询。 以上补充内容不写入操作步骤,只是为了演示前面的操作结果。

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

最新回复(0)