一、系统功能描述
图书馆管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强.数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。 本图书管理系统的应用对象定位在小型图书馆的应用。根据要求本图书管理系统主要针对图书管理员进行添加新书、执行借书、还书、查看图书的操作，另外进入该系统的读者只能查看当前图书馆的藏书并能执行查询操作，读者还可以通过该系统注册成为会员。 加勒比
图书管理系统用来管理图书借还过程中的静态和动态信息。系统管理的信息主要包括图书基本信息、图书存储信息、借书和还书信息。系统的目的就是有效地处理这些信息，同时为图书管理员提供信息检索和信息统计功能。
该图书管理系统主要实现管理员操作和读者操作。其中，管理员操作包括完成添加图书、借书、还书、查询图书功能；读者操作包括完成图书查询和读者注册功能.
二、开发环境（VISUAL BASIC)的简介
VISUAL 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 , , ”价格"
海安县紫石中学
k搜 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
End With
rst3.MoveNext
If rst3.EOF Then Exit For
Next i
借书情况的代码实现同馆藏图书的代码实现类似，在此不再重复给出。
1 添加新书
管理员点击“添加新书”按钮后，系统弹出添加新书的窗口添加图书。将新添加的图书记录在数据库中，新进图书可能图书馆中已有，也可能没有，系统要能分别处理。若新添加的图书在图书馆中已有记录，则在图书表中将总数增加,通过以下语句实现：
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议