数据库课程设计学生考勤系统

1、精品文档一、综合设计目的、条件、任务和内容要求：针对系统来说主要任务是设计一个学生考勤管理系统，实现学生考勤的录入、按 班级统计、浏览、查询某学生全部考勤、请假、销假等功能。整个考勤系统能够提供 请假、休学和退学等情况的记录，并实现等处理功能。具体的设计任务如下：1、实现用户登录及修改密码及创建用户帐户；2、能查看、查询、输入、添加、修改、删除学生基本信息，包括姓名、性别、班 级、出生日期等；3、能查看、查询、输入、添加、修改、删除课程信息，包括教师信息、课程编号 等；4、能查看、查询、输入、添加、修改、删除班级信息，浏览班级基本信息；5、能查看、查询、输入、添加、修改、删除考勤信息，包括请假

2、和销假信息；6、能按学号、姓名、班级、专业、查询学生考勤，请假信息；7、能按专业或班级统计学生考勤，请假信息，并可以在里面进行按学号或姓名的 查询等。指导教师签字：年月日二、进度安排：1、总体方案设计（1-2天）2、编程实现（5-6天）3、测试分析和书写报告（2-3天）三、应收集资料及主要参考文献：1 童爱红.Visual C#.NET应用教程，北京：清华大学出版社，2004.2 杨晓光.Visual C#.NET程序设计，北京：清华大学出版社；北京交通大学出版 社 2004.3 周忠荣.数据库原理与应用（Access），北京：清华大学出版社，2003.4 周学军.SQL Server 200

3、0基础教程，北京：清华大学出版社，2005.四、综/台设计 摘要:学生考勤管理系统作为一个高校的基本管理，是学校对学生工作管理的基本依据。 开发考勤管理系统，正是完善高校信息化管理的重要环节。人工考勤已很难满足学校 规范化管理的要求，面对庞大的信息量，该方式现存在很多弊端。因此，建立现代化 的智能考勤管理系统势在必行。这样也大大减轻了考勤工作人员的工作量，提高了工 作效率，使原本复杂和枯燥无味的工作变得简单而轻松。本文以“考勤信息管理系统”的设计和开发为例，系统地阐述了考勤系统的设计开发 的全过程，包括系统整体设计，逻辑框架与数据流程，各个功能模块划分，系统功能 模块的设计与具体实现等部分。该

4、系统侧重于学生考勤信息查询和数据库的维护，通 过已编制好的程序，完成对用户的登录、考勤信息的添加、查询、统计，学生请假和 销假等，本系统使用的开发工具是 VC 6.0开发程序，采用sql数据库。实现学生考勤 数据采集、数据统计和信息查询过程的自动化，完善学生管理现代化，方便管理人员 统计、考核学生出勤情况，方便学生管理部门查询、考核学生的出勤率，准确地掌握 学生出勤情况和相关资料，有效地管理、掌握学生各项情况。关键词：数据；查询；数据库精品文档精品文档目录摘要 .I第一章绪论.11.1 课题背景 .-.11.2 课题目的和要求 11.3 课题意义 1第二章 系统分析 .32.1 功能需求分析

5、. 32.2 系统需求分析 . 3第三章详细设计.53.1主要设计思想 .53.2数据库分析与设计.53.3系统功能模块设计.9第四章 设计结果及分析 .114.1 系统的实现 .114.2 系统的测试 .11总结 14致谢 .15参考文献 .1617附录主要程序代码摘要学生考勤管理系统作为一个高校的基本管理，是学校对学生工作管理的基本依据。 开发考勤管理系统，正是完善高校信息化管理的重要环节。人工考勤已很难满足学校规 范化管理的要求，面对庞大的信息量，该方式现存在很多弊端。因此，建立现代化的智 能考勤管理系统势在必行。这样也大大减轻了考勤工作人员的工作量， 提高了工作效率, 使原本复杂和枯燥

