计算机专业本科毕业论文

. -东北师大 学本 科 生 毕 业 论 文设计题目：学生成绩管理系统设计与实现*：001*：燕年级：1003学院：省仁寿县教师进修学校奥鹏学习中心24A专业：计算机科学与技术完成日期：指导教师：摘 要本系统全称为学生成绩管理系统设计与实现。根据开发要求，它主要应用于教育系统，完成对日常的教学、教务、教师以及学生的计算机化的管理。开发学生成绩管理系统可使学院教职员工减轻工作压力，比较系统地对教务、教学上的各项效劳和信息进展管理，同时，可以减少劳动力的使用，加快查询速度、加强管理，以及国家各部门关于信息化的步伐，使各项管理更加规化。目前，学校工作繁杂、资料重多。目前，管理信息系统已进入高校，但还未普及，而对于学生成绩管理来说，目前还没有一套完整的、统一的系统。因此，开发一套适和群众的、兼容性好的系统是很有必要的。系统管理容广泛，全面涉及了教务教学上的各项效劳，包括学生成绩管理，其中有学生成绩管理；学生管理等等。在开发过程中，注意使其符合操作的业务流程，并力求系统的全面性、通用性，使得本系统不只适用于一家教育机构。在开发方法的选择上，选择了生命周期法与原型法相结合的方法，遵循系统调查研究、系统分析、系统设计和系统实施四个主要阶段进展设计，而在具体的设计上，采取了演化式原型法，随着用户的使用及对系统了解的不断加深，对*一局部或几局部进展重新分析、设计、实施。在开发工具的选择上，主要利用Delphi7.0编程语言进展开发，使用其自带的数据库，从而保证了数据的完整性与一致性。本论文主要从系统分析、系统设计、系统实施与使用等几个方面进展介绍。 【关键词】信息管理系统 信息化 成绩管理 数据库 Delphi7.0AbstractThe name of our system is grade Management System. the system is mainly applied to education system which manageas the daily teaching educational administration and puteration of teachers and students. Developing grade Management System can not only ruduce the presure of the staff and systematically manage the service and information, but also decrease the use of labour force, accelerate the requiring speed, improve management, speed the pace of concernad national department autumated information retrieval to standardize the managements. Nowdays, the universities work are miscellaneous,especially in private ones.Its important to put the teachers management on the table. Up to now, mamagement has e into universities but not popularized. As for the teaching management, there is not a set of plete and unified system, so its very necessary to develop a mon,patible one. The system is wide and prehensive in including most of the service items of teaching plans, such as grade management which refers to teaching plans, grade management, students management and so on. In developing procedure, we pursure the prehensiveness and momality of the system, so that it can not only be applied in one educational institution. In choosing the developing methods, we bine the life sycle approach and the prototype-based approach, approach in four main steps: system investigation, system analysis, system design and system implementation. AS to data design, evolutionary prototype-based approach is partialy adopted to reanalysize, redisign and reimplemate with the users ever-increasing understanding of the system. In choosing the developing tool, Delphi 7.0 programming language is employed. In line of its self-sustaining. to ensure the integratedness and consistency. This thesis mainly introduce the ideas of the analysizing ,designing ,implementing and application of this system.目 录1问题定义41.1 工程概述41.2 经济目标41.3 社会目标41.4 工程规模42可行性分析42.1总体可行性分析42. 2业务流程分析52.3数据流程分析62.4数据存储分析：实体联系图72.5系统功能模块图93需求分析103.1系统总体功能需求103.2系统主要模块104概要设计1041系统方案确定104.2软件构造设计115详细设计115.1 用到的建立数据库的技术115.2 具体的数据库表127全文总结198致209参考文献2110 附录221问题定义1.1 工程概述 开展该工程的原因由于现今的学生成绩管理非常繁琐，教师付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生成绩管理系统软件。 该工程的根本目标开发此学生成绩管理系统软件，以供教学人员及操作者进展学生成绩管理，方便操作者随时添加、查询、修改等。为了我们提高软件开发的能力，学习SQL编程的技巧，提高工作设计思想，通过本次的工程开发，开发小组成员与辅助教师，能从中学习知识吸取经历，再技术和软件思想上同时得到锻炼和提高，从而使总体水升到一个新的高度。1.2 经济目标由于本学生成绩开发系统的主要背景在经济上不注重直接的经济收益，而是注重个人水平的提高和提高对所学知识的运用。1.3 社会目标本系统主要是由dephli7.0,Microsoft SQL Server进展设计开发，此系统是基于客户端/效劳端的大型关系数据库管理系统。1.4 工程规模该工程所需的时间一个人2个月即可以完成。2可行性分析2.1总体可行性分析由于本系统管理的对象单一,都是在校学生，且每个数据容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的都是个人计算机，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导教师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Windows *p中文版操作系统环境下，使用 delphi 7.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用围，因此，在选择数据库时，应考虑数据库应用的特点及适用围，本系统选用的数据库语言介绍如下：于是选择了美国 Borland 公司推出的 Delphi7.0 开发工具。在pc机数据库系统*base家族中，Delphi是第一个全面支持面向对象程序设计的数据库语言工具。Delphi推出了7.0版本，它的主要特点有： 1.强大的查询与管理功能2.强大的数据库开发功能3.扩大了对SQL语言的支持4.大量使用可视化的界面操作工具5.支持面向对象的程序设计6.多平台支持7.支持网络应用2. 2业务流程分析成绩管理业务流程图： 教务处输入计算机教师教务处学生成绩教师输出计算机机图2-1教务处输入计算机班主任教务处学生班级班级输出输出计算机图2-22.3数据流程分析数据流程图下面我们详细的介绍学生成绩管理模块的数据流图。学籍管理部门教师学生成绩管理系统教务处学生教师教师学生情况学生成绩查询统计分析图2-3学生成绩管理系统的0层数据流图管理部门教务处教师1.0学生管理2.0课程管理3.0成绩管理4.0统计分析D1D2D3查询者管理者学生课程成绩 图2-4学生成绩管理系统1层数据流程图2.4数据存储分析：实体联系图1、数据模型设计。首先来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体学生和成绩共有的属性，应填在二者的联系学习边。因为成绩既不是学生独有的，也不是课程独有的；学生甲70分或英语70分是不完全的，说学生甲英语70分才是正确的，因为70分是学生甲和英语课二者共有的。这个E-R图可画成以下图。学生课程成绩学习mn 图2-5学生成绩管理系统中学生与课程的E-R图教师与课程这两个实体之间，是一对多联系；一位教师可以都多门课程，而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教，但对*个固定的学生来说只能有一位教师)。其E-R图，如下所示。n教师课程教学l 图2-6教师与课程的E-R图组合到一起，得到最后的E-R图，有了E-R图，就可以设计数据库。以下图为数据模型图。学生课程教师学习学习课程学生教师实体模型数据模型数据库lnmm学习图2-72.5系统功能模块图学生成绩管理系统成绩管理模块成绩查询模块系统维护模块修改用户权限添加学生的成绩成绩打印模块修改学生的成绩删除学生的成绩删除用户修改密码添加新用户打印到表e*cel学生成绩分析学生成绩统计查询学生的信息查询学生的考试成绩浏览学生的成绩图2-83需求分析3.1系统总体功能需求通过调查,要求系统需要有以下功能:由于操作人员的计算机知识普遍较差,要求有良好的人机界面;由于该系统的使用对象多,要求有较好的权限管理; 原始数据修改简单方便,支持多条件修改方便的数据查询，支持多条件查询;在相应的权限下，删除数据方便简单，数据稳定性好；数据计算自动完成，尽量减少人工干预;3.2系统主要模块 学生查询模块TRL+A)查询学生的信息，具体是学生的*、年龄，家庭地址，家庭等和查询各个课程的考试情况成绩打印(CTRL+B)管理学生的成绩报表的打印以及打印报表的整理、维护、保存等。成绩管理模块CTRL+C学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包，设置了成绩添加、成绩游览、成绩查询等功能模块。4概要设计41系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：学生成绩管理、课程管理、成绩管理、系统管理，成绩查询，成绩打印。4.2软件构造设计主程序系统模块数据维护模块数据浏览模块成绩管理模块修改密码退出修改搜索删除浏览打印输入统计分析图 4-1数据维护模块包括对学生信息表、课程信息表、考生成绩表的插入、修改、删除、搜索等。数据浏览模块包括对学生信息表、课程信息表、考生成绩表的选择浏览、打印。成绩管理模块包括对学生成绩的输入，总分和单课的统计和排名，分析各分数段人数的分布情况。5详细设计5.1 用到的建立数据库的技术数据库采用了Microsoft推出的SQL数据库，这是微软的一个大型数据库，可以方便的进展数据库的连接。在数据库里建一个数据库，名字取为student, student里有三个表，学生信息表，课程信息表，考生成绩表，用户表5.2 具体的数据库表通过对成绩管理系统的分析，系统应设计以下主要实体kj课程表字段名称类型宽度小数位课程号整形10课程名文本50考试类别文本10课程类别文本10开课学期文本10学分单精度型数字自动*f(学生信息表)字段名称类型宽度小数位*整型16文本20年龄整型5院系文本8专业文本16出生日期文本8备注备注 Cj(成绩表)字段名称类型宽度小数位*整型16文本12课程号整型8课程名称文本50分数浮点20开课学期日期型10排名整型20Use表：字段名称类型宽度小数位username文本20password文本20Admin文本2Readonly文本2学生E-R图：学生出生日期*院系专业年龄图 5-1课程E-R图：课程开课学期考试类别课程名学分课程号开课类别图 5-25.3主要的模块登陆模块 本界面的主要功能是为了对系统进展平安性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用zhangsan，05020899登陆本系统。图 5-3主界面图 5-4查询模块可以方便的查询到学生的根本信息，选课信息查询到学生的根本信息图 5-5图 5-6添加，删除，修改，保存模块该模块可以方便的对学生的成绩进展处理图 5-7打印模块把学生的数据从学生成绩管理系统打印到e*cel中图 5-87全文总结在本系统的开发过程中，由于本人是初次开发软件，在知识、经历方面都存在着缺乏。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和缺乏。因为对学生成绩管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。虽然网络在学生管理系统中的应用很多，因此是未来的开展方向，在本次开发过程由于硬件的限制，实现网络的根本功能，因此在以后的系统更新过程中可能会造成一些不必要的数据损失。尽管本管理系统存在着很多缺乏，但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、平安性好等优点是本管理系统所必需的。相信本学生成绩系统是一套学校在日常管理中必不可少的管理软件，通过开发这个系统，我掌握了的项本过程，了解了的根本知识稳固了我对delphi 7.0和SQL2000毕业设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设计系统的思维方法。8致 本次毕业设计是在王厚淳教师的悉心指导和热心帮助下完成的。王厚淳教师认真负责的工作制度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中都给我很大的鼓励和指导，使我得到不少的提高，这对于我以后的工作和学习都有很大的帮助。没有王厚淳教师的关心和帮助，我的课题是不可能顺利完成的，特此对王厚淳导师表示真诚的感。9参考文献1 周佩德.数据库原理及应用.电子工业2明等，delphi程序设计数据库篇，19993 光明.Delphi6.0编程实例大制作.冶金工业4，明 精通DELPHI6.0入门与提高，人民邮电5 红等编著，成绩管理系统开发与应用，电子工业，20036海藩著，软件工程，清华大学，20057 康博工作室，红军，王红等编著Dephli6.0中文版高级应用与开发指南，人民邮电，2005年4月第3版8 sql2000编程 清华大学10 附 录局部代码：Private Sub mand1_Click()Dim mrc As ADODB.Recordsett*tsql = select username from use where username= & Trim(Te*t1.Te*t) & Set mrc = E*ecuteSQL(t*tsql)If mrc.EOF = True Then MsgBo* 用户名错误！, vbE*clamation + vbOKOnly, 警告 Te*t1.SetFocus Te*t1.SelStart = 0 Te*t1.SelLength = Len(Te*t1.Te*t) E*it SubEnd Ifusername = mrc.Fields(0)t*tsql2 = select username from use where password= & Trim(Te*t2.Te*t) & Set mrc = E*ecuteSQL(t*tsql2)If mrc.EOF = True Then MsgBo* 密码错误！, vbE*clamation + vbOKOnly, 警告 Te*t2.SetFocus Te*t2.SelStart = 0 Te*t2.SelLength = Len(Te*t2.Te*t) E*it SubEnd Ift*tsql = select username from use where username= & Trim(Te*t1.Te*t) & and password= & Trim(Te*t2.Te*t) & Set mrc = E*ecuteSQL(t*tsql)If mrc.EOF = True Then MsgBo* 用户名称和密码不匹配！, vbE*clamation + vbOKOnly, 警告 E*it SubEnd IfMDIForm1.ShowUnload MeEnd SubPrivate Sub mand2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Te*t1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Te*t2.SetFocusEnd IfEnd SubPrivate Sub Te*t2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then mand1.SetFocusEnd IfEnd Subend if W_sturesearch.open():dw_1.settransobject(sqlca)dw_1.retrieve()/有关窗口居中的代码这里从略，请参考其他模块。Cb*_1.clicked()/复选框的第一个选项被选单击时的事件代码： st_1.te*t=请输入*：cb*_2.checked=falsecb*_3.checked=falsecb*_4.checked=falsecb*_5.checked=falsesle_1.setfocus()Cb*_2.clicked(),cb*_3.clicked()，cb*_4.clicked(),cb*_5.clicked()的代码可参考cb*_1.clicked()this.te*t=if cb*_1.checked=true then dw_1.setfilter(student_sno=+sle_1.te*t+) dw_1.filter()end if if cb*_2.checked=true thendw_1.setfilter(student_sname=+sle_1.te*t+) dw_1.filter()end ifif cb*_3.checked=true thendw_1.setfilter(student_classno=+sle_1.te*t+) dw_1.filter()end ifif cb*_4.checked=true thendw_1.setfilter(class_classname=+sle_1.te*t+) dw_1.filter()end if if cb*_5.checked=true thendw_1.setfilter(class_department=+sle_1.te*t+)dw_1.filter()end if if dw_1.rowcount()=0 then messagebo*(注意!,记录为空。)end if 退出的代码Private Sub CmdE*t_Click() Unload MeEnd Sub删除的代码Private Sub CmdDel_Click()If ID.Te*t Then TID = CInt(ID.Te*t) If MsgBo*(你确定要删除该行记录吗., vbYesNo) = vbYes Then sql = delete from T_Invoice where id= & TID MsgBo* sql Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open Set rs = conn.E*ecute(sql) MsgBo* 数据删除成功，请按确定返回！ Adodc.Refresh MSFMainFrm.Refresh Call SetTe*t End IfElse MsgBo* 你没有选中要删除的记录！End Sub保存的代码rivate Sub CmdSave_Click()On Error GoTo Err:Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.OpenIf (ID.Te*t = ) Then sMakeDate = CDate(Mid(MakeDate.Te*t, 1, 8) Call SqlReady sql = insert into T_Invoice values( & sUserID & , & sUserName & , & sCallUnit & , & sMaintenanceUnit & , sql = sql + & sInstallUnit & , & sMoveUnit & , & sCallNum & , & sMaintenanceNum & , sql = sql + & sInstallNum & , & sMoveNum & , & sCallUnitPrice & , & sMaintenanceUnitPrice & , sql = sql + & sInstallUnitPrice & , & sMoveUnitPrice & , & sMakeInvoicePerson & , & sPayee & , convert(Char(20), & sMakeDate & , 20) , & sMemo & ) MsgBo* sql Set rs = conn.E*ecute(sql) MsgBo* 数据增加成功，点击确定返回操作界面！ Adodc.Refresh MSFMainFrm.Refresh Call LockControl Rs.Close Set rs = Nothing Call SetTe*tElse Call SqlReady TID = CInt(Trim(ID.Te*t) MakeDate.Locked = True sql = update T_Invoice sql = sql + set Userid= + & sUserID & , sql = sql + UserName= + & sUserName & , sql = sql + CallUnit= + & sCallUnit & , sql = sql + MaintenanceUnit= + & sMaintenanceUnit & , sql = sql + InstallUnit = + & sInstallUnit & , sql = sql + MoveUnit= + & sMoveUnit & , sql = sql + CallNum= + & sCallNum & , sql = sql + MaintenanceNum= + & sMaintenanceNum & , sql = sql + InstallNum = + & sInstallNum & , sql = sql + MoveNum= + & sMoveNum & , sql = sql + CallUnitPrice= + & sCallUnitPrice & , sql = sql + MaintenanceUnitPrice= + & sMaintenanceUnitPrice & , sql = sql + InstallUnitPrice= + & sInstallUnitPrice & , sql = sql + MoveUnitPrice= + & sMoveUnitPrice & , sql = sql + MakeInvoicePerson= + & sMakeInvoicePerson & , sql = sql + Payee= + & sPayee & , sql = sql + Memo= + & sMemo & sql = sql + where id= & TID Set rs = conn.E*ecute(sql) MsgBo* 数据修改成功，点击确定返回操作界面！ Adodc.Refresh MSFMainFrm.Refresh Set rs = Nothing Call SetTe*tEnd If E*it SubErr: MsgBo* 提交失败！ + Err.Description, , 信息End Sub打印模块的代码Private Sub CmdPrint_Click()If (ID.Te*t = ) Then MsgBo* 请选择要打印的记录!, vbCriticalElse On Error GoTo PrintErr: Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open TID = CInt(ID.Te*t) sql = select * from V_Invoice where 序号= & TID Set rs = conn.E*ecute(sql) Set *lApp = CreateObject(e*cel.application) MsgBo* App.Path & 学生大学成绩表.*ls Set Wb = *lApp.ActiveWorkbook Set Ws = Wb.ActiveSheet Ws.Cells(1, 1).Value = rs(课程号) Ws.Cells(1,2 ).Value = rs(课程名) Ws.Cells(1， 3) = rs(分数) Ws.Cells(1, 4) = rs(开课学期)If (Check2.Value 1) Then *lApp.Visible = True Else If Dir(c:printBd.tmp) Then Kill c:printBd.tmp Delete End If Wb.SaveAs c:printBd.tmp save Ws.PrintOut Wb.Close Set Ws = Nothing Set Wb = Nothing *lApp.Quit Set *lApp = NothingEnd If E*it SubEnd IfPrintErr: MsgBo* 打印错误,请重新打印!, vbCriticalEnd Sub. 优选-