图书管理系统数据库Word文件下载.docx
《图书管理系统数据库Word文件下载.docx》由会员分享，可在线阅读，更多相关《图书管理系统数据库Word文件下载.docx（26页珍藏版）》请在冰点文库上搜索。
因此,学生与图书之间是多对多的联系。
又由于一本图书可以由多名管理员管理，而且一名管理员可以管理多本图书。
因此，管理员与图书之间也是多对多的联系。
其基本E-Ｒ模型如图1所示：
m n m n
根据需求分析的结果，该Ｅ－R模型模型中个实体所包含的属性如下：
姓名，学号,学院,专业,年级。
图书名称，图书编号，出版社名称,出版日期，作者,是否可借。
管理员姓名，管理员编号。
各联系本身应具有的属性为：
◆借阅：
学号,图书编号,图书名称,借阅日期,应归还日期。
◆管理:
２.2逻辑结果设计
这个E-R模型转换出的关系模式如下,其中主码用下划线标识:
◆学生（学号,姓名,学院,专业,年级）
◆图书 （图书编号，图书名称，出版社名称，出版日期,作者，是否可借）
◆管理员（管理员编号,管理员姓名）
◆借阅 （学号，图书标号,图书名称，借阅日期，应归还日期）,其中图书编号为引用“图书”关系模式的外码；
学号为引用“学生”关系模式的外码。
◆管理 （管理日期，管理员编号,管理员姓名）,其中管理员编号为引用“管理员”关系模式的外码。
（1）确定各管是模式是否属于第三范式
经过分析发现，“学生”、“图书”、“管理员”、“借阅”和“管理”５个关系模式中，都不存在部分依赖和传递依赖关系,因此都属于第三范式。
（2）确定信息的完整性
该教学管理系统要产生：
学生借阅图书信息、图书管理２个报表，分别分析如下:
◆“学生借阅图书信息表”包括学号、图书编号、图书名称、借阅日期、应归还日期。
其中“学号”可由“学生”关系模式得到,“图书编号”、“图书名称”、“借阅日期”、“应归还日期”可由“借阅”关系模式得到,因此可以满足学生借阅图书信息表的要求。
◆“图书管理表”包括管理日期、管理员编号、管理员姓名。
其中“管理日期”可由“管理”关系模式得到，“管理员编号”，“管理员姓名”可由“管理员”关系模式得到。
因此,所有关系模式满足所有报表的信息要求。
至此，关系模式设计完毕。
下面给出创建这些关系表的SＱL语句示例,其中的数据类型可根据实际情况调整,为方便理解,表名、列名均用中文表示。
ＣREATＥTABLE 学生表（
学号 ｃｈar（10）ＰＲIMARYKＥＹ，
姓名 cｈar（１0）NOTＮULL,
学院ｃhar（2０） NＯTNUＬL,
专业 char（20） ＮOＴNUＬL,
年级 chａｒ（8）NＯTNULＬ
）
ＣRＥAＴE TAＢLE图书表（
图书编号 ｃｈar（2０） PRIMＡRYＫＥY，
图书名称 cｈar（20）NOTNULL,ﻩ
出版社名称 char（20） NOT NULL,
出版日期 daｔetｉme NOT NULL,
作者char（1０） NOTNＵLＬ
ＣRＥATETABＬE管理员表（
管理员编号char（1０） ＰRIMＡRY KＥＹ,
管理员姓名cｈａｒ（10） NOTNUＬL
ＣREAＴEＴＡBＬE借阅表（
学号 chａr（10） ＮOT NUＬL,
姓名 chａr（1０） ＮOTNULL，
图书编号 chａr（20） ＮOT NULL,
图书名称 char（20） NOTNULL,
借阅日期dａｔetimeNOＴNULＬ,
应归还日期dａtetimｅＮOTNULＬ ,
PＲIMARＹKＥＹ（学号,图书编号）,
ＦＯREIＧNＫEY（学号）ＲEFEREＮＣES 学生表 （学号）,
ＦOREＩGNKEＹ（图书编号）RＥFERENＣES 图书表 （图书编号）
CREATE ＴABＬE管理表（
管理日期 datetiｍｅ NOＴ ＮULＬ,
管理员编号char（10）NOTＮULL ，
管理员姓名char（１0）NOTNＵＬＬ,
PRIMＡRY KＥＹ （管理日期,管理员编号）,
FORＥＩＧＮＫEY （管理员编号）REFＥＲENＣES管理员表（管理员编号）
２.２.2设计外模式
（1）学生借阅图书信息表
我们将该报表直接用查询语句的形式生成,将动态查询条件作为查询语句中的数据筛选条件。
例如,假设要为大三学生生成借阅图书情况的报表,则语句如下:
SELECＴ学号，姓名,图书名称
FROＭ 借阅表 ＷＨERE年级= ‘大三’
（2）图书管理表
该表可以查询出在哪一天由哪位管理员借出了哪些图书，因此,直接用查询语句生成。
ＳEＬECT图书编号,图书名称,管理日期，管理员编号，管理员姓名
FROM借阅表JOIＮ管理表ON借阅表．借阅日期＝管理表．管理日期
三、数据库行为设计
对于数据库应用系统来说，最常用的功能是安全控制功能,数据的增、删、改、查功能以及生成报表的功能。
本系统也应包括这些基本的操作。
3.１安全控件
任何数据库应用系统都需要安全控件功能，这个图书管理系统也不例外。
假设将系统的用户分为如下几类：
◆图书馆系统管理人员：
具有系统的全部操作权限。
◆教务部门：
具有对学生基本信息、图书信息和管理员信息的维护权。
◆学生:
具有对图书信息的查询权。
在实现时，可将每一类用户定义为一个角色,这样在授权时只需对角色授权,而无需对每个具体的用户授权。
3.２数据操作功能
数据操作功能包括对这些数据的录入、删除、修改功能。
具体如下:
（1）数据录入
包括对这5张表的录入。
只有具有相应权限的用户才能录入相应表中的数据。
（2）数据删除
包括对这５张表的删除。
只有具有相应权限的用户才能删除相应表中的数据。
数据的删除要注意表之间的关联关系。
比如在删除“学生表”中的数据之前,应先删除该学生在“借阅表”中的信息,然后再学生表中删除该学生,以保证不违反参照完整性约束。
另外,在实际执行删除操作之前应该提醒用户是否真的要删除数据,以免发生误操作。
（3）数据修改
当某些数据发生变化或某些数据录入不正确时,应该允许用户对数据库中的数据进行修改，修改数据的操作一般是先根据一定的条件查询出要修改的记录,然后在对其中的某些记录进行修改，修改完成后再回到数据库中。
同数据的录入与删除一样，只有具有相应权限的用户才能修改相应表中的数据。
（4）数据查询
在数据库应用系统中,数据查询是最常用的功能。
数据查询应根据用户提出的查询条件进行,在设计系统时应首先征求用户的查询需求,然后根据这些需求整理出系统应具有的查询功能。
一般允许所有使用数据库的人都具有查询数据的权限。
本系统提出的查询要求有:
◆根据学号、学院、专业等信息查询学生的基本信息。
◆根据图书编号查询图书的基本信息。
◆根据管理员编号查询管理员的基本信息。
◆统计各个年级学生借书的总数量。
等等。
3.３应用程序实现
3.３1语言及ＤBMS的选择
制作这5个表的数据库使用DBMS的是ＡＣCESS,然后用ＶB语言编写程序代码，实现程序的各个功能。
其中用到了ADO数据控件和DataGｒid控件。
3.３2应用程序的编写
（１）学生表VＢ代码
ＰrｉvateＳub Comｍand１＿Click（） '
"
添加"
命令按钮
AｄoｄｃStudｅnt.Rｅcordｓet.AddNeｗ
'
使"
和"
删除"
按钮成为不可用状态
Ｃommａnd1.Enａblｅd =False
Commaｎｄ3.Ｅｎabled= Faｌｓe
使"
更新"
按钮成为可用状态
Command4．Enablｅd= Truｅ
＇ 清空文本框中显示的内容
Text1.Teｘt＝"
＂
Text2.Text="
"
Text3.Ｔext =＂"
Text4.Teｘt＝＂"
Text5．Text="
End Suｂ
PrｉvateSubCommanｄ2_Clｉcｋ（）'
"
退出"
End
End Sub
PrｉvateSuｂComｍand3_Ｃlｉck（） '
Diｍres AsIｎtegｅr
ｒes= ＭsgＢox（"
确实要删除此行记录吗？
ｖｂEｘclａmａtiｏn +vｂＹesNo ＋vbDｅfaultＢuｔton2）'
提示用户
Ifｒes= vbＹes Then'
如确实要删除
AdodｃStuｄent．Ｒｅcorｄset.Ｄｅleｔe
ＡdodcStudent.Reｃｏrdset.MoｖｅＮext
ＩfＡdodｃStudeｎt.Recoｒdsｅt.EＯF＝ TｒueThen
ＡdｏｄcＳｔuｄent.Rｅcordset.MoveＬast
Eｎd Iｆ
EｎdIf
EndSub
PｒiｖａteＳuｂCommaｎd４_Click（）＇"
将文本框中的当前值写入结果集中相应字段中
AdｏdcStｕdｅnt.Recordseｔ.Fiｅlds（"
学号"
）= Tｒｉm（Teｘt１.Texｔ）
ＡdodcSｔｕdeｎt.Recordset.Fieｌｄs（"
姓名"
）=Trｉｍ（Ｔｅｘt2.Text）
AdodcStudent.Rｅｃordset.Fields（"
学院"
） =Ｔｒiｍ（Text3.Teｘｔ）
ＡdｏdｃSｔuｄｅnt.Recoｒdseｔ.Fieｌds（"
专业"
）=Ｔｒim（Tｅｘｔ4.Text）
AdoｄｃStudeｎｔ．Rｅｃｏrdset．Fｉeldｓ（"
年级"
）=Tｒim（Texｔ５.Teｘｔ）
使更新生效
ＡｄｏｄcＳtｕdent．Ｒecorｄｓｅt.Ｕpdaｔｅ
＇使"
删除＂按钮成为可用状态
Cｏｍmand1.Enaｂleｄ = True
Comｍaｎd3.Eｎaｂｌeｄ=Trｕe
EnｄＳuｂ
Ｐrivaｔe SｕbCommand5＿Cliｃk（）'
＂上一条"
AｄodcSｔudenｔ.Recoｒdｓｅt.MovePｒeviｏus
End Sｕｂ
Pｒivaｔe SubCｏmmand6＿Cｌick（） ＇ "
下一条＂命令按钮
AdｏdcＳtuｄent．Ｒｅcordset.ＭoveＮext
EｎdSub
（２）图书表VＢ代码
Private Suｂ Coｍmａｎd2＿Cliｃｋ（） '
添加＂命令按钮
AdｏdcBook.Ｒecordseｔ.ＡddＮew
使＂添加"
和＂删除"
Ｃomｍand2.Ｅnabｌed= Fａlse
Cｏmmand3.Enａｂｌed＝ Ｆａlsｅ
＇使＂更新"
取消"
Coｍmａnd4.Enaｂlｅd =Tｒue
Command5.Ｅnablｅd＝ Truｅ
Tｅxt1．Tｅｘt＝＂"
Ｔext２.Tｅxt="
Teｘt３.Text ="
Tｅxt４.Tｅxt="
Text5.Texｔ ="
Eｎｄ Suｂ
ＰrivateSｕbCｏmｍaｎd3_Cｌiｃk（）'
＂删除"
ＤｉmresAsIｎteger
res＝ＭｓgBox（"
确定要删除此行记录?
＂,vbＥｘcｌamａtｉｏｎ + vbYesNo+vbDefaｕltBuｔton2）'
提示用户
Iｆres=vbYes Thｅｎ'
AｄoｄcＢｏoｋ.Reｃorｄsｅt．Delete
AdodcBook.Ｒｅｃorｄseｔ.MovｅNexｔ
IfAdodｃBoｏｋ．Rｅcｏｒｄset.EOF =TrueTheｎ
ＡdodcBｏok．Recｏrｄset.MoveLasｔ
EndIf
End Ｉｆ
EndSuｂ
PrivａteＳubCommand4_Click（）'
＇将文本框中的当前值写入结果集中相应字段中
ＡdoｄcBｏok．Recordset.Fields（"
图书编号"
）=Trim（Ｔｅｘｔ１.Tｅxt）
AｄodcBook.Reｃordset.Fields（"
图书名称"
） = Trim（Ｔext2.Ｔｅｘｔ）
AｄodcＢｏｏk.Ｒecordｓet.Fields（"
出版社名称＂） = Trim（Ｔext3.Ｔext）
ＡｄoｄcBook.Recordsｅt.Ｆielｄs（"
出版日期＂）=Trim（Text４.Text）
AdｏdｃBoｏｋ．Rｅｃorｄｓｅt.Fieldｓ（＂作者"
）= Trim（Tｅxt5．Tｅｘt）
ＡｄodcBｏok.Recｏrdｓet.Ｕpｄate
添加＂和"
Ｃommand２．Enａｂleｄ=Tｒue
Ｃoｍmaｎｄ3．Enaｂled= True
取消＂按钮成为不可用状态
Commanｄ5.Enableｄ=Ｆaｌse
EｎdSuｂ
PriｖateSub Cｏmmand5＿Cｌicｋ（）
Commanｄ2.Ｅｎabled= Ｔrue
Ｃomｍand３.Ｅnabled=Trｕｅ
Command5.Enabｌed =False
Privａte SubＣｏmmａnｄ6＿Click（）'
上一条"
AdｏdcＢook.Ｒｅcorｄｓet.MovePrevious
PriｖateSｕb Coｍｍａnd7_Cliｃk（） '
"
下一条"
AdoｄｃBook．Rｅｃordset.MoｖeＮｅxｔ
（3）管理员表VB代码
PrｉvａteSｕbＣｏmｍanｄ１_Ｃliｃk（）＇"
Enｄ
ＥnｄSｕb
Priｖａte Sub Command2_Click（）'
AdｏｄcManaｇer.Ｒecordset.AddNｅw
Cｏmｍａｎｄ2.Enａｂled＝Falsｅ
Commanｄ3.Ｅｎabｌｅd= Ｆalse
Comｍanｄ４.Enaｂｌed=True
清空文本框中现实的内容
Teｘｔ1.Teｘt=＂"
Tｅxt2.Text ="
PrivａteSubCommand3_Click（）'
DimrｅｓAｓＩnｔｅgｅr
reｓ= ＭsgBox（"
确实要删除此行记录吗?
ｖbＥxcｌａmatiｏｎ + vｂYesNｏ +vbDefaｕlｔＢｕｔton2）＇提示用户
Ｉfres =vbYesＴhｅn＇如确实要删除
AdodcManａgｅr.Recordseｔ.Delｅｔe
AdodcMａnaｇer．Ｒeｃorｄset．ＭoｖeNext
IｆAdodcMaｎaｇer.Recｏrdｓeｔ.EOＦ=Truｅ Tｈeｎ
AｄｏdcＭaｎager.Recorｄset.ＭoveＬast
Ｅnd If
ＥｎdIf
Ｅnｄ Sｕb
ＰriｖatｅSubCoｍmａnｄ4＿Clicｋ（）'
将文本框中的当前值写入结果集中相应字段中
AdodｃＭanager.Ｒｅcoｒdset．Fieｌdｓ（＂管理员编号"
）=Ｔrim（Tｅｘt1．Texｔ）
ＡｄodcManager.Ｒecｏｒｄset．Fｉelｄs（"
管理员姓名＂）＝Trim（Text２.Ｔｅxt）
AｄodcMaｎａger．Ｒecordset．Uｐｄate
使＂添加"
Command2.Enabｌed=True
Comｍand3.Enabｌed=True
ＰrivateSubＣommand5_Click（）'
ＡdodcMａnaｇer．Ｒｅcoｒdseｔ.MovｅＰreｖious
PrivatｅＳｕbCommaｎd６＿Click（）'
AdoｄcＭanagｅr．Ｒｅcｏrdset.MｏvｅNexｔ
End Ｓｕb
（４）借阅表VB代码
PriｖateSubCoｍｍand1＿Clｉck（） '
PｒivateSｕbCommａnd2_Ｃlｉck（） ＇"
AdodcBorrｏｗn.Recordsｅt．ＭoｖePrｅｖｉoｕｓ
ＥｎdSub
PｒiｖateSubＣomｍanｄ３_Cliｃk（） '
＂下一条"
ＡdoｄｃBｏrｒown.Rｅcordset.ＭoｖeNexｔ
EndSｕb
PriｖateSｕbＣｏmmand４_Ｃlｉck（）＇"
AdodcBｏrrown.Ｒecorｄseｔ.ＡdｄNeｗ
添加＂和＂删除＂按钮成为不可用状态
Command4.Enabled =Ｆaｌse
Ｃoｍmａnｄ5.Enabｌｅｄ= Falsｅ
Commaｎd6.Eｎａｂled＝ True
清空文本框中现实的内容
Ｔext1.Tｅxｔ= "
Text2.Teｘt= "
Text３.Ｔeｘｔ= "
Texｔ4.Ｔexｔ =＂"
Ｔeｘt５．Tｅxt＝"
Text６.Ｔext="
EndＳub
PｒivateＳuｂCｏｍmand５_Click（）'
DimresAsInｔeger
res=ＭsgBｏx（"
ｖｂEｘｃlamａtiｏｎ+vbＹｅsNo＋ｖbＤefaultButton２）'
Iｆ res= vｂＹesTｈen '
如确实要删除
ＡｄoｄcBorroｗn.Recordsｅt．Deleｔｅ
AdｏdcＢoｒrown．Rｅcorｄseｔ.ＭoｖeＮext
IfＡｄodｃBoｒｒｏwn.Rｅｃordset.EOＦ=True Thｅn
AdoｄcBｏrroｗn.Recordset．MoveLａst
EndIf
ＥndＩf
ＰriｖａteSuｂCommａｎｄ6＿Ｃｌick（） '
AdodｃBorrowｎ.Recordseｔ.Fiｅldｓ（"
）=Trim（Text1.Ｔｅxt）
ＡdoｄcBoｒrown.Ｒecｏｒdset.Fieｌｄs（＂姓名"
）=Tｒim（Tｅｘt2．Ｔext）
ＡｄｏdcＢorrowｎ.Recｏｒdset．Fｉeｌds（"
）=Triｍ（Tｅｘt3．Ｔext）
AｄodcBorｒｏwn．Ｒｅcｏrdｓet．Ｆｉelｄs（＂图书名称"
）= Ｔrim（Teｘt4.Tｅxｔ）
AdodcBｏrrowｎ.Recoｒｄset.Fields（"
借阅日期"
）= Trim（Text５．Tｅxｔ）
AdoｄcＢorrown．Ｒecordset.Fｉelds（＂应归还日期＂）=Tｒiｍ（Ｔｅxｔ6．Tｅxt）
ＡdoｄｃBorｒown．Rｅｃorｄｓｅt.Update
和＂删除＂按钮成为可用状态
Command4．Ｅnａbleｄ=Ｔｒue
Comｍａnｄ5.Enabled= Ｔruｅ
EnｄSｕb
（５）管理表VB代码
PrivａｔｅSubCoｍmａnd1_Clｉｃk（）'
Eｎd
PｒiｖatｅＳub Command2＿Clｉcｋ（）＇"
AdｏdcＭanagemeｎｔ.Ｒｅｃｏrdset.AddNew
使"
Cｏmmaｎd2.Enabｌｅd=False
Ｃｏｍmand3.Enablｅd=Fａlsｅ
更新＂按钮成为可用状态
Ｃommand４.Ｅｎａｂleｄ =True
Texｔ1.Ｔｅｘt=＂"
Texｔ2.Text= "
Text３.Texｔ＝"
EnｄＳｕb
PｒiｖateSｕbCoｍmand３_Ｃｌick（） '
DiｍresAs Integer
rｅs=MsｇBox（"
vbＥｘｃlaｍatioｎ+vbYesNo + vbDefaｕltButton2）'
提示用户
Ｉｆ rｅｓ =ｖbYｅsＴhｅｎ＇如确实要删除
AdodcＭａｎａｇeｍent.Recorｄset.Ｄeｌｅte
ＡdodcManagement.Reｃoｒdseｔ.MoveＮexｔ
Iｆ ＡdoｄcManagemｅｎt.Recｏrｄseｔ.EOF =Truｅ Ｔhen
AdodｃMａｎagｅmeｎt．Recordｓｅｔ.MoveLast
EndIｆ
EｎdSｕb
PrivateＳub Ｃoｍmand４_Ｃlｉck（）＇＂更新"
将文本框中的
升级会员 