图书管理系统数据库.docx

1、图书管理系统数据库数据库原理与应用教程实验报告数据库分析与设计 -图书管理系统一、需求说明要实现一个简化的图书管理系统，在此图书管理系统中只涉及学生信息、借阅信息和管理者信息的管理.此系统要求能够记住书籍的基本信息、学生的信息和管理者的信息。该系统的业务要求为：一名学生可以在不同的日期多次借阅同一本书.一名学生可以同时借阅多本不同的图书.一本书可以在不同的时间借给不同的学生。一名学生不能在同一天对同一本书借阅多次.一名管理员可以同时管理多本图书.该系统的基本信息包括：学生信息：姓名，学号,学院,专业,年级。图书信息：图书名称,图书编号，出版社名称,出版日期，作者，是否可借.管理员信息：管理员姓

2、名，管理员编号。除上述要求外,该系统还需产生如下报表：学生借阅图书信息表：学号，图书编号，图书名称，借阅日期,应归还日期。图书管理表:管理日期，管理员编号，管理员姓名.二、数据库结构设计2。1 概念结构设计概念结构设计是根据需求分析的结果产生概念结构设计的ER模型。由于这个系统比较简单，因此这里采用自顶向下的设计方法。自顶向下设计的关键是首先要确定系统的核心活动.所谓核心活动就是系统中的其他活动都要围绕这个活动展开或与此活动密切相关。确定了核心活动之后，系统就有了可扩展的余地。对于这个图书管理系统，其核心活动是图书，学生与图书之间是通过学生借阅图书发生联系的，管理员与图书之间是通过管理员管理图

3、书发生联系的。至此，此系统包含的实体有：图书：用于描述课程的基本信息，用图书编号标识.学生:用于描述学生的基本信息,用学号标识。管理员：用于描述管理员的基本信息，用管理员编号标识.由于一名学生可以借阅多本图书，并且一本书可以在不同时间借给不同的学生。因此，学生与图书之间是多对多的联系。又由于一本图书可以由多名管理员管理，而且一名管理员可以管理多本图书。因此，管理员与图书之间也是多对多的联系.其基本ER模型如图1所示： m n m n 根据需求分析的结果，该E-R模型模型中个实体所包含的属性如下：学生：姓名，学号，学院，专业,年级。图书：图书名称，图书编号，出版社名称,出版日期,作者,是否可借。

4、管理员：管理员姓名，管理员编号。各联系本身应具有的属性为：借阅：学号，图书编号,图书名称，借阅日期，应归还日期.管理:管理日期，管理员编号，管理员姓名。2。2逻辑结果设计这个E-R模型转换出的关系模式如下，其中主码用下划线标识：学生 (学号，姓名，学院，专业，年级)图书 （图书编号,图书名称，出版社名称，出版日期，作者，是否可借）管理员 (管理员编号,管理员姓名）借阅 （学号，图书标号，图书名称，借阅日期,应归还日期），其中图书编号为引用“图书关系模式的外码；学号为引用“学生关系模式的外码。管理 （管理日期，管理员编号,管理员姓名），其中管理员编号为引用“管理员”关系模式的外码.（1）确定各管

5、是模式是否属于第三范式经过分析发现，“学生”、“图书”、“管理员”、“借阅”和“管理”5个关系模式中，都不存在部分依赖和传递依赖关系，因此都属于第三范式。（2）确定信息的完整性该教学管理系统要产生：学生借阅图书信息、图书管理2个报表，分别分析如下：“学生借阅图书信息表”包括学号、图书编号、图书名称、借阅日期、应归还日期。其中“学号”可由“学生”关系模式得到,“图书编号”、“图书名称、“借阅日期”、“应归还日期可由“借阅关系模式得到，因此可以满足学生借阅图书信息表的要求。“图书管理表”包括管理日期、管理员编号、管理员姓名。其中“管理日期可由“管理”关系模式得到,“管理员编号”,“管理员姓名”可由

6、“管理员关系模式得到。因此，所有关系模式满足所有报表的信息要求。至此，关系模式设计完毕。下面给出创建这些关系表的SQL语句示例,其中的数据类型可根据实际情况调整,为方便理解,表名、列名均用中文表示.CREATE TABLE 学生表（学号 char（10） PRIMARY KEY,姓名 char（10) NOT NULL ，学院 char（20) NOT NULL ，专业 char（20） NOT NULL ，年级 char（8) NOT NULL )CREATE TABLE 图书表(图书编号 char(20） PRIMARY KEY，图书名称 char(20) NOT NULL ，出版社名称

7、char（20） NOT NULL ，出版日期 datetime NOT NULL ，作者 char（10) NOT NULL ）CREATE TABLE管理员表（管理员编号 char（10) PRIMARY KEY，管理员姓名 char（10） NOT NULL ）CREATE TABLE借阅表（学号 char（10) NOT NULL ，姓名 char（10) NOT NULL ,图书编号 char（20) NOT NULL ,图书名称 char(20) NOT NULL ，借阅日期 datetime NOT NULL ，应归还日期 datetime NOT NULL ，PRIMARY K

