学生信息管理系统第一稿

题目题目学生信息管理系统姓名学号专业计算机应用指导教师学校大学日期2005年2月二郎中学学生信息管理系统第一部分前言随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统；本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。本系统主要包括学生信息查询、教务信息维护和学生选课三部分。其功能主要有：1、有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。2、学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。3、学生信息的修改。4、班级管理信息的输入，包括输入班级设置、年级信息等。5、班级管理信息的查询。6、班级管理信息的修改。7、学生课程的设置和修改。学生信息管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用MICROSOFT公司的VISUALBASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。关键字：控件、窗体、域、数据库。第二部分绪论学生信息管理系统是一个教育单位不可缺少的部分。一个功能齐全、简单易用的信息管理系统不但能有效地减轻学校相关工作人员的工作负担，它的内容对于学校的决策者和管理者来说都至关重要。所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点,如:效率低、保密性差,人工的大量浪费；另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着来越重要的作用。作为计算机应用的一部分,使用计算机对学校的各类信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查询方便、效率高、可靠性好、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校信息管理的效率,也是一个单位科学化、正规化管理,与世界接轨的重要条件。2．1目的背景与意义学校主要有总务处、政教处、教导处、培训处四大块。其中教导处的工作最为繁重，工作人员多，信息量大。除财务部门有专人及专用软件进行信息处理外，其它各类的数据处理都由班主任以及教导处工作人员人工完成。教导处目前有几十个班级的学生，处理的信息主要有五大类：学生信息、成绩数据、课程信息。本系统主要着眼于以上部分，建立数据库以及对数据的各种操作功能。对于学生信息，各班的班主任及学校领导由于各种分类和了解的需要，经常性地进行各种查询。例如：查询一个班级中团员的人数，男、女生的人数，住宿或通宿学生的人数等等。教导处在每一届学生进校时必须进行分班，设置学号；每一届学生毕业，要进行学生信息备份；对于成绩管理，课任教师要进行本科目成绩登记，计算平均分、优秀率、及格率；班主任在期中考试和期末考试后计算本班学生总分，排名次；教导处要统计补考学生人数及相应名单，每学期进行学生成绩备份；学校领导则可通过查询工具来了解学生成绩情况。对于课程信息，教导处每学期要进行课程安排、课任教师分配、一周课程安排、中途课程调整等等。以上各类信息目前还处于手工或半手工的管理状态，效率低，可靠性差。配备电脑，但实际利用率不高，如果采用计算机进行以上各类信息的管理，必将大大提高工作效率，对学校各类信息的维护及了解起到积极的作用。另外随着计算机网络的持续发展，无论是工作、学习还是生活，将会越来越多地融入到流动的比特中，人们的工作节奏在不断加快，需要快捷的信息来源，并对此作出反应。因此，无论是从目前的现状来看，还是面向未来，一个功能完备的学校信息管理系统的开发都非常有必要。本人作为学习计算机专业的一员，对系统的需求作了较深入的认识，同时也掌握了一定的系统开发理论，借这次毕业设计的契机，一方面利用自己的所学小刀试牛，另一方面通过这次实践必将提升自身对软件工程、数据库、程序设计等理论的认识，积累系统开发的经验。作为毕业设计，由于时间比较紧张，加之本人没有任何系统开发的经验，它肯定存在许许多多不足的地方，但对它的改善和功能的完备并不会随着毕业设计的结束而终止。本人将在原来的基础上，着眼未来，追踪计算机新技术发展，并应用到系统持续开发中。2．2相关技术与开发工具介绍本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境VisualBasic6.0作为主要开发工具，使用MicrosoftAccess2000作为关系数据库，并为VB编程语言中采用ADO数据库编程模型，配合功能强大的SQL查询语言实现建立关系数据库，放问数据库，对数据库的更新，较好地实现了预定的需求功能。2．2．1VisualBasic6.0开发环境VisualBasic6.0是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高、且功能强大。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数，以及动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发出Windows环境功能强大、图形界面丰富的应用软件系统。总的来看，VisualBasic有以下主要特点：VisualBasic语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。1、可视化设计：表现在VB在设计应用于程序界面时有“所见即所得”的处理功能。2、事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。2．2．2VisualBasic系统几个在程序应用中的常用名词VisualBasic系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：1、视窗（Form）视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows系统的标准视窗。2、对象(Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框(LabelBox)，文本框(TextBox)，命令按扭(CommandButton)，网格(DataGrid)，ADO控件(Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。3、属性(Properties)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。4、事件(Events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。5、方法(Method)方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。6、过程(Procedure)过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。7、模块(Module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。2．2．3Windows下的VisualBasic编程环境简介1、面对对象的编程面向对象的设计方法(OOP,ObjectedProgramming)从应用领域内的问题着手，以直观自然的方式描述客观世界的实体。VisualBasic作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由VisualBasic自动生成对象的程序代码并封装起来。VisualBasic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。VisualBasic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。2、实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，VisualBasic也提供了强大的创建菜单功能是程序更加标准。本系统使用VisualBasic的菜单编辑器建立菜单或者修改已经存在的菜单，您也可以使用VisualBasic的ApplicationWizard来操作。3、实现工具栏CoolBar控件与Office2000中看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你也可以向用户提供更好的灵活性和义用性。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“MicrosoftWindowsCommonControls6.0”本系统就用了Cool工具中的Statubar控件，在系统这一界面中，添加了状态栏，在第一个栏中，在样式这一栏中选择了文本，在第二个栏中，选择了系统日期，第三个栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。2．2．4怎样开发一个学生信息管理系统的查询模块？1、查询模块的设计分析根据实际情况，我们使用原型法(RapidPrototyping)即以少量代价快速地构造一个可执行的软件模型。使用户可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。2、编程环境的选择微软公司的VisualBasic6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。3、关系型数据库的实现Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包同时拥有桌面数据库的便利和关系数据库的强大功能。4、二者的结合(DBA)微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及VisualBasic来访问数据库并对其进行各种操作。VisualBasic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。ADODC控件在数据库中的信息与将信息显示给用户看的VisualBasic程序之间架起了一座桥梁。我们可以设置ADODC控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADODC控件根据数据库中的一个或多个数据库表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。将ADODC控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。2．2．5使用Access2000创建数据库1、数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。2、新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据；（2）收集被子标识的字段到表中；（3）标识主关键字字段；（4）规范数据；（5）标识指定字段的信息；3、修改已建的数据库数据库的修改分为；添加、编辑和删除记录。这三种操作均可由VisualBasic创建的程序来完成，下面的章节将详细描述实现的具体方法。第三章可行性分析学生信息，作为一个学校，就有一定的工作量存在，而学生信息，它的工作量可能是其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课程管理；成绩管理；缴费管理；统计等等，每个信息的数据都在不断地变化着，如果采用人工的方式进行操作，则，一天的工作量，足以让人觉得比较繁琐，吃不消。针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。学生信息管理系统是为本校开发的，本系统所采用的语言是VisualBasic，用MicrosoftAccess2000数据库完成。该系统总体有四部分组成，包括学生信息查询、教务信息维护、学生选课及用户管理。通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。学生选课是对学生进行相应选择自己相关的课程。最后进行打印。采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。第四章学生信息系统软件测试功能测试功能测试环境操作系统：windows98内存：128M网络环境：校园网本功能测试共分为:系统功能测试测试是否可以正常添加用户和修改密码，系统正常退出测试是否可以正常对班级进行管理，学生的单个或成批添加，删除以及新生信息的导入和学生信息备份测试成绩管理中是否可以进行分数录入，汇总及排名和成绩备份等操作测试课程信息模块中针对课程管理，老师和课程的关系之间操作是否正常测试是否可以正常查询学生，老师和成绩3、链接测试这一部分将测试系统各模块之间的超链接跳转是否正确4、文档测试本章主要内容为：测试文档是否包括全部内容测试软件功能描述与其他功能有没有冲突查看软件功能描述是否是原来系统分析和需求查看文档内容在特定的情况和进度下,以现有人力,物力和资源能否实现5、负载测试这一部分将测试正常情况下系统性能和用户数目之间的关系本章主要内容为：查看在多个用户同时使用本系统时是否正常6、极限测试这一部分将测试所有极端的情况，如速度非常快的情况下和速度非常慢的情况下，以及所有其它的极端情况。本章主要内容为:网络资源极限测试综合极限测试

第五章总体设计5．1系统功能描述本系统的主要任务是实现对学校教导处的学生信息管理、成绩管理、课程管理及相关查询。其主要功能包括：1、学生信息管理功能班级管理。提供给班主任进行本班学生的信息更新、删除。添加学生。以班级为单位，进行学生入库。其中分为单个添加和成批添加。单个添加学生供数量较少的学生信息入库；成批添加可以从现存的学生信息EXCEL文件中成批录入到数据库中。删除学生。当学生毕业后，学生信息转移备份数据库中，系统的基本数据库中需要删除学生信息。该功能主要进行成批地删除学生信息，如连续学号区段的多位学生信息删除，整个班级的删除，所有学生信息的删除。新生管理。本部分的功能主要有新生导入、分班、及设置学号。新生导入实现从现存的EXCEL新生名单中录入学生信息。分班功能实现按新生的报考专业、成绩及性别进行分班。设置学号实现自动为各班学生编发学号。学生信息备份。在学生信息删除前，将其按班级为单位保存到备份数据库。2．学生成绩管理功能分数录入。以班级为单位，录入各科目的期中、期末、总评成绩。总分及名次。计算指定班级学生的总分及名次。补考成绩录入。修改总评成绩，以决定最终补考人数。成绩备份。为指定班级及指定的学期数的学生成绩保存到备份数据库中。3、课程信息管理功能课程管理。提供本学期各年级各专业所开课程名称的录入、修改、删除。它是学生成绩管理的基础。用以保证数据库中一致性原则。4、查询功能。学生信息查询。根据用户的要求，查询学生数据库的所有可能的信息，其中包括成绩查询。备份成绩查询。按班级为单位查询备份数据库的学生信息，补考情况。2．2数据流图与数据字典2．2．1数据流图根据以上的系统功能描述，设计出数据流图如下：一、顶层数据流图与0层数据流图（图2-1至图2-2学生信息管理系统用户学生信息管理系统用户学生信息管理系统系统时钟 学生信息管理 成绩管理 当前日期 课程信息管理 查询要求 查询结果 统计表 图2-1顶层数据流图系统时钟系统时钟1用户要1用户要求有效性检查2学生信息处理3成绩信息处理5课程信息处理6查询处理 学生情况 学生信息管理 学生信息管理要求成绩管理 成绩管理要求 成绩表课程管理 查询要求 课程管理要求 课程 查询结果 图2-20层数据流图二、1层数据流图（图2-3至图2-8）2．2新生管理2．2新生管理 新生数据处理结果2．3班级管理2．3班级管理 新生数据处理要求 学生信息学生信息管理要求 班级名称及修改要求2．1要求类型处理 2．1要求类型处理2．4添加学生 添加要求及学生数据2．4添加学生 当前时钟数据删除单2．5删除学生 备份数据单2．5删除学生2．6信息备份2．6信息备份图2-31层数据流图（a）3．1要求类型处理3．1要求类型处理入 班级及成绩数据成绩管理要求 班级名称 成绩表备份数据及班级信息 图2-41层数据流图（b）三、学生信息管理模块分层数据流图（图2-9至图2-15） 新生数据2．2．1要求类型处理 分班名单2．2．1要求类型处理 新生数据处理要求 新生数据及班数 起始学号及班级名称 图2-9新生处理 新生记录 有效记录 新生记录 无效记录格式 成绩记录 总分记录 学生表 分班名单 男、女生人数 专业 班数 成绩表 学生表学生表 班级名称 指定班级学生名单 起始学号 总图2-10新生数据导入、分班及设置学号学生表 班级名称 指定班级学生记录 学生信息 记录为空 修改要求 图2-11班级管理 单个学生数据添加要求 成批学生数据 图2-12添加学生 总分表 学生表 单个学生数据 成绩表 图2-13单个添加学生 成绩表 学生记录 有效格式记录 无效格式 总分表 学生记录 学生表 图2-13成批添加学生数据 学生表 备份表备份数据单 备份数据图2-14数据备份成绩表总分表 起止学号 数据删除单 班级名称 学生表 所有学生数据 成绩表 总分表图2-15删除学生数据 四、成绩管理模块分层数据流图：（图2-16至2-18）课程表 班级名称 学生与课程数据 成绩数据学生表 成图2-16成绩录入 成绩表 班级名称 成绩数据 成绩信息 总分表图2-17总分计算 备份班级名称 备份数据单 备份数据 成绩表 成绩备份表图2-18成绩备份 七、查询模块分层数据流图：（图2-24至图2-26） 总分表 成绩表 学生信息查询要求 查询规则 查询结果 学生表图2-24学生信息查询 2．2．2数据字典一、数据流条目： （1）学生信息管理模块：学生信息管理要求=[新生数据处理要求|班级数据管理要求|添加数据要求|数据删除要求|数据备份要求]新生数据处理要求=[新生数据|班级数目|起始学号|班级名称|专业]班级数据管理要求=[班级名称|修改要求]添加数据要求=[单个学生数据单|成批数据单]数据删除要求=[起止学号|班级名称|所有学生数据]数据备份要求=[班级名称|学期数]新生数据=姓名+性别+出生日期+家庭住址+原毕业学校+政治面貌+入学总分起始学号={数字}15班级名称=[会计04（1）|会计04（2）|会计04（3）|计算机软件04（1）|会计03（1）|会计03（2）|会计03（3）|计算机软件03（1）|会计02（1）|会计02（2）|会计02（3）|计算机软件02（1）|网络技术03（1）|网络技术04（1）|机电03（1）|机电02（1）|机电04（1）|网络技术02（1）|网络技术02（1）]修改要求=姓名+性别+出生日期+家庭住址+原毕业学校+政治面貌+入学总分+专业+班级+是否住宿单个学生数据单=姓名+性别+出生日期+家庭住址+原毕业学校+政治面貌+入学总分+班级+是否住宿成批数据单=姓名+性别+出生日期+家庭住址+原毕业学校+政治面貌+入学总分+班级+是否住宿性别=[男|女]政治面貌=[团员|非团员]是否住宿=[住宿|通学]（2）成绩管理模块：成绩管理要求=[成绩录入要求|总分计算要求|成绩备份要求]成绩录入要求=班级名称+成绩数据总分计算要求=班级名称+成绩数据成绩备份要求=班级名称+学期数成绩数据=姓名+课程名称+分数成绩表=学号+姓名+期中成绩总分+期末成绩总分+期中名次+期末名次（3）课程信息管理模块：课程管理要求=[课程表维护要求|教师课程表维护要求|排课要求]课程表维护要求=课程名称+年级+专业教师课程表维护要求=教师姓名+任教班级+课程名称+周课时数年级=[一年级|二年级|三年级]任教班级=[会计04（1）|会计04（2）|会计04（3）|计算机软件04（1）|会计03（1）|会计03（2）|会计03（3）|计算机软件03（1）|会计02（1）|会计02（2）|会计02（3）|计算机软件02（1）|网络技术03（1）|网络技术04（1）|机电03（1）|机电02（1）|机电04（1）|网络技术02（1）|网络技术02（1）]（4）查询模块：查询要求=[查询条件]查询结果=[学生信息统计表|学生成绩统计表|学生总分名次统计表|教师信息统计表|备份信息统计表]二、加工条目：（1）学生信息管理模块加工条目：加工编号：.1加工名称：检查记录有效性输入：新生数据输出：有效的新生记录、无效的新生记录加工逻辑：根据新生记录IF格式有效THEN读取记录ELSE无效格式记录，启动EXCEL调整格式ENDIF加工编号：.2加工名称：启动EXCEL调整输入：新生记录输出：有效的新生记录加工逻辑：根据新生记录按要求调整加工编号：.3加工名称：读取新生记录输入：新生数据输出：写入学生表文件加工逻辑：根据新生记录DOWHILE新生记录不为空THEN读取记录，写学生表文件，班级值为“新生”LOOP加工编号：.1加工名称：统计新生数据输入：班级为“新生”记录输出：各专业新生人数，各专业男女生人数加工逻辑：根据各专业新生记录，查询所有会计专业且班级为“新生”的记录，并计算记录数查询所有会计专业且性别为“男”且班级为“新生”的记录，并计算记录数查询所有会计专业且性别为“女”且班级为“新生”的记录，并计算记录数查询所有计算机软件专业且班级为“新生”的记录，并计算记录数查询所有计算机软件专业且性别为“男”且班级为“新生”的记录，并计算记录数查询所有计算机软件专业且性别为“女”且班级为“新生”的记录，并计算记录数查询所有网络技术专业且班级为“新生”的记录，并计算记录数查询所有网络技术专业且性别为“男”且班级为“新生”的记录，并计算记录数查询所有网络技术专业且性别为“女”且班级为“新生”的记录，并计算记录数查询所有机电专业且班级为“新生”的记录，并计算记录数查询所有机电专业且性别为“男”且班级为“新生”的记录，并计算记录数查询所有机电专业且性别为“女”且班级为“新生”的记录，并计算记录数加工编号：.2加工名称：按报考专业、男女比例及入学总分分班输入：各专业班数，各专业新生数据，各专业男生人数，各专业女生人数输出：各班学生名单写入学生表文件，并设置班级名称加工逻辑：根据新生记录各专业男女生名单按入学总分降序排序DOWHILE男女生新生记录不为空THEN按专业、根据班数，依次取男女生记录，更改其班级名称写入学生表文件LOOP加工编号：2.2.4.加工名称：查询相关记录输入：学生记录，班级名称输出：指定班级的学生名单加工逻辑：根据学生记录，查询所有班级名称等于输入值的学生记录加工编号：2.2.4.加工名称：按总分降序设置学号输入：指定班级学生记录，起始学号输出：写入学生表文件，成绩表文件，总分表文件加工逻辑：DOWHILE学生记录非空学生记录的学号域=起始学号总分表中添加一记录，学号域=起始学号查询课程表，N=该专业一年级所开课程数在成绩表中添加N个记录，学号域=起始学号起始学号=起始学号+1LOOP加工编号：加工名称：查询相关记录输入：学生记录，班级名称输出：指定班级的学生名单加工逻辑：根据学生记录，查询所有班级名称等于输入值的学生记录 加工编号：加工名称：修改学生记录输入：指定班级学生记录，修改要求输出：学生信息加工逻辑：根据修改要求，改写学生数据 加工编号：.1加工名称：数据录入输入：单个学生数据输出：学生表，成绩表，总分表加工逻辑：根据学生数据单，接受录入在学生表中添加一记录，并将录入信息作为记录的值在总分表中添加一记录，学号域为录入学号值，班级域为班级值，其余域为0判断该生所在年级和专业，查询课程表，N=本学期所开课程数在成绩表中添加N个记录，学号域均为录入学号值，班级域为班级值，其余域为0加工编号：.1加工名称：检查数据格式输入：学生记录输出：有效格式的学生记录，无效格式的学生记录加工逻辑：根据学生记录IF格式有效输出有效格式记录ELSE输出无效格式记录ENDIF加工编号：.2加工名称：启动EXCEL调整输入：无效格式学生记录输出：有效格式学生记录加工逻辑：启动EXCEL进行人工调整 加工编号：.3加工名称：逐行读取记录输入：有效格式学生记录输出：写入学生表，总分表，成绩表加工逻辑：DOWHILE学生记录不为空在学生表中添加一记录，用学生记录值更新各域在总分表中添加一记录，用学生记录值中的学号值更新学号域，班级域为班级值判断学生所在年级和专业，N=本学期该专业所开课程数在成绩表中添加N个记录，学号域为学生记录值中的学号值，班级域为班级值LOOP加工编号：加工名称：查询备份数据输入：班级名称输出：备份数据加工逻辑：在学生表中查询班级名称等于输入值的学生数据加工编号：加工名称：数据备份输入：备份数据输出：备份数据文件加工逻辑：IF数据已备份THEN退出ELSE生成备份文件ENDIF加工编号：加工名称：确认数据类型输入：删除数据单输出：班级名称，起止学号，所有数据加工逻辑：CASE1按班级删除获得班级名称CASE2按起止学号删除获得起止学号CASE3按所有数据查询学生表中的所有学生数据加工编号：加工名称：删除指定范围数据输入：起止学号输出：更新学生表，总分表，成绩表加工逻辑：在学生表、成绩表、总分表中查询学号值大于起始学号并小于终止学号的学生记录从各表中删除这些记录加工编号：加工名称：删除指定班级数据输入：班级名称输出：更新学生表、成绩表、总分表加工逻辑：查询学生表中班级名称为输入值的记录从学生表中删除这些记录从总分表中删除这些记录从成绩表中删除这些记录加工编号：2.5.加工名称：删除所有学生数据输入：所有学生记录输出：更新学生表、总分表、成绩表加工逻辑：删除学生表、总分表、成绩表中的所有学生数据（2）成绩管理模块加工条目加工编号：加工名称：查询学生及课程信息输入：班级名称输出：指定班级的学生名单及本学期所开课程加工逻辑：查询学生表中班级名称为输入值的记录判断所在年级和专业,查询课程表获得本学期所开课程加工编号：加工名称：成绩录入输入：学生名单，课程信息，成绩录入数据输出：更新成绩表加工逻辑：选择课程名称，录入成绩写入成绩表加工编号：加工名称：查询成绩数据输入：班级名称输出：指定班级的学生名单及成绩数据加工逻辑：判断成绩表，获得指定班级的学生成绩数据加工编号：加工名称：计算总分及名次输入：成绩数据输出：总分与名次信息，更新总分表加工逻辑：依次计算各记录总成绩，写入总分表对总分表进行按总分降序排序，写入名次加工编号：加工名称：查询成绩数据输入：备份数据单输出：备份数据加工逻辑：对学生表和成绩表做笛卡尔积，获得指定班级的成绩与学生数据加工编号：加工名称：数据备份输入：备份数据，备份班级名称输出：成绩备份文件加工逻辑：根据备份班级名称生成成绩备份文件（4）课程信息管理模块数据加工条目：加工编号：加工名称：确认维护要求输入：维护要求输出：录入要求、修改要求加工逻辑：判断对课程的录入或者修改加工编号：加工名称：课程数据录入输入：课程数据单，录入要求输出：更新课程表文件加工逻辑：根据录入要求，录入课程数据在课程表中添加一新记录，将录入数据作为新记录值加工编号：加工名称：课程数据修改输入：课程数据单，修改要求输出：更新课程文件加工逻辑：查询课程信息，根据修改要求进行修改，并更新课程文件（5）查询模块加工条目：加工编号：加工名称：要求加工输入：学生信息查询要求输出：查询规则加工逻辑：CASE1查询要求涉及[学生表|成绩表|总分表]在[学生表|成绩表|总分表]中查询CASE2查询要求涉及学生表和成绩表将学生表与成绩表做笛卡尔积，与查询条件形成SQL语句CASE3查询要求涉及学生表和总分表将学生表与总分表做笛卡尔积，与查询条件形成SQL语句CASE4查询要求涉及学生表和成绩表、总分表将学生表与成绩表、总分表做笛卡尔积，与查询条件形成SQL语句CASE5查询要求涉及总分表和成绩表将总分表与成绩表做笛卡尔积，与查询条件形成SQL语句最后将SQL语句作为查询规则输出加工编号：加工名称：查询处理输入：查询规则输出：查询结果加工逻辑：根据查询规则查询指定表，并显示结果2．3数据库设计2．3．1库设计本系统涉及到的信息主要有5类：学生信息、成绩信息、教师信息、图书信息、后备信息。由于成绩信息和教师信息与学生信息关系密切，因此将这三类信息存放在同一数据库中，以提高多种信息同时读取的速度。按以上分析，将系统的数据库设计为三个：一、学生数据库：该数据库为中包含有以下各表：1、学生表：记录学生的基本信息，是进行学生及其它各类信息处理的基础。2、成绩表：记录学生的期中、期末及总评的各科成绩。3、总分表：记录学生的期中、期末及总评的总分及名次。4、课程表：记录各专业各年级开课情况，在添加学生记录时，可根据该表的情况决定在成绩表添加学生记录的个数。三、后备数据库：该数据库主要保存两类信息：学生信息、成绩信息。其数据表是按用户的要求在运行过程中动态建立的。2．3．2表设计：1、学生表结构：表2.1编号字段名称字段类型字段宽度1学号CHAR152姓名CHAR103性别CHAR24出生日期DATE85电话CHAR106家庭住址CHAR507班级CHAR208原毕业学校CHAR509是否住宿CHAR410政治面貌CHAR611入学总分LONG412专业char202、课程表结构：表2.2编号字段名称字段类型字段宽度1课程名称CHAR152年级CHAR103专业char203、成绩表结构：表2.3编号字段名称字段类型字段宽度1学号CHAR152课程名称CHAR153期中成绩LONG44期末成绩LONG45总评成绩LONG46班级char204、总分表结构：表2.4编号字段名称字段类型字段宽度1学号CHAR152期中总分LONG43期末总分LONG44期中名次LONG45期末名次LONG46班级char20第六章详细设计根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项：1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。2、进行系统的流程分析，为模块的细化做好准备。3、对每个模块进行详细的算法设计。3．1系统界面设计一、登录及系统主窗口界面设计该部分界面主要包括登录窗口、系统主窗口、修改密码窗口。1、登录窗口界面：本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库（如图一）。其中学生档案是本系统主要的（图一）一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“MicrosoftAccessDrive（*.mdb）”，点击“完成”按钮，在ODBCMicrosoftAccess安装对话框中在数据源名中输入信息，在数据库这个框中，单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。在VB中，用ADODC链接数据库，用DataGrid或DATA将库中的数据在界面中显示出来，本系统采用DataGrid。在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中，选中单选框“UseODBCDataSourceName”，并在下拉文本框中选择已经配置好的数据源名信息，再在“RecordSoure”标签中，在CommardText（SQL）文本框中输入查询语句，如：select*from学生档案。同时，将桌面的DataGrid控件选中，在属性框中，将它的Datasoure设为Adodc。我们可以设置DataGrid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。第七章系统具体实现7.1各功能的实现课程管理：课程设置（如：界面如图二）（图二）运行程序后，进入课程管理模块，课程管理模块的第一块是课程设置，在这模块中可以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入，以便使用。课程管理：课程查询（如：界面如图三）（图三）当输入查询类别、运算符和条件后可以查找到所需要的课程设置，或按查询时间来查询，输入所要查找的时间段，就可查到所要的课程设置。打印统计运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。班级统计分析（如：界面如图四）（图四）档案分析统计（如：界面如图五）（图五）课程统计分析（如：界面如图六）（图六）成绩统计分析（如：界面如图七）（图七）交费统计分析（如：界面如图八）（图八）结束语学生信息管理系统（课程设置和打印统计）的完成，它在审核这一功能中能够对不同情况的资料进行设置和打印，针对需要的信息进行设置和打印。后记本系统能够顺利完成，非常感谢邹永康老师的指导。对于本人来说，通过这次毕业设计，也是对自己在这三年学习的一个检验和平时学习的一种结累，可以在学习中提高自己，也充分体现学有所用，学以致用的学习倡导。在此，我对三年来辅导过我的各位任课老师深表感谢主要参考文献本系统的过程中，主要的参考文献有：《VisualBasic6.0》林陈雷人民邮电出版社《面向对象程序设计系列教材》龚沛曾高等教育出版社《VisualBasic6.0编程实例精解》何文俊《学用VisualBasic编程》潭浩西安电子科技大学出版社《VisualBasic6.0数据库开发与专业应用》敬铮国防工业出版社《VisualBasic6.0数据库程序设计高手》温贤发科学出版社《VisualBasic6.0程序设计》陈明中央广播电视大学出版社附:源程序课程管理：课程设置下面为其代码：PrivateSubCommand1_Click()DimmyConAsNewADODB.ConnectionDimmyRsAsNewADODB.RecordsetDimZhuanYe,NianJi,XueQi,KeCheng,JiaoCai,RenKLS,KeShi,ShangKeDD,KeChengXZ,KaoShiXZAsStringZhuanYe=Text1.TextNianJi=Text2.TextXueQi=DTPicker1.ValueKeCheng=Text4.TextJiaoCai=Text5.TextRenKLS=Text6.TextKeShi=Text7.TextShangKeDD=Text8.TextKeChengXZ=Combo1.TextKaoShiXZ=Combo2.TextIfTrim(ZhuanYe)=""OrTrim(NianJi)=""OrTrim(XueQi)=""OrTrim(KeCheng)=""OrTrim(JiaoCai)=""OrTrim(RenKLS)=""OrTrim(KeShi)=""OrTrim(ShangKeDD)=""OrTrim(KeChengXZ)=""OrTrim(KaoShiXZ)=""ThenMsgBox"请填写要修改课程资料的内容！"Combo1.Text=""Combo2.Text=""ExitSubEndIfmyCon.Open"dsn=信息"myRs.Open"select*from课程表where专业='"&Text1.Text&"'",myCon,3,2myRs!年级=Text2.TextmyRs!学期=DTPicker1.ValuemyRs!课程名称=Text4.TextmyRs!教材=Text5.TextmyRs!任课老师=Text6.TextmyRs!课时=Text7.TextmyRs!上课地点=Text8.TextmyRs!课程性质=Combo1.TextmyRs!考试性质=Combo2.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox"您确定要修改吗？",vbYesNo,"提示"Text1.Text=""Text2.Text=""'Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Combo1.Text=""Combo2.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()UnloadMeFrm_FindGrean.Show1EndSubPrivateSubDataGrid1_Click()'Frm_UpdateGrean.Adodc1.RecordSource="select*from课程表where专业='"&Trim(DataGrid1.Row)&"'"'Text1.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("专业")'Text2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("年级")'Text3.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("学期")'Text4.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("课程名称")'Text5.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("教材")'Text6.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("任课老师")'Text7.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("课时")'Text8.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("上课地点")'Combo1.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("课程性质")'Combo2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("考试性质")EndSubPrivateSubDTPicker1_CallbackKeyDown(ByValKeyCodeAsInteger,ByValShiftAsInteger,ByValCallbackFieldAsString,CallbackDateAsDate)EndSubPrivateSubForm_Activate()Frm_FindGrean.Adodc1.RecordSource=strTiaoJianSetDataGrid1.DataSource=Frm_FindGrean.Adodc1EndSubPrivateSubForm_Load()Combo1.AddItem("必修")Combo1.AddItem("选修")Combo1.AddItem("自开")Combo2.AddItem("考试")Combo2.AddItem("查考")Text1.Text=""Text2.Text=""'Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Combo1.Text=""Combo2.Text=""EndSubPrivateSubText1_Change()EndSubPrivateSubText2_Change()EndSubPrivateSubText8_Change()EndSub课程管理：课程查询当输入查询类别、运算符和条件后可以查找到所需要的课程设置，或按查询时间来查询，输入所要查找的时间段，就可查到所要的课程设置。代码如下：DimsqlstrAsStringPrivateSubCombo1_Change()EndSubPrivateSubCombo2_Change()EndSubPrivateSubCombo4_Change()EndSubPrivateSubCombo5_Change()EndSubPrivateSubCombo7_Change()EndSubPrivateSubCommand1_Click()DimaAsStringDimKCCX1AsStringDimKCCX2AsStringDimstr1AsStringDimstr2AsStringIfOption3.Value=TrueThena=Trim(Combo2)SelectCaseaCase"="KCCX1=""&Combo1.Text&""&Combo2.Text&"'"&Trim(Text1)&"'"Case"like"KCCX1="Instr(1,"&Combo1.Text&",'"&Trim(Text1.Text)&"')<>0"EndSelecta=Trim(Combo4)SelectCaseaCase"="KCCX2=""&Combo3.Text&""&Combo4.Text&"'"&Trim(Text2)&"'"Case"like"KCCX2="Instr(1,"&Combo3.Text&",'"&Trim(Text2.Text)&"')<>0"EndSelectIfOption1.Value=TrueThenIfKCCX1=""ThenstrTiaoJian="select*from课程表where"&KCCX2ElseIfKCCX2=""ThenstrTiaoJian="select*from课程表where"&KCCX1ElsestrTiaoJian="select*from课程表where"&KCCX1&"and"&KCCX2EndIfElseIfOption2.Value=TrueThenIfKCCX1=""ThenstrTiaoJian="select*from课程表where"&KCCX2ElseIfKCCX2=""ThenstrTiaoJian="select*from课程表where"&KCCX1ElsestrTiaoJian="select*from课程表where"&KCCX1&"or"&KCCX2EndIfElseIfKCCX1=""ThenstrTiaoJian="select*from课程表where"&KCCX2ElseIfKCCX2=""ThenstrTiaoJian="select*from课程表where"&KCCX1ElseMsgBox"请选择连接方式！",vbOKOnly,"警告"ExitSubEndIfEndIfIf(KCCX1&KCCX2)=""ThenMsgBox"请输入查询类别！",vbOKOnly,"警告"ExitSubElseUnloadMeFrm_UpdateGrean.Show1EndIfEndIfIfOption4.Value=TrueThenIfVal(Combo6)>Val(Combo9)ThenMsgBox"请正确选择年份！",vbOKOnly+vbExclamation,"信息提示"Combo6.SetFocusExitSubElseIfVal(Combo6)=Val(Combo9)ThenIfVal(Combo7)>Val(Combo10)ThenMsgBox"请正确选择月份！",vbOKOnly+vbExclamation,"信息提示"Combo7.SetFocusExitSubElseIfVal(Combo7)=Val(Combo10)ThenIfVal(Combo8)>Val(Combo11)ThenMsgBox"请正确选择日期！",vbOKOnly+vbExclamation,"信息提示"Combo8.SetFocusExitSubEndIfEndIfEndIfEndIfEndIfIfCombo6.Text=""OrCombo7.Text=""OrCombo8.Text=""OrCombo9.Text=""OrCombo10.Text=""OrCombo11.Text=""ThenMsgBox"请输入完整的日期",vbOKOnly,"警告"ExitSubEndIfstr1=Trim(Combo6)&"-"&Trim(Combo7)&"-"&Trim(Combo8)str2=Trim(Combo9)&"-"&Trim(Combo10)&"-"&Trim(Combo11)str1=Format(str1,"yyyy-mm-dd")str2=Format(str2,"yyyy-mm-dd")Ifsqlstr=""Thensqlstr=""&Trim(Combo5.Text)&">=#"&Format(str1,"yyyy-mm-dd")&"#and"&Trim(Combo5.Text)&"<=#"&Format(str2,"yyyy-mm-dd")&"#"Elsesqlstr=sqlstr&"and"&Trim(Combo5.Text)&">=#"&Format(str1,"yyyy-mm-dd")&"#and"&Trim(Combo5.Text)&"<=#"&Format(str2,"yyyy-mm-dd")&"#"EndIfIfsqlstr=""ThenMsgBox"请先输入查找时间！"ExitSubEndIfstrTiaoJian="select专业,年级,学期,课程名称,教材,任课老师,课时,上课地点,课程性质,考试性质from课程表where"&sqlstrUnloadMeFrm_UpdateGrean.Show1EndIfIfOption3.Value<>TrueAndOption4.Value<>TrueThenMsgBox"请选择查询方式！",vbOKOnly,"警告"ExitSubEndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubForm_Load()Dimi,jAsIntegerFori=1999To2010Combo6.AddItemiCombo9.AddItemiNextiCombo6.ListIndex=0Combo9.ListIndex=0Fori=1To12Combo7.AddItemiCombo10.AddItemiNextiCombo7.ListIndex=0Combo10.ListIndex=0Fori=1To31Combo8.AddItemiCombo11.AddItemiNextiCombo8.ListIndex=0Combo11.ListIndex=0Combo1.AddItem("专业")Combo1.AddItem("年级")Combo1.AddItem("课程名称")Combo1.AddItem("教材")Combo1.AddItem("任课老师")'Combo1.AddItem("课时")Combo1.AddItem("课程性质")Combo1.AddItem("考试性质")Combo2.AddItem("=")Combo3.AddItem("专业")Combo3.AddItem("年级")Combo3.AddItem("课程名称")Combo3.AddItem("教材")Combo3.AddItem("任课老师")'Combo3.AddItem("课时")Combo3.AddItem("课程性质")Combo3.AddItem("考试性质")Combo4.AddItem("=")Combo5.AddItem("学期")Combo1.Text=""Combo2.Text=""Text1.Text=""Combo3.Text=""Combo4.Text=""Text2.Text=""Combo5.Text=""Combo6.Text=""Combo7.Text=""Combo8.Text=""Combo9.Text=""Combo10.Text=""Combo11.Text=""EndSub打印统计运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。班级统计分析代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringSQLoriginal="SELECT年级,专业,人数,辅导员,备注FROM班级表"SQLadd="WHERE年级=年级AND专业=专业"SQLorder=""IfCheck1.Value=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+"and年级='"+Text1+"'"EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+"and专业='"+Text2+"'"EndIfIfCheck3.Value=1AndIsNumeric(Text3)ThenSQLadd=SQLadd+"and人数='"+Text3+"'"EndIfIfCheck4.Value=1AndNotIsNull(Text4)ThenSQLadd=SQLadd+"and辅导员='"+Text4+"'"EndIfstrSql=SQLoriginal+SQLadd+SQLordeIfDat_Main.rsDat_Class.State=1ThenEndIfDat_Main.rsDat_Class.OpenstrSqlDat_Class.ShowvbModalText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubText1_Change()EndSubPrivateSubText3_Change()EndSub档案分析统计代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringOnErrorResumeNextSQLoriginal="SELECT*FROM学生档案"SQLadd="WHERE学号=学号AND姓名=姓名"SQLorder=""IfCheck1.Value=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+"and学号='"+Text1+"'"EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+"and姓名='"+Text2+"'"EndIfIfCheck3.Value=1AndNotIsNull(Text3)ThenSQLadd=SQLadd+"and专业='"+Text3+"'"EndIfIfCheck4.Value=1AndIsDate(DTPicker1)ThenSQLadd=SQLadd+"and出生年月=#"&DTPicker1.Value&"#"EndIfstrSql=SQLoriginal+SQLadd+SQLordeIfDat_Main.rsDat_Strudent.State=1ThenEndIfDat_Main.rsDat_Strudent.OpenstrSqlDat_Strudent.ShowvbModalText1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()'Combo1.AddItem("男")'Combo1.AddItem("女")Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubText1_Change()EndSub课程统计分析代码如下：PrivateSubCommand1_Click()DimSQLorigin