考生文件夹下存在一个数据库文件“samp3, accdb”,里面已经设计好表对象“tNorm”和“tStock”,查询对象“qStock”和宏对象“ml”,同时还设计出以“tNorm”和“tStock”为数据源的窗体对象“fStock”和“fNorm”。具

admin2017-07-27  35

问题 考生文件夹下存在一个数据库文件“samp3, accdb”,里面已经设计好表对象“tNorm”和“tStock”,查询对象“qStock”和宏对象“ml”,同时还设计出以“tNorm”和“tStock”为数据源的窗体对象“fStock”和“fNorm”。具体要求如下:
(1)在“fStock”窗体对象的窗体页眉节区位置添加一个标签控件,其名称为“bTitle”,初始化标题显示为“库存浏览”,字体名称为“黑体”,字号为18,字体粗细为“加粗”。
(2)在“fStock”窗体对象的窗体页脚节区位置添加一个命令按钮,命名为“bList”,按钮标题为“显示信息”。
(3)设置所建命令按钮bList的单击事件属性为运行宏对象ml。
(4)设置相关属性,取消在子窗体中添加新记录的功能;将“fStock”窗体对象中的“fNorm”子窗体的导航按钮去掉。
(5)创建窗体对象fStock的加载事件,实现设置窗体标题为“****####”。其中,****为系统日期四位当前年,用函数获取;####则要引用“bTi-tle”标签的标题内容。要求用VBA代码实现。
(6)创建窗体对象fStock的合适事件,实现窗体上“btime”标签显示动态数字时钟,要求输出格式为“12:05:08”。其中,时间用函数获取,要求用VBA代码实现。
注意:不允许修改窗体对象中未涉及的控件和属性;不允许修改表对象“tNorm”、“tStock”和宏对象“ml”。

选项

答案(1)【操作步骤】 步骤1:打开考生文件夹下数据库文件samp3.accdb,右键单击“fStock”窗体,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“设计”选项卡“控件”组中的“标签”控件,在页眉区上绘制一个矩形区域,输入内容“库存浏览”。右键单击“库存浏览”控件,在弹出的快捷菜单中选择“属性”命令。 步骤3:在“属性表”中单击“全部”选项卡,在“名称”行中输入“bTitle”;在“字体名称”行中选择“黑体”;在“字号”行中选择“18”;在“字体粗细”所在行中选择“加粗”,如图5.42所示,关闭“属性表”窗口。 [*] 步骤4:按Ctrl+S保存修改。 (2)【操作步骤】 步骤1:单击“设计”选项卡“控件”组中的“按钮”控件,在页脚区域绘制一个矩形命令按钮,右键单击,在弹出的快捷菜单中选择“属性”命令。 步骤2:在“属性表”中单击“全部”选项卡,在“名称”行中输入“bList”;在“标题”行中输入“显示信息”,如图5.43所示,关闭“属性表”窗口。 [*] 步骤3:按Ctrl+S保存修改。 (3)【操作步骤】 步骤1:右键单击页脚区“显示信息”按钮,在弹出的快捷菜单中选择“属性”命令。 步骤2:单击“事件”选项卡下“单击”行右侧的下三角按钮,在弹出的下拉列表中选择“ml”,如图5.44所示,关闭“属性表”窗口。 [*] 步骤3:按Ctrl+S保存修改,关闭设计视图。 (4)【操作步骤】 步骤1:右键单击“fNorm”窗体,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“设计”选项卡“工具”组中的“属性表”按钮,弹出“属性表”对话框,在“数据”选项卡下,将“允许添加”属性设置为“否”,如图5.45所示。 [*] 步骤3:在“全部”选项卡,将“导航按钮”属性设置为“否”,如图5.46所示,关闭“属性表”对话框。 [*] 步骤3:按Ctrl+S保存修改,关闭设计视图。 (5)【操作步骤】 步骤1:右键单击“fStock”窗体,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“设计”选项卡“工具”组中的“属性表”按钮,弹出“属性表”对话框,在“事件”选项卡下,单击“加载”右侧的“选择器生成器”按钮,弹出“选择生成器”对话框中选择“代码生成器”按钮,单击“确定”按钮,进入VBA代码编辑界面。 步骤2:在“Form_Load()”事件过程中添加代码“Me.Caption=Year(Date)&bTitle.Caption”,如图5.47所示。 [*] 步骤3:按Ctrl+S保存修改。 (6)【操作步骤】 步骤1:在VBA代码编辑窗口中添加“Form_Timer()”事件过程,输入代码“btime.Caption=Time()”,如图5.48所示。 [*] 步骤2:按Ctrl+S保存修改,关闭VBA代码编辑器,关闭设计视图。

解析 本题考点:增加窗体创建,设置窗体和控件属性,设置命令按钮的单击事件以及窗体事件的VBA代码编写。
第1、2小题在窗体的设计视图增加控件,对控件属性进行设置;第3、4小题在窗体的设计视图对控件属性进行设置;第5、6小题在窗体的设计视图用VBA代码编写设置控件的属性。
转载请注明原文地址:https://jikaoti.com/ti/v510FFFM
0

最新回复(0)