考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tBook”、“tDetail”、“tEmp”和“tOrder”，查询对象“qSell”，窗 体对象“fEmp”。同时还设计出以“qSell”为数据源的报表对象“rSell”。 请在此基础上按照以下要求补充“fEmp”窗体和“rSell”报表的设计

：（58-3）

（1）将“rSell”报表标题栏上的显示文本设置为“销售报表”；对报表中 名称为“txtNum”的文本框控件进行适当设置，使其显示每本书的售 出数量；在报表适当位置添加一个计算控件（控件名称为“txtC2”） ，计算各出版社所售图书的平均单价。

说明：报表适当位置指报表页脚、页面页脚或组页脚。 要求：计算出的平均单价使用函数保留两位小数。

（2）在“fEmp”窗体页眉节区添加一个标签，标签名为“bTitle”，显示 文本为“雇员基本情况查询”，字号为26。

（3）将“fEmp”窗体中命令按钮（名称为“CmdRefer”）上的文字颜色改 为褐色（褐色代码为#7A4E2B）、字体粗细改为“加粗”、文字下方显 示“下划线”。

（4）将“fEmp”窗体中窗体页眉节区控件的Tab键移动次序设置为：“ TxtDetail”→“CmdRefer”。

（5）试根据以下窗体功能要求，补充已给的事件代码，并运行调试。 在“fEmp”窗体的窗体页眉节区有一个文本框控件和一个命令按钮，名称 分别为“TxtDetail”和“CmdRefer”；在主体节区有多个文本框控件，显示 “tBook”表中的相关信息。在“TxtDetail”文本框中输入具体值后，单击“ CmdRefer”命令按钮。如果“TxtDetail”文本框中没有值，则显示提示框， 提示文字为“对不起!未输入雇员姓名，请输入！”；如果“TxtDetail”文 本框中有值，则在“tBook”表中进行查找，如果找到了相应记录，则显示在 主体节对应的文本框控件中,如果没有找到，则显示提示框，提示框显示标题 为“查找结果”，提示文字为“对不起!没有这个雇员!”，提示框中只有一个 “确定”按钮，然后清除“TxtDetail”文本框中的内容，并将光标置于“ TxtDetail”文本框中。

注意：不允许修改报表对象“rSell”中未涉及的控件、属性；不允许修 改表对象“tBook”、、“tDetail” 、“tEmp”和“tOrder”，不允许修改 查询对象“qSell”。不允许修改窗体对象“fEmp”中未涉及的控件、属性和 任何VBA代码；只允许在“*****Add*****”与“*****Add*****”之间的空行 内补充一条代码语句、不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第16套：

在考生文件夹下，已有“samp1.accdb”数据库文件和Stab.xls文件， “samp1.mdb”中已建立表对象“student”和“grade”，试按以下要求，完成 表的各种操作：

(66-1) （2-1）

（1）将考生文件夹下的Stab.xls文件导入到“student”表中。

（2）将“student”表中1975年和1976年出生的学生记录删除。

（3）将“student”表中“性别”字段的默认值属性设置为“男”；将“学 号”字段的相关属性设置为只允许输入9位的0-9数字；将姓名中的“ 丽”改为“莉”。

（4）将“student”表拆分为两个新表，表名分别为“tStud”和“tOffice” 。其中“tStud”表结构为：学号，姓名，性别，出生日期，院系，籍贯 ，主键为学号；“tOffice”表结构为：院系，院长，院办电话，主键为 “院系”。

要求：保留“student”表。

（5）在“grade”表中增加一个字段，字段名为“总评成绩”，字段值为： 总评成绩 = 平时成绩*30% + 考试成绩*70%，计算结果的“结果类型” 为“整型”，“格式”为“标准”，“小数位数”为0。 （6）建立“student”和“grade”两表之间的关系。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好一个 表对象“tTeacher”。试按以下要求完成设计：

（66-2）

