軟件工程參考文檔(圖書管理系統(tǒng))

1、Hebei Normal University of Science & Technology專業(yè)： 網(wǎng)絡(luò)工程 學(xué)號： 0613090225軟件工程課程設(shè)計(jì)（自然科學(xué)） 題 目：圖書管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 院（系、部）：數(shù)學(xué)與信息科技學(xué)院 學(xué) 生 姓 名：張麗穎 指 導(dǎo) 教 師： 宋金玲 職 稱 副教授 2011年 12 月 16日河北科技師范學(xué)院教務(wù)處制目錄一、系統(tǒng)開發(fā)背景和意義3二、可行性分析34三、用戶需求分析48四、系統(tǒng)概要設(shè)計(jì)814五、系統(tǒng)詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)1541六、測試分析報(bào)告4147七、用戶手冊47圖書管理系統(tǒng)一、系統(tǒng)開發(fā)的背景和意義圖書管理是高校內(nèi)每一個(gè)系部或院部都必須切實(shí)面對的工

2、作，但一直以來人們使用傳統(tǒng)的人工方式管理圖書資料。這種方式存在著許多缺點(diǎn)，如效率低、保密性差且較為繁瑣。另外，隨著圖書資料數(shù)量的增加，其工作量也將大大增加，這必將增加圖書資料管理者的工作量和勞動(dòng)強(qiáng)度，這將給圖書資料信息的查找、更新和維護(hù)都帶來了很多困難。經(jīng)過詳細(xì)的調(diào)查，目前我國各類高等學(xué)校中有相當(dāng)一部分單位圖書資料管理還停留在人工管理的基礎(chǔ)上。這樣的管理機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，其管理方法將浪費(fèi)許多人力和物力。隨著科學(xué)技術(shù)的不斷提高，這種傳統(tǒng)的手工管理方法必然被以計(jì)算機(jī)為基礎(chǔ)的信息管理方法所取代。圖書管理作為計(jì)算機(jī)應(yīng)用的一個(gè)分支，有著手工管理無法比擬的優(yōu)點(diǎn)，如檢索迅速、查找方便、可靠性高、存

3、儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高圖書管理的效率。因此，開發(fā)一套能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄蔚膱D書管理系統(tǒng)，將是非常必要的，也是十分及時(shí)的。二、可行性分析1、技術(shù)可行性分析根據(jù)客戶提出的系統(tǒng)功能、性能及實(shí)現(xiàn)系統(tǒng)的各項(xiàng)約束條件，根據(jù)新系統(tǒng)目標(biāo)來衡量所需的技術(shù)是否具備，本系統(tǒng)是一個(gè)數(shù)據(jù)庫管理和查詢的系統(tǒng)，現(xiàn)有的技術(shù)已較為成熟，硬件、軟件的性能需求、環(huán)境條件等各項(xiàng)條件良好，估計(jì)利用現(xiàn)有技術(shù)條件應(yīng)完全可以達(dá)到該系統(tǒng)的功能目標(biāo)。同時(shí)，考慮給予的開發(fā)期限也較為充裕，預(yù)計(jì)系統(tǒng)是可以在規(guī)定期限內(nèi)完成開發(fā)。2、經(jīng)濟(jì)可行性分析估算新系統(tǒng)的成本效益分析，其中包括估計(jì)項(xiàng)目開發(fā)的成本

4、，開發(fā)費(fèi)用和今后的運(yùn)行、維護(hù)費(fèi)用，估計(jì)新系統(tǒng)將獲得的效益，估算開發(fā)成本是否會(huì)高于項(xiàng)目預(yù)期的全部經(jīng)費(fèi)。并且，分析系統(tǒng)開發(fā)是否會(huì)對其他產(chǎn)品或利潤帶來一定影響。（1）支出： 硬件設(shè)備：PC機(jī)軟件設(shè)備：WINDOWSXP、Microsoft、vb6.0(Access)軟件設(shè)計(jì)和開發(fā)費(fèi)用經(jīng)常性支出：軟件維護(hù)費(fèi)用、軟件使用費(fèi)用。（2）效益：系統(tǒng)的效益可以從經(jīng)濟(jì)效益和社會(huì)效益兩方面考慮。對于圖書管理系統(tǒng)則應(yīng)著重分析其社會(huì)效益。如：系統(tǒng)投入運(yùn)行后可以使圖書館圖書管理實(shí)現(xiàn)科學(xué)化、規(guī)范化，增強(qiáng)了工作人員對管理工作者的管理能力、提高了工作效率。三、用戶需求分析1、任務(wù)概述圖書管理的業(yè)務(wù)流程抽象描述如下：（1）新的圖

