数据库课设报告班级成绩管理系统Word文档下载推荐.docx
- 文档编号:17230903
- 上传时间:2022-11-29
- 格式:DOCX
- 页数:50
- 大小:811.39KB
数据库课设报告班级成绩管理系统Word文档下载推荐.docx
《数据库课设报告班级成绩管理系统Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《数据库课设报告班级成绩管理系统Word文档下载推荐.docx(50页珍藏版)》请在冰豆网上搜索。
要求能够查询统计学生的信息,通过调研,学生成绩管理系统主要包括本班的每一位学生在校期间的基本情况与课程成绩汇总。
主要包括课程管理、成绩管理、具体的查询等。
本系统还提供学生相关的基本信息统计、汇总、查询,这样便于辅助班级学委的学生管理工作,提高管理效率。
系统的主要功能性能描述如下:
(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
用户名称用户密码用户类型欢迎使用班级成绩系统
命令按钮
CmdOKCmdCacel
确定取消
表1
窗体代码设计:
PrivateSubCmdCacel_Click()
UnloadMe
ExitSub
EndSub
PrivateSubcmdOK_Click()
DimsqlstrAsString
DimmiCountAsInteger
IfCombo1.Text="
"
Then
MsgBox"
请选择用户类型"
vbExclamation,"
警告"
EndIf
sqlstr="
Select*From用户信息表Where用户名='
&
UserName.Text&
"
'
and用户类型='
Trim(Combo1.Text)&
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
用户名错误,重新输入"
UserName.Text="
UserName.SetFocus
Else
IfAdodc1.Recordset.Fields("
密码"
)=PassWordThen
MDIForm1.Show
修改密码.Adodc1.RecordSource=sqlstr
修改密码.Adodc1.Refresh
UnloadMe
Else
密码错误,重新输入"
PassWord.Text="
PassWord.SetFocus
miCount=miCount+1
IfmiCount=3Then
EndIf
PrivateSubCmdCancel_Click()
PrivateSubForm_Load()
miCount=0
Combo1.AddItem("
管理员"
)
学生用户"
3.2主界面控制
图14
主界面负责应用程序的主界面,由它调用其它模块。
本系统的主界面菜单有:
系统管理、学生基本信息、课程基本信息管理、学生成绩管理、帮助、退出。
[系统管理]包含以下子菜单及其功能:
[添加用户]:
为系统添加新用户
[修改密码]:
用户修改登录密码
[学生基本信息管理]包含以下子菜单:
[显示学生基本信息]:
为管理员显示班级所有学生的信息,只能浏览不能做相应更改。
[学生基本信息管理]:
查询、添加、修改、删除具体学生的基本信息
[课程基本信息管理]包含以下子菜单:
[显示课程基本信息]:
为管理员显示所有课程的信息,只能浏览不能做相应的更改
[课程信息管理]:
查询、添加、修改、删除具体专业课程信息
[学生成绩管理]包含以下子菜单:
[课程成绩管理]:
查询、添加、修改、删除学生课程成绩信息
[成绩量化管理]:
为管理员提供班级所有学生的成绩统计信息
[退出]菜单分别为用户提供使用本系统的操作说明及注意事项和退出本系统。
用户只需要点击相应的菜单使可调出对应的系统模块。
窗体代码设计
PrivateSubAdd_Student_Click()
学生信息管理.Show
PrivateSubAdd_User_Click(IndexAsInteger)
添加用户.Show
PrivateSubChang_PWD_Click(IndexAsInteger)
修改密码.Show
PrivateSubCheck_Student_Click()
FrmQury.Show
PrivateSubExit_sys_Click()
IfMsgBox("
确定要退出该学生成绩管理系统吗?
vbOKCancel+vbExclamation,"
提示!
)=vbOKThen
PrivateSubgkgl_Click()
成绩量化管理.Show
PrivateSubHelp_Click()
帮助文件.Show
PrivateSubProfession_Grade_Click()
课程成绩管理.Show
PrivateSubProfession_Info_Click()
课程信息管理.Show
PrivateSubShowProf_Click()
课程信息.Show
PrivateSubStudentBasic_Click()
学生基本信息.Show
PrivateSubSystem_Exit_Click(IndexAsInteger)
3.3系统管理
本菜单下完成添加新用户和修改用户密码功能,在添加用户时以登陆系统时的用户类型为准。
这两个功能界面使用同一个数据库中的用户信息表,又有功能上的类似点。
所以Adodc控件与数据库中的用户信息表进行绑定,运行时隐藏此控件。
对象属性值表如下:
添加用户及修改密码
对象名(添加用户)
设置值
Label1:
请输入用户名Label2:
请输入密码Label3请确认密码
Font
楷体、四号
窗体
添加用户
对象名(修改密码)
请输入旧密码Label2请输入新密码Label3请确认新密码
Frame1
修改密码
表2
图15
PrivateSubCmdCancel_Click()'
单击取消按钮
IfUserName="
请输入用户名!
确认用户名"
UserName.SetFocus
ExitSub
sqlstr="
Select*from用户信息表where用户名='
Text1&
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
用户名已存在,请重新输入!
检验用户名"
UserName="
IfPassWord<
>
ConfirmPWDThen
二次输入的密码不一致,请重新输入"
检验密码"
PassWord="
:
ConfirmPWD.Text="
PassWord.SetFocus
ElseIfPassWord="
密码不能为空!
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("
用户名"
)=Trim(UserName)
)=Trim(PassWord)
用户类型"
)="
Adodc1.Recordset.Update
Me.Hide
成功注册新用户!
vbInformation,"
添加用户"
UserName.Text="
ConfirmPWD.Text="
IfTrim(OldPWD.Text)="
请输入旧密码"
vbOKOnly+vbExclamation,"
OldPWD.SetFocus
IfTrim(NewPWD.Text)="
请输入新密码"
NewPWD.SetFocus
IfTrim(NewPWD.Text)<
Trim(ConfirmPWD.Text)Then
两次密码不同"
NewPWD.Text="
OldPWD.Text="
)=NewPWD.Text
密码已经修改,请重新登陆"
修改结束"
UnloadMDIForm1
用户登录.Show
OldPWD.Text="
NewPWD.Text="
3.4学生信息管理
图16
对象属性值表
控件名
属性
标签控件
Label1-Label10
学号,姓名,性别,年龄,籍贯,民族,政治面貌,入学时间,所在班级,联系方式
文本框
DataSource
Text1-Text10
DataField
Text
空,其他默认
Command1-Command10
首记录,下一条,上一条,末记录,退出,班级信息,查询,添加,修改,删除
表3
使用两个Adodc控件分别和数据库中的学生基本信息表和班级表绑定,运行时不可见。
如果查询学生的信息则有具体的查询窗口,
图17
Text1,Text2
组合框
Combo1,Combo2
List
Combo1学号,姓名,性别,年龄Combo2学号,姓名,性别,年龄
Label1-label2
请输入查询条件,检索条件
DataGrid1
属性默认
表4
学生基本信息的窗体代码:
PrivateSubCommand1_Click()
Adodc1.Recordset.MoveFirst
PrivateSubCommand10_Click()
Command8.Enabled=False
Command9.Enabled=False
IfText1.Text="
请你输入要删除的学生的学号!
警告!
Text1.SetFocus
sql="
select*from学生基本信息where学号='
Trim(Text1.Text)&
Adodc3.RecordSource=sql
Adodc3.Refresh
IfAdodc3.Recordset.EOFThen
不存在该学生,请确认之后再删除!
Callinit
IfMsgBox("
确定要删除学号为"
Text1.Text&
的所有信息吗?
Adodc1.Recordset.Delete
该学生的所有信息已经删除!
Command8.Enabled=True
Command9.Enabled=True
PrivateSubCommand2_Click()
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
PrivateSubCommand3_Click()
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
PrivateSubCommand4_Click()
Adodc1.Recordset.MoveLast
PrivateSubCommand5_Click()
PrivateSubCommand6_Click()
DimsqltrAsString
sqltr="
select*from班级信息where班级编号='
Text10.Text&
Adodc2.RecordSource=sqltr
Adodc2.Refresh
SetDataGrid2.DataSource=Adodc2
DataGrid2.ReBind
PrivateSubCommand7_Click()
学生基本信息查询.Show
PrivateSubCommand8_Click()
Command10.Enabled=False
IfText1.Text="
请你输入要想添加的学生的学号以及相关的所有信息!
select*from学生基本信息where学号='
IfAdodc3.Recordset.EOF=FalseThen
该学生的记录已经存在,请核实后再添加!
IfMs
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库课设报告 班级成绩管理系统 数据库 报告 班级 成绩管理系统