图书馆标准管理系统标准设计优质报告.doc

一 系统开发平台介绍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 等）中数据库外，还能访问邮件数据，Web上文本或图形目录服务器等信息。3 提供了动态HTML页面设计器。4 提供了WEB CAASS设计器。Visual Basic 6.0开发软件优势：1 可视化程序设计2 面向对象程序设计3 事件驱动编程机制4 高度扩充性5 支持大型数据库连接和存取操作1.2 后台数据库介绍 本系统所使用后台数据库是Access数据库数据库引擎数据库引擎是一个管理数据怎样被存放和检索软件系统，数据库基础功效就是由它来提供。数据库引擎有很多个，本系统所包含数据库引擎是Microsoft Jet。Jet不是一个商业产品,正确说它是好多个Microsoft产品使用子系统，在Visual Basic 3.0和Microsoft Access1.0中Microsoft就引入了这个引擎，以后Microsoft常常修正这个引擎，而且不停提升其功效。本系统包含版本是Jet3.51二 系统分析设计数据库系统时，应该充足了解用户各方面需求，包含现有和未来可能增加需求，数据库设计通常包含以下多个步骤：（1） 数据需求分析、（2） 数据库概念结构设计（3） 数据库逻辑结构设计2.1 数据库需求分析用户需求具体表现在多种信息提供，保留，更新和查询。这就要求数据库结构能充足满足多种信息输入和输出。在仔细分析调查相关图书馆管理信息需求基础上设计出图（见附录图书馆管理系统数据步骤图）所表示数据步骤针对图书馆管理系统需求，经过对图书馆管理工作过程内容和数据步骤分析，设计出以下数据项1书库图书信息，包含数据项有：图书编号、书名、书号、类别、出版社、作者、ISBN、印张、字数、版次、印数、定价、开本、是否在库、是否损坏、是否遗失、入库时间、图书介绍2 学生信息，包含数据项有：学生编号、学号、姓名、性别、系别、班级、等级、已借图书、照片3 借书信息，包含数据项有：图书序号、学生序号、是否归还、书名、姓名、学号、书号、系别、班级、已借图书、出版社、作者、借阅日期、图书类别、是否续借4 供货商信息，包含数据项有：供货商序号、供货商、城市、地址、电话、传真、邮政编码、EMAIL、联络人、首次合作时间5 定单信息，包含数据项有：定单序号、书名、书号、类别、出版社、作者、ISBN、印张、字数、版次、印数、定价、开本、具体信息、供货商序号、供货商、联络人、城市、订购数量、订购价格、交付方法、交货日期、定单日期、是否验收、验收日期6 过期图书信息，包含数据项有：图书序号、书名、书号、学生序号、学生姓名、系别、班级、过期时间7 职员信息，包含数据项有：职员序号、姓名、密码、类别、性别、家庭住址、联络电话、职务、出生日期、照片8 罚款信息，包含数据项有：流水号、罚款原因、罚款金额、日期2.2 数据库概念结构设计得到上面数据项就能够设计出以下多种实体和它们关系，为后面逻辑结构设计打下基础依据上面实力设计计划出实体有：图书信息实体、学生信息实体、借阅信息实体、供货商信息实体、定单信息实体、过期图书实体、职员信息实体、罚款信息实体。Shukubiao(图书信息实体)图书介绍书名图书序号图2-1 图书信息实体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(图书信息借书借书Jh(借阅信息实Gqs(过期书信息实统计资料Ghs(供货商信息Jhfk(罚款信息实Orders(定单信息图2-9 各实体间关系图2.3 数据库逻辑结构设计图书馆管理系统中数据库各个表格设计结果以下：表2-1：shukubiao 书库图书信息表列名数据类型说明图书序号Text图书编号，唯一书号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性别系别Text学生系别班级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 供货商信息表列名数据类型说明供货商序号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联络人城市Text供货商城市订购数量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密码类别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） 能够实现图书采购、下定单及定单验收、图书出库功效（5） 能够实现学生及供货商注册、浏览、删除、查询功效（6） 能够实现职员录入、修改等功效（7） 能够实现书库借还图书情况、供货商、学生、职员信息打印报表功效（8） 能够实现数据备份功效2.4.2图书馆管理信息系统功效需求分析功效模块1 分级权限2借还图书3书库维护4 图书采购5 学生及供货商管理系统总体功效模块框图图2-10图书馆管理系统数据步骤图图2-10 图书馆管理系统数据步骤图图书馆管理系统数据步骤图说明本系统需要数据输入地方有：学生录入和供货商注册和图书采购定单填写即图书入库在学生信息录入之前应先设置好学生种类和部分相关信息然后进行学生信息录入，学生信息保留在“xueshengbiao”表中，进行学生信息管理；另外一个需要数据输入地方为供货商录入，供货商信息保留在“ghs”表中，依据供货商信息进行供货商管理最终一个需要数据输入地方为图书采购定单填写。在整个图书采购到图书入库过程中需要全部数据做为支持。首先学生信息和图书信息二者相互作用，形成图书借阅信息；然后依据图书借阅信息进行图书借阅信息统计，统计出每一类图书借阅数量等统计信息；这些统计信息数据支持成为图书采购计划关键依据，拟订图书采购任务计划；然后依据供货商信息选择图书采购计划供货商；依据以上这些信息进行图书采购定单填写，图书采购定单保留在“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_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 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_globalnamespace=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 RaiseEvent 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_globalnamespace=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.ID = clicount clients.Add c, c.keyEnd SubPublic Sub delmsgclient(c As msgclient) 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 Sub