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

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

admin2013-04-09  77
问题 考生文件夹下存在一个数据库文件"samp3.mdb"，里面已经设计好表对象"tStud",同时还设计出窗体对象"fStud"和子窗体对象"fDetail"。请在此基础上按照以下要求补充"fStud"窗体的设计。
   （1）将窗体标题改为"学生查询"。
   （2）将窗体的边框样式改为"细边框"，取消窗体中水平和垂直滚动条、记录选定器、浏览按钮（导航按钮）和分割线；将子窗体边框样式改为"细边框"，取消子窗体中的记录选定器、浏览按钮（导航按钮）和分割线。
   （3）在窗体中有两个标签控件，名称分别为"Label1"和"Label2"，将这两个标签上的文字颜色改为白色，背景颜色改为紫蓝色（紫蓝色代码为8388608）。
   （4）将窗体主体节中控件的Tab次序改为：
    "CItem"→"TxtDetail"→"CmdRefer"→"CmdList"→"CmdClear"→"fDtail"→"简单查询"→"Frame18"。
   （5）按照以下窗体功能，补充事件代码设计。
    在窗体中有一个组合框控件和一个文本框控件，名称分别为"CItem"和"TxtDetail"；有两个标签控件，名称分别为"Label3"和"Ldetail"；还有三个命令按钮，名称分别为"CmdList"、"CmdRefer"和"CmdClear"。在"CItem"组合框中选择某一项目后，"Ldetail"标签控件将显示出所选项目名加上"内容："。在"TxtDetail"文本框中输入具体项目值后，单击"CmdRefer"命令按钮，如果"CItem"和"TxtDetail"两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为"注意"，提示文字为"查询项目和查询内容不能为空！！！"，消息框中只有一个"确定"按钮；单击"CmdList"命令按钮，在子窗体中显示"tStud"表中的全部记录；单击"CmdClear"命令按钮，将"CItem"和"TxtDetail"两个控件中的值清空。
    注意：不允许修改窗体对象"fStud"和子窗体对象"fDetail"中未涉及的控件、属性和任何VBA代码；不允许修改表对象"tStud"。代码设计只允许补充一条语句、完成设计，不允许增删和修改其他位置已存在的语句。
选项
答案(1)【操作步骤】 步骤1：选择"窗体"对象，右击"fStud"，在弹出的快捷菜单中选择"设计视图"命令，打开设计视图。 步骤2：在窗体的任意位置右击，在弹出的快捷菜单中选择"属性"命令，在打开的"属性"对话框的下拉列表中选择"窗体"，并选择"全部"选项卡。在"标题" 文本框中输入"学生查询"。 (2)【操作步骤】 步骤1：在"属性"对话框的"格式"选项卡中，选择"边框样式"下拉列表中的"细边框"选项。 步骤2：分别单击选择"滚动条"、"记录选择器"、"导航按钮"和"分隔线"下拉列表中的"两者均无"或"否"选项。 步骤3：按照同样的方法设置子窗体的"边框样式"为"细边框"，再设置"记录选择器"、"导航按钮"和"分隔线"的属性。 （3）【操作步骤】 在"属性"对话框中分别选择"Label1"和"Label2",在"格式"选项卡中设置"前景色"为"白色"，设置"背景色"为"8388608"。关闭"属性"对话框。 （4）【操作步骤】 步骤1：在窗体的任意位置右击，在弹出的快捷菜单中选择"Tab键次序"命令，打开 "Tab键次序"对话框，在"自定义顺序"列表中通过拖动各行来调整Tab键的次序。 步骤2：单击"确定"按钮，关闭"Tab键次序"对话框。 （5）【操作步骤】 在设计视图中的任意位置右击，在弹出的快捷菜单中选择"事件生成器"命令，在弹出的对话框中选择"代码生成器"选项，单击"确定"按钮，在空行依次输入： ’************************* Add1 ************************ Dim aa aa = cItem.Value Ldetail.Caption = aa + "内容：" ’************************* Add1 ************************ ’************************* Add2 ************************ fDetail.Form.RecordSource = "tStud" ’************************* Add2 ************************ ’************************* Add3 ************************* MsgBox "查询项目和查询内容不能为空", vbOKOnly, "注意" ’************************* Add3 *************************
解析
转载请注明原文地址:https://www.kaotiyun.com/show/F2rp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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