学生成绩管理系统-数据库原理课设

1、摘 要随着科技的发展，基本上所有的具有一定数量数据的机构都开始使用计算机数据库来做管理。几乎所有学校也都已经在使用计算机管理数据的机制，大大减少了学校学生成绩管理的工作量。该课程设计要求设计一个学生成绩的数据库管理系统，数据库中要求包含学生的基本信息，课程基本信息，以及学生所学课程的考试成绩。要方便学生进行成绩查询，通过该课程设计，应该达到把数据库理论知识更加的巩固加深，加强动手能力与实践能力，学以致用，与现实生活中的应用充分的结合起来。学生成绩管理系统是基于SQL Server 2008数据库开发工具和VB开发工具来进行设计。 关键词：数据库原理；SQL Server 2008；VB6.0；

2、学生成绩管理系统。目 录1 系统功能概述12 数据库设计22.1 需求分析22.2 E-R模型22.3 表结构设计33 系统各功能模块的详细设计53.1 欢迎界面的设计53.2 登录界面63.3 主控界面73.4 信息浏览界面93.5各科信息浏览界面113.6修改信息浏览界面123.7混合信息查询界面143.8打印报表164 总 结17参考文献181 系统功能概述 学生成绩管理系统能有效的解决学生成绩记录的数量众多，管理造成的混乱。从而对学生成绩的信息进行准确的管理。本系统的开发目的是有效的管理学生信息，实现学生信息的数据规范化，自动化，系统化管理。适用于某个班级内部使用的成绩管理软件，有班长

3、负责使用。1输入每个学期开设的课程及其信息，并可以修改和删除。2实现每个同学各学期各门课程的成绩的输入、修改。3能够快速的查询统计学生的信息和课程信息。2 数据库设计2.1需求分析随着学校向全国及至世界范围的持续扩张，学生人数的增加，对于学生的信息管理也越来越复杂，要求也越来越高，因此需要一个全面、详细的信息管理系统，以便完成对学生信息的管理。无纸化的环境是技术时代的一个梦想，也是许多学校和公司越来越意识到的一个真实世界。以前是由学生档案和公告栏来提供各种信息及通告新的变化，而现在这个繁杂的工作已被网站和内部计算机网络所取代。使得学生信息的管理更方便、安全。根据调查得知，现在广大学生进行信息提

4、交的主要方式是基于文件、表格等纸介质的手工处理，学生信息管理部门信息处理工作量大，容易出错，且管理方面因人而异。然而学校网上学生信息管理系统应该覆盖各个所需功能，使各级管理人员和广大教职工在信息系统的辅助下进行工作，提高管理的整体水平。使得学生信息管理更方便。学生信息管理系统，可以用集中的数据库将与人力资源管理相关的信息全面、有机地联系起来，有效地减少了信息更新和查找中的重复劳动，保证了信息的相容性，从而大大地提高了工作效率，还能使原来不可能提供的分析报告成了可能。在采用和实施学生信息管理系统之后，就会将依赖于人的过程改为依赖于计算机系统的过程。学校管理人员只要获取了相应的权限，就可以随时进入

5、系统，直接查阅相应的信息。采用和实施学生信息管理系统不仅仅是为了提高工作效率。为了除掉手工记录的低效率工作方式，运用信息化管理，提高工作效率，开发本系统。应该看到，在实施学生信息管理系统后，经过整合的、较为全面、准确、一致和相容的信息不仅可以让学校领导对本学校学生资源的现状有一个比较全面和准确的认识，同也可以生成综合的分析报表供学校领导人在决策时参考。2.2 E-R模型该管理系统中主要包含4个实体：密码表、学生信息、学生成绩信息和课程信息 ，所以在这里给出了单个实体及属性图，和部分完整的实体联系图。实体及其属性图如下：学号查询成绩姓名成绩类型成绩课号密码表用户名密码 图2.1：密码表及其属性图

6、 学号姓名年龄类别学生性别查询课程课名学分密码课程课号2.3 表结构设计启动SQL Server 2008建立数据库课程设计，在该数据库中，用可视化的方法进行建表，要建的表有密码表，学生表，课程信息表，成绩表四个表，所建各表的表信息如下：密码表：图2.2：密码表学生表：图2.3：学生表课程信息表：图2.4：课程信息表 图4：成绩表：图2.5：成绩表3 系统各功能模块的详细设计3.1 欢迎界面的设计点击欢迎界面上的欢迎词“进入系统” 时即可跳转到登录主界面，欢迎词用Label控件进行添加，程序运行时欢迎界面最大化。控件属性值表：控件名属性名属性值Label1Caption进入系统Font宋体、二

7、号ForeColor黑色欢迎界面如图3.1所示：图3.1 欢迎界面对应代码如下：Private Sub Command1_Click() 登陆.Show 欢迎界面.HideEnd Sub3.2 登录界面用Label控件添加“用户名”和“密码”显示在界面上，并在后面用TextBox控件添加练个输入区，三个按钮则由Command Button控件进行添加，最后由Adodc控件与数据库相连。控件属性值表： 控件名属性名属性值控件名属性名属性值Label1Caption用户名Command2Caption取消Font楷体、小四Font楷体、小四Label2Caption密码Command3Captio

8、n注册Font楷体、小四Font楷体、小四Command1Caption登录Font楷体、小四登录界面如下：图3.2：登陆对应的代码如下：Dim miCount As IntegerPrivate Sub Command1_Click()Dim SQLStr As StringSQLStr = Select * From 密码表 Where Sno= & Text1 & Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.BOF Then MsgBox 用户名错误，重新输入, vbExclamation, 警告 Text1

