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

《数据库课程设计(学生成绩管理系统)(17页).doc》由会员分享，可在线阅读，更多相关《数据库课程设计(学生成绩管理系统)(17页).doc（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-数据库课程设计(学生成绩管理系统)课 程 设 计题 目学生成绩管理系统教 学 院计算机学院专 业计算机科学与技术班 级05级二班姓 名指导教师2008年1月18日目 录一概述2二总体方案设计3三详细设计5四程序的调试与运行结果说明19五课程设计总结20参考文献21一 概述VisualBasic+Access数据库+SQL数据查询语言编写.系统管理员,教师,学生只需通过简单的操作,用户都可以了解本系统软件的基本工作原理.用户只需进行输入一些简单的汉字,数字,或用鼠标点击即可达到自己想要的目标.1. 课程设计的目的(1) 加深对数据库系统、软件工程、程序设计语言的理论知识的理解和应用水平；(2)

2、 在理论和实验教学基础上进一步巩固已学基本理论及应用知识并加以综合提高；(3) 学会将知识应用于实际的方法，提高分析和解决问题的能力，增强动手能力； (4) 为毕业设计和以后工作打下必要基础。(5)理解和掌握该课程中的有关基本概念，程序设计思想和方法。(6)培养综合运用所学知识独立完成课题的能力。(7)培养勇于探索、严谨推理、实事求是、有错必改，用实践来检验理论，全方位考虑问题等科学技术人员应具有的素质。(8)掌握从资料文献、科学实验中获得知识的能力，提高学生从别人经验中找到解决问题的新途径的悟性，初步培养工程意识和创新能力。2. 课程设计的要求运用数据库基本理论与应用知识，在微机 SQL s

3、erver的环境上建立一个数据库应用系统。要求把现实世界的事物及事物之间的复杂关系抽象为信息世界的实体及实体之间联系的信息模型，再转换为机器世界的数据模型和数据文件，并对数据文件实施检索、更新和控制等操作。1. 用e-r图设计指定题目的信息模型；2. 设计相应的关系模型，确定数据库结构；3. 分析关系模式各属于第几范式，阐明理由；4. 设计应用系统的系统结构图，确定系统功能；5. 通过设计关系的主码约束、外码约束实现完整性控制；6. 实现应用程序设计、编程、优化功能；7. 对系统的各个应用程序进行集成和调试，进一步优化系统功能、改善系统用户界面完成实验内容所指定的各项要求；8. 分析遇到的问题

4、，总结并写出课程设计报告；9. 自我评价二 总体方案设计一 学生成绩管理系统设计的目标的分析1,管理员能够实现对整个学生信息的添加,修改,删除,查询等操作,对教师用户的添加,删除,修改等操作,对留言信息的添加,删除,修改查询等操作. 2,可以将学生成绩的数据库发布到网上,教师的信息发布的网上,方便学生教师进行查询,达到资源共享的目的. 3,教师能够在一定的权限内对所有学生成绩的查询,所有教师信息的查询,留言信息的添加,删除,修改是,查看等,对的自己的联系信息进行更新,登录密码的修改. 4,学生可以在自己的权限内对对自己成绩的查询,以及个人信息的查询,登录密码的修改,留言的查看,提交留言信息的相

5、关操作.二 学生成绩管理系统的功能需求分析 学生成绩管理系统主要提供成绩查询,方便管理的网上的信息查阅平台, 学生可以通过该系统查阅与自己相关信息实现以上的所有功能,还有对学生的添加,删除,修改,教师的添加,删除,修改,数据库的备份,数据库的还原等相关操作. 三 系统的功能分析 该学生成绩管理系统是用Visual Basic+Access数据库+SQL查询语言编句,系统是基于网络在线的学生成绩管理系统,在系统中分为大的二个方面:一是教师登录页面,二是学生登录页面. (1)系统管理员进入学生成绩管理系统的主要功能是:实现教师添加,教师修改,教师删除,教师查询,数据库的恢复,数据库的备份,学生的添

