网站原创摘 要本图书管理系统是以现代高校的图书管理模式为实例设计的一个较为通用型图书管理系统.使图书管理者对其管理工作实现系统化、信息化、现代化,从原来传统的人工记录式的管理模式完全提升到电脑一体化的管理模式.用ExcelVBA编辑而成的本图书管理系统的操作界面十分简洁,适合于一般人群的操作.
【关 键 词】图书管理信息系统实现
近年来,随着计算机科学技术的迅猛发展和网络技术的广泛普及,处于借阅工作还是手工管理的情况下,工作效率低下,并且不能及时提供图书种类信息和读者所需,为了更好地满足更多人的需要,各个高校图书馆理工作急需一种高效完备的管理系统对其进行信息自动化管理.
VisualBasicforApplication（简称为VBA）作为Office2000组件的一部分,用来指定和拓展Office2000的功能,让使用者完成了其自身所不具备的功能,本图书管理系统旨在给图书管理员和读者带来很多意想不到的益处,具有使用方便、可靠性高、检索省时、存储量大,准确度高、保密性好、成本低下等优点,使得图书管理人员从繁重的工作中解脱出来,大大提高了图书管理工作的效率.
1图书管理系统的基本功能
本软件主要实现图书管理中的多种信息管理.在设计这个管理系统时,应尽可能贴近管理者和读者的实际需求,便于其实现相应操作.
（1）该图书管理系统要求使用者先要输入正确的后,授予相应使用权限后才能进入,然后执行所需相应操作,实现对应需要的功能.
（2）该图书管理系统应该提供图书部分相关信息和使用功能的简单介绍.
（3）该图书管理系统应该提供读者基本信息的登记管理.
（4）该图书管理系统应该提供读者借阅权限的管理说明.
（5）该图书管理系统应该提供图书查询功能,方便读者进行图书基本信息的查询（并可实现按多种条件查询）.
（6）该图书管理系统应该提供添加图书、查找图书、借还图书以及安全退出的基本常用功能.
综合以上设计实现,本图书管理系统应该不仅可以在图书馆中进行图书检索,还可以在办公室、实验室、甚至家中访问该系统.
2图书管理系统的主要模块设计
本图书管理系统主要从以下四个方面进行了设计.第一部分：介绍图书馆的图书采编情况；第二部分：介绍读者管理；第三部分：介绍了图书流通情况；第四部分：介绍了图书查询情况.其中论文分别对这几部分进行了浅析和论述.
通过本图书管理系统可以实现图书管理人员对前来读者进行条理化管理,具体设计了读者管理（包括借还情况）,图书流通、查询等常用功能.整体设计思路以图书管理人员和读者互利为目标.大体上满足了管理者和读者对图书运营状况的全面快速了解,也通过了图书采编模块实现了读者对图书信息做出了快捷的选择,充分展示了信息化自动管理.
以下为图书管理系统的关键代码实现.
图书管理系统相关代码：
Sub添加图书（）
DimiAsLong
DimjAsInteger
Sheets（"sheet1"）.Select
IfTrim（Cells（5,1）.Value）等于""Then
MsgBox"请输入图书编号!",vbOKOnly
ExitSub
EndIf
IfTrim（Cells（5,2）.Value）等于""Then
MsgBox"请输入图书名称!",vbOKOnly
ExitSub
EndIf
IfTrim（Cells（5,3）.Value）等于""Then
MsgBox"请输入图书类型!",vbOKOnly
ExitSub
EndIf
IfTrim（Cells（5,4）.Value）等于""Then
MsgBox"请输入添加时间!",vbOKOnly
ExitSub
EndIf
IfTrim（Cells（5,5）.Value）等于""Then
MsgBox"请输入所在科室!",vbOKOnly
| 有关论文范文主题研究: | 关于图书管理系统的论文例文 | 大学生适用: | 专科论文、专升本毕业论文 |
|---|---|---|---|
| 相关参考文献下载数量: | 42 | 写作解决问题: | 怎么撰写 |
| 毕业论文开题报告: | 论文模板、论文摘要 | 职称论文适用: | 职称评定、职称评中级 |
| 所属大学生专业类别: | 怎么撰写 | 论文题目推荐度: | 优秀选题 |
ExitSub
EndIf
i等于Val（Sheet1.Cells（1,3）.Value）
Forj等于1To5
Cells（i+9,j）.Value等于Cells（5,j）.Value
Nextj
EndSub
Sub查询图书（）
DimhAsLong
DimmAsInteger
DimnAsInteger
Sheets（"sheet1"）.Select
IfCells（5,2）.Value等于""Then
MsgBox"请输入图书名称查询",vbOKOnly
ExitSub
EndIf
h等于Val（Cells（1,3）.Value）+8
m等于9
DoUntilTrim（Cells（m,2）.Value）等于Trim（Cells（5,2）.Value）Orm等于h
m等于m+1
Loop
IfTrim（Cells（m,2）.Value）等于Trim（Cells（5,2）.Value）Then
Forn等于1To5
Cells（5,n）.Value等于Cells（m,n）.Value
Nextn
EndIf
IfTrim（Cells（5,1）.Value）等于""Then
MsgBox"图书存储区内没有您要查询的图书!"
ExitSub
EndIf
EndSub
3结束语
本图书管理系统结合了当下势在必行的ExcelVBA编程语言进行开发,通过了在软件中实现的具体功能达到了学以致用的目的.在实际的图书管理中切实做到了方便图书管理者和读者的一般需求.本图书管理系统的用户界面交互性较好、操作起来较为灵活方便,提供数据安全可靠,很好的提高了图书管理者的管理效率,满足了图书管理工作的日常需求,具有较高的现代实际应用价值.