图书管理系统论文.docx

图书管理系统论文.docx

《图书管理系统论文.docx》由会员分享，可在线阅读，更多相关《图书管理系统论文.docx（35页珍藏版）》请在冰豆网上搜索。

图书管理系统论文

福州教育学院

（）届毕业论文（设计）

题目：

系部：

专业（方向）：

学号：

姓名：

提交日期：

指导教师及职称：

图书管理系统

计算机系初等教育（信息技术）专业2009届XXX

指导教师：

福建教育学院XXX

摘要

信息化的来临，面对激烈的市场竞争，在当今信息社会，各行各业都离不开信息处理，计算机的运用越来越广泛，信息管理水平越来越高。

图书馆也不再局限于人工手动管理，电子图书馆越来越受青睐。

本系统的设计，就是为了方便读者进行图书借阅，方便管理员管理图书信息。

本系统采用VB6.0和Access两个软件制作图书管理系统，提高了管理员的管理效率，图书借阅与归还也更加简便、快捷。

关键字：

图书管理系统信息数据库AccessVisualBasic6.0

目录

摘要...........................................................................................................................................................1

1、引言1

1.1选题的目的、意义1

2、图书管理系统开发相关技术介绍1

2.1VisualBasic6.0介绍1

2.2Access介绍2

3、系统总体设计分析2

3.1系统需求分析2

3.2系统实现的目标3

3.3系统的功能结构图3

3.4系统的功能模块设计3

4、系统总体结构设计4

4.1、数据库概念结构设计4

4.2、数据库逻辑结构设计4

5、图书管理系统详细设计6

5.1身份登录6

5.2主界面8

5.3读者信息管理9

5.4图书信息管理12

5.5图书借阅管理17

5.6系统管理21

6、期间遇到的问题22

6.1建立数据库23

6.2VB如何与Access连接23

6.3很多控件不知道怎么用23

7、不足之处23

8、结论24

参考文献..................................................................................................................................................24

正文内容：

1、引言

很多图书馆之前由于读者较少，藏书较少等原因，对图书的信息需求不高。

随着社会的信息化发展，图书的数量越来越多，种类越来越多样化，因此对信息的需求越来越高，这就有必要建立一个易于管理、易于操作且更加规范的图书管理系统。

1.1选题的目的、意义

社会的发展，科技的进步，信息技术的广泛应用，数字化管理成为是现代社会的发展趋势。

对于学校图书馆，图书馆的规模越来越大，如果局限于人工手动管理，拿着一本记录本，一本书一本书的登记借阅，一个读者一个读者的登记信息，数据量大，严重浪费时间、精力，而且容易出错。

像这样中小型的图书馆，为了节约人力物力就有必要建立一个图书管理系统，通过计算机，对馆内图书信息及读者信息进行管理，极大得提高了工作效率，而且查找简便，存储容量大，成本又低，是个很好的选择。

2、图书管理系统开发相关技术介绍

2.1VisualBasic6.0介绍

VB6.0是在Basic语言上发展而来的，以可视化工具进行界面设计，以结构化Basic语言为基础，以事件驱动为运行机制。

是目前最流行的程序设计语言之一。

VisualBasic6.0具有以下几个功能：

（1）具有面向对象的可视化设计工具；

（2）具有事件驱动的编程机制；（3）提供了易学易用的应用程序集成开发环境；（4）提供了结构化的程序设计语言；（5）支持多种数据库系统的访问；（6）采用了OLE技术；（7）采用了ActiveX技术；（8）新增很多实用控件。

2.2Access介绍

本系统使用Access进行数据库的创建，Access是Microsoft推出的Office系列的办公室自动化软件中用于数据库管理。

它可以接受和转换多种文件格式的数据，并且能够方便的对现存数据库系统进行扩展和升级。

它是一个中、小型的数据库管理系统，它的数据库文件储存于*.MDB文件中，数据的输入、查询非常简便。

可以高效地进行数据库开发和管理工作。

它具有以下特点：

（1）完整的数据库管理功能

Access提供了一套用于组织数据、建立查询、共享数据等功能，这些功能可以完成管理的各项工作。

（2）高度智能化的向导功能

从创建窗体、报表中的各种控件，到创建Access表、查询、数据页等基本对象，都可以使用向导功能，在向导的帮助下，很多复杂的工作也变得简单。