6、加,学生的修改,学生的查询,学生成绩的录入,学生成绩的添加,学生成绩的修改,学生成绩的删除,留言的查询,留言的提交,留言的删除,留言的修改等基本功能. (2)教师进入学生成绩管理系统的主要功能是:实现学生的查询,学生成绩的查询,留言的删除,留言的查询,留言的查询,密码的修改,教师的查询,教师登陆密码的更改,教师个人信息的修改等基本功能. (3)学生进行学生成绩管量系统的主要功能是:实现学生自己怕成绩查询,自己登录密码的修改,个人信息的查询,留言的查看,提交留言的基本功能. 图1 主流程图承担部分： 学生基本信息查询 要求可通过输入学生学号或姓名对学生基本信息的查询，可对学生基本信息进行修改和删

7、除。三 详细设计学生管理模块：学生基本信息查询 图2 学生基本信息查询界面1. 代码：Private Sub cmdfind_Click() Dim sql As String sql = If Trim(NoEdit.Text) = And Trim(NameEdit.Text) = Then MsgBox 请输入你要查询的内容！, vbOKOnly + vbExclamation, 警告 Exit SubElse If NoEdit.Text And NameEdit.Text Then sql = select Student.Sno,Sname,Cname,Grade from Stu

8、dent,Course,Sc where Student.Sno = & Trim(NoEdit.Text) & and Sname like % & Trim(NameEdit.Text) & % and Sc.Sno=Student.Sno and Course.Cno=Sc.Cno Set rs = TransactSQL(sql) ElseIf NoEdit.Text And NameEdit.Text = Then sql = select Student.Sno,Sname,Cname,Grade from Student,Course,Sc where Student.Sno =

9、 & Trim(NoEdit.Text) & and Sname like % & Trim(NameEdit.Text) & % and Sc.Sno=Student.Sno and Course.Cno=Sc.Cno Set rs = TransactSQL(sql) ElseIf NoEdit.Text = And NameEdit.Text Then sql = select Student.Sno,Sname,Cname,Grade from Student,Course,Sc where Student.Sno = & Trim(NoEdit.Text) & and Sname l

10、ike % & Trim(NameEdit.Text) & % and Sc.Sno=Student.Sno and Course.Cno=Sc.Cno Set rs = TransactSQL(sql) End IfEnd IfIf rs.EOF ThenMsgBox Sorry,无法找到你要想查询的学生的基本信息！ElseSno = rs(Sno)Sname = rs(Sname)Sc = Sc = Sc + rs(Cname) & ： & rs(Grade) & vbCrLfNextFrmGrade_Show.Label8.Caption = Scsql1 = select SUM(Gr

11、ade) as Sum_Grade,AVG(Grade) as Avg_Grade from Sc where Sc.Sno= & Sno & Set rs1 = TransactSQL(sql1)FrmGrade_Show.Text1.Text = SnoFrmGrade_Show.Text2.Text = SnameFrmGrade_Show.Text3.Text = rs1(Sum_Grade)FrmGrade_Show.Text4.Text = rs1(Avg_Grade)Set rs1 = NothingEnd IfSet rs = NothingEnd SubPrivate Sub

12、 Command2_Click()Unload MeEnd Sub总代码：Private Sub Form_Load()End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub cmdAdd_Click() Dim sql As String If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then MsgBox 请输入课程的所有信息！, vbOKOnly + vbExclamation, 警告！ Else sql = select * from

13、Course where Cno= & Trim(Text1.Text) sql = sql & and Cname= & Trim(Text2.Text) & and Cteacher= sql = sql & Trim(Text3.Text) & and Ccredit= & Trim(Text4.Text) sql = sql & Set rs = TransactSQL(sql) If rs.EOF = False Then MsgBox 该课程已经存在，请核实后再添加！, vbOKOnly + vbExclamation, 警告！ Else sql = select * from C

