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

2222号：计目院 业 与技班 级 05级二班姓 名指导师2008 年 1 月 18 日录一概述.....................................................................1二3三4四序的调试与运行结果说明.................................................18五总结19参考文献 20一 概述21算机的应用已普及到经济和社会生活的各个领域.算机虽然与人类的关系愈来愈密切,还有人由于算机操作不方便继续用手工劳动.为了适应现代社会人们高度强烈的时间观念,学生成绩管理系统为教学办公带来了极大的方便.该学生成绩管理系统是以VisualBasic+Access+SQL查.,,,.,,.序论知识和应水平；在论和实验础上步巩固已论及应知识并加综合提高；会将知识应于实际方法，提高分析和决问题能力，增强动手能力；为毕业和后打下必础。和掌握该中，序和方法。(6)综合知识题能力。于、、实、必，实验论，方问题科技术人应具素质。掌握实验中知识验中决问题，步识和能力。求论与应知识，在微机 SQLserver环境上建个应。把现实世界物及物之间复杂抽象为信息世界实体及实体之间联信息模型，再转换为机器世界模型和文，并文实施、更新和控制。e-r图指定题信息模型；相应模型，确定结构；分析模式各属于第几范式，阐明由；应结构图，确定功能；主码约束、外码约束实现整性控制；实现应序、、优化功能；应序和步系界面实验指定各项；分析遇问题，总结并出；我评价一 学生成绩管理系统的目标的分析1,管理员能够实现对整个学生信息的添加,修改,删除,查询等操作,对教师用户的添加,删除,修改等操作,对留言信息的添加,删除,修改查询等操作.2,可以将学生成绩的发布到网上,教师的信息发布的网上,便学生3,教师能够在一定的权限对所有学生成绩的查询,所有教师信息的查询,留言信息的添加,删除,修改是,查看等,对的自己的联系信息进行更新,登录密4,学生可以在自己的权限对对自己成绩的查询,以及个人信息的查询,学生成绩管理系统的功能需求分析学生成绩管理系统主要提供成绩查询,便管理的网上的信息查阅平查看留言,提交留言.教师可以通过成绩管理系统查阅学生成绩信息,教师信息,查看教师留言,学生留言,提交留言,留言的管理等相关操作.系统管理员可以学生可以通过该系统查阅与自己相关信息实现以上的所有功能,还有对学生的添加,删除,修改,教师的添加,删除,修改,的备份,的还原等相关操作.三系统的功能分析该学生成绩管理系统是用VisualBasic+Access+SQL查询语言编句,系统是基于网络在线的学生成绩管理系统,在系统中分为大的个面:一是教师登录是学生登录系统管理员进入学生成绩管理系统的主要功能是:实现教师添加,教师的恢复,的备份,学生的添加,学生的修改,学生的查询,学生成绩的录入,学生成绩的添加,学生成绩的修改,学生成绩教师进入学生成绩管理系统的主要功能是:实现学生的查询,学生成绩的查询,留言的删除,留言的查询,留言的查询,密码的修改,教师的查询,教师登学生进行学生成绩管量系统的主要功能是:实现学生自己怕成绩查询,22221 1 。管理模块22222 1. 代码：PrivateSubcmdfind_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetsql=""IfTrim(NoEdit.TextAndTrim(NameEdit.TextThenMsgBox的vbOKOnlyvbExclamation,"ExitSubElseIfNoEdit.Text<>""AndNameEdit.Text<>""Thensql = "select Student.Sno,Sname,Cname,Grade from=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=TransactSQL(sql)ElseIfNoEdit.Text<>""AndNameEdit.Text=""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=TransactSQL(sql)ElseIfNoEdit.Text=""AndNameEdit.Text<>""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=EndIfEndIfIfrs.EOFThenMsgBox"Sorry,ElseSno=rs("Sno")Sname=rs("Sname")Sc=""Fori=1Tors.RecordCountSc=Sc+rs("Cname")&"："&rs("Grade")&rs.MoveNextNextFrmGrade_Show.Label8.Caption=Scsql1="selectSUM(Grade)asSum_Grade,AVG(Grade)asAvg_GradefromScwhereSc.Sno='"&Sno&"'"Setrs1=TransactSQL(sql1)FrmGrade_Show.Text1.TextFrmGrade_Show.Text2.Text==SnoSnameFrmGrade_Show.Text3.Text=rs1("Sum_Grade")FrmGrade_Show.Text4.Textrs1.CloseSetrs1=Nothing=rs1("Avg_Grade")FrmGrade_Show.ShowEndIfrs.CloseSetrs=NothingEndSubPrivateSubCommand2_Click()UnloadMeEndSub代码：PrivateSubForm_Load()EndSubPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubcmdAdd_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=NewIfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""ThenMsgBoxvbOKOnlyvbExclamation,

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)Ifrs.EOF=FalseThenMsgBox已经存在，请核实后再添加！",vbOKOnly+vbExclamation,！"Text1.SetFocusrs.CloseElsesql="select*fromCourse"Setrs=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)=rs.Updaters.CloseMsgBox"该记录已经成功添加！",vbOKOnly+vbExclamation,"添加成功！"CallinitEndIfEndIfEndSubPrivateSubcmdExit_Click()UnloadMeEndSubPrivateSubinit()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubcmdfind_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=Newsql=""IfTrim(NoEdit.Text)AndTrim(NameEdit.Text)ThenMsgBox你要查询的vbOKOnlyvbExclamation,"ExitSubElseIfNoEdit.Text<>""AndNameEdit.Text<>""Thensql="select*fromCourse"sql=sql&"whereCno='"&Trim(NoEdit.Text)&"'and Cnamelike'%"&Trim(NameEdit.Text)&"%'"Setrs=TransactSQL(sql)ElseIfNoEdit.Text<>""AndNameEdit.Text=""Thensql="select*fromCourse"sql=sql&"whereCno='"&Trim(NoEdit.Text)&"'"Setrs=TransactSQL(sql)ElseIfNoEdit.Text=""AndNameEdit.Text<>""Thensql="select*fromCourse"sql=sql&"whereCnamelike'%"&Trim(NameEdit.Text)&"%'"Setrs=TransactSQL(sql)EndIfEndIfIfrs.EOFThenMsgBox"Sorry,无法找到你要想查询的ElseFrmInfo_Course.Text1.Text=rs("Cno")FrmInfo_Course.Text2.Text=rs("Cname")FrmInfo_Course.Text3.Text=rs("Cteacher")FrmInfo_Course.Text4.Text=rs("Ccredit")Ifrs("Cselect")="专业"ThenFrmInfo_Course.Option1(0).Value=TrueElseFrmInfo_Course.Option1(1).Value=EndIfFrmInfo_Course.ShowEndIfrs.CloseSetrs=EndSubPrivateSubCommand2_Click()UnloadMeEndSubDimsqlAsStringDimrsAsADODB.RecordsetPrivateSubcmdAdd_Click()Setrs=NewADODB.RecordsetIfText1.Text=""OrCombo1.Text=""OrText2.Text=""ThenMsgBox"请输入成绩的所有信息！",vbOKOnly+vbExclamation,"警&