6、无味的工作变得简单而轻松。本文以“考勤信息管理系统”的设计和开发为例，系统地阐述了考勤系统的设计开发的 全过程，包括系统整体设计，逻辑框架与数据流程，各个功能模块划分，系统功能模块 的设计与具体实现等部分。该系统侧重于学生考勤信息查询和数据库的维护，通过已编 制好的程序，完成对用户的登录、考勤信息的添加、查询、统计，学生请假和销假等， 本系统使用的开发工具是 VC 6.0开发程序，采用sql数据库。实现学生考勤数据采集、 数据统计和信息查询过程的自动化，完善学生管理现代化，方便管理人员统计、考核学 生出勤情况，方便学生管理部门查询、考核学生的出勤率，准确地掌握学生出勤情况和 相关资料，有效地管

7、理、掌握学生各项情况。关键词：数据；查询；数据库AbstractStude nts' atte ndance man ageme nt system as a college of the basic man ageme nt, is the school to the stude nt the basic foun dati on of man ageme nt. Developme nt of check on work attendance management system, perfect college is an important link of in formatio

8、 nman ageme nt. Artificial atte ndance already difficult to meet therequireme nts of the sta ndardized man ageme nt school, i n the face of the huge amount of information, this mode existing in many disadvantages. Therefore, establishing modern intelligent attendance management system is imperative.

9、 This also greatly to reduce attendance staff work and enhance the working efficiency, make originally complex and dry work become simple and easy.This article by "attendance information management system" the design and development as an example, systematically elaborated the attendance s

10、ystem designand developme nt process, in clud ing the system overall desig n, I ogic framework and the data flow, each function module partition, the system function module design and impleme ntati on of a part of. The system focuses on the stude nt atte ndance in formatio n query and database maint

11、enan ce, has bee n compiled through good program and the completi on of the user logi n, atte ndance in formati on to add, inquiry, statistics, stude nts leave and termi nate his/her leave, etc., the system useof developme nt tools is VC6.0development process, using SQL database. To realize students

12、' attendance data acquisition, data statistics and information query process automation, perfect the students management modernization, convenient management statistics, assessment stude nts atte ndant, convenient stude nt man ageme nt departme nt inquiry, assessme nt of students' attendance

13、, accurately grasp the students' attendance and related material, effective man ageme nt, stude nts acquire the situatio n.Keywords : data; inquire; data base第一章绪论1.1课题背景程序实践是本科生重要教学环节之一。通过程序实践，强化学生的计算机应用技能， 使学生验证、巩固和充实所学的理论知识， 加深对相关内容的理解，拓宽知识面，培 养学生的创新精神和实践能力。学生考勤管理程序是学校管理工作中一个比较重要的任务，过多的学生考勤管理

14、程序工作给学校管理人员带来了很大麻烦的。虽然原始的记录方法在一定的程度上可以解决问题，可是现在计算机已经走到了我们的生活，它的不足之处就显而易见了。学生考勤管理程序，是一个对于学生考勤的管理系统，不仅大大减少了考勤管理人员的大量 的工作，而且还方便了班级和学校对学生出课率的查询，只要通计算机登入本系统就能及 时修改、更正学生的考勤信息，使信息真实、有效。这样节省了大量人力物力，节省了宝 贵的时间,大大提高了工作效率用C+语言进行了该系统的编写。操作上力争实现人性 化、合理化，满足学校、老师、非计算机管理人员的使用和查看。1.2课题目的和要求目的：要求实现-“学生考勤管理程序”记录学生的缺课情况