14、ourse Set rs = TransactSQL(sql) rs.Fields(0) = Trim(Text1.Text) rs.Fields(1) = Trim(Text2.Text) rs.Fields(2) = Trim(Text3.Text) rs.Fields(3) = Trim(Text4.Text) If Option1(0).Value = True Then course_select = 专业 Else course_select = 选修 End If rs.Fields(4) = course_select MsgBox 该记录已经成功添加！, vbOKOnly +

15、 vbExclamation, 添加成功！ Call init End If End IfEnd SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub init()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub cmdfind_Click() Dim sql As String sql = If Trim(NoEdit.Text) = And Trim(NameEdit.Text) = Then MsgBox 请输入你要查询的内容！, vb

16、OKOnly + vbExclamation, 警告 Exit SubElse If NoEdit.Text And NameEdit.Text Then sql = select * from Course sql = sql & where Cno = & Trim(NoEdit.Text) & and Cname like % & Trim(NameEdit.Text) & % Set rs = TransactSQL(sql) ElseIf NoEdit.Text And NameEdit.Text = Then sql = select * from Course sql = sql

17、 & where Cno = & Trim(NoEdit.Text) & Set rs = TransactSQL(sql) ElseIf NoEdit.Text = And NameEdit.Text Then sql = select * from Course sql = sql & where Cname like % & Trim(NameEdit.Text) & % Set rs = TransactSQL(sql) End IfEnd IfIf rs.EOF ThenMsgBox Sorry,无法找到你要想查询的课程的基本信息！ElseFrmInfo_Course.Text1.T

18、ext = rs(Cno)FrmInfo_Course.Text2.Text = rs(Cname)FrmInfo_Course.Text3.Text = rs(Cteacher)FrmInfo_Course.Text4.Text = rs(Ccredit)If rs(Cselect) = 专业 ThenFrmInfo_Course.Option1(0).Value = TrueElseFrmInfo_Course.Option1(1).Value = TrueEnd IfEnd IfSet rs = NothingEnd SubPrivate Sub Command2_Click()Unlo

19、ad MeEnd SubDim sql As StringPrivate Sub cmdAdd_Click() If Text1.Text = Or Combo1.Text = Or Text2.Text = Then MsgBox 请输入成绩的所有信息！, vbOKOnly + vbExclamation, 警告！ Else sql = select Cno from Course where Cname= & Trim(Combo1.Text) & Set rs = TransactSQL(sql) Cno = rs(Cno) sql = select * from Student whe

20、re Sno= & Trim(Text1.Text) & Set rs = TransactSQL(sql) If rs.EOF = True Then MsgBox 学号为“ & Trim(Text1.Text) & ”的同学的不存在，请核实后再添加！, vbOKOnly + vbExclamation, 警告！ Else sql = select * from Sc where Sno= & Trim(Text1.Text) & And Cno= & Cno & Set rs = TransactSQL(sql) If rs.EOF = False Then MsgBox 该同学的成绩已经

21、存在，请核实后再添加！, vbOKOnly + vbExclamation, 警告！ Else sql = select * from Sc Set rs = TransactSQL(sql) rs.Fields(0) = Trim(Text1.Text) rs.Fields(1) = Cno rs.Fields(2) = Trim(Text2.Text) MsgBox 该记录已经成功添加！, vbOKOnly + vbExclamation, 添加成功！ Call init End If End If End If Set rs = NothingEnd SubPrivate Sub cmd

22、Exit_Click()Unload MeEnd SubPrivate Sub Form_Load() sql = select Cno,Cname from Course Set rs = TransactSQL(sql) Combo1.AddItem rs(Cname)Next Combo1.ListIndex = 0Set rs = NothingEnd SubPrivate Sub init()Text2.Text = If Combo1.ListIndex = Combo1.ListCount - 1 ThenCombo1.ListIndex = 0ElseCombo1.ListIn

