学生信息管理系统数据库课程设计报告docxWord文件下载.docx
《学生信息管理系统数据库课程设计报告docxWord文件下载.docx》由会员分享，可在线阅读，更多相关《学生信息管理系统数据库课程设计报告docxWord文件下载.docx（29页珍藏版）》请在冰豆网上搜索。
学生信息的第二层数据流图：
图1.2
班级信息和课程信息的第二层数据流图：
图1.3
学生成绩信息的第二层数据流图:
图1.4
1.3相关的数据：
1）数据项：
学生学号
含义说明：
惟一标识一个学生
别名：
student_ID
类型：
字符型
整型长度：
8
取值含义：
前两位表示入学年份的后两位，第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）
学生性别
Born_Date
Datetime（8）
出生日期
Class_NO
Int（4）
班号
Tele_Number
Varchar（12）
联系电话
Ru_Date
入校时间
Address
Varchar（50）
家庭地址
Comment
Varchar（200）
注释
Class_Info班级信息表格
列名
Class_No
null
班号（主键）
Grade
年级
Director
Char（20）
班主任
Classroom_No
教室
Course_Info课程基本信息表
Course_Name
课程名称（主键）
Course_Type
课程类型
Course_Des
课程描述
Gradecourse_Info年级课程设置表
Course_Name
课程名称
Result_Info学生成绩表
Exam_No
考试类型
学生学号
学生班号
Result
Float（8）
分数
User_Info系统用户表
User_ID
用户名称
User_PWD
用户密码
User_Des
用户描述
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,
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
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,
5.5课程设置表的SQL语句
CREATETABLE[dbo].[gradecourse_Info]（
[course_Name][char]（10）COLLATEChinese_PRC_CI_ASNULL
5.6成绩表的SQL语句
CREATETABLE[dbo].[result_Info]（
[exam_No][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[class_No][int]NULL,
[result][float]NULL
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
密码修改成功！
修改密码"
Me.Hide
EndIf
EndSub
2.学生信息的设置：
用于学生基本信息的查询、修改和添加学生的信息，包括学生的学号、姓名、性别、班号、出生日期、入学年份、家庭住址以及备注。
添加
PrivateSubCommand1_Click（）
DimtxtSQLAsString
DimMsgTextAsString
IfNotTesttxt（txtSID.Text）Then
请输入学号！
txtSID.SetFocus
ExitSub
IfNotTesttxt（txtName.Text）Then
请输入姓名！
txtName.SetFocus
IfNotTesttxt（comboSex.Text）Then
请选择性别！
comboSex.SetFocus
IfNotTesttxt（txtBorndate.Text）Then
请输入出生日期！
txtBorndate.SetFocus
IfNotTesttxt（comboClassNo.Text）Then
请选择班号！
comboClassNo.SetFocus
IfNotTesttxt（txtTel.Text）Then
请输入联系电话！
txtTel.SetFocus
IfNotTesttxt（txtRudate.Text）Then
请输入入校日期！
txtRudate.SetFocus
IfNotTesttxt（txtAddress.Text）Then
请输入家庭住址！
txtAddress.SetFocus
IfNotIsNumeric（Trim（txtSID.Text））Then
请输入数字！
select*fromstudent_Infowherestudent_ID='
Trim（txtSID.Text）&
Ifmrc.EOF=FalseThen
学号重复，请重新输入！
IfNotIsDate（txtBorndate.Text）Then
出生时间应输入日期格式（yyyy-mm-dd）！
txtBorndate=Format（txtBorndate,"
yyyy-mm-dd"
）
IfNotIsDate（txtRudate.Text）Then
入校时间应输入日期格式（yyyy-mm-dd）！
txtRudate=Format（txtRudate,"
select*fromstudent_Info"
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）
添加学籍信息成功！
PrivateSubCommand2_Click（）
PrivateSubForm_Load（）
DimiAsInteger
comboSex.AddItem"
男"
女"
select*fromclass_Info"
Fori=1Tomrc.RecordCount
comboClassNo.AddItemmrc.Fields（0）
mrc.MoveNext
Nexti
PrivateSubtxtComment_Change（）
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
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
什么都没有修改，有什么好取消的！
PrivateSubdeleteCommand_Click（）
myBookmark=mrc.Bookmark
str2$=MsgBox（"
是否删除当前记录？
vbOKCancel,"
删除当前记录"
Ifstr2$=vbOKThen
Ifmrc.EOFThen
mrc.MoveFirst
mrc.MoveLast
mrc.Delete
mrc.MovePrevious
mrc.Bookmark
升级会员 