图书管理系统数据库Word文件下载.docx

1、因此,学生与图书之间是多对多的联系。又由于一本图书可以由多名管理员管理，而且一名管理员可以管理多本图书。因此，管理员与图书之间也是多对多的联系。其基本E-模型如图1所示： m n m n 根据需求分析的结果，该R模型模型中个实体所包含的属性如下：姓名，学号,学院,专业,年级。图书名称，图书编号，出版社名称,出版日期，作者,是否可借。管理员姓名，管理员编号。各联系本身应具有的属性为：借阅：学号,图书编号,图书名称,借阅日期,应归还日期。管理:.2逻辑结果设计这个E-R模型转换出的关系模式如下,其中主码用下划线标识:学生 （学号,姓名,学院,专业,年级）图书 （图书编号，图书名称，出版社名称，出版

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

3、应归还日期。其中“学号”可由“学生”关系模式得到,“图书编号”、“图书名称”、“借阅日期”、“应归还日期”可由“借阅”关系模式得到,因此可以满足学生借阅图书信息表的要求。“图书管理表”包括管理日期、管理员编号、管理员姓名。其中“管理日期”可由“管理”关系模式得到，“管理员编号”，“管理员姓名”可由“管理员”关系模式得到。因此,所有关系模式满足所有报表的信息要求。至此，关系模式设计完毕。下面给出创建这些关系表的SL语句示例,其中的数据类型可根据实际情况调整,为方便理解,表名、列名均用中文表示。REAT TABLE学生表（学号 ar（10） IMARY K，姓名 car（0） NOT ULL ,学

4、院 har（2） NT NUL ,专业 char（20） O NUL ,年级 ch（8） NT NUL ）RAETALE 图书表（图书编号 ar（2） PRIMRY Y，图书名称 car（20） NOT NULL ,出版社名称char（20） NOTNULL ,出版日期 daetme NOTNULL ,作者 char（1） NOT NL RATE TABE管理员表（管理员编号 char（1）RIMRYK,管理员姓名 c（10） NOT NUL REAE BE借阅表（学号 chr（10） OTNUL ,姓名 chr（1）OT NULL ，图书编号 chr（20） OTNULL ,图书名称 cha

5、r（20） NOT NULL ,借阅日期 detime NO NUL ,应归还日期 dtetim OT NUL,PIMAR K （学号,图书编号）,REIN EY （学号） EFEREES学生表（学号）,OREGN KE （图书编号） RFERENES图书表（图书编号）CREATEABE管理表（管理日期 dateti NOUL ,管理员编号 char（10） NOT ULL，管理员姓名 char（0） NOT N ,PRIMRYK（管理日期,管理员编号）,FOR EY（管理员编号） REFENES 管理员表 （管理员编号）.2设计外模式（1）学生借阅图书信息表我们将该报表直接用查询语句的形式生

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

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

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

9、功能。一般允许所有使用数据库的人都具有查询数据的权限。本系统提出的查询要求有:根据学号、学院、专业等信息查询学生的基本信息。根据图书编号查询图书的基本信息。根据管理员编号查询管理员的基本信息。统计各个年级学生借书的总数量。等等。3.应用程序实现3.1语言及BMS的选择制作这5个表的数据库使用DBMS的是CESS,然后用B 语言编写程序代码，实现程序的各个功能。其中用到了ADO数据控件和DataGid控件。3.2应用程序的编写（）学生表V代码rvate ubComandClick（） 添加命令按钮AoStudnt.Rcordet.AddNe 使和删除按钮成为不可用状态ommnd1.Enbld=

10、FalseComma3.abled =Fae使更新按钮成为可用状态Command4Enabld =Tru 清空文本框中显示的内容Text1.Tet Text2.Text = Text3.ext= Text4.Tet Text5Text = EndSuPrvate Sub Comman2_Clc（） 退出EndEndSubPrvate Su Comand3_lck（） Di resAs Itegres =sgox（确实要删除此行记录吗？, Eclmtin+ vesNo vbDfaultuton2） 提示用户If es =vbesThen 如确实要删除AdodStuentcorset.leedod

11、cStudent.Rerdset.Moextf dodStudet.Recodst.EF Tue Thendcuent.Rcordset.MoveastEdIEd IfEnd SubPite u Commad_Click（） 将文本框中的当前值写入结果集中相应字段中AddcStdnt.Recordse.Filds（学号） =Tm（Tet.Tex）dodcSdet.Recordset.Fies（姓名） = Tr（t2.Text）AdodcStudent.Rordset.Fields（学院）= i（Text3.Te）ddSunt.Recodse.Fieds（专业） = im（T4.Text）Ado

12、StudeRrdsetFeld（年级） = Tim（Tex.Te） 使更新生效ctdentecort.pda 使删除按钮成为可用状态Cmand1.Enale=TrueComad3.Eae = TreEn urivaeSb Command5Clik（） 上一条AodcSuden.Recodt.MovePeviusEndSPivaeSub Cmmand6Cick（） 下一条命令按钮Addctuentcordset.oveextEd Sub（）图书表V代码PrivateSuComd2Cli（） 添加命令按钮AddcBook.ecordse.ddew 使添加和删除omand2.nabed =FlseC

