班级成绩管理

成绩管理系统设计报告摘要：本文是对一个直接面向教师的班级成绩系统的论述，班级成绩管理系统实现了对于一个班的学生基本信息的添加、修改、查询、成绩的录入，最后将这些记录数值化直接的反映给教师。为每一个大学教师，对于自己每学期所带的大学生的平时成绩管理开发出一个专用管理系统。本系统是采用VisualBasic6.0作为开发工具，Access2003作为后台数据库，系统中的添加、修改、和查询三者之间的关系，每个表的修改都要联动的影响其它的表，当完成添加操作时系统会自动地完成学生成绩的修改。查询功能也是系统的核心之一，在系统主要根据学生姓名进行成绩查询，其目的是为了方便用户使用。这是经典的单机版数据库管理开发组合，极大地提高了对班级学生成绩管理的效率。关键词：班级成绩管理系统，添加，查询，access,VB1绪论1.1成绩管理系统开发背景介绍当今时代是飞速发展的信息时代，在各行各业中离不开信息管理处理，这正是计算机被广泛应用于管理系统的原因。而班级成绩管理系统是典型的面向班级的信息管理系统，使用计算机对班级成绩管理控制，不仅可以存储大量的信息还可以方便查询从而大大的提高了工作效率。因此，开发这样一套成绩管理系统成为很有必要的事情。1.2项目开发的目的和意义采用计算机对学生成绩进行管理帮助广大教师提高工作效率，方便用户的操作，尽量减少用户的操作。1.3可行性分析可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决2系统的设计与实现2.1系统开发及运行环境运行平台：MicrosoftWindowsXP/Windows2003/Windows2000系统开发平台：VisualBasic6.0后台数据库系统软件：Access20032.2系统功能分析本项目采用VisualBasic6.0+Access2003实现。

米用VisualBasic建立客户端，实现简单易懂的图形用户界面，并完成以下几个功能：学生管理：该功能包括添加学生的功能。课程管理：该功能包括添加课程信息的功能。成绩管理：这是程序的核心部分，该功能包括学生成绩的查询和输入2.3系统设计分析针对系统的要求设计了如下数据字段与表：学生表，包括的数据字段有：学号和姓名两个字段。课程表，包括的数据字段有：课程编号，课程名称，开课学期三个字段。成绩表，包括的数据字段有：学号，姓名，课程编号，课程名称，成绩。3成绩管理界面设计用代码3.1VB界面的文件列表Form3(成绩查询主窗体)Form2Form4Form5Forml(添加学生信息)(成绩查询主窗体)Form2Form4Form5Forml(添加课程信息)(添加学生成绩信息)(查询学生成绩信息)3.2添加学生信息设计图3.3.2添加学生信息设计图3.3添加学生信息代码PrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Click()IfTextl.Text=〃〃OrText2.Text=""ThenMsgBox〃学号或姓名不能为空〃ExitSubEndIfDimstrSQLAsStringDimobjRecordsetAsADODB.RecordsetstrSQL="select*fromxueshengwhere学号='〃&Textl&〃’〃SetobjRecordset=ExecuteSQL(strSQL)IfobjRecordset.EOF=FalseThenMsgBox"这个学生号已经存在，请重新输入学生号",vbOKOnly+vbExclamation,〃警告〃Text1.SetFocusTextl.Text=〃〃Text2.Text=""ExitSubElselfTrim(Text2.Text)=""ThenMsgBox〃密码不能为空〃，vbOKOnly+vbExclamation,〃警告〃Text2.Text=""Text3.Text=〃〃Text2.SetFocusElseobjRecordset.AddNewobjRecordset.Fields(O)=Textl.TextobjRecordset.Fields(1)=Text2.TextobjRecordset.UpdateMsgBox〃添加成功〃，vbOKOnly+vbExclamation,〃添加结束Textl.Text=""Text2.Text=〃〃Textl.SetFocusEndIfEndSub3.4添加课程信息设计图3.3.4添加课程信息图3.5添加课程信息代码PrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=〃〃Text2.Text=〃〃Text3.Text=〃〃EndSubPrivateSubCommand1_Click()IfTextl.Text=〃〃OrText2.Text=〃〃OrText3.Text=〃〃ThenMsgBox〃文本不为空〃ExitSubEndIfstrSQL="select*fromkechengwhere课程编号二'〃&Textl&〃'〃SetobjRecordset=ExecuteSQL(strSQL)IfobjRecordset.EOF=FalseThenMsgBox"这个课程编号经存在，请重新输入课程编号"，vbOKOnly+vbExclamation,"警告"Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""ExitSubElseobjRecordset.AddNewobjRecordset.Fields(1)=Text1.TextobjRecordset.Fields(2)=Text2.TextobjRecordset.Fields(3)=Text3.TextobjRecordset.UpdatestrSQL="insertintochengjiselect学号，姓名fromxuesheng"SetobjRecordset=ExecuteSQL(strSQL)SetobjRecordset=NothingstrSQL="updatechengjiset课程编号='"&Text1.Text&"'where课程编号二'新,〃SetobjRecordset=ExecuteSQL(strSQL)strSQL="updatechengjiset课程名称二'"&Text2.Text&"'where课程名称二'新，〃SetobjRecordset=ExecuteSQL(strSQL)MsgBox"添加成功"，vbOKOnly+vbExclamation,"添加结束"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEndIfEndSub3.6添加学生成绩设计Source二cjgl.mdb;"&"PersistSecurityInfo二False”strSQL="select姓名，课程名称，成绩fromchengjiwhere课程名称='"&Combol.Text&"'"Adodcl.RecordSource=strSQLAdodcl.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimobjRecordsetAsADODB.Recordset'查询课程strSQL="select课程名称fromkecheng"SetobjRecordset=ExecuteSQL(strSQL)objRecordset.MoveFirstCombol.ClearDoWhileNotobjRecordset.EOFCombol.AddItemobjRecordset.Fields(O)objRecordset.MoveNext

LoopCombol.ListIndex=0SetobjRecordset=NothingEndSub3.8查询学生成绩界面PrivateconnAsNewADODB.ConnectionPrivatersAsNewADODB.RecordsetPrivateSubCommand1_Click()IfText1.Text=ThenMsgBox（〃请输入您的姓名！"）ExitSubElseDimcmdSqlAsStringcmdSql="select*fromchaxunwhere姓名='〃&Trim(Text1.Text)&conn.OpenConnectStringrs.CursorLocation=adUseClientrs.OpencmdSql,conn,adOpenDynamic,adLockPessimisticIfrs.EOFAndrs.BOFThenrs.Closeconn.CloseMsgBox〃对不起，没有你要查找的人，请重新输〃Textl.Text=〃〃Textl.SetFocusExitSubElseSetMSHFlexGridl.DataSource=rsMSHFlexGridl.RefreshEndIfEndIfrs.Closeconn.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)SetMSHFlexGrid1.DataSource=NothingIfrs.State=1Thenrs.Closeconn.CloseEndIfEndSub经过一个多月的设计和研究，本系统基本开发完毕。其功能基本符合需求，可以完成班级学生成绩的输入和成绩的查询以及班级课程和班级学生的添加。但是由于时间与技能的原因，所以