5、書購進(jìn)后，分門別類地進(jìn)行歸并并匯總，加以編號。（2）新書編號后，上到書架以備學(xué)生借閱。（3）如某學(xué)生需要借閱圖書，則在其本人的借閱登記表上進(jìn)行登記，記錄相關(guān)借閱信息與借閱日期。（4）學(xué)生借閱圖書后，應(yīng)及時(shí)歸還圖書，并在本人的借閱登記表上注明還書日期和時(shí)間。2、組織結(jié)構(gòu)圖采編部 藏書部館長室讀者服務(wù)部閱覽室借書處 3、業(yè)務(wù)流程圖針對業(yè)務(wù)流程，現(xiàn)具體描述其主要功能如下：1.用戶登錄：系統(tǒng)對用戶合法性進(jìn)行檢查。2.圖書入庫：對新購進(jìn)的圖書分類進(jìn)行編號，并把圖書基本信息錄入計(jì)算機(jī)。3.圖書借閱：對已入庫的圖書，學(xué)生可以借閱，并進(jìn)行登記。4.圖書歸還：對學(xué)生已歸還的圖書進(jìn)行歸還登記。 5.信息查詢：即對

6、所有圖書的借閱情況，或?qū)W生的基本情況和借閱情況進(jìn)行查詢。6.管理措施：定義系統(tǒng)規(guī)定的借閱圖書超期時(shí)間、超期處罰辦法和丟失賠償辦法。讀者查詢書籍書籍信息借書申請單管理員審核借書申請借閱單書庫書籍退回申請單讀者信息審核還書申請還書申請單編制罰單還書單編制賠償單賠償單罰單合格不合格過期未過期書籍借閱信息檢查書籍書籍信息損壞丟失未損壞丟失4、數(shù)據(jù)流圖入庫單（1）頂層圖P圖書借閱管理系統(tǒng)圖書管理員借書申請單還書申請單退回申請罰單賠償單還書單借閱單賠償單讀者（2）一層數(shù)據(jù)流程圖讀者P1借書管理書庫借書申請單D2讀者信息信息P2還書管理P3賠償管理D3書籍借閱信息還書申請單D7賠償單D5還書單D6罰單D4借

7、閱單D1書籍信息信息（3）二層數(shù)據(jù)流程圖借書管理二層數(shù)據(jù)流程圖P1.1查詢書籍D1書籍信息P1.2審核借書申請借書申請單D2讀者信息書庫D4借閱單讀者還書管理二層數(shù)據(jù)流程圖還書申請單P2.2編制罰單過期D3書籍借閱信息信息書庫D5還書單D6罰單未過期讀者P2.1審核還書申請賠償管理二層數(shù)據(jù)流程圖讀者P3.1丟失損壞書籍P3.2編制賠償單書庫D7賠償單5、數(shù)據(jù)字典（主要數(shù)據(jù)字典）圖書：圖書表結(jié)構(gòu)別名：描述：記錄所有圖書的基本信息定義：圖書信息表=圖書編號+圖書名稱+圖書ISBN號+圖書作者+圖書出版社+圖書類型+圖書價(jià)格+圖書庫存量+圖冊數(shù)量+圖書總數(shù)位置：Librarydat.mdf數(shù)據(jù)庫名稱

8、：管理員別名：描述：記錄管理員信息定義：管理員信息=管理員ID+管理員姓名+加入時(shí)間+級別+性別位置：Librarydat.mdf數(shù)據(jù)庫借書登記：借書登記表結(jié)構(gòu)別名：描述：記錄所有圖冊的借閱信息定義：借閱登記表=借書編號+讀者編號+圖冊編號+借書時(shí)間+歸還時(shí)間+是否歸還位置：Librarydat.mdf數(shù)據(jù)庫用戶密碼：密碼表結(jié)構(gòu)別名：描述：記錄所有用戶的密碼定義：密碼表信息=用戶ID+密碼位置：Librarydat.mdf數(shù)據(jù)庫讀者信息：讀者信息表結(jié)構(gòu)別名：描述：記錄所有讀者的基本信息定義：讀者信息表=讀者ID+讀者姓名+性別+所在學(xué)院系部專業(yè)+職務(wù) 位置：Librarydat.mdf數(shù)據(jù)庫圖