8、EY (学号，图书编号）,FOREIGN KEY （学号） REFERENCES 学生表 （学号),FOREIGN KEY （图书编号） REFERENCES 图书表 (图书编号）CREATE TABLE管理表（管理日期 datetime NOT NULL ，管理员编号 char（10） NOT NULL ,管理员姓名 char（10） NOT NULL ,PRIMARY KEY (管理日期，管理员编号）,FOREIGN KEY （管理员编号) REFERENCES 管理员表 (管理员编号)2。2。2设计外模式(1)学生借阅图书信息表我们将该报表直接用查询语句的形式生成，将动态查询条件作为查询

9、语句中的数据筛选条件。例如,假设要为大三学生生成借阅图书情况的报表,则语句如下：SELECT 学号，姓名，图书名称FROM 借阅表 WHERE 年级 = 大三(2)图书管理表该表可以查询出在哪一天由哪位管理员借出了哪些图书,因此，直接用查询语句生成.SELECT 图书编号，图书名称，管理日期，管理员编号，管理员姓名FROM 借阅表 JOIN 管理表 ON 借阅表.借阅日期 = 管理表。管理日期三、数据库行为设计对于数据库应用系统来说，最常用的功能是安全控制功能,数据的增、删、改、查功能以及生成报表的功能.本系统也应包括这些基本的操作。3.1 安全控件任何数据库应用系统都需要安全控件功能，这个图

10、书管理系统也不例外。假设将系统的用户分为如下几类：图书馆系统管理人员：具有系统的全部操作权限。教务部门：具有对学生基本信息、图书信息和管理员信息的维护权。学生:具有对图书信息的查询权.在实现时,可将每一类用户定义为一个角色，这样在授权时只需对角色授权，而无需对每个具体的用户授权。3。2 数据操作功能数据操作功能包括对这些数据的录入、删除、修改功能。具体如下：（1）数据录入包括对这5张表的录入。只有具有相应权限的用户才能录入相应表中的数据。（2）数据删除包括对这5张表的删除。只有具有相应权限的用户才能删除相应表中的数据。数据的删除要注意表之间的关联关系。比如在删除“学生表中的数据之前,应先删除该

11、学生在“借阅表”中的信息，然后再学生表中删除该学生,以保证不违反参照完整性约束.另外,在实际执行删除操作之前应该提醒用户是否真的要删除数据，以免发生误操作。（3）数据修改当某些数据发生变化或某些数据录入不正确时,应该允许用户对数据库中的数据进行修改，修改数据的操作一般是先根据一定的条件查询出要修改的记录，然后在对其中的某些记录进行修改，修改完成后再回到数据库中。同数据的录入与删除一样,只有具有相应权限的用户才能修改相应表中的数据。（4）数据查询在数据库应用系统中,数据查询是最常用的功能.数据查询应根据用户提出的查询条件进行，在设计系统时应首先征求用户的查询需求，然后根据这些需求整理出系统应具有

12、的查询功能。一般允许所有使用数据库的人都具有查询数据的权限。本系统提出的查询要求有：根据学号、学院、专业等信息查询学生的基本信息.根据图书编号查询图书的基本信息。根据管理员编号查询管理员的基本信息.统计各个年级学生借书的总数量。等等。3.3应用程序实现3.31语言及DBMS的选择制作这5个表的数据库使用DBMS的是ACCESS,然后用VB 语言编写程序代码，实现程序的各个功能。其中用到了ADO数据控件和DataGrid控件.3。32应用程序的编写（1）学生表VB代码Private Sub Command1_Click（） ”添加命令按钮AdodcStudent.Recordset。AddNew

13、 使”添加和删除按钮成为不可用状态Command1。Enabled = FalseCommand3.Enabled = False 使”更新”按钮成为可用状态Command4。Enabled = True 清空文本框中显示的内容Text1。Text = Text2。Text = ”Text3.Text = ”Text4。Text = Text5.Text = ”End SubPrivate Sub Command2_Click（） 退出”命令按钮EndEnd SubPrivate Sub Command3_Click（) 删除”命令按钮Dim res As Integerres = MsgBo