（3）方便操作的图形界面

Access的图形界面是标准的Windows窗口形式，独具特色的图形化查询设计，使原来需要编写大量代码的工作也只需拖动鼠标就可以完成。

3、系统总体设计分析

3.1系统需求分析

系统需求分析工作是系统生命周期中重要的一个环节，也是决定性的一步。

只有经过系统需求分析，才能了解用户对系统的功能和性能的要求，并将其转换为具体的需求规格说明，为系统的设计打下基础。

调查发现，现代的人们希望图书馆完成的不仅仅是借书和还书的功能，而更多的是对图书和借阅者信息的管理，因为这些信息管理起来相对麻烦，比较浪费时间精力，效率不高又容易出错，所以有必要让这些繁琐的程序通过计算机来执行。

本系统的图书管理涉及图书信息、读者信息、图书借阅、系统管理等管理功能，实现基本的用户需求。

3.2系统实现的目标

本图书管理系统设计目的是实现图书管理的系统化、自动化，帮助图书管理人员更好更有效地完成图书管理工作。

（1）强大的查询功能，查询灵活

（2）操作界面简洁，易于用户操作

（3）数据存储具有安全性和可靠性

（4）管理员和一般会员身份区别清晰，权限清晰

（5）实现图书借阅与归还的全程数据信息追踪

3.3系统的功能结构图

图3－1图书管理系统功能结构图

3.4系统的功能模块设计

3.4.1图书管理部分

图书信息管理主要实现图书的录入、查询，图书信息的修改。

一般会员可以方便地查询馆内图书信息，即馆内藏书以及是否被借出，界面简洁，容易操作。

图书的录入和信息的修改只能由管理员来实现，管理员可以在登录后对馆内图书的信息记录进行修改，包括图书类别的添加与删除、修改，图书信息的添加、修改等，操作简单，方便管理员对图书的管理。

3.4.2读者管理部分

读者信息管理主要实现对读者信息的查询、修改等功能，一般会员同样只能查询读者的信息，读者可以查询自己借了哪些书，何时借的，以便在规定时间内可以归还所借图书。

修改功能只能在管理员权限下才可操作，管理员可以添加读者信息，修改读者信息，确保管理系统录入的都是读者的最新信息，可以在需要的时候联系到借阅者。

3.4.3借阅管理部分

图书的借阅管理全部由管理员操作，一般会员是没有权限的。

包括图书的借阅与归还等操作，以及帮助统计已借出书与馆内存书情况。

。

管理员可以通过录入读者的信息和图书的信息、借阅日期等来实现对图书的借阅，同样的，录入图书和读者信息、还书日期实现还书。

3.4.4系统管理部分

系统管理功能也只能在管理员的权限下才可操作，管理员可以在登录账户后，进行添加会员和账户密码的修改。

4、系统总体结构设计

4.1、数据库概念结构设计

数据库是存放数据的仓库，只不过这个仓库是建在计算机存储设备上的，而且数据按照一定的格式存放。

也就是说数据库是长期存储在计算机内的、有组织的、可共享的数据集合。

数据库概念结构设计是整个数据库设计的又一个关键，它通过对用户需求进行综合、归纳与抽象，形成于独立于具体ＤＢＭＳ的概念模型。

4.2、数据库逻辑结构设计

逻辑结构设计是将概念结构转换成DBMS能够接受的数据模型，并对其优化。

4.2.1图书信息实体属性

首先，一个图书馆最重要的就是对馆内图书的管理，所以要创建一个关于图书信息的数据表。

图4－1图书信息实体属性图

4.2.2读者信息实体属性

再者就是对图书馆的用户进行信息的存储，需要存储读者的详细信息，这也是图书管理必不可少的一部分。

图4－2读者信息实体属性图

4.2.3借阅信息实体属性

然后就是图书管理系统中的图书借阅与归还，需要将读者信息与图书信息联系起来，图书借阅与归还是图书管理最重要的环节。

图4－3借阅信息实体属性图

4.2.4读者类别实体属性

读者类别用来记录读者的分类及其具有的权限。

图4－4读者类别实体属性图

4.2.5图书类别实体属性

图书类别主要用于管理员对图书的管理工作，方便查找与整理。

图4－5图书类别实体属性图

4.2.6用户实体属性

用户实体是用于用户第一次在本图书馆借阅浏览，需先注册一个账号，方便之后的借阅与归还操作。

