论文图书管理系统的设计与实现.doc

个人收集整理 勿做商业用途

图书管理系统的
设计与实现

二级学院： 华建软件学院
学生姓名：
专业班级：
学 号：
指导教师:

年 月 日

摘 要
随着人类社会的发展，人类对知识的需求也不断地增长。本课题针对当今发展趋势学校、政府、图书管、事业单位等图书管理多数采用人工管理的现状以及即使采用了计算机图书管理系统却不能完全满足本单位图书管理的需要的实际情况出发，对图书管理业务经过详细的系统调查，开发出的操作简单而且方便实用的一个图书管理系统。

关键词：图书管理；借阅；浏览;Visual basic6.0；ACCESS

目 录

一、引言 1
二、需求分析 1
1、所需功能 1
2、结构图 2
三、系统设计 2
1、前台设计 2
2、后台数据库设计 3
四、设计流程 5
1、设计各窗体 5
2、编辑代码 6
五、详细代码 6
1、主窗体代码 6
2、各子窗体代码 8
六、结束语 10
七、谢辞 11
参考文献 11

一、引言
当今时代是飞速发展的的信息时代。在各行各业中离不开信息处理,这正是计算机被广泛应用于信息管理系统的原因。计算机的最大好处在于利用它能够进行信息管理.使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理,计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的.
作为一个功能较完备的Windows软件开发平台，Visual Basic专业版提供了对数据库应用的强大支持。尤其提供了使用数据控件和绑定控制项，使用数据库存取对象变量（Data Access Object Variable）,直接调用ODBC 2.0 API接口函数等三种访问数据库的方法。对其标准内置的Ms Access数据库,它可以提供不弱于专业数据库软件的支持，可以进行完整的数据库维护、操作及其事务处理。VB数据库的核心结构是所谓的MicroSoft JET数据库引擎，JET引擎的作用就像是一块“面板”,在其上可以插入多种ISAM（Indexed Sequential Access Method,即索引顺序存取方法）数据驱动程序。JET引擎为Access格式数据库提供了直接的内部（build—in）支持，这就是VB对Access数据库具有丰富支持的真正原因.VB专业版中提供了FoxPro、dBASE（或Xbase)、Paradox、Btrieve等数据库的ISAM驱动程序，这就使得VB能支持这些数据库格式。

二、需求分析
1、所需功能
图书管理系统要完成借书还书、图书的新增和删除、读者的管理、资料打印和统计以及管理员对图书管理七大功能，为了使用户能直接、明朗地完成这些操作程序,我们就把这些操作分别用不同的模块来完成，这里就引入了功能模块的设计:
借书——根据您提供的图书条形码和图书编号确认图书，再根据读者的编号确认读者后把此书借给这位读者。
还书——根据您提供的图书条形码和图书编号确认图书,再根据读者的编号确认读者后把此书归还.
图书管理-—对所有图书的资料进行添加，修改和删除等操作.
读者管理——对所有读者的资料进行添加，修改和删除等操作。
打印——针对用户需求来设定的，用户可以直接通过“打印”功能模块来直接打印自己所需要的资料.
统计——图书基础状况统计排名。
管理员—-在这里修改管理员的登录密码

2、结构图

三、系统设计
1、前台设计
根据不同需求，开发应用程序可以考虑的窗体的系统，总的可以分为5大类，如下：
系统管理模块：实现管理员登陆与系统退出
图书管理模块：实现图书分类，添加新书,编辑图书
借书证管理模块:编辑借书证，借书设置
操作模块：登陆借书证号,查找，还书
报表模块:图书信息报表打印，读者信息报表打印,借出书籍信息报表打印

图书管理系统主窗体截图如下：

2、后台数据库设计
本系统采用Access,用ADO作为连接数据对象。

