毕业设计（论文）-VB学生信息管理系统设计.doc

摘 要 随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。 本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法,本系统界面友好，操作简单，比较实用。【关键字】：管理信息系统、学生管理、Visual Basic应用。About students information management systemStudent: ZHAO Xing-zhe Teacher: DONG Ming-gangAbstract：Along with the information technology in the management of a more profound and extensive application of management information system in the implementation of technology has gradually matured. Management information system is a continuous development of new discipline, any unit to survive is to develop and efficient activities of the internal organization of organic, it must establish its own characteristics in line with the management information system.Introduced in the Visual Basic6.0 environment using top-down land planning, application of bottom-up development strategy to develop a management information system. Through the analysis of a school student management, established a set of effective management of computer. Students This paper introduces the system of student management information system, including the feasibility analysis, business process analysis, etc. System design part mainly introduces the functions of the system design and database design and code design, The system realizes that part of the main modules, this system algorithm with a friendly interface, easy operation, the more practical.Keywords: Management information system, the management of students, Visual Basic applicationsII目 录摘 要IAbstractII1 绪论11.1 课题背景及意义11.2学生信息管理系统开发要求21.3 相关技术与开发工具介绍31.4 本课题研究目的及探讨内容41.5 本章小结52 WINDOWS下的Visual Basic 编程环境介绍62.1 面向对象的编程62.2 实现菜单项62.3 实现工具栏62.4 开发学生信息管理系统的查询模块72.4.1 查询模块的设计分析72.4.2 编程环境的选择72.4.3 关系型数据库的实现72.4.4 两者的结合72.5 使用ACCESS2000创建数据库83 总体设计93.1 系统功能描述93.2 数据流图与数据库设计103.2.1 数据流图103.2.2 数据库设计 库设计 表设计113.3 详细设计134 系统具体实现154.1 课程管理，课程设置154.2 课程管理：课程查询194.3 系统业务架构打印统计224.4档案分析统计234.5 课程统计分析244.6 成绩统计分析264.7 交费统计分析275 学生信息管理系统软件测试296 结束语31致 谢32参考文献331 绪论1.1 课题背景及意义目的背景与意义学校主要有总务处、政教处、教导处、培训处四大块。其中教导处的工作最为繁重，工作人员多，信息量大。除财务部门有专人及专用软件进行信息处理外，其它各类的数据处理都由班主任以及教导处工作人员人工完成。教导处目前有几十个班级的学生，处理的信息主要有五大类：学生信息、成绩数据、课程信息。本系统主要着眼于以上部分，建立数据库以及对数据的各种操作功能。对于学生信息，各班的班主任及学校领导由于各种分类和了解的需要，经常性地进行各种查询。例如：查询一个班级中团员的人数，男、女生的人数，住宿或通宿学生的人数等等。教导处在每一届学生进校时必须进行分班，设置学号；每一届学生毕业，要进行学生信息备份；对于成绩管理，课任教师要进行本科目成绩登记，计算平均分、优秀率、及格率；班主任在期中考试和期末考试后计算本班学生总分，排名次；教导处要统计补考学生人数及相应名单，每学期进行学生成绩备份；学校领导则可通过查询工具来了解学生成绩情况。对于课程信息，教导处每学期要进行课程安排、课任教师分配、一周课程安排、中途课程调整等等。以上各类信息目前还处于手工或半手工的管理状态，效率低，可靠性差。配备电脑，但实际利用率不高，如果采用计算机进行以上各类信息的管理，必将大大提高工作效率，对学校各类信息的维护及了解起到积极的作用。另外随着计算机网络的持续发展，无论是工作、学习还是生活，将会越来越多地融入到流动的比特中，人们的工作节奏在不断加快，需要快捷的信息来源，并对此作出反应。因此，无论是从目前的现状来看，还是面向未来，一个功能完备的学校信息管理系统的开发都非常有必要。本人作为学习计算机专业的一员，对系统的需求作了较深入的认识，同时也掌握了一定的系统开发理论，借这次毕业设计的契机，一方面利用自己的所学小刀试牛，另一方面通过这次实践必将提升自身对软件工程、数据库、程序设计等理论的认识，积累系统开发的经验。1.2学生信息管理系统开发要求随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统；本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。本系统主要包括学生信息查询、教务信息维护和学生选课三部分。其功能主要有：1、有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。2、学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。3、学生信息的修改。4、班级管理信息的输入，包括输入班级设置、年级信息等。5、班级管理信息的查询。6、班级管理信息的修改。7、学生课程的设置和修改。学生信息管理系统是典型的信息管理系统 (MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。1.3 相关技术与开发工具介绍本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境 Visual Basic6.0 作为主要开发工具，使用Microsoft Access 2000作为关系数据库，并为VB编程语言中采用ADO数据库编程模型，配合功能强大的SQL查询语言实现建立关系数据库，放问数据库，对数据库的更新，较好地实现了预定的需求功能。Visual Basic 6.0开发环境 Visual Basic 6.0是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高、且功能强大。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数，以及动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发出Windows环境功能强大、图形界面丰富的应用软件系统。总的来看，Visual Basic有以下主要特点：Visual Basic 语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。1、可视化设计：表现在VB在设计应用于程序界面时有“所见即所得”的处理功能。2、事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。 Visual Basic 系统几个在程序应用中的常用名词 Visual Basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：1、视窗（Form）视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows 系统的标准视窗。2、对象 (Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，网格 (Data Grid)，ADO控件 (Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。3、属性 (Properties)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。4、事件 (Events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。5、方法 (Method)方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。6、过程 (Procedure)过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。7、模块 (Module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。1.4 本课题研究目的及探讨内容本文首先对Web Services技术架构及其具体实现技术如XML、WSDL、SOAP、 UDDI等作深入的理论探讨和研究。其中，对基本Web服务栈中的中间二层，作详细的理论探讨，并结合实例中的在线医疗预约服务开发相关的应用，进一步说明其使用与操作。另外，对UDDI以及Web服务的开发和运行环境如Eclipse、Tomcat作简要的理论性探讨。也将讨论到Web服务的性能、安全机制等。其次，开发实现在线医疗预约系统的应用实例。采用Java语言开发基于Web Services技术的针对顾客、医保、提供者的在线医疗预约系统，其中包括医保须提供的通用服务接口、服务代理等；提供者为支持医保的通用接口而提供一个具体的Web服务实现、代码存根及其后端系统(选做)；医保的Web站点，展示相关提供者和服务，顾客注册、登录、提交预约、查询、修改等功能。1.5 本章小结学生信息管理系统是一个教育单位不可缺少的部分。一个功能齐全、简单易用的信息管理系统不但能有效地减轻学校相关工作人员的工作负担，它的内容对于学校的决策者和管理者来说都至关重要。所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点,如:效率低、保密性差,人工的大量浪费；另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着来越重要的作用。 作为计算机应用的一部分,使用计算机对学校的各类信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查询方便、效率高、可靠性好、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校信息管理的效率,也是一个单位科学化、正规化管理,与世界接轨的重要条件。2 WINDOWS下的Visual Basic 编程环境介绍2.1 面向对象的编程面向对象的设计方法 (OOP, Objected Programming) 从应用领域内的问题着手，以直观自然的方式描述客观世界的实体。Visual Basic 作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由 Visual Basic 自动生成对象的程序代码并封装起来。Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。2.2 实现菜单项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic 也提供了强大的创建菜单功能是程序更加标准。本系统使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单，您也可以使用Visual Basic 的Application Wizard 来操作。2.3 实现工具栏CoolBar控件与Office2000 中看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你也可以向用户提供更好的灵活性和义用性。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。本系统就用了Cool工具中的Statubar控件，在系统这一界面中，添加了状态栏，在第一个栏中，在样式这一栏中选择了文本，在第二个栏中，选择了系统日期，第三个栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。2.4 开发学生信息管理系统的查询模块2.4.1 查询模块的设计分析根据实际情况，我们使用原型法(Rapid Prototyping) 即以少量代价快速地构造一个可执行的软件模型。使用户可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。 2.4.2 编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。2.4.3 关系型数据库的实现Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包同时拥有桌面数据库的便利和关系数据库的强大功能。2.4.4 两者的结合微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。ADODC控件在数据库中的信息与将信息显示给用户看的Visual Basic 程序之间架起了一座桥梁。我们可以设置ADODC控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADODC控件根据数据库中的一个或多个数据库表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。将ADODC控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。2.5 使用ACCESS2000创建数据库1、数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。2、新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据；（2）收集被子标识的字段到表中；（3）标识主关键字字段；（4）规范数据；（5）标识指定字段的信息；3、修改已建的数据库 数据库的修改分为；添加、编辑和删除记录。这三种操作均可由Visual Basic创建的程序来完成，下面的章节将详细描述实现的具体方法。3 总体设计3.1 系统功能描述本系统的主要任务是实现对学校教导处的学生信息管理、成绩管理、课程管理及相关查询。其主要功能包括：1、学生信息管理功能班级管理。提供给班主任进行本班学生的信息更新、删除。添加学生。以班级为单位，进行学生入库。其中分为单个添加和成批添加。单个添加学生供数量较少的学生信息入库；成批添加可以从现存的学生信息EXCEL文件中成批录入到数据库中。删除学生。当学生毕业后，学生信息转移备份数据库中，系统的基本数据库中需要删除学生信息。该功能主要进行成批地删除学生信息，如连续学号区段的多位学生信息删除，整个班级的删除，所有学生信息的删除。新生管理。本部分的功能主要有新生导入、分班、及设置学号。新生导入实现从现存的EXCEL新生名单中录入学生信息。分班功能实现按新生的报考专业、成绩及性别进行分班。设置学号实现自动为各班学生编发学号。学生信息备份。在学生信息删除前，将其按班级为单位保存到备份数据库。 2学生成绩管理功能分数录入。以班级为单位，录入各科目的期中、期末、总评成绩。总分及名次。计算指定班级学生的总分及名次。补考成绩录入。修改总评成绩，以决定最终补考人数。成绩备份。为指定班级及指定的学期数的学生成绩保存到备份数据库中。3、课程信息管理功能课程管理。提供本学期各年级各专业所开课程名称的录入、修改、删除。它是学生成绩管理的基础。用以保证数据库中一致性原则。4、查询功能。学生信息查询。根据用户的要求，查询学生数据库的所有可能的信息，其中包括成绩查询。备份成绩查询。按班级为单位查询备份数据库的学生信息，补考情况。3.2 数据流图与数据库设计3.2.1 数据流图成绩表学生表 学生表 按总分降序设置学号查询相关记录班级名称 指定班级学生名单起始学号 新此数据流图反映的是新生数据导入、分班及设置学号的流程备份班级名称3.4.2数据备份3.4.1查询成绩数据备份数据单备份数据成绩表成绩备份表这是成绩备份的流程图总分表成绩表6.2.2查询处理6.2.1要求加工学生信息查询要求查询规则查询结果学生表学生信息查询的流程图 3.2.2 数据库设计 库设计本系统涉及到的信息主要有5类：学生信息、成绩信息、教师信息、图书信息、后备信息。由于成绩信息和教师信息与学生信息关系密切，因此将这三类信息存放在同一数据库中，以提高多种信息同时读取的速度。按以上分析，将系统的数据库设计为三个： 一、学生数据库： 该数据库为中包含有以下各表：1、学生表：记录学生的基本信息，是进行学生及其它各类信息处理的基础。2、成绩表：记录学生的期中、期末及总评的各科成绩。3、总分表：记录学生的期中、期末及总评的总分及名次。4、课程表：记录各专业各年级开课情况，在添加学生记录时，可根据该表的情况决定在成绩表添加学生记录的个数。三、后备数据库： 该数据库主要保存两类信息：学生信息、成绩信息。其数据表是按用户的要求在运行过程中动态建立的。 表设计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班级char203.3 详细设计根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项：1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。2、进行系统的流程分析，为模块的细化做好准备。3、对每个模块进行详细的算法设计。 31 系统界面设计一、登录及系统主窗口界面设计该部分界面主要包括登录窗口、系统主窗口、修改密码窗口。本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库（如图一）。其中学生档案是本系统主要的（图一）一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“Microsoft Access Drive（*.mdb）”，点击“完成”按钮，在ODBC Microsoft Access 安装对话框中在数据源名中输入信息，在数据库这个框中， 单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。 在VB中，用ADODC链接数据库，用DataGrid或DATA将库中的数据在界面中显示出来，本系统采用DataGrid。在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中， 选中单选框“Use ODBC Data Source Name”，并在下拉文本框中选择已经配置好的数据源名信息，再在“RecordSoure”标签中，在Commard Text（SQL）文本框中输入查询语句，如：select * from 学生档案。同时，将桌面的DataGrid控件选中，在属性框中，将它的Datasoure设为Adodc。我们可以设置DataGrid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。4 系统具体实现 4.1 课程管理，课程设置（图二）运行程序后，进入课程管理模块，课程管理模块的第一块是课程设置，在这模块中可以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入，以便使用。下面为其代码：Private Sub Command1_Click()Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetDim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As StringZhuanYe = Text1.TextNianJi = Text2.TextXueQi = DTPicker1.ValueKeCheng = Text4.TextJiaoCai = Text5.TextRenKLS = Text6.TextKeShi = Text7.TextShangKeDD = Text8.TextKeChengXZ = Combo1.TextKaoShiXZ = Combo2.TextIf Trim(ZhuanYe) = Or Trim(NianJi) = Or Trim(XueQi) = Or Trim(KeCheng) = Or Trim(JiaoCai) = Or Trim(RenKLS) = Or Trim(KeShi) = Or Trim(ShangKeDD) = Or Trim(KeChengXZ) = Or Trim(KaoShiXZ) = Then MsgBox 请填写要修改课程资料的内容！ Combo1.Text = Combo2.Text = Exit SubEnd IfmyCon.Open dsn=信息myRs.Open select * from 课程表 where 专业= & Text1.Text & , myCon, 3, 2 myRs!年级 = Text2.Text myRs!学期 = DTPicker1.Value myRs!课程名称 = Text4.Text myRs!教材 = Text5.Text myRs!任课老师 = Text6.Text myRs!课时 = Text7.Text myRs!上课地点 = Text8.Text myRs!课程性质 = Combo1.Text myRs!考试性质 = Combo2.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox 您确定要修改吗？, vbYesNo, 提示Frm_UpdateGrean.Adodc1.RefreshFrm_UpdateGrean.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Combo1.Text = Combo2.Text = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command3_Click() Unload Me Frm_FindGrean.Show 1End SubPrivate Sub DataGrid1_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(考试性质)End SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)End SubPrivate Sub Form_Activate()Frm_FindGrean.Adodc1.RecordSource = strTiaoJianFrm_FindGrean.Adodc1.RefreshSet DataGrid1.DataSource = Frm_FindGrean.Adodc1End SubPrivate Sub Form_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 = End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End SubPrivate Sub Text8_Change()End Sub4.2 课程管理：课程查询（图三）当输入查询类别、运算符和条件后可以查找到所需要的课程设置，或按查询时间来查询，输入所要查找的时间段，就可查到所要的课程设置。 If sqlstr = Then MsgBox 请先输入查找时间！ Exit Sub End If strTiaoJian = select 专业,年级,学期,课程名称,教材,任课老师,课时,上课地点,课程性质,考试性质 from 课程表 where & sqlstr Unload Me Frm_UpdateGrean.Show 1End IfIf Option3.Value True And Option4.Value True Then MsgBox 请选择查询方式！, vbOKOnly, 警告 Exit SubEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 1999 To 2010 Combo6.AddItem i Combo9.AddItem iNext i Combo6.ListIndex = 0 Combo9.ListIndex = 0 For i = 1 To 12 Combo7.AddItem i Combo10.AddItem iNext i Combo7.ListIndex = 0 Combo10.ListIndex = 0For i = 1 To 31 Combo8.AddItem i Combo11.AddItem iNext i Combo8.ListIndex = 0 Combo11.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 = End Sub4.3 系统业务架构打印统计运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。班级统计分析（如：界面如图四）（图四）代码如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT 年级,专业,人数,辅导员,备注 FROM 班级表 SQLadd = WHERE 年级=年级 AND 专业=专业 SQLorder = Private Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub Text1_Change()End SubPrivate Sub Text3_Change()End Sub4.4档案分析统计（图五）代码如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringD