在考生文件夹下“samp3.accdb”数据库中已经设计好表对象“tStudent”和“tGrade”,同时还设计出窗体对象“fGrade”和“tStudent”。请在此基础上按照以下要求补充“fStudent”窗体的设计: (1)将“fStudent”窗

admin2017-10-21  23

问题 在考生文件夹下“samp3.accdb”数据库中已经设计好表对象“tStudent”和“tGrade”,同时还设计出窗体对象“fGrade”和“tStudent”。请在此基础上按照以下要求补充“fStudent”窗体的设计:
(1)将“fStudent”窗体标题改为“团员信息显示”,边框改为“对话框边框”样式,取消窗体中的水平和垂直滚动条。
(2)将名称为“标签15”的标签控件名称改为“tStud”,标题改为“团员成绩”。
(3)在“fStudent”窗体装载事件中,代码设置相关属性完成团员信息输出。
(4)在“fStudent”窗体打开事件中,代码设置“子对象”控件的源对象属性为“fGrade”窗体,并取消其“导航按钮”。
(5)单击“fStudent”窗体的“退出”命令按钮(名称为bQuit),应关闭窗体。系统己提供了部分VBA代码,请按照VBA代码中的指示将代码补充完整。
注意:不允许修改窗体对象“tVJrade”和“tStudent”中未涉及的控件;属性不允许修改表对象“tStudent”和“tGrade”。程序代码只允许在“***Add***”与“***Add***”之间的空行内补充一条代码语句、不允许增删和修改其它位置己存在的语句。

选项

答案【操作步骤】 (1)步骤1:双击“samp3.accdb”数据库,在对象导航窗格中右键单击“fStudent”窗体,选择右键菜单“设计视图”,进入窗体的设计视图。 步骤2:在窗体空白处鼠标右键,在弹出的快捷菜单上选择“属性”命令,在<属性表>对话框的“格式”选项卡中设置“标题”为“团员信息显示”“边框样式”为“对话框边框”“滚动条”为“两者均无”。 步骤3:单击快速访问工具栏中的“保存”按钮;保存本步骤设计。 (2)步骤1:在<属性表>对话框上方的对象选择器中选中“标签15”的标签控件,设置“名称”为“tStud”“标题”为“团员成绩”。 步骤2:单击快速访问工具栏中的“保存”按钮,保存本步骤设计。 (3)步骤1:在<属性表>对话框上方的对象选择器中选中“窗体”的标签控件,单击“事件”选项卡,在“加载”行内选择“事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。在“**Addl**”之间输入:Me.Filter=”政治面貌=团员" 说明:即设置窗体加载时对数据源筛选的条件。 步骤2:单击快速访问工具栏中的“保存”按钮。 (4)步骤1:在“****Add2****”之间输入: Me!子对象.SourceObject=”fGrade” 说明:指定“子窗体/子报表”控件“子对象”中加载的子窗体为“fGrade”。 步骤2:在“****Add3****”之间输入: Me!子对象.Form.NavigationButtons=False 说明:指定“子对象”中加载的子窗体为“:fGrade”的不显示导航按钮。 步骤3:单击快速访问工具栏中的“保存”按钮。 (5)步骤1:在“****Add4****"之间输入: DoCmd.Close acForm,“fStudent” 说明:利用DoCmd对象,关闭"fStudent"窗体。 步骤2:单击快速访问工具栏中的“保存”按钮。 步骤3:单击“窗体设计工具”选项卡中“视图”命令组的“窗体视图”运行窗体,如图8-14所示。 [*] 步骤4:关闭“fStudent”报表和“samp3.accdb”窗口。

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

最新回复(0)