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

頁頁.1月存頁頁.1月存頁頁.1月存因書955人員零_「統(tǒng)計表.—酗畸一斗2因書955人員零_「統(tǒng)計表.—酗畸一斗2楡吉有筆

_統(tǒng)計麻無嘶入—當時日期材效吉詢耍朵一3?處珊言詢有應統(tǒng)井嘶繞奸衣?處趣統(tǒng)卄K概述為適應教育現(xiàn)代化的迫切要求，提高高校圖書館的現(xiàn)代化管理水平，提高圖書館使用效率，更好的配置圖書資源，降低工作人員勞動強度；結合本人實際興趣及知識，開發(fā)了此軟件。2、詳細設計2.1?系統(tǒng)功能模塊圖2?2.數(shù)據(jù)流圖：系統(tǒng)時鐘數(shù)痂宜理要求 …亠系統(tǒng)時鐘當前日期言詢要求? 飛”q因書皆理系統(tǒng)卜.—統(tǒng)計要羽 > 罰戟單_3?數(shù)據(jù)庫設訃3.1數(shù)據(jù)庫概念結構設計：

5.2數(shù)據(jù)庫邏輯結構的設計包括有系統(tǒng)用戶表yongbu、讀者表duzh亡、圖書表tushu＞借閱表卩亡sbu、設置表shezo圖書表tushu字段名稱類型說明圖書編號文本書名文本作者文本出版社文本1單價文本本數(shù)文本1已借出數(shù)文本一 丿借出次數(shù)文本讀者表duzhe字段名稱 類型 說明頁頁.i月存頁頁.i月存讀者編號―■“■??—?文本姓名文本班級文本電話號碼文本借閱次數(shù)文本已借本數(shù)文本已交罰款文本借閱表卩己sbu字段名稱類型說明讀者編號文本圖書編號文本借書日期日期/時間還書日期日期/時間應還日期日期/時間續(xù)借文本設置表shez字段名稱類型說明還書期限整型

