图书馆管理系统设计报告-大学论文.doc

《图书馆管理系统设计报告-大学论文.doc》由会员分享，可在线阅读，更多相关《图书馆管理系统设计报告-大学论文.doc（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、一 系统开发平台介绍1.1 开发工具介绍本系统所使用的开发工具是Visual Basic 6.0 。Visual Basic 6.0是Microsoft Visual Studio 6.0 可视化工具中的一个开发系统。是一个用于快速开发基于Windows的客户机/服务器应用程序的高效工具，与以前各版本相比Visual Basic 6.0具有以下新特点。1 提供了高效能的源码编译器，使应用程序得到优化。2 提供了新的比其他数据访问接口更加方便，更加全面的数据访问接口ADO(ActiveX Data object)，能访问除了标准的关系型数据库（如 Access Foxpro SQL server

2、 等）中的数据库外，还能访问邮件数据，Web上的文本或图形目录服务器等信息。3 提供了动态的HTML页面设计器。4 提供了WEB CAASS设计器。Visual Basic 6.0开发软件的优势：1 可视化程序设计2 面向对象的程序设计3 事件驱动的编程机制4 高度的扩充性5 支持大型数据库的连接与存取操作1.2 后台数据库介绍 本系统所使用的后台数据库是Access数据库数据库引擎数据库引擎是一种管理数据怎样被存储和检索的软件系统，数据库的基本功能就是由它来提供的。数据库引擎有许多种，本系统所涉及的数据库引擎是Microsoft Jet。Jet不是一个商业产品,准确的说它是好几个Micros

3、oft产品使用的子系统，在Visual Basic 3.0和Microsoft Access1.0中Microsoft就引入了这个引擎，以后Microsoft经常修正这个引擎，并且不断提升其功能。本系统涉及的版本是Jet3.51二 系统分析设计数据库系统时，应该充分了解用户各方面需求，包括现有的以及将来可能增加的需求，数据库设计一般包括以下几个步骤：（1） 数据需求分析、（2） 数据库概念结构设计（3） 数据库逻辑结构设计2.1 数据库需求分析用户的需求具体体现在各种信息的提供，保存，更新和查询。这就要求数据库的结构能充分满足各种信息的输入和输出。在仔细分析调查有关图书馆管理信息需求的基础上设

4、计出如图（见附录图书馆管理系统数据流程图）所示的数据流程针对图书馆管理系统的需求，通过对图书馆管理工作过程的内容和数据流程分析，设计出如下的数据项1书库图书信息，包括数据项有：图书编号、书名、书号、类别、出版社、作者、ISBN、印张、字数、版次、印数、定价、开本、是否在库、是否损坏、是否遗失、入库时间、图书介绍2 学生信息，包括数据项有：学生编号、学号、姓名、性别、系别、班级、级别、已借图书、照片3 借书信息，包括数据项有：图书序号、学生序号、是否归还、书名、姓名、学号、书号、系别、班级、已借图书、出版社、作者、借阅日期、图书类别、是否续借4 供货商信息，包括数据项有：供货商序号、供货商、城市

5、、地址、电话、传真、邮政编码、EMAIL、联系人、首次合作时间5 定单信息，包括数据项有：定单序号、书名、书号、类别、出版社、作者、ISBN、印张、字数、版次、印数、定价、开本、详细信息、供货商序号、供货商、联系人、城市、订购数量、订购价格、交付方式、交货日期、定单日期、是否验收、验收日期6 过期图书信息，包括数据项有：图书序号、书名、书号、学生序号、学生姓名、系别、班级、过期时间7 员工信息，包括数据项有：员工序号、姓名、密码、类别、性别、家庭住址、联系电话、职务、出生日期、照片8 罚款信息，包括数据项有：流水号、罚款原因、罚款金额、日期2.2 数据库概念结构设计得到上面的数据项就能够设计出

6、以下各种实体以及它们的关系，为后面的逻辑结构设计打下基础根据上面的实力设计规划出的实体有：图书信息实体、学生信息实体、借阅信息实体、供货商信息实体、定单信息实体、过期图书实体、员工信息实体、罚款信息实体。Shukubiao(图书信息实体)图书介绍书名图书序号图2-1 图书信息实体E-R图Xueshengbiao(学生信息实体) 学生序号已借图书姓名图2-2 学生信息实体E-R图Jh(借阅信息实体) 续借学生序号图书序号图2-3 借阅信息实体E-R图Ghs(供货商信息实体) 供货商序号供货商联系人图2-4 供货商信息实体E-R图Orders(定单信息实体)定单序号书名定单日期 图2-5 定单信息

