access上机练习题

更新时间:2024-04-08 00:33:01 阅读量: 综合文库 文档下载

说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

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

注意:下面出现的“考生文件夹”均为考生文件夹 在考生文件夹下,“samp1.accdb”数据库文件中已建立表对象“tEmployee ”。试按以下操作要求,完成表的编辑:

(1) 分析“tEmployee”表的结构,判断并设置主键。

(2) 删除表中的“所属部门”字段;设置“年龄”字段的有效性规则为只能 输入大于16的数据。

(3) 在表结构中的“年龄”与“职务”两个字段之间增添一个新的字段:字 段名称为“党员否”,字段类型为“是/否”型;删除表中1999年5月聘 用、并具有“相声”爱好的女职工记录。

(4) 设置“职务”字段值的输入方式为从下拉列表中选择“职员”、“主管 ”或“经理”选项值。

(5) 设置“聘用时间”字段的相关属性,使该字段按照“XXXX/XX/XX”格式 输入。例如,2013/06/08。

(6) 将表中聘用时间超过30年(不含30年)的职工“职务”字段值更改为“ 退休”。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好表对 象“tStud”和“tTemp”。tStud表是学校历年来招收的学生名单,每名学生均 有身份证号。对于现在正在读书的“在校学生”,均有家长身份证号,对于已 经毕业的学生,家长身份证号为空。

例如,表中学生“张春节”没有家长身份证号,表示张春节已经从本校毕 业,是“校友”。

表中学生“李强”的家长身份证号为“110107196201012370”,表示李强 为在校学生。由于在tStud表中身份证号“110107196201012370”对应的学生姓 名是“李永飞”,表示李强的家长李永飞是本校校友。 “张天”的家长身份证号为“110108196510015760”,表示张天是在校学 生;由于在tStud表中身份证号“110108196510015760”没有对应的记录,表示 张天的家长不是本校的校友。 请按下列要求完成设计:

(1) 创建一个查询,要求显示在校学生的“身份证号”和“姓名”两列内容, 所建查询命名为“qT1”。

(2) 创建一个查询,要求按照身份证号码找出所有学生家长是本校校友的学生 记录。输出学生身份证号、姓名及家长姓名三列内容,标题显示为“身份 证号”、“姓名”和“家长姓名”,所建查询命名为“qT2”。

(3) 创建一个查询,统计数学成绩为100分的学生人数,标题显示为“num”, 所建查询命名为“qT3”。

要求:使用“身份证号”字段进行计数统计。

(4) 创建一个查询,将“tStud”表中总分成绩超过270分(含270)的学生信 息追加到空表“tTemp”中。其中,“tTemp”表的入学成绩为学生总分, 所建查询命名为“qT4”。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对 象“tTeacher”、窗体对象“fTest”,报表对象“rTeacher”和宏对象“m1” 。试在此基础上按照以下要求补充窗体设计和报表设计:

(1)将报表对象rTeacher的报表主体节区中名为“性别”的文本框显示内容 设置为“性别”字段值,并将文本框名称更名为“tSex”。

(2)在报表对象rTeacher的报表页脚节区位置添加一个计算控件,计算并显 示教师的平均工龄。计算控件放置在距上边0.3厘米、距左侧3.6厘米, 命名为“tAvg”。

(3)设置窗体对象fTest上名为“btest”的命令按钮的单击事件属性为给定 的宏对象m1。

注意:不允许修改数据库中的表对象“tTeacher”和宏对象“m1”;不允许 修改窗体对象“fTest” 和报表对象“rTeacher”中未涉及的控件和 属性。

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

注意:下面出现的“考生文件夹”均为考生文件夹 在考生文件夹下,“samp1.accdb”数据库文件中已建立两个表对象“员工 表”和“部门表”。试按以下要求,完成表的各种操作:

(1)分析两个表对象“员工表”和“部门表”的构成,判断其中的外键属性, 将其字段名称作为“员工表”表属性中说明的内容进行设置。

(2)将“员工表”中有摄影爱好的员工其“备注”字段的值设为True(即复 选框里打上钩)。

(3)删除聘用时间超过30年(含30年)、“职务”为“经理”的职工。 (4)将考生文件夹下文本文件Test.txt中的数据导入追加到当前数据库的“ 员工表”相应字段中。

(5)设置相关属性,使“员工表”中“密码”字段以密码方式输入并显示。 (6)建立“员工表”和“部门表”的表间关系,并实施参照完整性。

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

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

