VB图书管理系统Word下载.docx

VB图书管理系统Word下载.docx

《VB图书管理系统Word下载.docx》由会员分享，可在线阅读，更多相关《VB图书管理系统Word下载.docx（11页珍藏版）》请在冰点文库上搜索。

借出次数

读者表duzhe

读者编号

姓名

班级

电话号码

借阅次数

已借本数

已交罚款

借阅表jieshu

借书日期

日期/时间

还书日期

应还日期

续借

设置表shez

还书期限

整型

续借期限

最大借书数

4、主要功能模块设计

4.1.系统登陆界面设计

功能介绍：

用户选择用户名并输入密码，系统按用户名查看yonghu表，若密码正确，则按权限进入图书管理系统的主界面；

若用户密码输入不正确，则系统提示出错,要求重新输入密码否则不得进入本系统。

（注：

还定义了一个模块名为module1.bas,pubyh和quanxian都是全局变量，一个保存用户名，一个保存权限、还有hsqx、xjqx、zdjss用于保存还书期限、续借期限、最大借书数。

）

代码实现：

PrivateSubCommand1_Click（）

　　　Adodc1.RecordSource="

select*fromyonghuwhere用户名='

"

&

DataCombo1.Text&

"

'

and密码='

Text1.Text&

　　　Adodc1.Refresh

　　　IfAdodc1.Recordset.EOF=FalseThen

　　　　　　pubyh=DataCombo1.Text

　　　　　　quanxian=Adodc1.Recordset.Fields（"

权限"

　　　　　　Me.Hide

　　　　　　MDIForm1.Show

　　　Else

　　　　　　MsgBox"

密码错误，请重新输入！

vbOKOnly+vbExclamation,"

图书馆"

　　　　　　Text1.Text="

　　　　　　CallForm_Load

　　　EndIf

EndSub

PrivateSubForm_Load（）

　　　Adodc1.ConnectionString="

Provider=Microsoft.Jet."

OLEDB.4.0;

DataSource="

App.Path&

kcsj.mdb;

PersistSecurityInfo=False"

　'

数据库的连接，使用相对路径

select*fromyonghu"

　　　Label5.Caption="

日期:

Date

　　　EndSub

4.2图书管理系统的主界面设计

（a）界面设计：

（b）功能介绍：

主界面的功能有系统管理模块：

系统设置、用户管理、注销、退出。

数据管理模块：

借书管理、续借管理、还书管理、图书管理、读者管理。

数据查询模块：

借阅查询、图书查询、读者查询。

统计排行模块：

读者统计排行、图书统计排行。

今日盘点模块：

今日借出图书、今日归还图书、今日到期图书。

使用了菜单、工具栏和状态栏。

（c）代码实现：

PrivateSubMDIForm_Activate（）

Unloadfrmlogin

Adodc1.ConnectionString="

select*fromshez"

　　　hsqx=Adodc1.Recordset.Fields（"

还书期限"

　　　xjqx=Adodc1.Recordset.Fields（"

续借期限"

　　　zdjss=Adodc1.Recordset.Fields（"

最大借书数"

string1="

当前还书期限:

hsqx&

个月　续借期限:

xjqx&

个月　最大借书数:

zdjss&

本"

SelectCasequanxian　　　　　　　　　　　　　　　'

根据权限分配功能的使用

　Case"

1"

:

beizu="

系统管理员:

　　　　　　　　　　　menuxtsz.Enabled=True

　　　　　　　　　　　……

2"

　beizu="

操作员:

　　　　　　　　'

权限为2的是一般操作人员

　　　　　　　　　　　menuxtsz.Enabled=False

　　　　　　　　　　　Toolbar1.Buttons.Item

（1）.Enabled=True

3"

读者:

　　　　　　'

权限为3的是读者

　　　　　　　　　　……

EndSelect

StatusBar1.Panels

（1）.Text=beizu+pubyh

StatusBar1.Panels

（2）.Text=string1

4.4借书管理模块

（a）界面设计

b）功能介绍

该部分完成对读者的借书管理并将借书信息写入jieshu表中,并修改duzhe表中借阅次数、已借本数两字段和tushu表中借出次数、已借本数两字段，读者借书数超过系统参数设定的最多本数的不能再借。

（c）代码实现

　　　　　b=CInt（Text6.Text）　　‘读者已借图书数

　　　　　e=CInt（Text5.Text）　　　‘读者的借阅次数

　　　　　c=CInt（Text17.Text）　　‘图书的本数

　　　　　d=CInt（Text18.Text）　　　‘图书已借出数

　　　　　f=CInt（Text12.Text）　　　‘图书的借出次数

　　　Ifzdjss-b<

=0Then

　　　　　　　MsgBox"

你已借满图书了"

借书

　　　ExitSub

　　　Ifc-d<

　　　MsgBox"

你要的图书已全部借出"

　　　Adodc1.Recordset.Update"

已借本数"

Str（b+1）

借阅次数"

Str（e+1）

　　　Text6.Text=Adodc1.Recordset.Fields（"

　　　Text5.Text=Adodc1.Recordset.Fields（"

　　　Adodc2.Recordset.Update"

已借出本数"

Str（d+1）

借出次数"

Str（f+1）

　　　Text18.Text=Adodc2.Recordset.Fields（"

　　　Text12.Text=Adodc2.Recordset.Fields（"

　Adodc3.Recordset.AddNew

　　　Adodc3.Recordset.Fields（"

读者编号"

）=Text1.Text

图书编号"

）=Text16.Text

借书日期"

）=DTPicker1.Value

应还日期"

）=DTPicker2.Value

续借"

）="

0"

　　　Adodc3.Recordset.Update

　　　Adodc3.Refresh

select*fromduzhe"

　　……

　　　DTPicker1.Value=Date

　　　DTPicker2.Value=DateAdd（"

m"

hsqx,DTPicker1）　‘hsqx是还书期限

PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode=13Then

Adodc1.Refresh

Adodc1.Recordset.Find"

读者编号='

IfAdodc1.Recordset.EOF=TrueThen

　　MsgBox"

无此读者编号"

　　Text2.Text="

　　　　　Adodc1.Refresh

　　ExitSub

　　EndIf

Text2.Text=Adodc1.Recordset.Fields（"

姓名"

……

EndIf

PrivateSubText16_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

Adodc2.Refresh

Adodc2.Recordset.Find"

图书编号='

Text16.Text&

IfAdodc2.Recordset.EOF=TrueThen

无此图书编号"

Text15.Text="

Text15.Text=Adodc2.Recordset.Fields（"

书名"

4.5图书查询

对图书可根据不同的条件进行查询（图书编号、书名、作者、出版社）。

SelectCasecombo1.ListIndex

Case0

Text8.Text&

IfAdodc1.Recordset.EOFThen

Adodc1.Recordset.MoveFirst

Case1　'

书名采用模糊查询

书名like'

*"

*'

5．结束语

本程序严格按照软件工程的设计流程，使用编程简洁、面向对象的可视化编程语言VisualBasic6.0,并结合MSACCESS实现数据库的操作。

整个系统实现了一般图书馆系统中的功能。