图书管理系统数据库Word文档下载推荐.docx

图书管理系统数据库Word文档下载推荐.docx

《图书管理系统数据库Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《图书管理系统数据库Word文档下载推荐.docx（19页珍藏版）》请在冰豆网上搜索。

◆图书：

用于描述课程的基本信息，用图书编号标识.

◆学生:

用于描述学生的基本信息,用学号标识。

◆管理员：

用于描述管理员的基本信息，用管理员编号标识.

由于一名学生可以借阅多本图书，并且一本书可以在不同时间借给不同的学生。

因此，学生与图书之间是多对多的联系。

又由于一本图书可以由多名管理员管理，而且一名管理员可以管理多本图书。

因此，管理员与图书之间也是多对多的联系.

其基本E—R模型如图1所示：

mnmn

根据需求分析的结果，该E-R模型模型中个实体所包含的属性如下：

◆学生：

姓名，学号，学院，专业,年级。

图书名称，图书编号，出版社名称,出版日期,作者,是否可借。

各联系本身应具有的属性为：

◆借阅：

学号，图书编号,图书名称，借阅日期，应归还日期.

◆管理:

管理日期，管理员编号，管理员姓名。

2逻辑结果设计

这个E-R模型转换出的关系模式如下，其中主码用下划线标识：

◆学生（学号，姓名，学院，专业，年级）

◆图书（图书编号,图书名称，出版社名称，出版日期，作者，是否可借）

◆管理员（管理员编号,管理员姓名）

◆借阅（学号，图书标号，图书名称，借阅日期,应归还日期），其中图书编号为引用“图书"

关系模式的外码；

学号为引用“学生"

关系模式的外码。

◆管理（管理日期，管理员编号,管理员姓名），其中管理员编号为引用“管理员”关系模式的外码.

（1）确定各管是模式是否属于第三范式

经过分析发现，“学生”、“图书”、“管理员”、“借阅”和“管理”5个关系模式中，都不存在部分依赖和传递依赖关系，因此都属于第三范式。

（2）确定信息的完整性

该教学管理系统要产生：

学生借阅图书信息、图书管理2个报表，分别分析如下：

◆“学生借阅图书信息表”包括学号、图书编号、图书名称、借阅日期、应归还日期。

其中“学号”可由“学生”关系模式得到,“图书编号”、“图书名称"

、“借阅日期”、“应归还日期"

可由“借阅"

关系模式得到，因此可以满足学生借阅图书信息表的要求。

◆“图书管理表”包括管理日期、管理员编号、管理员姓名。

其中“管理日期"

可由“管理”关系模式得到,“管理员编号”,“管理员姓名”可由“管理员"

关系模式得到。

因此，所有关系模式满足所有报表的信息要求。

至此，关系模式设计完毕。

下面给出创建这些关系表的SQL语句示例,其中的数据类型可根据实际情况调整,为方便理解,表名、列名均用中文表示.

CREATETABLE学生表（

学号char（10）PRIMARYKEY,

姓名char（10）NOTNULL，

学院char（20）NOTNULL，

专业char（20）NOTNULL，

年级char（8）NOTNULL

）

CREATETABLE图书表（

图书编号char（20）PRIMARYKEY，

图书名称char（20）NOTNULL，

出版社名称char（20）NOTNULL，

出版日期datetimeNOTNULL，

作者char（10）NOTNULL

CREATETABLE管理员表（

管理员编号char（10）PRIMARYKEY，

管理员姓名char（10）NOTNULL

CREATETABLE借阅表（

学号char（10）NOTNULL，

姓名char（10）NOTNULL,

图书编号char（20）NOTNULL,

借阅日期datetimeNOTNULL，

应归还日期datetimeNOTNULL，

PRIMARYKEY（学号，图书编号）,

FOREIGNKEY（学号）REFERENCES学生表（学号）,

FOREIGNKEY（图书编号）REFERENCES图书表（图书编号）

CREATETABLE管理表（

管理日期datetimeNOTNULL，

管理员编号char（10）NOTNULL,

管理员姓名char（10）NOTNULL,

PRIMARYKEY（管理日期，管理员编号）,

