图书馆管理系统ER图Word文档格式.docx

1、3）.添加新的读者及其信息等。 图书信息管理模块主要功能如下：1）.定制书籍的各种信息管理，如：书名、作者、出版信息等。2）.书籍信息的修改，新图书的入库管理和图书的注销等。 系统管理模块主要功能如下：1）.用户登录。2）.修改密码。3）.添加用户。 系统备份和数据传输模块主要功能如下：1）.备份数据库数据2）.恢复数据库数据3）.网络数据传输13 数据流图 数据流总体图示图1-1 数据流总体图 办理借书证图1-2 输借书证流图 借书证修改图1-3 借书证修改流图 借书证注销图1-4借书证注销流图 借书系统不能借书的原因图1-5借书系统流图 检索系统图1-6 检索系统流图 还书系统图1-7 还

2、书系统流图 图书档案管理系统图1-8 档案管理流图 数据字典参数名类型长度取值范围别名意义图书书名字符型11SM图书编号SH作者10YZ出版社20CBS单价数值型8DJ借出日期日期型yy-mm-ddJS还书日期HS借书证号JSZ姓名NAME是否归还YN性别2SEX单位DW发证日期FZ已借书册数YNC是否允许借书YNS是或否类别LB进册数JC库存量CZ操作员编号CB操作员姓名CNAME操作员密码 15MM表1数据字典2 概念结构设计这一阶段我们将客户的应用需求抽象为信息世界的结构，即对系统的人、物、事和概念进行人为处理，抽取人们所关心的共同特性，同时把这些特性用概念精确的描述。我们首先根据需求分

3、析的结果（数据流图、数据字典等）对现实世界的数据进行抽象，设计各个局部E-R图，然后合并成初步E-R图，再进行修改与重构。局部E-R图图书信息管理系统主要分为以下几个局部E-R图：1）.借书证处理系统ER图：图2-1 借书证处理系统ER图图中各实体属性如下：读者档案：学号，读者姓名，性别，出生日期，借书证号，职业，单位，通讯地址，邮政编码，联系电话借书证：借书证号，姓名，性别，办证日期，借阅范围，最大借书量，照片，身份证号管理员：管理员编号，管理员姓名，登陆密码2）.借书系统ER图：图2-2借书系统ER图读者：身份证号，读者姓名，借书证号借书证号，姓名，性别，办证日期（借阅范围，最大借书量，照

4、片，身份证号）库存信息：书号，图书编号借出信息：图书编号，借书证号，借书日期，归还日期3）.索书系统ER图：图2-3索书系统ER图读者姓名，借书证号图书档案：图书编号，书号，书名，作者，出版单位，出版日期，单价，藏书册书，类别,入库日期4）.还书系统ER图：图2-4 还书系统ER图学号，读者姓名，借书证号借书证号，姓名，性别，办证日期操作员编号，管理员姓名，登陆密码5）图书档案管理系统ER图：图2-5 档案管理系统ER图图书编号，书号，书名，作者，出版单位，出版日期，单价，类别，入库日期入库清单：入库日期，图书编号，管理员编号，书名6）. 整体E-R图图2-6 整体ER图学号,读者姓名，性别，

5、借书证号，单位书号，书名，作者，出版单位，出版日期，单价，类别，藏书册书，图书编号入库日期 实体描述说明：1、由于读者的信息可以在借书证办理档案中查到所以合并为借书证办理档案 2. 将借出书库和入库清单分别合并到了借书登记表和图书信息表中实体名称借书证数据库表借书证信息表实体说明读者和借书证信息实体属性列表借书证号，姓名，性别，办证日期，最大借书量，学号管理员tz_passwd管理员的信息读者借书登记表图书馆未被借出的图书信息还书登记表图书档案图书信息表馆藏图书信息书号，书名，作者，出版单位，出版日期，版次，单价，类别,图书编号，入库日期表2 实体描述 关系描述 （已包含在E-R图中） 实体-

