数据库.docx
- 文档编号:2895230
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:43
- 大小:873.84KB
数据库.docx
《数据库.docx》由会员分享,可在线阅读,更多相关《数据库.docx(43页珍藏版)》请在冰豆网上搜索。
数据库
《数据库原理》课程实习报告
——学生餐卡管理系统
班级:
06计科三班
学号:
0610101068
姓名:
宋艳
指导教师:
刘倩
设计日期:
2008.12.14~2008.12.23
系统概述
学生餐卡管理系统是每个学校和大型单位所不可缺少的后勤管理系统。
随着计算机的普及,计算机正在应用于我们生活的方方面面,有了计算机我们管理各种信息也变的容易很多。
数据库技术的出现为我们管理各种大型数据打下了基础,利用计算机数据库技术也提高了数据库管理的易用性与安全性。
结合这次数据库实习我们小组五人一起作了这个功能相对简单的学生餐卡管理系统。
这个学生餐卡管理系统也是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
经过分析如此情况,我们使用微软公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,进行图形化的管理系统的开发。
数据库方面我们用微软公司的SQLSERVER2000作为数据库工具。
1需求分析
应用背景
餐厅是各个大型单位的重要组成部分,特别是一些学校,由于学校有人员多的特点所以,学生餐卡管理数据库工作就显得繁重和复杂。
所以计算机在这方面的管理中起到了不可替代的作用。
目前,学校学生较多,餐卡的各种信息也在不断增长。
本系统就是要达到对学生日常使用餐卡情况的管理,从而实现管理员对添加新学生、管理员对学生的修改、管理员对毕业学生的删除、管理员对学生信息的查询、管理员对学生充值记录的查询、管理员对学生消费记录的查询、管理员对学生消费的记录、管理院对学生充值的记录、管理员对登入系统的用户的添加、管理员对用户密码的修改、学生对其消费记录的查询、学生对其充值记录的查询等十多个具体功能的实现。
系统需求
数据库需求分析
各个用户的需求具体体现在各种信息的添加、更新和查询,这就要求数据库结构能充分满足各种信息的输出和输入。
针对此餐卡管理系统的需求,通过对学生学习过程的内容和数据流程分析,设计如下面所示的数据项和数据结构:
(1)管理员登录:
账户、密码、账户类型
(2)学生登录:
账户、密码、账户类型
(3)学生基本信息:
学号、姓名、性别、学院、系别、余额
(4)学生充值信息:
学号、时间、金额
(5)学生消费信息:
学号、时间、金额
2概念结构设计
E-R图:
管理员:
餐卡:
学生:
实体与实体之间的关系E-R图:
数据字典
数据字典是系统中各类数据描述的集合,使进行详细的数据收集和数据分析所获得的主要成果。
数据字典是在需求分析时建立,在数据库设计过程中不断修改、充实、完善的。
数据字典通常包括数据项、数据结构、数据流、数据存储、处理过程五部分。
其中数据项是数据的最小组成单位,若干个数据项可以组成一个数据结构,数据字典通过对数据项和数据结构的定义来描述数据流、数据存储的逻辑内容。
(1).数据结构和数据项字典
充值表:
本表主要用于给学生餐卡进行充值金钱
列名
数据类型
长度
允许空
学号
char
10
金额
char
10
时间
char
10
主码为学号和时间
学生表:
本表主要用于学生信息的记录和查询
列名
数据类型
长度
允许空
学号
char
10
姓名
varchar
50
性别
char
10
学院
varchar
50
系别
varchar
50
余额
char
10
主码是学号
消费表:
本表主要用于记录学生的消费情况
列名
数据类型
长度
允许空
学号
char
10
金额
char
8
时间
char
20
主码为学号和时间
登录表:
本表主要用于登录用户的查询信息
列名
数据类型
长度
允许空
id
char
10
pd
char
10
type
bit
1
主码是id
(2).数据流字典
名称
说明
位置
定义
登陆验证
验证ID号,合法用户可以登陆
管理员→管理员
持卡者→学生
登陆验证=
用户名,密码
验证结果
是否为合法用户,并验证以何种身份进入窗口
管理员→管理员
学生→持卡者
验证结果=
登陆成功,无此用户名,密码错误
查询信息
持餐卡者可查看个人信息;管理员可查看所有情况
学生个人消费信息,
所有学生的充值和消费信息,学生信息
查询信息=
查询个人信息,查询所有信息
添加信息
只有管理员才能进行添加信息
添加学生信息,添加餐卡用户信息
添加信息=
添加学生信息,添加餐卡用户信息
修改信息
管理员和持卡者都可以进行修改
修改学生登录密码,修改学生信息
修改信息=
修改学生登录密码,修改学生信息
删除信息
只有管理员才能进行删除信息
删除学生信息
删除信息=删除学生信息
(3).数据存储字典
名称
说明
输入
输出
管理员信息
有管理员进行维护
管理员
管理员
学生信息
有管理员进行维护
管理员
管理员
餐卡消费信息
有管理员进行维护,学生进行查看
管理员
管理员,学生
餐卡充值信息
有管理员进行维护,学生可进行查看
管理员
管理员,学生
数据流程图
管理员学生管理:
管理员查询学生信息:
管理员管理餐卡:
管理员用户管理:
学生信息查询:
3逻辑结构设计
系统功能分析
系统开发的总体任务是实现学生餐卡信息关系的系统化、规范化。
本系统需要完成的功能主要有:
(1)管理员对添加新学生:
学号、姓名、性别、学院、系别、余额
(2)管理员对学生的修改:
学号、姓名、性别、学院、系别、余额
(3)管理员对毕业学生的删除:
学号、姓名、性别、学院、系别、余额
(4)管理员对学生信息的查询:
学号、姓名、性别、学院、系别、余额
(5)管理员对学生充值记录的查询:
学号、时间、金额
(6)管理员对学生消费记录的查询:
学号、时间、金额
(7)管理员对学生消费的记录:
学号、时间、金额
(8)管理院对学生充值的记录:
学号、时间、金额
(9)管理员对登入系统的用户的添加(伴随添加新学生一起添加):
id(学号)、pd(密码)、type(账户类型)
(10)管理员对用户密码的修改:
id(学号)、pd(密码)、type(账户类型)
(11)学生对其消费记录的查询:
学号、时间、金额
(12)学生对其充值记录的查询:
学号、时间、金额
本系统结构图:
4实施阶段:
登录界面:
学生登录:
确定按钮的代码:
PrivateSubok_Click()
DimrsAsNewADODB.Recordset
Dimsql1AsString
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空,请重新输入!
",,""
Text1.SetFocus
Else
sql1="select*from登录表whereid='"&Trim(Text1.Text)&"'andtype='"&combo1.ListIndex&"'"
Setrs=ExecuteSQL(sql1)
Ifrs.EOF=TrueThen
MsgBox"没有此用户,请重新输入!
",vbOKOnly+vbExclamation,""
Text1.Text=""
Text1.SetFocus
Else
IfTrim(rs.Fields
(1))=Trim(Text2.Text)Then
Me.Hide
Ifcombo1.Text="学生"Then
学生查询.Show
Else
餐卡管理.Show
EndIf
Else
MsgBox"密码不正确,请重新输入!
",vbOKOnly+vbExclamation,""
Text2.Text=""
Text2.SetFocus
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
EndSub
取消按钮的代码:
PrivateSubcancle_Click()
UnloadMe
EndSub
学生可登录界面后可进行有关学生自己的消费和充值信息,以及余额的查询
消费记录的代码:
PrivateSubCommand2_Click()
DataGrid1.Visible=False
DataGrid2.Visible=True
EndSub
充值记录的代码:
PrivateSubCommand3_Click()
DataGrid2.Visible=False
DataGrid1.Visible=True
EndSub
查询余额的代码:
PrivateSubCommand1_Click()
DimSQLAsString
SQL="select余额from学生表where学号='"&登录.Text1&"'"
Dimrs1AsNewADODB.Recordset
Setrs1=ExecuteSQL(SQL)
Text1.Text=rs1.Fields(0)
EndSub
管理员登录:
管理员登录后可以对所有信息的查询及修改。
在学生管理里可以进行添加学生信息的功能
也即添加学生可以任意添加学生信息:
添加按钮的代码:
PrivateSubCommand1_Click()
Dimrs_addxsAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimSQLAsString
IfTrim(Text1.Text)=""Then
MsgBox"学号不能为空",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"姓名不能为空",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
IfTrim(combo1.Text)=""Then
MsgBox"请选学生性别",vbOKOnly+vbExclamation,""
combo1.SetFocus
ExitSub
EndIf
IfTrim(Text4.Text)=""Then
MsgBox"学院不能为空",vbOKOnly+vbExclamation,""
Text4.SetFocus
ExitSub
EndIf
IfTrim(Text5.Text)=""Then
MsgBox"系别不能为空",vbOKOnly+vbExclamation,""
Text5.SetFocus
ExitSub
EndIf
IfTrim(Text3.Text)=""Then
MsgBox"余额不能为空",vbOKOnly
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库