图书馆信息管理系统设计（一）
一、系统功能描述
图书馆管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强.数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
本图书管理系统的应用对象定位在小型图书馆的应用。根据要求本图书管理系统主要针对图书管理员进行添加新书、执行借书、还书、查看图书的操作，另外进入该系统的读者只能查看当前图书馆的藏书并能执行查询操作，读者还可以通过该系统注册成为会员。
图书管理系统用来管理图书借还过程中的静态和动态信息。系统管理的信息主要包括图书基本信息、图书存储信息、借书和还书信息。系统的目的就是有效地处理这些信息，同时为图书管理员提供信息检索和信息统计功能。
该图书管理系统主要实现管理员操作和读者操作。其中，管理员操作包括完成添加图书、借书、还书、查询图书功能；读者操作包括完成图书查询和读者注册功能。
二、开发环境（VISUAL BASIC）的简介
BASIC是微软公司出品的一个快速可视化程序开发工具软件。借助微软在操作系统和办公自动化软件的垄断/地位，VB在短短的几年内风靡全球。VB是极具特色和功能强大的软件，主要表现：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，教易维护的代码。同时众多的ACTIVE控件，提高了软件的使用效率。
1 VB应用程序语言的基本特点：
可视化界面设计：
VB为用户提供大量的界面元素（在VB中称为控件对象），这些控件对象如“窗体”，“菜单”，“命令按扭”，“工具按扭”，“检查框”等等，用户只要利用鼠标、键盘把这些控件对象拖动到合适的位置，设置其大小、形状、属性等，就可以设计出所需的应用程序界面。
2 事件驱动编程
在使用VB设计应用程序是，必须首先确定应用程序如何同用户进行交互。例如发生鼠标单击、键盘输入等事件是，由用户编写代码控制这些事件的响应，这就是所谓的事件驱动编程。
3 与数据库的连接性
VISUAL BASIC提供了与底层数据库系统紧密的连接。 VISUAL
BASIC支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。在开发该图书馆管理系统时,VISUAL
BASIC存取数据库的方式有两种：
&通过使用的ODBC接口。（ODBC（开放数据库连接）是微软公司的数据库连接标准）
&通过使用由VISUAL
BASIC提供的专用的直接与数据库相连的接口
该系统程序是在应用vb软件程序的过程中，通过声明和定义数据库变量和记录集变量将程序的实现与access数据库连接起来。
三、系统开发过程
（一）建立数据库
Access数据库中包括member、book、loan、admin（读者表、图书表、借阅信息表、管理员表）四个数据表，分别存放读者信息、馆藏图书信息、读者借阅信息、管理员信息。Admin(管理员表)作为单独的一个表，与其他三个表没有直接联系。book表中的isbn（图书编号）与loan（借书表）中的isbn（图书编号）具有一对多的关系，member（读者表）中的nomber（借书证编号）与loan表中的member（图书证编号）同样具有一对多的关系。Loan表中另外添加了out_data和due_data两个字段分别记录读者的借书时间和应还时间。
数据库中表之间的联系如下图所示：
&&&&&&&&&&&&&&&&&&
&& 图一 数据库关系图
&&&&&&&&&&&
&&&&&&&&&&&&&&
（二）vb程序中连接数据库
在程序的设计过程中，直接通过vb语句连接数据库，并没有使用控件连接。
定义数据库变量的语句如下：
Dim db1 As Database
Dim db2 As Database
Dim db3 As Database
定义数据记录集变量
Dim rst1 As Recordset
Dim rst2 As Recordset
Dim rst3 As Recordset
设置连接数据库并打开数据库中相应的记录表语句：
Set db1 = Workspaces(0).OpenDatabase(App.Path
& "\database\database.mdb", False)
Set rst1 = db1.OpenRecordset("member", dbOpenTable)
‘打开member表
Set db2 = Workspaces(0).OpenDatabase(App.Path &
"\database\database.mdb", False)
Set rst2 = db2.OpenRecordset("loan", dbOpenTable)
‘打开loan表
Set db3 = Workspaces(0).OpenDatabase(App.Path &
"\database\database.mdb", False)
Set rst3 = db3.OpenRecordset("book", dbOpenTable)
‘打开book表
在连接数据库中数据表的过程中，通过索引，以便以后在数据表中查找数据。
设定索引语句：
rst1.index = "nomber"
rst2.index = "isbn"
rst3.index = "isbn"
（三）设定管理员的操作：
管理员进入系统后，首先能够看到当前图书馆的存书情况以及借书情况，在该界面下进行添加图书、还书、借书和查询操作。
显示当前馆藏图书情况的代码实现为：
LV2.View = lvwReport
LV2.ColumnHeaders.Add , , "图书编号"
LV2.ColumnHeaders.Add , , "书名"
LV2.ColumnHeaders.Add , , "作者"
LV2.ColumnHeaders.Add , , "价格"
LV2.ColumnHeaders.Add , , "数量"
LV2.ColumnHeaders.Add , , "出版社"
LV2.ColumnHeaders.Add , , "出版日期"
&&& total =
rst3.RecordCount
LV2.ListItems.Clear
rst3.MoveFirst
&For i = 1 To total
&& LV2.ListItems.Add i, ,
rst3.Fields("isbn") & vbNullString
With LV2.ListItems(i)
.SubItems(1) = rst3.Fields("bname") &
vbNullString
.SubItems(2) = rst3.Fields("author") &
vbNullString
.SubItems(3) = "￥" & rst3.Fields("price")
.SubItems(4) = rst3.Fields("total") &
vbNullString
.SubItems(5) = rst3.Fields("publish") &
vbNullString
.SubItems(6) = rst3.Fields("pdata") &
vbNullString
&rst3.MoveNext
If rst3.EOF Then Exit For
借书情况的代码实现同馆藏图书的代码实现类似，在此不再重复给出。
图3 管理员操作界面
1 添加新书
管理员点击“添加新书”按钮后，系统弹出添加新书的窗口添加图书。将新添加的图书记录在数据库中，新进图书可能图书馆中已有，也可能没有，系统要能分别处理。若新添加的图书在图书馆中已有记录，则在图书表中将总数增加，通过以下语句实现：
rst.Fields("total") = rst.Fields("total") + Val(total.Text)
rst.Update
如果图书馆中没有相应记录，则在图书表中增加一条记录，写入其相关信息。通过以下语句实现：
rst.Seek "=", isbn.Text
If rst.NoMatch Then
rst.AddNew
rst.Fields("isbn") = isbn.Text
rst.Fields("bname") = b_name.Text
rst.Fields("author") = author.Text
rst.Fields("price") = Val(price.Text)
rst.Fields("total") = Val(total.Text)
rst.Fields("publish") = publish.Text
rst.Fields("pdata") = pdata.Text
rst.Fields("class") = class.Text
rst.Update
图4 添加新书界面
2 查询图书
管理员通过输入图书编号查询相关图书，管理员窗口图书管理界面显示所查询图书的详细信息
在程序实现过程中，用BookId作为全局变量，存放图书的编号信息，具体由以下语句实现：
rst.Seek "=", BookId
txtBookHao.Text = BookId
txtBookName.Text = rst.Fields("bname") &
vbNullString
txtChuBan.Text = rst.Fields("publish") &
vbNullString
txtCost.Text = rst.Fields("price") & Empty
txtLentDate = rst.Fields("pdata") &
vbNullString
txtType.Text = rst.Fields("class") &
vbNullString
author.Text = rst.Fields("author") &
vbNullString
图5 输入查询图书编号
显示查询图书的详细信息
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。114网址导航1王启云.浅谈图书馆网站的设计与制作. 现代图书情报技术 , 2001(2)：49-51
2苗怀岭等.用APACHE+PHP+MYSQL实现网站自动更新. 宝钢技术,2002(1)：55-59
（Accessed Jun.8,2004）
袁兴福, 张鹏翼, 王军. [J]. 现代图书情报技术, ): 93-100.
王孝亮, 胡军. [J]. 现代图书情报技术, ): 96-102.
李胜, 王叶茂. [J]. 现代图书情报技术, ): 58-66.
鲁晓明. [J]. 现代图书情报技术, ): 101-107.
王晰巍, 赵丹, 杨梦晴, 魏俊巍. [J]. 现代图书情报技术, ): 75-83.
毕剑, 刘晓艳, 张禹. [J]. 现代图书情报技术, ): 97-102.
姚飞, 姜爱蓉. [J]. 现代图书情报技术, ): 1-8.
罗涛. [J]. 现代图书情报技术, ): 96-100.
王传清, 毕强. [J]. 现代图书情报技术, ): 17-24.
尉萌. [J]. 现代图书情报技术, ): 20-26.
吴坤, 颉夏青, 吴旭. [J]. 现代图书情报技术, ): 35-41.
黎邦群. [J]. 现代图书情报技术, ): 85-91.
刘智惠, 薛晶晶, 卢倩芸. [J]. 现代图书情报技术, ): 95-101.
张蓓,窦天芳,张成昱,李洁芳. [J]. 现代图书情报技术, ): 87-91.
庄玫, 王平, 杨杰, 陈虹, 王义飞. [J]. 现代图书情报技术, /8): 132-136.
版权所有 & 2005 《现代图书情报技术》编辑部
地址：北京市海淀区中关村北四环西路33号 邮编：100190
***/传真：(010)6，
E-mail:jishu@mail.君，已阅读到文档的结尾了呢~~
图书信息管理系统设计设计,信息,图书,设计图书,图书管理,信息系统,管理系统
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
图书信息管理系统设计
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口图书信息管理系统 设计_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
图书信息管理系统 设计
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩8页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