6、关系调整 （实体描述表中已消除冗余实体和关系） 数据项定义1）图书库的数据项定义：名称其他普通索引书号主索引译者出版时间CBSJ表3 图书库数据项定义2）借、还书库的数据项定义：XSXMJSZH借书日期JSRQHSRQ表4借、还书库数据项定义3）借书证库的数据项定义：JSXMJSGH6XB4表5借书证库数据项定义4）操作员库的数据项定义：CZYYHH操作员用户名CZYYHM口令KL表6操作员库数据项定义数据表（库）描述图书数据库=图书书名+图书编号+着者+出版社+单价+书号+出版时间借书库=姓名+借书证号+教师姓名+图书名称+借书日期+还书日期教师数据库=姓名+借书证号+单位操作员库=操作员用

7、户名+口令 系统功能模块图软件功能结构图：工商学院图书信息管理系统系统管理基本情况录入借、还书管理查询、统计初始化数据备份操作员管理一般用户登陆新图书登记新期刊登记借书登记还书登记图书库藏查询借书证库查询图书查询借书查询还书查询图2-7 软件功能结构 系统流程图：图书管理系统读者查询系统图书（期刊）库查询图2-8 系统流程图3 逻辑结构设计为了能够用计算机和SQL Server实现用户需求，可将概念结构转化为相应的数据模型，即是设计逻辑结构。即由ER图建立了适当的表，并按不同的范式的定义，对表进行规范化。对规范化的表，更据用户需求建立数据库结构。 确定数据依赖关系名主 要 函 数 依 赖管理员

8、 BCNF管理员编号（管理员姓名，登陆密码）库存信息BCNF 图书编号书名等借出信息（图书编号）（借书日期，借书证号，归还日期）2NF借书证号（借书证号，姓名，性别，单位，发证日期，已借书册书，是否容许借书）以后扩展：身份证号（姓名，性别，照片）图书编号（书号，书名，作者，出版单位，出版日期，版次，单价，内容提要，分类号，索书号，所在书库，入库日期）入库清单图书编号（管理员编号，书名，入库日期）还书信息借书证号（姓名，图书编号，书名，借出日期，还书日期） 数据依赖的优化与调整3.2.1关系模式的优化 （1） 借书证信息：借书证 （借书证号，姓名，性别，单位，发证日期，已借书册书，是否容许借书）

9、 满足 BCNF范式（2） 管理员信息：管理员信息（管理员编号，管理员姓名，登陆密码）满足 BCNF 范式（3） 库存信息：库存信息（图书编号，书号） 满足BCNF 范式（4） 借书信息：借书信息（图书编号，借书证号，姓名，书名，借书日期，是否归还）满足 BCNF 范式（5） 还书信息：还书信息（姓名，图书编号，书名，借出日期，还书日期）满足 BCNF 范式（6） 图书信息：图书档案（图书编号，书名，作者，图书类别，单价，出版社，进册书，库存量）均满足 BCNF范式（7） 入库清单：入库清单（图书编号，管理员编号，书名，入库日期）满足 BCNF范式3.2.2关系模式的调整虽然在关系模式的优化中

10、将各种关系满足了BCNF范式的要求，但是对某些数据库的操作却并没有简化，相反导致了数据库查询等数据库操作的效率低下。于是对借书证信息，和图书信息作出了以下调整。借书证（借书证号，姓名，性别，办证日期，单位，已借书册数，借书许可，）（3NF） （2） 图书信息： 图书档案（图书编号，书名，作者，出版单位，单价，图书类别，进册数，入库量） （2NF）4 代码设计图书管理系统部分源代码图书外借情况查询代码tempstr=%+tempstr+借书证号select * from 借书登记表 where 借书登记表.借书证号 like tempstr into cursor tempcursorendif

11、姓名select * from 借书登记表 where 借书登记表.姓名 like tempstr into cursor tempcursorendif 图书编号select * from 借书登记表 where 借书登记表.图书编号 like tempstr into cursor tempcursor书名select * from 借书登记表 where 借书登记表.书名 like tempstr into cursor tempcursor是否归还select * from 借书登记表 where 借书登记表.是否归还 like tempstr into cursor tempcurs

