文/肖春英

本图书管理系统是以现代高校的图书管理模式为实例设计的一个较为通用型图书管理系统。使图书管理者对其管理工作实现系统化、信息化、现代化，从原来传统的人工记录式的管理模式完全提升到电脑一体化的管理模式。用 Excel  VBA 编辑而成的本图书管理系统的操作界面十分简洁，适合于一般人群的操作。

【关键词】图书管理 信息系统 实现

近年来，随着计算机科学技术的迅猛发展和网络技术的广泛普及，处于借阅工作还是手工管理的情况下，工作效率低下，并且不能及时提供图书种类信息和读者所需，为了更好地满足更多人的需要，各个高校图书馆理工作急需一种高效完备的管理系统对其进行信息自

动化管理。

Visual Basic for Application（ 简 称 为VBA）作为 Office 2000 组件的一部分，用来指定和拓展 Office 2000 的功能，让使用者完成了其自身所不具备的功能，本图书管理系统旨在给图书管理员和读者带来很多意想不到的益处，具有使用方便、可靠性高、检索省时、存储量大，准确度高、保密性好、成本低下等优点，使得图书管理人员从繁重的工作中解脱出来，大大提高了图书管理工作的效率。

1 图书管理系统的基本功能

本软件主要实现图书管理中的多种信息管理。在设计这个管理系统时，应尽可能贴近管理者和读者的实际需求，便于其实现相应操作。

（1）该图书管理系统要求使用者先要输入正确的密码后，授予相应使用权限后才能进入，然后执行所需相应操作，实现对应需要的功能。

（2）该图书管理系统应该提供图书部分相关信息和使用功能的简单介绍。

（3）该图书管理系统应该提供读者基本信息的登记管理。

（4）该图书管理系统应该提供读者借阅权限的管理说明。

（5）该图书管理系统应该提供图书查询功能，方便读者进行图书基本信息的查询（并可实现按多种条件查询）。

（6）该图书管理系统应该提供添加图书、查找图书、借还图书以及安全退出的基本常用功能。综合以上设计实现，本图书管理系统应该不仅可以在图书馆中进行图书检索，还可以在办公室、实验室、甚至家中访问该系统。

2 图书管理系统的主要模块设计

本图书管理系统主要从以下四个方面进行了设计。第一部分：介绍图书馆的图书采编情况；第二部分：介绍读者管理；第三部分：介绍了图书流通情况；第四部分：介绍了图书查询情况。其中论文分别对这几部分进行了浅析和论述。

通过本图书管理系统可以实现图书管理人员对前来读者进行条理化管理，具体设计了读者管理（包括借还情况），图书流通、查询等常用功能。整体设计思路以图书管理人员和读者互利为目标。大体上满足了管理者和读者对图书运营状况的全面快速了解，也通过了图书采编模块实现了读者对图书信息做出了快捷的选择，充分展示了信息化自动管理。以下为图书管理系统的关键代码实现。图书管理系统相关代码：

Sub 添加图书 ()

Dim i As Long

Dim j As Integer

Sheets("sheet1").Select

If Trim(Cells(5, 1).Value) = "" Then

MsgBox "请输入图书编号！", vbOKOnly

Exit Sub

End If

If Trim(Cells(5, 2).Value) = "" Then

MsgBox "请输入图书名称！", vbOKOnly

Exit Sub

End If

If Trim(Cells(5, 3).Value) = "" Then

MsgBox "请输入图书类型！", vbOKOnly

Exit Sub

End If

If Trim(Cells(5, 4).Value) = "" Then

MsgBox "请输入添加时间！", vbOKOnly

Exit Sub

End If

If Trim(Cells(5, 5).Value) = "" Then

MsgBox "请输入所在科室！", vbOKOnly

Exit Sub

End If

i = Val(Sheet1.Cells(1, 3).Value)

For j = 1 To 5

Cells(i + 9, j).Value = Cells(5, j).Value

Next j

End Sub

Sub 查询图书 ()

Dim h As Long

Dim m As Integer

Dim n As IntegerSheets("sheet1").Select

If Cells(5, 2).Value = "" Then

MsgBox " 请 输 入 图 书 名 称 查 询 ", 

vbOKOnly

Exit Sub

End If

h = Val(Cells(1, 3).Value) + 8

m = 9

Do Unt i l Tr im(Cel l s (m, 2) .Value) = 

Trim(Cells(5, 2).Value) Or m = h

m = m + 1

Loop

If Trim(Cells(m, 2).Value) = Trim(Cells(5, 

2).Value) Then

For n = 1 To 5

Cells(5, n).Value = Cells(m, n).Value

Next n

End If

If Trim(Cells(5, 1).Value) = "" Then

MsgBox " 图书存储区内没有您要查询的

图书！"

Exit Sub

End If

End Sub

3 结束语

本图书管理系统结合了当下势在必行的Excel VBA 编程语言进行开发，通过了在软件中实现的具体功能达到了学以致用的目的。在实际的图书管理中切实做到了方便图书管理者和读者的一般需求。本图书管理系统的用户界面交互性较好、操作起来较为灵活方便，提供数据安全可靠，很好的提高了图书管理者的管理效率，满足了图书管理工作的日常需求，具有较高的现代实际应用价值。

参考文献

[1]顾俐.图书馆图书管理系统的设计[J].中国科技信息 ,2007(11):175-176.

[2]蒋志荣.计算机管理系统对图书管理的重要影响 [J]. 科技资讯 ,2013(02):254.

[3]曾雪君.图书管理信息系统的设计与实现[J]. 图苑论坛 ,2014(07).

[4]努尔古丽.吐尔逊.图书管理系统的设计与实现 [D]. 吉林 : 吉林大学 ,2012.

作者简介

肖春英（1989-），女，吉林省长春市人。吉林师范大学计算机学院硕士研究生。研究方向为计算机应用技术。

作者单位

吉林师范大学计算机学院　吉林省四平市136000