(1）建立Access数据库
启动Access,建立数据库BookMIS。mdb。如下图:

具体有如下表：

（2）数据连接
在Visual Basic环境下,选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定"按钮。
引用ADO连接数据库
在程序设计的公共模块中，先定义ADO连接对象.语句如下：
Public conn As New ADODB.Connection ' 标记连接对象
然后在子程序中，用如下的语句即可打开数据库：
Dim connectionstring As String
connectionstring = "provider=Microsoft。Jet。oledb。4。0；” ＆_
”data source=book.mdb”
conn。Open connectionstring

（3)设置ODBC
VB的ADO对象是通过ODBC来访问数据库,所以还要建立ODBC数据引擎接口。
打开控制面板中的“管理工具”→“数据源"（ODBC）.
单击“添加”按钮，出现“创建新数据源"对话框。
选择Microsoft Access Driver(＊。mdb），单击“完成"按钮。
在“数据源名”文本框中添加一个名字，单击“确定"按钮完成系统默认连接设置.然后在ODBC对话框中单击“确定”按钮完成ODBC设置.

四、设计流程
1、设计各窗体
a 首先创建一个主窗体,命名为图书管理系统，选择“工程"→“添加MDI窗体”命令，则在项目中添加了主窗体。将“菜单”组件从“工具箱”拖到窗体上.创建一个 Text 属性设置为“文件"的顶级菜单项，且带有名为“关闭”的子菜单项。并类似地创建一些菜单项。
在主窗体上设计一些常用功能的快捷按钮，基本信息查询和需借图书查询。并显示已借图书。
b 再继续创建一些实现各种功能的子窗体：图书分类，添加新书，编辑图书；登陆借书证号，查找，还书等等。部分子窗体截图如下：

2、编辑代码
根据所要实现的功能编写代码。有主窗体代码，各子窗体代码。

五、详细代码
1、主窗体代码
部分主窗体代码如下：
Dim db1 As Database
Dim db2 As Database
Dim db3 As Database
Dim rst As Recordset
Dim rst1 As Recordset '打开表Personal
Dim rst2 As Recordset '打开表BookFlag
Dim rst3 As Recordset ’打开表Book
Dim ws1 As Workspace
Dim ws2 As Workspace
Dim qry2 As QueryDef
Dim RecNumBookFf As Integer '表BookFf的记录个数
Dim SFlag As String
Private Type MSet
BookNum As Integer
BookCost As Single
End Type
Dim SetFlag As MSet
Option Explicit
Private Sub AboutMnu_Click()
Aboutfrm。Show （1）
End Sub

Private Sub AddMnu_Click（）
Sb。Panels(1）.Text = "添加新书”
AddNewBook。Show （1)
Sb。Panels（1）.Text = SFlag
End Sub

Private Sub BackMnu_Click（）
cmdBackBook_Click
End Sub

Private Sub cmdBackBook_Click（) ’打开还书对话框
cmdKong_Click
Lentfrm.Show (1)
cmdKong_Click
End Sub
Private Sub cmdKong_Click（) '清空所有文本
txtBookId.Text = "”
txtName。Text = ""
txtClass.Text = ”"
txtDepart.Text = "”
txtBookHao。Text = ”"
txtBookName = "”
txtZhiCheng = ””
txtFa.Text = ”"
txtBookBian。Text = "”
Frame4.Visible = False
Frame7。Visible = True
LV2.ListItems.Clear
CmdLogin.SetFocus
End Sub
Private Sub cmdOkCancel_Click（Index As Integer）
Select Case Index
Case 1
If rst3.Fields（"是否借出") = True Then
MsgBox "此书已经借出！”， 0 + 48, ”提示”
txtBookBian.Text = ””
txtBookBian.SetFocus
Frame4.Visible = False
Frame7。Visible = True
Exit Sub
End If
rst2.AddNew
rst2.Fields（"图书编号"） = rst3。Fields（”图书编号”）
rst2.Fields("书名”） = rst3。Fields("书名"）
rst2。Fields("价格") = rst3.Fields(”价格"）
rst2。Fields（”出版社") = rst3.Fields("出版社"）
rst2.Fields（"借出日期") = rst3.Fields（”借出日期")
rst2.Fields("借书证号"） = BookId
rst2.Fields（"姓名”） = txtName.Text
rst2。Fields(”类别”) = rst3。Fields（”类别”)
rst2。Update
rst3。Edit
rst3.Fields(”是否借出”) = True
rst3.Fields("借出日期") = rst3。Fields（”借出日期"）
rst3。Update
DataRef
txtBookBian。Text = ""
txtBookBian.SetFocus
'CmdLogin。SetFocus
Frame4.Visible = False
Frame7。Visible = True
End Select
End Sub

2、各子窗体代码
（1）子窗体主要功能代码:
下面是响应“修改密码”子菜单Click事件，调出修改密码窗体代码。
Private Sub changepwd_Click（)
frmchangepwd.Show
End Sub
下面是响应“图书借阅"子菜单Click事件,调出图书借阅窗体代码.
Private Sub borrow_Click()
frmjieyue。Show
End Sub
下面是响应“图书赔偿”子菜单Click事件，调出图书赔偿窗体代码。
Private Sub tushupeichang_Click（)
frmpeichang.Show 1
End Sub
下面是响应“图书登记”子菜单Click事件，调出图书登记窗体代码.
Private Sub checkin_Click（)
frmdengji。Show
End Sub

