图书管理系统数据库

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

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

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

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

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

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

7、TABLE 图书表(图书编号 char(20) PRIMARY KEY,图书名称 char(20) NOT NULL ,出版社名称 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) NO

8、T NULL ,借阅日期 datetime NOT NULL ,应归还日期 datetime NOT NULL ,PRIMARY KEY (学号,图书编号),FOREIGN KEY (学号) REFERENCES 学生表 (学号),FOREIGN KEY (图书编号) REFERENCES 图书表 (图书编号)CREATE TABLE管理表(管理日期 datetime NOT NULL ,管理员编号 char(10) NOT NULL ,管理员姓名 char(10) NOT NULL ,PRIMARY KEY (管理日期,管理员编号),FOREIGN KEY (管理员编号) REFERENCE

9、S 管理员表 (管理员编号)2.2.2设计外模式(1) 学生借阅图书信息表我们将该报表直接用查询语句的形式生成，将动态查询条件作为查询语句中的数据筛选条件。例如，假设要为大三学生生成借阅图书情况的报表，则语句如下：SELECT 学号，姓名，图书名称FROM 借阅表 WHERE 年级 = 大三(2) 图书管理表该表可以查询出在哪一天由哪位管理员借出了哪些图书，因此，直接用查询语句生成。SELECT 图书编号，图书名称，管理日期，管理员编号，管理员姓名FROM 借阅表 JOIN 管理表 ON 借阅表.借阅日期 = 管理表.管理日期三、 数据库行为设计对于数据库应用系统来说，最常用的功能是安全控制功

10、能，数据的增、删、改、查功能以及生成报表的功能。本系统也应包括这些基本的操作。3.1 安全控件任何数据库应用系统都需要安全控件功能，这个图书管理系统也不例外。假设将系统的用户分为如下几类：u 图书馆系统管理人员：具有系统的全部操作权限。u 教务部门：具有对学生基本信息、图书信息和管理员信息的维护权。u 学生：具有对图书信息的查询权。在实现时，可将每一类用户定义为一个角色，这样在授权时只需对角色授权，而无需对每个具体的用户授权。3.2 数据操作功能数据操作功能包括对这些数据的录入、删除、修改功能。具体如下：（1） 数据录入包括对这5张表的录入。只有具有相应权限的用户才能录入相应表中的数据。（2）

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

12、数据查询在数据库应用系统中，数据查询是最常用的功能。数据查询应根据用户提出的查询条件进行，在设计系统时应首先征求用户的查询需求，然后根据这些需求整理出系统应具有的查询功能。一般允许所有使用数据库的人都具有查询数据的权限。本系统提出的查询要求有：u 根据学号、学院、专业等信息查询学生的基本信息。u 根据图书编号查询图书的基本信息。u 根据管理员编号查询管理员的基本信息。u 统计各个年级学生借书的总数量。等等。3.3应用程序实现3.31语言及DBMS的选择制作这5个表的数据库使用DBMS的是ACCESS，然后用VB 语言编写程序代码，实现程序的各个功能。其中用到了ADO数据控件和DataGrid控

13、件。3.32应用程序的编写（1）学生表VB代码Private Sub Command1_Click() ' "添加"命令按钮' 使"添加"和"删除"按钮成为不可用状态Command1.Enabled = FalseCommand3.Enabled = False' 使"更新"按钮成为可用状态Command4.Enabled = True' 清空文本框中显示的内容Text1.Text = ""Text2.Text = ""Text3.Text =

14、 ""Text4.Text = ""Text5.Text = ""End SubPrivate Sub Command2_Click() ' "退出"命令按钮EndEnd SubPrivate Sub Command3_Click() ' "删除"命令按钮Dim res As Integerres = MsgBox("确实要删除此行记录吗？", vbExclamation + vbYesNo + vbDefaultButton2) ' 提示用户If r

15、es = vbYes Then ' 如确实要删除If AdodcStudent.Recordset.EOF = True ThenEnd IfEnd IfEnd SubPrivate Sub Command4_Click() ' "更新"命令按钮' 将文本框中的当前值写入结果集中相应字段中AdodcStudent.Recordset.Fields("学号") = Trim(Text1.Text)AdodcStudent.Recordset.Fields("姓名") = Trim(Text2.Text)Adodc

16、Student.Recordset.Fields("学院") = Trim(Text3.Text)AdodcStudent.Recordset.Fields("专业") = Trim(Text4.Text)AdodcStudent.Recordset.Fields("年级") = Trim(Text5.Text)' 使更新生效' 使"添加"和"删除"按钮成为可用状态Command1.Enabled = TrueCommand3.Enabled = TrueEnd SubPriva

17、te Sub Command5_Click() ' "上一条"命令按钮End SubPrivate Sub Command6_Click() ' "下一条"命令按钮End Sub（2）图书表VB代码Private Sub Command2_Click() ' "添加"命令按钮' 使"添加"和"删除"按钮成为不可用状态Command2.Enabled = FalseCommand3.Enabled = False' 使"更新"和"

18、;取消"按钮成为可用状态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(&quo

19、t;确定要删除此行记录?", vbExclamation + vbYesNo + vbDefaultButton2) ' 提示用户If res = vbYes Then ' 如确实要删除If AdodcBook.Recordset.EOF = True Then End If End IfEnd SubPrivate Sub Command4_Click() ' "更新"命令按钮' 将文本框中的当前值写入结果集中相应字段中AdodcBook.Recordset.Fields("图书编号") = Trim(Text

20、1.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)' 使更新生效' 使"添加"和"删除&

