考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计: (1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为

admin2010-11-13  9

问题 考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计:
    (1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为:2006年9月30日(含)以前的时间、相应有效性文本设置为“输入2006年9月以前的日期”。
    (2)设置报表“rEmp”按照“年龄”字段降序排列输出;将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码.总页数”形式的页码显示(如1-15、2-15、…)。
    (3)将“fEmp”窗体上名为“bTitle”的标签宽度设置为5厘米、高度设置为1厘米,设置其标题为“数据信息输出”并居中显示。
    (4)“fEmp”窗体上单击“输出”命令按钮(名为“bmP”),实现以下功能:计算Fibonacci数列第19项的值,将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存;单击“打开表”命令按钮(名为“btnQ”),调用宏对象“mEmp”以打开数据表“tEmp”。
    Fibonacci数列:
    调试完毕,必须单击“输出”命令按钮生成外部文件,才能得分。
    试根据上述功能要求。对已给的命令按钮事件过程进行补充和完善。
    注意:不允许修改数据库中的宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不允许修改表对象“tEmp”中未涉及的字段和属性。
    程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 (1)步骤1:打开“samp3.mdb”数据库窗口,选中“表”对象,右键单击“tEmp”,选择“设计视图”命令。 步骤2:单击“聘用时间”字段,在“字段属性”的“有效性规则”行输入:<=#2006-9-30#,在“有效性文本”行中输入:输入2006年9月以前的日期。 步骤3:单击工具栏中的“保存”按钮,关闭设计视图。 (2)步骤1:选中“报表”对象,右键单击“rEmp”,选择“设计视图”命令。 步骤2:执行【视图】→【排序与分组】菜单命令,在对话框的“字段/表达式”下拉列表中选中“年龄”字段,在“排序次序”下拉列表中选中“降序”,关闭界面。 步骤3:右键单击“tPage”,选择“属性”命令,在“属性”对话框的“全部”选项卡“控件来源”行中输入:=[Page]&“-”&[Pages],关闭“属性”对话框。 步骤4:单击工具栏中的“保存”按钮,关闭设计视图。 (3)步骤1:选中“窗体”对象,右键单击“fEmp”,选择“设计视图”命令。 步骤2:右键单击标签控件“bTitle”,选择“属性”命令,在“属性”对话框的“标题”行中输入:数据信息输出,在“宽度”和“高度”行中输入:“5cm”和“1cm”,并在“文本对齐”行右边的下拉列表中选择“居中”,关闭“属性”对话框。 (4)步骤1:右键单击命令按钮“输出”,选择“事件生成器”命令,在空行相应位置输入如下代码: *****Add1***** Dim f(19)As Integer *****Add1***** *****Add2****** f(i)=f(i-1)+f(i-2) *****Add2***** *****Add3***** tData=f(19) *****Add3***** 步骤2:关闭代码窗口。 步骤3:单击工具栏中的“保存”按钮,关闭设计视图。 步骤4:双击“fEmp”窗体,将其在窗体视图下打开,然后单击窗体上的“输出”命令按钮,生成外部文件,最后关闭窗体。

解析 本题考点:表中字段属性有效性规则的设置;窗体中命令按钮控件和报表中文本框控件属性的设置;VBA编程。
转载请注明原文地址:https://jikaoti.com/ti/MmXiFFFM
0

相关试题推荐
最新回复(0)