2022年第三部分综合应用 .pdf

1 / 37 注意一、 本部分内容为综合应用，主要涉及的是：报表、窗体的设计；查询的修改及设计；表结构的修改、有效性文本的设置、报表中的排序；VBA 的编程 ；VBA 的数据库编程的基本操作知识内容。二、 本部分虽然为综合应用题，但只有少数几道题较难外，其他都很容易，相对来说比第二部分的题要容易得分一些。尽量不要丢分！三、 在完成这部分题目过程中，要认真理解和熟练操作，有很多知识内容在笔试中也经常出现，要利用上机操作的机会，理解和把握笔试的知识考核内容。四、 下面的内容以知识点为纲来练习真题，对照所列知识点看自己是否已掌握和能否熟练操作相关习题。另要求 所有同学 必须 要利用课堂及课后时间一定要把这些真题全部熟练完成！主要考核知识点：知识点 1：报表的设计相关习题讲解及练习：56、50、43、39、34、07、05、04知识点 2：窗体的设计相关习题讲解及练习：55、54、53、37、29、26、25、24、22、21、15、09、08、06、03、02、01知识点 3：报表和窗体的设计相关习题讲解及练习：42、41、36、18、12、11、10知识点 4：窗体的设计和查询的修改及设计相关习题讲解及练习：38、19 知识点 5：表结构的修改、有效性文本的设置、报表中的排序、窗体的设计相关习题讲解及练习：20、17、14、13 知识点 6：窗体和查询的设计以及VBA的编程。相关习题讲解及练习：28、23、16知识点 7：窗体的设计、报表的设计、VBA的数据库编程相关习题讲解及练习：52、45、44、35、32、31 知识点 8：窗体的设计（主子窗体）、VBA的数据库编程相关习题讲解及练习：51、49、48、47、46、40、33、30、27 注意：建议同学们：每做完一大题，请关闭 ACCESS, 重新启动再做下一题； 或者直接双击打开要操作的数据库文件！精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 37 页2 / 37 每道大题 中的题号表示相 对应的文件夹名称（即题中提到的考生文件夹 ），文件夹中含有题目中的源文件。国二真题小结训练（ 必须完成 ）：56、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计好表对象tEmployee 和查询对象 qEmployee ，同时还设计出以 qEmployee 为数据源的报表对象rEmployee 。试在此基础上上按照以下要求补充报表设计：（1）报表的报表页眉节区位置添加一个标签控件，其标题显示为 职员基本信息表 ，并命名为 bTitle；（2）将报表主体节区中名为tDate 的文本框显示内容设置为聘用时间 字段值；（3）在报表的页面页脚区添加一个计算控件 ，以输出页码。计算控件放置在距上边0.25 厘M 、距左侧 14厘M 位置，并命名为 tPage 。规定页码显示格式为 当前页 /总页数 ，如 1/20 、2/20 、 20/20 等。注意：不允许修改数据库中的表对象tEmployee 和查询对象 qEmployee ；不允许修改报表对象rEmployee 中未涉及的控件和属性。本题主要考的是报表的设计 。本题解题思路：（1）选择一个标签，放到报表页眉中，选择工具栏上的 属性 按钮，在弹出的属性框中设置名称属性为bTitle和标题属性为 职员基本信息表 。（2）选中主体中的名为tDate 的文本框，设置其控件来源属性为聘用时间 字段。（3）选择一个文本框，放到报表的页面页脚中，设置它的名称为tPage 、上边距属性为0.25 厘M 和左边距属性为 14厘M ，并在控件来源属性中输入=Page & / & Pages。55、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据文件samp3.mdb，里面已经设计好窗体对象fTest及宏对象 m1。试在此基础上按照以下要求补充窗体设计：（1）在窗体的窗体页眉节区位置添加一个标签控件 ，其名称为 bTitle标题显示为 窗体测试样例 ；（2）在窗体主体节区内添加二个复选框控件 ，复选框选项按钮分别命名为opt1 和opt2 ，对应的复选框标签显示内容分别为 类型 a和类型 b，标签名称分别为bopt1 和bopt2 ；（3）分别设置复选框选项按钮opt1 和opt2 的 默认值 属性为假值；（4）在窗体页脚节区位置添加一个命令按钮，命名为bTest ，按钮标题为 测试 ；（5）设置命令按钮bTest 的单击事件 属性为 给定的宏对象 m1 ；（6）将窗体标题设置为测试窗体 。注意：不允许修改窗体对象fTest 中未涉及的属性；不允许修改宏对象m1 。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 37 页3 / 37 本题主要考的是窗体的设计。本题解题思路如下：（1）在工具箱中选择一个标签，放到窗体页眉中，并点击工具栏上的 属性 按钮，设置标签的名称为bTitle，标题属性为 窗体测试样例 。（2）在工具箱中选择复选框控件，添加两个该控件到窗体的主体中，设置这两个控件的名称为opt1 和opt2 ，并设置它们的默认值属性为=False ；选择复选框对应的标签，设置它们的名称为bopt1 和bopt2 ，标题为 类型 a和类型 b。（3）在工具箱中选择一个命令按钮控件，放到窗体页脚中，设置这个命令按钮的名称为bTest ，标题属性为 测试 ，单击属性为 m1。（4）选中窗体，并点击工具栏上的 属性 按钮，设置窗体的标题属性为 测试窗体 。54、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件Access3.mdb，里面已经设计好窗体对象教师 。试在此基础上按照一下要求补充窗体设计：（1）在窗体的窗体页眉节区位置添加一个标签控件 ，其名称为 bTitle ，标题显示为 教师基本信息输出；（2）在主体节区中年龄 标签右侧的文本框显示内容设置为 年龄 字段值，并将文本框名称更名为tAge ；（3）在主体节区添加一个标签控件 ，该控件放置在距左边0.1 厘M 、距上边 5.0 厘M ，标签显示内容为出生地 ，名称为 bMem；（4）在窗体页脚节区位置添加两个命令按钮 ，分别命名为 bOk 和bQuit ，按钮标题分别为 确定 和退出 ；（5）将窗体标题设置为教师基本信息 。注意：不允许修改窗体对象 教师 中未涉及的控件和属性。本题主要考的是窗体的设计 。本题解题思路如下：（1）在工具箱中选择一个标签，放到页眉中，并点击工具栏上的 属性 按钮，设置标签的名称和标题属性；（2）选中 年龄 标签右边的文本框，并点击工具栏上的 属性 按钮，设置文本框的名称和控件属性；（3）在工具箱中选择两个单选按钮控件，放到主体中的选项组中，并点击工具栏上的 属性 按钮，设置这两个单选按钮的名称和标题属性；（4）在工具箱中选择两个命令按钮控件，放到页脚中，并点击工具栏上的 属性 按钮，设置这两个命令按钮的名称和标题属性；精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 37 页4 / 37 （5）选中窗体，并点击工具栏上的 属性 按钮，设置窗体的标题属性。53、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件Access3.mdb，里面已经设计好窗体对象教师 。试在此基础上按照以下要求补充窗体设计：（1）在窗体的窗体页眉节区位置添加一个标签控件 ，其名称为 bTitle ，标题显示为 教师奖励信息 ；（2）在主体节区位置添加一个选项组控件 ，将其命名为 opt ，选项组标签显示内容为 奖励 ，名称为 bopt；（3）在选项组内放置二个单选按钮控件 ，选项按钮分别命名为 opt1 和opt2 ，选项按钮标签显示内容分别为 有和 无，名称分别为 bopt1和 bopt2。（4）在窗体页脚节区位置添加两个命令按钮 ，分别命名为 bOk 和bQuit ，按钮标题分别为 确定 和退出 ；（5）将 窗体标题 设置为 教师奖励信息 。注意：不允许修改窗体对象 教师 中已设置好的属性。本题主要考的是窗体的设计。本题解题思路如下：（1）在工具箱中选择一个标签，放到页眉中，并点击工具栏上的 属性 按钮，设置标签的名称和标题属性；（2）在工具箱中选择一个选项组控件，放到主体中，并点击工具栏上的 属性 按钮，设置选项组的名称和标题属性；（3）在工具箱中选择两个单选按钮控件，放到主体中的选项组中，并点击工具栏上的 属性 按钮，设置这两个单选按钮的名称和标题属性；（4）在工具箱中选择两个命令按钮控件，放到页脚中，并点击工具栏上的 属性 按钮，设置这两个命令按钮的名称和标题属性；（5）选中窗体，并点击工具栏上的 属性 按钮，设置窗体的标题属性。52、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计了表对象tEmp 、窗体对象 fEmp 、报表对象rEmp 和宏对象 mEmp 。同时，给出窗体对象fEmp 的若干事件代码，试按以下功能要求补充设计。功能：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 37 页5 / 37 （1）调整窗体对象fEmp 上报表输出 按钮（名为 bt1 ）的位置，要求其左边对齐退出 按钮，下边距离 退出 按钮 1厘M （即 bt1 钮的下边距离 bt2 钮的上边 1厘M ）；调整上述两个命令按钮的Tab键移动顺序为：先报表输出 按钮，再 退出 按钮。（2）调整报表对象rEmp ，将报表记录数据先按年龄升序、再按姓名降序排列，并打开相关组页眉区域，添加一个文本框控件（命名为ta ），设置属性，使其显示年龄段信息，如18 、19 、.等。（3）窗体加载事件实现的功能是显示窗体标题，显示内容为 *年度报表输出 ，其中四位 * 为系统当前年份，请补充加载事件代码，要求使用相关函数获取当前年份。（4）窗体中 报表输出 和退出 按钮的功能是单击 报表输出 按钮（名为 bt1 ）后，首先将 退出 按钮标题变为红色（ 255），然后以预览方式打开报表rEmp ；单击 退出 按钮（名为 bt2 ）调用宏 mEmp 。按照以上功能描述补充相关事件代码，要求考虑错误处理。注意：不允许修改数据库中的表对象tEmp 和宏对象 mEmp ；不允许修改窗体对象fEmp 和报表对象 rEmp 中未涉及的控件和属性；已给事件过程，只允许在*Add*与*Add*之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题主要考的是窗体的设计、报表的设计、VBA 的数据库编程 。本题解题思路如下：（1）打开窗体对象fEmp的设计视图，选中主体中的 报表输出 按钮，右击，选择 属性 ，左边距设置为3cm，上边距设置为1cm ，保存设置，选择视图 菜单的 Tab键次序 打开对话框，设置顺序为先报表输出 ，再 退出 按钮，保存设置。（2）打开报表对象rEmp的设计视图，选择 视图 菜单中的 排序与分组 选项，打开排序与分组对话框，添加年龄字段升序，在组页眉中选择是，再添加姓名字段降序，完成后保存报表设置。在报表的年龄页眉区域添加一个文本框控件，名称为ta ，控件来源为年龄，完成后保存设置。（3）打开窗体对象fStud的设计视图，选择视图 菜单中的属性，打开窗体属性对话框，在标题中输入Year(Date() & 年度报表输出 ，保存设置。（4）打开窗体 fEmp 的设计视图，选中 报表输出 按钮，右击选择 属性 ，编辑命令按钮 bt1 的单击事件代码，第一处填写 Caption = Year(Date) & 年度报表输出 ，第二处填写 bt2.ForeColor = 255 或bt2.ForeColor = RGB(255, 0, 0)，第三处填写 DoCmd.OpenReport rEmp, acViewPreview，第四处填写 ErrHanle: ，完成后保存窗体的设置。选中 退出 按钮，右击选择 属性 ，在 事件 的单击中填入 mEmp ，完成后保存窗体。51、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计好表对象tStud，同时还设计出 窗体对象 fStud和子窗体对象 fDetail 。请在此基础上按照以下要求补充fStud窗体的设计：（1）将窗体标题改为学生查询 。（2）将窗体的边框样式改为细边框 ，取消窗体中的水平和垂直滚动条、记录选择器、浏览按钮（导航按钮）和分隔线；将子窗体边框样式改为细边框 ，取消子窗体中的记录选择器、浏览按钮（导航按钮）和分隔线。（3）在窗体中有两个标签控件，名称分别为Label1 和Label2 ，将这两个标签上的文字颜色改为白色，背景颜色改为紫蓝色（紫蓝色代码为8388608）。（4）将窗体主体节中控件的Tab键次序 改为： CItem TxtDetail CmdRefer CmdList CmdClear fDetail 简单查询 Frame18 。（5）按照以下窗体功能，补充事件代码设计。在窗体中有一个组合框控件和一个文本框控件，名称分别为CItem和 TxtDetail；有两个标签控件，名称分别为Label3和Ldetail；还有三个命令按钮，名称分别为CmdList 、CmdRefer 和CmdClear 。在 CItem 组合框中 选择某一工程后，Ldetail标签控件将 显示出所选工程名加上 内容： 。在 TxtDetail文本框中输入具体工程值后，单击CmdRefer 命令按钮，如果 CItem 和TxtDetail两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 37 页6 / 37 息框标题为 注意 ，提示文字为 查询工程和查询内容不能为空！ ，消息框中只有一个确定 按钮；单击CmdList 命令按钮，在子窗体中显示tStud 表中的全部记录；单击CmdClear 命令按钮，将 cItem 和TxtDetail两个控件中的值清空。注意：不允许修改窗体对象fStud 和子窗体对象 fDetail中未涉及的控件、属性和任何VBA 代码；不允许修改表对象 tStud。代码设计只允许在*Add*与*Add*之间的空行内补充一条语句、完成设计，不允许增删和修改其它位置已存在的语句。本题主要考的是窗体的设计、VBA 的数据库编程。本题解题思路如下：（1）打开窗体对象fStud的设计视图，选择视图 菜单中的 属性 选项，打开窗体属性对话框，将标题改为 学生查询 ，依次设置所要求的边框样式、窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线，完成后保存窗体。（2）打开子窗体对象fDetail的设计视图，选择视图 菜单中的 属性 选项，打开窗体属性对话框，按照要求设置窗体的属性，完成后保存子窗体。（3）选择标签控件Label1 ，设置其前景色为16777215，背景色为 8388608，用同样的方法设置标签控件Label2 ，完成后保存窗体。（4）打开窗体对象fStud的设计视图，选择视图 菜单中的 Tab键次序 选项，打开 Tab键次序对话框，按照题目要求设置次序，完成后保存窗体。（5）打开 fStud窗体设计视图，找到cItem 组合框，右键选择 事件生成器 ，在弹出的对话框中选择代码生成器 ，点 确定 按钮打开代码设计对话框，在第一处 填写： Ldetail.Caption = cItem & 内容 : ，第二处 填写： fDetail.Form.RecordSource = tStud，第三处 填写： MsgBox 查询工程和查询内容不能为空！, vbOKOnly, 注意 ，保存所有设置。50、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计好表对象tOrder、tDetail和tBook ，查询对象qSell，报表对象 rSell。请在此基础上按照以下要求补充rSell报表的设计：（1）对报表进行适当设置，使报表显示qSell查询中的数据。（2）对报表进行适当设置，使报表标题栏上显示的文字为 销售情况报表 ；在报表页眉处添加一个标签，标签名为lTitle，显示文本为 图书销售情况表 ，字体名称为 黑体 、颜色为棕色（棕色代码为128）、字号为 20、字体粗细为 加粗 ，文字不倾斜。（3）对报表中名称为txtMoney 的文本框控件进行适当设置，使其显示每本书的金额（金额 =数量 *单价）。（4）在 报表适当位置添加一个文本框控件（控件名称为txtAvg），计算 每本图书的平均单价。说明：报表适当位置指报表页脚、页面页脚或组页脚要求：使用 Round函数将计算出的平均单价保留两位小数（5）在报表页脚处添加一个文本框控件（控件名称为 txtIf）， 判断所售图书的金额合计，如果金额合计大于30000，txtIf控件显示 达标 ，否则显示 未达标 。注意：不允许修改报表对象rSell中未涉及的控件、属性；不允许修改表对象tOrder、tDetail和tBook ，不允许修改查询对象qSell。本题主要考的是报表的设计。本题解题思路：（1）打开报表对象rSell的设计视图，再打开报表的属性窗口，将记录源 属性设置为表 qSell，点击 确定 按钮。（2）选择报表 rSell，点击 设计 ，选择工具栏上的属性 按钮，出现 报表 对话框，在 标题 属性中填入 销售情况报表 。选择 视图 菜单下的 报表页眉 / 页脚 即打开了报表的 报表页眉 / 页脚 区域；在工具箱中选择一精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 37 页7 / 37 个标签，放到报表页眉中，设置标签的名称属性为lTitle，标题属性为 图书销售情况表 ，字体名称属性为 黑体 ，前景色为 128 ，字号为 20，字体粗细为 加粗 ，倾斜字体为 否 。（3）选中 金额 标签下面的 文本框 txtMoney，并点击工具栏上的 属性 按钮，设置文本框的控件来源属性为 =数量 * 单价 。（4）选择 视图 菜单中的 排序与分组 ，选择 字段 /表达式 为书籍名称 ，组页脚 为是 ，关闭 排序与分组 对话框。选择一个文本框，放到报表的 书籍名称页脚 中，选择工具栏上的 属性 按钮，名称设置为txtAvg ，在控件来源属性中填入=round(Avg( 单价 ),2) 。（5）选择一个文本框，放到报表页脚处，选择工具栏上的 属性 按钮，在弹出的属性框中设置名称为txtIf，控件来源为 =IIf(Sum(单价 * 数量 )30000, 达标 , 未达标 ) ，保存报表。49、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计好表对象tStud和tScore，同时还设计出窗体对象fStud和子窗体对象 fScore 子窗体 。请在此基础上按照以下要求补充fStud窗体和 fScore 子窗体 子窗体的设计：（1）在 fStud窗体的 窗体页眉 中距左边 2.5 厘M 、距上边 0.3 厘M 处添加一个宽 6.5 厘M 、高 0.95 厘M 的标签控件（名称： bTitle），标签控件上的文字为学生基本情况浏览 ， 颜色为 蓝色 （ 蓝色代码为 16711680）、字体名称为 黑体 、字体大小为 22。（2）将 fStud窗体边框改为 细边框 样式，取消窗体中的水平和垂直滚动条、最大化和最小化按钮；取消子窗体中的记录选择器、浏览按钮（导航按钮）和分隔线。（3）在 fStud窗体中有一个年龄文本框和一个退出命令按钮，名称分别为tAge 和CmdQuit 。年龄文本框的功能是显示学生的年龄，对年龄文本框进行适当的设置，使之能够实现此功能；退出命令按钮的功能是关闭fStud窗体，请按照 VBA 代码中的指示将实现此功能的代码填入指定的位置中。（4）假设 tStud表中， 学号 字段的第 5位和 6位编码代表该生的专业信息，当这两位编码为10 时表示 信息 专业，为其他值时表示 经济 专业。对 fStud窗体中名称为 tSub 的文本框控件进行适当设置，使其根据学号 字段的第 5位和第 6位编码显示对应的专业名称。（5）在 fStud窗体和 fScore 子窗体 子窗体中各有一个平均成绩文本框控件，名称分别为txtMAvg 和txtAvg，对两个文本框进行适当设置，使fStud窗体中的 txtMAvg 文本框能够显示出每名学生所选课程的平均成绩。注意：不允许修改窗体对象fStud和子窗体对象 fScore 子窗体 中未涉及的控件、属性和任何VBA 代码；不允许修改表对象 tStud和tScore 。只允许在 *Add*与*Add*之间的空行内补充一条语句，不允许增删和修改其它位置已存在的语句。本题主要考的是窗体的设计、VBA 的数据库编程。本题解题思路如下：（1）打开窗体对象fStud的设计视图，选择一个标签控件，放到窗体页眉中，选择工具栏上的 属性 按钮，在弹出的属性框中设置 名称 为bTitle，标题 为学生基本情况浏览 ，左边距 为2.5 厘M ， 上边距 为0.3 厘M ， 宽度 为6.5 厘M ， 高度 为0.95 厘M 。（2）选中 bTitle的标签控件，右击鼠标选择 属性 ，前景色 设置为 16711680，字体名称 设置为 黑体 ， 字号 为22。（3）选择 fStud窗体，设置 边框样式 属性为 细边框 ，滚动条 属性为 两者均无 ，最大最小化按钮 属性为 无；选择子窗体 fScore 设置其 记录选择器 、导航按钮 和分隔线 属性均为 否 。（4）选择 tAge 文本框，设置 控件来源 属性为 =Year(Date()-Year(出生日期 ) ；选择 CmdQuit 命令按钮，设置其事件代码，在*Add*与*Add*之间输入： DoCmd.Close，保存窗体。（5）选择 tSub 文本框，设置 控件来源 属性为 =IIf(Mid(学号 ,5,2)=10,信息 , 经济 ) 。（6）选择 txtMAvg 文本框，设置 控件来源 属性为 =fScore 子窗体 !txtavg；选择 txtAvg文本框，设精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 37 页8 / 37 置 控件来源 属性为 =Avg(成绩 ) ，保存窗体。48、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计好表对象tUser，同时还设计出窗体对象fEdit和fUser。请在此基础上按照以下要求补充fEdit窗体的设计：（1）将窗体中名称为lRemark 的标签控件上的文字颜色改为棕色 （棕色代码为 128）、字体粗细改为加粗 。（2）将窗体边框改为对话框边框 样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线；将窗体标题设置为 修改用户口令 。（3）将窗体中名称为tPass 和tEnter文本框中的内容以密码方式显示。（4）按如下控件顺序设置Tab键次序：CmdEdit tUser_1 tRemark_1 tPass tEnter CmdSavecmdquit 窗体右侧列表（标题是修改系统用户）。（5）按照以下窗体功能，补充事件代码设计。窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。另外，在窗体中还有 修改 、保存 和退出 三个命令按钮，名称分别为CmdEdit 、CmdSave和cmdquit。当单击 修改 按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时 保存 按钮变为可用；在 口令 和 确认口令 文本框中输入口令信息后，单击保存 按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将 保存 命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；若在两个文本框中输入的信息不同，则显示提示框，显示内容为 请重新输入口令！ ，提示框中只有一个确定 按钮。单击窗体上的 退出 按钮，关闭当前窗体。注意：不允许修改窗体对象fEdit和fUser中未涉及的控件、属性和任何VBA 代码；不允许修改表对象tUser 。只允许在 *Add*与*Add*之间的空行内补充一条语句，不允许增删和修改其它位置已存在的语句。本题主要考的是窗体的设计、VBA 的数据库编程。本题解题思路如下：（1）打开窗体对象fEdit的设计视图，选中lRemark 的标签控件，右击鼠标选择 属性 ， 前景色 设置为128，字体粗细 设置为 加粗 。（2）选择 fEdit窗体，设置 边框样式 属性为 对话框边框 ，滚动条 属性为 两者均无 ， 记录选择器 、 导航按钮 和 分隔线 属性均为 否 ，标题 属性为 修改用户口令 。（3）选中 tPass 文本框，点击 输入掩码 属性右边的 按钮，弹出 输入掩码向导 ，选择系统设置好的输入掩码 密码 ，点击 下一步 ，再点击 完成 ，再用同样的方法设置tEnter文本框的 输入掩码 属性。（4）选中 CmdEdit 命令按钮，并点击视图 菜单下的 属性 子菜单，将 Tab键索引 属性设置为 0；选中tUser_1文本框，将 Tab键索引 属性设置为 1。用同样的方法设置tRemark_1 、tPass 、tEnter、CmdSave、cmdquit 和修改系统用户 的Tab键索引 属性分别为 2、3、4、5、6、7，保存窗体。（5）选择 fEdit窗体，并点击工具栏上的属性 按钮，点击 加载 属性右边的 打开代码生成器，在第1处输入： CmdSave.Enabled=False ；在第 2处输入： tUser_1.Enabled=False；在第 3处输入： MsgBox 请重新输入口令！ ,vbOKquit；在第 4处输入： DoCmd.Close。然后保存该窗体。47、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计好窗体对象fSys 。请在此基础上按照以下要求补充fSys 窗体的设计：（1）将窗体的边框样式设置为 对话框边框 ，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮、分隔线、控制框、关闭按钮、最大化按钮和最小化按钮。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 8 页，共 37 页9 / 37 （2）将窗体标题栏显示文本设置为 系统登录 。（3）将窗体中 用户名称 （名称为 lUser）和 用户密码 （名称为 lPass ）两个标签上的文字颜色改为浅综色（浅综色代码为 128) 、字体粗细改为 加粗 。（4）将窗体中名称为tPass 的文本框控件的内容以密码形式显示。（5）按照以下窗体功能，补充事件代码设计。在窗体中有 用户名称 和用户密码 两个文本框，名称分别为tUser 和tPass ，还有 确定 和 退出 两个命令按钮，名称分别为 cmdEnter 和cmdQuit 。在 tUser和tPass 两个文本框中输入用户名称和用户密码后，单击确定 按钮， 程序将判断输入的值是否正确，如果输入的用户名称为cueb ，用户密码为 1234 ，则显示提示框，提示框标题为 欢迎 ，显示内容为 密码输入正确，欢迎进入系统！ ，提示框中只有一个确定 按钮，当单击 确定 按钮后，关闭该窗体；如果输入不正确，则提示框显示内容为密码错误！ ，同时 清除 tUser和tPass 两个文本框中的内容，并将光标置于tUser 文本框 中。当单击窗体上的 退出 按钮后，关闭当前窗体。注意：不允许修改窗体对象fSys 中未涉及的控件、属性和任何VBA 代码。只允许在 *Add*与*Add*之间的空行内补充一条语句，不允许增删和修改其它位置已存在的语句。本题主要考的是窗体的设计、VBA 的数据库编程。本题解题思路如下：（1）打开窗体对象fSys 的设计视图，选择fSys 窗体，设置 边框样式 属性为 对话框边框 ，滚动条 属性为 两者均无 ， 记录选择器 、导航按钮 、分隔线 、控制框 和关闭按钮 属性均为 否、 最大最小化按钮 属性为 无 。（2）标题 属性为 系统登录 。（3）选中 lUser的标签控件，右击鼠标选择属性 ，前景色 设置为 128，字体粗细 设置为 加粗 ，再用同样的方法设置 lPass文本框的 前景色 和 字体粗细 属性。（4）选中 tPass 文本框，点击 输入掩码 属性右边的 按钮，弹出 输入掩码向导 ，选择系统设置好的输入掩码 密码 ，点击 下一步 ，再点击 完成 。（5）选择 fSys 窗体，并点击工具栏上的 属性 按钮，点击 加载 属性右边的 打开代码生成器，在第1处输入： If pass=1234 And name=cueb Then；在第 2处输入： tUser.SetFocus；在第 3处输入： DoCmd.Close。然后保存该窗体。46、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计好表对象tStud，同时还设计出窗体对象fStud。请在此基础上按照以下要求补充fStud窗体的设计：（1）在窗体的 窗体页眉 中距左边 0.4 厘M 、距上边 1.2 厘M 处添加一个直线控件，控件宽度为10.5 厘M ，控件命名为tLine。（2）将窗体中名称为lTalbel的标签控件上的文字颜色改为蓝色 （蓝色代码为 16711680）、字体名称改为 华文行楷 、字号改为 22。（3）将窗体边框改为细边框 样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线；并且只保留窗体的关闭按钮。（4）假设 tStud表中， 学号 字段的第 5位和 6位编码代表该生的专业信息，当这两位编码为10 时表示 信息 专业，为其他值时表示 管理 专业。设置窗体中名称为tSub 的文本框控件的相应属性，使其根据 学号 字段的第 5位和第 6位编码显示对应的专业名称。（5）在窗体中有一个退出 命令按钮，名称为CmdQuit ，其功能为关闭 fStud窗体。请按照 VBA 代码中的指示将实现此功能的代码填入指定的位置中。注意：不允许修改窗体对象fStud中未涉及的控件、属性和任何VBA 代码；不允许修改表对象tStud；程序代码只允许在 *Add*与*Add*之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。本题主要考的是窗体的设计、VBA 的数据库编程。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 37 页10 / 37 本题解题思路如下：（1）打开窗体对象fStud的设计视图，选择一个直线控件，放到窗体页眉中，选择工具栏上的 属性 按钮，在弹出的属性框中设置 名称 为tLine， 左边距 为0.4 厘M ， 上边距 为1.2 厘M ， 宽度 为10.5 厘M 。（2）选中 lTalbel的标签控件，右击鼠标选择属性 ，前景色 设置为 16711680，字体名称 设置为 华文行楷 ，字号 为22。（3）选择 fStud窗体，设置 边框样式 属性为 细边框 ，滚动条 属性为 两者均无 ，记录选择器 、 导航按钮 和分隔线 属性均为 否， 最大最小化按钮属性为 无，关闭按钮 属性为 是。（4）选择 tSub 文本框， 设置 控件来源 属性为 =IIf(Mid(学号 ,5,2)=10,信息 , 管理 ) 。（5）选择 fStud窗体，点击 加载 属性右边的 打开代码生成器，在*Add*与*Add*之间输入： DoCmd.Close，保存窗体。45、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计了表对象tEmp 、窗体对象 fEmp 、报表对象rEmp 和宏对象 mEmp 。同时，给出窗体对象fEmp 上一个按钮的单击事件代码，试按以下功能要求补充设计：（1）设置窗体对象fEmp 上两个命令按钮的Tab键索引顺序（即 Tab键焦点移动顺序）为从报表输出 按钮（名为bt1 ）到 退出 按钮（名为 bt2 ）。（2）调整窗体对象fEmp 上退出 按钮（名为 bt2 ）的大小和位置，要求大小与报表输出 按钮（名为 bt1 ）一致，且上边对齐 报表输出 按钮， 左边距离 报表输出 按钮1厘M （即 bt2 钮的左边距离 bt1 钮的右边 1厘M ）。（3）将报表记录数据按照先姓名升序再年龄降序排列显示；设置相关属性，将页面页脚区域内名为tPage 的文本框控件实现以下格式的页码输出：1/20,2/20,.,20/20。（4）单击 报表输出 按钮（名为 bt1 ），事件代码会弹出以下图例显示的消息框提示，选择是否进行预览报表rEmp ；单击 退出 按钮（名为 bt2 ）， 调用设计好的宏 mEmp 来关闭窗体 。注意：不允许修改数据库中的表对象tEmp 和宏对象 mEmp ；不允许修改窗体对象fEmp 和报表对象 rEmp 中未涉及的控件和属性。程序代码只允许在*Add*与*Add*之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。本题主要考的是窗体、报表的设计和VBA 的数据库编程。本题解题思路如下：（1）打开窗体对象fEmp的设计视图，选中bt1 命令按钮，并点击视图 菜单下的 属性 子菜单，将 Tab键索引 属性设置为 0；选中 bt2 命令按钮，将 Tab键索引 属性设置为 1。选中 bt2 按钮，并点击工具栏上的 属性 按钮，将命令按钮bt2 的宽度 设置为 2厘M ， 高度 设置为 1厘M ， 上边距 设置为 2厘M ， 左边距 设置为 4.501厘M ，保存窗体。（2）打开报表对象rEmp的设计视图，选择 视图 菜单中的 排序与分组 ，在 字段 /表达式 中选择 姓名 ，排序次序为 升序 ；再选择 年龄 ，排序次序为 降序 。选择文本框 tPage ，在控件来源属性中输入：=Page & / & Pages，保存报表。（3）打开窗体 fEmp 的设计视图，并点击工具栏上的 属性 按钮，点击 加载 属性右边的 打开代码生成器，在 *Add*与*Add*之间输入： If MsgBox(报表预览 ,vbYesNo+vbQuestion,确认 )=vbYes Then，选中 bt2 按钮，并点击工具栏上的 属性 按钮，点击 单击 属性并选择宏 mEmp ，保存窗体。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 10 页，共 37 页11 / 37 44、三、综合应用：（ 30 分）三、综合应用：（30分）考生文件夹下存在一个数据库文件samp3.mdb ，里面已经设计了表对象tEmp 、窗体对象 fEmp 、报表对象rEmp 和宏对象 mEmp 。同时，给出窗体对象fEmp 上一个按钮的单击事件代码，试按以下功能要求补充设计：（1）重新设置窗体标题为信息输出 显示。（2）调整窗体对象fEmp 上退出 按钮（名为 bt2 ）的大小和位置，要求大小与报表输出 按钮（名为 bt1 ）一致，且左边对齐 报表输出 按钮，上边距离报表输出 按钮1厘M （即 bt2 钮的上边距离 bt1 钮的下边 1厘M ）。（3）将报表记录数据按照姓氏分组升序排列，同时要求在相关组页眉区域添加一个文本框控件（命名为tm ），设置属性显示出姓氏