图书管理系统大数据库

word数据库原理与应用教程实验报告数据库分析与设计 -图书管理系统一、需求说明要实现一个简化的图书管理系统，在此图书管理系统中只涉与学生信息、借阅信息和管理者信息的管理。此系统要求能够记住书籍的根本信息、学生的信息和管理者的信息。该系统的业务要求为：u 一名学生可以在不同的日期屡次借阅同一本书。u 一名学生可以同时借阅多本不同的图书。u 一本书可以在不同的时间借给不同的学生。u 一名学生不能在同一天对同一本书借阅屡次。u 一名管理员可以同时管理多本图书。该系统的根本信息包括：u 学生信息：某某，学号，学院，专业，年级。u 图书信息：图书名称，图书编号，名称，出版日期，作者，是否可借。u 管理员信息：管理员某某，管理员编号。除上述要求外，该系统还需产生如下报表：u 学生借阅图书信息表：学号，图书编号，图书名称，借阅日期，应归还日期。u 图书管理表：管理日期，管理员编号，管理员某某。二、数据库结构设计2.1 概念结构设计概念结构设计是根据需求分析的结果产生概念结构设计的E-R模型。由于这个系统比拟简单，因此这里采用自顶向下的设计方法。自顶向下设计的关键是首先要确定系统的核心活动。所谓核心活动就是系统中的其他活动都要围绕这个活动展开或与此活动密切相关。确定了核心活动之后，系统就有了可扩展的余地。对于这个图书管理系统，其核心活动是图书，学生与图书之间是通过学生借阅图书发生联系的，管理员与图书之间是通过管理员管理图书发生联系的。至此，此系统包含的实体有：u 图书：用于描述课程的根本信息，用图书编号标识。u 学生：用于描述学生的根本信息，用学号标识。u 管理员：用于描述管理员的根本信息，用管理员编号标识。由于一名学生可以借阅多本图书，并且一本书可以在不同时间借给不同的学生。因此，学生与图书之间是多对多的联系。又由于一本图书可以由多名管理员管理，而且一名管理员可以管理多本图书。因此，管理员与图书之间也是多对多的联系。其根本E-R模型如图1所示： 管理员管理 图书借阅 学生 m n m n 根据需求分析的结果，该E-R模型模型中个实体所包含的属性如下：u 学生：某某，学号，学院，专业，年级。u 图书：图书名称，图书编号，名称，出版日期，作者，是否可借。u 管理员：管理员某某，管理员编号。各联系本身应具有的属性为：u 借阅：学号，图书编号，图书名称，借阅日期，应归还日期。u 管理：管理日期，管理员编号，管理员某某。这个E-R模型转换出的关系模式如下，其中主码用下划线标识：u 学生 学号，某某，学院，专业，年级u 图书 图书编号，图书名称，名称，出版日期，作者，是否可借u 管理员 管理员编号，管理员某某u 借阅 学号，图书标号，图书名称，借阅日期，应归还日期，其中图书编号为引用“图书关系模式的外码；学号为引用“学生关系模式的外码。u 管理 管理日期，管理员编号，管理员某某，其中管理员编号为引用“管理员关系模式的外码。（1） 确定各管是模式是否属于第三X式经过分析发现，“学生、“图书、“管理员、“借阅和“管理5个关系模式中，都不存在局部依赖和传递依赖关系，因此都属于第三X式。（2） 确定信息的完整性该教学管理系统要产生：学生借阅图书信息、图书管理2个报表，分别分析如下：u “学生借阅图书信息表包括学号、图书编号、图书名称、借阅日期、应归还日期。其中“学号可由“学生关系模式得到，“图书编号、“图书名称、“借阅日期、“应归还日期可由“借阅关系模式得到，因此可以满足学生借阅图书信息表的要求。u “图书管理表包括管理日期、管理员编号、管理员某某。其中“管理日期可由“管理关系模式得到，“管理员编号，“管理员某某可由“管理员关系模式得到。因此，所有关系模式满足所有报表的信息要求。至此，关系模式设计完毕。下面给出创建这些关系表的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 ,名称 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 KEY (学号,图书编号),FOREIGN KEY (学号) REFERENCES 学生表 (学号),FOREIGN KEY (图书编号) REFERENCES 图书表 (图书编号)CREATE TABLE管理表(管理日期 datetime NOT NULL ,管理员编号 char(10) NOT NULL ,管理员某某 char(10) NOT NULL ,PRIMARY KEY (管理日期,管理员编号),FOREIGN KEY (管理员编号) REFERENCES 管理员表 (管理员编号)(1) 学生借阅图书信息表我们将该报表直接用查询语句的形式生成，将动态查询条件作为查询语句中的数据筛选条件。例如，假设要为大三学生生成借阅图书情况的报表，如此语句如下：SELECT 学号，某某，图书名称FROM 借阅表 WHERE 年级 = 大三(2) 图书管理表该表可以查询出在哪一天由哪位管理员借出了哪些图书，因此，直接用查询语句生成。SELECT 图书编号，图书名称，管理日期，管理员编号，管理员某某三、 数据库行为设计对于数据库应用系统来说，最常用的功能是安全控制功能，数据的增、删、改、查功能以与生成报表的功能。本系统也应包括这些根本的操作。3.1 安全控件任何数据库应用系统都需要安全控件功能，这个图书管理系统也不例外。假设将系统的用户分为如下几类：u 图书馆系统管理人员：具有系统的全部操作权限。u 教务部门：具有对学生根本信息、图书信息和管理员信息的维护权。u 学生：具有对图书信息的查询权。在实现时，可将每一类用户定义为一个角色，这样在授权时只需对角色授权，而无需对每个具体的用户授权。3.2 数据操作功能数据操作功能包括对这些数据的录入、删除、修改功能。具体如下：（1） 数据录入包括对这5X表的录入。只有具有相应权限的用户才能录入相应表中的数据。（2） 数据删除包括对这5X表的删除。只有具有相应权限的用户才能删除相应表中的数据。数据的删除要注意表之间的关联关系。比如在删除“学生表中的数据之前，应先删除该学生在“借阅表中的信息，然后再学生表中删除该学生，以保证不违反参照完整性约束。另外，在实际执行删除操作之前应该提醒用户是否真的要删除数据，以免发生误操作。（3） 数据修改当某些数据发生变化或某些数据录入不正确时，应该允许用户对数据库中的数据进展修改，修改数据的操作一般是先根据一定的条件查询出要修改的记录，然后在对其中的某些记录进展修改，修改完成后再回到数据库中。同数据的录入与删除一样，只有具有相应权限的用户才能修改相应表中的数据。（4） 数据查询在数据库应用系统中，数据查询是最常用的功能。数据查询应根据用户提出的查询条件进展，在设计系统时应首先征求用户的查询需求，然后根据这些需求整理出系统应具有的查询功能。一般允许所有使用数据库的人都具有查询数据的权限。本系统提出的查询要求有：u 根据学号、学院、专业等信息查询学生的根本信息。u 根据图书编号查询图书的根本信息。u 根据管理员编号查询管理员的根本信息。u 统计各个年级学生借书的总数量。等等。制作这5个表的数据库使用DBMS的是ACCESS，然后用VB 语言编写程序代码，实现程序的各个功能。其中用到了ADO数据控件和DataGrid控件。1学生表VB代码Private Sub mand1_Click() 添加命令按钮 使添加和删除按钮成为不可用状态mand1.Enabled = Falsemand3.Enabled = False 使更新按钮成为可用状态mand4.Enabled = True 清空文本框中显示的内容Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub mand2_Click() 退出命令按钮EndEnd SubPrivate Sub mand3_Click() 删除命令按钮Dim res As Integerres = MsgBox(确实要删除此行记录吗？, vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如确实要删除If AdodcStudent.Recordset.EOF = True ThenEnd IfEnd IfEnd SubPrivate Sub mand4_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) 使更新生效 使添加和删除按钮成为可用状态mand1.Enabled = Truemand3.Enabled = TrueEnd SubPrivate Sub mand5_Click() 上一条命令按钮End SubPrivate Sub mand6_Click() 下一条命令按钮End Sub2图书表VB代码Private Sub mand2_Click() 添加命令按钮 使添加和删除按钮成为不可用状态mand2.Enabled = Falsemand3.Enabled = False 使更新和取消按钮成为可用状态mand4.Enabled = Truemand5.Enabled = True 清空文本框中显示的内容Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub mand3_Click() 删除命令按钮Dim res As Integerres = MsgBox(确定要删除此行记录?, vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如确实要删除If AdodcBook.Recordset.EOF = True Then End If End IfEnd SubPrivate Sub mand4_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) 使更新生效 使添加和删除按钮成为可用状态mand2.Enabled = Truemand3.Enabled = True 使取消按钮成为不可用状态mand5.Enabled = FalseEnd SubPrivate Sub mand5_Click()mand2.Enabled = Truemand3.Enabled = Truemand5.Enabled = FalseEnd SubPrivate Sub mand6_Click() 上一条命令按钮End SubPrivate Sub mand7_Click() 下一条命令按钮End Sub3管理员表VB代码Private Sub mand1_Click() 退出命令按钮EndEnd SubPrivate Sub mand2_Click() 添加命令按钮 使添加和删除按钮成为不可用状态mand2.Enabled = Falsemand3.Enabled = False 使更新按钮成为可用状态mand4.Enabled = True 清空文本框中现实的内容Text1.Text = Text2.Text = End SubPrivate Sub mand3_Click() 删除命令按钮Dim res As Integerres = MsgBox(确实要删除此行记录吗？, vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如确实要删除If AdodcManager.Recordset.EOF = True ThenEnd IfEnd IfEnd SubPrivate Sub mand4_Click() 更新命令按钮 将文本框中的当前值写入结果集中相应字段中AdodcManager.Recordset.Fields(管理员编号) = Trim(Text1.Text)AdodcManager.Recordset.Fields(管理员某某) = Trim(Text2.Text) 使更新生效 使添加和删除按钮成为可用状态mand2.Enabled = Truemand3.Enabled = TrueEnd SubPrivate Sub mand5_Click() 上一条命令按钮End SubPrivate Sub mand6_Click() 下一条命令按钮End Sub4借阅表VB代码Private Sub mand1_Click() 退出命令按钮EndEnd SubPrivate Sub mand2_Click() 上一条命令按钮End SubPrivate Sub mand3_Click() 下一条命令按钮End SubPrivate Sub mand4_Click() 添加命令按钮 使添加和删除按钮成为不可用状态mand4.Enabled = Falsemand5.Enabled = False 使更新按钮成为可用状态mand6.Enabled = True 清空文本框中现实的内容Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubPrivate Sub mand5_Click() 删除命令按钮Dim res As Integerres = MsgBox(确实要删除此行记录吗？, vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如确实要删除If AdodcBorrown.Recordset.EOF = True ThenEnd IfEnd IfEnd SubPrivate Sub mand6_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) 使更新生效 使添加和删除按钮成为可用状态mand4.Enabled = Truemand5.Enabled = TrueEnd Sub5管理表VB代码Private Sub mand1_Click() 退出命令按钮EndEnd SubPrivate Sub mand2_Click() 添加命令按钮 使添加和删除按钮成为不可用状态mand2.Enabled = Falsemand3.Enabled = False 使更新按钮成为可用状态mand4.Enabled = True 清空文本框中现实的内容Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub mand3_Click() 删除命令按钮Dim res As Integerres = MsgBox(确实要删除此行记录吗？, vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如确实要删除If AdodcManagement.Recordset.EOF = True ThenEnd IfEnd IfEnd SubPrivate Sub mand4_Click() 更新命令按钮 将文本框中的当前值写入结果集中相应字段中AdodcManagement.Recordset.Fields(管理日期) = Trim(Text1.Text)AdodcManagement.Recordset.Fields(管理员编号) = Trim(Text2.Text)AdodcManagement.Recordset.Fields(管理员某某) = Trim(Text3.Text) 使更新生效 使添加和删除按钮成为可用状态mand2.Enabled = Truemand3.Enabled = TrueEnd SubPrivate Sub mand5_Click() 上一条命令按钮End SubPrivate Sub mand6_Click() 下一条命令按钮End Sub为数据库中5个表设计的VB工程中，其根本类型相似，由于涉与到参照完整性约束，因此这里将重点说明“学生表和“借阅表的使用说明，“图书表和“管理员表参照“学生表，“管理表参照“借阅表。（1） 学生表使用说明启动VB程序，打开“学生表的工程文件，并运行该程序。1） 单击“上一条“下一条按钮，移动指针将上下移动到相应的条目。2） 单击“添加按钮，窗体上的文本框控件将清空，可以在文本框中输入数据，数据将同时显示在“学生表的最后一行条目中。3） 单击“更新按钮，数据将完整地添加到“学生表中。4） 要删除更新的数据时，先将移动指针指向要删除的条目，然后单击“删除“按钮，新添加的数据将从“学生表中删除。5单击“退出按钮，完毕程序代码，退出运行界面。（2） 图书表使用说明启动VB程序，打开“图书表的工程文件，并运行该程序。1单击“上一条“下一条按钮，移动指针将上下移动到相应的条目。2单击“添加按钮，窗体上的文本框控件将清空，可以在文本框中输入数据，数据将同时显示在“图书表的最后一行条目中。3单击“更新按钮，数据将完整地添加到“图书表中。4要删除更新的数据时，先将移动指针指向要删除的条目，然后单击“删除“按钮，新添加的数据将从“图书表中删除。5单击“退出按钮，完毕程序代码，退出运行界面。3管理员表使用说明启动VB程序，打开“管理员表的工程文件，并运行该程序。1单击“上一条“下一条按钮，移动指针将上下移动到相应的条目。2单击“添加按钮，窗体上的文本框控件将清空，可以在文本框中输入数据，数据将同时显示在“管理员表的最后一行条目中。3单击“更新按钮，数据将完整地添加到“管理员表中。4要删除更新的数据时，先将移动指针指向要删除的条目，然后单击“删除“按钮，新添加的数据将从“管理员表中删除。5单击“退出按钮，完毕程序代码，退出运行界面。4借阅表使用说明启动VB程序，打开“借阅表的工程文件，并运行该程序。1） 单击“上一条“下一条按钮，移动指针将上下移动到相应的条目。2） 单击“添加按钮，窗体上的文本框控件将清空，可以在文本框中输入数据，数据将同时显示在“借阅表的最后一行条目中。3） 注意，根据参照完整性约束，“借阅表与“图书表相连接，当“图书表中没有添加并更新新的数据时，单击“更新按钮后，添加的数据将无法更新到“借阅表中。4无法更新数据，也就不存在删除更新条目的操作。5单击“退出按钮，完毕程序代码，退出运行界面。5管理表使用说明启动VB程序，打开“管理表的工程文件，并运行该程序。1单击“上一条“下一条按钮，移动指针将上下移动到相应的条目。2单击“添加按钮，窗体上的文本框控件将清空，可以在文本框中输入数据，数据将同时显示在“管理表的最后一行条目中。3注意，根据参照完整性约束，“管理表与“管理员表相连接，当“管理员表中没有添加并更新新的数据时，单击“更新按钮后，添加的数据将无法更新到“管理表中。4无法更新数据，也就不存在删除更新条目的操作。5单击“退出按钮，完毕程序代码，退出运行界面。精彩文档