设置报表对象“rEmp”的记录源属性为表对象“tEmp”。

（4）在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示； 单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”）， 事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表 预览或打印输出；单击“退出”按钮（名为“bt3”），调用设计好的宏 “mEmp”来关闭窗体。

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第26套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象（名为 “员工表”和“部门表”）和一个窗体对象（名为“fTest”）及一个宏对象（ 名为“mTest”）。试按以下要求，按顺序完成对象的各种操作：

（像20-1）

（1）删除表对象“员工表”的照片字段。

（2）设置表对象“员工表”的年龄字段有效性规则为：非空且不低于16；同时 设置相应有效性文本为“请输入合适年龄”。

（3）设置表对象“员工表”的聘用时间字段的默认值为：系统当前日期次年的 同月同日。

（4）查找出“员工表”的各个部门中年龄最大的男员工和女员工，在其对应简 历字段值后追加“***”标记字符。

（5）设置窗体对象（名为“fTest”）相关属性，实现不允许在窗体上添加新 记录的操作。

（6）删除表对象“员工表”和“部门表”之间已建立的错误表间关系，重新建 立正确关系；将宏对象（名为“mTest”）重命名为可自动运行的宏。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tCourse”、“tGrade”、“tStudent”和一个空表“tTemp”，试 按以下要求完成设计：

（无）

（1）创建一个查询，查找并显示所选课程均不及格的学生信息，输出其“学号” 字段内容，所建查询命名为“qT1”。

（2）创建一个查询，统计没有选课的学生人数，输出标题为“未选数”，所建 查询命名为“qT2”。

要求用“学号”字段进行计数计算。

（3）创建一个查询，统计每班每门课程的平均成绩。要求结果用round函数取整， 显示结果如下图所示，所建查询命名为“qT3”。

（4）创建一个查询，将下半年出生男学生的“班级”、“姓名”、“性别”、 “课程名”和“成绩”等信息追加到“tTemp” 表的对应字段中，所建查 询命名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对 象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时， 给出窗体对象“fEmp”的若干事件代码，试按以下功能要求补充设计：

（66-3）

（1）设置系统相关属性，实现打开的窗体以重叠窗口形式显示；设置窗体对象 “fEmp”上两个命令按钮的Tab键索引顺序（即Tab键焦点移动顺序）为从 “报表输出”按钮（名为“bt1”）到“退出”按钮（名为“bt2”）。 （2）调整窗体对象“fEmp”上“退出”按钮（名为“bt2”）的大小和位置， 要求大小与“报表输出”按钮（名为“bt1”）一致，且上边对齐“报表 输出”按钮，左边距离“报表输出”按钮1厘米（即“bt2”钮的左边距 离“bt１”钮的右边1厘米）。

（3）将报表记录数据按照先姓名升序再年龄降序排列显示；设置相关属性，将 页面页脚区域内名为“tPage”的文本框控件实现以下格式的页码输出： \。

（4）加载窗体时，代码将“bTitle”标签的标题重置为“员工最大年龄差为 XXX”，其中“XXX”是从“tEmp”表中获取计算得到；单击“报表输出” 按钮，事件代码会弹出下图显示的消息框，以选择是否进行预览报表“ rEmp”；单击“退出”按钮，调用设计好的宏“mEmp”来关闭窗体。根 据以上描述，将VBA代码补充完整。

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第27套：

在考生文件夹下，存在一个数据库文件“samp1.accdb” 、一个Excel文件 “tScore.xls”和一个图像文件“photo.bmp”。在数据库文件中已经建立了一 个表对象“tStud”。试按以下操作要求，完成各种操作：

（69-1）

（1）设置“ID”字段为主键；设置“ID”字段的相应属性，使该字段在数据表 视图中的显示标题为“学号”。

（2）将“年龄”字段的默认值属性设置为表中现有记录学生的平均年龄值（四 舍五入取整），“入校时间”字段的格式属性设置为“长日期”。

（3）设置“入校时间”字段的有效性规则和有效性文本。有效性规则为：输入 的入校时间必须为9月；有效性文本内容为“输入的月份有误，请重新输 入”。

（4）将学号为“20041002”学生的“照片”字段值设置为考生文件夹下的“ photo.bmp”图像文件（要求使用“由文件创建”方式）。

（5）将“政治面目”字段改为下拉列表选择，选项为“团员”、“党员”和“ 其他”三项。

（6）将考生文件夹下的“tScore.xlsx”文件导入到“samp1.mdb”数据库文件 中，第一行包含列标题，表名同excel文档主文件名，主键为表中的“ID” 字段。

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

（69-2）

（1）创建一个查询，查找年龄低于所有学生平均年龄的学生党员信息，输出其 “姓名”、“性别”和“入校时间”。所建查询命名为“qT1”。

（2）创建一个查询，按学生姓氏查找学生的信息，并显示“姓名”、“课程名 ”和“成绩”。当运行该查询时，应显示提示信息：“请输入学生姓氏” 。所建查询命名为“qT2”。 说明：这里不用考虑复姓情况。

（3）创建一个查询，第一列显示学生性别，第一行显示课程名称，以统计并显 示各门课程男女生的平均成绩。要求计算结果用round函数取整，所建查 询命名为“qT3”。

（4）创建一个查询，运行该查询后生成一个新表，表名为“tTemp”，表结构 包括“学号”和“平均成绩”两个字段，表内容为选课平均成绩及格的 学生记录。所建查询命名为“qT4”。要求创建此查询后，运行该查询， 并查看运行结果。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补 充“fStud”窗体的设计：

像46-3

（1）在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘米处添加一个直线 控件，控件宽度为10.5厘米，控件命名为“tLine”。

（2）将窗体中名称为“lTalbel”的标签控件上的文字颜色改为“蓝色\（ 蓝色 代码为#0072BC）、字体名称改为“华文行楷”、字体大小改为22。 （3）将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录 选择器、导航按钮和分隔线，并且只保留窗体的关闭按钮。

（4）假设“tStud”表中，“学号”字段的第5位和6位编码代表该生的专业信息 ，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理” 专业。设置窗体中名称为“tSub”的文本框控件的相应属性，使其根据“ 学号”字段的第5位和第6位编码显示对应的专业名称。

（5）在窗体相关事件中，代码重置窗体标题为“XXXX年度党员学生信息”，这 里XXXX为系统日期四位当前年；代码设置窗体的记录源为表对象“tStud” 中的党员信息。请按照VBA代码中的指示将实现此功能的代码填入指定的 位置中。

（6）在窗体中有一个“退出”命令按钮，名称为“CmdQuit”,其功能为关闭“ fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位 置中。

注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代 码；不允许修改表对象“tStud”；

程序代码只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一行语句、完成设计，不允许增删和修改其它位置已存 在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第28套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象（名为 “员工表”和“部门表”）和一个窗体对象（名为“fTest”）及一个宏对象（ 名为“mTest”）。试按以下要求，按顺序完成对象的各种操作：

（像56-1）

（1）将编号为“000002”员工的“照片”字段值设置为考生文件夹下的“ photo.bmp”图像文件（要求使用“由文件创建”方式）。

（2）设置表对象“员工表”的有效性规则为：员工聘用时必须年满16岁；同时 设置相应有效性文本为“请合法聘用员工”。 说明：一年的天数=365.24天

（3）设置表对象“员工表”的聘用时间字段的默认值为：系统当前日期次年的 同月1日。

（4）查找出“员工表”中聘用时年龄最小和最大的男女员工，在其对应简历字 段值后追加“***”标记字符。

（5）设置窗体对象“fTest”的“筛选”属性，实现窗体男员工信息输出；设 置相关属性，实现窗体对象（名为“fTest”）上的记录数据不允许编辑 的操作。

（6）删除表对象“员工表”和“部门表”之间已建立的错误表间关系，重新建 立正确关系；将宏对象（名为“mTest”）重命名为可自动运行的宏。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tQuota”和“tStock”，试按以下要求完成设计：

无

（1）创建一个查询，查找库存数量高于所有产品平均库存数的产品，输出其“ 产品名称”、“规格”、“库存数量”和“最高储备”等字段内容，查询 名为qT1。

（2）创建一个查询，统计某类产品的库存情况，并显示“产品类别”、“产品 名称”和“库存数量”三列内容，所建查询名为“qT2”；当运行该查询 时，提示框中应显示“请输入产品类别”。 说明：产品类别为“产品ID”字段值的第1位。

（3）创建一个查询，查找库存数量不在合理储备范围内的产品，并显示“产品 名称”、“规格”、“库存数量”、 “最低储备”和“最高储备”四个 字段内容。所建查询名为“qT3”。

（4）创建一个查询，统计每类产品不同单位的库存金额总计。要求，行标题显 “产品名称”，列标题显示“单位”。所建查询名为“qT4”。 示说明：库存金额=单价×库存数量。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以 下要求补充“fSys”窗体和“rStud”报表的设计：

无

（1）在“rStud”报表的报表页眉节区位置添加一个标签控件，其名称为“ rTitle”，其显示文本为“非团员基本信息表”；将报表标题栏上的显 示文本设置为“非团员信息”；将名称为“tSex”的文本框控件的输出 内容设置为“性别”字段值。在报表页脚节区添加一个计算控件，其名 称为“tCount”,显示报表学生人数。

（2）将“fSys”窗体的边框样式设置为“细边框”，取消窗体中的水平和垂 直滚动条、导航按钮、记录选择器、分隔线、最大化按钮和最小化按钮。 （3）将“fSys”窗体中“用户名称”（名称为“lUser”）和“用户口令” （名称为“lPass”）两个标签上的文字颜色改为红色（红色代码为 #FF0000)、字体粗细改为“加粗”。

（4）将“fSys”窗体中名称为“tPass”的文本框控件的内容以密码形式显 示；将名称为“cmdEnter”的命令按钮从灰色状态设为可用；将控件的 Tab移动次序设置为：“tUser”→“tPass” →“cmdEnter” → “cmdQuit”。

（5）试根据以下窗体功能和报表输出要求，补充已给事件代码，并运行调试。 在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“ tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“ cmdEnter”和“cmdQuit”。 窗体加载时，重置“bTitle”标签的标题为“非 团员人数为XX”,这里XX为从表查询计算得到；在输入用户名称和用户密码后 ，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为 “csy”，用户密码为“1129”，则显示提示框，提示框标题为“欢迎”，显 示内容为“密码输入正确，打开报表！”，单击“确定”按钮关闭提示框后， 打开“rStud”报表，代码设置其数据源输出非团员学生信息；如果输入不正 确，则提示框显示“密码错误！”，同时清除“tUser”和“tPass”两个文本 框中的内容，并将光标移至“tUser”文本框中。当单击窗体上的“退出”按 钮后，关闭当前窗体。

以上涉及计数操作统一要求用“*”进行。