基于VB的教务管理系统的设计毕业论文.doc

新乡学院毕 业 论 文论文题目： 教务管理系统 系 别 计算机科学系专 业 计算机应用与维护班 级 应用2班学生姓名 李培指导教师 曹琨完成日期 2008年02月02 日 目 录摘要3第一章 绪论41.1开发背景412开发的意义4第二章 开发环境及实现技术521 系统的运行环境522 开发工具5第三章 系统分析与总体设计631系统分析63. 2总体设计633系统功能程序介绍7第四章 系统的实现941 创建空数据库及数据表942 实现系统登陆功能模块1443 实现学生信息维护模块1644 实现班级信息维护模块1845 实现课程信息维护模块1946 实现学生选课功能模块1947 实现成绩输入功能模块2248 实现打印成绩单功能模块2449 实现考试安排功能模块25410 实现学费管理功能模块25第五章 设计总结25参考文献27 教务管理系统【摘要】高校教务管理工作是高等教育中的一个重要的环节，是整个院校管理的核心和基础。本文通过用 MICROSOFT公司的 VISUAL BASIC开发工具,Microsoft Access进行后台数据库的开发，使用ADO（ActiveX Data Objects）控件进行数据库的连接。开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，实现了学生基本信息的维护、班级信息的维护、课程信息的维护、学生选课、课表查询、成绩输入、打印成绩单等功能。本系统的用户界面十分简洁、实用，系统编制过程中充分考虑了计算机的优越性，对于不是计算机专业的人员来说，也可以很方便的进入系统和使用本系统提供的功能。关键词：教务管理，软件工程，VB，ADO 控件，Microsoft Access 【 Abstract 】The high school educational administration management work is an important link in the higher education, is the whole core and the foundation that the college manage.This text passes the VISUAL BASIC development tool of use the MICROSOFT company, the Microsoft Access carries on the development of the backstage database, the usage ADO(the ActiveX Data Objects) controls the conjunction that the piece carries on a database.The development mainly includes the establishment and maintenance and the head application procedure of the backstage database to develop two aspects, the maintenance,student that carried out a student the maintenance,the course information ofwith the maintenance,the class information ofwith basic information select elective courses,the lesson form search,the result importation,print report card etc. function.The customer interface of this system is very simple and direct and practical, the system drew up to consider the superiority of the calculator well in the process, for isnt a calculator professional personnel to say, can also enter the system and usage very conveniently originally system to provide of function.Keyword: Educational administration is managed , software project, VB and ADO control , Microsoft Acces第一章 绪论1.1开发背景随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机进行教务管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提教务管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套教务管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法. 教务管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。12开发的意义毕业设计是大学学习的总结，同时也是自己综合运用所学知识解决实际问题的一次锻炼。教务管理系统的主要目的是为了方便学校对班级信息、学生基本信息、课程信息、考试安排、学生交费进行录入、修改、查询，提高学校的工作效率。这一系统的开发成功，解决了手写速度慢、容易出错的现状。无论是在学籍管理、成绩管理、课程管理等方面都可以帮助学校最迅速最准确的完成所需的工作。无论是在适用性、灵活性和易操作性方面都显示出了它的强大功能。 第二章 开发环境及实现技术21 系统的运行环境在操作系统方面，虽然现在Linux的发展速度非常的快，但是对于大多数的使用者来说，操作显然没有微软的WINDOWS那么的流行和简单化。所以我决定该教务管理系统将运行在Windows系统下面。 22 开发工具1、Visual Basic的简介Visual Basic是一个可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它编程简单、效率高，且功能强大，可以与windows的专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数，以及动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大的、图形界面丰富的应用软件系统。总的看来Visual Basic有以下主要特点： 可视化编程 面向对象的程序设计 结构化程序设计语言 事件驱动编程机制 访问数据库2、ADO控件的简介ADO （ActiveX Data Objects）Active数据对象。ADO设计为一种极为简单的格式，通过ODBC的方法同数据库接口。可以用任何一种ODBC数据源，如：SQL Server、Oracle、Access、Excel、文本文件、图形文件和无格式的数据文件。在VB中使用ADO：在一个打开的Visual basic 6.0的工程中，选择菜单【工程】【部件】命令，出现“部件”对话框，在“控件”选项卡的列表中选择“Microsoft ADO Data Control 6.0 (OLEDB)”选项，单击【确定】按钮。这样在程序中便加入了对ADO的引用。3、Micrsoft Access 简介在这个系统中我们使用Micrsoft Access进行后台数据库的开发。Micrsoft Access是Micrsoft Office系列中数据处理软件， Access2003是关系数据库开发工具，1992年，Microsoft Access作为第一个面向Windows操作平台的桌面数据库管理系统而诞生，它不但充分体现了面向对象的思想，提供可视化的编程手段，而且充分利用了Windows操作平台的优越性，采用与Windows完全一致的界面风格，使界面非常友好。在Access中，用户不需要编写复杂的程序就可以建立一个完整的数据库应用系统，是一个典型的开放式数据库系统，它可以和Windows下的其他应用程序共享数据库资源。第三章 系统分析与总体设计31系统分析系统分析的主要任务是将在系统详细调查中所得的文档资料集中到一起，对组织内部整体管理状况和信息处理过程进行分析。它侧重从业务全过程的角度进行分析。分析的主要内容是：业务和数据的流程是否通畅，是否合理；数据、业务过程和实现管理功能之间的关系；老系统管理模式改革和新系统管理方法的实现是否具有可行性等等。系统分析的目的是将用户的需求及其解决方法确定下来，这些需要确定的结果包括：开发者关于现有组织管理状况的了解；用户对信息系统功能的需求；数据和业务流程；管理功能和管理数据指标体系；新系统的改动和新增的管理模型等等。 3. 2总体设计1功能模块详解本文通过用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的编程环境编写教务管理系统，全面部析教务管理的内容，由此得出教务管理系统的需求分析和数据建模，利用软件工程原理，用模块化设计方式将系统的各个功能模块层层分解，设计出系统的模块化结构，并根据系统的具体要求和需要实现的功能，详细地定义了各个模块的具体功能。本系统的功能模块图如下： 教务管理系统基础维护教学管理考试管理用户登陆添加用户修改密码班级信息维护学生信息维护课程信息维护学生选课课表查询考试信息管理体制成绩输入考试时间查询报表统计打印成绩单学费管理系统管理图3.1 功能模块图2系统流程图系统流程图如图 3.2 所示：操作员班级信息维护学生信息维护系统管理学费管理考试管理班级信息表学生信息表用户表收费标准表成绩表学生选课查询课程表成绩输入打印成绩单课程信息维护课程信息表图3.2 系统流程图33系统功能程序介绍本应用程序系统采用的是多文档窗体程序，每一功能模块对应一个窗体。现在将逐个介绍各个模块的功能。1系统管理模块该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户，这三个功能模块各自独立，完成该系统的用户管理。2班级信息维护模块：该模块的功能是实现对全校班级的管理工作，包括：增加班级、班级修改、班级查询等班级信息的维护。3学生信息维护模块：该模块的主要功能是实现对学生的个人信息的管理工作，包括学生信息增加、学生信息查询等功能，从而方便学校教务部门对学校的基本情况的快速查询和了解。4课程信息维护模块：该模块对各个课程信息进行设置，包括对课程信息记录的添加、修改、删除、保存和搜索等功能，以便教务部门可以快速的查询和修改课程信息，完善高校专业建设。此外，还设置了学生选课模块，学生可以根据提供的课程信息选择本学期的课程。同时，学生还可以查看自已的课程表，包括上课时间、上课地点。5成绩管理模块：学校的成绩管理工作是检验学生学习情况的一个主要手段，设置了成绩输入、成绩查询、预览及打印成绩单等功能模块。6交费用管理模块：对学校学生交费情况进行添加和查询，方便学校了解学生的交费情况。7考试安排模块：该模块可实现各班考试时间、考试地点、考试科目的输入，同时可以进行各班考试时间的查询。7报表统计模块：用户可以对某一学生所选课程的成绩进行预览、打印。本系统的设计是在Windows XP中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的编程软件Visual Basic 6.0中文版以及数据库软件Microsoft Access2003。数据库的修改分为；添加、编辑和删除记录。这三种操作均可由Visual Basic创建的程序来完成，下面的章节将详细描述实现的具体方法。 第四章 系统的实现41 创建空数据库及数据表本系统是使用Microsoft Access2003 创建后台数据库的，因此下我们就介绍一下在Microsoft Access2003 创建数据库文件。本根系统的需求，首先要创建一个“教务管理系统.mdb”空数据库并建立下面的表： 班级信息 保存班级的基础信息 学生信息 保存学生的基本信息 课程信息 保存课程的基本信息 课程表图 保存查询并生成学生课程表图的数据源记录 选课表 保存学生根据课程表进行选课的结果 成绩表 保存学生的课程成绩 考试安排表 保存各班的考试安排信息 收费标准表 保存各系各专业的收费标准 收费单 保存各学生的交费情况如图 4.1所示图4.1 创建的数据库下面分别对各表的结构进行介绍。“班级信息”表的结构如表4.1 所示。表4.1 “班级信息”表结构字段名称字段类型允许为空备注班级编号文本否关键字段年级文本是班级名称文本是班级简称文本是人数数字是默认值：0班主任文本是 “学生信息”表的结构如表4.2 所示。表4.2 “学生信息”表结构字段名称字段类型允许为空备注学号文本否关键字段姓名文本是班级编号文本是索引：有（有重复）性别文本是年级文本是政治面貌文本是民族文本是籍贯文本是身份证号文本是学籍编号文本是“课程信息”表的结构如表4.3 所示。表4.3 “课程信息”表结构 字段名称字段类型允许为空备注课程编号数字否关键字段课程名称文本否课程简称文本否拼音码文本否本学期课程是/否否教师文本是开课系别文本是学分数字是上课时间天数字否上课时间节数字否上课地点文本否“选课表”表的结构如表4.4 所示。表4.4“选课表”表结构字段名称字段类型允许为空备注编号自动编号否关键字段学号文本否索引：有（有重复）课程编号数字否索引：有（有重复）课程名称文本否课程简称文本否拼音码文本否本学期课程是/否否教师文本是开课系别文本是学分数字是上课时间天数字否上课时间节数字否上课地点文本否“课程表图”表的结构如表4.5 所示。表4.5“课程表图”表结构字段名称字段类型允许为空备注上课时间节数字是默认值：0星期一文本是保存周一的课程信息星期二文本是保存周二的课程信息星期三文本是保存周三的课程信息星期四文本是保存周四的课程信息星期五文本是保存周五的课程信息“成绩表”表的结构如表4.6 所示。表4.6“成绩表”表结构字段名称字段类型允许为空备注成绩编号自动编号否关键字段学号文本是课程编号数字是课程名称文本是拼音码文本是成绩数字是“考试安排表”表的结构如表4.7所示。表4.7“考试安排表”表结构字段名称字段类型允许为空备注编号自动编号否关键字段班级编号数字是班级名称文本是考试科目文本是考试时间日期/时间是考试地点数字是“收费标准表”表的结构如表4.8所示。表4.8“收费标准表”表结构字段名称字段类型允许为空备注编号自动编号否关键字段系别编号文本是专业代号文本是学费数字是住宿费数字是书费数字是总计数字是“收费单”表的结构如表4.9所示。表4.9“收费单”表结构字段名称字段类型允许为空备注学号数字否关键字段系别编号文本是专业代号文本是学费数字是住宿费数字是书费数字是总计数字是别外还有一个关于系统用户的数据库，该数据库中有一个“yhxx”即“用户信息”表。该表的表结构如表 4.10 所示。表4.10 “yhxx”表结构字段名称字段类型允许为空备注用户名文本否关键字段密码文本否用户类型文本否42 实现系统登陆功能模块对于数据库管理系统，安全的重要性是不言而喻的。一个设计良好的安全机制能确保用户的合法操作的简单、容易，同时可以尽量避免非法操作和意外破坏。数据库的安全性以被访问的数据库的对象和访问者为主要管理对象，用户只有具有对某个对象的访问权限才可以对该对象进行访问。421实现用户登陆功能 本系统【用户登陆】窗体的运行结果如图4.2 所示。 图4.2 【用户登陆】窗体 图4.3【用户注册】窗体在该窗本中输入用户名、密码选择用户类型后，如果是合法的用户则可以进入该系统，也可以进行新用户的注册以及密码的修改。实现过程是在VB中添加如图4.2所示的控件以及连接后台数据库的ADO控件。ADO控件的属性设置：Name ：ADO的名称Commandtype：ADO的连接方式 adCmdTextConnectionstring: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:学生管理系统yh.mdb;Persist Security Info=FalseRecordsource: select * from yhxx以后各模块中出现的ADO都采用相同的方法设置，后面将不再详细绍介。系统判断该用户输入的用户名、密码及用户类型是否吻合，进而决定该用户是否可以登陆到系统中。实现该功能的方法是【登陆】按钮的“单击”事件中添加如下代码：Private Sub Command1_Click()Adodc1.RecordSource = select * from yhxx where 用户名= + Text1.Text + And 密码 = + Text2.Text + and 用户类型= + Combo1.Text + Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Then Form3.Show Unload MeElse MsgBox 非法用户 End If End Sub422实现用户注册功能本系统中注意如果是新用户没有权限使用该系统中的任何功能，必需注册成该系统的用户才可以使用。本例的【用户注册】窗体运行结果如图4.3所示。本窗体中可以添加新的用户，输入新的用户名后，单击后面的图标，查看该用户名是否已经在存，如果存在，则该用户名不能使用，如果不存在，则可以使用，输入密码、确认密码，选择用户类型后，单击“提交”按钮即添加了新的系统用户。查看用户名是否已启用是在图像的“单击”事件中添加如下代码：Private Sub Image5_Click()Adodc1.RecordSource = select * from yhxxAdodc1.RefreshAdodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields(用户名) = Text1.Text Then MsgBox 该用户名已存在，请重新输入！ Exit Sub End If Adodc1.Recordset.MoveNextWendMsgBox 可以启用该用户名End Sub本窗体的“提交”按钮的功能是判断输两次输入的密码是否相同，如果不相同，给出相应的提示，如果相同，完成新用户的增加。实现“提交”按钮的功能是在“提交”按钮的“单击”事件中编写如下代码：Private Sub Command2_Click()Adodc1.RecordSource = select * from yhxxIf Text2.Text = Text3.Text Then Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Text1.Text Adodc1.Recordset.Fields(密码) = Text2.Text Adodc1.Recordset.Fields(用户类型) = Combo1.Text Adodc1.Recordset.Update MsgBox 注册成功 Else MsgBox 两次密码输入不同！ End If Unload MeEnd Sub本系统的“修改密码”窗体设置与此窗体类似，在此不详细介绍。43 实现学生信息维护模块在本系统中可以通过选择主窗菜单中的各菜单项进入相应的功能模块。该模块的主要功能是实现对学生的个人信息的管理工作，包括学生信息增加、学生信息查询等功能，从而方便学校教务部门对学校的基本情况的快速查询和了解。在主窗体中单击“基础维护”菜单选择“学生信息维护”命令，可以打开“学生信息维护”窗体，该窗体的运行结果如图4.4所示。图4.4学生信息维护模块该窗体中顶部工具栏上有新增、修改、删除、保存和关闭6个按钮，可以对“学生信息”进行设置，包括学生信息记录的添加、修改、删除、保存和搜索等功能。底部工具栏上有首记录、上记录、下记录和尾记录按钮，可以对学生信息表中的记录进行逐个浏览。将底部工具栏上的Frame中的学号、姓名、班级编号、性别、年级、民族、籍贯、政治面貌等文本框的Locked属性设置为True，将这几个文本框进行锁定，只有在单击“新增”或“修改”按钮时，才将其进行解锁，即将其Locked属性设置为False。在该窗本中使用了一些新的控件，如DaraGrid控件、ShockwaveFlash控件、Toolbar控件和ImageList控件。下面对以上各控件的属性进行设置。DaraGrid控件： 将DaraGrid控件的DataSource属性设置为：Adodc1ShockwaveFlash控件:将ShockwaveFlash控件的Movie属性设置为：F:学生管理系统ico2.swfToolbar控件用于设置工具栏上的新增、修改、删除等按钮，ImageList控件用于设置这些按钮上的图标，在这里使用的都是(*.ico)和（*.bmp）图标。现实窗体顶部工具栏上的新增、修改、删除、保存、关闭按钮的功能，在窗体顶部工具栏的“单击”事件中编写代码(附在后面)。现实窗体底部工具栏上的首记录、上记录、下记录和尾记录按钮的的功能，在窗体底部工具栏的“单击”事件中编写代码(附在后面)。在该模块中输入学号、姓名和年级信息可以查询某学生的基本信息，如果该记录不存在则会给出相应提示的信息，实现此功能是在“搜索”按钮的“单击”事件中编写如下代码：Private Sub Command6_Click()Adodc1.RecordSource = select * from 学生信息 where 学号= + Text1.Text + And 姓名= + Text2.Text + and 年级= + Text3.Text + Adodc1.RefreshDataGrid1.RefreshIf Adodc1.Recordset.RecordCount 0 Then Else MsgBox 该学生不存在或输入错误！ End IfEnd Sub至此，“学生信息维护”功能模块创建完成。44 实现班级信息维护模块该模块的功能是实现对全校班级的管理工作，包括：增加班级、班级修改、班级查询等班级信息的维护。“班级信息维护”模块的实现过程及方法与“学生信息维护”功能模块的基本相同，在此不再详细介绍。该模块的运行结果如图4.5 所示。图4.5班级信息维护模块45 实现课程信息维护模块该模块对各个课程信息进行设置，包括对课程信息记录的添加、修改、删除、保存和搜索等功能。“课程信息维护”模块的实现过程及方法与“学生信息维护”功能模块的相同，在此不再详细介绍。该模块的运行结果如图4.6 所示。图4.6课程信息维护模块46 实现学生选课功能模块在主窗体中单击“教学管理”菜单选择“学生选课”命令，可以打开“学生选课”窗体，该窗体的运行结果如图4.7 所示。图4.7学生选课模块该窗体上有查询、选课、删除、显示课表和关闭5个按钮，可以实现的功能是对“学生选课”进行管理。具体操作是，首先在“学号”文本框中输入学号并回车，系统自动把该生的姓名和所在班级显示在窗体“姓名”和“班级编号”文本框中。系统显示出对应的学生信息和该生已选择的课程；实现方法是在“学号”文本框“LostFocus”事件中添加如下代码：Private Sub Text1_LostFocus()Adodc1.RecordSource = select * from 学生信息 where 学号= + Text1.Text + Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Then Text2.Text = Adodc1.Recordset.Fields(姓名) Text3.Text = Adodc1.Recordset.Fields(班级编号) Else MsgBox no record Text2.Text = Text3.Text = End IfAdodc2.RecordSource = select 选课表.学号,选课表.课程编号,选课表.课程名称,选课表.课程简称,选课表.拼音码,选课表.本学期课程,选课表.教师,选课表.开课系别,选课表.学分,选课表.上课时间天,选课表.上课时间节,选课表.上课地点 from 选课表 where 学号= + Text1.Text + Adodc2.RefreshDataGrid1.RefreshEnd Sub在“课程信息”子窗体中的文本框中输入课程的查询条件，查询希望选的课程，查询结果显示在下面的子窗本中，在下面的窗体中选择待选择的课程，然后单击“选课”按钮，系统首先判断该课程是否为“本学期课程”，然后检查该门课程是否已经选择，以及该课程序号的课程所有上课时间和已选择课程的上课时间是否冲突，如果都没有问题就可以完成对该课程的选课操作。单击“查询”按钮，系统自动根据“课程拼音”、“课程编号”和“课称名称”3个文本框的查询条件进行查询。实现的方法是在“查询”按钮的“单击”事件中添加如下代码：Private Sub Command1_Click()Adodc3.RecordSource = select * from 课程信息 where 课程名称= + Text5.Text + and 课程编号=val( + Text6.Text + )and 拼音码= + Text4.Text + Adodc3.RefreshDataGrid2.RefreshIf Adodc3.Recordset.RecordCount 1 Then MsgBox 没开设此课程 End IfEnd Sub在“学生选课”子窗体中选择待选择的课程，然后单击“选课”按钮，系统经过一系列的判断，如果没有问题就可以完成对该课程的选课操作。实现的方法是在“选课”按钮的“单击”事件中添加代码（附在后面）。在该模块中如果删改已选择的课程，在“课程信息”子窗体中输入要删除的课程信息，然后单击“删课”按钮就可以把该门已选择的课程删除。实现方法是在“删课”按钮的“单击”事件中添加代码（附在代码清单）。在该窗体中单击“显示课表”按钮可以打开“课表查询”窗体，其运行结果如图4.8所示。图4.8显示课表模块在“学号”文本框中输入某个学生的学号，当光标离开该文本框后，系统会自动把该学生的姓名和班级编号显示在窗体“姓名”和“班级编号”文本框中，同时搜索出该生所选择的课程并把这些课程都显示在下面的“课程表”子窗体中。实现该功能的方法是在“学号”文本框的“LostFocus”事件中添加代码（附在后面）。为了使“课程表图”表中的记录只存在该生的课程表信息，在每次退出该模块时都将该表中的信息清空。实现此功能的方法是在“关闭”按钮添加如下代码：Private Sub Command1_Click()Adodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOF Adodc2.Recordset.Delete Adodc2.Recordset.Update Adodc2.Recordset.MoveNext Wend Unload MeEnd Sub至此，“学生选课”功能模块创建完成。47 实现成绩输入功能模块在主窗体中单击“教学管理”菜单选择“成绩输入”命令，可以打开“成绩输入”窗体，该窗体的运行结果如图4.9 所示。如图4.9 成绩输入功能模块该窗体上有终止选课，并生成空成绩单、查询、最终提交、保存成绩、和关闭5个按钮。单击“终止选课，并生成空成绩单”按钮，系统会根据所有学生已经选择的课程生成一个空的成绩单，实现方法是在“终止选课，并生成空成绩单”按钮“单击”事件中添加代码（附在代码清单）。在第2个“终止选课，并生成空成绩单”选项组的3个文本框中输入一个或多个查询条件，然后单击“搜索”按钮，系统可以对“学生成绩单”各个记录进行交叉与模糊查询，并把查询结果显示于“成绩输入”选项组内的子窗体中，在“成绩”文本框中可以输入选择该课程的学生的成绩，单击“保存成绩”按钮，系统自动把该成绩保存到成绩表中。在输入所有成绩后，单击“最终提交”按钮，提交成绩，提交后将不可以再修改（在这里是把“成绩”文本框锁定，使系统无法再进行修改学生成绩，除非再次生成空成绩单）。“关闭”按钮用于成功退出该功能模块。在“成绩”文本框的LostFocus事件中编写如下代码Private Sub Text4_LostFocus() If Not Adodc1.Recordset.EOF Then If Text4.Text Then Adodc1.Recordset.Fields(成绩) = Text4.Text End If Adodc1.Recordset.MoveNext End IfEnd Sub在“保存成绩”按钮的单击事件中编写如下代码：Private Sub Command4_Click()If Not Adodc1.Recordset.EOF ThenAdodc1.Recordset.UpdateEnd IfEnd Sub在“最终提交”按钮的单击事件中编写如下代码：Private Sub Command3_Click()Adodc1.Recordset.UpdateText4.Enabled = FalseEnd Sub“查询”和“关闭”功能与前面“学生选课”功能中的实现方法非常类似，在此不再详细介绍。至此，“成绩输入”功能模块已经创建完成。48 实现打印成绩单功能模块在主窗体中单击“报表统计”菜单选择“打印成绩单”命令可以打开“打印成绩单”功能模块，其运行结果如图4.10所示。图4.10 打印成绩单功能模块该窗体上有“预览成绩”和“打印成绩”两个按钮，在学号中输入某学生的学号，当光标离开该文本框时，系统会自动把该学生的“姓名”和“班级”显示在窗体“姓名”和“班级”文本框中，同时搜索出该学生所选择的课程并把这些课程都显示在下“成绩单”选项组的子窗体中，单击“预览”按钮可以预览成绩单的打印结果。实现方法是在“学号”文本框的LostFocus事件中添加代码（附在代码清单）。在“预览成绩”按钮的“单击”事件中添加如下代码：Private Sub Command1_Click()Form13.ShowEnd Sub在Form13窗体的Load事件中添加代码以实现成绩单的窗体（附在代码清单）。在“打印成绩”按钮的“单击”事件中添加如下代码：Private Sub Command2_Click() Form13.Show Form13.PrintFormEnd Sub至此，“打印成绩单”功能模块已经创建完成49 实现考试安排功能模块该模块可实现各班考试时间、考试地点、考试科目的输入，同时可以进行各班考试时间的查询。在主窗体中单击“考试管理”菜单选择“考试信息管理”命令，可以打开“考试信息管理”窗体，该窗体可以实现考试安排信息的输入；在主窗体中单击“考试管理”菜单选择“考试时间查询”命令，可以打开“考试时间查询”窗体，该窗体可以实现各班考试时间的查询。这两个功能模块的实现过程与“学生信息维护”功能模块相似，在此不再详细介绍。410 实现学费管理功能模块在本模块中可以输入学校各系各专业的收费标准，对学校学生交费情况进行添加和查询，方便学校了解学生的交费情况。在主窗体中单击“学费管理”菜单可以打开“学费管理”功能模块，其运行结果如图4.11所示。如图4.11 收费管理功能模块这个功能模块的实现过程与“学生信息维护”功能模块相似，在此不再详细介绍。第五章 设计总结在程序的开发过程中遇到了很多的困难，但经过同学和指导老师的帮助，一一化解了困难，并从中学到了很多编程方面的知识。但是由于经验方面的原因该系统还有许多不尽如人意的地方和功能上的缺陷而且系统的可移植性比较差，这些都有待于进一步改善。在本次毕业设计中，我从指导老师曹老师身上学到了很多东西，曹老师认真负责的工作态度，无论在理论上还是实践中，她都给予我很大的帮助，是我得到不少的提高，相信对我以后的工作和学习都会有很大的帮助，感谢她细心而耐心的辅导。参考文献1 汉清计算机工作室, Visual Basic 6.0 数据库开发实例 ,机械工业出版社 2000.32 何旭洪,Visual Basic 数据库开发实例导航,人民邮电出版社 20023 孙健鹏,VB数据库开发实例解析,机械工业出版社4 王汉新,Visual Basic程序设计,科学出版社 20025 陈惟斌,Visual Basic 6.0开发指南,清华大学出版社 2001.16 张春葆,VB数据库系统设计与开发,清华大学出版社7 Buczek,Access 2003数据库开发即时应用,人民邮电出版社 20038 Visual Basic 6 Harry M. Deitel, Paul J. Deitel, Tem R. Nieto 电子工业出版社9 王晟，韩泽坤Access 数据库开发经典案例解析，清华大学出版社2006.1 10潇湘工作室 Access2002中文版从入门到精通 人民邮电出版社 2001.10附：代码清单学生信息维护窗体：1、现实学生信息维护窗体顶部工具栏上的新增、修改、删除、保存、关闭按钮的功能，在窗体顶部工具栏的“单击”事件中编写如下代码：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)If Button.Index = 1 Then Adodc1.Recordset.AddNew ：Text4.Locked = False ：Text5.Locked = FalseText6.Locked = False ：Text7.Locked = False ：Text8.Locked = FalseText9.Locked = False ：Text10.Locked = False ：Text11.Locked = FalseText12.Locked = False ：Text13.Locked = False ElseIf Button.Index = 2 Then Text4.Locked = False ：Text5.Locked = False ：Text6.Locked = FalseText7.Locked = False ：Text8.Locked = False ：Text9.Locked = FalseText10.Locked = False ：Text11.Locked = False ：Text12.Locked = FalseText13.Locked = FalseElseIf Button.Index = 3 Then Adodc1.Recordset.DeleteElseIf Button.Index = 4 Then Adodc1.Recordset.UpdateText4.Locked = True ：Text5.Locked = True ：Text6.Locked = TrueText7.Locked = True ：Text8.Locked = True ：Text9.Locked = TrueText10.Locked = True ：Text11.Locked = True ：Text12.Locked = TrueText13.Locked = TrueElseUnload MeEnd IfEnd Sub2、现实学生信息维护窗体底部工具栏上的首记录、上记录、下记录和尾记录按钮的的功能，在窗体底部工具栏的“单击”事件中编写如下代码：Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 4 Adodc1.Recordset.MoveFirst Case 5 Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End If Case 6 Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.