9、冊：圖冊表結(jié)構(gòu)別名：描述：記錄具有相同基本信息的圖書的圖冊信息定義：圖冊信息=圖書編號+圖冊編號+ 借出時(shí)間+歸還時(shí)間+借還狀態(tài)位置：Librarydat.mdf數(shù)據(jù)庫6、功能需求經(jīng)過以上分析，在現(xiàn)行業(yè)務(wù)流程和數(shù)據(jù)分析的基礎(chǔ)上，基本可以確定系統(tǒng)設(shè)計(jì)必須達(dá)到的目標(biāo)。 以下是圖書管理系統(tǒng)必須具備的功能：1.新進(jìn)圖書的登記功能：對于購進(jìn)的新書，系統(tǒng)必須具備圖書信息資料的錄入功能。2.圖書的查詢修改功能：當(dāng)圖書資料發(fā)生變化，如圖書丟失或有錯(cuò)誤信息輸入時(shí)，則應(yīng)能夠及時(shí)對數(shù)據(jù)進(jìn)行修改和補(bǔ)充。3.借閱的登記，歸還的登記功能：系統(tǒng)的主要功能之一，供本校學(xué)生借閱圖書、歸還圖書，并進(jìn)行登記。4.讀者信息的增加、刪

10、除和修改功能：系統(tǒng)主要功能之一，建立學(xué)生信息，并對其進(jìn)行維護(hù)。5、圖書的、圖冊查詢：查詢圖書的信息，方便借閱。6、圖書續(xù)借：讀者進(jìn)行操作，續(xù)借圖書。7、統(tǒng)計(jì)報(bào)表：系統(tǒng)管理員對這個(gè)圖書館的圖書、讀者信息進(jìn)行統(tǒng)計(jì)。主要用例圖:借書登記還書登記圖冊查詢用戶管理密碼設(shè)置圖書查詢讀 者圖書續(xù)借圖冊查詢圖書查詢密碼設(shè)置圖書管理員系統(tǒng)設(shè)置用戶管理報(bào)表統(tǒng)計(jì)密碼設(shè)置系統(tǒng)管理員四、系統(tǒng)概要設(shè)計(jì)1、系統(tǒng)功能模塊圖依據(jù)需求分析階段得到的數(shù)據(jù)流圖，采用軟件工程中軟件設(shè)計(jì)的概念和原理，與用戶成分協(xié)商后，在保證系統(tǒng)基本功能要求的前提下，結(jié)合系統(tǒng)的業(yè)務(wù)流程確定系統(tǒng)必須具備的所有功能，由此給出圖書管理系統(tǒng)的系統(tǒng)功能模塊圖如下圖

11、所示。添加用戶用戶管理系統(tǒng)管理密碼設(shè)置刪除用戶用戶查詢系統(tǒng)設(shè)置圖書管理系統(tǒng)圖書管理借還管理圖書查詢圖書基本信息管理圖冊管理圖書借閱圖書歸還圖書續(xù)借圖冊查詢統(tǒng)計(jì)報(bào)表借出統(tǒng)計(jì)報(bào)廢統(tǒng)計(jì)庫存統(tǒng)計(jì)用戶信息修改報(bào)損統(tǒng)計(jì)財(cái)務(wù)統(tǒng)計(jì)2、系統(tǒng)流程圖依據(jù)軟件工程的基本原理，綜合以上分析給出系統(tǒng)流程圖如下圖所示。圖書管理系統(tǒng)主文件合法用戶登錄登錄驗(yàn)證圖書管理程序用戶登錄管理員界面讀者界面圖書管理統(tǒng)計(jì)報(bào)表密碼設(shè)置讀入讀者信息管理信息設(shè)定頂設(shè)定圖書續(xù)借圖書查詢圖書查詢新書入庫押金、逾期時(shí)限、丟失罰款設(shè)定歸還圖書借閱圖書圖冊查詢圖書報(bào)廢密碼表圖冊查詢圖書損壞或丟失歸還圖書逾期相應(yīng)處理措施圖書表圖冊表退出五、數(shù)據(jù)庫設(shè)計(jì)1、

