access上机练习题

选择输入性别值“男”和“女”。

（2）选择合适字段，将查询对象“qEmp”改为参数查询，参数为引用窗体对象 “fEmp”上组合框“tSS”的输入值。

（3）将窗体对象“fEmp”上名称为“tPa”的文本框控件设置为计算控件。要求 依据“党员否”字段值显示相应内容。如果“党员否”字段值为True,显示 “党员”两个字；如果“党员否”字段值为False,显示“非党员”三个字。 （4）在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为 “bt1”和“bt2”。单击“刷新”按钮，窗体记录源改为查询对象“qEmp ”；单击“退出”按钮，关闭窗体。现已编写了部分VBA代码，请按照VBA 代码中的指示将代码补充完整。

注意：不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp ”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和 属性。

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

13.1 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

注意：下面出现的“考生文件夹”均为考生文件夹 在考生文件夹下，存在一个数据库文件“samp1.accdb”。在数据库文件中已 经建立了五个表对象“tOrder”、“tDetail”、“tEmployee”、“tCustom” 和“tBook”。试按以下操作要求，完成各种操作：

（1）分析“tOrder”表对象的字段构成，判断并设置其主键。

（2）设置“tDetail”表中“订单明细ID”字段和“数量”字段的相应属性，使 “订单明细ID”字段在数据表视图中的显示标题为“订单明细编号”，将 “数量”字段取值非空且大于0 。

（3）删除“tBook”表中的“备注”字段；并将“类别”字段的“默认值”属性 设置为“计算机” 。

（4）设置“tEmployee”表中“性别”字段相关属性，实现下拉列表选择“男” 和“女”之一。

（5）将“tCustom”表中“邮政编码”和“电话号码”两个字段的数据类型改 为“文本”，将“邮政编码”字段的“输入掩码”属性设置为“邮政编码 ”，将“电话号码”字段的输入掩码属性设置为“010-XXXXXXXX”，其中， “X”为数字位，且只能是0～9之间的数字。 （6）建立五个表之间的关系。

13.2 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

注意：下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对象 “tOrder”、“tDetail”、“tEmployee”和“tBook”，试按以下要求完成设 计：

（1）创建一个查询，查找清华大学出版社出版的图书中定价大于等于20且小于 等于30的图书，并按定价从大到小顺序显示“书籍名称”、“作者名”和 “出版社名称”。所建查询名为“qT1”。

（2）创建一个查询，查找某月出生雇员的售书信息，并显示“姓名”、“书籍 名称”、“订购日期”、“数量”和“单价”。当运行该查询时，提示框 中应显示“请输入月份：”。所建查询名为“qT2” 。

（3）创建一个查询，计算每名雇员的奖金，显示标题为“雇员号”和“奖金” 。所建查询名为“qT3” 。 说明：销售金额 = 单价*数量。

奖金 = 销售金额合计数×5%。

（4）创建一个查询，查找单价低于定价的图书，并显示“书籍名称”、“类别 ”、“作者名”、“出版社名称”。所建查询名为“qT4”。

13.3 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

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

（1）对报表进行适当设置，使报表显示“qSell”查询中的数据。

（2）对报表进行适当设置，使报表标题栏上显示的文字为“销售情况报表”； 在报表页眉处添加一个标签，标签名为“bTitle”，显示文本为“图书销 售情况表”，字体名称为“黑体”、颜色为褐色（褐色代码为#7A4E2B）、 字号为20，文字不倾斜。

（3）对报表中名称为“txtMoney”的文本框控件进行适当设置，使其显示每本 书的金额（金额=数量*单价）。

（4）在报表适当位置添加一个文本框控件（控件名称为“txtAvg”），计算每 本图书的平均单价。

说明：报表适当位置指报表页脚、页面页脚或组页脚

要求：使用Round函数将计算出的平均单价保留两位小数 （5）在报表页脚处添加一个文本框控件（控件名称为“txtIf”），判断所售图 书的金额合计，如果金额合计大于30000，“txtIf”控件显示“达标”， 否则显示“未达标” 。

注意：不允许修改报表对象“rSell”中未涉及的控件、属性；不允许修 改表对象“tOrder”、“tDetail”和“tBook”，不允许修改查 询对象“qSell”。

14.1 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

注意：下面出现的“考生文件夹”均为考生文件夹

在考生文件夹下，存在一个数据库文件“samp1.accdb” ，里边已经设计好 了表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”。试按以 下操作要求，完成各种操作：

（1）在“samp1.mdb”数据库中建立一个新表，名为“tNurse”，表结构如下表 所示： 【图片】

（2）判断并设置表“tNurse”的主键。 （3）设置“护士姓名”字段为必需字段、“工作日期”字段的默认值为系统当 前月的第一天（规定：系统日期必须由函数获取）。设置“护士ID”字段

的有效性规则，保证输入的第一个字符为“N”。

（4）将下表所列数据输入到“tNurse”表中，且显示格式应与下表相同。 【图片】

