学生信息管理系统数据库课程设计报告docxWord文件下载.docx
- 文档编号:17933336
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:29
- 大小:177.97KB
学生信息管理系统数据库课程设计报告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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 信息管理 系统 数据库 课程设计 报告 docx