(1)创建一个查询,查找选课学分超过3分或没有先修课的学生记录,并显示 学生的“姓名”、“课程名”和“成绩”三个字段内容,所建查询命名 为“qT1”。

(2)创建一个查询,查找5号入校的学生,显示其“学号”、“姓名”、“性 别”和“年龄”四个字段内容,所建查询命名为“qT2”。

(3)创建一个查询,查找选课成绩均在80分(含80分)以上的学生记录,并 显示“学号”和“平均成绩”两列内容。其中“平均成绩”一列数据由

统计计算得到,所建查询命名为“qT3”。

(4)创建一个查询,将“tStud”表中女学生的信息追加到“tTemp”表对应的 字段中,所建查询命名为“qT4”。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对 象“tEmployee”和宏对象“m1”,同时还设计出以“tEmployee”为数据源的 窗体对象“fEmployee”。试在此基础上按照以下要求补充窗体设计:

(1)在窗体的窗体页眉节区位置添加一个标签控件,其名称为“bTitle”, 初始化标题显示为“雇员基本信息”,字体名称为“黑体”,字号为 18。

(2)将命令按钮bList的标题设置为“显示雇员情况”。

(3)单击命令按钮bList,要求运行宏对象m1;单击事件代码已提供,请补 充完整。

(4)取消窗体的水平滚动条和垂直滚动条;取消窗体的最大化和最小化按 钮。

(5)窗体加载时,将“Tda”标签标题设置为“YYYY年雇员信息”,其中 “YYYY”为系统当前年份(要求使用相关函数获取),例如,2013年 雇员信息。窗体“加载”事件代码已提供,请补充完整。

注意:不允许修改窗体对象“fEmployee”中未涉及的控件和属性;不允许 修改表对象“tEmployee”和宏对象“m1”。

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

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下,“samp1.accdb”数据库文件中已建立表对象“tEmp”。试 按以下操作要求,完成对表“tEmp”的编辑修改和操作: (1)将“编号”字段改名为“工号”,并设置为主键;按所属部分修改工号, 修改规则为:部门“01”的“工号”首字符为“1”,部门“02”首字符 为“2”,依次类推。

(2)设置“年龄”字段的有效性规则为不能是空值。

(3)设置“聘用时间”字段的默认值为系统当前年的一月一号。

(4)删除表结构中的“简历”字段;设置“聘用时间”字段的相关属性,使 该字段按照“XXXX/XX/XX”格式输入,例如,2013/07/08。

(5)将考生文件夹下“samp0.accdb”数据库文件中的表对象“tTemp”导入到 “samp1.accdb”数据库文件中。

(6)完成上述操作后,在“samp1.accdb”数据库文件中做一个表对象“tEmp ”的备份,命名为“tEL”。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好二个表 对象“tTeacher1”和“tTeacher2”。试按以下要求完成设计: (1)创建一个查询,查找并显示在职教师的“编号”、“姓名、“年龄”和“性 别”四个字段内容,所建查询命名为“qT1”。

(2)创建一个查询,查找年龄低于所有职工平均年龄的职工记录,并显示“编 号姓名”和“联系电话”两列信息,其中“编号姓名”由“编号”与“姓 名”两个字段合二为一构成,所建查询命名为“qT2”。

(3)创建一个查询,按输入的参加工作时间的月份查找,并显示教师的“编号” 、“姓名”、“年龄”和“性别”四个字段内容,当运行该查询时,应显 示提示信息:“请输入月份”,所建查询命名为“qT3”。 (4)创建一个查询,将“tTeacher1”表中的党员教授的记录追加到 “tTeacher2”表相应的字段中,所建查询命名为“qT4”。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对 象“tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail ”,同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按 照以下要求补充“fStud”窗体和“rStud”报表的设计:

(1)在报表的报表页眉节区位置添加一个标签控件,其名称为“bTitle”, 标题显示为“团员基本信息表”;将名称为“tSex”的文本框控件的输出内容设 置为 “性别”字段值。在报表页脚节区添加一个计算控件,其名称为“tAvg”, 设置相关属性,输出学生的平均年龄。

(2)将“fStud”窗体对象主体节中控件的Tab键焦点移动顺序设置为: “CItem”→“TxtDetail” →“CmdRefer” →“CmdList” → “CmdClear” →“fDetail” →“简单查询”。

(3)在窗体加载事件中,实现重置窗体标题为标签“tTitle”的标题内容。 (4)试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行 调试。

