图书馆标准管理系统标准设计优质报告.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
作者
ISBN
Text
图书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
邮政编码
EMAIL
Text
EMAIL
联络人
Text
联络人
首次合作时间
Date/Time
首次合作时间
表2-5 orders 定单信息表
列名
数据类型
说明
定单序号
Text
定单序号
书名
Text
书名
类别
Text
类别
出版社
Text
出版社
作者
Text
作者
ISBN
Text
ISBN
印张
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 Form
For Each frm In Forms
frm.recmsg msg
Next frm
End Sub
VERSION 1.0 CLASS
BEGIN
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 String
itimestr = 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=true
Option Explicit
public event recmsg(buval msg as VbMsgBoxResult )
Public minmsg As Long
Public maxmsg As Long
Public ID As Long
Public Sub setmsg(msg As vbmsg)
If msg.iType >= minmsg And msg.itupe < maxmsg Then
RaiseEvent recmsg(msg)
End If
End Sub
Public Property Get key() As String
key = "id:" & ID
End Property
'模块3：MSGCLI。CLS
attribute vb_name="modglobal"
Option Explicit
Public clients As New Collection
Public clicount As Long
VERSION1.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=true
Option Explicit
Public Sub sendmsg(msg As VbMsgBoxResult)
Dim c As msgclient
For Each c In clients
c.setmsg msg
DoEvents
Next c
End Sub
Public Sub addmsgclient(c As msgclient)
clicount = clicount + 1
c.ID = clicount
clients.Add c, c.key
End Sub
Public Sub delmsgclient(c As msgclient)
clients.Remove c.key
If clients.Count = 0 Then licount = 0
End Sub
comst msginfoid = 101
Private WithEvents mclient As msgclient
Private Sub form_load()
Set mclient = New msgclient
mclient.minmsg = msginfoid
mclient.maxmsg = msginfoid
addmsgclient mclient
End Sub
Private Sub Form_Unload(Cancel As Integer)
delmsgclient mclient
End Sub