15、，它包括：缺课日期、第几节课、课程名称、学生姓名、缺课类型（迟到、早退、请假及旷课）。要求：1录入学生的缺课记录；2 修改某个学生的缺课记录；3. 查询某个学生的缺课情况;4统计某段时间内，某门课旷课学生姓名及旷课次数，按旷课次数由多到少排序；5统计某段时间内，有学生旷课的课程及旷课人次，按旷课人次由多到少排序。1.3课题意义程序实践是本科生重要教学环节之一。通过程序实践，强化学生的计算机应用技能, 使学生验证、巩固和充实所学的理论知识， 加深对相关内容的理解，拓宽知识面，培 养学生的创新精神和实践能力。学生考勤管理程序可以大大减缓学生考勤人员的工作量 ，方便了平时上课学生的出 勤率的管理。第

16、二章系统分析2.1功能需求分析考勤管理系统是高校对考勤实行了信息化管理，考勤管理中主要涉及的管理任务有 4 个方面：学生基本信息管理、考勤信息管理、考勤查询浏览管理以及系统管理，实现学 生考勤的录入、按班级统计、浏览、查询某学生全部考勤、请假、销假等功能。因此， 该系统使用Visual C及sql server数据库开发系统作了考勤管理系统。 学生的基本信息、 学生考勤、系统用户管理，适用于各高等学校单位。考勤系统的目的是为实现学生考勤 数据采集、数据统计和信息查询过程的自动化，完善学生管理现代化，方便管理人员统计、考核学生出勤情况，方便学生管理部门查询、考核学生的出勤率；准确地掌握学生出勤情

17、况，有效地管理、掌握学生流动情况。本课题要实现的是学生考勤管理系统，在设计时应该有友好的用户界面，便于考勤 管理员的操作，系统应有基本功能如下：（1）考勤管理员用户登录功能；（2）学生考勤管理相关信息的管理功能；（3）查询功能；2. 用户界面需求对于一个好的软件有一个友好的用户界面是很重要的。用户界面应尽量做的简单、层次 清晰明了，以最大限度为用户提供操作方便。如尽量减少用户输入次数，多使用快捷按 扭等。3开发环境介绍本系统使用的开发语言是 Visual C 6.0,数据库采用的是sql server，以Windows XP 系统为操作平台。2.2系统需求分析考勤管理系统能够提供学生考勤的情况

18、记录，方便地对学生考勤进行评定。考勤情 况主要由考勤班干部记录然后上交到考勤管理员，需要设置人工添加的功能，如出勤记 录、考勤统计、学生信息等，已备特殊情况的处理；还能够提供请假、休学和退学等情 况的记录，并实现查询、添加、修改、删除、浏览等处理功能；能具有一定的安全性、 协调性和完整性。考勤管理者可直接操作各考勤情况，考勤管理人员功能的信息量大，数据安全性和 保密性要求最高，本系统考勤管理人员全部开放，对非管理员不需密码，可直接进入进 行查阅。管理员可以浏览、查询、添加、删除、修改、统计学生考勤的基本信息；浏览、 查询、统计、添加、删除和修改学生的基本信息，这部分功能由学生处管理人员执行。考

19、勤管理系统通过考勤信息判断并记录学生出勤信息，可以保证考勤数据的准确、公正、安全，减少考勤人员的工作负担，避免人为因素的干扰和弄虚作假现象；各管理 用计算机及管理软件用Windows环境下的全中文界面平台，能灵活处理各种特殊情况, 方便的修改各种基本信息，提供丰富的统计信息，查询方便，管理安全，操作简便易学 经过开发人员的讨论，对考勤管理系统应实现的功能描述如下：1、用户信息管理用户信息管理的基本功能是添加、修改、删除和浏览用户详细信息。管理考勤人员使用系统自己创建用户帐号，用户的具体属性包括用户帐号、用户密码。2、信息管理学生信息、班级简况信息、班级成员信息、课程信息、考勤信息、请销假信息，

