2011全国大学生软件类成绩管理系统论文.doc

江 西 城 市 职 业 学 院毕 业 论 文（毕 业 设 计） 论 文 题 目： 学生成绩管理系统 学 科 专 业： 软 件 技 术 作 者 姓 名： 许江涛 指 导 老 师： 彭 军 提 交 日 期： 2011年4月28日星期四 摘 要女装店铺/随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长，尤其是学生的考试成绩数据。面对庞大的学生的成绩，需要有学生成绩管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。本系统主要用于学校学生考试成绩管理，总体任务是实现学生成绩管理信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生考试成绩进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生的课程管理以及班级管理，针对这些要求设计了学生信息管理系统。 本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个成绩管理系统的过程。通过分析我们学校学生成绩管理的不足，创建了一套行之有效的计算机管理学生成绩的方案。文章介绍了学生成绩管理系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法，本系统界面友好，操作简单，比较实用。Abstract:As the school scale unceasingly expands, the student population has increased dramatically，All kinds of information about students also increase exponentially，especially student test scores data. Facing huge students scores, need to have students performance management system to improve the efficiency of the student management work. Through this system can accomplish information standard management, scientific statistics and rapid inquiry, modify, add, delete, etc, thus reducing management workload, Also consider students course management and the class management and aiming at these design requirement for the students information management system. This paper introduces Basic6.0 environment in Visual by top to bottom to overall planningBottom-up development strategy of applications to develop a performance management system process. Through the analysis of our school student performance management deficiencies, created a set of effective computer management of the students grade scheme,This paper introduces students performance management system of system analysis parts, including the feasibility analysis, business process analysis, System design part mainly introduced the system function design and database design and code design; System realize part of several major modules illustrates the algorithm, this system friendly interface, the operation is simple, is more practical.关键字成绩管理信息系统、学生管理、Visual Basic应用。KeywordPerformance management information system、Student management、Visual Basic applications.目 录女装店铺/第一章系统概述41.1 系统及需求分析41.1.1 系统需求41.1.2 可行性分析41.2 系统语言41.2.1Visual Basic 语言的介绍41.2.2Visual Basic 语言的特点41.3 系统的功能简介61.3.1 项目规划61.3.2 系统管理模块61.3.3 班级管理模块61.3.4 课程管理模块61.3.5 成绩管理模块61.4 系统开发的目标6第二章系统分析72.1 业务流程分析72.1.1 课程管理业务流程图72.1.2 班级管理业务流程图72.1.3 成绩管理业务流程图72.2 数据存储分析82.3 功能分析9第三章系统设计103.1 软件模块结构设计103.1.1 系统方案确定103.1.2 软件结构设计103.2 数据库设计103.2.1 个数据表103.2.2 表的物理结构10第四章系统的功能134.1 系统登陆界面134.2 系统主界面154.3 成绩查询界面154.4 报表的打印20第五章系统测试235.1 集成测试235.2 功能测试235.3 链接测试235.4 文档测试235.5 负载测试235.6 极限测试23全文总结24致 谢25参考文献26第一章 系统概述女装店铺/本学生成绩管理系统可以说是一个非常小的学校学生成绩管理系统，这它集成了学生的课程设置、班级管理、学生成绩管理、三个功能，具有一定的实用性。1.1 系统及需求分析1.1.1 系统需求 通过调查,要求系统需要有以下功能: 1 需要一个用户管理模块，具有添加用户、密码修改功能；2 系统中要有数据的录入、修改、查询等功能并且操作要简单易行；3 需要将成绩打印到Excel当中；1.1.2 可行性分析学生成绩管理，作为一个学校，具有很大的工作量，班级的增加、班级的查找、班级的修改；课程管理；成绩管理；统计等等，每个信息的数据都在不断地变化着，如果采用人工的方式进行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。本系统前台所采用的语言是Visual Basic，后台用Microsoft Access 2000数据库完成。本系统主要信息流程为：教务信息维护接受学生的成绩信息，学生成绩信息查询根据教务信息维护的学生成绩信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中，并进行打印。采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。1.2 系统语言1.2.1 Visual Basic语言的介绍本系统的设计是在Windows XP中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：Visual Basic语言Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。1.2.2 Visual Basic语言的特点1.可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2.面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言女装店铺/(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3.结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。4.事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。5.访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如Access、SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。6.动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。7.对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。8.动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太女装店铺/容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。1.3 系统的功能简介本系统主要可以实现以下的管理功能：课程管理、班级管理、成绩管理等。1.3.1 项目规划学生成绩管理系统是一个典型的数据库应用程序,由课程管理、班级管理、成绩管理等模块组成,特规划如下:1.3.2 系统管理模块该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码两个功能。1.3.3 班级管理模块该模块的功能是实现对全校班级的管理工作，包括：班级游览、班级添加、班级查询等，这三个功能模块各自独立，完成学校的全部班级的管理。1.3.4 课程管理模块该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括课程设置、查询、修改三个模块。1.3.5 成绩管理模块学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括考试的成绩添加、成绩游览、成绩查询等功能模块。1.4 系统开发的目标出于本系统是针对学校学生成绩管理的一个的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。第二章 系统分析女装店铺/2.1 业务流程分析2.1.1 课程管理业务流程图查询录入课程信息录入课程查询结果课程表 添加课程记录添加删除修改图2-12.1.2 班级管理业务流程图录入课程信息查询录入班级查询结果班级表添加班级记录添加删除修改图2-22.1.3 成绩管理业务流程图打印报表查询课程查询结果录入成绩信息录入成绩表删除添加成绩记录添加学生、任课教师、班主任修改图2-32.2 数据存储分析 女装店铺/实体联系图1、数据模型设计。首先来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边。因为成绩既不是学生独有的，也不是课程独有的；三者之间的E-R图可画成下图。学生课程成绩学习mn图2-4学生成绩管理系统中学生与课程的E-R图教师与课程这两个实体之间，是一对多联系；一位教师可以都多门课程，而一门课程对于学生成绩来说只能有一位教师。其E-R图，如下所示。教师课程教学ln图2-5教师与课程的E-R图组合到一起，得到最后的E-R图，有了E-R图，就可以设计数据库。下图为数据模型图。m 学生课程教师学习学习课程学生教师实体模型数据模型数据库lmmn学习 图2-6 女装店铺/2.3 功能分析功能层次图学生成绩管理系统登录系统管理班级管理课程管理打印报表成绩管理修改密码添加班级课程查询添加用户班级浏览班级查询课程设置课程修改成绩录入成绩查询成绩修改 图2-7第三章 系统设计女装店铺/3.1 软件模块结构设计3.1.1 系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：班级管理、课程管理、成绩管理、系统管理等功能。3.1.2 软件结构设计本系统在执行时，可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。 接受数据处理中心打印报表成绩管理课程管理班级管理 图3-13.2 数据库设计数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。3.2.1 数据表本系统中所涉及到的主要实体共有4个数据表：用户表（person）、课程表、成绩表、班级表3.2.2 表的物理结构各表的物理结构如下：用户表：表3-1字段名称类型宽度name文本10pasward文本20课程表：女装店铺/表3-2字段名称类型宽度专业文本10年级文本10学期日期/时间短日期课程名称文本8教材文本10任课老师文本8课时数字整型上课地点文本50课程性质文本10考试性质文本10班级表：表3-3字段名称类型宽度年级文本10专业文本10人数数字整型班主任文本8备注文本50女装店铺/成绩表：表3-4字段名称类型宽度学号文本10姓名文本8年级文本10专业文本10学期日期/时间短日期考试时间日期/时间短日期考试科目文本10考试地点文本50课程性质文本6科目分数数字单精度违纪类型文本50备注文本50第四章 系统的功能女装店铺/4.1 系统登陆界面本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在person表中。图4-1代码设计如下： Private Sub Command1_Click() Static num As IntegerOn Error Resume Next Set db = OpenDatabase(App.Path & db1.mdb) Set rs = db.OpenRecordset(select * from person where name= & Combo1.Text & And pasward= & Text1.Text & ) If Text1.Text = Then MsgBox 密码不能为空！, vbOKOnly + vbInformation, 系统提示信息 Text1.SetFocus Else If Not (rs.EOF) Then Unload Me main.Show Else If num 3 Then num = num + 1 MsgBox 密码错误！你还有 + Str(3 - num) + 次机会！, vbOKOnly + vbInformation, 系统提示信息！ Text1.Text = Text1.SetFocus Else MsgBox 非法用户！, vbOKOnly + vbInformation, 系统提示信息 Unload Me End If End If End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()from3.ShowEnd SubPrivate Sub Command4_Click()from2.ShowEnd SubPrivate Sub Form_Load() Set db = OpenDatabase(App.Path & db1.mdb) Set rs = db.OpenRecordset(person) Dim i As Integer Dim j As String For i = 0 To Val(rs.RecordCount) - 1 j = Trim(rs.Fields(name).Value) rs.MoveNext Combo1.AddItem j Next i rs.CloseEnd Sub4.2 系统主界面图4-24.3 成绩查询界面图4-3本界面主要完成成绩的查询，它包括两种查询：（1）按查询类别查询 （2）按时间查询代码如下： Private Sub Command1_Click()Dim a As StringDim CJCX1 As StringDim CJCX2 As StringDim str1 As StringDim str2 As StringIf Option3.Value = True Thena = Trim(Combo2)Select Case a Case = CJCX1 = & Combo1.Text & & Combo2.Text & & Trim(Text1) & Case like CJCX1 = Instr(1, & Combo1.Text & , & Trim(Text1.Text) & )0 End Select a = Trim(Combo4)Select Case a Case = CJCX2 = & Combo3.Text & & Combo4.Text & & Trim(Text2) & Case like CJCX2 = Instr(1, & Combo3.Text & , & Trim(Text2.Text) & )0 End Select If Option1.Value = True Then If CJCX1 = Then strTiaoJian = select * from 成绩表 where & CJCX2 ElseIf CJCX2 = Then strTiaoJian = select * from 成绩表 where & CJCX1 Else strTiaoJian = select * from 成绩表 where & CJCX1 & and & CJCX2 End IfElseIf Option2.Value = True Then If CJCX1 = Then strTiaoJian = select * from 成绩表 where & CJCX2 ElseIf CJCX2 = Then strTiaoJian = select * from 成绩表 where & CJCX1 Else strTiaoJian = select * from 成绩表 where & CJCX1 & or & CJCX2 End IfElse If CJCX1 = Then strTiaoJian = select * from 成绩表 where & CJCX2 ElseIf CJCX2 = Then strTiaoJian = select * from 成绩表 where & CJCX1 Else MsgBox 请选择连接方式！, vbOKOnly, 警告 Exit Sub End IfEnd If If (CJCX1 & CJCX2) = Then MsgBox 请输入查询类别！, vbOKOnly, 警告Exit SubElse Unload Me UpdateCJ.ShowEnd IfEnd IfIf Option4.Value = True Then If Val(Combo6) Val(Combo9) Then MsgBox 请正确选择年份！, vbOKOnly + vbExclamation, 信息提示 Combo6.SetFocus Exit Sub Else If Val(Combo6) = Val(Combo9) Then If Val(Combo7) Val(Combo10) Then MsgBox 请正确选择月份！, vbOKOnly + vbExclamation, 信息提示 Combo7.SetFocus Exit Sub Else If Val(Combo7) = Val(Combo10) Then If Val(Combo8) Val(Combo11) Then MsgBox 请正确选择日期！, vbOKOnly + vbExclamation, 信息提示 Combo8.SetFocus Exit Sub End If End If End If End If End If If Combo6.Text = Or Combo7.Text = Or Combo8.Text = Or Combo9.Text = Or Combo10.Text = Or Combo11.Text = Then MsgBox 请输入完整的日期, vbOKOnly, 警告 Exit Sub End If str1 = 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) If sqlstr = Then sqlstr = & Trim(Combo5.Text) & =# & Format(str1, yyyy-mm-dd) & # and & Trim(Combo5.Text) & =# & Format(str1, yyyy-mm-dd) & # and & Trim(Combo5.Text) & = # & Format(str2, yyyy-mm-dd) & # End If If sqlstr = Then MsgBox 请先输入查找时间！ Exit Sub End If strTiaoJian = select * from 成绩表 where & sqlstr Unload Me UpdateCJ.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()Adodc1.ConnectionString = provider=Microsoft.Jet.OLEDB.4.0;Data source = & App.Path & /db1.mdb;Persist Security Info=FalseDim 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 (学期)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 Sub 4.4 报表的打印报表的打印（输出到Excel中）这样做的目的是为了打印方便。图4-4代码如下：Private Sub Command4_Click() Dim myexcel As Excel.Application Dim myexcelbook As Excel.Workbook Dim myexcelsheet As Excel.Worksheet Dim i As Integer Dim excelrow As Integer Dim excelcol As Integer Set myexcel = CreateObject(Excel.Application) Set myexcelbook = Nothing Set myexcelsheet = Nothing Set myexcelbook = myexcel.Workbooks().Add Set myexcelsheet = myexcelbook.Worksheets(sheet1) myexcel.Visible = True myexcelsheet.Activate myexcelsheet.Cells(1, 1) = 学生成绩 myexcelsheet.Range(myexcelsheet.Cells(1, 1), myexcelsheet.Cells(1, 10).Font.Bold = True 字体加粗 myexcelsheet.Range(myexcelsheet.Cells(1, 1), myexcelsheet.Cells(1, 10).Font.Size = 20 字号myexcelsheet.Range(myexcelsheet.Cells(1, 1), myexcelsheet.Cells(1, 10).MergeCells = True 单元格合并 myexcelsheet.Range(myexcelsheet.Columns(1), myexcelsheet.Columns(10).VerticalAlig