应用题
.请在“答题”菜单下选择相应命令,并按照题目要求完成下面的操作,具体要求如下。
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail”,同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按照以下要求补充“fStud”窗体和“rStud”报表的设计。
问答题
1. 在报表的页眉节区位置添加一个标签控件,其名称为“bTitle”,标题显示为“团员基本信息表”;将名称为“tSex”的文本框控件的输出内容设置为“性别”字段值。在报表页脚节区添加一个计算控件,其名称为“tAvg”,设置相关属性,输出学生的平均年龄。
【正确答案】 [微步骤]
步骤1:右键单击报表“rStud”,选择“设计视图”命令。
步骤2:单击“设计”选项卡中的标签控件按钮,单击报表页眉区域,输入“团员基本信息表”,单击页眉其他位置以完成输入。用鼠标右击该标签控件,选择“属性”,在名称位置输入“bTitle”。
步骤3:选中报表主体区域的“未绑定”文本框,右键单击,选择“属性”,在“控件来源”行中选择“性别”。
步骤4:单击文本框控件按钮,再单击报表页脚区域,弹出“text”标签和“未绑定”文本框,将“Text”标签删除,选中“未绑定”文本框,在属性窗口的“名称”行中输入“tAvg”,在“控件来源”行中输入“=Avg([年龄])”。
步骤5:单击“保存”按钮,关闭报表设计视图。
【答案解析】
问答题
2. 将“fStud”窗体对象主体节中控件的Tab键次序移动顺序设置为“CItem”→“TxtDemil”→“CmdRefer”→“CmdList”→“CmdClear”→“fDetail”→“简单查询”。
【正确答案】[微步骤]
步骤1:右键单击窗体“fStud”,选择“设计视图”命令。
步骤2:右键单击左上角的窗体选择器,选择“Tab键次序”,打开相应对话框。
步骤3:用鼠标单击行“选择器”,选中相应的行,将控件的顺序按照题目的要求进行上下拖动,然后单击“确定”按钮。
步骤4:单击“保存”按钮。
【答案解析】
问答题
3. 在窗体加载事件中,实现重置窗体标题为当前年月加标签“tTitle”的标题内容,如“2013年06月XXXX”。其中,当前年月要求用函数获得,XXXX部分是标签“tTitle”的标题内容。
【正确答案】[微步骤]
在“fStud”窗体的设计视图中,单击属性窗口中“加载”属性右边的“…”打开代码生成器,进入编码环境,在空行中输入以下代码。
*************Add4*************
Caption=Year(Date)&"年"&Month(Date)&”月”&tTitle.Caption
*************Add4*************
关闭界面,保存设置。
【答案解析】
问答题
4. 试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行调试。
在窗体中有一个组合框控件和一个文本框控件,名称分别为“CItem”和“TxtDetail”;有两个标签控件,名称分别为“Label3”和“Ldetail”;还有三个命令按钮,名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选项目名加上“内容:”。在“TxtDetail”文本框中输入具体项目值后,单击“CmdRefer”命令按钮,如果“CItem”和“TxtDetail”两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中没有值,显示提示框,提示框标题为“注意”,提示文字为“查询项目或查询内容不能为空!!!”,提示框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显示“tStud”表中的全部记录;单击“CmdClear”命令按钮,将清空控件“CItem”和“TxtDetail”中的值。
注意:不允许修改窗体对象“fStud”和子窗体对象“fDetail”中未涉及的控件、属性和任何VBA代码;不允许修改报表对象“rStud”中已有的控件和属性;不允许修改表对象“tStud”和查询对象“qStud”。只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条代码语句、完成设计,不允许增删和修改其他位置已存在的语句。
【正确答案】[微步骤]
在代码窗口中输入以下代码。
'************Add1*************
Dim aa
aa=cItem.Value
Ldetail.Caption=aa+"内容:"
'************Add1*************
*************Add2*************
fDemil.Form.RecordSource="tStud"
*************Add2*************
*************Add3*************
MsgBox"查询项目或查询内容不能为空!!!",vbOKOnly,"注意"
*************Add3*************
【答案解析】