20、管理人员可以对其进行添加、修改、删除和浏览等。3、学生考勤的录入功能考勤人员能够把学生的考勤记录（请假、销假等）输入到相应的数据库，也可对其进行添加、修改、删除。4、浏览功能考勤人员能够浏览学生考勤记录及历史考勤记录，能通过显示菜单浏览全部信息。5、查询功能考勤人员能够按学号、姓名查询某学生的考勤记录或按专业、班级查询某个班级的考勤记录6、修改功能考勤人员具有修改学生的考勤记录，如请假、销假、旷课等记录。7、请销假功能考勤人员能够记录学生的请假、销假功能。第三章详细设计3.1主要设计思想数据库工具：为解决学生信息与班级信息、课程信息的复杂的对应关系，选用关系 型数据库管理工具建立它们之间的关联

21、关系；查询方式：为方便查询，不仅要考虑按学生学号、姓名的确定查询方式，还要考虑 满足考勤管理人员的不确定查询方式等。为此，我们采取模块化设计思想，通过各模块 的不同组合以实现不同的查询功能。最终，使系统能够具有内容规范、信息完整、查询 便捷等特点。基于上面的分析，对学生考勤信息管理系统进行以下分析：1、实现系统登录2、信息管理3、考勤、请假信息的查询3.2数据库分析与设计对数据库中的各项数据进行整理分析，确定系统中所有实体、实体的属性及实体之 间的联系，为设计数据库表结构打下基础321实体及其属性整个系统各实体可用以下关系来表示（其中主键已出生日期用下划线标识）：学 生（学号，姓名，性别，出生

22、日期，联系方式，班级编号）班 级（班级编号，班级名称，专业，班主任，班长，人数）课 程（课程编号，课程名称，任课老师）考 勤（学号课程编号，考勤日期，考勤记录 ）帐户（帐户，密码）322 E-R图分析E-R图分析的目的是确定系统中所有实体、实体的属性及实体之间的联系，为设计数据库表结构打下基础。画E-R图通常使用自底向上的设计方法，首先对局部视图进行 分析设计，然后再将局部视图合并，消除冲突和冗余，得到系统的总体 E-R图。这里不 再对局部视图进行设计，直接给出总体 E-R图如下图所示：口 号课程名称课程n选课任课教师销假日期销假记录请假记录请 销 假1考勤请假日期考勤记录课程编学号姓名学生出

23、生日期联系方学 号1考勤出勤考勤日期性别3.2.3数据库表设计班级名称.班级编号i班级7组成班主任班长班级人数.3.1 E-R 图基于以上的功能分析，可为考勤系统创建 7个数据表。应用和维护都比较方便。将其中的数据表设计如下表：表3-1 考勤表字段数据类型长度是否为主键字段数据类型长度是否为主键学号文本12是课程编号文本6是考勤日期日期/时间短日期是考勤记录文本4否表3-2请销假表字段数据类型长度是否为主键学号文本12是请假记录文本3否请假日期日期/时间短日期否销假记录文本1否销假日期日期/时间短日期否表3-3班级简况表字段数据类型长度是否为主键班级编号文本6是班级名称文本6否班主任文本6否班

24、长文本6否人数数字整型否表3-4 课程表字段数据类型长度是否为主键课程编号文本6是课程名称文本10否任课老师文本6否表3-5学生简况表字段数据类型长度是否为主键学号文本12是姓名文本6否性别文本1否出生日期日期/时间短日期否联系方式文本12否表3-6 帐户表字段数据类型长度是否为主键帐户文本16是密码文本16否324表间关系本管理系统共用到六个表：考勤表、请销假表、班级表、班级简况表、课程表、学 生简况表、帐户表，各表之间均有一定的关系，可以进行关联考勤表、班级成员表、学生简况表、请销假表，这四个表里面都有一个相同的字段学号，通过学号这个字段就可以将系统的这四个表关联了起来，当某个表发生插入、

