实验报告B(学生).doc

计算机网络与数据库 Access 2010实验报告(B)学 院： 班 级： 专 业： 姓 名： 学 号： 教 师： 实验室： 座位号： 班级信息添加班级信息删除班级信息修改班级信息查询班级信息维护教学管理系统教师信息维护学生信息维护课程信息维护教学信息维护教师信息添加教师信息删除教师信息修改教师信息查询学生信息添加学生信息删除学生信息修改学生信息查询课程信息添加课程信息删除课程信息修改课程信息查询学生选课成绩录入成绩打印 每次实验后务必将数据库文件（教学管理系统.accdb）妥善保存以备下次实验。文件可以存放在网络环境下（电子邮箱、网络硬盘、云盘等），有条件的同学尽可能带上U盘、移动硬盘、手机存储卡等移动存储设备。 实验报告在期末统一上交，作为实验成绩的评分依据。 带*的实验根据教学进度选做，不做评分依据。实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验一 数据库的设计成绩评定所用软件Access 2010教师签名实验目的或要求熟练掌握使用Access 2010建立数据库的方法熟练掌握使用Access 2010建立数据表的方法掌握数据库应用系统的分析与设计方法掌握导入表、链接表的方法掌握导出表数据的方法实验步骤心得体会实验步骤心得体会实验步骤心得体会实验步骤心得体会1、打开Access 2010，建立一个名为“教学管理系统”的空白数据库。提示：选择( )选项卡中的( )命令，再选择“可用模板”中的“空数据库”，在窗口右侧设置好需要创建的数据库位置(桌面)、名称(教学管理系统)和保存类型(使用Access2010默认的“Microsoft Access 2007数据库.accdb”)，完成设置后，点击“创建”按钮新建一个空白数据库。2、通过对“教学管理系统”的功能需求分析，对系统进行功能模块的划分。 教学管理系统的主要划分为哪几个功能模块：( )完成整个系统流程，需要哪些实体：( )3、通过对功能模块的划分，结合规划化设计的理念，在数据库中设计了6张数据表来分别存放有关信息。相关表及具体要求如下：(1)院系表字段名称数据类型字段属性备注院系名称文本16主键办公电话文本11 (2)教师表字段名称数据类型字段属性备注教师编号文本5主键教师姓名文本8密码文本20默认值：123456内容以*显示系别文本16列表项从院系表中获得(3)课程表字段名称数据类型字段属性备注课程编号文本5主键输入格式为1位字母+4位数字课程名称文本20课程简称文本8拼音码文本20教师编号文本8开课系别文本16列表项从院系表中获得学分数字单精度型固定一位小数(4)选课成绩表字段名称数据类型字段属性备注学号文本12主键课程编号文本5主键成绩数字整型备注文本2列表项包括：正常;缺考;缓考;免考;违纪;作弊默认值：正常(5)班级表字段名称数据类型字段属性备注班级名称文本7主键人数数字整型班主任文本8在以上建立的数据表中填写正确格式和内容的数据(每张表至少输入3条完整的记录)(6)学生表步骤：将其他格式的数据成批导入到Access中(A)在Excel中建立一个“学生表”(效果如下图) (B)打开“教学管理系统”数据库，将“学生表”导入到数据库中提示：点击“功能区”中的“外部数据”选项卡，在“导入并链接”组中选择“Excel”按钮将数据导入到”教学管理系统”数据库，按照向导步骤完成导入操作后，数据表保存为“学生表”。(C)按照下表要求，修改“学生表”各字段的属性字段名称数据类型字段属性备注班级文本7列表项从“班级表”中获取学号文本12主键姓名文本8性别文本1列表项：男;女默认值：男出生日期日期/时间中日期身份证号文本18必须为15或18位纯数字政治面貌文本8民族文本12列表项：汉族;回族默认值：汉族籍贯文本8列表项：北京市;江西省相片OLE对象(D)在网上搜集部分一寸照并放入到每个学生的“相片”字段中提示：双击“学生表”打开表记录窗口，右击一条记录的“相片”字段，选择“插入对象”命令，然后在弹出的对话框中选择新建bitmap image(位图图像)对象，就能打开画图编辑器，在画图编辑器的“编辑”菜单中(Win7在“主页”选项卡)选择“粘贴来源”命令，在弹出的对话框中指定该同学的一寸照图片文件。4、将“学生表”导出到文本文件提示：打开“学生表”，选择“外部数据”选项卡中的“文本文件”按钮，弹出“导出文本向导”后，按照向导步骤设置即可。心得体会：实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验二 数据表的编辑成绩评定所用软件Access 2010教师签名实验目的或要求掌握字段属性设置的方法掌握记录排序和筛选的方法掌握索引的建立方法掌握调整数据表外观的方法掌握表间关系的建立方法实验步骤心得体会1、按要求设置“学生表”的各字段信息 “学号”必须为12位数字字符：设置( )属性为( ) “出生日期”显示为XXXX年XX月XX日：设置( )属性为( ) “班级”字段显示标题为“院系班级”：设置( )属性为( ) “政治面貌”字段的内容默认为“团员”：设置( )属性为( ) “政治面貌”字段的值更改为不需要手动输入，只需在下拉列表中选择“党员、团员、群众”其中任一项：先设置“行来源类型”的属性为“值列表”，再设置( )属性为( )2、设置“学生表”表的显示外观外观设计对应选项卡 组 按钮 设定值数据表的行高设置为15磅开始 记录 其他 行高 15磅“班级”字段的列宽调整为12磅隐藏”相片”列冻结“姓名”列设置数据表底色为：白色，背景1，深色15%设置数据表网络线为：黑色显示文字设置为：隶书、14磅 实验步骤心得体会3、对“学生表”按照“出生日期”进行升序排序提示：打开“学生表”(方法1)点击“出生日期”字段，选择 “升序”或“降序”。(方法2)在“开始”选项卡中点击“升序”或“降序”按钮。4、按要求对“学生表”中的信息进行筛选操作结果点击“开始”选项卡中“排序和筛选”组中的“高级”按钮，在下一级菜单中选择“按窗体筛选”，并在“政治面貌”字段中选择“党员”，点击“切换筛选”按钮。将光标停留在“民族”列，点击“开始”选项卡中“排序和筛选”组中的“筛选器”按钮，在弹出的筛选器窗口中勾选“汉族”和“回族”，点击“确定”按钮。点击“开始”选项卡中的“高级”按钮，在下一级菜单中选择“高级筛选”命令，添加“民族”和“性别”字段到“字段”列，并设置“民族”字段的条件为( )，设置“性别”字段的条件为( )，点击工具栏中的“切换筛选”按钮。显示所有民族为汉族的男同学记录练习：显示所有“90后”的记录。5、为“学生表”建立一个索引，要求按身份证号降序排序提示：打开“学生表”的设计视图，在( )选项卡中选择“索引”命令，打开索引设计器并设置数据表的索引字段。在索引设计器中，用户可以对索引字段设置是否为( )索引或( )索引练习：为“学生表”建立一个索引，要求：先按性别升序排序，相同的性别再按出生日期的降序排序。6、建立表间关系（给数据库中的各表建立起表间关系参考图如下）。心得体会：实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验三 查询向导的创建成绩评定所用软件Access 2010教师签名实验目的或要求了解查询的作用掌握利用向导创建查询的方法实验步骤心得体会1、利用向导建立简单查询查询：检索“学生表”中所有记录的“姓名”和“身份证号”提示：创建 查询向导 简单查询向导 选择“学生表”作为数据源，并将“可用字段”框中的“姓名”和“身份证号”添加到( )中 按照向导步骤一步步完成即可。查询：检索“选课成绩表”中分数最高的记录提示：创建 查询向导 简单查询向导 选择“选课成绩表”作为数据源，并将“可用字段”框中的“成绩”添加到“选定的字段”中 在( )中选择“成绩”的“最大值” 按照向导步骤一步步完成即可。练习：统计“班级表”中所有班级的总人数结果：总人数为_。2、利用向导建立交叉表查询查询：统计学生表中，不同政治面貌不同性别的学生人数提示：创建 查询向导 交叉表查询向导 选择“学生表”作为数据源 将 ( ) 设置为 “行标题” 将“性别”设置为“列标题” 将行和列的交叉点设置为( )字段的( )函数运算(注意：如果不需要各行的统计，可以在这个步骤中将左边“是，包括各行小计”前面的勾去掉) 按照向导步骤一步步完成即可。练习：统计“学生表”中各民族男女生的人数结果：汉族的男生人数为_。实验步骤心得体会3、利用向导建立重复项查询查询：检索“选课成绩表”中成绩相同的记录提示：创建 查询向导 查找重复项查询向导 选择“选课成绩表”作为数据源，并将“可用字段”框中的“成绩”添加到( )框中 将“可用字段”框中的“学号”、“课程编号”添加到“另外的查询字段”框中 按照向导步骤一步步完成即可。练习：查询有哪些同学同名同姓结果：共检索到_位同学。4、利用向导建立不匹配项查询查询：检索“学生表”中有哪些学生从未选课提示：(从未选课的含义：某记录在“学生表”中存在，但是在“选课成绩表”中不存在) 创建 查询向导 查找不匹配项查询向导 选择“学生表” 选择“选课成绩表” 匹配字段设置为2张表共有的“学号”字段 查询结果字段设置为“班级”、“姓名” 按照向导步骤一步步完成即可。练习：检索哪些老师未担任授课任务结果：姓名为_的教师还未担任授课任务。思考：1、统计各民族党团群人数。2、有哪些课还没人选？心得体会：实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验四 查询的设计成绩评定所用软件Access 2010教师签名实验目的或要求了解查询的分类熟练运用查询准则编写各类表达式掌握选择查询、计算查询、参数查询、操作查询的操作方法实验步骤心得体会1、选择查询查询：检索“马克思经济学”的成绩情况(要求显示字段：班级、姓名、课程名、成绩)提示：创建 查询设计 在查询设计器中添加“学生表”、“课程表”、“选课成绩表” 添加字段“班级”、“姓名”、“课程名称”、“成绩” 在( )字段的条件栏中输入( ) 保存并运行查询。练习：检索“学生表”中所有少数民族的党员(本题中非汉族均视为少数民族)结果：共检索到_条满足条件的记录2、计算查询(1)添加新字段(自定义计算)：按最多8%的推优原则，计算每个班的最多评优人数(要求显示字段：班级名称、评优人数)提示：创建 查询设计 在查询设计器中添加“班级表” 添加字段“班级名称”和( ) 保存并运行查询。练习：计算“学生表”中 “年龄”大于20岁的记录(姓、名、年龄)结果：共检索到_条满足条件的记录(2)单字段汇总(预定义计算)：计算经济学基础课程的平均成绩(要求显示字段： “课程名称”、“平均成绩”)提示：创建 查询设计 在查询设计器中添加“课程表”和“选课成绩表” 添加字段 “课程名称”和“成绩” 在“课程名称”的条件栏中输入( ) 右击设计器的下半部分，选择快捷菜单中的“总计”命令 在“成绩”的总计栏中选择( ) 保存并运行查询。练习：分别计算男女学生的平均年龄(保留2位小数)结果：男生的平均年龄为_岁实验步骤心得体会(3)多字段汇总(交叉表计算)：计算“学生表”中各民族男女生的人数提示：创建 查询设计 在查询设计器中添加“学生表” 在设计器中添加字段“民族”、“性别”、“学号” 点击“设计-查询类型-交叉表”将默认的选择查询切换为交叉表查新 设置( )字段为行标题、( )字段为列标题、( )字段按“值”“计数” 保存并运行查询。练习：检索“学生表”中不同政治面貌的男女生人数结果：检索到“男党员”共_人思考：统计“学生表”中各院系的男女生人数（院系为班级的前2位字符）3、参数查询(1)输入一个成绩，显示“选课成绩表”中所有高于该成绩的记录提示：创建 查询设计 在查询设计器中添加“选课成绩表” 添加对应的字段到设计器中，在( )字段的条件栏中输入( ) 保存并运行查询。练习：输入一个政治面貌，检索所有该政治面貌的学生信息 结果：共检索到“党员”有_人(2) 输入院系(如：“会计”、“信息”)，在“学生表”中查找该院系的所有记录提示：创建 查询设计 在查询设计器中添加“学生表” 添加对应的字段到设计器中，在( )字段的条件栏中输入( ) 保存并运行查询。练习：输入一个年份，在“学生表”中查找出该年份出生的所有学生结果：共检索到“1991年”出生的有_人4、操作查询 ( * 请在运行操作查询前对相关表进行备份 * )(1)更新查询：将“选课成绩表”中所有“课程编号”为“13”的成绩减少5分提示：创建 查询设计 在设计器中添加“选课成绩表” 点击( )按钮切换到更新查询 在( )字段的“条件”栏中输入“13”，在“成绩”字段的“更新到”栏输入( ) 保存并运行查询。(2)追加查询：将“学生表”中的“党员”追加到空表“党员表”中提示：右击“学生表”选择“复制” 右击数据库窗口空白处，选择“粘贴” 在弹出的“粘贴表方式”对话框中设置“表名称”为“党员表”，在“粘贴表方式”对话框中选择( )选项，点击“确定”后，即复制了一个名为“党员表”且与“学生表”相同结构的空表 创建 查询设计 在设计器中添加“学生表” 点击( )按钮弹出“追加对话框” 设置追加表名称为“党员表” 点击“确定”按钮后切换到追加查询 添加所有字段到设计器中，并在( )字段的“条件”栏中输入( ) 保存并运行查询。心得体会：实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验五 SQL查询 *成绩评定所用软件Access 2010教师签名实验目的或要求掌握SQL语言中select语句的格式熟练掌握where、group by、order by等子句的用法掌握简单查询、连接查询、嵌套查询等的应用学会独立解决复杂查询的思路与方法实验步骤心得体会练习：在SQL查询视图中编写以下语句：(1)显示学生表中的所有考生信息select * from 学生表(2)显示学生表中所有学生的院系、班级、学号、姓名select left(班级,2) as 院系, mid(班级,3,5)as行政班,学号,姓名from 学生表(3)显示选课成绩表中的最高分select max(成绩) as 最高分from 选课成绩表(4)显示学生表中所有“会计学院”的记录select * from 学生表 where left(班级,2)=会计(5)显示课程表中课程名称包含“经济”的课程select * from 课程表 where 课程名称 like*经济*实验步骤心得体会实验步骤心得体会实验步骤心得体会 (6)显示学生表中年龄比“张大林”大的所有记录select * from 学生表where 出生日期(select 出生日期 from 学生表 where 姓名=张大林)(7)按年龄从小到大的顺序显示所有记录select * from 学生表 order by 出生日期 desc (8)统计各课程的平均分select 课程编号,avg(成绩) as 平均分from 选课成绩表 group by 课程编号(9)显示教师的任课情况select 教师表.教师姓名,课程表.课程名称 from 教师表 left join 课程表 on 教师表.教师编号 = 课程表.教师编号(10)显示学生选课成绩情况(包含字段：班级、学号、姓名、课程名称、教师姓名、学分)select a.班级,a.学号,a.姓名,c.课程名称,d.教师姓名,c.学分from 学生表 as a,选课成绩表 as b,课程表 as c, 教师表 as dwhere a.学号=b.学号 and b.课程编号=c.课程编号 and c.教师编号=d.教师编号练习：(1)计算男生的平均年龄(2)分2列显示所有学生的姓和名(假设记录中无复姓的姓名)(3)统计各门课程的平均分作业：根据提供的功能描述，写出对应的SQL查询语句SQL查询语句功能描述显示学生表中所有的“90后”记录检索学生表中所有出生月份为单数的记录计算编号为“13”的课程成绩的平均分按出生日期由大到小的顺序对学生表进行重新排序找出与“王子建”同班的所有记录查看学生选课情况，查询结果包括以下字段：学生姓名、课程名称、任课老师把选课成绩表中的所有不及格的成绩提高5分删除“选课成绩表备份”中编号为“13”的课程记录将选课成绩表中所有编号为“13”的课程的成绩追加到“选课成绩表备份”中心得体会：实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验六 窗体的创建成绩评定所用软件Access 2010教师签名实验目的或要求掌握创建各类窗体的方法掌握在窗体中添加各种控件方法了解窗体及控件的常见属性掌握窗体设计与布局的方法与步骤实验步骤心得体会1、完成“学生信息维护”窗体的设计，掌握控件添加及窗体布局的方法。提示：选中“学生表”选择“创建/其他窗体/子窗体”保存为“学生管理子窗体”；打开窗体“6-1”的设计视图选择“设计/控件/子窗体”将 “学生管理子窗体”作为该窗体的子窗体；最后在“学生信息维护”窗体中放入适合的控件完成设计设计要求： (1)“性别”、“班级”、“政治面貌”、“民族”、“籍贯”中的数据用组合框显示，列表项内容参照“学生表”(2)“出生日期”用日历控件“Microsoft Date and Time Picker Control”显示实验步骤心得体会2、完成“登陆”窗体的设计，了解窗体及控件属性的设置。窗体包含控件：1个独立标签(LblBT)、2个关联标签(LblXM，LblMM)、2个文本框(TxtXM，TxtMM)、2个命令按钮(CmdDL，CmdTC)窗体设计要求及相关属性设置：对象名效果属性名属性值窗体居中显示不可移动细边框无滚动条无记录选择器无导航按钮无最大最小化按钮标栏显示“欢迎使用教学管理系统”文字给窗体增加合适的背景图片图片绝对路径控件设计要求及相关属性设置：对象名效果属性名属性值LblBT黑体24磅蓝色显示文字“教学管理系统”TxtMM输入的文本显示为“*”CmdDL显示“登陆”字样CmdTC显示“退出”字样心得体会：实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验七 报表的设计成绩评定所用软件Access 2010教师签名实验目的或要求了解报表的种类掌握自动报表的创建方法掌握利用向导创建标签报表和图表报表的方法掌握创建子报表的方法掌握报表的布局和打印方法实验步骤心得体会实验步骤心得体会1、利用“报表向导”设计一个“学生情况报表”，要求： (1) 报表数据按“班级”分组(2) 同一班级按“身份证号”降序排序(3) 在每个分组结尾显示各班学生的平均年龄(4) 报表布局：递阶 ；打印方向：横向步骤：2、按要求完成“选课成绩一览表”的设计：(1) 报表显示的信息包括：班级、学号、姓名、课程名称、教师姓名、学分、成绩提示：联合“学生表”、“课程表”、“教师表”、“选课成绩表”建立一个多表查询，将查询保存为“选课情况查询”(2) 报表的显示标题为“借还情况报表”，24磅、隶书、蓝色、居中提示：以“选课情况查询”作为数据源建立名为“选课成绩一览表”的空白报表。在报表的“报表页眉”节中放置一个( )控件，并将其“标题”属性改为“借还情况报表”，( )属性改为“24磅”、( )属性改为“隶书”、( )属性改为“蓝色”、( )属性改为“居中”(3) 报表结尾显示当前日期，格式：xxxx年xx月xx日，右对齐提示：在报表的“报表页脚”节中放置一个( )控件，并设置相关属性。将控件( )属性改为( )来显示当前日期将控件( )属性改为( )使日期显示为“xxxx年xx月xx日”将控件( )属性改为( )实现文本的“右对齐”(4) 每页报表均显示字段名提示：在报表的“页面页眉”节中放置7个( )控件，并分别设置这些控件的标题属性为“班级”、“学号”、“姓名”、“课程名称”、“教师姓名”、“学分”、“成绩”(5) 字段名的下方显示各记录的内容提示：在报表的“主体”节中放置7个( )控件，并分别将这些控件的控件来源属性指定为“选课情况查询”中的“班级”、“学号”、“姓名”、“课程名称”、“教师姓名”、“学分”、“成绩”字段；将所有控件与“页面页眉”中的标签一一对齐(6) 每页报表的结尾显示“第n页，共m页”字样提示：在报表的“页面页脚”节中放置( )控件，并将该控件的( )属性改为( )(7) 设置报表为A4纸张、横向打印提示：在报表的“打印预览”视图下，选择“打印预览”选项卡中的“页面设置”按钮来打开设置，并在设置对话框中指定纸型和打印方向3、设计“学生证”报表要求：(1)上方显示学校徽标、学校名称及“学生证”字样(2)中间显示照片、姓名等个人信息(3)下方用条形码显示学号(4)使用A4纸张，纵向打印，每页纸打印8张学生证条形码的创建和编辑： “设计”选项卡 “控件”分组 “Active X控件”按钮 “MicroSoft BarCord控件” 添加完成后，将其“控件来源”绑定为“学生表”中的“学号”字段 右击该控件并选择对象属性 设置控件显示样式为“5-cordbar”心得体会：实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验八 宏的设计与VBA编程成绩评定所用软件Access 2010教师签名实验目的或要求了解宏的定义和功能熟练掌握各种常用的宏操作命令及设计方法掌握结构化程序设计的方法熟悉对象属性及方法的引用实验步骤心得体会1、建立一个自动执行宏，利用该宏自动打开“登录”窗体提示：新建宏，将宏操作设置为“Openform”，并将窗体指定为“登录”窗体，最后保存宏为“AutoExec”2、建立一个窗体(如下图)，利用宏来完成下列操作(1)输入一个数，点击“确定”按钮后，判断该数的奇偶性，并弹出消息框：“这个数是奇数”或“这个数是偶数”步骤：(2)输入一个数，显示“选课成绩表”中所有成绩高于该数的记录步骤：实验步骤心得体会3、点击“红色”、“蓝色”、“绿色”按钮后，标签中的文字变为相应的颜色补充代码：4、在3个文本框中输入任意3个整数，点击“从大到小”按钮后，3个数按从大到小的顺序重新排序；点击“从小到大”按钮后，3个数按从小到大的顺序重新排序补充代码：5、点击“计算”按钮，标签中显示1 + 3 + 5 + + 97 + 99的结果补充代码：思考：若显示1 * 2 * 3 * * 9 * 10或1 + 3 + 5 + + 99的结果，程序该怎样改？心得体会：实 验 报 告院系： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称实验九 系统功能的实现 *成绩评定所用软件Access 2010教师签名实验目的或要求掌握结构化程序设计的方法熟悉对象属性及方法的引用掌握利用ADO实现对数据管理的存取访问方法实验步骤心得体会实验步骤心得体会1、“登录”窗体功能的实现(1)“登录”按钮功能的实现参考代码(cmdDL的Click事件)Private Sub CmdDL_Click() Set dlrs = New ADODB.Recordset dlsql = Select * From 教师表 where 教师编号= & txtXM.Value & dlrs.Open dlsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic If dlrs.EOF Then MsgBox 用户名不存在！(用户名为教师编号), , 警告 txtXM = TxtMM = txtXM.SetFocus ElseIf TxtMM dlrs.Fields(密码) Then MsgBox 密码错误！, , 警告 TxtMM = TxtMM.SetFocus Else xm = dlrs.Fields(教师姓名) DoCmd.OpenForm 主界面 DoCmd.Close acForm, 登录, acSaveNo End IfEnd Sub(2) “退出”按钮功能的实现参考代码(cmdTC的Click事件)Private Sub cmdTC_Click() DoCmd.Close acForm, 登录, acSaveNoEnd Sub2、“主界面”窗体功能的实现(1)以“班级信息维护”按钮为例，实现打开窗体的功能参考代码(cmdBJ的Click事件)Private Sub cmdBJ_Click()DoCmd.OpenForm 班级信息维护DoCmd.Close acForm, 主界面, acSaveNoEnd Sub(2) 以“成绩打印”为例，实现打开报表的功能参考代码(cmdDY的Click事件)Private Sub cmdDY_Click()DoCmd.OpenReport 学生成绩单, acViewPreviewEnd Sub3、“学生信息维护”窗体功能的实现(1)子窗体“记录切换”功能参考代码(子窗体Form的Current事件)Private Sub Form_Current()On Error GoTo endsubForms!学生信息维护!txtXH = Me!学号Forms!学生信息维护!txtXM = Me!姓名Forms!学生信息维护!cboXB = Me!性别Forms!学生信息维护!cboBJ = Me!班级Forms!学生信息维护!cboZZMM = Me!政治面貌Forms!学生信息维护!cboMZ = Me!民族Forms!学生信息维护!cboJG = Me!籍贯Forms!学生信息维护!txtSFZH = Me!身份证号Forms!学生信息维护!dtpCSRQ = Me!出生日期endsub: End Sub(2)“添加”、“修改”、“删除”功能的实现(见附录)心得体会：附录一：“添加”记录参考代码Private Sub cmdTJ_Click()打开“数据表” Set tjrs = New ADODB.Recordset tjsql = Select * From 学生表 where 学号= & txtXH & tjrs.Open tjsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic判断记录是否存在 If Not tjrs.EOF Then MsgBox 该学号已存在！, , 错误！ txtXH.SetFocus Exit Sub End If判断记录完整性 Dim x As String Dim y As String x = Left(CStr(dtpCSRQ.Value), 10) 提取“出生日期”中的生日 y = Mid(txtSFZH.Value, 7, 4) + - + Mid(txtSFZH.Value, 11, 2) + - + Mid(txtSFZH.Value, 13, 2) 提取“身份证号”中的生日 If IsNull(txtXM.Value) Then MsgBox 请输入姓名！, , 错误！ txtXM.SetFocus ElseIf IsNull(cboXB.Value) Then MsgBox 请输入性别！, , 错误！ cboXB.SetFocus ElseIf IsNull(cboBJ.Value) Then MsgBox 请选择班级！, , 错误！ cboBJ.SetFocus ElseIf IsNull(cboZZMM.Value) Then MsgBox 请输入政治面貌！, , 错误！ cboZZMM.SetFocus ElseIf IsNull(cboMZ.Value) Then MsgBox 请输入民族！, , 错误！ cboMZ.SetFocus ElseIf IsNull(cboJG.Value) Then MsgBox 请输入籍贯！, , 错误！ cboJG.SetFocus ElseIf IsNull(txtSFZH.Value) Then MsgBox 请输入身份证号！, , 错误！ txtSFZH.SetFocus ElseIf IsNull(txtXH.Value) Then MsgBox 请输入学号！, , 错误！ txtXH.SetFocus ElseIf x y Then MsgBox 身份证号与出生日期不一致，请核实！, , 错误！ txtSFZH.SetFocus Else 添加新记录 tjrs.AddNew tjrs.Fields(班级) = Trim(cboBJ.Value) tjrs.Fields(学号) = Trim(txtXH.Value) tjrs.Fields(姓名) = Trim(txtXM.Value) tjrs.Fields(性别) = Trim(cboXB.Value) tjrs.Fields(身份证号) = Trim(txtSFZH.Value) tjrs.Fields(政治面貌) = Trim(cboZZMM.Value) tjrs.Fields(民族) = Trim(cboMZ.Value) tjrs.Fields(籍贯) = Trim(cboJG.Value) tjrs.Fields(出生日期) = dtpCSRQ.Value tjrs.Update MsgBox 添加成功！, , 成功！ cboBJ.Value = txtXH.Value = txtXM.Value = cboXB.Value = txtSFZH.Value = cboZZMM.Value = cboMZ.Value = cboJG.Value = txtXH.SetFocus childXS.Requery End If断开连接tjrs.CloseSet tjrs = NothingEnd Sub附录二：“修改”记录参考代码Private Sub cmdXG_Click()打开“数据表” Set xgrs = New ADODB.Recordset xgsql = Select * From 学生表 where 学号= & txtXH & xgrs.Open xgsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic判断记录是否存在 If xgrs.EOF Then MsgBox 不存在该学号的记录！, , 提示！ txtXH.SetFocus Exit Sub End If判断记录完整性 Dim x As String Dim y As String x = Left(CStr(dtpCSRQ.Value), 10) 提取“出生日期”中的生日 y = Mid(txtSFZH.Value, 7, 4) + - + Mid(txtSFZH.Value, 11, 2) + - + Mid(txtSFZH.Value, 13, 2) 提取“身份证号”中的生日 If IsNull(txtXM.Value) Then MsgBox 请输入姓名！, , 错误！ txtXM.SetFocus ElseIf IsNull(cboXB.Value) Then MsgBox 请输入性别！, , 错误！ cboXB.SetFocus ElseIf IsNull(cboBJ.Value) Then MsgBox 请选择班级！, , 错误！ cboBJ.SetFocus ElseIf IsNull(cboZZMM.Value) Then MsgBox 请输入政治面貌！, , 错误！ cboZZMM.SetFocus ElseIf IsNull(cboMZ.Value) Then MsgBox 请输入民族！, , 错误！ cboMZ.SetFocus ElseIf IsNull(cboJG.Value) Then MsgBox 请输入籍贯！, , 错误！ cboJG.SetFocus ElseIf IsNull(txtSFZH.Value) Then MsgBox 请输入身份证号！, , 错误！ txtSFZH.SetFocus ElseIf IsNull(txtXH.Value) Then MsgBox 请输入学号！, , 错误！ txtXH.S