（1）创建一个查询，计算并显示教师最大年龄与最小年龄的差值，显示标 题为“m_age”，所建查询命名为“qT1”。

（2）创建一个查询，查找工龄不满30年、职称为副教授或教授的教师，并 显示“编号”、“姓名”、“年龄”、“学历”和“职称”五个字段 内容，所建查询命名为“qT2”。 要求：使用函数计算工龄。

（3）创建一个查询，查找年龄低于在职教师平均年龄的在职教师，并显示 “姓名”、“职称”和“系别”三个字段内容，所建查询命名为“ qT3”。

（4）创建一个查询，计算每个系的人数和所占总人数的百分比，并显示“ 系别”、“人数”和“所占百分比（%）”，所建查询命名为“ qT4”。

注意：“人数”和“所占百分比”为显示标题。

要求：①按照编号来统计人数；②计算出的所占百分比以两位整数显 示（使用函数实现）。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tEmployee”和“tGroup”及查询对象“qEmployee”，同时还设计出以“ qEmployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补 充报表设计：

（2-3）

（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”， 标题显示为“职工基本信息表”。

（2）预览报表时，报表标题显示标签控件“bTitle”的内容，请按照VBA 代码中的指示将代码补充完整。

（3）在“性别”字段标题对应的报表主体节区距上边0.1厘米、距左侧5.2 厘米位置添加一个文本框，显示出“性别”字段值，并命名为“tSex ”； 在报表适当位置添加一个文本框，计算并显示每类职务的平均年 龄，文本框名为tAvg。

注意：报表适当位置是指报表页脚、页面页脚或组页脚。

（4）设置报表主体节区内文本框“tDept”的控件来源属性为计算控件。要 求该控件可以根据报表数据源里的“所属部门”字段值，从非数据源 表对象“tGroup”中检索出对应的部门名称并显示输出。（提示：考 虑DLookup函数的使用。）

注意：不允许修改数据库中的表对象“tEmployee” 和“tGroup”及查询 对象“qEmployee”；不允许修改报表对象“qEmployee”中未涉及 的控件和属性。程序代码只允许在“*******Add******”与“ *******Add******”之间的空行内补充一行语句、完成设计，不允 许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第17套：

在考生文件夹下，已有“samp1.accdb”数据库文件和Teacher.xlsx文件， 试按以下要求，完成表的各种操作：

(68-1)（3-1）

(1) 在考生文件夹下，“samp1.accdb”数据库文件中建立表“tTeacher”， 表结构如下。

(2) 将考生文件夹下的Teacher.xlsx文件导入到“tTeacher”表中，根据 “tTeacher”表的结构，判断并设置主键。

(3) 将“工作时间”字段的有效性规则设置为只能输入上一年度5月1日以 前（含5月1日）的日期（要求：本年度年号必须用函数获取）； 将表 的有效性规则设置为输入的出生日期小于输入的工作时间。

(4) 将“在职否”字段的默认值设置为真值，设置“邮箱密码”字段的输入 掩码为将输入的密码显示为6位星号，设置“联系电话”字段的输入掩 码，要求前四位为“010-”，后八位为数字；将“性别”字段值的输入 设置为“男”、“女”列表选择。

(5) 将工作时间超过30年（不含30）的职工的“在职否”字段值改为“ 否”。

(6) 设置表格式，确保在浏览数据表时，“姓名”字段列不移出屏幕，且 网格线颜色为黑色。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse” 、“tScore”和一个空表“tTemp”。试 按以下要求完成设计：

（像55）

（1）创建一个查询，查找并输出姓名是三个字的男女学生各自的人数，字段显 示标题为“性别”和“NUM”，所建查询命名为“qT1”。 要求：按照学号来统计人数。

（2）创建一个查询，查找“02”院系还未选课的学生信息，并显示其“学号” 和“姓名”两个字段内容，所建查询命名为“qT2”。

（3）创建一个查询，计算有运动爱好学生的平均分及其与所有学生平均分的差， 并显示“姓名”、“平均分”和“平均分差值”等内容，所建查询命名为 “qT3”。