續(xù)借期限整型最大借書數(shù)整型4、主要功能模塊設計4.1?系統(tǒng)登陸界面設計圖書管理系統(tǒng)用戶名，[Effl三]圖書管理系統(tǒng)用戶名，[Effl三]巒■定if.nSMQ3-S-26功能介紹:用戶選擇用戶名并輸入密碼，系統(tǒng)按用戶名查看yongbu表，若密碼正確，則按權限進入圖書管理系統(tǒng)的主界面；若用戶密碼輸入不正確，則系統(tǒng)提示出錯，要求重新輸入密碼否則不得進入本系統(tǒng)。（注：還定義了一個模塊名為moduMbas,pubyh和qcqnxian都是全局變量，一個保存用戶名，一個保存權限、還有bsqx、x[qx、zd[ss用于保存還書期限、續(xù)借期限、最大借書數(shù)。）代碼實現(xiàn)：PrivateSubCommandLClickOAdodc1?R己cordSource=^select*hornyorjghuwhere用戶名二Da乜ComhotText&"'and密碼■〃&Textl.Text&""Ajojc1.RefreshIfAdojcl.Recordset.EOF=FalseThenpubyh=D^t^Cornbo!.Textquanxian=A4odc1.Kecordset.FieldsC7權限")Me.HideMDIForml.SbowElseMsgBox"密碼錯誤，請重新輸入?。簐hOKOnly+vbExcl^mation,"圖書館"Textl.Text=〃“CallForm_LoadEndifEndSubPrivateSubFotm_Load()頁頁.1月存頁頁.1月存Adodd.ConnectiorjString=/,Provlc|er=Miciosoftjet.,/&"OLEDB.4.0；Data5ource=//&App.Patb&^kcsl'.mdb；PersistSecuritylr)fo=F^lse/,，數(shù)據(jù)庫的連接，使用相對路徑Adodcl.KecordSource=^select*frorr)yonghu"Adodcl.KefreshUbel5.Qption="日期:"&D^teEndSub4.2圖書管理系統(tǒng)的主界面設計Q)界面設計：頁頁.i月存頁頁.i月存Ma?vxrv^mms?0丫耐匍tea^需于*RP1E；■押時祿洛個月MflRRUfJIJ%/務話廠&TCh^■"1fia?0?12:4?|￡Dii???■H—wewu~JReCiish(b)功能介紹:主界面的功能有系統(tǒng)管理模塊：系統(tǒng)設置、用戶管理、注銷、退出。數(shù)據(jù)管理模塊：借書管理、續(xù)借管理、還書管理、圖書管理、讀者管理。數(shù)據(jù)查詢模塊：借閱查詢、圖書查詢、讀者查詢。統(tǒng)計排行模塊：讀者統(tǒng)計排行、圖書統(tǒng)計排行。今日盤點模塊：今日借出圖書、今日歸還圖書、今日到期圖書。使用了菜單、工具欄和狀態(tài)欄。(C)代碼實現(xiàn)：PrivateSubMDIForrr)_Activ^teOUnloadfrmlogirj頁頁.I月存AJoc|c1.Connectionstring=<zProvider=Microsoft.Jet.,z&"OLEDB.4.0；DataSource二"&App.Path&/zkcs[.m4H;PersistSecurityInfo二Fals亡"Adodd?2cordSourc己=^select*fromshezz/AJodd.Refreshhsqx=Adodcl.Recordset.Fields”還書期限"）x[qx=AdodclRecordset.Fields（“續(xù)借期限"）zdjss=Adodd.Recordset.Fields（":最大借書數(shù)"）string*!=”當前還書期限:"&hsqx&〃個月續(xù)借期限:"&xjqx&〃個月最大借書數(shù):〃&zd$s&"本"SelectQsequ^nxian 7根據(jù)權限分配功能的使用Case"beizu=〃系統(tǒng)管理員:"mmuxtsz.Enabled=TrueQse"2"：beizu=〃操作員:〃 7權限為2的是一般操作人員menuxtsz.En^Hled=F^lseToolb^r1.Buttor)s」tem(1).Enabled=True頁頁.1月存頁頁.1月存Qsebeizu="讀者:"Qsebeizu="讀者:"，權限為3的是讀者EndSelectSt^tusB^rl.P^nelsCD.Text=beizu+pubyhSt^tusB3r1.P^r)elsC2).Text=stringlEndSub4.4借書管理模塊頁頁.i月存頁頁.i月存Q）界面設計b）功能介紹該部分完成對讀者的借書管理并將借書信息寫入peshu表中,并修改duzhe表中借閱次數(shù)、已借本數(shù)兩字段和tushu表中借出次數(shù)、已借本數(shù)兩字段，讀者借書數(shù)超過系統(tǒng)參數(shù)設定的最多本數(shù)的不能再借。（C）代碼實現(xiàn)PrivateSuhComm^ndVClickC)b=Clr)tCText6.Text)，讀者已借圖書數(shù)e=Clr)tCText5.Text)，讀者的借閱次數(shù)c=ClntCText17.Text)，圖書的本數(shù)d=ClntCText18.Text)，圖書已借出數(shù)f=ClntCText12.Text)，圖書的借出次數(shù)iFzdjss-b<=0ThenMsgBox"你已借滿圖書了一借書ExitSubifc-d<=0Then頁頁.i月存頁頁.i月存MsgBox-你要的圖書已全部借出〃，借書ExitSubEndlFAdodcl.Recordset.Update"已借本數(shù)",StrCb+1）Adodcl.Fsecordset.Upd^te"借閱次數(shù)",StrCe+1）Text6.Text=Adodcl.R亡cordset.Fields（“已借本數(shù)"）Text5.Text=A（\o（\cl.Kecorclset.FieldsC'借閱次數(shù)"）A4odc2.Recordset.Update"已借出本數(shù)",StrCd+1）A4odc2.Recordset.Update"借出次數(shù)；StrCf+1）Text18.Text=A4ojc2.Recordset.FieldsC,z已借出本數(shù)"）Text12.Text=Ac|odc2.Kecorcjset.FleldsC'7借出次數(shù)"）Adodc3.Recordset. NewAdodc3?Recordset.Fi』ds（"讀者編號"）=Textl.TextAdodc3?Recordset.Fi』ds（"圖書編號"）=Text16.TextAdodc3?Recordset.Fblds（”借書日期"）二DTPickerl.V^lueAdodc3Recordset.Fie【ds("應還日期")=DTPlcker2.V^lueA4odc3.Recordset.FieldsC7^借")="0"Adodc3?R亡cords亡t?UpdateAdodc3?2fr亡sbEndSubPrivateSubForm_Load()Adodd.ConnecttonStrin^=,,Provi4er=MicrosoAjet.,/&"OLEDB.4.0；DataSourc己二"&App.Path&/zkcs[.rr)dB;PersistSecurityInfo二Fals亡"ifKeyCocle=13ThenifKeyCocle=13Then頁頁.I月存Adodd.R^cordSourc己=^select*fromduzb亡"Adodcl.FsefreshDTPicker1.V^lue=D^teDTPicker2.V^lue=Da繪Add("m〃,bsqx,DTPlcker!) *sqx是還書期限EndSubPrivateSubText1_KeyDowr)(KeyCodeAsInteger,ShiftAsInteger)AJoc|c1.RefreshAcjotjcl.Recordset.Find"讀者編號二'"&Textl.Text&"z"ifA4odc1.Recordset.EOF=TrueThenMsgBox-無此讀者編號〃，借書Text2.Text="〃A4odd.RefreshExitSubEndifText2.Text=AdoddRecordset.Fb【ds(“姓名〃)End\(EndSubPrivateSubText16_KeyDownCKeyCodeAsInteger,ShiftAsInteger)頁頁.I月存頁頁.I月存A4o4c2.FsefreshAdodc2?RecordsetFind"圖書編號二"&Text16.Text&"z"\(A(\o<ic2.Recordset.EOF=TrueThenMsgBox-無此圖書編號〃，借書Text15.Text二"Adodc2?R己存亡sbExitSubEndifText15.Text=Adodc2?Recordset.Fie【ds（"書名"）EndItEndSub4.5圖書查詢Q）界面設計:頁頁.1月存（b）功能介紹：對圖書可根據(jù)不同的條件進行查詢（圖書編號、書名、作者、出版社）°（C）代碼實現(xiàn):PrivateSubComm^ndVChckC)SelectQsecomHo1.ListIndexQse0Adodcl."cordset.Find"圖書編號='"&Text8.Text&ifA4odc1.Recordset.EOFThenAdodd.Recordset.MoveFirstAcjotjcl.Recordset.Find"圖書編號二'"&Text8.Text&EndifQse1，書名采用模糊查詢Adodd."cordset.Fin