12、or图书外借和归还情况查询代码select * from 还书登记表 where 还书登记表.借书证号 like tempstr into cursor tempcursorselect * from 还书登记表 where 还书登记表.姓名 like tempstr into cursor tempcursorselect * from 还书登记表 where 还书登记表.图书编号 like tempstr into cursor tempcursorselect * from 还书登记表 where 还书登记表.书名 like tempstr into cursor tempcursor存

13、储过程代码procedure rideletelocal llretvalllretval=.t. if （isrlocked（） and !deleted（） or !rlock（） llretval=.f. else if !deleted（） delete if cursorgetprop（buffering） 1 =tableupdate（） endif llretval=pnerror=0 endif not already deleted unlock record （recno（）return llretvalprocedure riupdatelparameters tcfie

14、ldname,tcnewvalue,tccascadeparent if isrlocked（） or ! if eval（tcfieldname）tcnewvalue private pccascadeparent pccascadeparent=upper（iif（type（tccascadeparent）c,tccascadeparent） replace （tcfieldname） with tcnewvalue endif values dont already match endif its locked already, or i was able to lock itproce

15、dure rierrorparameters tnerrno,tcmessage,tccode,tcprogramlocal lnerrorrows,lnxxlnerrorrows=alen（gaerrors,1）if type（gaerrorslnerrorrows,1l dimension gaerrorslnerrorrows+1,alen（gaerrors,2） lnerrorrows=lnerrorrows+1gaerrorslnerrorrows,1=tnerrnogaerrorslnerrorrows,2=tcmessagegaerrorslnerrorrows,3=tccode

16、gaerrorslnerrorrows,4=lnxx=1do while !empty（program（lnxx） gaerrorslnerrorrows,4=gaerrorslnerrorrows,4+; program（lnxx） lnxx=lnxx+1enddogaerrorslnerrorrows,5=pcparentdbfgaerrorslnerrorrows,6=pnparentrecgaerrorslnerrorrows,7=pcparentidgaerrorslnerrorrows,8=pcparentexprgaerrorslnerrorrows,9=pcchilddbfga

17、errorslnerrorrows,10=pnchildrecgaerrorslnerrorrows,11=pcchildidgaerrorslnerrorrows,12=pcchildexprreturn tnerrnoprocedure riopenparameters tctable,tcorderlocal lccurwkarea,lcnewwkarea,lninusespotlninusespot=atc（tctable+*,pcricursors）if lninusespot=0 lccurwkarea=select（） select 0 lcnewwkarea=select（）

18、if not empty（tcorder） use （tctable） again order （tcorder） ; alias （_ri+ltrim（str（select（） share use （tctable） again alias （ if pnerror=0 pcricursors=pcricursors+upper（tctable）+str（select（）,5） lcnewwkarea=0 endif something bad happened while attempting to open the fileelse lcnewwkarea=val（substr（pcri

19、cursors,lninusespot+len（tctable）+1,5） pcricursors = strtran（pcricursors,upper（tctable）+str（lcnewwkarea,5）,; upper（tctable）+str（lcnewwkarea,5） set order to （tcorder） in （lcnewwkarea） endif sent an order if pnerror endif something bad happened while setting orderreturn （lcnewwkarea）procedure riendpara

20、meters tlsuccesslocal lnxx,lnspot,lcworkareaif tlsuccess end transaction set deleted off rollback set deleted onif empty（pcriolderror） on error on error &pcriolderror.for lnxx=1 to occurs（ lnspot=atc（,pcricursors,lnxx）+1 use in （val（substr（pcricursors,lnspot,5）endforif pcoldcompat = on set compatible onif pcolddele=offif pcoldexact= set exact onif pcoldtalk= set talk ondo case case empty（pcolddbc） set data to case pcolddbcdbc（） set data to （pcolddbc）endcas