FOREIGNKEY（管理员编号）REFERENCES管理员表（管理员编号）

2设计外模式

（1）学生借阅图书信息表

我们将该报表直接用查询语句的形式生成，将动态查询条件作为查询语句中的数据筛选条件。

例如,假设要为大三学生生成借阅图书情况的报表,则语句如下：

SELECT学号，姓名，图书名称

FROM借阅表WHERE年级=‘大三'

（2）图书管理表

该表可以查询出在哪一天由哪位管理员借出了哪些图书,因此，直接用查询语句生成.

SELECT图书编号，图书名称，管理日期，管理员编号，管理员姓名

FROM借阅表JOIN管理表ON借阅表.借阅日期=管理表。

管理日期

三、数据库行为设计

对于数据库应用系统来说，最常用的功能是安全控制功能,数据的增、删、改、查功能以及生成报表的功能.本系统也应包括这些基本的操作。

3.1安全控件

任何数据库应用系统都需要安全控件功能，这个图书管理系统也不例外。

假设将系统的用户分为如下几类：

◆图书馆系统管理人员：

具有系统的全部操作权限。

◆教务部门：

具有对学生基本信息、图书信息和管理员信息的维护权。

具有对图书信息的查询权.

在实现时,可将每一类用户定义为一个角色，这样在授权时只需对角色授权，而无需对每个具体的用户授权。

3。

2数据操作功能

数据操作功能包括对这些数据的录入、删除、修改功能。

具体如下：

（1）数据录入

包括对这5张表的录入。

只有具有相应权限的用户才能录入相应表中的数据。

（2）数据删除

包括对这5张表的删除。

只有具有相应权限的用户才能删除相应表中的数据。

数据的删除要注意表之间的关联关系。

比如在删除“学生表"

中的数据之前,应先删除该学生在“借阅表”中的信息，然后再学生表中删除该学生,以保证不违反参照完整性约束.另外,在实际执行删除操作之前应该提醒用户是否真的要删除数据，以免发生误操作。

（3）数据修改

当某些数据发生变化或某些数据录入不正确时,应该允许用户对数据库中的数据进行修改，修改数据的操作一般是先根据一定的条件查询出要修改的记录，然后在对其中的某些记录进行修改，修改完成后再回到数据库中。

同数据的录入与删除一样,只有具有相应权限的用户才能修改相应表中的数据。

（4）数据查询

在数据库应用系统中,数据查询是最常用的功能.数据查询应根据用户提出的查询条件进行，在设计系统时应首先征求用户的查询需求，然后根据这些需求整理出系统应具有的查询功能。

一般允许所有使用数据库的人都具有查询数据的权限。

本系统提出的查询要求有：

◆根据学号、学院、专业等信息查询学生的基本信息.

◆根据图书编号查询图书的基本信息。

◆根据管理员编号查询管理员的基本信息.

◆统计各个年级学生借书的总数量。

等等。

3.3应用程序实现

3.31语言及DBMS的选择

制作这5个表的数据库使用DBMS的是ACCESS,然后用VB语言编写程序代码，实现程序的各个功能。

其中用到了ADO数据控件和DataGrid控件.

32应用程序的编写

（1）学生表VB代码

PrivateSubCommand1_Click（）’”添加"

命令按钮

AdodcStudent.Recordset。

AddNew

’使”添加"

和"

删除"

按钮成为不可用状态

Command1。

Enabled=False

Command3.Enabled=False

’使”更新”按钮成为可用状态

Command4。

Enabled=True

'

清空文本框中显示的内容

Text1。

Text="

"

Text2。

Text=”"

Text3.Text=”"

Text4。

Text5.Text=”"

EndSub

PrivateSubCommand2_Click（）'

"

退出”命令按钮

End

PrivateSubCommand3_Click（）’"

删除”命令按钮

DimresAsInteger

res=MsgBox（"

确实要删除此行记录吗？

”，vbExclamation+vbYesNo+vbDefaultButton2）’提示用户

Ifres=vbYesThen’如确实要删除

Delete

MoveNext

IfAdodcStudent。

Recordset。

EOF=TrueThen

AdodcStudent。

MoveLast

EndIf

