数据库.docx - 冰豆网

资源描述

数据库.docx

《数据库.docx》由会员分享，可在线阅读，更多相关《数据库.docx（43页珍藏版）》请在冰豆网上搜索。

数据库.docx

数据库

《数据库原理》课程实习报告

——学生餐卡管理系统

班级：

06计科三班

学号：

0610101068

姓名：

宋艳

指导教师：

刘倩

设计日期：

2008.12.14~2008.12.23

系统概述

学生餐卡管理系统是每个学校和大型单位所不可缺少的后勤管理系统。

随着计算机的普及，计算机正在应用于我们生活的方方面面，有了计算机我们管理各种信息也变的容易很多。

数据库技术的出现为我们管理各种大型数据打下了基础，利用计算机数据库技术也提高了数据库管理的易用性与安全性。

结合这次数据库实习我们小组五人一起作了这个功能相对简单的学生餐卡管理系统。

这个学生餐卡管理系统也是典型的信息管理系统（MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

经过分析如此情况,我们使用微软公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,进行图形化的管理系统的开发。

数据库方面我们用微软公司的SQLSERVER2000作为数据库工具。

1需求分析

应用背景

餐厅是各个大型单位的重要组成部分，特别是一些学校，由于学校有人员多的特点所以，学生餐卡管理数据库工作就显得繁重和复杂。

所以计算机在这方面的管理中起到了不可替代的作用。

目前，学校学生较多,餐卡的各种信息也在不断增长。

本系统就是要达到对学生日常使用餐卡情况的管理，从而实现管理员对添加新学生、管理员对学生的修改、管理员对毕业学生的删除、管理员对学生信息的查询、管理员对学生充值记录的查询、管理员对学生消费记录的查询、管理员对学生消费的记录、管理院对学生充值的记录、管理员对登入系统的用户的添加、管理员对用户密码的修改、学生对其消费记录的查询、学生对其充值记录的查询等十多个具体功能的实现。

系统需求

数据库需求分析

各个用户的需求具体体现在各种信息的添加、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。

针对此餐卡管理系统的需求，通过对学生学习过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：

（1）管理员登录：

账户、密码、账户类型

（2）学生登录：

账户、密码、账户类型

（3）学生基本信息：

学号、姓名、性别、学院、系别、余额

（4）学生充值信息：

学号、时间、金额

（5）学生消费信息：

学号、时间、金额

2概念结构设计

E-R图：

管理员：

餐卡：

学生：

实体与实体之间的关系E-R图：

数据字典

数据字典是系统中各类数据描述的集合，使进行详细的数据收集和数据分析所获得的主要成果。

数据字典是在需求分析时建立，在数据库设计过程中不断修改、充实、完善的。

数据字典通常包括数据项、数据结构、数据流、数据存储、处理过程五部分。

其中数据项是数据的最小组成单位，若干个数据项可以组成一个数据结构，数据字典通过对数据项和数据结构的定义来描述数据流、数据存储的逻辑内容。

（1）.数据结构和数据项字典

充值表：

本表主要用于给学生餐卡进行充值金钱

列名

数据类型

长度

允许空

学号

char

金额

char

时间

char

主码为学号和时间

学生表：

本表主要用于学生信息的记录和查询

列名

数据类型

长度

允许空

学号

char

姓名

varchar

性别

char

学院

varchar

系别

varchar

余额

char

主码是学号

消费表：

本表主要用于记录学生的消费情况

列名

数据类型

长度

允许空

学号

char

金额

char

时间

char

主码为学号和时间

登录表：

本表主要用于登录用户的查询信息

列名

数据类型

长度

允许空

char

type

bit

主码是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

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

展开阅读全文