25、修改、删除等方面的改动时，相联的表之间也要进行相应的改动。班级成员表、班级简况表也 有一个相同的字段：班级编号，将两表相关联。考勤表、课程表通过相同字段：课程编号, 将两表相关联。课程1 1*»人课程名豌粽程編号任课老师考勤日期 V学号请慣记录谱慣日期 梢假记录V孚号 姓名 性利 出生日期班级名称 普业二I3.2各表间的关系图3.3考勤信息系统体系结构图3.3系统功能模块设计此系统共有四个模块，分别为：管理、查询、数据维护、统计3.3.1功能模块考勤信息管理系统的主要体系如下图所示:3.4考勤系统管理系统图3.3.2系统模块设计第四章设计结果及分析第四章设计结果及分析4.1系统的实现

26、通过几周的紧张忙碌，我们只是基本上完成了它的一些基本功能它主要包括三个模块：教师模块、学生模块、管理员模块。对于管理员模块，主要实现了对教师、学生的信息管理，对其进行添加、删除、修 改及删除等功能做得还不够完善。同时，一个网站还应该具有很友好的界面，而且，能够对外起到宣传作用，这也就 是说我们在首页应该选择具有特色的页面，使其真正达到目的，而不仅仅是一个摆设。系统提供了管理子系统，包括对数据库中的课题信息、用户信息的管理以及课题审 批的管理及报表的查看。允许具有管理权限的人员对系统数据库进行操作。4.2系统的测试本课题研究目的是设计并实现一个课题申报管理系统。系统实现功能包括：对用户及权 限，

27、各种课题信息，教师自拟题目，课题发布，课题题库，学生申报课题，用户信息， 课题查询，课题审批，报表的查看及打印等的管理。本章对该课题申报管理系统进行了系统功能和性能的测试，以验证系统是否实现设计要求的功能和性能指标。4.2.1测试内容合完成功能性测试，编写测试下如表1所示。下表中只列出主要的测试用例的标题 和期望结果。这些测试用例不仅测试管理员模块系统设计的主要功能，还包括系统安全 的测试（例如非法访问，权限控制）。表4-1测试用例序号测试用例标题期望结果成功，验证用户是否具有权限，如果没有，不允许操1添加用户作；如果有则正确判断用户名是否已存在， 如已存在给出错误提示，如不存在完成用户信息的

28、止确添加。2修改用户成功，验证用户是否具有权限，如果没有，不允许操 作；如果有则用户信息得到正确修改。表4-1测试用例（续）序号测试用例标题期望结果3删除用户成功，验证用户是否具有权限，如果没有，不允许操作； 如果有则用户信息正确删除。4查询教师、学生信息成功，联合查询字符串正确，且准确返回查询结果，并按 相应日志方案添加日志信息。5查看实践课题信息成功，验证用户是否具有权限，如果没有，不允许操作； 如果有则允许用户正确修改目标课题在数据表中的状态 信息，并按相应日志方案添加日志信息。6审批实践课题信息成功，验证用户是否具有权限，如果没有，不允许操作； 如果有则正确审批，并修改目标档案在数据表

29、中的状态信 息，并按相应日志方案添加日志信息。7报表打印成功，验证用户是否具有权限，如果没有，不允许操作； 如果有则正确对课题信息进行操作并打印其课题报表。422系统测试对照表1中的测试内容，表2给出其对应的测试结果。由测试结果可以看出：该课 题申报管理系统能够完成对课题申报的管理，系统安全性也能得到很好的控制表4-2测试结果序号测试用例标题测试结果测试结果说明1添加用户通过用户信息正确插入相应的表。2修改用户通过在相应的表中的该用户信息被正确修改。3删除用户通过该用户信息被准确地从相应的表中删除。4查询教师、学生信息通过教师、学生列表页面中的DataGrid中的数据能正确 显示出来，与数据库

