计算机图书管理系统.docx

计算机图书管理系统.docx

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

计算机图书管理系统

铜陵学院

学生毕业论文

标题：

计算机图书管理系统

系别数学与计算机科学系

专业信息管理与信息系统

班级08信管

姓名

学号

指导教师职称

2011年10月10日

提纲

一、数据库设计

（一）数据库概念

（二）计算机图书管理系统数据库

（三）利用data控件访问数据库

二、计算机图书管理系统数据

（一）数据库与VB的连接

（二）关闭数据对象和连接对象

（三）显示数据库的内容

（四）计算机图书管理系统数据流程图

三、计算机图书管理系统2008

（一）开发计算机图书管理系统的目的

（二）开发图书管理系统的思路

四、计算机图书管理系统模块设计

（一）界面设计规范及流程图

（二）系统窗体汇总

（三）主页面设计

五、软件测试分析报告

（一）软件信息

（二）常见系统出错问题及解决

六、结束语

计算机图书管理系统

【摘要】图书管理系统是典型的信息管理系统（MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

经过分析,使用Microsoft公司的VisualBasic6.0为开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供级开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。

开发过程中不断修正和改进,直到形成用户满意的可行系统。

本案例开发的是“计算机图书管理系统”.

关键字（Keywords）：

信息管理系统（MIS）、数据库、VisualBasic6.0、、面向对象（Object）、计算机图书管理系统

图书馆管理系统是我国大部分院校或其它部门不可缺少的部分,书籍是人类精神食粮，尤其对一些学校，图书馆来说，非常重要。

在软件开发中，以计算机图书为主，称“计算机图书管理系统”。

计算机图书管理系统能够为用户实现借阅图书、管理等，随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对图书资源信息进行管理,具有着手工管理所无法比拟的优点.例如:

查阅迅速、安全性高、可靠性高、存储量大、保密性好、成本低等。

计算机图书管理系统能够单一定向计算机图书方面，具有实用，精简功能等效率，这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件。

因此，开发这样一套管理软件是很有必要.本案例开发的是“计算机图书管理系统”.

一、数据库设计（mdb）

（一）数据的概念

办公软件Office套件中，最为广大用户熟悉的是Word和Excel，因为它们功能强大且方便易用，更因为它们不仅可用于办公，还可用于个人写作和家庭记帐理财等。

同为Office套件中一部分的Access，虽然有着同样强大的功能，但使用的人却相对少些，不像Word和Excel那样广泛。

事实上，真正用过Access的用户，对其强大功能和灵活应用均称赞有加。

Access数据库管理系统是MicrosoftOffice套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。

Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。

有结构的数据集合,它与一般的数据文件不同，（其中的数据是无结构的）是一串文字或数字流。

数据库中的数据可以是文字、图象、声音等。

Access一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。

图1是一个“产品”表的例子。

“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。

“产品ID”是字段名，其下面的1，2等是字段的值。

表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。

Access数据库以文件形式保存，文件的扩展名是MDB。

Access数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。

1.表（Table）

表是数据库的基本对象，是创建其他5种对象的基础。

表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。

2.数据查询（Query）

查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。

3.数据窗体（Form）

窗体提供了一种方便的浏览、输入及更改数据的窗口。

还可以创建子窗体显示相关联的表的内容。

窗体也称表单。

4.数据报表（Report）

报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。

5.数据宏（Macro）

宏相当于DOS中的批处理，用来自动执行一系列操作。

Access列出了一些常用的操作供用户选择，使用起来十分方便。

6.数据模块（Module）

模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。

模块使用VisualBasic编程

（二）计算机管图书管理系统数据库

计算机管理系统图书管理系统数据库模式定义了数据库的结构、表、关系、域和业务规则。

数据库模式是一种设计，数据库和应用正是建立在此基础上的。

域是一列可能拥有的值的集合。

必须为每一个表的每一列确定域。

除了数据的物理必填字段外，还需要确定是否有些域对表来说是唯一的。

计算机管理系统图书管理系统数据库模式的最后一个要素是业务规则，它是对需要反映在数据库和数据库应用程序中的业务活动的允许空字符串。