12、數(shù)據(jù)庫概念設(shè)計(jì)在需求分析階段已完成該系統(tǒng)所有的數(shù)據(jù)分析。根據(jù)該階段所建立的概念模型，已經(jīng)得出滿足系統(tǒng)設(shè)計(jì)要求的幾個(gè)關(guān)系描述，該階段的主要工作就是把前一階段的成果轉(zhuǎn)化為具體的數(shù)據(jù)庫。下面給出概念結(jié)構(gòu)設(shè)計(jì)得E-R圖如圖所示。讀者借還狀態(tài)歸還時(shí)間借出時(shí)間圖冊編號圖書編號圖書名稱圖書編號圖書出版社圖書總數(shù)圖書ISBN號圖書價(jià)格圖書作者圖書庫存量圖冊數(shù)量圖書類型所在系部專業(yè)職務(wù)讀者ID姓名性別圖冊圖書管理員性別管理員ID姓名加入時(shí)間級別（1）實(shí)體屬性圖管理員借閱管理管理NNMMN讀者圖書圖冊MMNNN1含有歸還（2）總E-R圖關(guān)系模型：(標(biāo)有下劃線的為主鍵)讀者（讀者ID，姓名，性別，所在專業(yè)，職務(wù)）管

13、理員（管理員ID，姓名，性別，加入時(shí)間，級別）圖書（圖書編號，圖書名稱，圖書ISBN號，圖書作者，圖書出版社，圖書庫存量，圖冊數(shù)量，圖書類型，圖書價(jià)格，圖書總數(shù)）圖冊（圖冊編號，圖書編號，借出時(shí)間，歸還時(shí)間，借還狀態(tài)）2、 數(shù)據(jù)庫物理設(shè)計(jì)依據(jù)數(shù)據(jù)庫的原理，并結(jié)合以上E-R圖，經(jīng)過轉(zhuǎn)化，即可進(jìn)行數(shù)據(jù)庫的物理設(shè)計(jì)?；谝陨蠑?shù)據(jù)庫的概念設(shè)計(jì)，考慮程序設(shè)計(jì)的簡易性，同時(shí)考慮題目的時(shí)間，該系統(tǒng)的數(shù)據(jù)庫采用ACCESS。本系統(tǒng)決定采用一個(gè)數(shù)據(jù)庫，在其下創(chuàng)建以下數(shù)據(jù)表，其結(jié)構(gòu)分別如下：1、圖書信息表（tBooks），其字段列表如表4-1。表4-1 圖書信息表序號字段名稱字段說明類型位數(shù)屬性備注1cBooks

14、ID圖書編號文本7必須非空2cBooksName圖書名稱文本20必須非空3cBooksISBN圖書ISBN號文本15可為空4cBooksAuthor圖書作者文本10可為空5cBooksPublisher圖書出版社文本20可為空6cBooksType圖書類型文本16可為空7smBooksPrice圖書價(jià)格貨幣可為空8iBooksStoreQuan圖書庫存量整數(shù)可為空9iBooksLeftQuant圖冊數(shù)量整數(shù)可為空10iBooksTotalQuan圖書總數(shù)整數(shù)可為空2、圖冊信息表（tBook），其字段列表如表4-2。表4-2 圖冊信息表序號字段名稱字段說明類型位數(shù)屬性備注1cBookID圖冊編號

15、文本7必須非空2cBooksID圖書編號文本7必須非空3cBOutTime借出時(shí)間時(shí)間日期可為空4cBReturnTime歸還時(shí)間時(shí)間日期可為空5cBOR借還狀態(tài)文本4必須非空3、讀者信息表（tVip），其字段列表如表4-3。表4-3 讀者信息表序號字段名稱字段說明類型位數(shù)屬性備注1cVipID讀者編號文本6必須非空2cVipName讀者姓名文本10必須非空4cVipSex讀者性別文本2可為空5vipMajor所在專業(yè)文本20必須非空6vipPost職務(wù)文本20必須非空4、管理員信息表（tOperators），其字段列表如表4-4。表4-4 管理員信息表序號字段名稱字段說明類型位數(shù)屬性備注1c

16、OperatorID管理員編號文本5必須非空2cOperatorName管理員姓名文本10必須非空3cOperatorAddTime加入時(shí)間時(shí)間日期必須非空4cOperatorRank級別文本10必須非空5cOperatorSex性別文本2必須非空5、圖書借還登記表（tBorrow），其字段列表如表4-5所示。表4-5 圖書借還登記表序號字段名稱字段說明類型位數(shù)屬性備注1cBorrowID借書編號文本6必須非空2cVipID讀者編號文本6必須非空3cBookID圖冊編號文本7必須非空4cBorrwTime借書時(shí)間時(shí)間日期可為空5cReturnTime還書時(shí)間時(shí)間日期可為空6cReturn是否歸