30、中的一样。5查看实践课题信息通过实践课题信息列表页面中的DataGrid中的数据能正确显示需要显示的信息。6审批实践课题信息通过审核时，题目审批状态默认为“未通过”状态，点击“通过”，在审核栏中会显示“已通过”（字体颜色变红色），数据库“Subject_Check”中就由Null ”变成False"或者“ue”。7报表查看不能通过不能正确显示所需要的各信息内容生成报表。总 结通过这次课程设计，我才知道我的不足之处，这次不我主要做了程序编写、 才知道 不是那么的简单、创建表、查询、窗体、宏、模块，一开始我觉得它就是创建一些表格， 然后再用一些语句根据他们之间的关系，把它们组合在一起、在

31、之间遇到了一些麻烦、不过还是解决了、其中最基本的就是子查询了、我的子查询经验就是先写出select *我们要找什么，然后写条件，我们要找的东西有什么条件，然后在写条件，我们的条件涉 及那些表，那些字段，再在这些字段中通过我们学过的简单select语句选出来，有时候还要用到几层子查询，在这点思路不是很清晰、到最后还是做出来了。经过数据库课程的学习，我们掌握了创建数据库以及对数据库的操作的基础知识。 老师的教学耐心细致，课堂上我们有不理解的地方老师都反复讲解，不过那时我都在开 小差，没有好好听，到现在才知道基础知识的掌握很重要、不过数据库这门课涉及到以 前的知识不多，所以这次勉强做出了这次课程设计

32、，现在我知道了数据库这是一门很值 得学的课程，学过获益匪浅致谢这次数据库的程序设计，对于我来说是一个挑战。我在C+语言的学习过程中的困 难并不只在程序的设计中有所体现，每一个函数都设计好了，也调试好了，把它们分开 运行并没有错误，但是当把它们组合成一个程序时，便是一个一个地出现错误；把这个 问题解决了，另一个新问题又来了。这不能不说是对知识的欠缺。通过这次的程序设计， 我懂得了无论什么事都要去做才会发现问题，才有可能去解决问题。对知识的学习，不 能潜偿辄止，要深入去学习，去了解，这样才会有所收获。有许多东西，许多事，不是 想像中的那么容易，不去实践，永远也不会有提高，尤其是学习计算机。同时，在

33、这次 课程设计的过程中，我认识到学好计算机要重视实践操作， 不仅仅是学习C+语言，还 是其它的语言，以及其它的计算机方面的知识都要重在实践，不能只是学习和重视书本 上的理论知识，所以日后在学习过程中，我会更加注视实践操作，使自己更好地学好计 算机这门课程。以前做实验题目的时候总是感觉很难，因为根本就不知道从哪里开始。这次课程设 计让我对编程有了新的认识，也是我知道了只有自己亲自动手才能学到更多东西。拿到题目的时候也是很困惑但仔细琢磨后也不是想象中那么难，觉得就是上课讲到的一些内容，是自己先把自己吓住了。后来，参照书上的和网上的诸多例子，一个模块一个 模块的编写，调试，一个功能一个功能去完善。发

34、现越做越顺利，由于以前的实验中对 于改错的经验积累和几个学得不错的同学的帮助， 我的程序中的错误也一个一个的顺利 解决。再后来，等我的程序完全做好以后，我竟然可以独立的帮同学修改一些以前根本 不知所以然的错误，其实，从这次实验中我认识到，我距离高手还很远，编程有很多的 乐趣也有很多的技巧性和知识性。我将在以后的日子里继续认真的学习知识， 积累经验， 让自己的编程能力提高。总之，我决得编程就是要请自动手，孰能生巧，感谢学校给我们这次机会使我们通过这次试验学到了很多东西。参考文献1 童爱红.Visual C#.NET应用教程，北京：清华大学出版社，2004.2 杨晓光.Visual C#.NET程

35、序设计，北京：清华大学出版社；北京交通大学出版社 2004.3 周忠荣.数据库原理与应用（Access）,北京：清华大学出版社，2003.4 周学军.SQL Server 2000基础教程，北京：清华大学出版社，2005.精品文档精品文档附录：主要程序代码1主窗口代码Opti on Compare DatabasePrivate Sub Comma nd2_Click()On Error GoTo Err_Comma nd2_ClickScree n.PreviousCo ntrol.SetFocusDoCmd.Fi ndNextExit_Comma nd2_Click:Exit SubErr