业务规则是模式的一个重要部分，因为他们指定了无论什么数据变化到达DBMS引擎，允许的数据值必须满足的允许空字符串。

不管无效的数据变化请求是来自窗体的用户、查询/修改请求还是应用程序DBMS都应该拒绝。

遗憾的是，不同的DBMS产品用不同的方法实施业务规则。

在某些情况下，DBMS产品不具备实施必要业务规则的能力，必须以代码形式把它们编入应用程序

（三）利用DATA控件访问数据库

该软件是利用ACCESS数据库，操作方便，简单。

在ACCESS数据库中不需要创建数据连接，因为它是VB中默认的数据库形式。

这里的数据库采用Access，用ADO作为连接数据对象。

以归纳为以下几步：

1.建立Access数据库

启动Access，建立一个空的数据库ComputerBookmanage，如图8所示。

使用程序设计器建立系统需要的表

图书表:

读者表

用户表

还书表:

借书表:

用户表:

2、连接数据

在VisualBasic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“MicrosoftActiveXDataObjects2.0Library”，然后单击“确定”按钮，如图:

3.0引用ADO连接数据库

在程序设计的公共模块中，先定义ADO连接对象。

语句如下:

PublicconnAsNewADODB.Connection'标记连接对象然后在子程序中，用如下的语句即可打开数据库:

DimconnectionstringAsString

connectionstring="provider=Microsoft.Jet.oledb.4.0;"&_

"datasource=ComputerBookmanage.mdb"

conn.Openconnectionstring

4.0设置ODBC

VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。

打开

控制面板中的“管理工具”→“数据源”（ODBC），出现如图所示的对话框。

　　图17ODBC对话框

单击“添加”按钮，出现“创建新数据源”对话框，如图18所示。

5.0创建新数据源”对话框

选择MicrosoftAccessDriver（*.mdb），单击“完成”按钮，出现如图19所示对话框。

设置连接数据源

在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。

然后在ODBC对话框中单击“确定”按钮完成ODBC设置。

（四）MDB数据流程图以及数据表

1.基本表：

[书籍]book

字段

类型

字段大小

必填字段

允许空字符串

管理人员

文本

50

否

是

图书编号

文本

12

是

否

图书名称

文本

16

否

是

作者

文本

8

否

是

出版社

文本

20

否

是

库存量

数字

小数

是

是

入库时间

日期/时间

自动

否

无

2.基本表：

[用户表]user_table

字段

类型

字段大小

必填字段

允许空字符串

登录名

文本

16

否

是

密码

文本

16

否

是

身份

文本

50

否

是

权限

数字

1

否

是

3.基本表：

[读者表]

字段

类型

字段大小

必填字段

允许空字符串

读者姓名

文本

8

是

主键

读者编号

数字

50

是

否

性别

文本

2

否

是

读者类别

文本

50

否

是

工作单位

文本

50

否

是

家庭地址

文本

50

否

否

电话号码

文本

50

自动

自动

登记日期

日期/时间

自动

自动

自动

已借书数量

数字

自动

自动

自动

4.基本表：

[职工信息]worker

字段

类型

字段大小

必填字段

允许空字符串

管理人员

文本

50

否

是

工号

数字

50

是

否

姓名

文本

8

否

是

性别

文本

2

否

是

电话

数字

13

否

是

住址

5.基本表：

[借阅信息]reader

字段

类型

字段大小

必填字段

允许空字符串

序号

自动编号（长整型）

主键

工号

文本

250

图书编号

文本

250

借阅时间

日期/时间

长日期

ADO中的数据对象通常保存的是查询结果。

RecordSet是ADO中最复杂的对象，有许多属性和方法。

RecordSet保存的是一行行的记录，并标有一个当前记录。

以下是创建方法：

可以直接利用DATA控件直接绑定，在DATA控件的属性中的RECORDSOURCE对数据表进行连接。

SetRecordSet=DB.Openrecordset（sqtStr）

这条语句创建并打开了对象RecordSet，其中db是先前创建的链接对象，sqtStr是一个字串，代表一条标准的SQL语句。

例如：