7、实体E-R图Gqs(过期书信息实体)过期时间图书序号学生序号图2-6 过期图书信息实体E-R图Password1(员工信息实体) 员工序号职务姓名图2-7 员工信息实体E-R图Jhfk(罚款信息实体)日期罚款原因流水号图2-8 罚款信息实体E-R图Xueshengbiao(学生信Shukubiao(图书信息借书借书Jh(借阅信息实Gqs(过期书信息实统计资料Ghs(供货商信息Jhfk(罚款信息实Orders(定单信息图2-9 各实体间关系图2.3 数据库逻辑结构设计图书馆管理系统中数据库的各个表格设计结果如下：表2-1：shukubiao 书库图书信息表列名数据类型说明图书序号Text图书的编

8、号，唯一书号Text图书书号书名Text书名类别Text图书类别出版社Text出版社作者Text作者ISBNText图书ISBN号印张Text图书印张字数Text字数版次Text图书版次印数Text印数定价Currency图书定价开本Text开本是否在库Boolean是否在书库中的标志是否损坏Boolean是否损坏的标志是否遗失Boolean是否遗失的标志入库时间Date/Time图书入库的日期图书介绍Text图书的简单介绍表2-2：xueshengbiao 书库图书信息表列名数据类型说明学生序号Text学生的编号，唯一学号Text学号，不唯一姓名Text学生姓名性别Boolean性别系别Te

9、xt学生系别班级Text学生所在班级级别Integer学生的级别，表示借书的能力已借图书Integer已经借过图书多少本照片Text存放学生照片的路径表2-3：jh 借阅信息表列名数据类型说明图书序号Text图书序号学生序号Text学生序号书名Text书名姓名Text学生姓名学号Text学号书号Text书号系别Text学生系别班级Text学生班级已借图书Integer学生已经借阅的图书数量出版社Text出版社作者Text图书作者借阅日期Date/Time借阅日期图书类别Text图书类别是否归还Boolean该书是否归还续借Boolean该书是否续借过表2-4 ghs 供货商信息表列名数据类型说

10、明供货商序号Text供货商序号供货商Text供货商城市Text城市地址Text地址电话Text电话传真Text传真邮政编码Text邮政编码EMAILTextEMAIL联系人Text联系人首次合作时间Date/Time首次合作时间表2-5 orders 定单信息表列名数据类型说明定单序号Text定单序号书名Text书名类别Text类别出版社Text出版社作者Text作者ISBNTextISBN印张Text印张字数Text字数版次Text版次开本Text开本印数Text印数定价Currency定价详细信息Text详细信息供货商序号Text供货商序号供货商Text供货商联系人Text联系人城市Tex

11、t供货商城市订购数量Integer订购数量订购价格Currency订购价格交付方式Text交付方式交货日期Date/Time定单验收的日期书号Text书号定单日期Date/Time定单填写的日期是否验收Boolean定单验收的标志验收日期Date/Time定单验收日期表2-6 gqs 过期书信息表列名数据类型说明图书序号Text图书序号书名Text书名书号Text书号学生序号Text学生序号学生姓名Text学生姓名系别Text系别班级Text班级过期时间Date/Time过期的天数表2-7 password1 员工信息表列名数据类型说明姓名Text员工姓名员工序号Text员工序号密码Text密

12、码类别Boolean员工权限级别性别Text性别家庭住址Text家庭住址联系电话Text联系电话职务Text职务出生日期Date/Time出生日期照片Text存放员工照片的路径表2-8 jhfk 罚款信息表列名数据类型说明流水号Long流水号罚款原因Text罚款原因罚款金额Currency罚款金额日期Date/Time日期2.4 设计方案构思2.4.1图书馆管理信息系统的功能分析图书馆管理具有自身鲜明的特点：（1） 根据操作人员的级别不同设置权限，对系统的操作有权限的设置（2） 能够实现图书的借、还、续借功能（3） 具有对图书库的一般性维护的功能，包括过期书统计、损坏书统计（4） 能够实现图书

13、的采购、下定单及定单验收、图书出库的功能（5） 能够实现学生及供货商的注册、浏览、删除、查询功能（6） 能够实现员工的录入、修改等功能（7） 能够实现书库借还图书情况、供货商、学生、员工信息的打印报表功能（8） 能够实现数据备份功能2.4.2图书馆管理信息系统的功能需求分析功能模块1 分级权限2借还图书3书库维护4 图书采购5 学生及供货商管理系统总体功能模块框图如图2-10图书馆管理系统数据流程图图2-10 图书馆管理系统数据流程图图书馆管理系统数据流程图说明本系统需要数据输入的地方有：学生的录入和供货商的注册以及图书采购定单的填写即图书的入库在学生信息录入之前应先设置好学生的种类以及一些相

14、关信息然后进行学生信息的录入，学生信息保存在“xueshengbiao”表中，进行学生信息的管理；另外一个需要数据输入的地方为供货商的录入，供货商信息保存在“ghs”表中，根据供货商的信息进行供货商的管理最后一个需要数据输入的地方为图书采购定单的填写。在整个图书采购到图书入库的过程中需要所有的数据做为支持。首先学生信息和图书信息二者相互作用，形成图书的借阅信息；然后根据图书的借阅信息进行图书借阅信息的统计，统计出每一类图书的借阅数量等统计信息；这些统计信息的数据支持成为图书采购计划的重要依据，拟订图书的采购任务计划；然后根据供货商信息选择图书采购计划的供货商；根据以上这些信息进行图书采购的定单

15、的填写，图书采购定单保存在“orders”表中，形成图书采购定单信息的管理；根据定单信息验收图书，同时图书入库。最后根据入库图书的类别设置进行图书信息管理，书库信息保存在“shukubiao”中。本文涉及的代码：Public Sub SendMsgToForms(msg As VbMsgBoxResult)Dim frm As FormFor Each frm In Formsfrm.recmsg msgNext frmEnd SubVERSION 1.0 CLASSBEGIN multiuse = -1 End attribute vb_name=vbmsg attribute vb_glo

16、balnamespace=false attribute vb_creatable=true attribute vb_predeclaredid=false attribute vb_exposed=true Option Explicit Public iType As Long Public iName As String Public iSource As String Dim iT As Date Public Property Get iTime() As Date iTime = iT End Property Public Property Get itimestr() As

17、Stringitimestr = Format(iT, yyyy.mm.dd hh:mm:ss) End Property Private Sub class_initialize() iT = Now() End Sub 模块2：MSGCLI。CLS VERSION1.0 CLASS BEGIN Mulitiuse = -1 End attribute vb_name=msgclient attribute vb_globalnamespace=false attribute vb_creatable=true attribute vb_predeclaredid=false attribu

18、te vb_exposed=trueOption Explicitpublic event recmsg(buval msg as VbMsgBoxResult )Public minmsg As LongPublic maxmsg As LongPublic ID As LongPublic Sub setmsg(msg As vbmsg)If msg.iType = minmsg And msg.itupe maxmsg Then RaiseEvent recmsg(msg) End If End SubPublic Property Get key() As String key = i

19、d: & IDEnd Property 模块3：MSGCLI。CLSattribute vb_name=modglobalOption ExplicitPublic clients As New CollectionPublic clicount As LongVERSION1.0 CLASS BEGIN Mulitiuse = -1 End attribute vb_name=msgserver attribute vb_globalnamespace=false attribute vb_creatable=true attribute vb_predeclaredid=false att

20、ribute vb_exposed=trueOption ExplicitPublic Sub sendmsg(msg As VbMsgBoxResult)Dim c As msgclient For Each c In clients c.setmsg msg DoEvents Next cEnd SubPublic Sub addmsgclient(c As msgclient) clicount = clicount + 1 c.ID = clicount clients.Add c, c.keyEnd SubPublic Sub delmsgclient(c As msgclient)

21、 clients.Remove c.keyIf clients.Count = 0 Then licount = 0End Sub comst msginfoid = 101Private WithEvents mclient As msgclientPrivate Sub form_load()Set mclient = New msgclient mclient.minmsg = msginfoid mclient.maxmsg = msginfoid addmsgclient mclient End SubPrivate Sub Form_Unload(Cancel As Integer) delmsgclient mclientEnd Sub21