应用题 .请在“答题”菜单下选择相应命令,并按照题目要求完成下面的操作,具体要求如下。
    考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tBook”、“tDetail”、“tEmp”和“tOrder”,查询对象“qSell”,窗体对象“fEmp”。同时还设计出以“qSell”为数据源的报表对象“rSell”。请在此基础上按照以下要求补充“fEmp”窗体和“rSell”报表的设计。
问答题 1.  将“rSell”报表标题栏上的显示文本设置为“销售报表”;对报表中名称为“txtNum”的文本框控件进行适当设置,使其显示每本书的售出数量;在报表适当位置添加一个计算控件(控件名称为“txtC2”),计算各出版社所售图书的平均单价。
    说明:报表适当位置指报表页脚、页面页脚或组页脚。
    要求:计算出的平均单价使用函数保留两位小数。
【正确答案】
   [微步骤]
   步骤1:右键单击报表“rSell”,选择“设计视图”命令。
   步骤2:单击窗体选择器,选择“属性”,在“格式”选项卡的“标题”行输入“销售报表”。
   步骤3:单击文本框“txtNum”,在属性窗口的“控件来源”行选择“数量”。
   步骤4:单击“设计”选项卡上的“分组和排序”。在下侧的“分组、排序和汇总”窗口中,单击“添加组”按钮,选择“出版社名称”字段。单击“更多”按钮,设置为“有页脚节”,“无页眉节”。
   步骤5:选中“设计”选项卡中的“文本框”控件,单击“出版社名称”页脚处,添加“Text”标签和“未绑定”文本框。
   步骤6:选中“Text”标签,按“Delete”键将其删除。单击“未绑定”文本框,在属性窗口中,单击“全部”选项卡,在“名称”行输入“txtC2”;在“控件来源”行输入“=Round(Avg([单价]),2)”。
   步骤7:保存并关闭报表。
【答案解析】
问答题 2.  在“fEmp”窗体页眉节区添加一个标签.标签名为“bTitle”,显示文本为“雇员基本情况查询”,字号为26。
【正确答案】[微步骤]
   步骤1:右键单击窗体“fEmp”,选择“设计视图”命令。
   步骤2:选中“设计”选项卡中的“标签”控件,单击窗体页眉处,然后输入“图书销售情况查询”,在属性窗口中,选中“全部”选项卡,在“名称”行输入“bTitle”;在“字号”行列表中输入“26”。
【答案解析】
问答题 3.  将“fEmp”窗体中命令按钮(名称为“CmdRefer”)上的文字颜色改为褐色(褐色代码为#7A4E2B)、字体粗细改为“加粗”、文字下方显示“下划线”。
【正确答案】[微步骤]
   单击命令按钮“CmdRefer”,在属性窗口中,“格式”选项卡的“前景色”行输入“#7A4E2B”,分别在“字体粗细”和“下划线”行右侧下拉列表中选中“加粗”和“是”。
【答案解析】
问答题 4.  将“fEmp”窗体中窗体页眉节区控件的Tab键移动次序设置为“TxtDetail”→“CmdRefer”。
【正确答案】[微步骤]
   步骤1:右键单击文本框“TxtDetail”,选择“Tab键次序”命令。
   步骤2:在弹出的窗口中,选中“TxtDetail”行,将其移动到“CmdRefer”上侧,单击“确定”按钮。
【答案解析】
问答题 5.  试根据以下窗体功能要求,补充已给的事件代码,并运行调试。
    在“fEmp”窗体的窗体页眉节区有一个文本框控件和一个命令按钮,名称分别为“TxtDetail”和“CmdRefer”;在主体节区有多个文本框控件,显示“tBook”表中的相关信息。在“TxtDetail”文本框中输入具体值后,单击“CmdRefer”命令按钮。如果“TxtDetail”文本框中没有值,则显示提示框,提示文字为“对不起!未输入雇员姓名,请输入!”;如果“TxtDetail”文本框中有值,则在“tBook”表中进行查找,如果找到了相应记录,则显示在主体节对应的文本框控件中;如果没有找到,则显示提示框,提示框显示标题为“查找结果”,提示文字为“对不起!没有这个雇员!”,提示框中只有一个“确定”按钮,然后清除“TxtDetail”文本框中的内容,并将光标置于“TxtDetail”文本框中。
    注意:不允许修改报表对象“rSell”中未涉及的控件、属性;不允许修改表对象“tBook”、“tDetail”、“tEmp”和“tOrder”,不允许修改查询对象“qSell”。不允许修改窗体对象“fEmp”中未涉及的控件、属性和任何VBA代码;只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条代码语句,不允许增删和修改其他位置已存在的语句。
【正确答案】[微步骤]
   步骤1:右键单击命令按钮“查询”,选择“事件生成器”。在代码窗口输入代码。
   '*****Add1*****
   Set rs=New ADODB.Recordset
   '*****Add1*****
   '*****Add2*****
   If rs.EOF Then
   '*****Add2*****
   '*****Add3*****
   Me.TxtDetail=""
   '*****Add3*****
   保存,关闭界面。
【答案解析】