21、quot;按钮成为可用状态Command2.Enabled = TrueCommand3.Enabled = True' 使"取消"按钮成为不可用状态Command5.Enabled = FalseEnd SubPrivate Sub Command5_Click()Command2.Enabled = TrueCommand3.Enabled = TrueCommand5.Enabled = FalseEnd SubPrivate Sub Command6_Click() ' "上一条"命令按钮End SubPrivate Sub Co

22、mmand7_Click() ' "下一条"命令按钮End Sub（3）管理员表VB代码Private Sub Command1_Click() ' "退出"命令按钮EndEnd SubPrivate Sub Command2_Click() ' "添加"命令按钮' 使"添加"和"删除"按钮成为不可用状态Command2.Enabled = FalseCommand3.Enabled = False' 使"更新"按钮成为可用状态Comm

23、and4.Enabled = True' 清空文本框中现实的内容Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command3_Click() ' "删除"命令按钮Dim res As Integerres = MsgBox("确实要删除此行记录吗？", vbExclamation + vbYesNo + vbDefaultButton2) ' 提示用户If res = vbYes Then ' 如确实要删除If AdodcMana

24、ger.Recordset.EOF = True ThenEnd IfEnd IfEnd SubPrivate Sub Command4_Click() ' "更新"命令按钮' 将文本框中的当前值写入结果集中相应字段中AdodcManager.Recordset.Fields("管理员编号") = Trim(Text1.Text)AdodcManager.Recordset.Fields("管理员姓名") = Trim(Text2.Text)' 使更新生效' 使"添加"和"

25、删除"按钮成为可用状态Command2.Enabled = TrueCommand3.Enabled = TrueEnd SubPrivate Sub Command5_Click() ' "上一条"命令按钮End SubPrivate Sub Command6_Click() ' "下一条"命令按钮End Sub（4）借阅表VB代码Private Sub Command1_Click() ' "退出"命令按钮EndEnd SubPrivate Sub Command2_Click() ' &

26、quot;上一条"命令按钮End SubPrivate Sub Command3_Click() ' "下一条"命令按钮End SubPrivate Sub Command4_Click() ' "添加"命令按钮' 使"添加"和"删除"按钮成为不可用状态Command4.Enabled = FalseCommand5.Enabled = False' 使"更新"按钮成为可用状态Command6.Enabled = True' 清空文本框中现实的内

27、容Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""End SubPrivate Sub Command5_Click() ' "删除"命令按钮Dim res As Integerres = MsgBox("确实要删除此行记录吗？", vbExclamation + vbYesNo + vbDefau

28、ltButton2) ' 提示用户If res = vbYes Then ' 如确实要删除If AdodcBorrown.Recordset.EOF = True ThenEnd IfEnd IfEnd SubPrivate Sub Command6_Click() ' "更新"命令按钮' 将文本框中的当前值写入结果集中相应字段中AdodcBorrown.Recordset.Fields("学号") = Trim(Text1.Text)AdodcBorrown.Recordset.Fields("姓名"

29、) = 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)' 使更新生效'

30、; 使"添加"和"删除"按钮成为可用状态Command4.Enabled = TrueCommand5.Enabled = TrueEnd Sub（5）管理表VB代码Private Sub Command1_Click() ' "退出"命令按钮EndEnd SubPrivate Sub Command2_Click() ' "添加"命令按钮' 使"添加"和"删除"按钮成为不可用状态Command2.Enabled = FalseCommand3.Ena

31、bled = False' 使"更新"按钮成为可用状态Command4.Enabled = True' 清空文本框中现实的内容Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub Private Sub Command3_Click() ' "删除"命令按钮Dim res As Integerres = MsgBox("确实要删除此行记录吗？", vbExclamation + vbYesNo + v

32、bDefaultButton2) '提示用户If res = vbYes Then ' 如确实要删除If AdodcManagement.Recordset.EOF = True ThenEnd IfEnd IfEnd SubPrivate Sub Command4_Click() ' "更新"命令按钮' 将文本框中的当前值写入结果集中相应字段中AdodcManagement.Recordset.Fields("管理日期") = Trim(Text1.Text)AdodcManagement.Recordset.Field

33、s("管理员编号") = Trim(Text2.Text)AdodcManagement.Recordset.Fields("管理员姓名") = Trim(Text3.Text)' 使更新生效' 使"添加"和"删除"按钮成为可用状态Command2.Enabled = TrueCommand3.Enabled = TrueEnd SubPrivate Sub Command5_Click() ' "上一条"命令按钮End SubPrivate Sub Command6_Click() ' "下一条"命令按钮End Sub3.33应用程序的使用说明为数据库中5个表设计的VB工程中，其基本类型相似，由于涉及到参照完整性约束，因此这里将重点说明“学生表”和“借阅表”的使用说明，“图书表”和“管理员表”参照“学生表”，“管理表”参照“借阅表”。（1） 学生表使用说明启动VB程序，打开“学生表”的工程文件，并运行该程序。1） 单击“上一条”“下一条”按钮，移动指针将上下移动到相应的条目。2） 单击“添加”按钮，窗体上的文本框控件将清空，可以在文本框