在窗体中有一个组合框控件和一个文本框控件,名称分别为“CItem”和 “TxtDetail”;有两个标签控件,名称分别为“Label3”和“Ldetail”;还 有三个命令按钮,名称分别为“CmdList”、“CmdRefer”和“CmdClear”。 在“CItem”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选 项目名加上“内容:”。在“TxtDetail”文本框中输入具体项目值后,单击 “CmdRefer”命令按钮,如果“CItem”和“TxtDetail”两个控件中均有值, 则在子窗体中显示找出的相应记录,如果两个控件中没有值,显示提示框, 提示框标题为“注意”,提示文字为“查询项目或查询内容不能为空!!!”, 提示框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显 示“tStud”表中的全部记录;单击“CmdClear”命令按钮,将清空控件 “cItem”和“TxtDetail”中的值。

注意:不允许修改窗体对象“fStud” 和子窗体对象“fDetail”中未涉 及的控件、属性和任何VBA代码;不允许修改报表对象“rStud”中已有的控

件和属性;不允许修改表对象“tStud”和查询对象“qStud”。只允许在

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

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

注意:下面出现的“考生文件夹”均为考生文件夹 在考生文件夹下,“samp1.accdb”数据库文件中已建立表对象“tEmployee ”。试按以下操作要求,完成表的编辑: (1) 分析表的结构,判断并设置主键。

(2) 设置“年龄”字段的“有效性规则”属性为:非空且非负。 (3) 设置“聘用时间”字段的默认值为:系统当前月的最后一天。 (4) 交换表结构中的“职务”与“聘用时间”两个字段的位置。 (5) 删除1995年聘用的“职员”职工信息。 (6) 在编辑完的表中追加以下一条新记录:

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好两个 关联表对象“tStaff”和“tSalary”及表对象“tTemp”。试按以下要求完成设 计:

(1)创建一个查询,查找下半年聘用的经理,并显示“工号”、“姓名、“年 龄”和“性别”四个字段内容,所建查询命名为“qT1”。

(2)创建一个查询,查找各位员工在2005年的工资信息,并显示“工号”、“ 工资合计”和“水电房租费合计”三列内容。其中,“工资合计”和“水 电房租费合计”两列数据均由统计计算得到,所建查询命名为“qT2”。

(3)创建一个查询,查找并显示员工的“年月”、“姓名”、“工资”、“水电

房租费”及“应发工资”五列内容。其中“应发工资”列数据由计算得到, 计算公式为:应发工资=工资-水电房租费,所建查询命名为“qT3”。 (4)创建一个查询,将表“tTemp”中“年龄”字段值均加1,所建查询命名 为“qT4”。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对 象“tStud”和查询对象“qStud”,同时还设计出以“qStud”为数据源的报表 对象“rStud”。试在此基础上按照以下要求补充报表设计:

(1)在报表的报表页眉节区位置添加一个标签控件,其名称为“bTitle”, 标题显示为“团员基本信息表”。

(2)在报表的主体节区添加一个文本框控件,显示“性别”字段值。该控 件放置在距上边0.1厘米、距左边5.2厘米,并命名为“tSex”。

(3)在报表页脚节区添加一个计算控件,计算并显示学生平均年龄。计算 控件放置在距上边0.2厘米、距左边4.5厘米,并命名为“tAvg”。

给出窗体对象“fEmp”上一个按钮的单击事件代码,试按以下功能要求补充设计:

(1)打开窗体时设置窗体标题为“XXXX年信息输出”显示,其中“XXXX”为系统 当前年份(要求用相关函数获取),例如,2013年信息输出。窗体“打开” 事件代码已提供,请补充完整。

(2)调整窗体对象“fEmp”上“退出”按钮(名为“bt2”)的大小和位置,要 求大小与“报表输出”按钮(名为“bt1”)一致,且左边对齐“报表输出 ”按钮,上边距离“报表输出”按钮1厘米(即“bt2”钮的上边距离“bt1 ”钮的下边1厘米)。

(3)利用表达式将报表记录数据按照姓氏分组升序排列,同时要求在相关组页 眉区域添加一个文本框控件(命名为“tm”),设置属性显示出姓氏信息 来,如“陈”、“刘”、...等。

注意,这里不用考虑复姓等特殊情况。所有姓名的第一个字符视为其姓氏 信息。

(4)单击窗体“报表输出”按钮(名为“bt1”),调用事件代码实现以预览方 式打开报表“rEmp”;单击“退出”按钮(名为“bt2”),调用设计好的 宏“mEmp”来关闭窗体。

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

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

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

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

