学生信息管理系统数据库课程设计报告.docx
- 文档编号:2657252
- 上传时间:2023-05-04
- 格式:DOCX
- 页数:49
- 大小:2.60MB
学生信息管理系统数据库课程设计报告.docx
《学生信息管理系统数据库课程设计报告.docx》由会员分享,可在线阅读,更多相关《学生信息管理系统数据库课程设计报告.docx(49页珍藏版)》请在冰点文库上搜索。
学生信息管理系统数据库课程设计报告
成绩
数据库原理与应用
课程设计报告
设计题目:
图书管理系统
学生姓名
朱圣尧
学号
20080508135
专业名称
08计应专
日期
2010.12.22
设计名称:
学生信息管理系统
设计内容:
设计一个学生信息管理系统
设计目的与要求:
采用VB和SQLServer设计一个学生管理系统,并使系统达到以下功能:
(1)大大提高学校管理的运作效率;
(2)快捷,有效的处理学生的各种信息,通过全面的信息采集和处理,辅助提高管理水平;
(3)使用本系统,可以迅速提升学生的管理水平,为提高效益,方便用户查询,提供有效的技术保障。
设计环境或器材、原理与说明:
前台开发工具:
VasualBasic6.0
后台数据库工具:
SQLServer2000
设计过程(步骤)或程序代码:
1需求分析
1.1相关功能要求:
1)添加:
可以添加学生学籍信息、课程信息、班级信息、成绩信息
2)查询:
可以查询学生学籍信息、课程信息、班级信息、成绩信息
3)修改:
可以修改学生学籍信息、课程信息、班级信息、成绩信息
1.2数据流图:
学生信息管理的第一层数据流图:
图1.1
学生信息的第二层数据流图:
图1.2
班级信息和课程信息的第二层数据流图:
图1.3
学生成绩信息的第二层数据流图:
图1.4
1.3相关的数据:
1)数据项:
学生学号
含义说明:
惟一标识一个学生
别名:
student_ID
类型:
字符型
整型长度:
8
取值范围:
00000000-99999999
取值含义:
前两位表示入学年份的后两位,第3、4位表示学院代号,第5、6位表示专业代号,最后两位表示报到序号
2)数据结构:
学生
含义说明:
定义了一个描述学生的信息结构
组成:
学生编号、学生姓名、学生性别、出生年月、班级编号、电话号码、入学日期、家庭住址
数据结构:
课程
含义说明:
定义了一个描述课程的信息结构
组成:
课程编号、课程名称、课程类型
数据结构:
班级
含义:
定义了一个描述班级的信息
组成:
班级编号、班级所属的年级、班主任、教室
数据结构:
成绩
含义:
定义了一个描述成绩的信息
组成:
成绩总评、课程名称、考试成绩
3)数据流:
成绩管理信息
说明:
表示学生与课程的关系
数据流来源:
学生信息表、课程信息表
数据流去向:
成绩信息表
组成:
学生编号、课程编号
数据流:
课程安排信息
说明:
表示年级和课程的关系
数据流来源:
班级信息表、课程信息表
数据流去向:
课程安排表
组成:
年级、课程名称
4)数据存储:
班级信息表、课程信息表、课程安排表、成绩信息表、学生学籍信息表
说明:
记录学生、班级、成绩、课程的情况
流入数据流:
学籍管理信息、课程管理信息、班级管理信息
流出数据流:
课程安排信息、成绩管理信息
组成:
学生编号、学生姓名、课程名称、班级编号、考试成绩、年级
存取方式:
随即存取
5)处理过程:
添加、修改、删除学生学籍信息、课程信息、班级信息、成绩信息
说明:
完成学籍、课程、班级、成绩的各种操作
输入:
学生编号、班级编号、、课程名称、
输出:
学生学籍信息、课程信息、班级信息、成绩信息的添加、删除、修改结果
处理:
如果有新生入学,就要进行学生各种信息的添加;如果有毕业生离校,就要对学生的各种信息进行删除;如果某个学生的信息需要修改,则对其相应的信息进行修改
2概念结构设计
1)学生实体E_R图:
2)班级实体E_R图:
3)课程实体E_R图:
4)年级实体E_R图:
5)成绩实体E_R图:
6)实体和实体之间的E_R图:
3.逻辑结构设计
现在需要将上面的数据库概念结构转化为SQLServer2000数据库系统所支持的实际数据模型,也就是数据库的逻辑结构。
在上面的实体以及实体之间关系的基础上,形成数据库中的表格以及各个表格之间的关系。
Student__Info学生信息表
列名
数据类型
可否为空
说明
Student_ID
int(4)
Notnull
学生学号(主键)
Student_Name
Char(10)
Null
学生姓名
Stdent_Sex
Char
(2)
Null
学生性别
Born_Date
Datetime(8)
Null
出生日期
Class_NO
Int(4)
Null
班号
Tele_Number
Varchar(12)
Null
联系电话
Ru_Date
Datetime(8)
Null
入校时间
Address
Varchar(50)
Null
家庭地址
Comment
Varchar(200)
Null
注释
Class_Info班级信息表格
列名
数据类型
可否为空
说明
Class_No
Int(4)
null
班号(主键)
Grade
Char(10)
Null
年级
Director
Char(20)
Null
班主任
Classroom_No
Char(10)
Null
教室
Course_Info课程基本信息表
列名
数据类型
可否为空
说明
Course_Name
Char(10)
Notnull
课程名称(主键)
Course_Type
Char(10)
Null
课程类型
Course_Des
Char(20)
Null
课程描述
Gradecourse_Info年级课程设置表
列名
数据类型
可否为空
说明
Grade
Char(10)
null
年级
Course_Name
Char(10)
Null
课程名称
Result_Info学生成绩表
列名
数据类型
可否为空
说明
Exam_No
Char(10)
null
考试类型
Student_ID
Int(4)
Null
学生学号
Student_Name
Char(10)
Null
学生姓名
Class_No
Int(4)
Null
学生班号
Course_Name
Char(10)
Null
课程名称
Result
Float(8)
Null
分数
User_Info系统用户表
列名
数据类型
可否为空
说明
User_ID
Char(10)
null
用户名称
User_PWD
Char(10)
Null
用户密码
User_Des
Char(10)
Null
用户描述
4物理结构的设计
建立的索引
建立的约束关系
5.数据库的实施
5.1用户表的SQL语句
CREATETABLE[dbo].[user_Info](
[user_ID][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,
[user_PWD][char](10)COLLATEChinese_PRC_CI_ASNULL,
[user_Des][char](10)COLLATEChinese_PRC_CI_ASNULL
)ON[PRIMARY]
5.2学生表的SQL语句
CREATETABLE[dbo].[student_Info](
[student_ID][int]NOTNULL,
[student_Name][char](10)COLLATEChinese_PRC_CI_ASNULL,
[student_Sex][char]
(2)COLLATEChinese_PRC_CI_ASNULL,
[born_Date][datetime]NULL,
[class_NO][int]NULL,
[tele_Number][char](10)COLLATEChinese_PRC_CI_ASNULL,
[ru_Date][datetime]NULL,
[address][varchar](50)COLLATEChinese_PRC_CI_ASNULL,
)ON[PRIMARY]
5.3班级表的SQL语句
CREATETABLE[dbo].[class_Info](
[class_No][int]NOTNULL,
[grade][char](10)COLLATEChinese_PRC_CI_ASNULL,
[director][char](10)COLLATEChinese_PRC_CI_ASNULL,
[classroom_No][char](10)COLLATEChinese_PRC_CI_ASNULL
)ON[PRIMARY]
5.4课程表的SQL语句
CREATETABLE[dbo].[course_Info](
[course_No][int]NOTNULL,
[course_Name][char](10)COLLATEChinese_PRC_CI_ASNULL,
[course_Type][char](10)COLLATEChinese_PRC_CI_ASNULL,
)ON[PRIMARY]
5.5课程设置表的SQL语句
CREATETABLE[dbo].[gradecourse_Info](
[grade][char](10)COLLATEChinese_PRC_CI_ASNULL,
[course_Name][char](10)COLLATEChinese_PRC_CI_ASNULL
)ON[PRIMARY]
5.6成绩表的SQL语句
CREATETABLE[dbo].[result_Info](
[exam_No][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,
[student_ID][int]NOTNULL,
[student_Name][char](10)COLLATEChinese_PRC_CI_ASNULL,
[class_No][int]NULL,
[course_Name][char](10)COLLATEChinese_PRC_CI_ASNULL,
[result][float]NULL
)ON[PRIMARY]
5.7写进相关数据
5.71建立用户表
5.72建立学生信息表
5.73建立班级信息表
5.73建立课程信息表
5.74建立课程设置表
5.75建立成绩表
5.8VB模块中与SQLSever2000连接的关键代码
ConnectString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=Student;datasource="
5.9关系图
6详细设计
6.1学生信息管理系统功能
学生信息管理系统实现的功能:
管理员登陆与修改密码,学生信息的添加、删除与修改,班级信息的添加,修改,课程的设置、添加,成绩的纪录、修改与删除,以及对学生的各个信息的查询。
6.2功能模块的实现(VB代码)
1.用户登录的设置:
用于设置用户的基本信息,包括用户名和密码(修改)以及用户的退出。
修改
PrivateSubcmdCancel_Click()
UnloadMe
EndSub
PrivateSubcmdOK_Click()
DimtxtSQL,MsgTextAsString
DimmrcAsADODB.Recordset
IfTrim(Text1
(1).Text)<>Trim(Text1
(2).Text)Then
MsgBox"密码输入不正确!
",vbOKOnly+vbExclamation,"警告"
Text1
(1).SetFocus
Text1
(1).Text=""
Else
txtSQL="select*fromuser_Infowhereuser_ID='"&UserName&"'"
Setmrc=ExecuteSQL(txtSQL,MsgText)
mrc.Fields
(1)=Text1
(1).Text
mrc.Update
mrc.Close
MsgBox"密码修改成功!
",vbOKOnly+vbExclamation,"修改密码"
Me.Hide
EndIf
EndSub
2.学生信息的设置:
用于学生基本信息的查询、修改和添加学生的信息,包括学生的学号、姓名、性别、班号、出生日期、入学年份、家庭住址以及备注。
添加
PrivateSubCommand1_Click()
DimmrcAsADODB.Recordset
DimtxtSQLAsString
DimMsgTextAsString
IfNotTesttxt(txtSID.Text)Then
MsgBox"请输入学号!
",vbOKOnly+vbExclamation,"警告"
txtSID.SetFocus
ExitSub
EndIf
IfNotTesttxt(txtName.Text)Then
MsgBox"请输入姓名!
",vbOKOnly+vbExclamation,"警告"
txtName.SetFocus
ExitSub
EndIf
IfNotTesttxt(comboSex.Text)Then
MsgBox"请选择性别!
",vbOKOnly+vbExclamation,"警告"
comboSex.SetFocus
ExitSub
EndIf
IfNotTesttxt(txtBorndate.Text)Then
MsgBox"请输入出生日期!
",vbOKOnly+vbExclamation,"警告"
txtBorndate.SetFocus
ExitSub
EndIf
IfNotTesttxt(comboClassNo.Text)Then
MsgBox"请选择班号!
",vbOKOnly+vbExclamation,"警告"
comboClassNo.SetFocus
ExitSub
EndIf
IfNotTesttxt(txtTel.Text)Then
MsgBox"请输入联系电话!
",vbOKOnly+vbExclamation,"警告"
txtTel.SetFocus
ExitSub
EndIf
IfNotTesttxt(txtRudate.Text)Then
MsgBox"请输入入校日期!
",vbOKOnly+vbExclamation,"警告"
txtRudate.SetFocus
ExitSub
EndIf
IfNotTesttxt(txtAddress.Text)Then
MsgBox"请输入家庭住址!
",vbOKOnly+vbExclamation,"警告"
txtAddress.SetFocus
ExitSub
EndIf
IfNotIsNumeric(Trim(txtSID.Text))Then
MsgBox"请输入数字!
",vbOKOnly+vbExclamation,"警告"
ExitSub
txtSID.SetFocus
EndIf
txtSQL="select*fromstudent_Infowherestudent_ID='"&Trim(txtSID.Text)&"'"
Setmrc=ExecuteSQL(txtSQL,MsgText)
Ifmrc.EOF=FalseThen
MsgBox"学号重复,请重新输入!
",vbOKOnly+vbExclamation,"警告"
mrc.Close
txtSID.SetFocus
Else
mrc.Close
IfNotIsDate(txtBorndate.Text)Then
MsgBox"出生时间应输入日期格式(yyyy-mm-dd)!
",vbOKOnly+vbExclamation,"警告"
txtBorndate.SetFocus
Else
txtBorndate=Format(txtBorndate,"yyyy-mm-dd")
IfNotIsDate(txtRudate.Text)Then
MsgBox"入校时间应输入日期格式(yyyy-mm-dd)!
",vbOKOnly+vbExclamation,"警告"
txtRudate.SetFocus
Else
txtRudate=Format(txtRudate,"yyyy-mm-dd")
txtSQL="select*fromstudent_Info"
Setmrc=ExecuteSQL(txtSQL,MsgText)
mrc.AddNew
mrc.Fields(0)=Trim(txtSID.Text)
mrc.Fields
(1)=Trim(txtName.Text)
mrc.Fields
(2)=Trim(comboSex.Text)
mrc.Fields(3)=Trim(txtBorndate.Text)
mrc.Fields(4)=Trim(comboClassNo.Text)
mrc.Fields(5)=Trim(txtTel.Text)
mrc.Fields(6)=Trim(txtRudate.Text)
mrc.Fields(7)=Trim(txtAddress.Text)
mrc.Update
MsgBox"添加学籍信息成功!
",vbOKOnly+vbExclamation,"警告"
mrc.Close
Me.Hide
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
DimmrcAsADODB.Recordset
DimtxtSQLAsString
DimMsgTextAsString
DimiAsInteger
comboSex.AddItem"男"
comboSex.AddItem"女"
txtSQL="select*fromclass_Info"
Setmrc=ExecuteSQL(txtSQL,MsgText)
Fori=1Tomrc.RecordCount
comboClassNo.AddItemmrc.Fields(0)
mrc.MoveNext
Nexti
mrc.Close
EndSub
PrivateSubtxtComment_Change()
EndSub
修改
DimmrcAsADODB.Recordset
DimmyBookmarkAsVariant
DimmccleanAsBoolean
PrivateSubeditCommand_Click()
mcclean=False
Frame2.Enabled=False
firstCommand.Enabled=False
previousCommand.Enabled=False
nextCommand.Enabled=False
lastCommand.Enabled=False
txtSID.Enabled=True
txtName.Enabled=True
comboSex.Enabled=True
txtBorndate.Enabled=True
comboClassNo.Enabled=True
txtRudate.Enabled=True
txtTel.Enabled=True
txtAddress.Enabled=True
EndSub
PrivateSubcancelCommand_Click()
IfNotmccleanThen
Frame2.Enabled=True
firstCommand.Enabled=True
previousCommand.Enabled=True
nextCommand.Enabled=True
lastCommand.Enabled=True
txtSID.Enabled=False
txtName.Enabled=False
comboSex.Enabled=False
txtBorndate.Enabled=False
comboClassNo.Enabled=False
txtRudate.Enabled=False
txtTel.Enabled=False
txtAddress.Enabled=False
mrc.Bookmark=myBookmark
CallviewData
Else
MsgBox"什么都没有修改,有什么好取消的!
",vbOKOnly+vbExclamation,"警告"
EndIf
EndSub
PrivateSubdeleteCommand_Click()
myBookmark=mrc.Bookmark
str2$=MsgBox("是否删除当前记录?
",vbOKCancel,"删除当前记录")
Ifstr2$=vbOKThen
mrc.MoveNext
Ifmrc.EOFThen
mrc.MoveFirst
myBookmark=mrc.Bookmark
mrc.MoveLast
mrc.Delete
mrc.Boo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 信息管理 系统 数据库 课程设计 报告