（2)登陆窗体代码：
Dim Asc() As Integer
Dim db As Database
Dim rst As Recordset
Dim Rec As Integer
Private Sub cmdOkCancel_Click（Index As Integer)
Dim i As Integer
i = 0
Select Case Index
Case 0
If txtPass。Text = ”" Or comPer.Text = ”" Then
MsgBox "请选择用户名或输入密码!"， 0 + 48, ”提示”
txtPass.SetFocus
Exit Sub
End If
If Val（txtPass.Text) = Asc(comPer.ListIndex） Then
'MsgBox ”正确"
Libadmin = comPer.Text
Mainfrm.Show
Unload Me
Else
MsgBox "密码错误,请重试！”， 0 + 16, ”错误”
txtPass.SetFocus
Exit Sub
End If
Case 1
Unload Me
End Select
End Sub
Private Sub Form_Load(）
Dim i As Integer

Set db = Workspaces(0).OpenDatabase（App。Path & "\DataBase\BookMIS。mdb", False)
Set rst = db.OpenRecordset（"Pass"， dbOpenTable）

rst。MoveLast
Rec = rst.RecordCount
ReDim Asc（Rec - 1）
rst。MoveFirst
For i = 1 To Rec
comPer。AddItem rst。Fields("名称")
Asc(i - 1） = Val(rst。Fields（"密码”)）
rst。MoveNext
If rst.EOF Then Exit For
Next
comPer。Text = ””
txtPass.Text = ”"
End Sub

六、结束语
统软件的功能主要由图书管理、流通作业、信息查询与系统维护四大模块组成。本软件针对图书馆的业务范围及工作特点，设计了借还管理、图书管理、读者管理和用户管理等4个子系统,这四个子系统包括了图书馆的主要业务，可以全面实现对图书馆的采购、编目、检索、统计和流通等业务的计算机管理，大大减轻了图书馆工作人员的工作量，全面提高了图书馆的管理效率及服务质量，使图书馆管理水平和业务水平跃上一个新的台阶。应用图书管理系统软件可以在计算机上灵活、方便地管理图书，从而大大的提高了处理效率，使管理更加现代化。图书管理软件是根据实际情况和具体内容，按一定的要求、科学、合理进行系统分析，设计，具体包括菜单设计、数据输入、查询、删除、修改等各种设计。从而使图书管理系统软件完全能满足经济性、灵活性、系统性及可靠性的要求。

七、谢辞
本次毕业设计完成了，我忠心的感谢校领导和计算机系的老师们授于我很多的专业知识，让我能够有一门专业技术,能够基本独立完成软件的开发，感谢老师对我的指导，感谢同学们对我的帮助与支持，感谢我的班主任老师,给了我很多专业知识和生活上的指导和支持，在此由衷的感谢。

参考文献
[1] 萨师煊、王珊.数据库系统概论 第三版.高等教育出版社，2002.
[2］ 丁宝康。数据库原理。经济科学出版社，2000。
［3］ 陈戈止。信息系统与管理.西南财经大学出版社，2001。
[4］ 刘韬等编著．Visual Basic6。0数据库系统开发导航．人民邮电出版社，2002．
［5］ 恒扬科等编著．Visual Basic6.0程序设计学与用教程．机械工业出版社，2003．
［6］ 王永毅等编著．管理信息系统设计与实现．清华大学出版社，2003．
[7] 汤俊。高校图书馆网上借阅系统开发研究.武汉工业大学学报,2000。
[8] 陈松桥等著。现代软件工程。北方交通大学出版社,2002.
[9] 郑刚.基于C/S结构的图书馆事物管理系统设计.标准化报道，2000。
[10] 萨师煊、王珊。数据库系统概论。高等教育出版社。
［11］ 郑人杰、陶永雷。实用软件工程。清华大学出版社，1997。
［12］ 郭志等。ASP及其在基于WEB的图书馆咨询系统中的应用.黄金学报，2000。
第 11 页 共 11 页