ACCESS培训上课资料 任课教师：高海波
（3）选择窗体\，点击\设计\，在工具箱中选择一个命令按钮控件，放到窗体页脚中，放到窗体页脚中之后会出现一个提示框，点击\取消\按钮，设置这个命令按钮的名称为\，标题属性为\显示借书信息\，单击属性为\。选中窗体，点击工具栏上的\属性\按钮，点击\加载\属性右边的\…\打开代码生成器，在\与\之间输入：Caption=Date。
35、三、综合应用：（30分）
三、综合应用：（30分）
考生文件夹下存在一个数据库文件\，里面已经设计了表对象\、窗体对象\、报表对象\和宏对象\。试在此基础上按照以下要求补充设计：
（1）设置表对象\中\聘用时间\字段的有效性规则为：2006年9月30日（含）以前的时间、相应有效性文本设置为\输入二零零六年九月以前的日期\；
（2）设置报表\按照\年龄\字段降序排列输出；将报表页面页脚区域内名为\的文本框控件设置为\页码-总页数\形式的页码显示（如1-15、2-15、...）；
（3）将\窗体上名为\的标签宽度设置为5厘米、高度设置为1厘米，设置其标题为\数据信息输出\并居中显示；
（4）\窗体上单击\输出\命令按钮（名为\），实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为\的文本框内并输出到外部文件保存；单击\打开表\命令按钮（名为\），调用宏对象\以打开数据表\。 Fibonacci数列：
调试完毕，必须点击\输出\命令按钮生成外部文件，才能得分。 试根据上述功能要求，对已给的命令按钮事件过程进行补充和完善。
注意：不允许修改数据库中的宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；不允许修改表对象\中未涉及的字段和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题主要考的是数据表有效性规则的设置、窗体的设计、报表的设计、VBA的数据库编程。 本题解题思路如下：
（1）打开考生文件夹下的\数据库。
（2）选中表对象\，点击\设计(D)\按钮，选中\聘用时间\字段，再选中下面的\有效性规则\，在\有效性规则\右边的框中输入\，然后在\有效性文本\右边的框中直接输入\输入二零零六年九月以前的日期\，然后保存该表。
（3）选中报表对象\，选择\设计(D)\，再选择\视图\菜单中的\排序与分组\，在弹出的对话框中选择\年龄\字段，排序次序选择\降序\。选中页面页脚区的\文本框控件，在文本框中输入\& \& [Pages]\，然后保存该报表。
（4）打开窗体对象\的设计视图，选中\标签，右击鼠标选择属性，设置其\宽度\为\厘米\，\高度\为\厘米\，\标题\为\数据信息输出\，文本对齐为\居中\。\输出\命令按钮单击事件的第1处需要定义19个变量的数组，语句为Dim f(19) As Integer或Dim f(1 to 19) as Integer(但答题中以前一个为准。)，第2处是For循环体，循环体是计算Fibonacci数列第19项的值，语句为f(i)=f(i-1)+f(i-2)，第3处是将计算结果显示在窗体上名为\的文本框内，语句为tData=f(19)。
（5）选中\打开表\命令按钮（名为\），点击工具栏上的\属性\按钮，设置这个命令按钮的单击属性为\，然后保存该窗体。
16
ACCESS培训上课资料 任课教师：高海波
34、三、综合应用：（30分）
三、综合应用：（30分）
考生文件夹下存在一个数据库文件\，已建立两个关联表对象（\档案表\和\工资表\）和一个查询对象（\），试按以下要求，完成报表的各种操作。
（1）创建一个名为\的报表，按表格布局显示查询\的所有信息； （2）设置报表的标题属性为\工资汇总表\；
（3）按职称升序汇总出\基本工资\的平均值和总和。\基本工资\的平均值计算控件名称为\、\总和\计算控件名称为\；
注：请在组页脚处添加计算控件。
（4）在\报表的主体节上添加两个计算控件：名为\的控件用于计算输出实发工资；名为\的控件用于计算输出应发工资。计算公式为： 应发工资：基本工资+津贴+补贴
实发工资：基本工资+津贴+补贴-住房基金-失业保险 本题主要考的是报表的设计。 本题解题思路：
（1）点击\报表\，选择\新建(N)\，在弹出的\新建报表\窗体上选择\自动创建报表：表格式\，\请选择该对象数据的来源或查询:\中选择\，点击\确定\按钮。切换到报表的\设计视图\，选择报表，设置\标题\属性为\工资汇总表\。
（2）在\视图\菜单中选择\排序与分组\子菜单，选择\职称\字段，排序次序为\升序\，\组属性\的\组页脚\选择\是\。选择一个文本框，放到\职称页脚\中，选择工具栏上的\属性\按钮，在弹出的属性框中设置名称为\，并在控件来源属性输入：=Avg([基本工资])。再选择一个文本框，放到\职称页脚\中，选择工具栏上的\属性\按钮，在弹出的属性框中设置名称为\，并在控件来源属性输入：=Sum([基本工资])。
（3）选择一个文本框，放到主体中，选择工具栏上的\属性\按钮，在弹出的属性框中设置名称为\sSalary\，并在\控件来源\属性输入：=[基本工资]+[津贴]+[补贴]-[住房基金]-[失业保险]。再选择一个文本框，放到主体中，选择工具栏上的\属性\按钮，在弹出的属性框中设置名称为\ySalary\，并在\控件来源\属性输入：=[基本工资]+[津贴]+[补贴]
（4）将该报表以\为文件名保存。
33、三、综合应用：（30分）
三、综合应用：（30分）
考生文件夹下存在一个数据库文件\，里面已经设计了表对象\和窗体对象\。同时，给出窗体对象\上\追加\按钮（名为bt1）和\退出\按钮（名为bt2）的单击事件代码，试按以下要求完成设计。 （1）删除表对象\中年龄在25到45岁之间（不含25和45）的非党员职工记录信息； （2）设置窗体对象\的窗体标题为\追加信息\；
（3）将窗体对象\上名为\的标签以特殊效果：阴影显示； （4）按照以下窗体功能，补充事件代码设计。
在窗体的四个文本框内输入合法的职工信息后，单击\追加\按钮（名为bt1），程序首先判断职工编号是否重复，如果不重复则向表对象\中添加职工纪录，否则出现提示；当点击窗体上的\退出\按钮（名为bt2）时，关闭当前窗体。
注意：不允许修改表对象\中未涉及的结构和数据；不允许修改窗体对象\中未涉及的控件和属性；代码设计只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题主要考的是窗体的设计、VBA的数据库编程。 本题解题思路如下：
（1）创建查询，在\显示表\中选择tEmp表进行添加，在\查询\菜单中点击\删除查询\，则在查询设计网格中，出现\删除\行。然后从表的字段列表中将所需判断删除条件的字段\年龄\和\党员否\拖拽到设计网格的列中。在网
17
ACCESS培训上课资料 任课教师：高海波
格中的\删除\行中将显示From或Where，在Where显示列的条件中输入题面要求的条件，\年龄\字段的条件是\And <45\，\党员否\字段的条件是\，点击工具栏上的运行按钮后即可删除满足相应条件的记录。
（2）打开窗体对象\的设计视图，设置窗体的\标题\属性为\追加信息\，选中\的标签，设置\特殊效果\属性为阴影。
（3）判断职工编号是否重复的条件为If ADOrs.EOF = False Then，关闭窗体语句为DoCmd.Close。
32、三、综合应用：（30分）
三、综合应用：（30分）
考生文件夹下存在一个数据库文件\，里面已经设计了表对象\、窗体对象\、报表对象\和宏对象\。试在此基础上按照以下要求补充设计：
（1）设置表对象\中\聘用时间\字段的有效性规则为：1991年1月1日（含）以后的时间、相应有效性文本设置为\输入一九九一年以后的日期\；
（2）设置报表\按照\性别\字段升序（先男后女）排列输出；将报表页面页脚区域内名为\的文本框控件设置为\页码/总页数-\形式的页码显示（如-1/15-、-2/15-、...）；
（3）将\窗体上名为\的标签上移到距\命令按钮1厘米的位置（即标签的下边界距命令按钮的上边界1厘米），并设置其标题为\职工信息输出\；
（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在\窗体上单击\输出\命令按钮（名为\），弹出一输入对话框，其提示文本为\请输入大于0的整数值\。 输入 1 时，相关代码关闭窗体（或程序）； 输入 2 时，相关代码实现预览输出报表对象\；
输入 >=3 时，相关代码调用宏对象\以打开数据表\。
注意：不允许修改数据库中的宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；不允许修改表对象\中未涉及的字段和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题主要考的是窗体的设计、报表的设计、VBA的数据库编程。 本题解题思路如下：
（1）打开考生文件夹下的\数据库。
（2）选中表对象\，点击\设计(D)\按钮，选中\聘用时间\字段，再选中下面的\有效性规则\，点击右边的\按钮，弹出\表达式生成器\，在文本框中输入：>=#1/1/1991#，也可以直接在\有效性规则\右边的框中输入：>=#1/1/1991#，然后在\有效性文本\右边的框中直接输入：输入一九九一年以后的日期，然后保存该表。 （3）选中报表对象\，选择\设计(D)\，再选择\视图\菜单中的\排序与分组\，在弹出的对话框中选择\性别\字段，排序次序选择\升序\。选中页面页脚区的\文本框控件，在文本框中输入：=\[Pages] & \。
（4）打开窗体对象\的设计视图，选中\标签，右击鼠标选择属性，设置其\上边距\为\厘米\，选中窗体，右击鼠标选择属性，设置其\标题\属性为\职工信息输出\。
（5）>=3的条件可以表示为Case Is>=3，预览输出报表对象\的语句为DoCmd.OpenReport \, acViewPreview。
31、三、综合应用：（30分）
三、综合应用：（30分）
考生文件夹下存在一个数据库文件\，里面已经设计了表对象\、窗体对象\、报表对象\和宏对象\。试在此基础上按照以下要求补充设计：
（1）设置表对象\中\年龄\字段的有效性规则为：年龄值在20到50之间（不含20和50），相应有效性文本设置为\请输入有效年龄\；
（2）设置报表\按照\性别\字段降序（先女后男）排列输出；将报表页面页脚区域内名为\的文本框控件设置为\页码/总页数\形式页码显示；
18
ACCESS培训上课资料 任课教师：高海波
（3）将\窗体上名为\的命令按钮由灰色无效状态改为有效状态。设置窗体标题为\职工信息输出\； （4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在\窗体上单击\输出\命令按钮（名为\），弹出一输入对话框，其提示文本为\请输入大于0的整数值\。 输入 1 时，相关代码关闭窗体（或程序）； 输入 2 时，相关代码实现预览输出报表对象\；
输入 >=3 时，相关代码调用宏对象\以打开数据表\。
注意：不允许修改数据库中的宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；不允许修改表对象\中未涉及的字段和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题主要考的是窗体的设计、报表的设计、VBA的数据库编程。 本题解题思路如下：
（1）打开考生文件夹下的\数据库。
（2）选中表对象\，点击\设计\按钮，选中\年龄\字段，再选中下面的\有效性规则\，点击右边的\按钮，弹出\表达式生成器\，在文本框中输入\>20 And <50\，也可以在\有效性规则\框中直接输入\，然后在\有效性文本\右边的框中直接输入\请输入有效年龄\，然后保存该表。
（3）选中报表对象\，选择\设计\，再选择\视图\菜单中的\排序与分组\，在弹出的对话框中选择\性别\字段，排序次序选择\降序\。选中页面页脚区的\文本框控件，在文本框中输入\=[Page] & \\。 （4）打开窗体对象\的设计视图，选中\命令按钮，设置\可用\属性为\是\，设置窗体的\标题\属性为\职工信息输出\。
（5）提示文本为\请输入大于0的整数值\的语句为k=InputBox(\请输入大于0的整数值\，预览输出报表对象\的语句为DoCmd.OpenReport \。
30、三、综合应用：（30分）
三、综合应用：（30分）
考生文件夹下存在一个数据库文件\，里面已经设计好表对象\和\，同时还设计出窗体对象\和\。请在此基础上按照以下要求补充\窗体的设计：
（1）将窗体中名称为\的标签控件上的文字颜色改为\蓝色\（蓝色代码为16711680）、字体粗细改为\加粗\；
（2）将窗体标题设置为\显示/修改用户口令\；
（3）将窗体边框改为\细边框\样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线；并且保留窗体的关闭按钮；
（4）将窗体中\退出\命令按钮（名称为\）上的文字颜色改为棕色（棕色代码为128）、字体粗细改为\加粗\，并在文字下方加上下划线；
（5）在窗体中还有\修改\和\保存\两个命令按钮，名称分别为\和\，其中\保存\命令按钮在初始状态为不可用，当单击\修改\按钮后，\保存\按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在\口令\文本框中输入的内容与在\确认口令\文本框中输入的内容不相符，当单击\保存\按钮后，屏幕上应弹出如下图所示的提示框。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
要求：修改后运行该窗体，并查看修改结果。
注意：不允许修改窗体对象\和\中未涉及的控件、属性；不允许修改表对象\和\。只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
19
ACCESS培训上课资料 任课教师：高海波
本题主要考的是窗体的设计、VBA的数据库编程。 本题解题思路如下：
（1）打开窗体对象\的设计视图，选中\的标签控件，右击鼠标选择\属性\，前景色\设置为16711680，\字体粗细\设置为\加粗\。选择\窗体，设置\标题\属性为\显示/修改用户口令\，\边框样式\为\细边框\，\滚动条\为\两者均无\。\记录选择器\、\导航按钮\和\分隔线\属性均为\否\，\关闭按钮\属性为\是\。 （2）选择\退出\命令按钮，右击鼠标选择\属性\，\前景色\设置为128，\字体粗细\为\加粗\，\下划线\为\是\。
（3）在VBA编程的第一空中，需要设置屏幕上弹出如题面所示的提示框语句，所填语句为：MsgBox \请重新输入口令！\。
29、三、综合应用：（30分）
三、综合应用：（30分）
考生文件夹下存在一个数据库文件\，里面已经设计好表对象\产品\、\供应商\、查询对象\按供应商查询\和宏对象\打开产品表\、\运行查询\、\关闭窗口\。试按以下要求完成设计：创建一个名为\的窗体，要求如下：
（1）对窗体进行如下设置：在距窗体主体左边1厘米、距上边0.6厘米处依次水平放置三个命令按钮\显示修改产品表\（名为\）、\查询\（名为\）和\退出\（名为\），命令按钮的宽度均为2厘米，高度为1.5厘米，每个命令按钮相隔1厘米。 （2）设置窗体标题为\主菜单\；
（3）当单击\显示修改产品表\命令按钮时，运行宏\打开产品表\，就可以浏览\产品\表； （4）当单击\查询\命令按钮时，运行宏\运行查询\，即可启动查询\按供应商查询\；
（5）当单击\退出\命令按钮时，运行宏\关闭窗口\，关闭\窗体，返回到数据库窗口下。 本题主要考的是窗体的设计。 本题解题思路如下：
（1）新建窗体，选择设计视图，在工具箱中选择三个命令按钮控件，放到主体中，放到主体中之后会出现一个提示框，点击\取消\按钮，并点击工具栏上的\属性\按钮，设置三个命令按钮的名称、标题、上边距、左边距、宽度和高度属性。
（2）选择窗体，设置\标题\属性为\主菜单\，选中\命令按钮，设置单击属性为\打开产品表\，选中\命令按钮，设置单击属性为\运行查询\，选中\命令按钮，设置单击属性为\关闭窗口\。 （3）保存此窗体，文件名为menu。
28、三、综合应用：（30分）
三、综合应用：（30分）
考生文件夹下存在一个数据库文件\，里面已经设计了表对象\、查询对象\和窗体对象\。同时，给出窗体对象\上\退出\按钮的单击事件代码，试按以下功能要求补充设计。 （1）将窗体\上文本框\更改为组合框类型，并保持控件名称不变；
（2）修改查询对象\为参数查询，参数为引用窗体对象\上文本框\的输入值；
（3）设置窗体对象\上文本框\为计算控件。要求根据\年龄\字段值依据以下计算公式计算并显示人员的出生年；计算公式：出生年=Year(Date())-年龄 或 出生年=Year(Now())-年龄 （4）单击\退出\按钮（名为\），关闭窗体。补充事件代码。
注意：不允许修改数据库中的表对象\；不允许修改查询对象\中未涉及的内容；不允许修改窗体对象\中未涉及的控件和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题主要考的是窗体和查询的设计以及VBA的编程。
20