sqlStr=“SELECT*FROMtable1”SetRecordSet=DB.Openrecordset（sqtStr），执行后，对象RecordSet中就保存了表table1中的所有记录。

二、计算机图书管理系统数据

（一）数据库与VB的连接

当数据设置好后就应用VB当中去，步骤:

新建一个模块命名“Database“在Database

添加代码,数据库与VB的连接代码（由于代码很长见光盘code目录下“database.txt”）

（二）关闭数据对象和链接对象

在使用了ADO对象之后要关闭它，因为它使用了一定的服务器资源。

通过调用方法close实现关闭，然后再释放它。

RecordSet.close

SetRecordSet=Nothing

/关闭创建的数据对象

mConn.close

SetmConn=Nothing

/关闭创建的链接对象

（三）显示数据库中的内容

利用MSFLEGRID控件来显示数据库中的内容，可以直接通过DATA控件来实现操作，也可以利用代码来完成相关的操作。

sql="select*frombookwhere图书信息='"&Text1（0）.Text&"'"

Ifsql<>""Then

Setrs=db.OpenRecordset（sql）

（四）计算机图书管理系统数据流程图

三、开发图书管理系统2008

（一）开发计算机图书管理系统的目的

计算机图书馆管理系统是我国大部分院校或其它部门不可缺少的部分,书籍是人类精神食粮，尤其对一些学校，图书馆来说，非常重要。

图书馆管理系统能够为用户实现借阅图书、期刊、试卷合订本等，随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对图书资源信息进行管理,具有着手工管理所无法比拟的优点.例如:

查阅迅速、安全性高、可靠性高、存储量大、保密性好、成本低等。

这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件，因此，开发这样一套管理软件是很有必要。

（二）开发计算机图书管理系统的思路

单从这一方面，开发图书管理系统需要从以下几个构思方面着手。

1.遐想

遐想。

即大胆地思维想象，在脑海形成一个框架，怎样去开发，如何去开发，开发有什么好处即影响。

开发会遇到什么问题，怎样去解决.

2.绘图

即将遐想的，用图象勾画出来，呈现模拟系统的功能.

3．准备材料

准备事先制作好材料。

如软件中所需要的图片。

代码，软件图标（Ico）页面图片（bmp,jpg）.

4.开发

“粮草好了，就动兵马”意思是现实开发系统（如新建窗体，模块等）.

四、计算机图书管理系统模块设计

（一）界面设计规范以及流程图（详细见页面）

主界面：

菜单栏、工具条、工作区（本系统采用SSTab页框）、状态栏等。

（二）系统窗体汇总

窗体名称

窗体类型

简要说明

FrmLogIn

启动窗体

系统登陆

Form1

MDI主窗体

系统主窗体

Form2

模式窗体

图书信息录入

Form3

MDI子窗体

职工信息录入

Form4

模式窗体

借书管理

Form5

模式窗体

还书管理

Form6

模式窗体

使用帮助

Frm_sys_set

模式窗体

账号管理

frmAbout

模式窗体

关于软件

frmMsg

MDI子窗体

友情提示

名称

类型

模块说明

Database

数据类型

数据连接

xp_canvas

窗体

窗体移动

Xpcmdbutton

按钮

个性按钮

Xphelp

系统

系统帮助

Xptopbuttons

系统

最大化，最小化，关闭

xpcmdbutton1

按钮

借书

Xpcmdbutton2

按钮

还书

Xpcmdbutton3

按钮

图书录入

Xpcmdbutton4

按钮

职工录入

Xpcmdbutton5

按钮

图书查询

Xpcmdbutton6

按钮

借阅查询

……..

…………

……………

（三）主窗体界面设计

主界面的设计采用标准无标题主窗口样式，自上而下依次为：

菜单栏、工具条、工作区（本系统采用SSTab页框）、状态栏等。

所有系统用户拥有相似的主界面。

主界面包含基本的或共享的功能，如书目浏览与检索，基本统计等。

代码见code目录下:

main.txt

主界面如代码所示：

OptionExplicit

'定义查询字段的窗体级变量

'定义查询的字段窗体变量

DimsfieldAsString'查询的关键词