17、還文本8可為空7cNoReturn歸還異常文本8可為空6、密碼表（tPassword），其字段列表如表4-6所示。表4-7 密碼表序號字段名稱字段說明類型位數(shù)屬性備注1cUsername用戶ID文本6必須非空2cPassword密碼文本10可為空六、系統(tǒng)詳細(xì)設(shè)計(jì)與實(shí)現(xiàn) 系統(tǒng)詳細(xì)設(shè)計(jì)1、 程序流程圖依據(jù)軟件工程的基本原理，詳細(xì)設(shè)計(jì)階段的根本任務(wù)是確定應(yīng)該怎樣具體實(shí)現(xiàn)所要求的系統(tǒng)，也就是說，經(jīng)過這個(gè)階段的設(shè)計(jì)工作，應(yīng)該得出對目標(biāo)系統(tǒng)的精確描述，從而在系統(tǒng)實(shí)現(xiàn)階段可以把這個(gè)描述直接翻譯成用某種程序設(shè)計(jì)語言書寫的程序。具體來說就是把經(jīng)過總體設(shè)計(jì)得到的各個(gè)模塊詳細(xì)的加以描述。由于本系統(tǒng)采用支持面向?qū)ο蟮?/p>

18、Visual Basic 6.0作為開發(fā)工具，而Visual Basic 6.0采用事件驅(qū)動(dòng)的編程機(jī)制，所以在此給出軟件系統(tǒng)的主程序流程圖，如圖所示。開始是否合法用戶登錄NOYES顯示介面用戶注銷借閱管理統(tǒng)計(jì)報(bào)表管理措施設(shè)置圖書管理圖書查詢學(xué)生管理密碼設(shè)置圖冊查詢選擇操作結(jié)束根據(jù)以上主程序的流程圖，我們可以得出下面的關(guān)于各個(gè)模塊的程序流程圖，如圖所示。 用戶注銷開始用戶登錄NOi 0 Then If MsgBox(txtBookId & & txtName & 共計(jì)欠費(fèi) _ & rst1.Fields(罰款) & 元 是否從數(shù)據(jù)庫中刪除？, 4 + 48, 欠費(fèi)) _ = vbYes Then

19、 從數(shù)據(jù)庫中刪除欠費(fèi)記錄 rst1.Edit rst1.Fields(罰款) = 0 rst1.Update txtFa.Text = rst1.Fields(罰款) & Empty End IfElse 把罰款復(fù)制為0 rst1.Edit rst1.Fields(罰款) = 0 rst1.UpdateEnd IfEnd IfEnd SubPrivate Sub dc_Click()DataReport2.ShowDataReport2.WindowState = 2End SubPrivate Sub dzbb_Click()DataReport3.ShowDataReport3.Windo

20、wState = 2End SubPrivate Sub EditIdMnu_Click()Sb.Panels(1).Text = 編輯借書證 EditBookId.Show (1) Sb.Panels(1).Text = 編輯借書證End SubPrivate Sub EditMnu_Click() Sb.Panels(1).Text = 編輯圖書 EditBook.Show (1) Sb.Panels(1).Text = 編輯圖書End SubPrivate Sub ExitMnu_Click()Unload MeEndEnd SubPrivate Sub FenMnu_Click()Se

21、tType.Show (1)End SubPrivate Sub Form_Load()Set db1 = Workspaces(0).OpenDatabase(App.Path & DataBaseData.mdb, False)Set rst1 = db1.OpenRecordset(Personal, dbOpenTable)rst1.Index = 借書證號Set db2 = Workspaces(0).OpenDatabase(App.Path & DataBaseData.mdb, False)Set rst2 = db2.OpenRecordset(BookFf, dbOpenT

22、able)Set qry2 = db2.CreateQueryDef()rst2.Index = 圖書編號Set db3 = Workspaces(0).OpenDatabase(App.Path & DataBaseData.mdb, False)Set rst3 = db3.OpenRecordset(Book, dbOpenTable)rst3.Index = 圖書編號Open App.Path & DataBaseData.mdb For Random As #1 Len = Len(SetFlag)Get #1, 1, SetFlagBookNum = SetFlag.BookNum

23、FaCost = SetFlag.BookCostLV2.View = lvwReportLV2.ColumnHeaders.Add , , 借書證號LV2.ColumnHeaders.Add , , 借書人姓名LV2.ColumnHeaders.Add , , 圖書編號LV2.ColumnHeaders.Add , , 書名LV2.ColumnHeaders.Add , , 價(jià)格LV2.ColumnHeaders.Add , , 類別LV2.ColumnHeaders.Add , , 出版社LV2.ColumnHeaders.Add , , 借出日期SFlag = 程序設(shè)計(jì): 張麗穎txtB