14、x(确实要删除此行记录吗？”， vbExclamation + vbYesNo + vbDefaultButton2） 提示用户If res = vbYes Then 如确实要删除AdodcStudent.Recordset。DeleteAdodcStudent.Recordset。MoveNextIf AdodcStudent。Recordset。EOF = True ThenAdodcStudent。Recordset。MoveLastEnd IfEnd IfEnd SubPrivate Sub Command4_Click(） ”更新”命令按钮 将文本框中的当前值写入结果集中相应字段中A

15、dodcStudent.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

16、使”添加和删除”按钮成为可用状态Command1。Enabled = TrueCommand3。Enabled = TrueEnd SubPrivate Sub Command5_Click（） 上一条”命令按钮AdodcStudent。Recordset。MovePreviousEnd SubPrivate Sub Command6_Click（） ”下一条命令按钮AdodcStudent.Recordset。MoveNextEnd Sub（2）图书表VB代码Private Sub Command2_Click（） 添加命令按钮AdodcBook。Recordset。AddNew 使添加和”

17、删除按钮成为不可用状态Command2。Enabled = FalseCommand3.Enabled = False 使更新”和”取消”按钮成为可用状态Command4.Enabled = TrueCommand5。Enabled = True 清空文本框中显示的内容Text1。Text = ”Text2。Text = ”Text3.Text = ”Text4。Text = Text5.Text = ”End SubPrivate Sub Command3_Click（) ”删除”命令按钮Dim res As Integerres = MsgBox（”确定要删除此行记录?”, vbExcla

18、mation + vbYesNo + vbDefaultButton2） 提示用户If res = vbYes Then 如确实要删除AdodcBook。Recordset。DeleteAdodcBook.Recordset。MoveNextIf AdodcBook.Recordset.EOF = True Then AdodcBook.Recordset。MoveLast End If End IfEnd SubPrivate Sub Command4_Click(） ”更新”命令按钮 将文本框中的当前值写入结果集中相应字段中AdodcBook.Recordset.Fields(”图书编号”

19、) = 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 = Tru

20、eCommand3.Enabled = True 使”取消按钮成为不可用状态Command5。Enabled = FalseEnd SubPrivate Sub Command5_Click（）Command2.Enabled = TrueCommand3。Enabled = TrueCommand5.Enabled = FalseEnd SubPrivate Sub Command6_Click(） ”上一条命令按钮AdodcBook。Recordset。MovePreviousEnd SubPrivate Sub Command7_Click() ”下一条”命令按钮AdodcBook。Re

21、cordset。MoveNextEnd Sub(3)管理员表VB代码Private Sub Command1_Click（) ”退出”命令按钮EndEnd SubPrivate Sub Command2_Click(） ”添加命令按钮AdodcManager.Recordset。AddNew 使添加和删除按钮成为不可用状态Command2。Enabled = FalseCommand3.Enabled = False 使”更新”按钮成为可用状态Command4。Enabled = True 清空文本框中现实的内容Text1.Text = ”Text2。Text = ”End SubPrivat

22、e Sub Command3_Click（) 删除”命令按钮Dim res As Integerres = MsgBox(确实要删除此行记录吗？， vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如确实要删除AdodcManager。Recordset。DeleteAdodcManager。Recordset。MoveNextIf AdodcManager。Recordset.EOF = True ThenAdodcManager。Recordset。MoveLastEnd IfEnd IfEnd SubP

23、rivate Sub Command4_Click（) 更新”命令按钮 将文本框中的当前值写入结果集中相应字段中AdodcManager.Recordset。Fields（”管理员编号”） = Trim（Text1.Text)AdodcManager。Recordset.Fields(”管理员姓名”） = Trim（Text2.Text) 使更新生效AdodcManager.Recordset.Update 使添加和删除”按钮成为可用状态Command2。Enabled = TrueCommand3。Enabled = TrueEnd SubPrivate Sub Command5_Click

24、(） ”上一条”命令按钮AdodcManager。Recordset.MovePreviousEnd SubPrivate Sub Command6_Click（） ”下一条命令按钮AdodcManager。Recordset.MoveNextEnd Sub(4）借阅表VB代码Private Sub Command1_Click（） ”退出”命令按钮EndEnd SubPrivate Sub Command2_Click（) ”上一条”命令按钮AdodcBorrown.Recordset。MovePreviousEnd SubPrivate Sub Command3_Click(） ”下一条命

25、令按钮AdodcBorrown.Recordset。MoveNextEnd SubPrivate Sub Command4_Click（） 添加”命令按钮AdodcBorrown.Recordset。AddNew 使”添加和删除”按钮成为不可用状态Command4.Enabled = FalseCommand5。Enabled = False 使”更新”按钮成为可用状态Command6.Enabled = True 清空文本框中现实的内容Text1。Text = ”Text2。Text = ”Text3.Text = ”Text4。Text = ”Text5.Text = ”Text6。Tex

26、t = ”End SubPrivate Sub Command5_Click(） ”删除”命令按钮Dim res As Integerres = MsgBox（确实要删除此行记录吗？”， vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如确实要删除AdodcBorrown。Recordset。DeleteAdodcBorrown.Recordset.MoveNextIf AdodcBorrown。Recordset。EOF = True ThenAdodcBorrown。Recordset。MoveLast

27、End IfEnd IfEnd SubPrivate Sub Command6_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)AdodcB

28、orrown.Recordset。Fields（借阅日期） = Trim(Text5。Text)AdodcBorrown.Recordset。Fields(”应归还日期”) = Trim（Text6。Text） 使更新生效AdodcBorrown。Recordset。Update 使添加”和”删除按钮成为可用状态Command4。Enabled = TrueCommand5。Enabled = TrueEnd Sub（5)管理表VB代码Private Sub Command1_Click（） ”退出”命令按钮EndEnd SubPrivate Sub Command2_Click（) 添加”命

29、令按钮AdodcManagement。Recordset。AddNew 使”添加”和删除”按钮成为不可用状态Command2.Enabled = FalseCommand3.Enabled = False 使更新”按钮成为可用状态Command4。Enabled = True 清空文本框中现实的内容Text1.Text = ”Text2。Text = ”Text3.Text = ”End SubPrivate Sub Command3_Click（) ”删除命令按钮Dim res As Integerres = MsgBox(确实要删除此行记录吗？， vbExclamation + vbYes

30、No + vbDefaultButton2） 提示用户If res = vbYes Then 如确实要删除AdodcManagement。Recordset.DeleteAdodcManagement.Recordset.MoveNextIf AdodcManagement。Recordset。EOF = True ThenAdodcManagement。Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Command4_Click（） ”更新命令按钮 将文本框中的当前值写入结果集中相应字段中AdodcManagement。Recordset。Fields（”管理日期) = Trim(Text1。Text）AdodcManagement.Recordset。Fields（管理员