数据库课程设计(学生成绩管理系统)

学号：课程设计题目学生成绩管理系统教学院计算机学院专业计算机科学与技术班级05级二班姓名指导教师2008年1月18日1目录一．概述.....................................................................................................2二．总体方案设计....................................................................................3三．详细设计............................................................................................5四．程序的调试与运行结果说明..........................................................19五．课程设计总结..................................................................................20参考文献...................................................................................................212一概述在21世纪的科技时代,科学技术突飞猛进,信息社会的高科技时代,商品经济化的高效益,计算机的应用已普及到经济和社会生活的各个领域.计算机虽然与人类的关系愈来愈密切,还有人由于计算机操作不方便继续用手工劳动.为了适应现代社会人们高度强烈的时间观念,学生成绩管理系统为教学办公带来了极大的方便.该学生成绩管理系统是以VisualBasic+Access数据库+SQL数据查询语言编写.系统管理员,教师,学生只需通过简单的操作,用户都可以了解本系统软件的基本工作原理.用户只需进行输入一些简单的汉字,数字,或用鼠标点击即可达到自己想要的目标.1.课程设计的目的(1)加深对数据库系统、软件工程、程序设计语言的理论知识的理解和应用水平；(2)在理论和实验教学基础上进一步巩固已学基本理论及应用知识并加以综合提高；(3)学会将知识应用于实际的方法，提高分析和解决问题的能力，增强动手能力；(4)为毕业设计和以后工作打下必要基础。(5)理解和掌握该课程中的有关基本概念，程序设计思想和方法。(6)培养综合运用所学知识独立完成课题的能力。(7)培养勇于探索、严谨推理、实事求是、有错必改，用实践来检验理论，全方位考虑问题等科学技术人员应具有的素质。(8)掌握从资料文献、科学实验中获得知识的能力，提高学生从别人经验中找到解决问题的新途径的悟性，初步培养工程意识和创新能力。2.课程设计的要求运用数据库基本理论与应用知识，在微机SQLserver的环境上建立一个数据库应用系统。要求把现实世界的事物及事物之间的复杂关系抽象为信息世界的实体及实体之间联系的信息模型，再转换为机器世界的数据模型和数据文件，并对数据文件实施检索、更新和控制等操作。1.用e-r图设计指定题目的信息模型；2.设计相应的关系模型，确定数据库结构；33.分析关系模式各属于第几范式，阐明理由；4.设计应用系统的系统结构图，确定系统功能；5.通过设计关系的主码约束、外码约束实现完整性控制；6.实现应用程序设计、编程、优化功能；7.对系统的各个应用程序进行集成和调试，进一步优化系统功能、改善系统用户界面完成实验内容所指定的各项要求；8.分析遇到的问题，总结并写出课程设计报告；9.自我评价二总体方案设计一学生成绩管理系统设计的目标的分析1,管理员能够实现对整个学生信息的添加,修改,删除,查询等操作,对教师用户的添加,删除,修改等操作,对留言信息的添加,删除,修改查询等操作.2,可以将学生成绩的数据库发布到网上,教师的信息发布的网上,方便学生教师进行查询,达到资源共享的目的.3,教师能够在一定的权限内对所有学生成绩的查询,所有教师信息的查询,留言信息的添加,删除,修改是,查看等,对的自己的联系信息进行更新,登录密码的修改.4,学生可以在自己的权限内对对自己成绩的查询,以及个人信息的查询,登录密码的修改,留言的查看,提交留言信息的相关操作.二学生成绩管理系统的功能需求分析学生成绩管理系统主要提供成绩查询,方便管理的网上的信息查阅平台,,查看留言,提交留言.教师可以通过成绩管理系统查阅学生成绩信息,教师信息,查看教师留言,学生留言,提交留言,留言的管理等相关操作.系统管理员可以学生可以通过该系统查阅与自己相关信息实现以上的所有功能,还有对学生的添加,删除,修改,教师的添加,删除,修改,数据库的备份,数据库的还原等相关操作.三系统的功能分析该学生成绩管理系统是用VisualBasic+Access数据库+SQL查询语言编句,系统是基于网络在线的学生成绩管理系统,在系统中分为大的二个方面:一是教师登录页面,二是学生登录页面.(1)系统管理员进入学生成绩管理系统的主要功能是:实现教师添加,教师4修改,教师删除,教师查询,数据库的恢复,数据库的备份,学生的添加,学生的修改,学生的查询,学生成绩的录入,学生成绩的添加,学生成绩的修改,学生成绩的删除,留言的查询,留言的提交,留言的删除,留言的修改等基本功能.(2)教师进入学生成绩管理系统的主要功能是:实现学生的查询,学生成绩的查询,留言的删除,留言的查询,留言的查询,密码的修改,教师的查询,教师登陆密码的更改,教师个人信息的修改等基本功能.(3)学生进行学生成绩管量系统的主要功能是:实现学生自己怕成绩查询,自己登录密码的修改,个人信息的查询,留言的查看,提交留言的基本功能.图1主流程图承担部分：学生基本信息查询要求可通过输入学生学号或姓名对学生基本信息的查询，可对学生基本信息进行修改和删除。5三详细设计学生管理模块：学生基本信息查询图2学生基本信息查询界面1.代码：PrivateSubcmdfind_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetsql=IfTrim(NoEdit.Text)=AndTrim(NameEdit.Text)=ThenMsgBox请输入你要查询的内容！,vbOKOnly+vbExclamation,警告ExitSubElseIfNoEdit.TextAndNameEdit.TextThensql=selectStudent.Sno,Sname,Cname,GradefromStudent,Course,ScwhereStudent.Sno='&Trim(NoEdit.Text)&'andSnamelike'%&Trim(NameEdit.Text)&%'andSc.Sno=Student.SnoandCourse.Cno=Sc.CnoSetrs=TransactSQL(sql)ElseIfNoEdit.TextAndNameEdit.Text=Thensql=selectStudent.Sno,Sname,Cname,GradefromStudent,Course,Sc6whereStudent.Sno='&Trim(NoEdit.Text)&'andSnamelike'%&Trim(NameEdit.Text)&%'andSc.Sno=Student.SnoandCourse.Cno=Sc.CnoSetrs=TransactSQL(sql)ElseIfNoEdit.Text=AndNameEdit.TextThensql=selectStudent.Sno,Sname,Cname,GradefromStudent,Course,ScwhereStudent.Sno='&Trim(NoEdit.Text)&'andSnamelike'%&Trim(NameEdit.Text)&%'andSc.Sno=Student.SnoandCourse.Cno=Sc.CnoSetrs=TransactSQL(sql)EndIfEndIfIfrs.EOFThenMsgBoxSorry,无法找到你要想查询的学生的基本信息！ElseSno=rs(Sno)Sname=rs(Sname)Sc=Fori=1Tors.RecordCountSc=Sc+rs(Cname)&：&rs(Grade)&vbCrLfrs.MoveNextNextFrmGrade_Show.Label8.Caption=Scsql1=selectSUM(Grade)asSum_Grade,AVG(Grade)asAvg_GradefromScwhereSc.Sno='&Sno&'Setrs1=TransactSQL(sql1)FrmGrade_Show.Text1.Text=SnoFrmGrade_Show.Text2.Text=SnameFrmGrade_Show.Text3.Text=rs1(Sum_Grade)FrmGrade_Show.Text4.Text=rs1(Avg_Grade)rs1.CloseSetrs1=Nothing7FrmGrade_Show.ShowEndIfrs.CloseSetrs=NothingEndSubPrivateSubCommand2_Click()UnloadMeEndSub总代码：PrivateSubForm_Load()EndSubPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubcmdAdd_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetIfText1.Text=OrText2.Text=OrText3.Text=OrText4.Text=ThenMsgBox请输入课程的所有信息！,vbOKOnly+vbExclamation,警告！Text1.SetFocusElsesql=select*fromCoursewhereCno='&Trim(Text1.Text)sql=sql&'andCname='&Trim(Text2.Text)&'andCteacher='sql=sql&Trim(Text3.Text)&'andCcredit='&Trim(Text4.Text)sql=sql&'Setrs=TransactSQL(sql)8Ifrs.EOF=FalseThenMsgBox该课程已经存在，请核实后再添加！,vbOKOnly+vbExclamation,警告！Text1.SetFocusrs.CloseElsesql=select*fromCourseSetrs=TransactSQL(sql)rs.AddNewrs.Fields(0)=Trim(Text1.Text)rs.Fields(1)=Trim(Text2.Text)rs.Fields(2)=Trim(Text3.Text)rs.Fields(3)=Trim(Text4.Text)IfOption1(0).Value=TrueThencourse_select=专业Elsecourse_select=选修EndIfrs.Fields(4)=course_selectrs.Updaters.CloseMsgBox该记录已经成功添加！,vbOKOnly+vbExclamation,添加成功！CallinitEndIfEndIfEndSubPrivateSubcmdExit_Click()UnloadMeEndSubPrivateSubinit()Text1.Text=9Text2.Text=Text3.Text=Text4.Text=EndSubPrivateSubcmdfind_Click