13、mmand3.Ened ls 使更新取消Comnd4.Enald= TueCommand5.nabld TruTxt1Tt ext.Txt = Tet.Text= Txt.Txt = Text5.Tex= ESurivate Sb Cmad3_Cik（） 删除m res As Itegerres gBox（确定要删除此行记录?, vbcamt+vbYesNo + vbDefaltButon2） 提示用户I res = vbYesTh Aoco.ReorstDeleteAdodcBook.orse.MovNexIf AdodBoRcset.EOF= True ThedodcBokRecrset.

14、MoveLas End If EndEnd SuPrivte ub Command4_Click（） 将文本框中的当前值写入结果集中相应字段中docBokRecordset.Fields（图书编号） = Trim（.Txt）AodcBook.Reordset.Fields（图书名称）=Trim（ext2.）Aodck.ecordet.Fields（出版社名称）=Trim（ext3.ext）ocBook.Recordst.iels（出版日期） = Trim（Text.Text）AddBoRort.Field（作者） =Trim（Txt5Tt）odcBok.Recrdet.pate添加和omman

15、dEnle = Tueoma3Enaled =True取消按钮成为不可用状态Comman5.Enable = aseEd SuPriate SubCmmand5Cic（）Comman2.abled =rueomand.nabled = TrCommand5.Enabed= FalsePrivteSub mmn6Click（） 上一条Addcook.coret.MovePreviousPriate SbCond7_Clik（） 下一条AdoBookRordset.Moex（3）管理员表VB代码Prvte Sb man_lik（） Enn SbPriteSubCommand2_Click（） Ad

16、cManaer.ecordset.AddNwCm2.Enled FalsComman3.abd =alseComan.Enaed = True 清空文本框中现实的内容Te1.Tet = Txt2.Text= Privte Sub Command3_Click（） Dim r A ngrre =sgBox（确实要删除此行记录吗?,bxcmati+vYesN+ vbDefalton2） 提示用户f res= vbYes hn 如确实要删除AdodcMangr.Recordse.DeleAdodcMnaereorsetoeNextI AdodcMaaer.Recrde.EO = TruTeAdcaa

17、ger.Recorset.oveastndIfd IfnSbriat Sub Comn4Clic（） 将文本框中的当前值写入结果集中相应字段中Adodanager.codsetFied（管理员编号） = rim（Tt1Tex）odcManager.ecsetFels（管理员姓名） Trim（Text.xt）AodcMagerecordsetUate 使添加Command2.Enabed = TrueComand3.Enabed = Truerivate Sub ommand5_Click（） dodcMnaercodse.MovreiousPrivat b CommadClick（） Adoc

18、anagrcrdset.MvNexEndb（）借阅表VB代码Priate Sub Coand1Clck（）Pivate Sb Commnd2_lck（） AdodcBorrn.RecordstoeProd SubPiate Sub oman_Clik（） 下一条doBrown.Rcordset.oeNexEnd SbPriate Sb mmand_lck（） AdodcBrrown.ecorse.dNe添加和删除按钮成为不可用状态Command4.Enabled= aseomn5.Enab =FalsCommad6.Eled True 清空文本框中现实的内容ext1.Tx =Text2.Tet

19、 =Text.e =Tex4.ex= etTxt Text.ext = End ubPivate u Cmand_Click（） Dim res As Inegerres = sgBx（,Elamti + vbsNo befaultButton） Ires =ves Ten如确实要删除ocBorron.RecordstDeleAddcorownRcorse.oeextIf odBown.Rordset.EO = TrueThnAdocBrron.RecordsetMoveLstEnd Ifnd frite Su Comm6ick（）AdodBorrow.Recordse.Fild（） = Tr

20、im（Text1.xt）docBorown.ecdset.Fies（姓名） = Tim（Tt2ext）dcorrow.RecdsetFeds（） = Tri（Tt3ext）AodcBorwncrdetels（图书名称） =rim（Tet4.Tx）AdodcBrrow.Recoset.Fields（借阅日期） =Trim（TextTx）Adocorrownecordset.Felds（应归还日期） = Ti（x6Txt）doBorownRort.Update和删除按钮成为可用状态Command4nble = ueComn5.Enabled =ruEn Sb（）管理表VB代码Priv Sub Co

21、mnd1_Clk（） EdPiat ubCommand2Clc（） Addcanageme.rdset.AddNew 使Cmmad2.Enabd = Falsemand3.Enabld = Fls更新按钮成为可用状态ommand.le= TrueTex1.t = Tex2.Text =Text.Tex En bPiate Sb Comand_ick（）Di res AsIntegerrs = MsBox（, vblaatio + vbYesNo+vbDefaltButton2） 提示用户r= bYs h 如确实要删除Adodceent.Recorset.etedodcManagement.Reodse.MoveexIdocManagemt.Recrse.EOF= TruhenAdodMagmetRecord.MoveLastEnd IEd SbPrivate ubomand_lck（） 更新 将文本框中的