【正文】
sgBox 歸還成功!圖書(shū)借出時(shí)間超過(guò)了15天,應(yīng)交罰款: amp。 j amp。 元End If End If End Sub\\“借出”圖書(shū)功能代碼:Private Sub 借出_Click()Dim a, b, c, d, e, f, g As StringDim h, i As IntegerIf IsNull([圖書(shū)名稱1]) ThenMsgBox 請(qǐng)輸入圖書(shū)名稱!ElseIf IsNull([讀者姓名1]) ThenMsgBox 請(qǐng)輸入讀者姓名!Elsea = b = c = d = h = DLookup(庫(kù)存, 圖書(shū)信息, 圖書(shū)編號(hào)= amp。 a amp。 )If h = 0 ThenMsgBox 該圖書(shū)已沒(méi)有庫(kù)存,請(qǐng)選擇其他圖書(shū)!Elsee = insert into 圖書(shū)借閱(讀者編號(hào),讀者姓名,圖書(shū)編號(hào),圖書(shū)名稱) values( amp。 c amp。 ,39。 amp。 d amp。 39。, amp。 a amp。 ,39。 amp。 b amp。 39。)f = update 圖書(shū)信息 set 庫(kù)存=庫(kù)存1 where 圖書(shū)編號(hào)= amp。 ag = update 讀者信息 set 已借數(shù)量=已借數(shù)量+1 where 讀者編號(hào)= amp。 c e f gMsgBox 借出成功!End If End If End Sub6. 系統(tǒng)測(cè)試模塊功能測(cè)試,就是為了檢查在模塊中有沒(méi)有不能實(shí)現(xiàn)或?qū)崿F(xiàn)有問(wèn)題的功能,或是運(yùn)行是否穩(wěn)定以及能否反復(fù)使用。以下是對(duì)系統(tǒng)的主要功能進(jìn)行測(cè)試的步驟及其測(cè)試結(jié)果。 登錄功能測(cè)試測(cè)試目的:測(cè)試登錄功能是否運(yùn)行正常。測(cè)試步驟:;,密碼:111,點(diǎn)擊登陸;,密碼:123,點(diǎn)擊登陸。期望結(jié)果:,密碼:111時(shí),登陸不成功,提示“用戶名或密碼有誤!” ,密碼:123時(shí),登陸成功。提示“歡迎登錄圖書(shū)借閱管理系統(tǒng)!”實(shí)測(cè)結(jié)果:經(jīng)測(cè)試此功能運(yùn)行正常。 圖書(shū)管理測(cè)試測(cè)試目的:圖書(shū)信息能否修改并成功保存到數(shù)據(jù)庫(kù)中。測(cè)試步驟:“圖書(shū)管理”“修改”期望結(jié)果:提示“修改成功”并在圖書(shū)列表中正確顯示修改后的圖書(shū)信息。實(shí)測(cè)結(jié)果:經(jīng)測(cè)試此功能運(yùn)行正常。 讀者管理測(cè)試測(cè)試目的:能夠根據(jù)用戶輸入條件查詢出符合條件的數(shù)據(jù)測(cè)試步驟:“讀者管理”“姓名”字段里輸入“三”“查詢”期望結(jié)果:可以搜索出所有姓名里包含“三”的讀者。實(shí)測(cè)結(jié)果:經(jīng)測(cè)試此功能運(yùn)行正常。 借閱管理測(cè)試測(cè)試目的:能夠成功歸還圖書(shū)測(cè)試步驟:“借閱管理”4點(diǎn)擊“歸還”“歸還”期望結(jié)果:執(zhí)行第4步后會(huì)提示:“該圖書(shū)已歸還,不需要再次歸還”。 執(zhí)行第6步后會(huì)提示:“歸還成功”相關(guān)讀者已借數(shù)量減1,相關(guān)圖書(shū)庫(kù)存數(shù)量加1。實(shí)測(cè)結(jié)果:經(jīng)測(cè)試此功能運(yùn)行正常。7. 開(kāi)發(fā)環(huán)境及使用注意事項(xiàng)(1) 開(kāi)發(fā)環(huán)境:Microsoft OFFICE ACCESS 2003(2) 數(shù)據(jù)庫(kù):ACCESS 2003(3) 本系統(tǒng)管理員用戶名為:liuwei,密碼為:123。(4) 因?yàn)橄到y(tǒng)編寫(xiě)時(shí)包含了宏和VBA,所以啟動(dòng)系統(tǒng)時(shí)會(huì)有以下提示,如圖 71所示。請(qǐng)選擇“否”。 圖71 安全提示(5) 如果用ACCESS 2007 查看請(qǐng)?jiān)谶x項(xiàng)—信任中心—宏設(shè)置—啟用所有宏。(6) 因?yàn)榧嫒菪詥?wèn)題光盤(pán)上的數(shù)據(jù)庫(kù)系統(tǒng)會(huì)報(bào)一個(gè)查詢更新錯(cuò)誤,以致無(wú)法執(zhí)行增刪改操作,暫時(shí)還沒(méi)找到解決辦法。如要演示圖書(shū)管理系統(tǒng)請(qǐng)用另外提交的壓縮包里的數(shù)據(jù)庫(kù)系統(tǒng)。18