在考生文件夹下有一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时,给出窗体对象“fEmp”上一个按钮的单击事件代码,请按以下功能要求补充设计: (1)设置窗

admin2013-11-19  32

问题 在考生文件夹下有一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时,给出窗体对象“fEmp”上一个按钮的单击事件代码,请按以下功能要求补充设计:
    (1)设置窗体对象“fEmp”上两个命令按钮的Tab键索引顺序(即Tab键焦点移动顺序)为从“报表输出”按钮(名为“bt1”)到“退出”按钮(名为“bt2”)。
    (2)调整窗体对象“。fEmp”上“退出”按钮(名为“bt2”)的大小和位置,要求大小与“报表输出”按钮(名为“bt1”)一致,且上边对齐“报表输出”按钮,左边距离“报表输出”按钮1厘米(即“bt2”按钮的左边距离“bt1”按钮的右边1厘米)。
    (3)将报表记录数据按照先姓名升序再年龄降序排列显示;设置相关属性,将页面页脚区域内名为“tPage”的文本框控件实现以“第N页/共M页”形式显示。
    (4)单击“报表输出”按钮(名为“bt1”),事件代码会弹出以下图例显示的消息框提示,选择是否进行预览报表“rEmp”;单击“退出”按钮(名为“bt2”),调用设计好的宏“mEmp”以关闭窗体。

    注意:不要修改数据库中的表对象“tEmp”和宏对象“mEmp”;不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。
    程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句,从而完成设计,不允许增、删和修改其他位置已存在的语句。
  Option Compare Database
  Private Sub btl_Click()
    消息框提示报表输出(外观样式见题干图例)
    *****Add*****
    *****Add*****
    预览方式输出报表rEmp
    DoCmd.OpenReport“rEmp”,acViewPreview
    End If
End Sub

选项

答案(1)[操作步骤] 步骤1:选择“窗体”对象,在设计视图中打开窗体“fEmp”。 步骤2:右键单击命令按钮“报表输出”,从弹出的快捷菜单中选择“Tab键次序”,在“Tab键次序”对话框的“自定义顺序”列表中选中“bt2”拖动到“btl”下,松开鼠标,单击“确定”按钮。 (2)[操作步骤] 步骤1:右键单击按钮“报表输出”,从弹出的快捷菜单中选择“属性”命令,查看“上边距”、“左边距”、“宽度”、“高度”,并记录下来。 步骤2:设置“退出”命令按钮与“报表输出”一致。在属性窗口中,单击对象列表的下拉按钮[*],在下拉列表中选择“bt2”,切换到“bt2”按钮属性,按题目要求设置按钮位置,保存并关闭属性窗口及设计视图。 (3)[操作步骤] 步骤1:选择“报表”对象,右键单击“rEmp”,从弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击菜单栏“视图”|“排序与分组”命令,在“排序与分组”对话框的“字段/表达式”第一行右侧下拉列表中选中“姓名”,在“排序次序”第一行右侧下拉列表中选中“升序”。在“字段/表达式”第二行右侧下拉列表中选中“年龄”,在“排序次序”第二行右侧下拉列表中选中“降序”。 步骤3:右键单击“tPage”控件,从弹出的快捷菜单中选择“属性”命令,在“全部”选项卡“控件来源”行输入:=“第”&[Page]&“页/共”&[fJages]&“页”,关闭属性界面。单击工具栏中“保存”按钮[*],关闭设计视图。 (4)[操作步骤] 步骤1:选中“窗体”对象,右键单击“fEmp”选择“设计视图”命令。 步骤2:右键单击按钮“报表输出”选择“事件生成器”命令进入编程环境,输入以下代码。 *****Add***** if MsgBox(“报表预览”,vbYesNo+vbQuestion,“确认”)=vbYes Then *****Add***** 保存并关闭界面。 步骤3:右键单击命令按钮“退出”选择“属性”命令,在“事件”选项卡的“单击”行右侧下拉列表中选中“mEmp”,单击工具栏中“保存”按钮[*],关闭设计视图。

解析 第1、2、3小题分别在窗体和报表的设计视图中右键单击控件名选择“属性”命令,设置属性;第4小题直接右键单击控件名选择“事件生成器”命令,输入代码。
转载请注明原文地址:https://jikaoti.com/ti/KhV0FFFM
0

最新回复(0)