在考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的表对象“tCollect”,查询对象“qT”,同时还有以“tCollect”为数据源的窗体对象“fCollect”。请在此基础上按照以下要求补充窗体设计。 (1)将窗体“fCol

admin2018-09-25  17

问题 在考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的表对象“tCollect”,查询对象“qT”,同时还有以“tCollect”为数据源的窗体对象“fCollect”。请在此基础上按照以下要求补充窗体设计。
(1)将窗体“fCollect”的记录源改为查询对象“qT”。
(2)在窗体“fCollect”的窗体页眉节区添加一个标签控件,名称为“bTitle”,标题为“CD明细”,字体为“黑体”,字号为20,字体粗细为“加粗”。
(3)将窗体标题栏上的显示文字设为“CD明细显示”。
(4)在窗体页脚节区添加一个命令按钮,命名为“bC”,按钮标题为“改变颜色”。
(5)设置命令按钮bC的单击事件,单击该命令按钮后,CDID标签的显示颜色改为红色。要求用VBA代码实现。
注意:不能修改窗体对象“fCollect”中未涉及的控件和属性;不能修改表对象“tCollect”和查询对象“qT”。

选项

答案【操作步骤】 (1)步骤1:选中“窗体”对象,右键单击“fCollect”选择“设计视图”,打开如图4—233所示的设计视图窗口。 [*] 步骤2:右键单击窗体空白处,选择“属性”,在“全部”选项卡中的“记录源”行右侧下拉列表中选中“qT”,如图4—234所示,关闭属性表。 [*] (2)步骤1:右键单击“主体”标题栏,选择“窗体页眉/页脚”,如图4—235所示,选择“设计”选项卡“控件”组中的“标签”控件,单击窗体页眉处,然后输入“CD明细”,如图4—236所示,单击窗体任一点。 [*] 步骤2:右键单击“CD明细”标签选择“属性”,在“全部”选项卡下的“名称”行输入“bTitle”,分别在“字体名称”“字号”和“字体粗细”行右侧下拉列表中选中“黑体”“20”和“加粗”,如图4—237所示,关闭属性表。 [*] (3)步骤1:右键单击窗体空白处选择“属性”。 步骤2:在“标题”行输入“CD明细显示”,如图4—238所示,关闭属性表。 [*] (4)步骤1:选择“设计”选项卡下“控件”组中的“按钮”控件,如图4—239所示,单击窗体页脚节区适当位置,弹出“命令按钮向导”对话框,如图4—240所示,单击“取消”按钮。 [*] 步骤2:右键单击该命令按钮选择“属性”,在“全部”选项卡的“名称”和“标题”行输入“bC”和“改变颜色”,如图4—241所示,关闭属性表。 [*] (5)步骤1:右键单击命令按钮“bC”选择“事件生成器”,在弹出的“选择生成器”对话框中选择“代码生成器”,如图4—242所示,单击“确定”按钮。 [*] 步骤2:在弹出的代码编辑窗口中的空行内输入代码“CDID_标签.ForeColor=vbRed”,如图4—243所示,关闭界面。按Ctrl+S保存修改,关闭设计视图。 [*] 补充:①双击左侧导航窗口中的窗体对象“fCollect”,弹出如图4—244所示的“输入参数值”对话框。 [*] ②在文本框中随便输入表tCollect中的一个CDID编号,比如输入000002后,会弹出“CD明细显示”窗口,如图4—245所示,在下方显示该编号的相关信息,并且CDID标签的颜色为黑色。 [*] ③单击底端的“改变颜色”按钮,可以看到CDID标签的颜色由之前的黑色变为红色,如图4—246所示。 [*] 以上补充内容不写入操作步骤,只是为了演示前面的操作结果。

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

最新回复(0)