(1)设置“ID”字段为主键;并设置“ID”字段的相应属性,使该字段在数据 表视图中的显示标题为“学号”;

(2)将“性别”字段的默认值属性设置为“男”,设置“入校时间”字段的相 关属性,使该字段的输入格式为“XXXX/XX/XX”,例如,2013/06/08; (3)设置“入校时间”字段的有效性规则和有效性文本。有效性规则为:输入 的入校时间必须为9月;有效性文本内容为“输入的月份有误,请重新输 入”;

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

(5)设置“政治面目”字段的输入方式为从下拉列表中选择“团员”、“党员” 和“其他”选项值;

(6)将考生文件夹下的“tScore.xls”文件导入到“samp1.mdb”数据库文件 中,表名不变,主键为表中的“ID”字段。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好三个

关联表对象“tStud”、“tScore”和“tCourse”,试按以下要求完成设计: (1)创建一个查询,查找年龄高于平均年龄的党员记录,并显示“姓名”、“ 性别”和“入校时间”。所建查询命名为“qT1”。

(2)创建一个查询,按输入的成绩区间查找,并显示“姓名”、“课程名”和 “成绩”。当运行该查询时,应分别显示提示信息:“最低分”和“最高 分”。所建查询命名为“qT2”。

(3)创建一个查询,统计并显示各门课程男女生的平均成绩,统计显示结果如 下图所示。所建查询命名为“qT3”。

要求:平均分结果用Round函数取整输出。 【图片】

(4)创建一个查询,运行该查询后生成一个新表,表名为“tTemp”,表结构包 括“姓名”、“课程名”和“成绩”等三个字段,表内容为不及格的所有 学生记录。所建查询命名为“qT4”。要求创建此查询后,运行该查询,并 查看运行结果。

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

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