24、ookId.Text = txtName.Text = txtClass.Text = txtDepart.Text = txtBookHao.Text = txtBookName = txtZhiCheng = txtFa.Text = txtCost = txtChuBan = txtLentDate = End SubPrivate Sub Form_Unload(Cancel As Integer)rst1.Closerst2.Closerst3.Closedb1.Closedb2.Closedb3.CloseClose #1End SubPrivate Sub LoginMnu_Cl

25、ick() CmdLogin_ClickEnd SubPrivate Sub SearchMnu_Click() Findfrm.ShowEnd SubPrivate Sub SetMnu_Click()setfrm.ShowEnd SubPrivate Sub Timer2_Timer()Dim k As StringDim i As StringDim j As StringDim c As StringStatic kk = k + 1i = Int(Rnd() * 255)j = Int(Rnd() * 255)c = Int(Rnd() * 255)Label7.ForeColor

26、= RGB(i, j, c)If k 23 Then k = 4 Else Label7.FontSize = k End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 3 Sb.Panels(1).Text = 編輯借書證 EditBookId.Show (1) Sb.Panels(1).Text = 編輯借書證 Case 5 SetPer.Show (1) Case 7 SetType.Show Case 9 setfrm.

27、Show Case 13 EndEnd SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal buttonmenu As MSComctlLib.buttonmenu)Select Case buttonmenu.Key Case 添加 Sb.Panels(1).Text = 添加新書 AddNewBook.Show (1) Sb.Panels(1).Text = SFlag Case 編輯 Sb.Panels(1).Text = 編輯圖書 EditBook.Show (1) Sb.Panels(1).Text = 編輯圖書 Case

28、新借 MsgBox Add BookCard Case 編借 MsgBox Edit BookCardEnd SelectEnd SubPrivate Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 CmdLogin_Click Case 3 cmdKong_Click Case 7 cmdBackBook_Click Case 5 Findfrm.ShowEnd SelectEnd SubPrivate Sub tsbb_Click()DataReport1

29、.ShowDataReport1.WindowState = 2End SubPrivate Sub txtBookBian_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then If txtBookId.Text = Then MsgBox 請先登錄！, 0 + 48, 提示 CmdLogin.SetFocus txtBookBian.Text = Exit Sub End If rst3.Seek =, txtBookBian.Text If rst3.NoMatch Then MsgBox 沒有此圖書編號，請重新填寫, 0 + 48, 填寫

30、錯(cuò)誤 txtBookBian.SetFocus Frame4.Visible = False Frame7.Visible = True Exit Sub End If Frame4.Visible = True Frame7.Visible = False txtBookHao.Text = txtBookBian.Text txtBookName.Text = rst3.Fields(書名) & vbNullString txtChuBan.Text = rst3.Fields(出版社) & vbNullString txtCost.Text = rst3.Fields(價(jià)格) & Emp

31、ty txtLentDate = rst3.Fields(借出日期) & vbNullString txtType.Text = rst3.Fields(類別) & vbNullStringEnd IfEnd SubPrivate Sub DataRef()Dim i As IntegerDim SeaStr As StringSeaStr = select * from Bookff where 借書證號=SeaStr = SeaStr & & BookId & qry2.SQL = SeaStrSet rst = qry2.OpenRecordset()If rst.RecordCount

32、 = 0 Then Label1.Caption = 可以借 & BookNum & 本書 Exit SubEnd Ifrst.MoveLastRecNumBookFf = rst.RecordCountrst.MoveFirstLV2.ListItems.ClearFor i = 1 To RecNumBookFf LV2.ListItems.Add i, , rst.Fields(借書證號) & vbNullString With LV2.ListItems(i) .SubItems(1) = rst.Fields(姓名) & vbNullString .SubItems(2) = rst

33、.Fields(圖書編號) & vbNullString .SubItems(3) = rst.Fields(書名) & vbNullString .SubItems(4) = rst.Fields(價(jià)格) & Empty .SubItems(5) = rst.Fields(類別) & vbNullString .SubItems(6) = rst.Fields(出版社) & vbNullString .SubItems(7) = rst.Fields(借出日期) & vbNullString End With rst.MoveNext If rst.EOF Then Exit ForNext iIf RecNumBookFf = BookNum Then MsgBox 已經(jīng)借了 & BookNum & 本書,不能再借了,請登錄其它借書證號, 0 + 48, 提示 txtBookId.Text = txtName.Text = txtClass.Tex