23、dex = Combo1.ListIndex + 1End IfEnd SubPrivate Sub cmdfind_Click() Dim sql As String Se sql = If Trim(NoEdit.Text) = And Trim(NameEdit.Text) = Then MsgBox 请输入你要查询的内容！, vbOKOnly + vbExclamation, 警告 Exit SubElse If NoEdit.Text And NameEdit.Text Then sql = select Student.Sno,Sname,Cname,Grade from Stud

24、ent,Course,Sc where Student.Sno = & Trim(NoEdit.Text) & and Sname like % & Trim(NameEdit.Text) & % and Sc.Sno=Student.Sno and Course.Cno=Sc.Cno Set rs = TransactSQL(sql) ElseIf NoEdit.Text And NameEdit.Text = Then sql = select Student.Sno,Sname,Cname,Grade from Student,Course,Sc where Student.Sno =

25、& Trim(NoEdit.Text) & and Sname like % & Trim(NameEdit.Text) & % and Sc.Sno=Student.Sno and Course.Cno=Sc.Cno Set rs = TransactSQL(sql) ElseIf NoEdit.Text = And NameEdit.Text Then sql = select Student.Sno,Sname,Cname,Grade from Student,Course,Sc where Student.Sno = & Trim(NoEdit.Text) & and Sname li

26、ke % & Trim(NameEdit.Text) & % and Sc.Sno=Student.Sno and Course.Cno=Sc.Cno Set rs = TransactSQL(sql) End IfEnd IfIf rs.EOF ThenMsgBox Sorry,无法找到你要想查询的学生的基本信息！ElseSno = rs(Sno)Sname = rs(Sname)Sc = Sc = Sc + rs(Cname) & ： & rs(Grade) & vbCrLfNextFrmGrade_Show.Label8.Caption = Scsql1 = select SUM(Gra

27、de) as Sum_Grade,AVG(Grade) as Avg_Grade from Sc where Sc.Sno= & Sno & Set rs1 = TransactSQL(sql1)FrmGrade_Show.Text1.Text = SnoFrmGrade_Show.Text2.Text = SnameFrmGrade_Show.Text3.Text = rs1(Sum_Grade)FrmGrade_Show.Text4.Text = rs1(Avg_Grade)Set rs1 = NothingEnd IfSet rs = NothingEnd SubPrivate Sub

28、Command2_Click()Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Label8_Click()End SubDim sql As StringPrivate Sub cmdDel_Click() If Text1.Text = Then MsgBox 请你输入要删除的课程编号！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = select * from Course where Cno= & Trim(Text1.Text) &

29、 Set rs = TransactSQL(sql) If rs.EOF Then MsgBox 不存在该课程，请确认之后再删除！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = delete from Course where Cno= & Trim(Text1.Text) & If MsgBox(确定要删除课程编号为 & Text1.Text & 的所有信息吗？, vbOKCancel + vbExclamation, 提示！) = vbOK Then TransactSQL (sql) MsgBox 该课程的所有信息已经删除！,

30、vbOKOnly + vbExclamation, 警告！ Unload Me End IfEnd Sub Private Sub cmdMod_Click() If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then MsgBox 请你输入要想修改的课程编号以及相关的所有信息！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = select * from Course where Cno= & Trim(Text1.Text) & Set rs = Tran

31、sactSQL(sql) If rs.EOF Then MsgBox 无法找到该课程的基本信息，请核实后再修改！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If If MsgBox(确定要修改课程编号为 & Text1.Text & 的基本信息吗？, vbOKCancel) = vbOK Then sql = update Course set Cname= & Trim(Text2.Text) & If Option1(0).Value = True Then course_select = 专业 Else course_select = 选修

