VB图书管理系统样本

1、概述为适应教诲当代化迫切规定，提高高校图书馆当代化管理水平，提高图书馆使用效率，更好配备图书资源，减少工作人员劳动强度；结合本人实际兴趣及知识，开发了此软件。2、详细设计2．1.系统功能模块图2．2.数据流图：3.数据库设计3.1数据库概念构造设计：3.2数据库逻辑构造设计涉及有系统顾客表yonghu、读者表duzhe、图书表tushu、借阅表jieshu、设立表shez。图书表tushu字段名称类型阐明图书编号文本

书名文本

作者文本

出版社文本

单价文本

本数文本

已借出数文本

借出次数文本

读者表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"'数据库连接，使用相对途径

Adodc1.RecordSource="select*fromyonghu"

Adodc1.Refresh

Label5.Caption="日期:"&Date

EndSub4.2图书管理系统主界面设计(a)界面设计：（b）功能简介：主界面功能有系统管理模块：系统设立、顾客管理、注销、退出。数据管理模块：借书管理、续借管理、还书管理、图书管理、读者管理。数据查询模块：借阅查询、图书查询、读者查询。记录排行模块：读者记录排行、图书记录排行。今日盘点模块：今日借出图书、今日归还图书、今日到期图书。使用了菜单、工具栏和状态栏。（c）代码实现：PrivateSubMDIForm_Activate()

Unloadfrmlogin

Adodc1.ConnectionString="Provider=Microsoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"kcsj.mdb;PersistSecurityInfo=False"

Adodc1.RecordSource="select*fromshez"

Adodc1.Refresh

hsqx=Adodc1.Recordset.Fields("还书期限")

xjqx=Adodc1.Recordset.Fields("续借期限")

zdjss=Adodc1.Recordset.Fields("最大借书数")

string1="当前还书期限:"&hsqx&"个月续借期限:"&xjqx&"个月最大借书数:"&zdjss&"本"

SelectCasequanxian'依照权限分派功能使用

Case"1"：beizu="系统管理员:"

menuxtsz.Enabled=True

……

Case"2":beizu="操作员:"'权限为2是普通操作人员

menuxtsz.Enabled=False

……

Toolbar1.Buttons.Item(1).Enabled=True

……

Case"3"：beizu="读者:"'权限为3是读者

……

EndSelect

StatusBar1.Panels(1).Text=beizu+pubyh

StatusBar1.Panels(2).Text=string1

EndSub4.4借书管理模块(a)界面设计b)功能简介该某些完毕对读者借书管理并将借书信息写入jieshu表中,并修改duzhe表中借阅次数、已借本数两字段和tushu表中借出次数、已借本数两字段，读者借书数超过系统参数设定最多本数不能再借。(c)代码实现PrivateSubCommand1_Click()

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

EndIf

Ifc-d<=0Then

MsgBox"你要图书已所有借出"，借书

ExitSub

EndIf

Adodc1.Recordset.Update"已借本数"，Str(b+1)

Adodc1.Recordset.Update"借阅次数"，Str(e+1)

Text6.Text=Adodc1.Recordset.Fields("已借本数")

Text5.Text=Adodc1.Recordset.Fields("借阅次数")

Adodc2.Recordset.Update"已借出本数"，Str(d+1)

Adodc2.Recordset.Update"借出次数"，Str(f+1)

Text18.Text=Adodc2.Recordset.Fields("已借出本数")

Text12.Text=Adodc2.Recordset.Fields("借出次数")

Adodc3.Recordset.AddNew

Adodc3.Recordset.Fields("读者编号")=Text1.Text

Adodc3.Recordset.Fields("图书编号")=Text16.Text

Adodc3.Recordset.Fields("借书日期")=DTPicker1.Value

Adodc3.Recordset.Fields("应还日期")=DTPicker2.Value

Adodc3.Recordset.Fields("续借")="0"

Adodc3.Recordset.Update

Adodc3.Refresh

EndSub

PrivateSubForm_Load()

Adodc1.ConnectionString="Provider=Microsoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"kcsj.mdb;PersistSecurityInfo=False"

Adodc1.RecordSource="select*fromduzhe"

Adodc1.Refresh

……

DTPicker1.Value=Date

DTPicker2.Value=DateAdd("m"，hsqx，DTPicker1)‘hsqx是还书期限

EndSub

PrivateSubText1_KeyDown(KeyCodeAsInteger，ShiftAsInteger)

IfKeyCode=13Then

Adodc1.Refresh

Adodc1.Recordset.Find"读者编号='"&Text1.Text&"'"

IfAdodc1.Recordset.EOF=TrueThen

MsgBox"无此读者编号"，借书

Text2.Text=""

……

Adodc1.Refresh

ExitSub

EndIf

Text2.Text=Adodc1.Recordset.Fields("姓名")

……

EndIf

EndSub

PrivateSubText16_KeyDown(KeyCodeAsInteger，ShiftAsInteger)

IfKeyCode=13Then

Adodc2.Refresh

Adodc2.Recordset.Find"图书编号='"&Text16.Text&"'"

IfAdodc2.Recordset.EOF=TrueThenMsgBox"无此图书编号"，借书

Text15.Text=""

……

Adodc2.Refresh

ExitSub

EndIf

Text15.Text=Adodc2.Recordset.Fields("书名")

……

EndIf

EndSub4.5图书查询(a)界面设计：(b)功能简介：对图书可依照不同条件进行查询（图书编号、书名、作者、出版社）。(c)代码实现：PrivateSubCommand1_Click()

SelectCasecombo1.ListIndex

Case0

Adodc1.Recordset.Find"图书编号='"&Text8.Text&"'"

IfAdodc1.Recordset.EOFThen

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find"图书编号='"&Text8.Text&"'"

EndIf

Case1'书名采用模糊查询

Adodc1.Recordset.Find"书名l