应用题 .    考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tBorrow”“tReader”和“tBook”,查询对象“qT”,窗体对象“fReader”和报表对象“rReader”。请在此基础上按照以下要求补充设计:
    【注意】不允许修改窗体对象“fReader”和报表对象“rReader”中未涉及的控件和属性;不允许修改表对象“tBorrow”“tReader”和“tBook”及查询对象“qT”的内容;程序代码只允许在“'*****Add*****”与“'*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。
问答题 1.  在报表“rReader”的报表页眉节区内添加一个标签控件,其名称为“bTitle”,标题显示为“高级读者借阅情况”,字体名称为“黑体”,字体大小为22,同时将其安排在距上边0.5cm、距左侧2cm的位置。
【正确答案】[操作步骤]
   步骤1:选择“报表”对象,右击“rReader”报表,在弹出的快捷菜单中选择“设计视图”命令,打开设计视图。
   步骤2:右击“页面页眉”节的任一点,在弹出的快捷菜单中选择“报表页眉/页脚”命令,如图所示。
   

   步骤3:单击“报表设计工具”的“设计”选项卡,然后单击该选项卡“控件”组中的“标签”控件,如图所示。
   

   步骤4:在“报表页眉”节区中单击任一点,即可出现标签控件。右击该控件,在弹出的快捷菜单中选择“属性”命令,弹出“属性表”对话框,然后单击该对话框中的“全部”选项卡,在该选项卡的“名称”行中输入“bTitle”,在“标题”行中输入“高级读者借阅情况”,在“字体名称”行的下拉列表中选择“黑体”,在“字号”行中输入“22”,如图所示。单击快速工具栏中的“保存”按钮,然后关闭“属性表”对话框。
   
【答案解析】[考点] 窗体中通过VBA编码和宏命令设置命令按钮的单击事件。在报表设置字段排序和页码显示。
第(1)、(2)小题在报表的设计视图中,右击控件选择“属性”命令,设置相关属性。第(3)小题在窗体的设计视图中右击该控件属性,对控件属性进行设置;第(4)小题直接右击窗体选择器,选择属性,设置加载事件,在VBA代码编辑页面实现代码编辑。
问答题 2.  设计报表“rReader”的主体节区为“tSex”文本框控件设置数据来源显示性别信息,并要求按“借书日期”字段升序显示,“借书日期”的显示格式为“长日期”的形式。
【正确答案】[操作步骤]
   步骤1:右击文本框控件“tSex”(即未绑定),在弹出的快捷菜单中选择“属性”命令,在弹出的“属性表”对话框中单击“全部”选项卡,在选项卡的“控件来源”下拉列表框中选择“性别”,如图所示。单击快速工具栏中的“保存”按钮,然后关闭“属性表”对话框。
   

   步骤2:在报表主体节区中右击文本框控件“借书日期”,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,然后单击该对话框的“全部”选项卡,在该选项卡的“格式”下拉列表中选择“长日期”,如图所示。单击快速工具栏中的“保存”按钮,然后关闭“属性表”对话框。
   

   步骤3:在“分组、排序和汇总”窗口中单击“添加排序”按钮,在“排序依据”行的“选择字段”下拉列表中选择“借书日期”字段,在“排序次序”下拉列表中选择“升序”,如图所示。
   
【答案解析】
问答题 3.  设置窗体“bList”按钮的标题为“高级读者信息”;单击该按钮,其事件代码预览方式打开“rReader”报表,条件输出高级读者(职称为“教授”和“副教授”的读者)借阅信息。
【正确答案】[操作步骤]
   步骤1:选择“窗体”对象,右击“fReader”窗体,在弹出的快捷菜单中选择“设计视图”命令,打开窗体的设计视图。
   步骤2:在“窗体页脚”区中,右击命令按钮“bList”,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,然后单击该对话框的“全部”选项卡,在该选项卡的“标题”行中输入“高级读者信息”;在该窗口中单击“事件”选项卡,单击“单击”行右侧的事件生成器按钮,进入VBA代码编辑区。
   步骤3:在两个“'*****Add3*****”之间的空白行中输入“DoCmd.OpenReport "rReader".acViewPreview, "qT", "职称='教授' or 职称='副教授'"”,如图所示。
   
【答案解析】
问答题 4.  窗体加载时设置窗体标题属性为系统当前日期,设置“fTitle”标签的标题为“读者借阅信息”。
【正确答案】[操作步骤]
   步骤1:双击标尺相交的“窗体选择器”,弹出“属性表”对话框,在该对话框中单击“事件”选项卡,然后再单击该选项卡“加载”行的事件生成器按钮,进入VBA代码编辑区。
   步骤2:在两个“*****Add1*****”之间的空白行中输入“Me.Caption=Date”;在两个“'*****Add2*****”之间的空白行中输入“Me.fTitle.Caption="读者借阅信息"”,如图所示。
   
【答案解析】