VB圖書管理系統(tǒng)樣本

1、概述為適應教誨當代化迫切規(guī)定，提高高校圖書館當代化管理水平，提高圖書館使用效率，更好配備圖書資源，減少工作人員勞動強度；結合本人實際興趣及知識，開發(fā)了此軟件。2、詳細設計2．1.系統(tǒng)功能模塊圖2．2.數(shù)據(jù)流圖：3.數(shù)據(jù)庫設計3.1數(shù)據(jù)庫概念構造設計：3.2數(shù)據(jù)庫邏輯構造設計涉及有系統(tǒng)顧客表yonghu、讀者表duzhe、圖書表tushu、借閱表jieshu、設立表shez。圖書表tushu字段名稱類型闡明圖書編號文本

書名文本

作者文本

出版社文本

單價文本

本數(shù)文本

已借出數(shù)文本

借出次數(shù)文本

讀者表duzhe字段名稱類型闡明讀者編號文本

姓名文本

班級文本

電話號碼文本

借閱次數(shù)文本

已借本數(shù)文本

已交罰款文本

借閱表jieshu字段名稱類型闡明讀者編號文本

圖書編號文本

借書日期日期/時間

還書日期日期/時間

應還日期日期/時間

續(xù)借文本

設立表shez字段名稱類型闡明還書期限整型

續(xù)借期限整型

最大借書數(shù)整型

4、重要功能模塊設計4.1.系統(tǒng)登陸界面設計功能簡介：顧客選取顧客名并輸入密碼，系統(tǒng)按顧客名查看yonghu表，若密碼對的，則按權限進入圖書管理系統(tǒng)主界面；若顧客密碼輸入不對的，則系統(tǒng)提示出錯,規(guī)定重新輸入密碼否則不得進入本系統(tǒng)。（注：還定義了一種模塊名為module1.bas,pubyh和quanxian都是全局變量，一種保存顧客名，一種保存權限、尚有hsqx、xjqx、zdjss用于保存還書期限、續(xù)借期限、最大借書數(shù)。）代碼實現(xiàn)：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"'數(shù)據(jù)庫連接，使用相對途徑

Adodc1.RecordSource="select*fromyonghu"

Adodc1.Refresh

Label5.Caption="日期:"&Date

EndSub4.2圖書管理系統(tǒng)主界面設計(a)界面設計：（b）功能簡介：主界面功能有系統(tǒng)管理模塊：系統(tǒng)設立、顧客管理、注銷、退出。數(shù)據(jù)管理模塊：借書管理、續(xù)借管理、還書管理、圖書管理、讀者管理。數(shù)據(jù)查詢模塊：借閱查詢、圖書查詢、讀者查詢。記錄排行模塊：讀者記錄排行、圖書記錄排行。今日盤點模塊：今日借出圖書、今日歸還圖書、今日到期圖書。使用了菜單、工具欄和狀態(tài)欄。（c）代碼實現(xiàn)：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("續(xù)借期限")

zdjss=Adodc1.Recordset.Fields("最大借書數(shù)")

string1="當前還書期限:"&hsqx&"個月續(xù)借期限:"&xjqx&"個月最大借書數(shù):"&zdjss&"本"

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

Case"1"：beizu="系統(tǒng)管理員:"

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表中借閱次數(shù)、已借本數(shù)兩字段和tushu表中借出次數(shù)、已借本數(shù)兩字段，讀者借書數(shù)超過系統(tǒng)參數(shù)設定最多本數(shù)不能再借。(c)代碼實現(xiàn)PrivateSubCommand1_Click()

b=CInt(Text6.Text)‘讀者已借圖書數(shù)

e=CInt(Text5.Text)‘讀者借閱次數(shù)

c=CInt(Text17.Text)‘圖課本數(shù)

d=CInt(Text18.Text)‘圖書已借出數(shù)

f=CInt(Text12.Text)‘圖書借出次數(shù)

Ifzdjss-b<=0Then

MsgBox"你已借滿圖書了"，借書

ExitSub

EndIf

Ifc-d<=0Then

MsgBox"你要圖書已所有借出"，借書

ExitSub

EndIf

Adodc1.Recordset.Update"已借本數(shù)"，Str(b+1)

Adodc1.Recordset.Update"借閱次數(shù)"，Str(e+1)

Text6.Text=Adodc1.Recordset.Fields("已借本數(shù)")

Text5.Text=Adodc1.Recordset.Fields("借閱次數(shù)")

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

Adodc2.Recordset.Update"借出次數(shù)"，Str(f+1)

Text18.Text=Adodc2.Recordset.Fields("已借出本數(shù)")

Text12.Text=Adodc2.Recordset.Fields("借出次數(shù)")

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("續(xù)借")="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)代碼實現(xiàn)：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