用VB编写一个简单的图书管理系统方案Word文档格式.docx

用VB编写一个简单的图书管理系统方案Word文档格式.docx

《用VB编写一个简单的图书管理系统方案Word文档格式.docx》由会员分享，可在线阅读，更多相关《用VB编写一个简单的图书管理系统方案Word文档格式.docx（36页珍藏版）》请在冰豆网上搜索。

借阅管理部分实现对借书信息、还书信息的添加、修改、查询等操作。

系统管理部分实现超级用户对普通用户的用户名和密码对注册、修改等操作。

2．3程序预览

运行本系统程序，首先出现登录界面（图2），输入正确用户名及密码后进入主窗体（图3），主窗体上的主菜单栏有：

书籍管理、读者管理、借阅管理、系统设置及帮助。

图2

图3

2.3.1书籍管理功能

“书籍管理”菜单下有两个一级菜单：

“书籍信息管理”和“书籍类别管理”。

具体操作如下：

1．“书籍类别管理”下有三个子菜单：

“新增”、“修改”、“删除”。

单击“新增”菜单，打开“新增书籍类别”窗体（图4）。

单击“修改”或“删除”，都会打开“书籍类别信息管理”窗体（图5）。

图4图5

2．“书籍信息管理”下有四个子菜单：

“新增图书”、“修改书籍信息”、“删除书籍信息”、“查询书籍信息”。

单击“新增图书”菜单，打开“新增书籍”窗体（图6）。

单击“修改”或“删除”，都会打开“书籍信息管理”窗体（图7）。

单击“查询书籍信息”菜单，打开“查询图书”窗体（图8）

图6

图7

图8

2.3.2读者管理功能

“读者管理”菜单下有两个一级菜单：

“读者类别管理”和“读者信息管理”。

1．“读者类别管理”下有3个子菜单：

“添加读者类别”、“修改读者类别”、“删除读者类别”。

单击“添加读者类别”菜单，打开“添加读者类别”窗体（图9）；

单击“修改读者类别”和“删除读者类别”菜单，都会打开“读者类别管理”窗体（图10）。

图9图10

2．“读者信息管理”菜单下有4个子菜单：

“添加读者信息”、“修改读者信息”、“删除读者信息”和“查询读者信息”。

单击“添加读者信息”菜单，打开“添加读者信息”窗体（图11），单击“修改读者信息”和“删除读者信息”菜单，都会打开“读者信息管理”窗体（图12），单击“查询读者信息”菜单，打开“查询读者信息”窗体（图13）。

图11

图12图13

2.3.3图书借阅管理功能

“借阅管理”菜单下有2个一级菜单：

“借书管理”和“还书管理”。

1．“借书管理”菜单下有2个子菜单：

“添加借书信息”和“查询借书信息”。

单击“添加借书信息”先打开的是“查询图书”窗体（图8），找到需要借阅的图书后，单击“借这本书按钮”，打开“借书”窗体（图14）；

单击“查询借书信息”菜单，打开“查询借书信息”窗体（图15）。

图14图15

2.单击“还书管理”，打开“还书”窗体（图16）。

图16

2.3.4系统管理功能

“系统管理”菜单下有3个子菜单，分别是“添加管理员”、“修改密钥”和“退出系统”。

单击“添加管理员”子菜单，打开“添加管理员”窗体（图17），单击“修改密钥”子菜单，打开“修改密码”窗体（图18），单击“退出系统”，备份数据并退出本系统。

图17图18

2.3.5帮助菜单

单击“帮助”菜单，打开系统信息窗体（图1），点击系统信息窗体任何一处，关闭该信息窗体，返回主窗体。

图1

2.4数据库设计

数据库名为sj.mdb,在库中设计六表，它们分别为dzlb（读者类别表）、dzxx（读者信息表）、jyxx（借阅信息表）、sjxx（书籍信息表）、sjlb（书籍类别表）、sys（系统管理表）。

2.4.1读者类别表，表名为dzlb,字段名称有读者类别名称、读者借书数量、借书期限及有限期限，设置“读者类别名称”为主键，是必填字段，不允许空值。

2.4.2读者信息表:

设置“读者编号”为主键，“读者编号”、“读者”为必填字段，不允许空值。

2.4.3借阅信息表:

2.4.4书籍信息表:

设置“图书编号”为主键，“图书编号”、“书籍名称”为必填字段，不允许空值。

2.4.5图书类别表:

2.4.6系统管理表:

2.4.7数据库连接方式选择

Visualbasic6.0连接数据库的主要方式有以下几种方式：

一是用data控件进行数据库,二是利用adodc（ADODataControl）进行数据库。

三是:

利用DataEnvironment进行数据库，四是利用ADO（ActiveXDataObjects）进行编程。

利用DAO对数据库进行操纵[3]:

在visualbasic中提供了两种与jet数据引擎接口的方法:

data控件与数据访问对象（DAO）DAO是databaseobject的英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的支持.

DAO模型是设计关系数据库系统结构的对象类的集合.他们提供了管理关系型数据库系统所需要的全部操作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等.

关系数据库介绍[4]:

关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。

20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。

在数据库发展的历史上，最重要的成就就是关系模型。

关系数据库系统与非关系数据库系统的区别是：

关系系统只有“表“这一种数据结构；

而非关系数据库系统还有其他数据结构，对这些数据结构有其他的操作。

结构化查询语言SQL（StructuredQueryLanguage）是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。

目前已成为关系数据库的标准语言。

Microsoft 

Access介绍:

使用 

Access，可以在单一的数据库文件中管理所有的信息。

在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；

可以使用联机窗体来查看、添加及更新表中的数据；

使用查询来查找并检索所要的数据；

也可以使用报表以特定的版面布置来分析及打印数据。

如果要保存数据，请为每一种类型的信息创建一个表。

如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。

如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。

查询的同时也可以更新或删除多条记录，并对数据执行嵌或自定义的计算。

如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。

在打开一个窗体时，Microsoft 

Access 

将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。

如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。

例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印标签的报表。

2．5系统代码[5]

2.5.1主界面代码:

2.5.1.1添加管理员菜单

PrivateSubaddadmin_Click（）

addadminf.Show

EndSub

2.5.1.2添加读者类别菜单

PrivateSubadddzlb_Click（）

Adddzlbf.Show

2.5.1.3添加读者信息菜单

PrivateSubadddzxxf_Click（）

Adddzxxf.Show

2.5.1.4添加还书信息菜单

PrivateSubaddhs_Click（）

hsf.Show

2.5.1.5添加借书信息菜单

PrivateSubaddjs_Click（）

Jsf.Show

2.5.1.6添加图书类别菜单

PrivateSubaddlb_Click（）

addtslb.Show

2.5.1.7查询读者信息菜单

PrivateSubcxdzxx_Click（）

cxdzxxf.Show

2.5.1.8查询借书信息菜单

PrivateSubcxjs_Click（）

cxjsxxf.Show

2.5.1.9查询书籍信息菜单

PrivateSubcxsj_Click（）

cxsjf.Show

2.5.1.10删除读者类别菜单

PrivateSubDeldzlb_Click（）

dzlbxxf.Show

2.5.1.11删除读者信息菜单

PrivateSubDeldzxx_Click（）

dzxxglf.Show

2.5.1.12删除书籍类别菜单

PrivateSubdellb_Click（）

sjlbxxf.Show

2.5.1.13帮助菜单

PrivateSubhlep_Click（）

frmSplash.Show

2.5.1.14退出系统菜单

PrivateSubUnload_Click（）

end

2.5.1.15修改读者类别菜单

PrivateSubXgdzlb_Click（）

2.5.1.16修改读者信息菜单

PrivateSubxgdzxx_Click（）

2.5.1.17修改书籍类别菜单

PrivateSubxglb_Click（）

2.5.1.18修改用户密码菜单

PrivateSubxgmm_Click（）

xgmmf.Show

2.5.1.19修改书籍信息菜单

PrivateSubxgts_Click（）

sjxxf.Show

2.5.1.20新增图书信息菜单

PrivateSubxzts_Click（）

addtsf.Show

2.5.2添加图书类别

添加图书类别代码:

PrivateSubCommand1_Click（）

DimSq1AsString

Dimrs_addAsNewADODB.Recordset

Sql="

select*fromsjlbwhere类别名称='

"

&

Text1.Text&

"

'

rs_add.OpenSql,Sjk,adOpenKeyset,adLockPessimistic

IfTrim（Text1.Text）="

Then

MsgBox"

图书类别不能为空"

vbOKOnly+vbExclamation,"