9、.Text = Text1.SetFocusElse If Adodc1.Recordset.Fields(密码) = Text2 ThenMDIForm1.Show Unload Me Else MsgBox 密码错误，重新输入 , vbExclamation, 警告Text2.Text = Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd Sub3.3 主控界面主控界面是MDI窗体，含有的主菜单包含：文件、图书管理、音像管理和系统。在未登录之前只有文件和系统两菜单可用，成功登录之

10、后图书管理和音像管理两个主菜单变为可用的。主控界面的详细情况如下：文件 包含以下子菜单和功能：登录菜单：打开登录界面退出返回界面登录数据管理菜单包含以下子菜单和功能：各科信息浏览菜单：显示各科信息的浏览窗体修改信息菜单：显示修改信息的更改窗体 综合成绩查询菜单包含以下子菜单和功能：混合查询菜单：显示混合查询的浏览窗体 打印报表菜单包含以下子菜单和功能：学生成绩表 菜单：学生成绩打印 课程号菜单：课程号打印学生信息表：学生信息表打印主控界面的设计如下图所示： 图3.3：菜单编辑器图3.4：主控界面对应代码如下：Private Sub chengji_Click()DataReport1.Show

11、MDIForm1.HideEnd SubPrivate Sub Denglu_Click()登陆.ShowMDIForm1.HideEnd SubPrivate Sub Exit_Click()欢迎界面.ShowMDIForm1.HideEnd SubPrivate Sub Geke_Click()信息浏览.ShowMDIForm1.HideEnd SubPrivate Sub Hunhe_Click()查询.ShowMDIForm1.HideEnd SubPrivate Sub kecheng_Click()DataReport2.ShowMDIForm1.HideEnd SubPrivat

12、e Sub MDIForm_Load()End SubPrivate Sub Xiugai_Click()修改信息.ShowMDIForm1.HideEnd SubPrivate Sub xuesheng_Click()DataReport3.ShowMDIForm1.HideEnd Sub3.4 信息浏览界面（1）信息浏览界面该窗体具有新增记录、删除记录、修改记录、取消修改等功能。当新增记录或修改记录时，只要没有单击确定按钮，单击取消按钮，可以取消上述操作。成绩按钮则会调到成绩界面。取消则会返回上一界面。控件名 属性名 属性值 控件名 属性名 属性值 Text1 DataSource Ado

13、dc1 Text3 DataSource Adodc1 DataField 学号 DataField 性别 Locked True Locked True Text2 DataSource Adodc1 Text4 DataSource Adodc1 DataField 姓名 DataField 生日 Locked True Locked True Text5 DataSource Adodc1 Text5 Locked True DataField 专业 信息浏览界面如下：图3.5：信息浏览对应的代码如下：Private Sub Command8_Click()x = MsgBox(确实要删

14、除当前记录吗？, vbYesNo + vbQuestion, 确认)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command9_Click()Adodc1.RefreshCommand6.Enabled = TrueCommand8.Enabled = TrueCommand7.Enabled

15、= FalseCommand9.Enabled = FalseEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueCommand6.Enabled = TrueCommand8.Enabled = TrueCommand7.Enabled = FalseCommand9.Enabled = FalseLabel6.Caption = 记录： & Adodc1.Recordset.AbsolutePos

16、ition & / & Adodc1.Recordset.RecordCountCombo1.AddItem 男Combo1.AddItem 女End Sub3.5各科信息浏览界面在表中，显示学生成绩信息表格和学生课程表格；当选中某行记录并单击修改数据按钮时，将打开修改信息界面，显示该行记录的信息，并可以修改数据。点击返回键返回信息信息浏览界面。各科信息浏览界面如下：图3.6：各科信息浏览对应代码如下：Private Sub Command1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox 请选择要修改的行

17、Exit SubEnd If修改信息.Show各科信息浏览.HideEnd SubPrivate Sub 返回_Click()信息浏览.Show Unload MeEnd Sub3.6修改信息浏览界面当选中上面某个人的信息是点击修改成绩将会弹出此界面对应学生的信息进行修改点击更新按钮将对学生信息进行修改。点击返回按钮将弹出各科信息浏览界面。修改信息浏览界面如下：图3.7：修改信息代码如下：Private Sub Command1_Click()各科信息浏览.Adodc1.Recordset.Fields(学号) = Text1.Text各科信息浏览.Adodc1.Recordset.Field

18、s(课号) = Text2.Text各科信息浏览.Adodc1.Recordset.Fields(类型) = Text3.Text各科信息浏览.Adodc1.Recordset.Fields(成绩) = Text4.Text各科信息浏览.Adodc1.Recordset.Fields(姓名) = Text5.Text各科信息浏览.Adodc1.Recordset.Update各科信息浏览.Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload 修改信息各科信息浏览.ShowEnd SubPrivate Sub Form_Load()Tex

19、t1.Text = 各科信息浏览.Adodc1.Recordset.Fields(学号)Text2.Text = 各科信息浏览.Adodc1.Recordset.Fields(课号)Text3.Text = 各科信息浏览.Adodc1.Recordset.Fields(类型)Text4.Text = 各科信息浏览.Adodc1.Recordset.Fields(成绩)Text5.Text = 各科信息浏览.Adodc1.Recordset.Fields(姓名)End Sub3.7混合信息查询界面可以选择按学号、课程号、课程类别，查询相关信息。查询结果中包含：按学号、课程号、课程类别进行学生成绩信息统计。点击返回按钮则进入MDIForm1界面。混合信息查询界面如下：图3.8：查询学号图3.9：查询课号图3.10：查询类型代码如下:Private Sub Command1_Click()Dim str As Stringstr = Select SC.* From SC str = str & Where SC. & Combo1.Text & Like & Text1 & % Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Co