【摘 要】隨著計(jì)算機(jī)科學(xué)的不斷發(fā)展，其強(qiáng)大的功能已經(jīng)被人們深刻地認(rèn)識到，它已經(jīng)進(jìn)入了人類社會的各個(gè)領(lǐng)域，并發(fā)揮著越來越重要的作用。本文所設(shè)計(jì)的基于VB的體育器材租賃系統(tǒng)就是利用計(jì)算機(jī)來管理體育器材信息，本系統(tǒng)實(shí)現(xiàn)了體育器材基本信息的添加、刪除、修改和檢索操作以及體育器材租賃信息的管理，設(shè)置租賃限制和超期賠償?shù)裙δ堋?/p>

【關(guān)鍵詞】VB 體育 管理

【中圖分類號】TP399 【文獻(xiàn)標(biāo)識碼】A 【文章編號】1674－4810（2011）10－0023－01

一 引言

近年來，我國體育事業(yè)蓬勃發(fā)展，體育器材的種類與數(shù)量增長的勢頭也十分迅猛，學(xué)校對體育器材的需求也十分迫切，隨著體育器材的大量增加，其管理難度也越來越大，陳舊的手工管理方式以及陳舊的體育器材租賃系統(tǒng)早已不能滿足學(xué)校管理數(shù)量龐大的體育器材信息的需要，采用先進(jìn)的計(jì)算機(jī)技術(shù)對體育器材信息進(jìn)行管理，提高管理和服務(wù)質(zhì)量以及管理水平勢在必行。體育器材管理系統(tǒng)是一個(gè)學(xué)校數(shù)字化管理中不可缺少的一部分，它的內(nèi)容對于體育器材管理者和體育器材借用者來說至關(guān)重要，因此，體育器材管理系統(tǒng)要能夠?yàn)橛脩艏肮芾砣藛T提供充足的信息和快捷的查詢方法。

二 體育器材歸還設(shè)計(jì)

體育器材歸還的主要功能是對庫存操作及計(jì)費(fèi)管理。此系統(tǒng)的使用者權(quán)限為管理員，普通用戶沒有權(quán)限進(jìn)行此項(xiàng)操作。首先根據(jù)借器材表中的記錄，顯示出供管理員選擇的用戶列表及器材列表，管理員選擇完成后確定返還器材。若器材歸還時(shí)間未超出規(guī)定時(shí)間，則系統(tǒng)將自動(dòng)進(jìn)行正常計(jì)費(fèi)；若器材歸還時(shí)間超出規(guī)定時(shí)間，則系統(tǒng)將自動(dòng)進(jìn)行逾期計(jì)費(fèi)。同時(shí)該類器材庫存數(shù)量會相應(yīng)加上歸還的器材數(shù)量，由此完成對庫存及計(jì)費(fèi)的相應(yīng)操作管理。體育器材歸還流程圖，見圖1。

三 體育器材借用設(shè)計(jì)

體育器材借用設(shè)計(jì)采用收費(fèi)設(shè)計(jì)模式，以用戶所借器材的類型進(jìn)行收費(fèi)。系統(tǒng)設(shè)計(jì)成器材，一經(jīng)借用便開始記錄借出時(shí)間并計(jì)費(fèi)，直到用戶歸還此體育器材，計(jì)費(fèi)時(shí)間結(jié)束。體育器材借用流程圖，見圖2。

四 系統(tǒng)登錄設(shè)計(jì)

系統(tǒng)登錄采用用戶名及密碼登錄的方式，采用雙重驗(yàn)證，即身份驗(yàn)證和權(quán)限驗(yàn)證。身份驗(yàn)證用以判斷用戶有沒有權(quán)限進(jìn)入系統(tǒng)，權(quán)限驗(yàn)證用以驗(yàn)證用戶對系統(tǒng)的使用權(quán)限，判斷是管理員還是普通用戶，以轉(zhuǎn)入相應(yīng)操作界面進(jìn)行下一步操作。

五 關(guān)鍵代碼

下面給出刪除記錄的代碼如下：

My bookmark=MDIForm1.banform.Bookmark

str1=MsgBox（“是否刪除當(dāng)前記錄？”，vb OK Cancel，“刪除當(dāng)前記錄”）

If str1＝vbOK Then

MDIForm1.banform.Move Next

If MDIForm1.banform.EOF Then

MDI Form1.banform.MoveFirst

My bookmark = MDIForm1.banform.Bookmark

MDIForm1.banform.MoveLast

MDIForm1.banform.Delete

MsgBox（“刪除成功！”）

MDIForm1.banform.Bookmark = my bookmark

Call viewdata

Else

mybookmark = MDIForm1.banform.Bookmark

MDIForm1.banform.MovePrevious

MDIForm1.banform.Delete

MsgBox（“刪除成功！”）

MDIForm1.banform.Bookmark = mybookmark

Call viewdata

End If

Else

MDIForm1.banform.Bookmark = mybookmark

Call viewdata

End If

六 小結(jié)

通過本文所設(shè)計(jì)的基于VB的體育器材租賃系統(tǒng)，為學(xué)校營造一種新的辦學(xué)環(huán)境，使管理突破時(shí)空限制，擴(kuò)大管理規(guī)模，提高工作效率和管理水平，使體育器材管理者的工作效率大大提高。

參考文獻(xiàn)

［1］高春艷、李艷、谷偉東.Visual Basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與案例應(yīng)用［M］.北京：人民郵電出版社，2006

〔責(zé)任編輯：王以富〕

注：本文中所涉及到的圖表、注解、公式等內(nèi)容請以PDF格式閱讀原文