毕业设计（论文）-VB6.0教务管理信息系统设计与实现.doc

第 23 页 共 23 页前 言计算机以其高效、准确地处理事务的能力，已日趋代替手工劳动。数字时代的到来使以前人类无法实现的梦想都变成了现实，用计算机管理来代替以往的人工管理中繁杂的手工劳动已成为必然。教务管理是一个复杂的管理过程。它有大量的数据源，人工管理起来很不容易，而且工作量也很大，学校规模很大，人工管理更是不可想象的。利用计算机管理可使人们从繁重的劳动中解脱出来，仅一些简单的操作，通过分类整理所有数据，便可及时、准确地获得所需信息。 由于教务涉及到的大部分是数据库的操作，所以我采用了一种关系数据库语言，即被多数人普遍接受，microsoft公司的面向对象数据库设计语言visual basic 6.0本系统所做的教务管理主要针对的是考试成绩管理本系统主要实现如下功能：（一）、学籍管理模块：添加学籍信息、修改学籍信息、查询学籍信息。（二）、班级管理模块：添加班级信息、修改班级信息。（三）、课程设置模块：添加课程信息、修改课程信息、设置年级课程。（四）、成绩管理模块：添加成绩信息、修改成绩信息、查询成绩信息第一章 概述1.1 本课题的研究意义学生信息管理工作是一个学校不可缺少的部分，它是学校管理者了解的学生信息合理配置的重要依据，其内容对于学校的管理者来说是至关重要的。通过对工作实际情况进行调查，以往使用传统的教务管理方式进行管理，以手工记录形式建立教务信息及进行手工操作，工作量较大，耗费人力，由于手工操作的管理方式存在着许多缺点，如：效率低、可靠性差、保密性差，并且手工核算难免存在各种各样的问题，同时将产生大量的文件和数据，对教学信息变动数据的查找、更新和维护工作十分困难，容易造成教务管理工作的失误，特别是在完成年度统计、进行统计、汇总等工作时，又要耗费大量人力，并且数据的准确性仍无法保证，致使教务管理工作存在诸多问题。随着科学技术的不断发展，计算机技术在实际应用领域中的使用已日渐成熟，其强大的功能已为人们深刻认识，计算机已经开始逐步进入人类社会的各个领域，发挥着越来越重要的作用。作为计算机应用的一部分，利用计算机对学校的教务管理信息进行管理，具有手工管理所无法比拟的优点，例如：效率高、检索迅速方便、运行可靠性高、数据存储量大、减少管理人员数量等，使用计算机对教务管理工作进行管理将极大地提高了工作效率。1.2 本论文的目的、内容毕业设计论文是毕业设计工作的总结和提高，通过进行毕业设计和书写毕业设计论文，使自己进一步地把以往所学的理论知识同实际应用有效结合在一起，同时在开发该系统的过程中，更加加深了自己对所学知识的理解。同时为了使毕业设计和毕业设计论文能够有一定的学术价值和实用价值，在毕业设计选题时，能够以严谨求实的科学态度，以能够反映出所学习的专业知识为原则，针对实际问题进行调查、分析，对教务管理工作进行细致的研究，通过对该课题进行可行性论证，技术实现论证和运行经济性分析，使得该软件的设计和实现都具有可行性。设计本系统能够解决该单位教务管理工作中存在的诸多困难，并且使该单位教务管理工作全面实现了自动化、科学化管理，从而为该院的高效运营和进一步发展奠定了坚实的基础。本设计论文将详细论述“本溪冶专教务管理系统”的课题选题、可行性论证、编程工具的选择、关系型数据库的实现、软件总体设计、各模块功能划分、各模块功能的实现等每一步骤，通过书写本论文，使自己进一步理清了整个毕业设计的思路，同时也及时发现了程序设计中存在的一些不足之处，更加完善了程序的各个功能，使所设计的软件功能更加完善。第二章、方案论证及课题设计目标2.1 方案论证通过对该单位学生信息管理工作实际情况的调查，了解到学校管理方式。在计算机还没有普及应用时，使用人工管理方式，每到学年初及学期未都需要花费大量的人力和时间来做这个的学生成绩等工作，人工管理不仅费时费力效率低而且经常出错。它涉及到的和教务有关的工作主要有:学生档案、学生成绩等，鉴于市场上还没有一个能完整地教务教学信息管理软件，学校决定自行开发一个适合学校现状的教务管理系统。该教务管理系统主要功能是对学校现有在学校学生的教务信息进行管理主要有人员管理模块、教务管理模块、系统设置模块、报表输出等模块。系统设计的原则是：一、方便、美观、实用、易操作的用户界面。二、功能完善、安全可靠。三、使用了用户登陆机制，以确保系统的安全性。 本教务管理系统归纳起来，好处大约有以下几点： 1 可以对学校的教务信息，安全、高效管理； 2 只需一到二名教务管理人员即可操作系统，节省大量人力和时间； 3 可以迅速制作教务信息表和查到所需信息。了解到该学校的具体情况后，针对其教务管理工作的实际，以简化教务管理操作、提高工作效率为目标，设计了该单位的教务管理系统，并对设计该系统所能实现的功能是否能满足需要、技术实现上是否可行、投入使用后的经济性及该单位现有教务管理人员对该系统是否能快速掌握操作方法等方面进行可行性分析，通过分析和论证，设计该教务管理系统具有可行性。（一）通过对学校的教务管理工作的调查，该项目具有实际应用性。目前学校教务管理工作由专人负责，采用手工记录方式建立学生成绩档案及进行手工核算，致使教务管理工作任务量较大，特别是进行教务信息数据的统计，完成年度报表时，工作量更大，每次都要集中很多人力，从基层单位抽调人员统一进行统计、汇总，但由于手工统计计算存在计算失误、计算误差等问题的弊端，仍然经常会出现数据错误、数据遗漏等问题，影响教务管理年度报表的准确性，此种教务管理方式已不能适应现阶段学校管理中的精干高效的原则。而采用该题目设计的教务管理系统应用软件对教务信息工作进行管理，极大地提高了工作效率，减轻了教务管理工作的劳动强度，只需兼职管理此项工作即可，减少了管理人员数量，使该单位的劳动教务信息支出降低，充分体现了学校管理工作精干高效的原则，也降低学校运营成本，同时还使报表数据的准确率大大提高，提供的数据也将更加可靠，并能够随时为领导提供准确的教务信息数据。同时，通过使用该教务管理软件，该单位的教务管理工作将全面实现自动化管理。（二）通过对该设计题目进行技术论证，其在技术实现上具有可行性。该系统采用编码效率高、具有较强数据库管理功能的visual basic 6.0 可视化程序设计语言来实现，由于该语言是面向对象的程序设计语言，使得在设计系统界面时方便快捷，更能设计出实用的程序界面，使该软件在今后的使用时操作将极其方便。同时visual basic 6.0 面向对象语言具有较强的数据库管理功能，完全能够完成教务管理系统的数据处理能力，对教务管理工作中的数据库的编辑、修改、教务信息数据统计等功能都能够实现，并且利用该语言实现的应用程序，是在现在流行的windows 操作系统中运行的软件，可方便地移植到其它单位使用该程序和进行教务信息数据的交流，从而扩大了软件的适用范围。（三）通过对教务处的工作人员进行调查，该系统投入使用后，程序的运行和维护具有可行性。学校教务处的工作人员现已具备计算机初级、中级操作水平，能够较快的熟悉并适应该软件的操作方式，另外，由于该软件是采用面向对象的程序设计语言实现的，其程序界面更加友好，具有其它windows 应用程序的共同属性，使得该教务管理系统比较容易上手，操作者能在短时间里熟悉软件的使用方法，同时在程序设计时以实际应用中操作简单为原则，对该系统的操作界面进行优化，对系统初始化、数据录入、查询等窗口的操作中，通过设置初始值和利用下拉菜单选择内容进行输入等方式以简化操作，使软件的操作非常方便快捷，增强了该软件的易用性。另外由于教务管理人员已具有较好的计算机操作和管理能力，完全能够胜任该系统的报表数据盘的上报拷贝、系统数据的备份和恢复等系统维护工作，使该系统的运行和维护具有可行性。2.2 该课题设计目标为了能够满足教务管理工作的需要，通过对该教务管理工作进行调查，所设计的教务管理系统的主要功能有：（一）、学籍管理模块：1、 添加学籍信息。2、 修改学籍信息。3、 查询学籍信息。（二）、班级管理模块：1、 添加班级信息。2、 修改班级信息。（三）、课程设置模块：1、 添加课程信息。2、 修改课程信息。3、 设置年级课程。（四）、成绩管理模块：1、 添加成绩信息。2、 修改成绩信息。3、 查询成绩信息第三章、需求分析及visual basic6.0中文版简介在大中学的管理工作中，教务管理是一个复杂的管理过程，其中的成绩管理尤其重要，它所涉及的范围广、数据量大，给人工管理带来诸多不便，若采用计算机管理会大大提高工作效率，实现学校教务管理的科学化、数字化一、 成绩管理现状1 成绩管理业务统程考试结束后，各科教师把各班单科成绩表交送教务科，教务管理员在已知系、专业、班级设置的情况下，以班为单位找不同学期分类整理存放成绩表，以备随时查询。2 业务流程数据分析我们知道，不同科目对应不同的成绩表，成绩表中涉及到学和的分数，科目又是由不同系的不同专业对应的教学计划产生的由此，我们得出过程需要的原始数据有：班级情况的设置，每班学生的个人档案，每一专业对应的教学计划，每一教学计划中课程提出对应的教学计划，每一教学计划中课提对应的班级为单位的成绩表。而此过程要输出的数据有： 每学期以班为单位学生甩的成绩表，每个学生甩的学期的课程设置和成绩及按不同要求的查询输出。学生二、计算机实现的功能要求综合上一节讨论，并结合程序最大程度地方便用户的原则对计算机实现该系统提出了以下要求：1.尽量不让用户重复输入相同内容。具体地讲，年级输入时对应的教学计划表就应该存在。成绩表中的课程是教学计划中课程的内容，填写完教学计划后对应的成绩表中的课程就应该存在，同理，学生档案中的学生信息也应自动加入到成绩表中。2.完成各基本信息的输入修改功能。3.对学生等信息进行查询。4.各种数据的备份功能。三、数据流程图根据上二节分析，可画出系统实现的数据流程图：1、关联图：如图3-1所示学生信息管理系统教务管理员教务管理员 各种表 报表图3-1 关 联 图2、顶层图：如图3-2所示教 务管理员 事 事 事 务 务 务 各种档案存储1 接收事 务2 修改事 务3 数据查 询教 务管理员教 务管理员图3-2 顶 层 图第四章 总体设计4.1 总体设计思想由前一章得出的数据流图，可以看出，成绩管理的重点在于各种基本数据的输入/修改以及对基本数据的查询，从另一方面考虑，成绩管理还可用于是对专业、班级情况教学计划的操作，这样做的目的是使成绩管理与整个有待继续开发的教务管理形成一个整体。根据每项实现的功能，可大略画出以下几种功能框图。学籍管理功能如图：4-1所示学籍管理修改学籍信息学籍信息查询添加学籍信息图4-1学籍管理图 班级管理如图4-2所示添加班级管理修改 图4-2班级管理图 课程设置功能如图4-3所示课程设置管理添加设置年级课程修改学籍信息图4-3课程设置图 成绩管理功能如图4-4所示修改学籍信息学籍信息查询添加学籍信息学籍管理图4-4成绩管理图第五章 数据库设计5.1 数据库设计思路根据学生信息管理的要求，需要的表班级表，成绩表学生档案、成绩表这类主要进行操作的表，而教学计划是为成绩表服务的。综合考虑数据完整性及冗余性问题，专业、班组，学生档案表各自独立地建立，而教学计划表由于专业各异，每个专业建立一个，这就需要在程序中动态地完成，有一个班级加入到就建立一个教学计划表，而成绩表与教学计划又有密切联系。使用sql创建数据库。数据库的名为student 5.2 具体表的设计及其结构1、class班级表字段名 类型 长度 索引 clss 数值 4 grade 字符 20 director 字符 10 classroom 数值 43、student学生档案表字段名 标题 类型 长度 索引student_name 姓名 字符 student 学号 数值 9 主索引birthday 出生日期 日期 8sex 性别 字符 2city 籍贯 字符 10zzmm 班级 数值 7 普通索引6、成绩表字段名 标题 类型 长度 索引stuid 学号 n 9 主索引names 姓名 c 8lesson1 课程名1 c 10score 成绩 c 6第六章 详细设计因本系统需要，系统完成共采用15个窗体，一个标准模块。系统功能实现的详细信息如下。本系统由两人共同完成，本人本人负责学籍管理模块和班级管理模块的设计任务。其主要任务是进行以下几个窗体的设计：6.1用户登陆窗体的设计由于贸易公司管理信息管理系统启动后，需要对用户进行判别断。如果登录者是授权用户，将进入系统，否则将停止程序的执行。图61 用户登陆窗体系统启动后，将首先出如图61所示的用户登陆窗体，用户首先输入用户名，然后输入密码。点击“确定”按钮后程序将进行查询，如果正确则登陆成功进入程序主窗体，否则会提示输入错误，要求重新输入。点击“取消”按钮则退出程序。6.2 修改密码窗体的设计进入系统后，选择菜单“系统”-”修改密码”就可以进行用户密码修改操作，如图6-2 所示。这个窗体中放置了二个文本框、一个框架、两个命令按钮和二个标签。首先输入新密码,其次输入确认密码，如果新密码和确认密码相同，则修改密码成功，否则会提示输入错误，要求重新输入。图6-2 密码修改窗体6.3 程序主窗体的设计为符合gui标准，主窗体体现出很好的亲和力，本系统主窗体采用传菜单、常用工具栏和状态栏的表现方式，这种方式表现力较强，符合一般人对计算机的操作习惯，如图63程序主窗体所示：图63程序主窗体 创建的方法是，新建产窗体，并在窗体上创建菜单，插入toolbar和statusbar，并在窗体中放置一个imagelist图像列表控件，将statusbar控件与imagelist图像列表控件连接，实现工具栏按钮的图像显示。在toolbar中创建几个分格，放置常用信息的体现。对菜单中项目进行代码设计其click事件，在工具栏单击事件中加入select语句实现菜单与工具栏按钮的关联6.4添加学籍信息模块设计添加学籍信息窗体和班级信息添加窗体外观是一样的，这里以添加学籍窗体为例进行说明窗体及代码的设计：在窗体中分别添加了五个文本框、九个标签、两个命令按钮、两个组合框和两个列表框在文本框中输入修改的内容，每个文本框都不能为空，并要有相应的格式，如出生日期必需为年月日等。组合框选择所必须的内容，添加完成后点击“确定添加”按钮。如图6-4所示图6-4添加学籍信息具体代码如下：（部分代码从略）private sub command1_click() dim mrc as adodb.recordset dim txtsql as string dim msgtext as string if not testtxt(txtsid.text) then msgbox 请输入学号！, vbokonly + vbexclamation, 警告 txtsid.setfocus exit sub end if if not testtxt(txtname.text) then msgbox 请输入姓名！, vbokonly + vbexclamation, 警告 txtname.setfocus exit sub end if if not testtxt(combosex.text) then msgbox 请选择性别！, vbokonly + vbexclamation, 警告 combosex.setfocus exit sub end if if not testtxt(txtborndate.text) then msgbox 请输入出生日期！, vbokonly + vbexclamation, 警告 txtborndate.setfocus exit sub end if if not testtxt(comboclassno.text) then msgbox 请选择班号！, vbokonly + vbexclamation, 警告 comboclassno.setfocus exit sub end if if not testtxt(txttel.text) then msgbox 请输入联系电话！, vbokonly + vbexclamation, 警告 txttel.setfocus exit sub end if if not testtxt(txtrudate.text) then msgbox 请输入入校日期！, vbokonly + vbexclamation, 警告 txtrudate.setfocus exit sub end if if not testtxt(txtaddress.text) then msgbox 请输入家庭住址！, vbokonly + vbexclamation, 警告 txtaddress.setfocus exit sub end if if not isnumeric(trim(txtsid.text) then msgbox 请输入数字！, vbokonly + vbexclamation, 警告 exit sub txtsid.setfocus end if txtsql = select * from student_info where student_id = & trim(txtsid.text) & set mrc = executesql(txtsql, msgtext) if mrc.eof = false then msgbox 学号重复，请重新输入！, vbokonly + vbexclamation, 警告 mrc.close txtsid.setfocus else mrc.close if not isdate(txtborndate.text) then msgbox 出生时间应输入日期格式（yyyy-mm-dd）！, vbokonly + vbexclamation, 警告 txtborndate.setfocus else txtborndate = format(txtborndate, yyyy-mm-dd) if not isdate(txtrudate.text) then msgbox 入校时间应输入日期格式（yyyy-mm-dd）！, vbokonly + vbexclamation, 警告 txtrudate.setfocus private sub command2_click() unload meend subprivate sub form_load() dim mrc as adodb.recordset dim txtsql as string dim msgtext as string dim i as integer combosex.additem 男 combosex.additem 女 txtsql = select * from class_info set mrc = executesql(txtsql, msgtext) for i = 1 to mrc.recordcount comboclassno.additem mrc.fields(0) mrc.movenext next i mrc.closeend sub65修改学籍信息模块设计在窗体中分别添加了二个框架控件、五个文本框、十一个标签、八个命令按钮、两个组合框和两个列表框。如图6-5所示操作如下：在已有的学生信息中通过查看学籍信息的命令按钮来查询到要修改的学生。如果对学生信息进行修改，单击“修改记录”按钮，修改完单击“更新数据”按钮完成修改；不修改单击“取肖修改记录”按钮，如果删除记录可单击“删除记录”按钮图6-5修改学籍信息66查询学籍信息模块设计 在窗体中分别添加了二个框架控件、四个标签、二个命令按钮、三个复选框和两个文本框和一个表格框。如图6-6所示操作如下：查询有三个关键字分别为学号、姓名、班号，如果查询某一个学生信息，首先在“按学号”前的单击，后在文本框中输入学号，单击查询就能查询查询到这名生学的信息。还可以按姓名查询方法同学号查询；如果查询某班的学生信息单击“按班号”复选框，在后面的文本框中输入班号，再单击“查询”按钮。图6-6查询学籍信息 查询代码如下： private sub cmdexit_click() unload meend subprivate sub cmdinquire_click() dim txtsql as string dim msgtext as string dim dd(4) as boolean dim mrc as adodb.recordset txtsql = select * from student_info where if check1(0).value then if trim(txtsid.text) = then smeg = 学号不能为空 msgbox smeg, vbokonly + vbexclamation, 警告 txtsid.setfocus exit sub else if not isnumeric(trim(txtsid.text) then msgbox 请输入数字！, vbokonly + vbexclamation, 警告 exit sub txtsid.setfocus end if dd(0) = true txtsql = txtsql & student_id = & trim(txtsid.text) & end if end if if check1(1).value then if trim(txtname.text) = then smeg = 姓名不能为空 msgbox smeg, vbokonly + vbexclamation, 警告 txtname.setfocus exit sub else dd(1) = true if dd(0) then txtsql = txtsql & and student_name = & txtname.text & else txtsql = txtsql & student_name = & txtname.text & end if end if end if if check1(2).value then if trim(txtclassno.text) = then smeg = 班号不能为空 msgbox smeg, vbokonly + vbexclamation, 警告 txtclassno.setfocus exit sub else dd(2) = true if dd(0) or dd(1) then txtsql = txtsql & and class_no = & txtclassno.text & else txtsql = txtsql & class_no = & txtclassno.text & end if end if end if if not (dd(0) or dd(1) or dd(2) or dd(3) then msgbox 请设置查询方式！, vbokonly + vbexclamation, 警告 exit sub end if txtsql = txtsql & order by student_id set mrc = executesql(txtsql, msgtext) with myflexgrid .rows = 2 .cellalignment = 4 .textmatrix(1, 0) = 学号 .textmatrix(1, 1) = 姓名 .textmatrix(1, 2) = 性别 .textmatrix(1, 3) = 出生日期 .textmatrix(1, 4) = 班号 .textmatrix(1, 5) = 联系电话 .textmatrix(1, 6) = 入校日期 .textmatrix(1, 7) = 家庭住址 do while not mrc.eof .rows = .rows + 1 .cellalignment = 4 .textmatrix(.rows - 1, 0) = mrc.fields(0) .textmatrix(.rows - 1, 1) = mrc.fields(1) .textmatrix(.rows - 1, 2) = mrc.fields(2) .textmatrix(.rows - 1, 3) = format(mrc.fields(3), yyyy-mm-dd) .textmatrix(.rows - 1, 4) = mrc.fields(4) .textmatrix(.rows - 1, 5) = mrc.fields(5) .textmatrix(.rows - 1, 6) = format(mrc.fields(6), yyyy-mm-dd) .textmatrix(.rows - 1, 7) = mrc.fields(7) mrc.movenext loop end with mrc.close end subprivate sub form_load() with myflexgrid .cellalignment = 4 .textmatrix(1, 0) = 学号 .textmatrix(1, 1) = 姓名 .textmatrix(1, 2) = 性别 .textmatrix(1, 3) = 出生日期 .textmatrix(1, 4) = 班号 .textmatrix(1, 5) = 联系电话 .textmatrix(1, 6) = 入校日期 .textmatrix(1, 7) = 家庭住址 end withend sub第七章 系统测试系统测试的目标是发现系统设计过程中存在的错误，它是保证系统功能的完整性和可靠性的重要关口，是对整个系统开发过程包括系统分析、系统设计、系统实现的最终审查。通过选择合适的测试记录集，在不同的运行环境中对软件进行测试，找出所开发的软件是否存在问题，从而使所设计的软件更加完善。在本溪满族自治县第一职业中专成绩管理系统的设计过程中，采取了以模块为单元，分块进行设计的原则，完成一个模块测试一个模块，各个模块都调试正确后，将各个模块组合成完整的系统，经过编译没有出现错误。通过测试，该管理系统的系统密码验证和修改功能正常，拷贝上报软盘功能都能顺利实现，并且具有一定的容错性，系统的数据库的备份与恢复功能正常，窗体的数据显示区域所显