36、_Comma nd2_Click:MsgBox Err.Descripti onEnd SubResume Exit_Comma nd2_Click精品文档Private Sub Comma nd1O_Click()DoCmd.RunMacro "班级信息"End SubPrivate Sub Comma nd11_Click()DoCmd.RunMacro "班级成员”End SubPrivate Sub Comma nd34_Click()DoCmd.QuitEnd SubPrivate Sub Comma nd5_Click()On Error GoTo E

37、rr_Comma nd5_ClickDim stDocName As Stri ngDim stL in kCriteria As StringstDocName = ChrW(-29698) & ChrW(31243)DoCmd.Ope nForm stDocName, , , stL in kCriteriaExit_Comma nd5_Click:Exit SubErr_Comma nd5_Click:MsgBox Err.Descripti onResume Exit_Comma nd5_ClickEnd SubPrivate Sub Comma nd7_Click()DoCm

38、d.RunMacro "学生信息"End SubPrivate Sub Comma nd8_Click()DoCmd.RunMacro "请销假"End SubPrivate Sub Comma nd9_Click()DoCmd.Ru nMacro "考勤”End Sub2登录窗体主要代码Opti on Compare DatabasePrivate Sub Comma nd5_Click()On Error GoTo Err_Comma nd5_ClickScree n.PreviousCo ntrol.SetFocusDoCmd.Fi nd

39、NextExit_Comma nd5_Click:Exit SubErr_Comma nd5_Click:MsgBox Err.Descripti onResume Exit_Comma nd5_ClickEnd SubPrivate Sub Comma nd6_Click()If Text1 = "zt" A nd Text3 = "000" Then精品文档DoCmd.Ru nMacro "dl"Textl =""Text3 =""Else: MsgBox "用户名或密码错误！&q

40、uot;Textl =""Text3 =""DoCmd.QuitEnd IfEnd SubPrivate Sub Comma nd8_Click()On Error GoTo Err_Comma nd8_ClickDoCmd.QuiExit_Comma nd8_Click:Exit SubErr_Comma nd8_Click:End SubMsgBox Err.Descripti onResume Exit_Comma nd8_ClickEnd Sub3按班级查询代码Opti on Compare DatabaseSub Form_Curre nt()

41、On Error GoTo Form_Curre nt_ErrIf ChildFormIsOpe n() The n FilterChildFormForm_Curre nt_Exit:Exit SubForm_Curre nt_Err:MsgBox Error$Resume Form_Curre nt_ExitSub ToggleLi nk_Click()On Error GoTo ToggleL in k_Click_ErrIf ChildFormlsOpe n() The nCloseChildFormElseOpe nChildFormFilterChildFormEnd IfTogg

42、leLi nk_Click_Exit:Exit SubToggleL in k_Click_Err:MsgBox Error$Resume ToggleLi nk_Click_ExitEnd SubPrivate Sub FilterChildForm()If Me.NewRecord ThenForms!考勤 1.DataE ntry = TrueElseForms!考勤 1.Filter ="班级编号="& """" & Me.班级编号& """"Forms!考勤 1

43、.FilterOn = TrueEnd IfEnd SubPrivate Sub Ope nChildForm()DoCmd.OpenForm "考勤 1"If Not Me.ToggleLink Then Me!ToggleLink = TrueEnd SubPrivate Sub CloseChildForm()DoCmd.Close acForm,"考勤 1"If Me!ToggleLink Then Me!ToggleLink = FalsePrivate Fun cti on ChildFormIsOpe n()精品文档ChildFormlsOpen = (SysCmd(acSysCmdGetObjectState, acForm,"考勤 1") And acObjStateOpe n) <> FalseEnd Fun cti on4.按姓名查询代码Opti on Compare