DimseachtextAsString

'查询函数定义

'1、桉书号查询则采用具体查询办法

'2、按书名查询则采用模糊查询办法

Functionopen_seach（table_nameAsString,sfieldAsString,seachtextAsString）AsInteger

DimsqlstrAsString

DimstrAsString

'建立数据库连接

Setcon=NewADODB.Connection

Setrst=NewADODB.Recordset

con.CursorLocation=adUseClient

sqlstr="Provider=Microsoft.Jet.OLEDB.4.0;"+"DataSource="+App.Path+"\data\ComputerBookmanage.mdb"+";PersistSecurityInfo=False"

con.Opensqlstr

'查询办法选择

IfOption1.Value=TrueThen

str="select*from"&table_name&"where"&sfield&"='"&seachtext&"'"

Else

str="select*from"&table_name&"where"&sfield&"like'"&Trim（"%"&Text1.Text&"%"）&"'"

EndIf

IfOption3.Value=TrueThen

str="select*from"&table_name&"where"&sfield&"='"&seachtext&"'"

Else

str="select*from"&table_name&"where"&sfield&"like'"&Trim（"%"&Text1.Text&"%"）&"'"

EndIf

rst.Openstr,con,adOpenDynamic,adLockOptimistic

rst.Requery

Ifrst.RecordCount>0Then

open_seach=1'返回一个值1,代表有查询结果

Else

open_seach=0'返回一个值0,代表没有查询结果

EndIf

EndFunction

PrivateSubCheck4_Click（）

'选择查询的字段

SelectCaseTabStrip1.SelectedItem

Case"图书信息浏览":

sfield="[出版社]"

EndSelect

EndSub

PrivateSubCommand1_Click（）

Ifrst.BOF=TrueThen

frmMsg.Show

frmMsg.info.Visible=True

frmMsg.Text1.Text="已经到达第一条记录了！

"

ExitSub

Else

rst.MovePrevious

EndIf

EndSub

PrivateSubCommand2_Click（）'后一记录

Ifrst.EOF=TrueThen

frmMsg.Show

frmMsg.info.Visible=True

frmMsg.Text1.Text="已经到达最后一条记录了！

"

ExitSub

Else

rst.MoveNext

EndIf

EndSub

PrivateSubDataGrid2_Click（）

Callconnect_db

open_connection（"book"）'连接book表

tablename="book"

Ifprivilege=1Then'如果只是普通用户,无法查询员工信息

frmMsg.Show

frmMsg.error.Visible=True

frmMsg.Text1.Text="对不起，您没有查阅的权限！

"

ExitSub

EndIf

open_connection（"worker"）'连接worker表

tablename="worker"

open_connection（"record"）'连接record表

tablename="record"

SetDataGrid1.DataSource=rst

EndSub

PrivateSubCommand4_Click（）

DimretAsInteger

IfCommand4.Caption="查询"Then

Command4.Caption="确定"

Else

IfOption1.Value=FalseAndOption2.Value=FalseAndOption3.Value=FalseAndOption4.Value=FalseThen

frmMsg.Show

frmMsg.notice.Visible=True

frmMsg.Text1.Text="请选择查询项!

"

ExitSub

EndIf

IfText1.Text=""Then

frmMsg.Show

frmMsg.notice.Visible=True

frmMsg.Text1.Text="请输入查询内容！

"

Text1.SetFocus

ExitSub

EndIf

seachtext=Trim（Text1.Text）

ret=open_seach（tablename,sfield,seachtext）

Ifret=0Then

frmMsg.Show

frmMsg.error.Visible=True

frmMsg.Text1.Text="对不起，没有你要的记录!

"

Option1.Value=False

Option2.Value=False

Text1.Text=""

rst.Close

Setrst=Nothing

SetDataGrid1.DataSource=rst

Command1.Enabled=False'上一条,下一条按钮为灰

Command2.Enabled=False

Command4.Caption="查询"

ExitSub

EndIf

Command1.Enabled=True

Command2.Enabled=True

SetDataGrid1.DataSource=rst

Text1.Text=""

Option1.Value=False

Option2.Value=False

Command4.Caption="