2. 计算机
  3. 在考生文件夹下存在一个数据库文件“samp3．accdb”，里面已经设计好表对象“tStud”，同时还设计出窗体对象“fStud”和子窗体对象“fDetail”。请在此基础上按照以下要求补充“fStud”窗体的设计。 (1)将窗体标题改为“学生查询”。 (

在考生文件夹下存在一个数据库文件“samp3．accdb”，里面已经设计好表对象“tStud”，同时还设计出窗体对象“fStud”和子窗体对象“fDetail”。请在此基础上按照以下要求补充“fStud”窗体的设计。 (1)将窗体标题改为“学生查询”。 (

admin2018-09-25  18
问题 在考生文件夹下存在一个数据库文件“samp3．accdb”，里面已经设计好表对象“tStud”，同时还设计出窗体对象“fStud”和子窗体对象“fDetail”。请在此基础上按照以下要求补充“fStud”窗体的设计。
(1)将窗体标题改为“学生查询”。
(2)将窗体的边框样式改为“细边框”，取消窗体中水平和垂直滚动条、记录选择器、浏览按钮(导航按钮)和分割线；将子窗体边框样式改为“细边框”，取消子窗体中的记录选择器、浏览按钮(导航按钮)和分割线。
(3)在窗体中有两个标签控件，名称分别为“Label1”和“Label2”，将这两个标签上的文字颜色改为白色，背景颜色改为紫蓝色(紫蓝色代码为8388608)。
(4)将窗体主体节中控件的Tab次序改为：“cItem”→“TxtDetail”→“CmdRefer”→“CmdList”→“CmdClear”→“fDetail”→“简单查询”→“Framel8”。
(5)按照以下窗体功能，补充事件代码设计。
在窗体中有一个组合框控件和一个文本框控件，名称分别为“cItem”和“TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“CmdList”“CmdRefer”和“CmdClear”。在“cItem”组合框中选择某一项目后，“Lxletail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“cItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为“注意”，提示文字为“查询项目和查询内容不能为空”，消息框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将“cItem”和“TxtDetail”两个控件中的值清空。
注意：不允许修改窗体对象“fStud”和子窗体对象“fDetail”中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tStud”。代码设计只允许补充一条语句、完成设计，不允许增删和修改其他位置已存在的语句。
选项
答案【操作步骤】 (1)步骤1：选择“窗体”对象，右击“fStud”，在弹出的快捷菜单中选择“设计视图”命令，打开设计视图，如图4—171所示。 [*] 步骤2：在窗体的任意位置右击，在弹出的快捷菜单中选择“属性”命令，如图4—172所示，在打开的“属性表”下拉列表中选择“窗体”，在“全部”选项卡中的“标题”文本框中输入“学生查询”，如图4—173所示。 [*] (2)步骤1：在“属性表”的“格式”选项卡中，选择“边框样式”下拉列表中的“细边框”选项，如图4—174所示。 [*] 步骤2：分别单击选择“滚动条”“记录选择器”“导航按钮”和“分隔线”下拉列表中的“两者均无”或“否”选项，如图4—175所示。 [*] 步骤3：按照同样的方法设置子窗体“fDetail”的“边框样式”为“细边框”，“记录选择器”“导航按钮”“分割线”均设置为“否”，如图4—176所示。 [*] (3)步骤：在“属性表”下拉列表中分别选择“Label1”和“Label2”，在“格式”选项卡中设置“前景色”为“#FFFFFF”，设置“背景色”为“#2F3699”，如图4—177所示。 [*] 两个标签依次设置完成后，可以看到窗体的设计视图中两个标签的文字颜色和背景颜色均变成题中要求颜色，如图4—178所示，关闭“属性表”。 [*] (4)步骤1：在窗体的任意位置右击，在弹出的快捷菜单中选择“Tab键次序”命令，打开“Tab键次序”对话框，如图4—179所示，在“自定义次序”列表中，根据题目要求通过拖动各行来调整Tab键的次序，调整后的次序如图4—180所示。 [*] 步骤2：单击“确定”按钮，关闭“Tab键次序”对话框。 (5)步骤：在设计视图中的任意位置右击，在弹出的快捷菜单中选择“事件生成器”命令，在弹出的“选择生成器”对话框中选择“代码生成器”选项，如图4—181所示。 [*] 单击“确定”按钮，在打开的代码编辑窗口中在空行依次输入： ’*************************Add1************************* Dim aa aa=cItem．Value Ldetail．Caption=aa+"内容：" ’*************************Add1************************* ’*************************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/kL10FFFM
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)