图书管理系统数据库.docx
《图书管理系统数据库.docx》由会员分享，可在线阅读，更多相关《图书管理系统数据库.docx（19页珍藏版）》请在冰豆网上搜索。
图书管理系统数据库
《数据库原理与应用教程》实验报告
数据库分析与设计
-——-—-图书管理系统
一、需求说明
要实现一个简化的图书管理系统，在此图书管理系统中只涉及学生信息、借阅信息和管理者信息的管理.此系统要求能够记住书籍的基本信息、学生的信息和管理者的信息。
该系统的业务要求为：
◆一名学生可以在不同的日期多次借阅同一本书.
◆一名学生可以同时借阅多本不同的图书.
◆一本书可以在不同的时间借给不同的学生。
◆一名学生不能在同一天对同一本书借阅多次.
◆一名管理员可以同时管理多本图书.
该系统的基本信息包括：
◆学生信息：
姓名，学号,学院,专业,年级。
◆图书信息：
图书名称,图书编号，出版社名称,出版日期，作者，是否可借.
◆管理员信息：
管理员姓名，管理员编号。
除上述要求外,该系统还需产生如下报表：
◆学生借阅图书信息表：
学号，图书编号，图书名称，借阅日期,应归还日期。
◆图书管理表:
管理日期，管理员编号，管理员姓名.
二、数据库结构设计
2。
1概念结构设计
概念结构设计是根据需求分析的结果产生概念结构设计的E—R模型。
由于这个系统比较简单，因此这里采用自顶向下的设计方法。
自顶向下设计的关键是首先要确定系统的核心活动.所谓核心活动就是系统中的其他活动都要围绕这个活动展开或与此活动密切相关。
确定了核心活动之后，系统就有了可扩展的余地。
对于这个图书管理系统，其核心活动是图书，学生与图书之间是通过学生借阅图书发生联系的，管理员与图书之间是通过管理员管理图书发生联系的。
至此，此系统包含的实体有：
◆图书：
用于描述课程的基本信息，用图书编号标识.
◆学生:
用于描述学生的基本信息,用学号标识。
◆管理员：
用于描述管理员的基本信息，用管理员编号标识.
由于一名学生可以借阅多本图书，并且一本书可以在不同时间借给不同的学生。
因此，学生与图书之间是多对多的联系。
又由于一本图书可以由多名管理员管理，而且一名管理员可以管理多本图书。
因此，管理员与图书之间也是多对多的联系.
其基本E—R模型如图1所示：
mnmn
根据需求分析的结果，该E-R模型模型中个实体所包含的属性如下：
◆学生：
姓名，学号，学院，专业,年级。
◆图书：
图书名称，图书编号，出版社名称,出版日期,作者,是否可借。
◆管理员：
管理员姓名，管理员编号。
各联系本身应具有的属性为：
◆借阅：
学号，图书编号,图书名称，借阅日期，应归还日期.
◆管理:
管理日期，管理员编号，管理员姓名。
2。
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,
图书名称char（20）NOTNULL，
借阅日期datetimeNOTNULL，
应归还日期datetimeNOTNULL，
PRIMARYKEY（学号，图书编号）,
FOREIGNKEY（学号）REFERENCES学生表（学号）,
FOREIGNKEY（图书编号）REFERENCES图书表（图书编号）
）
CREATETABLE管理表（
管理日期datetimeNOTNULL，
管理员编号char（10）NOTNULL,
管理员姓名char（10）NOTNULL,
PRIMARYKEY（管理日期，管理员编号）,
FOREIGNKEY（管理员编号）REFERENCES管理员表（管理员编号）
）
2。
2。
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控件.
3。
32应用程序的编写
（1）学生表VB代码
PrivateSubCommand1_Click（）’”添加"命令按钮
AdodcStudent.Recordset。
AddNew
’使”添加"和"删除"按钮成为不可用状态
Command1。
Enabled=False
Command3.Enabled=False
’使”更新”按钮成为可用状态
Command4。
Enabled=True
'清空文本框中显示的内容
Text1。
Text=""
Text2。
Text=”"
Text3.Text=”"
Text4。
Text=""
Text5.Text=”"
EndSub
PrivateSubCommand2_Click（）'"退出”命令按钮
End
EndSub
PrivateSubCommand3_Click（）’"删除”命令按钮
DimresAsInteger
res=MsgBox（"确实要删除此行记录吗？
”，vbExclamation+vbYesNo+vbDefaultButton2）’提示用户
Ifres=vbYesThen’如确实要删除
AdodcStudent.Recordset。
Delete
AdodcStudent.Recordset。
MoveNext
IfAdodcStudent。
Recordset。
EOF=TrueThen
AdodcStudent。
Recordset。
MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand4_Click（）’”更新”命令按钮
’将文本框中的当前值写入结果集中相应字段中
AdodcStudent.Recordset.Fields（"学号”）=Trim（Text1.Text）
AdodcStudent。
Recordset。
Fields（”姓名"）=Trim（Text2.Text）
AdodcStudent。
Recordset.Fields（”学院"）=Trim（Text3。
Text）
AdodcStudent.Recordset。
Fields（"专业"）=Trim（Text4.Text）
AdodcStudent。
Recordset.Fields（”年级”）=Trim（Text5。
Text）
'使更新生效
AdodcStudent。
Recordset.Update
’使”添加"和"删除”按钮成为可用状态
Command1。
Enabled=True
Command3。
Enabled=True
EndSub
PrivateSubCommand5_Click（）'"上一条”命令按钮
AdodcStudent。
Recordset。
MovePrevious
EndSub
PrivateSubCommand6_Click（）'”下一条"命令按钮
AdodcStudent.Recordset。
MoveNext
EndSub
（2）图书表VB代码
PrivateSubCommand2_Click（）'"添加"命令按钮
AdodcBook。
Recordset。
AddNew
'使"添加"和”删除"按钮成为不可用状态
Command2。
Enabled=False
Command3.Enabled=False
’使"更新”和”取消”按钮成为可用状态
Command4.Enabled=True
Command5。
Enabled=True
'清空文本框中显示的内容
Text1。
Text="”
Text2。
Text=””
Text3.Text=””
Text4。
Text=""
Text5.Text=””
EndSub
PrivateSubCommand3_Click（）'”删除”命令按钮
DimresAsInteger
res=MsgBox（”确定要删除此行记录?
”,vbExclamation+vbYesNo+vbDefaultButton2）’提示用户
Ifres=vbYesThen’如确实要删除
AdodcBook。
Recordset。
Delete
AdodcBook.Recordset。
MoveNext
IfAdodcBook.Recordset.EOF=TrueThen
AdodcBook.Recordset。
MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand4_Click（）’”更新”命令按钮
’将文本框中的当前值写入结果集中相应字段中
AdodcBook.Recordset.Fields（”图书编号”）=Trim（Text1。
Text）
AdodcBook.Recordset。
Fields（”图书名称”）=Trim（Text2.Text）
AdodcBook。
Recordset。
Fields（”出版社名称"）=Trim（Text3。
Text）
AdodcBook。
Recordset。
Fields（”出版日期"）=Trim（Text4。
Text）
AdodcBook.Recordset.Fields（"作者”）=Trim（Text5.Text）
'使更新生效
AdodcBook。
Recordset。
Update
'使”添加"和”删除”按钮成为可用状态
Command2。
Enabled=True
Command3.Enabled=True
’使”取消"按钮成为不可用状态
Command5。
Enabled=False
EndSub
PrivateSubCommand5_Click（）
Command2.Enabled=True
Command3。
Enabled=True
Command5.Enabled=False
EndSub
PrivateSubCommand6_Click（）’”上一条"命令按钮
AdodcBook。
Recordset。
MovePrevious
EndSub
PrivateSubCommand7_Click（）’”下一条”命令按钮
AdodcBook。
Recordset。
MoveNext
EndSub
（3）管理员表VB代码
PrivateSubCommand1_Click（）'”退出”命令按钮
End
EndSub
PrivateSubCommand2_Click（）'”添加"命令按钮
AdodcManager.Recordset。
AddNew
’使"添加"和"删除"按钮成为不可用状态
Command2。
Enabled=False
Command3.Enabled=False
’使”更新”按钮成为可用状态
Command4。
Enabled=True
’清空文本框中现实的内容
Text1.Text=”"
Text2。
Text="”
EndSub
PrivateSubCommand3_Click（）’"删除”命令按钮
DimresAsInteger
res=MsgBox（"确实要删除此行记录吗？
"，vbExclamation+vbYesNo+vbDefaultButton2）’提示用户
Ifres=vbYesThen’如确实要删除
AdodcManager。
Recordset。
Delete
AdodcManager。
Recordset。
MoveNext
IfAdodcManager。
Recordset.EOF=TrueThen
AdodcManager。
Recordset。
MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand4_Click（）’"更新”命令按钮
'将文本框中的当前值写入结果集中相应字段中
AdodcManager.Recordset。
Fields（”管理员编号”）=Trim（Text1.Text）
AdodcManager。
Recordset.Fields（”管理员姓名”）=Trim（Text2.Text）
’使更新生效
AdodcManager.Recordset.Update
’使"添加"和"删除”按钮成为可用状态
Command2。
Enabled=True
Command3。
Enabled=True
EndSub
PrivateSubCommand5_Click（）’”上一条”命令按钮
AdodcManager。
Recordset.MovePrevious
EndSub
PrivateSubCommand6_Click（）’”下一条"命令按钮
AdodcManager。
Recordset.MoveNext
EndSub
（4）借阅表VB代码
PrivateSubCommand1_Click（）'”退出”命令按钮
End
EndSub
PrivateSubCommand2_Click（）'”上一条”命令按钮
AdodcBorrown.Recordset。
MovePrevious
EndSub
PrivateSubCommand3_Click（）'”下一条"命令按钮
AdodcBorrown.Recordset。
MoveNext
EndSub
PrivateSubCommand4_Click（）’"添加”命令按钮
AdodcBorrown.Recordset。
AddNew
'使”添加"和"删除”按钮成为不可用状态
Command4.Enabled=False
Command5。
Enabled=False
’使”更新”按钮成为可用状态
Command6.Enabled=True
’清空文本框中现实的内容
Text1。
Text=”"
Text2。
Text=””
Text3.Text=”"
Text4。
Text=””
Text5.Text=”"
Text6。
Text="”
EndSub
PrivateSubCommand5_Click（）’”删除”命令按钮
DimresAsInteger
res=MsgBox（"确实要删除此行记录吗？
”，vbExclamation+vbYesNo+vbDefaultButton2）’提示用户
Ifres=vbYesThen’如确实要删除
AdodcBorrown。
Recordset。
Delete
AdodcBorrown.Recordset.MoveNext
IfAdodcBorrown。
Recordset。
EOF=TrueThen
AdodcBorrown。
Recordset。
MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand6_Click（）’”更新”命令按钮
’将文本框中的当前值写入结果集中相应字段中
AdodcBorrown.Recordset。
Fields（"学号"）=Trim（Text1。
Text）
AdodcBorrown。
Recordset。
Fields（"姓名”）=Trim（Text2。
Text）
AdodcBorrown.Recordset。
Fields（”图书编号”）=Trim（Text3.Text）
AdodcBorrown。
Recordset。
Fields（”图书名称”）=Trim（Text4。
Text）
AdodcBorrown.Recordset。
Fields（"借阅日期"）=Trim（Text5。
Text）
AdodcBorrown.Recordset。
Fields（”应归还日期”）=Trim（Text6。
Text）
’使更新生效
AdodcBorrown。
Recordset。
Update
'使"添加”和”删除"按钮成为可用状态
Command4。
Enabled=True
Command5。
Enabled=True
EndSub
（5）管理表VB代码
PrivateSubCommand1_Click（）’”退出”命令按钮
End
EndSub
PrivateSubCommand2_Click（）'"添加”命令按钮
AdodcManagement。
Recordset。
AddNew
'使”添加”和"删除”按钮成为不可用状态
Command2.Enabled=False
Command3.Enabled=False
’使"更新”按钮成为可用状态
Command4。
Enabled=True
'清空文本框中现实的内容
Text1.Text="”
Text2。
Text=”"
Text3.Text=””
EndSub
PrivateSubCommand3_Click（）'”删除"命令按钮
DimresAsInteger
res=MsgBox（"确实要删除此行记录吗？
"，vbExclamation+vbYesNo+vbDefaultButton2）’提示用户
Ifres=vbYesThen’如确实要删除
AdodcManagement。
Recordset.Delete
AdodcManagement.Recordset.MoveNext
IfAdodcManagement。
Recordset。
EOF=TrueThen
AdodcManagement。
Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand4_Click（）’”更新"命令按钮
’将文本框中的当前值写入结果集中相应字段中
AdodcManagement。
Recordset。
Fields（”管理日期"）=Trim（Text1。
Text）
AdodcManagement.Recordset。
Fields（"管理员
升级会员 