（5）向“tDoctor”表“性别”字段中输入数据有如下要求：第一，输入方式 为从下拉列表中选择“男”、或“女”值；第二，初始值为“男”。设置 相关属性以实现这些要求。 （6）通过相关字段建立“tDoctor”、“tOffice”、“tPatient”和“

tSubscribe”等四表之间的关系，同时使用“实施参照完整性”。

14.2 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

注意：下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好两个 表对象“tEmployee”和“tGroup”。试按以下要求完成设计：

（1）创建一个查询，查找并显示没有运动爱好的职工的“编号”、“姓名” 、“性别”、“年龄”和“职务”五个字段内容，所建查询命名为“ qT1”。

（2）创建一个查询，查找并显示聘期超过5年（必须使用函数获取）的开发 部职工的“编号”、“姓名”、“职务”和“聘用时间”四个字段内 容，所建查询命名为“qT2”。

（3）创建一个查询，计算5月份聘用的、男女生每个部门的最小年龄。要 求，第一列显示性别，第一行显示部门名称，所建查询名为“qT3”。 （4）创建一个查询，查找年龄低于所有职工平均年龄并且职务为经理的职 工记录，并显示“管理人员”信息。其中管理人员由“编号”和“姓 名”两列信息合二为一构成（比如，编号为“000011”、姓名为“吴 大伟”的数据输出形式为“000011吴大伟”），所建查询命名为“ qT4”。

14.3 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

注意：下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对 象“tEmp”、窗体对象“fEmp”、报表对象“rEmp” 和宏对象“mEmp”。试在 此基础上按照以下要求补充设计：

（1）设置报表“rEmp”按照“年龄”字段升序排列输出；将报表页面页脚区域 内名为“tPage”的文本框控件设置为“第N页，共M页”形式的页码显示 （如第1页，共15页、第2页，共15页、…）。

（2）设置窗体对象“fEmp”背景图像为考生文件夹下的图像文件“photo.bmp” ，并将该图像以平铺方式显示。

（3）在窗体加载事件中实现代码重置窗体标题为标签“bTitle”的标题内容。 （4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。 在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），计算满足表

达式1+2+3+…+n<=30000的最大n值，并将n的值显示在窗体上名为“tData” 的文本框内并输出到外部文件保存。单击“打开表”命令按钮（名为“ btnQ”），代码调用宏对象“mEmp”以打开数据表“tEmp”。

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

15.1 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

注意：下面出现的“考生文件夹”均为考生文件夹 在考生文件夹下，存在一个数据库文件“samp1.accdb”，里面已经建立了 表对象“tBook”、“tDetail”、“tEmp”和“tOrder” ，宏对象“mTest”。 试按以下要求，完成各种操作：

（1）将“tOrder”表中“订单ID”字段的数据类型改为“文本”，字段大 小改为10；设置该字段的相关属性，使其在数据表视图中显示为“订 单号”。

（2）向“tOrder”表“订购日期”字段中输入数据有如下要求：第一，输 入格式为“XXXX/XX/XX(如，2011/01/08)”；第二，输入的数据为

2011年1月至8月产生的；第三，当输入的数据不符合要求时，显示“ 输入数据有误，请重新输入”信息。设置相关属性以实现这些要求。 （3）向“tBook”表“类别”字段中输入数据有如下要求：第一，输入方 式为从下拉列表中选择“JSJ”、或“KJ”值；第二，初始值为“ JSJ”。设置相关属性以实现这些要求。

（4）在数据表视图中进行相关设置，使其能够显示出“tEmp”表中所有字 段的数据。 （5）建立“tBook”、“tDetail”、“tEmp”和“tOrder”等四张表之 间的关系，并全部实施参照完整性。

（6）将宏“mTest”重命名，保存为自动执行的宏。

15.2 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

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

（1）创建一个查询，查找人数为20的班级，并显示“班级编号”和“班级 人数”。所建查询名为“qT1”。

要求：使用“姓名”字段统计人数。 说明：“学号”字段的前8位为班级编号。

（2）创建一个查询，查找平均成绩最高的课程，并显示“课程名”和“平 均成绩”。所建查询名为“qT2”。

要求：使用Round函数实现平均成绩保留整数。

（3）创建一个查询，计算男女生每门课程的最高成绩。要求，第一列显示 性别，第一行显示课程名。所建查询名为“qT3”。

（4）创建一个查询，运行该查询后生成一张新表，表名为“tNew”，表结 构包括“姓名”、“课程名”和“成绩”等三个字段，表内容为90分 以上（包括90分）或不及格的所有学生记录。所建查询名为“qT4”。 要求：

1、所建新表中的记录按照“成绩”降序保存。 2、创建此查询后，运行该查询，并查看运行结果。

15.3 请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：

注意：下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tBook”、“tDetail”、“tEmp”和“tOrder”，查询对象“qSell”，窗 体对象“fEmp”。同时还设计出以“qSell”为数据源的报表对象“rSell”。 请在此基础上按照以下要求补充“fEmp”窗体和“rSell”报表的设计： （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*****”之间的空行 内补充一条代码语句、不允许增删和修改其它位置已存在的语句。