注意"

Text1.SetFocus

ExitSub

EndIf

IfTrim（Text2.Text）="

图书编号不能为空"

Text2.SetFocus

EndIf

Ifrs_add.EOF=TrueThen

rs_add.AddNew

rs_add.Fields（0）=Trim（Text2.Text）

rs_add.Fields

（1）=Trim（Text1.Text）

rs_add.Update

成功地添加"

这一图书类别"

vbOKOnly,"

恭喜"

rs_add.Close

Else

这一图书类别已存在"

图书类别不能重复"

rs_add.Close

Text1.Text="

Text2.Text="

PrivateSubCommand2_Click（）

UnloadMe

2.5.3修改图书类别:

修改图书类别代码:

OptionExplicit

DimMyjlAsNewADODB.Recordset

PrivateSubForm_Load（）

OnErrorGoToloaderror

Sq1="

select*fromsjlb"

Myjl.CursorLocation=adUseClient

Myjl.OpenSq1,Sjk,adOpenKeyset,adLockPessimistic

Cmdcancel.Enabled=False

Cmdupdate.Enabled=False

Dg.AllowAddNew=False

Dg.AllowDelete=False

Dg.AllowUpdate=False

SetDg.DataSource=Myjl

ExitSub

loaderror:

MsgBoxErr.Description

PrivateSubCmdadd_Click（）

Dg.AllowAddNew=True

Dg.AllowUpdate=True

Cmdadd.Enabled=False

Cmdupdate.Enabled=True

PrivateSubCmdadd_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

Cmdadd.Caption="

点击此处也可以添加"

Cmdadd.Width=3000

PrivateSubCmdcancel_Click（）

Myjl.CancelUpdate

Dg.Refresh

Cmdxg.Enabled=True

Cmddel.Enabled=True

PrivateSubCmddel_Click（）

DimSrlAsString

OnErrorGoTodelerror

Srl=MsgBox（"

确定要删除吗？

vbYesNo）

IfSrl=vbYesThen

Dg.AllowDelete=True

Myjl.Delete

Myjl.Update

Else

delerror:

PrivateSubCmdupdate_Click（）

IfNotIsNull（Dg.Bookmark）Then

MsgBox"

修改成功"

恭喜成功"

Cmdadd.Width=1550

高级"

Cmdadd.Enabled=True

PrivateSubCmdxg_Click（）

OnErrorGoToxg

Cmddel.Enabled=False

Cmdxg.Enabled=False

Cmdcancel.Enabled=True

xg:

IfErr.Number<

>

0Then

PrivateSubForm_Unload（CancelAsInteger）

SetDg.DataSource=Nothing

Myjl.Close

2.5.4添加读者类别界面:

DimMybookAsNewADODB.Recordset

读者类别名称不能为空"

Text1.SetFocus

IfTrim（Text2.Text）="

借书数量不能为空"

Text2.SetFocus

IfTrim（Text3.Text）="

借书期限不能为空"

Text3.SetFocus

IfTrim（Text4.Text）="

有效期限不能为空"

Text4.SetFocus

OnErrorGoToCw

Srl="

select*fromdzlbwhere读者类别名称='

Mybook.OpenSrl,Sjk,adOpenKeyset,adLockPessimistic

IfMybook.EOFThen

Mybook.AddNew

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

Mybook.Fields

（1）=Trim（Text2.Text）

Mybook.Fields

（2）=Trim（Text3.Text）

Mybook.Fields（3）=Trim（Text4.Text）

Mybook.Update

您已经成功添加"

这一读者类别"

添加成功!

Mybook.Close

读者类别名称为"

重复"

注意重复"

Text1.Text="

Cw:

DimSq1AsString'

定义一个字符串变量

DimMyjlAsNewADODB.Recordset'

定义一个Recordset对象变量

2.5.5查询读者信息代码:

select*fromdzlb"

DoWhileNotMyjl.EOF

Combo1.AddItemMyjl.Fields（0）

Myjl.MoveNext

Loop

Combo1.ListIndex=0

DimSrlAsString'

DimMybookAsNewADODB.Recordset'

IfCheck1.Value=vbCheckedThen

读者编号='

Trim（Text1.Text&

）&

IfCheck2.Value=vbCheckedThen

IfTrim（Srl）="

Srl="

读者='

Trim（Text2.Text&

）