Text1.SetFocusElse=&==rs.Close=*&&=Ifrs.EOF=TrueThenMsgBox&Trim(Text1.Text&的不存在，请核vbOKOnlyvbExclamation！"Text1.SetFocusrs.CloseElse=*&&&&==MsgBox的成绩已经存在，请核实后再添加！",vbOKOnly+vbExclamationText1.SetFocusrs.CloseElsesql="select*fromSc"Setrs=TransactSQL(sql)rs.AddNewrs.Fields(0)=Trim(Text1.Text)rs.Fields(1)=Cnors.Fields(2)=Trim(Text2.Text)rs.Updaters.CloseMsgBox"该记录已经成功添加！",vbOKOnly+vbExclamation,"添加成功！"CallinitEndIfEndIfEndIfSetrs=NothingEndSubPrivateSubcmdExit_Click()UnloadMeEndSubPrivateSubForm_Load()Setrs=NewADODB.Recordsetsql="selectCno,CnamefromCourse"Setrs=TransactSQL(sql)Fori=1Tors.RecordCountCombo1.AddItemrs("Cname")rs.MoveNextNextCombo1.ListIndex=rs.CloseSetrs=EndSubPrivateSubinit()Text2.Text=""IfCombo1.ListIndex>=Combo1.ListCount-1ThenCombo1.ListIndex=0ElseCombo1.ListIndex=Combo1.ListIndex+EndIfEndSubPrivateSubcmdfind_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=Newsql=""IfTrim(NoEdit.Text)AndTrim(NameEdit.Text)ThenMsgBox你要查询的vbOKOnlyvbExclamation,"ExitSubElseIfNoEdit.Text<>""AndNameEdit.Text<>""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=TransactSQL(sql)ElseIfNoEdit.Text<>""AndNameEdit.Text=""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=TransactSQL(sql)ElseIfNoEdit.Text=""AndNameEdit.Text<>""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=EndIfEndIfIfrs.EOFThenMsgBox"Sorry,ElseSno=rs("Sno")Sname=rs("Sname")Sc=""Fori=1Tors.RecordCountSc=Sc+rs("Cname")&"："&rs("Grade")&rs.MoveNextNextFrmGrade_Show.Label8.Caption=Scsql1="selectSUM(Grade)asSum_Grade,AVG(Grade)asAvg_GradefromScwhereSc.Sno='"&Sno&"'"Setrs1=TransactSQL(sql1)FrmGrade_Show.Text1.Text=FrmGrade_Show.Text2.Text=SnameFrmGrade_Show.Text3.Text=rs1("Sum_Grade")FrmGrade_Show.Text4.Text=rs1("Avg_Grade")rs1.CloseSetrs1=NothingFrmGrade_Show.ShowEndIfrs.CloseSetrs=EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubLabel8_Click()EndSubDimsqlAsStringDimrsAsADODB.RecordsetPrivateSubcmdDel_Click()Setrs=NewIfText1.Text=""ThenMsgBox你输入要删除的vbOKOnlyvbExclamation"Text1.SetFocusExitSubEndIfsql=* &&"'"

Setrs=TransactSQL(sql)Ifrs.EOFThenx ，请确认之后再删除",y+,""Text1.SetFocusrs.CloseExitSubEndIf=&&"If&&l,"提示KTransactSQL(sql)xy""UnloadMeEndIfEndSubrs=IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""Thenx"请你输入要想修改的编号以及相关的所有信息y"Text1.SetFocusExitSubEndIfsql="select* fromCoursewhereCno='"&Trim(Text1.Text)&"'"Setrs=TransactSQL(sql)Ifrs.EOFThenMsgBoxy,""Text1.SetFocusrs.CloseExitSubEndIfIf"&&"",vbOKCancelvbOKThensql="updateCoursesetCname='"&Trim(Text2.Text)&"'"IfOption1(0).Value=TrueThencourse_select="专业"Elsecourse_select"EndIfsql=sql&'"&&"&&&&sql=sql&"&&xy"UnloadMeEndIfEndSubPrivateSubCommand1_Click()UnloadMeEndSubDimsqlAsStringDimrsAsADODB.RecordsetPrivateSubcmdDel_Click()Setrs=NewADODB.RecordsetIfText1.Text=""ThenMsgBoxvbOKOnlyvbExclamation,""Text1.SetFocusExitSubEndIf=* &&"'"

=x ",y+,""Text1.SetFocusrs.CloseExitSubEndIfsqlfromStudent&&IfMsgBox("确定&Text1.Text&所有信息吗？",vbOKCancel+vbExclamation")=vbOKThenTransactSQL(sql)xy""UnloadMeEndIfEndSubPrivateSubcmdMod_Click()Setrs=NewADODB.RecordsetIf=""OrText2.Text=""OrText3.Text=""OrText4.Text=""OrText5.Text=""OrText6.Text=""OrText7.Text""OrText8.Text=""ThenMsgB