图4－6用户实体属性图

5、图书管理系统详细设计

5.1身份登录

本系统设计登录的身份分为管理员与会员。

注册过的用户使用账号密码登录，选择身份进入管理员或者会员的界面，进行一系列的操作。

这个界面的设计只是用了简单的几个控件：

CommandButton（按钮）、Textbox（文本框）、Label（标签）

具体代码：

OptionExplicit

DimcntAsInteger'记录确定次数

PrivateSubCommand1_Click（）

DimsqlAsString

Dimrs_loginAsNewADODB.Recordset

DimconnAsNewADODB.Connection

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\library.mdb"

IfTrim（Text1.Text）=""Then

MsgBox"用户名不能为空，请重新输入！

"

Text1.SetFocus

Else

sql="select*from用户表whereuser_ID='"&Trim（Text1.Text）&"'"

rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_login.EOF=TrueThen

MsgBox"没有这个用户,请重输入！

",vbOKOnly+vbExclamation,""

Text1.Text=""

Text1.SetFocus

Else

username=Text1.Text

IfTrim（rs_login.Fields

（1））=Trim（Text2.Text）Then

IfCombo1.Text="管理员"Then

UnloadMe

管理员.Show

Else

UnloadMe

会员.Show

EndIf

Else

MsgBox"密码不正确,请重输入！

",vbOKOnly+vbExclamation,""

Text2.SetFocus

Text2.Text=""

EndIf

EndIf

EndIf

cnt=cnt+1

Ifcnt=3Then

UnloadMe

EndIf

EndSub

PrivateSubForm_Load（）

cnt=0

EndSub

5.2主界面

主界面有两个，管理员和会员的界面。

这里运用到菜单编辑器，使用菜单编辑器可以在当前窗口添加菜单栏，方便使用者选择系统的各种功能。

菜单编辑器可以通过单击工具栏中的“菜单编辑器”按钮打开其对话框，也可以通过菜单栏中的“工具”菜单—>“菜单编辑器”打开。

需要注意的是，其中必须要填的是“标题”和“名称”。

关键代码：

PrivateSubbzxx_Click（）

OnErrorGoToERRB'打开帮助文件

dlgCommonDialog.HelpCommand=&HB&

dlgCommonDialog.ShowHelp

ERRB:

EndSub

5.3读者信息管理

读者信息管理主要包括读者信息的查询与修改。

5.3.1查询读者信息

查询读者信息的界面运用了更多的控件：

DataGridCombo1Check等，利用DataGrid控件列出所要查询的信息，如果是刚安装的VB在工具箱中是找不到这个控件的，需要在“工程”菜单中点击“部件”打开部件对话框，在其中勾选“MicrosoftDataGridControl6.0（sp6）（OLEDB）”，点击“确定”，这样控件就会显示在工具箱中了，直接使用就可以了。

关键代码：

PrivateSubCommand1_Click（）

IfCheck1.Value=vbCheckedThen

sql="读者编号='"&Trim（Text1.Text&""）&"'"

EndIf

IfCheck2.Value=vbCheckedThen

IfTrim（sql）=""Then

sql="读者姓名='"&Trim（Text2.Text&""）&"'"

Else

sql=sql&"and读者类别='"&Trim（Text2.Text&""）&"'"

EndIf

EndIf

sql="select*from读者信息where"&sql

rs_findreader.CursorLocation=adUseClient

rs_findreader.Opensql,conn,adOpenKeyset,adLockPessimistic

DataGrid1.AllowAddNew=False

DataGrid1.AllowDelete=False

DataGrid1.AllowUpdate=False

EndSub

5.3.2修改读者信息

关键代码：

PrivateSubCommand1_Click（）

DimanswerAsString

OnErrorGoToCommand1

Command2.Enabled=False

Command1.Enabled=False

Command3.Enabled=True

Command4.Enabled=True

DataGrid1.AllowUpdate=True

ExitSub

Command1:

IfErr.Number<>0Then

MsgBoxErr.Description

EndIf

EndSub

PrivateSubForm_Load（）

sql="select*from读者信息"

rs_reader.CursorLocation=adUseClient

rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic

Command3.Enabled=False

Command4.Enabled=False

DataGrid1.AllowAddNew=False

DataGrid1.AllowDelete=False

DataGrid1.AllowUpdate=False

