《数据库课程设计(学生成绩管理系统)》由会员分享，可在线阅读，更多相关《数据库课程设计(学生成绩管理系统)（23页珍藏版）》请在金锄头文库上搜索。
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. 用e-r图设计指定题目的信息模型；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 Stri
8、ng 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 And NameEdit.Text Then sql = select Student.Sno,Sname,Cname,Grade from Student,Course,Sc where Student.Sn
9、o = & 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 Snam
10、e 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 like % & Trim(NameEdit.Text) & %
11、 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 = Sc + rs(Cname) & ： & rs(Grade) & vbCrLf rs.MoveNextNext FrmGrade_Show.Label8.Caption = Scsql1 = sel
12、ect 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 = SnameFrmGrade_Show.Text3.Text = rs1(Sum_Grade)FrmGrade_Show.Text4.Text = rs1(Avg_Grade)rs1.CloseSet rs1 = NothingFrmGrade_Show.ShowEnd
13、 Ifrs.CloseSet rs = NothingEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub总代码：Private Sub Form_Load()End SubPrivate Sub Command1_Click()Unload MeEnd 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.Tex
14、t = Or Text4.Text = Then MsgBox 请输入课程的所有信息！, vbOKOnly + vbExclamation, 警告！ Text1.SetFocus Else sql = select * from 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 +
