考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时,给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码,试按以下功能

admin2010-11-13  14

问题   考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时,给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码,试按以下功能要求补充设计。
    (1)将窗体“fEmp”上标签“bTitle”以特殊效果:阴影显示。
    (2)已知窗体“fEmp”的三个命令按钮中,按钮“bt1”和“bt3”的大小一致且左对齐。现要求在不更改“bt1”和“bt3”大小位置的基础上,调整按钮“bt2”的大小和位置,使其大小与“bt1”和“bt3”相同,水平方向左对齐“bt1”和“bt3”,竖直方向在“bt1”和“bt3”之间的位置。
    (3)在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示:单击“预览”按钮(名为“bt1”)或“打印”按钮(名为“bt2”),事件过程传递参数调用同一个用户自定义代码(mdPnt)过程,实现报表预览或打印输出;单击“退出”按钮(名为“bt3”),调用设计好的宏“mEmp”来关闭窗体。
    (4)将报表对象“rEmp”的记录源属性设置为表对象“tEmp”。
    注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”:不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。
    程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 (1)步骤1:打开“samp3.mdb”数据库窗口,选中“窗体”对象,右键单击“fcmp”,选择“设计视图”命令。 步骤2:右键单击标签“bTitle”,选择“属性”命令,在“属性”对话框的“全部”选项卡的“特殊效果”行中选择“阴影”,关闭“属性”对话框。 步骤3:单击工具栏中的“保存”按钮。 (2)步骤1:按键,选中“bt1”、“bt2”、“bt3”控件。 步骤2:执行【格式】→【垂直间距】→【相同】菜单命令,执行【格式】→【水平间距】→【相同】菜单命令,执行【格式】→【大小】→【至最高】菜单命令,执行【格式】→【对齐】→【靠左】菜单命令,执行【格式】→【大小】→【至最宽】菜单命令。关闭“属性”对话框。 步骤3:单击工具栏中的“保存”按钮。 (3)步骤1:右键单击窗体,选择“事件生成器”命令,输入代码: “*****Add1*****” bTitle.ForeColor=255 “*****Add1*****” 步骤2:关闭代码窗口。 步骤3:右键单击bt1按钮,选择“事件生成器”命令,输入代码: “*****Add2*****” mdPntacPreview “*****Add2*****” 步骤4:关闭代码窗口。 (4)步骤1:选中“报表”对象,右键单击“rEmp”,选择“设计视图”菜单项。 步骤2:右键报表选择“属性”快捷菜单命令,在“属性”对话框的下拉列表框中选中“报表”,然后设置“记录源”为表“tEmp”。 步骤3:关闭“属性”对话框。 步骤4:单击工具栏中的“保存”按钮,关闭设计视图。 步骤5:运行该窗体,查看运行结果。

解析 本题考点:窗体属性的设置;窗体中标签、命令按钮控件属性的设置;报表属性的设置,VBA编程。
转载请注明原文地址:https://jikaoti.com/ti/2mXiFFFM
0

最新回复(0)