SetDataGrid1.DataSource=rs_reader

ExitSub

loaderror:

MsgBoxErr.Description

EndSub

PrivateSubForm_Unload（CancelAsInteger）

SetDataGrid1.DataSource=Nothing

rs_reader.Close

EndSub

5.3.3添加读者类别

关键代码：

PrivateSubCommand1_Click（）

Dimrs_readerstyleAsNewADODB.Recordset

IfTrim（Text1.Text）=""Then

MsgBox"读者种类不能为空",vbOK0nly+vbExclamation,""

Text1.SetFocus

ExitSub

EndIf

IfTrim（Text2.Text）=""Then

MsgBox"借书数量不能为空",vbOK0nly+vbExclamation,""

Text2.SetFocus

ExitSub

EndIf

IfTrim（Text3.Text）=""Then

MsgBox"借书期限不能为空",vbOK0nly+vbExclamation,""

Text3.SetFocus

ExitSub

EndIf

sql="select*from读者类别where种类名称='"&Text1.Text&"'"

rs_readerstyle.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_readerstyle.EOFThen

rs_readerstyle.AddNew

rs_readerstyle.Fields（0）=Trim（Text1.Text）

rs_readerstyle.Fields

（1）=Trim（Text2.Text）

rs_readerstyle.Fields

（2）=Trim（Text3.Text）

rs_readerstyle.Update

MsgBox"添加读者类别成功!

",vbOKOnly,""

rs_readerstyle.Close

Else

MsgBox"读者类别重复！

",vbOKOnly+vbExclamation,""

Text1.SetFocus

Text1.Text=""

rs_readerstyle.Close

ExitSub

EndIf

EndSub

5.4图书信息管理

5.4.1添加图书类别

关键代码：

PrivateSubCommand1_Click（）

Dimrs_bookstyleAsNewADODB.Recordset

IfTrim（Text1.Text）=""Then

MsgBox"图书种类不能为空",vbOK0nly+vbExclamation,""

Text1.SetFocus

ExitSub

EndIf

sql="select*from图书类别where类别名称='"&Text1.Text&"'"

rs_bookstyle.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_bookstyle.EOFThen

rs_bookstyle.AddNew

rs_bookstyle.Fields（0）=Trim（Text1.Text）

rs_bookstyle.Fields

（1）=Trim（Text2.Text）

rs_bookstyle.Update

MsgBox"添加图书类别成功!

",vbOKOnly,""

rs_bookstyle.Close

Else

MsgBox"图书类别重复！

",vbOKOnly+vbExclamation,""

Text1.SetFocus

Text1.Text=""

rs_bookstyle.Close

ExitSub

EndIf

EndSub

5.4.2修改图书类别

关键代码：

PrivateSubCommand2_Click（）

DimanswerAsString

answer=MsgBox（"确定要删除吗？

",vbYesNo,""）

Ifanswer=vbYesThen

DataGrid1.AllowDelete=True

rs_reader.Delete

rs_reader.Update

DataGrid1.Refresh

Else

ExitSub

EndIf

EndSub

PrivateSubForm_Load（）

OnErrorGoToloaderror

sql="select*from图书类别"

rs_reader.CursorLocation=adUseClient

rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic

Command3.Enabled=False

Command4.Enabled=False

DataGrid1.AllowAddNew=False

DataGrid1.AllowDelete=False

DataGrid1.AllowUpdate=False

SetDataGrid1.DataSource=rs_reader

ExitSub

loaderror:

MsgBoxErr.Description

EndSub

5.4.3添加图书信息

关键代码：

PrivateSubForm_Load（）

Dimrs_leibieAsNewADODB.Recordset

DimconnAsNewADODB.Connection

DimsqlAsString

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\library.mdb"

sql="select*from图书类别"

rs_leibie.Opensql,conn,adOpenKeyset,adLockPessimistic

rs_leibie.MoveFirst

DoWhileNotrs_leibie.EOF

Combo1.AddItemrs_leibie.Fields（0）

rs_leibie.MoveNext

Loop

rs_leibie.Close

EndSub

5.4.4查询图书信息

关键代码：

PrivateSubCommand1_Click（）

IfOption2.Value=TrueThen

sql="select*from图书信息where是否被借出='是'"

EndIf

IfOption3.Value=TrueThen

sql="select*from图书信息where是否被借出='否'"