32、End If sql = sql & ,Cteacher= & Trim(Text3.Text) & ,Ccredit= & Trim(Text4.Text) & ,Cselect= & course_select & sql = sql & where Cno= & Trim(Text1.Text) & TransactSQL (sql) MsgBox 该课程的基本信息已经修改！, vbOKOnly + vbExclamation, 修改成功！ Unload Me End IfEnd SubPrivate Sub Command1_Click()Unload MeEnd SubDim sql

33、 As String Private Sub cmdDel_Click() If Text1.Text = Then MsgBox 请你输入要删除的学生的学号！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = select * from Student where Sno= & Trim(Text1.Text) & Set rs = TransactSQL(sql) If rs.EOF Then MsgBox 不存在该学生，请确认之后再删除！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If

34、sql = delete from Student where Sno= & Trim(Text1.Text) & If MsgBox(确定要删除学号为 & Text1.Text & 的所有信息吗？, vbOKCancel + vbExclamation, 提示！) = vbOK Then TransactSQL (sql) MsgBox 该学生的所有信息已经删除！, vbOKOnly + vbExclamation, 警告！ Unload Me End IfEnd SubPrivate Sub cmdMod_Click() If Text1.Text = Or Text2.Text = Or

35、 Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = Then MsgBox 请你输入要想修改的学生的学号以及相关的所有信息！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = select * from Student where Sno= & Trim(Text1.Text) & Set rs = TransactSQL(sql) If rs.EOF Then MsgBox 无法找到该学生的基本信息，请

36、核实后再修改！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If If MsgBox(确定要修改学号为 & Text1.Text & 的基本信息吗？, vbOKCancel) = vbOK Then sql = update Student set Sname= & Trim(Text2.Text) sql = sql & ,Splace= & Trim(Text5.Text) & ,Spolity= & Trim(Text6.Text) & ,Stime= & Trim(Text7.Text) sql = sql & ,Steleph= & Tri

37、m(Text8.Text) & where Sno= & Trim(Text1.Text) & ; TransactSQL (sql) MsgBox 该学生的基本信息已经修改！, vbOKOnly + vbExclamation, 修改成功！ Unload Me End IfEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub init()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Te

38、xt8.Text = End Sub四 程序的调试与运行结果说明 调试过程： 图3 错误 图4 调试 图5 学生基本信息查询结果五 课程设计总结随着计算机技术的不断发展，用计算机代替人工进行各种各样的管理逐渐变成了实现，从而对人才综合素质的要求也就越来越高。为了使我们较快的适应社会的发展的需要，老师为我们提供了一系列综合性、适用性较强的毕业设计课题，从而使之成为我们了解社会需求，应用知识的实践课题。 通过这次课程设计，我深深的认识到，如果仅仅只是运用理论知识，是远远不够的。我们必须理论联系实际，才能很好的将数据库原理这门课程学好，并用于实际案例中。同时，经过这次课程设计，我发觉自己的动手操作能

39、力变强了，也为自己对以后的科研、工作充满信息和希望打下了良好的基础。参考文献1.SQL Server 2000数据库开发从零开始 作者：(新西兰)霍索恩著 袁鹏飞译 出版社：人民邮电出版社 出版日期：2001-8-1 2.ViSual Basic 6.0数据库开发 作者：E.Winemiller J.Roff/B.Heyman R.Groom 出版社：清华大学出版社3.Visual Basic数据库开发自学教程 作者：孙越 出版社：人民邮电出版社 出版日期：2002-104.Viusal Basic程序设计教程习题及习题解答(第2版) 作者：刘瑞新/汪远征 出版社：机械工业出版社出版日期：2006-085.Visual Basic.NET实用编程100例 作者：付军编 出版社：中国铁道出版社 出版日期：2003-056.Visual Basic.NET程序员查询辞典 作者：(美国)拉梅尔著/陈君 出版社：中国铁道出版社 出版日期：2003-01数据库课程设计成绩评定答辩质疑记录指导老师评语 综合评定成绩：指导老师签名： 年 月 日-第 15 页学 号：