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

1、学 号：课 程 设 计题 目学生成绩管理系统教 学 院计算机学院专 业计算机科学与技术班 级05级二班姓 名指导教师2008年1月18日目 录一概述2二总体方案设计3三详细设计5四程序的调试与运行结果说明19五课程设计总结20参考文献21一 概述在21世纪的科技时代，科学技术突飞猛进,信息社会的高科技时代，商品经济化的高效益，计算机的应用已普及到经济和社会生活的各个领域.计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作不方便继续用手工劳动.为了适应现代社会人们高度强烈的时间观念，学生成绩管理系统为教学办公带来了极大的方便.该学生成绩管理系统是以VisualBasic+Access数据库+

2、SQL数据查询语言编写。系统管理员，教师，学生只需通过简单的操作,用户都可以了解本系统软件的基本工作原理。用户只需进行输入一些简单的汉字，数字，或用鼠标点击即可达到自己想要的目标。1。 课程设计的目的（1) 加深对数据库系统、软件工程、程序设计语言的理论知识的理解和应用水平;(2） 在理论和实验教学基础上进一步巩固已学基本理论及应用知识并加以综合提高；(3) 学会将知识应用于实际的方法,提高分析和解决问题的能力，增强动手能力; (4） 为毕业设计和以后工作打下必要基础。（5）理解和掌握该课程中的有关基本概念，程序设计思想和方法。（6）培养综合运用所学知识独立完成课题的能力.（7)培养勇于探索、

3、严谨推理、实事求是、有错必改，用实践来检验理论,全方位考虑问题等科学技术人员应具有的素质.（8）掌握从资料文献、科学实验中获得知识的能力，提高学生从别人经验中找到解决问题的新途径的悟性，初步培养工程意识和创新能力.2. 课程设计的要求运用数据库基本理论与应用知识，在微机 SQL server的环境上建立一个数据库应用系统。要求把现实世界的事物及事物之间的复杂关系抽象为信息世界的实体及实体之间联系的信息模型，再转换为机器世界的数据模型和数据文件，并对数据文件实施检索、更新和控制等操作。1. 用er图设计指定题目的信息模型;2. 设计相应的关系模型，确定数据库结构;3。 分析关系模式各属于第几范式

4、,阐明理由；4。 设计应用系统的系统结构图，确定系统功能；5。通过设计关系的主码约束、外码约束实现完整性控制；6。 实现应用程序设计、编程、优化功能；7. 对系统的各个应用程序进行集成和调试，进一步优化系统功能、改善系统用户界面完成实验内容所指定的各项要求;8. 分析遇到的问题，总结并写出课程设计报告；9。 自我评价二 总体方案设计一学生成绩管理系统设计的目标的分析1，管理员能够实现对整个学生信息的添加，修改，删除，查询等操作，对教师用户的添加,删除,修改等操作，对留言信息的添加,删除，修改查询等操作. 2，可以将学生成绩的数据库发布到网上，教师的信息发布的网上,方便学生教师进行查询,达到资源

5、共享的目的。 3，教师能够在一定的权限内对所有学生成绩的查询，所有教师信息的查询，留言信息的添加，删除，修改是,查看等，对的自己的联系信息进行更新,登录密码的修改。 4,学生可以在自己的权限内对对自己成绩的查询，以及个人信息的查询,登录密码的修改，留言的查看，提交留言信息的相关操作.二 学生成绩管理系统的功能需求分析 学生成绩管理系统主要提供成绩查询，方便管理的网上的信息查阅平台,查看留言，提交留言.教师可以通过成绩管理系统查阅学生成绩信息，教师信息，查看教师留言，学生留言，提交留言,留言的管理等相关操作.系统管理员可以学生可以通过该系统查阅与自己相关信息实现以上的所有功能，还有对学生的添加，

6、删除，修改，教师的添加，删除，修改,数据库的备份,数据库的还原等相关操作。 三 系统的功能分析 该学生成绩管理系统是用Visual Basic+Access数据库+SQL查询语言编句,系统是基于网络在线的学生成绩管理系统，在系统中分为大的二个方面：一是教师登录页面，二是学生登录页面。 (1）系统管理员进入学生成绩管理系统的主要功能是:实现教师添加，教师修改，教师删除，教师查询,数据库的恢复，数据库的备份,学生的添加，学生的修改，学生的查询，学生成绩的录入，学生成绩的添加，学生成绩的修改,学生成绩的删除，留言的查询，留言的提交,留言的删除，留言的修改等基本功能。 (2)教师进入学生成绩管理系统的

7、主要功能是：实现学生的查询，学生成绩的查询,留言的删除,留言的查询，留言的查询，密码的修改,教师的查询，教师登陆密码的更改，教师个人信息的修改等基本功能。 (3）学生进行学生成绩管量系统的主要功能是：实现学生自己怕成绩查询，自己登录密码的修改,个人信息的查询,留言的查看,提交留言的基本功能. 图1 主流程图承担部分： 学生基本信息查询 要求可通过输入学生学号或姓名对学生基本信息的查询，可对学生基本信息进行修改和删除。三 详细设计学生管理模块：学生基本信息查询 图2 学生基本信息查询界面1。代码:Private Sub cmdfind_Click（） Dim sql As String Dim

8、rs As ADODB。Recordset Set rs = New ADODB。Recordset 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 Stude

9、nt，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 Stude

10、nt，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 Stude

11、nt，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） End IfEnd IfIf rs。EOF ThenMsgBox ”Sorry，无法找到你要想查询的学生的基本信息！”ElseSno = rs（”Sno”）Sname = rs（"Sname"）Sc = ”"

12、;For i = 1 To rs.RecordCount Sc = Sc + rs（”Cname”) ”：" rs（”Grade”） vbCrLf rs。MoveNextNextFrmGrade_Show。Label8.Caption = Scsql1 = ”select SUM（Grade) as Sum_Grade,AVG（Grade） as Avg_Grade from Sc where Sc。Sno=” Sno " ”Set rs1 = TransactSQL(sql1)FrmGrade_Show。Text1。Text = SnoFrmGrade_Show。Text

13、2。Text = SnameFrmGrade_Show.Text3。Text = rs1（”Sum_Grade”）FrmGrade_Show.Text4。Text = rs1（”Avg_Grade”)rs1.CloseSet rs1 = NothingFrmGrade_Show.ShowEnd Ifrs。CloseSet rs = NothingEnd SubPrivate Sub Command2_Click（）Unload MeEnd Sub总代码：Private Sub Form_Load()End SubPrivate Sub Command1_Click(）Unload MeEnd

14、SubPrivate Sub cmdAdd_Click（） Dim sql As String Dim rs As ADODB.Recordset Set rs = New ADODB。Recordset If Text1.Text = "" Or Text2.Text = ” Or Text3.Text = ” Or Text4.Text = "” Then MsgBox "请输入课程的所有信息!”， vbOKOnly + vbExclamation， ”警告！” Text1。SetFocus Else sql = ”select * from Cou

15、rse 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， ”警告!" Te

16、xt1.SetFocus rs。Close Else sql = ”select * from Course” Set rs = TransactSQL(sql） rs。AddNew 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 = &

17、quot;选修" End If rs。Fields（4) = course_select rs。Update rs。Close MsgBox "该记录已经成功添加！", vbOKOnly + vbExclamation， "添加成功！” Call init End If End IfEnd SubPrivate Sub cmdExit_Click(）Unload MeEnd SubPrivate Sub init(）Text1.Text = ”Text2.Text = "”Text3.Text = ""Text4。Text

18、= ”"End SubPrivate Sub cmdfind_Click（) Dim sql As String Dim rs As ADODB.Recordset Set rs = New ADODB。Recordset sql = "”If Trim（NoEdit。Text） = ” And Trim（NameEdit.Text） = "" Then MsgBox ”请输入你要查询的内容!", vbOKOnly + vbExclamation， ”警告" Exit SubElse If NoEdit。Text "” An

19、d 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 ”

20、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，无法找到你

21、要想查询的课程的基本信息!”ElseFrmInfo_Course.Text1。Text = 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(

22、1).Value = TrueEnd IfFrmInfo_Course。ShowEnd Ifrs。CloseSet rs = NothingEnd SubPrivate Sub Command2_Click（)Unload MeEnd SubDim sql As String Dim rs As ADODB。RecordsetPrivate Sub cmdAdd_Click（） Set rs = New ADODB.Recordset If Text1。Text = ” Or Combo1.Text = ”" Or Text2。Text = ”" Then MsgBox ”

23、请输入成绩的所有信息!”, vbOKOnly + vbExclamation， "警告！" Text1。SetFocus Else sql = "select Cno from Course where Cname=” Trim（Combo1。Text） ” Set rs = TransactSQL(sql) Cno = rs（”Cno”） rs。Close sql = "select from Student where Sno=” Trim(Text1。Text） "'" Set rs = TransactSQL(sql）

24、 If rs。EOF = True Then MsgBox ”学号为“” & Trim（Text1。Text) "”的同学的不存在，请核实后再添加！", vbOKOnly + vbExclamation, ”警告！" Text1.SetFocus rs。Close Else sql = ”select * from Sc where Sno=” Trim(Text1.Text) " And Cno=” Cno "" Set rs = TransactSQL（sql） If rs.EOF = False Then MsgBox

25、”该同学的成绩已经存在，请核实后再添加!"， vbOKOnly + vbExclamation， ”警告！” Text1.SetFocus rs。Close Else sql = "select from Sc” Set rs = TransactSQL（sql） rs。AddNew rs。Fields（0） = Trim(Text1。Text） rs。Fields（1） = Cno rs。Fields(2) = Trim（Text2。Text） rs。Update rs.Close MsgBox ”该记录已经成功添加!"， vbOKOnly + vbExclam

26、ation， "添加成功！” Call init End If End If End If Set rs = NothingEnd SubPrivate Sub cmdExit_Click（)Unload MeEnd SubPrivate Sub Form_Load（） Set rs = New ADODB。Recordset sql = ”select Cno，Cname from Course" Set rs = TransactSQL(sql）For i = 1 To rs。RecordCount Combo1.AddItem rs(”Cname”） rs。MoveN

27、extNext Combo1。ListIndex = 0rs.CloseSet rs = NothingEnd SubPrivate Sub init（）Text2。Text = ”If Combo1.ListIndex = Combo1。ListCount 1 ThenCombo1.ListIndex = 0ElseCombo1。ListIndex = Combo1。ListIndex + 1End IfEnd SubPrivate Sub cmdfind_Click() Dim sql As String Dim rs As ADODB。Recordset Set rs = New ADO

28、DB.Recordset 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 Student,Course，Sc where Student。

29、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 = ”

30、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（N

31、oEdit.Text） & ” ' and Sname like %" & 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 = ”"For i = 1 To rs.RecordCount Sc

32、= Sc + rs(”Cname”) ”:" rs（"Grade"） vbCrLf rs。MoveNextNextFrmGrade_Show.Label8。Caption = Scsql1 = ”select SUM（Grade） 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 = Sna

33、meFrmGrade_Show。Text3.Text = rs1（”Sum_Grade”）FrmGrade_Show.Text4.Text = rs1(”Avg_Grade”）rs1.CloseSet rs1 = NothingFrmGrade_Show.ShowEnd Ifrs。CloseSet rs = NothingEnd SubPrivate Sub Command2_Click(）Unload MeEnd SubPrivate Sub Command2_Click（)Unload MeEnd SubPrivate Sub Label8_Click()End SubDim sql As

34、 String Dim rs As ADODB。RecordsetPrivate Sub cmdDel_Click（） Set rs = New ADODB。Recordset If Text1。Text = ” Then MsgBox ”请你输入要删除的课程编号！”， vbOKOnly + vbExclamation, ”警告！” Text1.SetFocus Exit Sub End If sql = ”select * from Course where Cno=” Trim（Text1。Text） ”'" Set rs = TransactSQL（sql) If rs

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

36、sql） MsgBox ”该课程的所有信息已经删除!”， vbOKOnly + vbExclamation， ”警告!” Unload Me End IfEnd Sub Private Sub cmdMod_Click（) Set rs = New ADODB。Recordset If Text1.Text = ”" Or Text2。Text = ”" Or Text3。Text = ”" Or Text4。Text = "” Then MsgBox ”请你输入要想修改的课程编号以及相关的所有信息！"， vbOKOnly + vbExclam

37、ation， ”警告!” Text1.SetFocus Exit Sub End If sql = ”select * from Course where Cno='” & Trim（Text1.Text) & ” Set rs = TransactSQL（sql） If rs.EOF Then MsgBox ”无法找到该课程的基本信息，请核实后再修改!”， vbOKOnly + vbExclamation, "警告！” Text1。SetFocus rs.Close Exit Sub End If If MsgBox("确定要修改课程编号为&quo

38、t; & Text1。Text & ”的基本信息吗？”, vbOKCancel） = vbOK Then sql = ”update Course set Cname='” Trim（Text2。Text） ”'” If Option1（0).Value = True Then course_select = ”专业” Else course_select = ”选修" End If sql = sql & "，Cteacher= ” Trim（Text3。Text） "，Ccredit= ” & Trim（Text

39、4。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 As String Dim rs As ADODB.Recordset Pr

40、ivate Sub cmdDel_Click（） Set rs = New ADODB。Recordset If Text1.Text = ” Then MsgBox "请你输入要删除的学生的学号！”， vbOKOnly + vbExclamation, ”警告！” Text1。SetFocus Exit Sub End If sql = "select from Student where Sno='” Trim（Text1。Text） "'" Set rs = TransactSQL（sql） If rs.EOF Then MsgBo

41、x ”不存在该学生，请确认之后再删除！”, vbOKOnly + vbExclamation， "警告！” Text1。SetFocus rs。Close Exit Sub End If sql = ”delete from Student where Sno='” & Trim（Text1.Text) " ” If MsgBox（"确定要删除学号为” Text1。Text ”的所有信息吗？”， vbOKCancel + vbExclamation, ”提示！”） = vbOK Then TransactSQL (sql） MsgBox ”该学生的

42、所有信息已经删除！”, vbOKOnly + vbExclamation, "警告!" Unload Me End IfEnd SubPrivate Sub cmdMod_Click（） Set rs = New ADODB。Recordset If Text1.Text = "” Or Text2.Text = ” Or Text3。Text = ” Or Text4.Text = ” Or Text5.Text = ” Or Text6.Text = ” Or Text7.Text = "” Or Text8.Text = "” Then

43、MsgBox ”请你输入要想修改的学生的学号以及相关的所有信息!”， vbOKOnly + vbExclamation， ”警告！" Text1。SetFocus Exit Sub End If sql = ”select * from Student where Sno=" Trim(Text1。Text) ”" Set rs = TransactSQL（sql) If rs。EOF Then MsgBox ”无法找到该学生的基本信息，请核实后再修改!”， vbOKOnly + vbExclamation， "警告！" Text1。SetFocus rs。Close Exit Sub End If If MsgBox(”确定要修改学号为" Text1。