数据库课设报告班级成绩管理系统.docx
《数据库课设报告班级成绩管理系统.docx》由会员分享，可在线阅读，更多相关《数据库课设报告班级成绩管理系统.docx（50页珍藏版）》请在冰豆网上搜索。
数据库课设报告班级成绩管理系统
摘要
班级成绩管理系统是一种典型的信息管理系统，包括对学生信息、课程信息、课程成绩信息等一些信息的查询、添加、修改、删除等功能。
使用SQLsever2000建立用户信息表、学生基本信息表、课程信息表和课程成绩表用来存放班级成绩管理系统所包含的数据，利用VisualBasic创建可视化的窗体以实现对数据库各种数据查询、添加、修改、删除等操作。
使用VisualBasic中的Adodc控件、DataGrid1网格数据控件、ComboBox组合框控件、文本框Text、CheckBox复选框、命令按钮CommandButton控件及其他一些控件对数据库进行操作。
为用户提供充足的信息，对学生来说可以轻松使用。
整个软件在开发过程中使用模块化程序设计方法，充分考虑了各种实际情况，并在设计中用代码加以实现，整个软件基本满足了对班级成绩管理的需要。
关键词：
VisualBasicSQLsever2000班级成绩管理系统
第1章系统功能概述
1.1功能需求描述
1.1.1用户管理功能
用户分为管理员、学生用户两类类。
不论是管理员，还是学生用户都需要通过用户名和口令进行登录。
管理员可以对所有的学生成绩进行增加、删除和修改。
学生用户只能看到自己的学习成绩，并且不能修改。
由于管理员用户及学生用户较为固定，所以对教师自身信息和学生自身信息的管理可以由系统管理人员直接操作数据库完成。
1.1.2管理员的管理功能
管理员对成绩的管理可以从两个角度管理：
按照课程角度进行管理和按照学生角度进行管理。
管理员登陆该系统以后，可以实现一下功能：
（1）用户信息管理：
主要对用户的信息进行管理和维护，包括新用户的添加和用户密码的修改。
（2）学生信息管理：
主要对学生的基本信息进行管理和维护，新生入学时要及时的添加新生的信息，有插班生时也能做到及时更新，遇到退学或留级查看的特殊情况，也能做到学生信息的及时更改，并反映到数据库的相关表中。
（3）课程信息管理：
主要对课程的信息进行管理和维护，包括对课程信息的添加，修改，删除以及给定相关条件进行课程信息的查询，查询结果要做到正确无误。
（4）课程成绩管理：
主要对学生的课程成绩进行管理和维护，包括对成绩的查询，添加，修改，删除。
以及实现对成绩的统计、汇总，实现对成绩的量化管理。
1.2系统功能总体设计框图
图1
第2章数据库设计
2.1需求分析
这是一个某个班级内部使用的成绩管理软件，有班长负责使用。
输入每个学期开设的课程及其信息（考试/考查，理论/实验/课设/实习等），并可以修改和删除。
实现每个同学各学期各门课程的成绩的输入、修改。
要求能够查询统计学生的信息，通过调研，学生成绩管理系统主要包括本班的每一位学生在校期间的基本情况与课程成绩汇总。
主要包括课程管理、成绩管理、具体的查询等。
本系统还提供学生相关的基本信息统计、汇总、查询，这样便于辅助班级学委的学生管理工作，提高管理效率。
系统的主要功能性能描述如下：
（1）学生基本情况管理：
本班每一位学生的基本情况汇总与管理，主要包括对学生基本情况的添加、修改、删除、查询等操作。
（2）成绩管理：
主要包括专业课成绩、选修课成绩管理。
主要包括对学生成绩的添加、修改、删除、查询、统计等操作。
（3）课程管理：
主要包括对课程的添加、删除、查询等操作。
（4）本系统用户信息:
用户必须通过用户登录才能访问到整个管理系统。
2.2E-R模型
班级成绩管理系统的完整的E-R图如下
图2
2.3关系模型
班级成绩管理系统包含以下五个关系模式：
1.学生基本信息（学号，姓名，性别，年龄，籍贯，民族，政治面貌，入学时间，所在班级，联系方式）；
2.课程信息（课程编号，课程名，任课教师，课程属性，学分，学年，学期，课程性质）；
3.课程成绩表（学号，课程编号，成绩，学年，学分，学期）
4.班级（班级编号，班级名称，毕业标识，专业编号，入学年份，学制，人数）；
5.用户信息表（用户，密码，用户类型）；
各实体及其属性图如下：
学生实体及其属性图3课程信息及其属性图4
课程成绩表及其属性图5
班级信息表及其属性图6
用户信息表及其属性图7
2.4表结构设计
1、学生基本情况管理
学生基本情况主要包括以下内容:
每个学生的学号，姓名,性别，籍贯，民族，出生年月，政治面貌，入学时间，所在班级．通过该班级成绩管理系统实现对每个学生基本情况的添加，修改，删除，查询等操作．即若有学生中途退学或者降级等原因，则需要删除有关该学生的基本信息，若有学生插班，则直接添加该学生的基本信息．有助于班上或者系老师查询每个学生的基本情况．学生基本信息表描述如下:
学生基本信息:
图8
2、学生成绩管理
学生成绩管理主要包括学生的专业课成绩与选修课成绩的管理。
通过该学生成绩管理系统实现对学生成绩的添加、修改、删除、查询、统计等操作.每经过一次考试,通过该系统可以将成绩添加进去;若老师或者学生发现成绩有误，则可以通过对该管理系统对成绩进行修改;若有学生降级或退学,应该及时删去有关该学生的所有成绩;同样也有助于学生查询自己的各科成绩以及自己的平均成绩，也有助于对本班的基本学习情况有个大概的了解，对系上进行推荐优秀、评奖学金等提供了最重要的依据．课程成绩表描述如下:
课程成绩表:
图9
3、学生课程管理
学生课程管理主要包括对学生所学的专业课程与选修课程的管理.随着学生所学课程的增加,通过该系统能方便实现对课程的添加;若中途课程有所变动,则可以对该课程进行修改或删除;若学生或教师要了解有关课程的信息,可以通过查询实现.学生的课程管理描述如下:
课程信息:
图10
4、班级信息
由于本系统适用于班级成绩管理，班级信息比较固定，所以班级信息由管理员在建数据库时添加相关信息
班级信息：
图11
5、本系统用户信息
当该成绩管理系统运行时,每个学生必须通过用户登录才能访问到整个管理系统,否则将会报错,不能正常访问该系统.本系统的用户信息主要包括:
用户登录的用户名,密码.用户信息表描述如下:
用户信息表:
图12
第3章系统各功能模块的详细设计
3.1用户登录
图13
用户登录窗体主要有文本框及命令按钮组成，利用Adodc控件实现程序代码与SQL数据的连接，用户键入用户名称、密码和选择用户类型后点击确定按钮则通过Adodc控件与数据库进行数据的比较，如果存在该用户以及密码正确则会进行系统跳转进入主控制界面，否则会提示用户出错，重新输入用户名和密码，次数上限三次。
默认用户名为admin，默认密码为123456,以及默认用户类型为管理员。
对象的属性值表：
对象名
属性名
属性值
标签框
Name
Label1Label2Label3Label4
Caption
用户名称用户密码用户类型欢迎使用班级成绩系统
命令按钮
Name
CmdOKCmdCacel
Caption
确定取消
表1
窗体代码设计：
PrivateSubCmdCacel_Click（）
UnloadMe
ExitSub
EndSub
PrivateSubcmdOK_Click（）
DimsqlstrAsString
DimmiCountAsInteger
IfCombo1.Text=""Then
MsgBox"请选择用户类型",vbExclamation,"警告"
ExitSub
EndIf
sqlstr="Select*From用户信息表Where用户名='"&UserName.Text&"'and用户类型='"&Trim（Combo1.Text）&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"用户名错误，重新输入",vbExclamation,"警告"
UserName.Text=""
UserName.SetFocus
Else
IfAdodc1.Recordset.Fields（"密码"）=PassWordThen
MDIForm1.Show
修改密码.Adodc1.RecordSource=sqlstr
修改密码.Adodc1.Refresh
UnloadMe
Else
MsgBox"密码错误，重新输入",vbExclamation,"警告"
PassWord.Text=""
PassWord.SetFocus
miCount=miCount+1
IfmiCount=3Then
UnloadMe
EndIf
EndIf
EndIf
EndSub
PrivateSubCmdCancel_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
miCount=0
Combo1.AddItem（"管理员"）
Combo1.AddItem（"学生用户"）
EndSub
3.2主界面控制
图14
主界面负责应用程序的主界面，由它调用其它模块。
本系统的主界面菜单有：
系统管理、学生基本信息、课程基本信息管理、学生成绩管理、帮助、退出。
[系统管理]包含以下子菜单及其功能：
[添加用户]：
为系统添加新用户
[修改密码]：
用户修改登录密码
[学生基本信息管理]包含以下子菜单：
[显示学生基本信息]：
为管理员显示班级所有学生的信息，只能浏览不能做相应更改。
[学生基本信息管理]：
查询、添加、修改、删除具体学生的基本信息
[课程基本信息管理]包含以下子菜单：
[显示课程基本信息]：
为管理员显示所有课程的信息，只能浏览不能做相应的更改
[课程信息管理]：
查询、添加、修改、删除具体专业课程信息
[学生成绩管理]包含以下子菜单：
[课程成绩管理]：
查询、添加、修改、删除学生课程成绩信息
[成绩量化管理]：
为管理员提供班级所有学生的成绩统计信息
[退出]菜单分别为用户提供使用本系统的操作说明及注意事项和退出本系统。
用户只需要点击相应的菜单使可调出对应的系统模块。
窗体代码设计
PrivateSubAdd_Student_Click（）
学生信息管理.Show
EndSub
PrivateSubAdd_User_Click（IndexAsInteger）
添加用户.Show
EndSub
PrivateSubChang_PWD_Click（IndexAsInteger）
修改密码.Show
EndSub
PrivateSubCheck_Student_Click（）
FrmQury.Show
EndSub
PrivateSubExit_sys_Click（）
IfMsgBox（"确定要退出该学生成绩管理系统吗？
",vbOKCancel+vbExclamation,"提示！
"）=vbOKThen
UnloadMe
EndIf
EndSub
PrivateSubgkgl_Click（）
成绩量化管理.Show
EndSub
PrivateSubHelp_Click（）
帮助文件.Show
EndSub
PrivateSubProfession_Grade_Click（）
课程成绩管理.Show
EndSub
PrivateSubProfession_Info_Click（）
课程信息管理.Show
EndSub
PrivateSubShowProf_Click（）
课程信息.Show
EndSub
PrivateSubStudentBasic_Click（）
学生基本信息.Show
EndSub
PrivateSubSystem_Exit_Click（IndexAsInteger）
UnloadMe
EndSub
3.3系统管理
本菜单下完成添加新用户和修改用户密码功能，在添加用户时以登陆系统时的用户类型为准。
这两个功能界面使用同一个数据库中的用户信息表，又有功能上的类似点。
所以Adodc控件与数据库中的用户信息表进行绑定，运行时隐藏此控件。
对象属性值表如下：
添加用户及修改密码
对象名（添加用户）
属性名
设置值
标签框
Caption
Label1：
请输入用户名Label2：
请输入密码Label3请确认密码
Font
楷体、四号
窗体
Caption
添加用户
Font
楷体、四号
对象名（修改密码）
属性名
属性值
标签框
Caption
Label1：
请输入旧密码Label2请输入新密码Label3请确认新密码
Font
楷体、四号
Frame1
Caption
修改密码
Font
楷体、四号
表2
图15
窗体代码设计：
添加用户
PrivateSubCmdCancel_Click（）'单击取消按钮
UnloadMe
EndSub
PrivateSubcmdOK_Click（）
DimsqlstrAsString
IfUserName=""Then
MsgBox"请输入用户名！
",vbExclamation,"确认用户名"
UserName.SetFocus
ExitSub
Else
sqlstr="Select*from用户信息表where用户名='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户名已存在，请重新输入！
",vbExclamation,"检验用户名"
UserName=""
UserName.SetFocus
ExitSub
EndIf
EndIf
IfPassWord<>ConfirmPWDThen
MsgBox"二次输入的密码不一致，请重新输入",vbExclamation,"检验密码"
PassWord="":
ConfirmPWD.Text=""
PassWord.SetFocus
ExitSub
ElseIfPassWord=""Then
MsgBox"密码不能为空！
",vbExclamation,"检验密码"
PassWord.SetFocus
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"用户名"）=Trim（UserName）
Adodc1.Recordset.Fields（"密码"）=Trim（PassWord）
Adodc1.Recordset.Fields（"用户类型"）="管理员"
Adodc1.Recordset.Update
Me.Hide
MsgBox"成功注册新用户！
",vbInformation,"添加用户"
EndIf
EndSub
PrivateSubForm_Load（）
UserName.Text=""
PassWord.Text=""
ConfirmPWD.Text=""
EndSub
修改密码
PrivateSubCmdCancel_Click（）
UnloadMe
EndSub
PrivateSubcmdOK_Click（）
IfTrim（OldPWD.Text）=""Then
MsgBox"请输入旧密码",vbOKOnly+vbExclamation,"警告"
OldPWD.SetFocus
ExitSub
EndIf
IfTrim（NewPWD.Text）=""Then
MsgBox"请输入新密码",vbOKOnly+vbExclamation,"警告"
NewPWD.SetFocus
ExitSub
EndIf
IfTrim（NewPWD.Text）<>Trim（ConfirmPWD.Text）Then
MsgBox"两次密码不同",vbOKOnly+vbExclamation,"警告"
NewPWD.Text=""
OldPWD.Text=""
NewPWD.SetFocus
ExitSub
EndIf
Adodc1.Refresh
Adodc1.Recordset.Fields（"密码"）=NewPWD.Text
Adodc1.Recordset.Update
MsgBox"密码已经修改，请重新登陆",vbOKOnly+vbExclamation,"修改结束"
UnloadMe
UnloadMDIForm1
用户登录.Show
EndSub
PrivateSubForm_Load（）
OldPWD.Text=""
NewPWD.Text=""
ConfirmPWD.Text=""
EndSub
3.4学生信息管理
图16
对象属性值表
控件名
属性
设置值
标签控件
Name
Label1-Label10
Caption
学号，姓名，性别，年龄，籍贯，民族，政治面貌，入学时间，所在班级，联系方式
文本框
DataSource
Text1-Text10
DataField
学号，姓名，性别，年龄，籍贯，民族，政治面貌，入学时间，所在班级，联系方式
Text
空，其他默认
命令按钮
Name
Command1-Command10
Caption
首记录，下一条，上一条，末记录，退出，班级信息，查询，添加，修改，删除
表3
使用两个Adodc控件分别和数据库中的学生基本信息表和班级表绑定，运行时不可见。
如果查询学生的信息则有具体的查询窗口，
图17
对象的属性值表：
控件名
属性
设置值
文本框
Name
Text1，Text2
组合框
Name
Combo1，Combo2
List
Combo1学号，姓名，性别，年龄Combo2学号，姓名，性别，年龄
标签控件
Name
Label1-label2
Caption
请输入查询条件，检索条件
DataGrid1
属性默认
表4
学生基本信息的窗体代码：
PrivateSubCommand1_Click（）
Adodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand10_Click（）
Command8.Enabled=False
Command9.Enabled=False
IfText1.Text=""Then
MsgBox"请你输入要删除的学生的学号！
",vbOKOnly+vbExclamation,"警告！
"
Text1.SetFocus
ExitSub
EndIf
sql="select*from学生基本信息where学号='"&Trim（Text1.Text）&"'"
Adodc3.RecordSource=sql
Adodc3.Refresh
IfAdodc3.Recordset.EOFThen
MsgBox"不存在该学生，请确认之后再删除！
",vbOKOnly+vbExclamation,"警告！
"
Callinit
Text1.SetFocus
ExitSub
EndIf
IfMsgBox（"确定要删除学号为"&Text1.Text&"的所有信息吗？
",vbOKCancel+vbExclamation,"提示！
"）=vbOKThen
Adodc1.Recordset.Delete
MsgBox"该学生的所有信息已经删除！
",vbOKOnly+vbExclamation,"警告！
"
Command8.Enabled=True
Command9.Enabled=True
EndIf
Callinit
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndSub
PrivateSubCommand4_Click（）
Adodc1.Recordset.MoveLast
EndSub
PrivateSubCommand5_Click（）
UnloadMe
EndSub
PrivateSubCommand6_Click（）
DimsqltrAsString
sqltr="select*from班级信息where班级编号='"&Text10.Text&"'"
Adodc2.RecordSource=sqltr
Adodc2.Refresh
SetDataGrid2.DataSource=Adodc2
DataGrid2.ReBind
EndSub
PrivateSubCommand7_Click（）
学生基本信息查询.Show
EndSub
PrivateSubCommand8_Click（）
Command10.Enabled=False
Command9.Enabled=False
IfText1.Text=""Then
MsgBox"请你输入要想添加的学生的学号以及相关的所有信息！
",vbOKOnly+vbExclamation,"警告！
"
Text1.SetFocus
ExitSub
EndIf
sql="select*from学生基本信息where学号='"&Trim（Text1.Text）&"'"
Adodc3.RecordSource=sql
Adodc3.Refresh
IfAdodc3.Recordset.EOF=FalseThen
MsgBox"该学生的记录已经存在，请核实后再添加！
",vbOKOnly+vbExclamation,"警告！
"
Text1.SetFocus
ExitSub
EndIf
IfMs
升级会员 