注意：“平均分”和“平均分差值”由计算得到。

（4）创建一个查询，查找选修了没有先修课程的课程的学生，并将成绩排名前5 位的学生记录追加到表“tTemp”对应字段中，所建查询命名为“qT4”。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好窗体 对象“fTest”及宏对象“m1”。试在此基础上按照以下要求补充窗体设计：

（像3-3）

（1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”， 标题显示为“窗体测试”。

（2）打开窗体时，窗体标题显示内容为：“**月**日####”，请按照VBA代 码中的指示将代码补充完整。

注意：①显示标题中，月和日均为本年度当月和当日，“####”为标 签控件“bTitle”的内容；②显示内容中间及前后不允许出现空格； ③如果月或日小于10，按实际位数显示。

要求：本年度当月和当日的时间必须使用函数获取。

（3）在窗体主体节区内添加二个复选框控件，复选框选项按钮分别命名为“ opt1”和“opt2”，对应的复选框标签显示内容分别为“类型a”和“ 类型b”, 标签名称分别为“bopt1”和“bopt2”；分别设置复选框选 项按钮opt1和opt2的“默认值”属性为假值。

（4）在窗体页脚节区位置添加一个命令按钮，命名为“bTest”，按钮标题 为“测试”；设置命令按钮bTest的单击事件属性为给定的宏对象m1。 注意：不允许修改窗体对象fTest中未涉及的属性；不允许修改宏对象m1。 程序代码只允许在“*******Add******”与“*******Add******” 之间的空行内补充一行语句、完成设计，不允许增删和修改其它位 置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第18套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立表对象“ tEmployee”。试按以下操作要求，完成表的编辑：

（61-1）

(1) 根据“tEmployee”表的结构，判断并设置主键；删除表中的“学历”字 段。

(2) 将“出生日期”字段的有效性规则设置为只能输入大于16岁的日期（要 求：必须用函数计算年龄）；将“聘用时间”字段的有效性规则设置为 只能输入上一年度9月1日以前（不含9月1日）的日期（要求：本年度年 号必须用函数获取）；将表的有效性规则设置为输入的出生日期小于输 入的聘用时间。

(3) 在表结构中的“简历”字段后增加一个新字段，字段名称为“在职否”， 字段类型为“是/否”型；将其默认值设置为真。 (4) 将有“书法”好爱的记录全部删除。

(5) 将“职务”字段的输入设置为“职员”、“主管”或“经理”列表选择。 (6) 根据“所属部门”字段的值修改“编号”，“所属部门”为“01”，将 “编号”的第1位改为“1”；“所属部门”为“02”，将“编号”的第1 位改为“2”，依次类推。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse” 、“tScore”和一个空表“tTemp”。试按 以下要求完成设计：

（61-2）

（1）创建一个查询，统计人数在7人以上（含7）的院系人数，字段显示标题 为“院系号”和“人数”，所建查询命名为“qT1” 。 要求：按照学号来统计人数。

（2）创建一个查询，查找非“04” 院系还未选课的学生信息，并显示“学号” 和“姓名”两个字段内容，所建查询命名为“qT2” 。

（3）创建一个查询，计算组织能力强的学生的平均分及其与所有学生平均分的 差，并显示“姓名”、“平均分”和“平均分差值”等内容，所建查询命 名为“qT3”。

注意：“平均分”和“平均分差值”由计算得到。

要求：“平均分差值”以整数形式显示（使用函数实现）。

（4）创建一个查询，查找选修了有先修课程的课程的学生，并将成绩排在前3 位的学生记录追加到表“tTemp”的对应字段中，所建查询命名为“qT4”。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tTeacher”、窗体对象“fTest”，报表对象“rTeacher”和宏对象“m1”。 试在此基础上按照以下要求补充窗体设计和报表设计：

（61-3）（26-3）

（1）将报表对象rTeacher的报表主体节区中名为“性别”的文本框显示内