《图书馆管理系统设计报告材料.doc》由会员分享，可在线阅读，更多相关《图书馆管理系统设计报告材料.doc（20页珍藏版）》请在三一办公上搜索。
1、word一 系统开发平台介绍1.1 开发工具介绍本系统所使用的开发工具是Visual Basic 6.0 。是Microsoft Visual Studio 6.0 可视化工具中的一个开发系统。是一个用于快速开发基于Windows的客户机/服务器应用程序的高效工具，与以前各版本相比具有以下新特点。1 提供了高效能的源码编译器，使应用程序得到优化。2 提供了新的比其他数据访问接口更加方便，更加全面的数据访问接口ADO(ActiveX Data object)，能访问除了标准的关系型数据库如 Access Foxpro SQL server 等中的数据库外，还能访问数据，Web上的文本或图形目录服
2、务器等信息。3 提供了动态的HTML页面设计器。4 提供了WEB CAASS设计器。开发软件的优势：1 可视化程序设计2 面向对象的程序设计3 事件驱动的编程机制4 高度的扩大性5 支持大型数据库的连接与存取操作1.2 后台数据库介绍本系统所使用的后台数据库是Access数据库数据库引擎数据库引擎是一种管理数据怎样被存储和检索的软件系统，数据库的根本功能就是由它来提供的。数据库引擎有许多种，本系统所涉与的数据库引擎是Microsoft Jet。Jet不是一个商业产品,准确的说它是好几个Microsoft产品使用的子系统，在和中Microsoft就引入了这个引擎，以后Microsoft二 系统分
3、析设计数据库系统时，应该充分了解用户各方面需求，包括现有的以与将来可能增加的需求，数据库设计一般包括以下几个步骤：（1） 数据需求分析、（2） 数据库概念结构设计（3） 数据库逻辑结构设计2.1 数据库需求分析用户的需求具体表现在各种信息的提供，保存，更新和查询。这就要求数据库的结构能充分满足各种信息的输入和输出。在仔细分析调查有关图书馆管理信息需求的根底上设计出如图见附录图书馆管理系统数据流程图所示的数据流程针对图书馆管理系统的需求，通过对图书馆管理工作过程的内容和数据流程分析，设计出如下的数据项1书库图书信息，包括数据项有：图书编号、书名、书号、类别、作者、ISBN、印X、字数、版次、印数
4、、定价、开本、是否在库、是否损坏、是否遗失、入库时间、图书介绍2 学生信息，包括数据项有：学生编号、学号、某某、性别、系别、班级、级别、已借图书、照片3 借书信息，包括数据项有：图书序号、学生序号、是否归还、书名、某某、学号、书号、系别、班级、已借图书、作者、借阅日期、图书类别、是否续借4 供货商信息，包括数据项有：供货商序号、供货商、城市、地址、 、 、邮政编码、EMAIL、联系人、首次合作时间5 定单信息，包括数据项有：定单序号、书名、书号、类别、作者、ISBN、印X、字数、版次、印数、定价、开本、详细信息、供货商序号、供货商、联系人、城市、订购数量、订购价格、交付方式、交货日期、定单日期
5、、是否验收、验收日期6 过期图书信息，包括数据项有：图书序号、书名、书号、学生序号、学生某某、系别、班级、过期时间7 员工信息，包括数据项有：员工序号、某某、密码、类别、性别、家庭住址、联系 、职务、出生日期、照片8 罚款信息，包括数据项有：流水号、罚款原因、罚款金额、日期2.2 数据库概念结构设计得到上面的数据项就能够设计出以下各种实体以与它们的关系，为后面的逻辑结构设计打下根底根据上面的实力设计规划出的实体有：图书信息实体、学生信息实体、借阅信息实体、供货商信息实体、定单信息实体、过期图书实体、员工信息实体、罚款信息实体。Shukubiao(图书信息实体)图书介绍书名图书序号图2-1图书信
6、息实体E-R图Xueshengbiao(学生信息实体)学生序号已借图书某某图2-2学生信息实体E-R图Jh(借阅信息实体)续借学生序号图书序号图2-3借阅信息实体E-R图Ghs(供货商信息实体)供货商序号供货商联系人图2-4供货商信息实体E-R图Orders(定单信息实体)定单序号书名定单日期图2-5定单信息实体E-R图Gqs(过期书信息实体)过期时间图书序号学生序号图2-6过期图书信息实体E-R图Password1(员工信息实体)员工序号职务某某图2-7员工信息实体E-R图Jhfk(罚款信息实体)日期罚款原因流水号图2-8罚款信息实体E-R图Xueshengbiao(学生信Shukubiao
7、(图书信息借书借书Jh(借阅信息实Gqs(过期书信息实统计资料Ghs(供货商信息Jhfk(罚款信息实Orders(定单信息图2-9 各实体间关系图2.3 数据库逻辑结构设计图书馆管理系统中数据库的各个表格设计结果如下：表2-1：shukubiao 书库图书信息表列名数据类型说明图书序号Text图书的编号，唯一书号Text图书书号书名Text书名类别Text图书类别Text作者Text作者ISBNText图书ISBN号印XText图书印X字数Text字数版次Text图书版次印数Text印数定价Currency图书定价开本Text开本是否在库Boolean是否在书库中的标志是否损坏Boolean是
8、否损坏的标志是否遗失Boolean是否遗失的标志入库时间Date/Time图书入库的日期图书介绍Text图书的简单介绍表2-2：xueshengbiao 书库图书信息表列名数据类型说明学生序号Text学生的编号，唯一学号Text学号，不唯一某某Text学生某某性别Boolean性别系别Text学生系别班级Text学生所在班级级别Integer学生的级别，表示借书的能力已借图书Integer已经借过图书多少本照片Text存放学生照片的路径表2-3：jh 借阅信息表列名数据类型说明图书序号Text图书序号学生序号Text学生序号书名Text书名某某Text学生某某学号Text学号书号Text书号系
9、别Text学生系别班级Text学生班级已借图书Integer学生已经借阅的图书数量Text作者Text图书作者借阅日期Date/Time借阅日期图书类别Text图书类别是否归还Boolean该书是否归还续借Boolean该书是否续借过表2-4 ghs 供货商信息表列名数据类型说明供货商序号Text供货商序号供货商Text供货商城市Text城市地址Text地址TextText邮政编码Text邮政编码EMAILTextEMAIL联系人Text联系人首次合作时间Date/Time首次合作时间表2-5 orders 定单信息表列名数据类型说明定单序号Text定单序号书名Text书名类别Text类别Te
10、xt作者Text作者ISBNTextISBN印XText印X字数Text字数版次Text版次开本Text开本印数Text印数定价Currency定价详细信息Text详细信息供货商序号Text供货商序号供货商Text供货商联系人Text联系人城市Text供货商城市订购数量Integer订购数量订购价格Currency订购价格交付方式Text交付方式交货日期Date/Time定单验收的日期书号Text书号定单日期Date/Time定单填写的日期是否验收Boolean定单验收的标志验收日期Date/Time定单验收日期表2-6 gqs 过期书信息表列名数据类型说明图书序号Text图书序号书名Text
11、书名书号Text书号学生序号Text学生序号学生某某Text学生某某系别Text系别班级Text班级过期时间Date/Time过期的天数表2-7 password1 员工信息表列名数据类型说明某某Text员工某某员工序号Text员工序号密码Text密码类别Boolean员工权限级别性别Text性别家庭住址Text家庭住址联系 Text联系 职务Text职务出生日期Date/Time出生日期照片Text存放员工照片的路径表2-8 jhfk 罚款信息表列名数据类型说明流水号Long流水号罚款原因Text罚款原因罚款金额Currency罚款金额日期Date/Time日期2.4 设计方案构思图书馆管理
12、具有自身鲜明的特点：（1） 根据操作人员的级别不同设置权限，对系统的操作有权限的设置（2） 能够实现图书的借、还、续借功能（3） 具有对图书库的一般性维护的功能，包括过期书统计、损坏书统计（4） 能够实现图书的采购、下定单与定单验收、图书出库的功能（5） 能够实现学生与供货商的注册、浏览、删除、查询功能（6） 能够实现员工的录入、修改等功能（7） 能够实现书库借还图书情况、供货商、学生、员工信息的打印报表功能（8） 能够实现数据备份功能功能模块1 分级权限2借还图书3书库维护4 图书采购5 学生与供货商管理系统总体功能模块框图如图2-10图书馆管理系统数据流程图图2-10 图书馆管理系统数据流
13、程图图书馆管理系统数据流程图说明本系统需要数据输入的地方有：学生的录入和供货商的注册以与图书采购定单的填写即图书的入库在学生信息录入之前应先设置好学生的种类以与一些相关信息然后进展学生信息的录入，学生信息保存在“xueshengbiao表中，进展学生信息的管理；另外一个需要数据输入的地方为供货商的录入，供货商信息保存在“ghs表中，根据供货商的信息进展供货商的管理最后一个需要数据输入的地方为图书采购定单的填写。在整个图书采购到图书入库的过程中需要所有的数据做为支持。首先学生信息和图书信息二者相互作用，形成图书的借阅信息；然后根据图书的借阅信息进展图书借阅信息的统计，统计出每一类图书的借阅数量等
14、统计信息；这些统计信息的数据支持成为图书采购计划的重要依据，拟订图书的采购任务计划；然后根据供货商信息选择图书采购计划的供货商；根据以上这些信息进展图书采购的定单的填写，图书采购定单保存在“orders表中，形成图书采购定单信息的管理；根据定单信息验收图书，同时图书入库。最后根据入库图书的类别设置进展图书信息管理，书库信息保存在“shukubiao中。本文涉与的代码：Public Sub SendMsgToForms(msg As VbMsgBoxResult)Dim frm As FormFor Each frm In Formsfrm.recmsg msgNext frmEnd SubVE
15、RSION 1.0 CLASSBEGIN multiuse = -1 End attribute vb_name=vbmsg attribute vb_globalnamespace=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
16、 Get iTime() As Date iTime = iT End Property Public Property Get itimestr() As 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_globalnames
17、pace=false attribute vb_creatable=true attribute vb_predeclaredid=false attribute 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 R
18、aiseEvent recmsg(msg) End If End SubPublic Property Get key() As String key = id: & 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_globaln
19、amespace=false attribute vb_creatable=true attribute vb_predeclaredid=false attribute 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.I
20、D = clicountEnd SubPublic Sub delmsgclient(c As msgclient)If clients.Count = 0 Then licount = 0End Sub st 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 / 20