(1)在窗体的“窗体页眉”中距左边1.2厘米、距上边1.2厘米处添加一个直线 控件,控件宽度为7.8厘米,边框颜色改为“蓝色\( 蓝色代码为 #0000FF),控件命名为“tLine”;

(2)将窗体中名称为“lTalbel”的标签控件上的文字颜色改为“蓝色\( 蓝色 代码为#0000FF)、字体名称改为“华文行楷”、字号改为22;

(3)将窗体边框改为“细边框”样式,取消窗体中的水平和垂直滚动条、记录选 择器、导航按钮和分隔线;并且只保留窗体的关闭按钮; (4)假设“tStud”表中,“学号”字段的第5位和6位编码代表该生的专业信息, 当这两位编码为“10”时表示“信息”专业,为其他值时表示“管理”专业 。设置窗体中名称为“tSub”的文本框控件的相应属性,使其根据“学号” 字段的第5位和第6位编码显示对应的专业名称;

(5)在窗体中有一个“退出”命令按钮,名称为“CmdQuit”,单击该按钮,弹出 提示框。提示框标题为“提示”,提示框内容为“确认退出?”,并显示问 号图标;提示框中有两个按钮,分别为“是”和“否”,单击“是”按钮, 关闭消息框和当前窗体,单击“否”按钮,关闭消息框。请按照VBA代码中 的指示将实现此功能的代码填入指定的位置中。

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

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

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

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

在考生文件夹下,存在一个数据库文件“samp1.accdb”和一个Excel文件“ tQuota.xls”。在数据库文件中已经建立了一个表对象“tStock”。试按以下操 作要求,完成各种操作:

(1)分析“tStock”表的字段构成,判断并设置其主键。

(2)在“tStock”表的“规格”和“出厂价”字段之间增加一个新字段,字段 名称为“单位”,数据类型为文本,字段大小为1;设置有效性规则,保 证只能输入“只”或“箱”。

(3)删除“tStock”表中的“备注”字段,并为该表的“产品名称”字段创建 查阅列表,列表中显示“灯泡”、“节能灯”和“日光灯”三个值。 (4)向“tStock”表中输入数据有如下要求:第一,“出厂价”只能输入3位 整数和2位小数(整数部分可以不足3位),第二,“单位”字段的默认值 为“只”。设置相关属性以实现这些要求。

(5)将考生文件夹下的“tQuota.xls”文件导入到“samp1.accdb”数据库文 件中,表名不变,分析该表的字段构成,判断并设置其主键;设置表的相 关属性,保证输入的“最低储备”字段值低于“最高储备”字段值,当输 入的数据违反有效性规则时,提示“最低储备值必须低于最高储备值”。 (6)建立“tQuota”表与“tStock”表之间的关系。

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

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

(1)创建一个查询,查找库存数量高于30000(包含30000)的产品,并显示“ 产品名称”、“规格”、“库存数量”和“最高储备”等字段内容,所建 查询命名为qT1。

(2)创建一个查询,查找某类产品的库存情况,并显示“产品名称”、“规格” 和“库存数量”等字段内容,所建查询名为“qT2”;当运行该查询时,提 示框中应显示“请输入产品类别:”。

说明:产品类别为“产品ID”字段值的第1位。

(3)创建一个查询,查找库存数量超过(不含)最高储备的产品,并显示“产 品名称”、“库存数量”和“最高储备”等字段内容。所建查询命名为“ qT3”。

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

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好窗体 对象“fSys”。请在此基础上按照以下要求补充“fSys”窗体的设计: (1)将窗体的边框样式设置为“对话框边框”,取消窗体中的水平和垂直滚动条 、记录选择器、导航按钮、分隔线、控制框、关闭按钮、最大化按钮和最小 化按钮。

(2)将窗体标题栏显示文本设置为“系统登录”。

(3)将窗体中“用户名称”(名称为“lUser”)和“用户密码”(名称为“ lPass)两个标签上的文字颜色改为浅综色(浅综色代码为#800000)、字 体粗细改为“加粗”。 (4)在窗体加载时,“tPass”文本框的内容以密码形式显示。窗体“加载”事 件代码已给出,请补充完整。

(5)按照以下窗体功能,补充事件代码设计。

在窗体中有“用户名称”和“用户密码”两个文本框,名称分别为“tUser ”和“tPass”,还有“确定”和“退出”两个命令按钮,名称分别为“ cmdEnter”和“cmdQuit”。在“tUser”和“tPass”两个文本框中输入用 户名称和用户密码后,单击“确定”按钮,程序将判断输入的值是否正确, 如果输入的用户名称为“cueb”,用户密码为“1234”,则显示正确提示 框;如果输入不正确,则提示框显示内容为“密码错误!”,同时清除“ tUser”和“tPass”两个文本框中的内容,并将光标置于“tUser”文本框 中。当单击窗体上的“退出”按钮后,关闭当前窗体。

注意:不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码。 只允许在“*****Add*****”与“*****Add*****”之间的空行内补充 一条语句,不允许增删和修改其它位置已存在的语句。

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

注意:下面出现的“考生文件夹”均为考生文件夹 (1)考生文件夹下存在一个数据库文件“samp1.accdb”。试修改职工表“

employee”的结构,在“职工号”字段后增加“姓名”字段,其数据类型 为文本型,长度为6,并对应职工号添加其姓名,见下表。 【图片】

(2)判断并设置表“employee”的主键,同时将上面增加的“姓名”字段隐藏 起来。

(3)设置表“employee”的“基本工资”字段的默认值为:1000。

(4)在当前数据库中,对表“employee”做一个备份,命名为表“tEmp”。 (5)设置表“employee”的有效性规则为:“津贴”字段的值必须小于等于“ 基本工资”字段值。

(6)将已有的“水费.xls”文件导入到samp1.mdb数据库中,将导入的表命名为 “水费记录”。“水费记录”表结构调整如下。 【图片】

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

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

(1)创建一个查询,统计人数在5人以上(不含5)的院系人数,字段显示标题 为“院系号”和“人数”,所建查询命名为“qT1” 。 注意:要求按照学号来统计人数。

(2)创建一个查询,查找非“04” 院系的选课学生信息,输出其“姓名”、“ 课程名”和“成绩”三个字段内容,所建查询命名为“qT2” 。

(3)创建一个查询,查找还没有选课的学生的姓名,所建查询命名为“qT3”。 (4)创建一个查询,将前5条记录的学生信息追加到表“tTemp”的对应字段中, 所建查询命名为“qT4”。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象 “tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail” ,同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按照 以下要求补充“fStud”窗体和“rStud”报表的设计:

(1)在报表的报表页眉节区位置添加一个标签控件,其名称为“bTitle”, 标题显示为“团员基本信息表”;将名称为“tSex”的文本框控件的输 出内容设置为 “性别”字段值。在报表页脚节区添加一个计算控件, 其名称为“tAvg”,设置相关属性,输出学生的平均年龄。

(2)将“fStud”窗体对象主体节中控件的Tab键次序移动顺序设置为: “CItem”→“TxtDetail” →“CmdRefer” →“CmdList” → “CmdClear” →“fDetail” →“简单查询”。

(3)在窗体加载事件中,实现重置窗体标题为当前年月加标签“tTitle” 的标题内容,如“2013年06月xxxx”。其中,当前年月要求用函数获 得,xxxx部分是标签“tTitle”的标题内容。

(4)试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行 调试。

在窗体中有一个组合框控件和一个文本框控件,名称分别为“CItem”和 “TxtDetail”;有两个标签控件,名称分别为“Label3”和“Ldetail”;还 有三个命令按钮,名称分别为“CmdList”、“CmdRefer”和“CmdClear”。 在“CItem”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选 项目名加上“内容:”。在“TxtDetail”文本框中输入具体项目值后,单击 “CmdRefer”命令按钮,如果“CItem”和“TxtDetail”两个控件中均有值, 则在子窗体中显示找出的相应记录,如果两个控件中没有值,显示提示框, 提示框标题为“注意”,提示文字为“查询项目或查询内容不能为空!!!”, 提示框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显 示“tStud”表中的全部记录;单击“CmdClear”命令按钮,将清空控件 “cItem”和“TxtDetail”中的值。

注意:不允许修改窗体对象“fStud” 和子窗体对象“fDetail”中未涉 及的控件、属性和任何VBA代码;不允许修改报表对象“rStud”中已有的控 件和属性;不允许修改表对象“tStud”和查询对象“qStud”。只允许在

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

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

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

在考生文件夹下,存在一个Excel文件“Test.xls”和一个数据库文件“ samp1.accdb”。库文件中已建立三个表对象(名为“线路”、“游客”和“团

队”)和一个窗体对象(名为“brow”)。试按以下要求,完成表和窗体的各 种操作:

(1)将“线路”表中的“线路ID”字段设置为主键;设置“天数”字段的有效 性规则属性,有效性规则为非空且大于0。

(2)将“团队”表中的“团队ID”字段设置为主键;追加“线路ID”新字段, 数据类型为“文本”,字段大小为8。

(3)将“游客”表中的“年龄”字段删除;添加两个字段,字段名分别为“证 件编号”和“证件类别”;“证件编号”的数据类型为“文本”,字段大 小为20;“证件类别”字段的数据类型为“文本”,字段大小为8,其值 的输入要求从下拉列表选择“身份证”、“军官证”或“护照”之一。 (4)将考生文件夹下Test.xls文件中的数据链接到当前数据库中。要求:数据 中的第一行作为字段名,链接表对象命名为“tTest”。 (5)建立“线路”、“团队”和“游客”三表之间的关系,并实施参照完整性。 (6)修改窗体“brow”,取消“记录选择器”和“分隔线”显示,在窗体页眉 处添加一个标签控件(名为Line),标签标题为“线路介绍”,字体名称 为隶书、字体大小为18。

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

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

(1)创建一个查询,查找并显示6月份入住客人的“姓名”、“房间号”、“ 电话”和“入住日期”四个字段内容,所建查询命名为“qT1”。

(2)创建一个查询,能够在客人每次结账时根据客人的姓名提示统计这个客人 已住天数和应交金额,并显示“姓名”、“房间号”、“已住天数”和“ 应交金额”,所建查询命名为“qT2”。 注:输入姓名时应提示“请输入姓名”。

已住天数按系统时间为客人结账日进行计算。 应交金额=已住天数*价格。

(3)创建一个查询,查找“身份证”字段第4位至第6位值为“102”的纪录,并 显示“姓名”、“入住日期”和“价格”三个字段内容,所建查询命名为 “qT3”。

(4)以表对象“tB”为数据源创建一个查询,使用房间号统计并显示每栋楼的 各类房间个数。行标题为“楼号”,列标题为“房间类别”,所建查询命 名为“qT4”。

注:房间号的前两位为楼号。

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

注意:下面出现的“考生文件夹”均为考生文件夹 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象 “tEmp”、查询对象“qEmp”和窗体对象“fEmp”。同时,给出窗体对象“fEmp ”上两个按钮的单击事件代码,试按以下要求补充设计。

(1)将窗体“fEmp”上名称为“tSS”的文本框控件改为组合框控件,控件名称 不变,标签标题不变。设置组合框控件的相关属性,以实现从下拉列表中

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

(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*****”之间的空行 内补充一条代码语句、不允许增删和修改其它位置已存在的语句。

本文来源:https://www.bwwdw.com/article/kkrr.html

Top