考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tBorrow”、“tReader”和“tBook”,查询对象“qT”,窗体对象“fReader”和报表对象“rReader”。请在此基础上按照以下要求补充设计。 (1

admin2016-08-22  24

问题 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tBorrow”、“tReader”和“tBook”,查询对象“qT”,窗体对象“fReader”和报表对象“rReader”。请在此基础上按照以下要求补充设计。
    (1)在报表“rReader”的报表页眉节区内添加一个标签控件,其名称为“bTitle”,标题显示为“高级读者借阅情况”,字体名称为“黑体”,字体大小为22,同时将其安排在距上边0.5cm、距左侧2cm的位置。
    (2)设计报表“rReader”的主体节区为“tSex”文本框控件,设置数据来源显示性别信息,并要求按“借书日期”字段升序显示,“借书日期”的显示格式为“长日期”的形式。
    (3)设置窗体“bList”按钮的标题为“高级读者信息”;单击该按钮,其事件代码以预览方式打开“rReader”报表,条件输出高级读者(职称为“教授”和“副教授”的读者)借阅信息。
    (4)窗体加载时设置窗体标题属性为系统当前日期,设置“flitle”标签的标题为“读者借阅信息”。
    注意:不允许修改窗体对象“:fReader”和报表对象“rReader”中未涉及的控件和属性;不允许修改表对象“tBorrow”、“tReader”和“tBook”及查询对象“qT”的内容;程序代码只允许在“*****Add*****与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句。

选项

答案(1)【操作步骤】 步骤1:选择“报表”对象,右键单击“rReader”报表,在弹出的快捷菜单中选择“设计视图”命令,打开设计视图。 步骤2:右键单击“页面页眉”节的任一点,在弹出的快捷菜单中选择“报表页眉/页脚(H)”命令。如图所示。 [*] 步骤3:单击“报表设计工具”下的“设计”选项卡,然后再单击该选项卡下“控件”组中的“标签”控件。如下图所示。 [*] 步骤4:在“报表页眉”节区中单击任一点,即可出现标签控件,右键单击该控件,在弹出的快捷菜单中选择“属性”命令,弹出“属性表”对话框,然后单击该对话框中的“全部”选项卡,在该选项卡下的“名称”行中输入“bTitlP”.在“标题”行中输入“高级读者借阅情况”,在“字体名称”行的下拉列表中选择“黑体”,在“字号”行中输入“22”,如下图所示,单击快速工具栏中的“保存”按钮,关闭属性表。 [*] (2)【操作步骤】 步骤1:右键单击文本框控件“tSex”(即未绑定控件),在弹出的快捷菜单中选择“属性”命令,弹出属性表”对活框,然后单击该对话框的“全部”选项卡,在该选项卡的“控件来源”下拉列表框中选择“性别”,单击快速工具栏中的“保存”按钮.关闭属性表。 步骤2:在报表主体节区中右键单击文本框控件“借书日期”,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,然后单击该对话框的“全部”选项卡,在该选项卡的“格式”下拉列表中选择“长日期”,然后单击快速工具栏中的“保存”按钮,关闭属性表。 步骤3:在“分组、排序和汇总”窗口中单击“添加排序”按钮,在“排序依据”行的“选择字段”下拉列表中选择“借书日期”字段,在“排序次序”下拉列表中选择“升序”,如下图所示。 [*] 步骤4:单击快速工具栏中的“保存”按钮,然后关闭“设计视图”。 (3)【操作步骤】 步骤1:选择“窗体”对象,右键单击“fReader”窗体,在弹出的快捷菜单中选择“设计视图”命令,打开窗体的设计视图。 步骤2:在“窗体页脚”区中,右键单击命令按钮“bList”,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,然后单击该对话框的“全部”选项卡,在该选项卡下的“标题”行中输入“高级读者信息”;在该窗口中,单击“事件”选项卡,单击“单击”行右侧的事件生成器按钮,进入VBA代码编辑区。 步骤3:在“′*****Add3*****”区域的空白行中输入“DoCmd.OpenReport”rReader”,acViewPreview,"qT","职称=‘教授’0r职称=‘副教授’",如下图所示。 [*] 步骤4:单击快速工具栏中的“保存”按钮,关闭VBA代码编辑区。 (4)【操作步骤】 步骤1:双击标尺相交的“窗体选择器”,弹出“属性表”对话框,在该对话框中单击“事件”选项卡,然后再单击该选项卡“加载”行的事件生成器按钮,进入VBA代码编辑区。 步骤2:在“*****Add1*****”区域的空白行中输入“Me.Caption=Date”;在“*****Add2*****”区域的空白行中输入“Me.fritle.Caption="读者借阅信息"”,如下图所示。 [*] 步骤3:单击快速工具栏中的“保存”按钮,然后关闭VBA代码编辑区。 步骤4:单击快速工具栏中的“保存”按钮,然后关闭“设计视图”。

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

最新回复(0)