PrivateSubCommand4_Click（）’”更新”命令按钮

’将文本框中的当前值写入结果集中相应字段中

AdodcStudent.Recordset.Fields（"

学号”）=Trim（Text1.Text）

Fields（”姓名"

）=Trim（Text2.Text）

Recordset.Fields（”学院"

）=Trim（Text3。

Text）

Fields（"

专业"

）=Trim（Text4.Text）

Recordset.Fields（”年级”）=Trim（Text5。

使更新生效

Recordset.Update

删除”按钮成为可用状态

Command3。

PrivateSubCommand5_Click（）'

上一条”命令按钮

MovePrevious

PrivateSubCommand6_Click（）'

”下一条"

（2）图书表VB代码

添加"

AdodcBook。

使"

和”删除"

Command2。

’使"

更新”和”取消”按钮成为可用状态

Command4.Enabled=True

Command5。

”

Text=””

Text3.Text=””

Text5.Text=””

PrivateSubCommand3_Click（）'

”删除”命令按钮

res=MsgBox（”确定要删除此行记录?

”,vbExclamation+vbYesNo+vbDefaultButton2）’提示用户

AdodcBook.Recordset。

IfAdodcBook.Recordset.EOF=TrueThen

AdodcBook.Recordset。

EndIf

AdodcBook.Recordset.Fields（”图书编号”）=Trim（Text1。

Fields（”图书名称”）=Trim（Text2.Text）

Fields（”出版社名称"

Fields（”出版日期"

）=Trim（Text4。

AdodcBook.Recordset.Fields（"

作者”）=Trim（Text5.Text）

Update

使”添加"

和”删除”按钮成为可用状态

Command3.Enabled=True

’使”取消"

PrivateSubCommand5_Click（）

Command2.Enabled=True

Command5.Enabled=False

PrivateSubCommand6_Click（）’”上一条"

PrivateSubCommand7_Click（）’”下一条”命令按钮

（3）管理员表VB代码

PrivateSubCommand1_Click（）'

”退出”命令按钮

”添加"

AdodcManager.Recordset。

’清空文本框中现实的内容

Text1.Text=”"

，vbExclamation+vbYesNo+vbDefaultButton2）’提示用户

AdodcManager。

IfAdodcManager。

Recordset.EOF=TrueThen

PrivateSubCommand4_Click（）’"

更新”命令按钮

将文本框中的当前值写入结果集中相应字段中

Fields（”管理员编号”）=Trim（Text1.Text）

Recordset.Fields（”管理员姓名”）=Trim（Text2.Text）

’使更新生效

AdodcManager.Recordset.Update

PrivateSubCommand5_Click（）’”上一条”命令按钮

Recordset.MovePrevious

PrivateSubCommand6_Click（）’”下一条"

Recordset.MoveNext

（4）借阅表VB代码

”上一条”命令按钮

AdodcBorrown.Recordset。

添加”命令按钮

删除”按钮成为不可用状态

Command4.Enabled=False

Command6.Enabled=True

Text6。

PrivateSubCommand5_Click（）’”删除”命令按钮

AdodcBorrown。

AdodcBorrown.Recordset.MoveNext

IfAdodcBorrown。

PrivateSubCommand6_Click（）’”更新”命令按钮

学号"

）=Trim（Text1。

姓名”）=Trim（Text2。

Fields（”图书编号”）=Trim（Text3.Text）

Fields（”图书名称”）=Trim（Text4。

借阅日期"

）=Trim（Text5。

Fields（”应归还日期”）=Trim（Text6。

添加”和”删除"

按钮成为可用状态

（5）管理表VB代码

PrivateSubCommand1_Click（）’”退出”命令按钮

AdodcManagement。

使”添加”和"

Command2.Enabled=False

更新”按钮成为可用状态

清空文本框中现实的内容

Text1.Text="

”删除"

，vbExclamation+vbYesNo+vbDefaultButton2）’提示用户

Recordset.Delete

AdodcManagement.Recordset.MoveNext

IfAdodcManagement。

Recordset.MoveLast

PrivateSubCommand4_Click（）’”更新"

Fields（”管理日期"

AdodcManagement.Recordset。

管理员