圖書管理信息系統(tǒng)課程設(shè)計(jì)

1、1 / 51管理信息系管理信息系統(tǒng)統(tǒng)課課程程設(shè)設(shè)計(jì)計(jì) 報(bào)報(bào)告告 題目: 圖 書 管 理 信 息 系 統(tǒng) 院 系： 經(jīng) 濟(jì) 管 理 學(xué) 院 專業(yè)班級： 電 子 商 務(wù) 2008-1 學(xué)生姓名： 王洪云、袁堂興、王江、楊亞民 指導(dǎo)教師： 周 長 紅 2011 年 1 月 14 日2 / 51指導(dǎo)教師評語 指導(dǎo)教師： 年 月 日成績評定學(xué) 號姓 名任務(wù)分工成績22王洪云系統(tǒng)規(guī)劃和系統(tǒng)分析23王江系統(tǒng)設(shè)計(jì)30袁堂興系統(tǒng)實(shí)施0801060527楊亞民收集資料0 / 51目目 錄錄1.1.系統(tǒng)規(guī)劃系統(tǒng)規(guī)劃 .1 11.1 問題的提出 .11.2 研究路線 .11.3 戰(zhàn)略規(guī)劃說明書 .22.2.系統(tǒng)分析系

2、統(tǒng)分析 .5 52.1 可行性分析報(bào)告 .52.2 管理業(yè)務(wù)調(diào)查.62.3 數(shù)據(jù)流程分析 .72.4 數(shù)據(jù)字典 .93.3.系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì) .12123.1 功能結(jié)構(gòu)圖設(shè)計(jì) .123.2 信息系統(tǒng)流程圖設(shè)計(jì) .133.3 輸入設(shè)計(jì) .133.4 輸出設(shè)計(jì) .153.5 數(shù)據(jù)存儲設(shè)計(jì) .173.6 處理流程圖設(shè)計(jì) .194.4.系統(tǒng)實(shí)施系統(tǒng)實(shí)施 .21214.1 系統(tǒng)功能界面和主要代碼 .214.2 系統(tǒng)的數(shù)據(jù)查詢和修改 .274.3 系統(tǒng)的測試 .345.5.總結(jié)總結(jié) .4343參考文獻(xiàn)參考文獻(xiàn) .45451 / 511.系統(tǒng)規(guī)劃系統(tǒng)規(guī)劃1.1 問題的提出問題的提出圖書館作為信息資源的集散地

3、,圖書和用戶借閱資料繁多,包含很多信息數(shù)據(jù)的管理,現(xiàn)今,有很多的圖書館都是初步開發(fā)使用,甚至尚未使用計(jì)算機(jī)進(jìn)行信息管理，根據(jù)調(diào)查得知，他們以前對信息的管理都基于文本，表格等紙介質(zhì)的手工處理，對圖書借閱情況（如借閱天數(shù)，超過借閱的天數(shù)）的統(tǒng)計(jì)和審核都通過借書卡的方式人工查詢。對借閱的權(quán)限，借閱天數(shù)用人工計(jì)算，手工抄寫。數(shù)據(jù)處理工作量大，容易出錯(cuò)。由于數(shù)據(jù)量大容易丟失，且不容易查找?？偟膩碚f，缺乏系統(tǒng)規(guī)范的管理手段。盡管有的圖書館有計(jì)算機(jī)，但是尚未由于信息管理，沒有發(fā)揮它的效力，資源閑置比較突出，這就是信息管理系統(tǒng)開發(fā)的基本環(huán)境?；谶@個(gè)問題，我們認(rèn)為有必要建立一個(gè)圖書管理系統(tǒng)，使圖書管理工作規(guī)范

4、化。1.2 研究路線研究路線 2 / 51 用戶對新系統(tǒng)提出的需求(各種問題)開發(fā)一個(gè)原型系統(tǒng)開發(fā)人員對問題進(jìn)行總結(jié)完成系統(tǒng)開發(fā)并交付使用修改運(yùn)行原型系統(tǒng)增加功能有修改意見否?增加新功能否?YYNN1.3 戰(zhàn)略規(guī)劃說明書戰(zhàn)略規(guī)劃說明書新系統(tǒng)的名稱：新系統(tǒng)的名稱：圖書音像信息管理系統(tǒng)新系統(tǒng)的目標(biāo)：新系統(tǒng)的目標(biāo)：針對各中等院校的圖書管理現(xiàn)狀設(shè)計(jì)出符合一般學(xué)校3 / 51的計(jì)算機(jī)輔助圖書管理信息系統(tǒng).實(shí)現(xiàn)對圖書基本信息、讀者基本信息進(jìn)行計(jì)算機(jī)輔助管理,完成借書和還書有關(guān)信息的記錄、修改、查詢、刪除等一系列任務(wù)的計(jì)算機(jī)管理和實(shí)現(xiàn).我們總體設(shè)計(jì)的目標(biāo)就是實(shí)現(xiàn)圖書管理的系統(tǒng)化、規(guī)范化和自動化，具體有：（1

5、）系統(tǒng)維護(hù)方便可靠、有較高的安全性，滿足實(shí)用性、先進(jìn)性的要求。（2）商品管理信息化，提高服務(wù)質(zhì)量、提高工作效率、降低管理成本。（3）系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲安全。新系統(tǒng)總體結(jié)構(gòu)：新系統(tǒng)總體結(jié)構(gòu)：系統(tǒng)能完成的任務(wù)主要服務(wù)于企業(yè)發(fā)展流程中的三大子系 該系統(tǒng)界面友好,操作簡單,能完成添加圖書信息,修改圖書信息,查詢圖書信息,添加讀者類別,修改讀者類別,查詢讀者信息,修改讀者信息等一系列圖書管理功能,開發(fā)本系統(tǒng)的任務(wù)是實(shí)現(xiàn)圖書管理的系統(tǒng)化和自動化,幫助管理人員更好更高效的完成圖書管理工作.本著實(shí)用性和介紹性原則整個(gè)系統(tǒng)有三大模塊,每個(gè)大模塊又包含幾個(gè)小模塊:第一板塊、讀者

6、管理部分:包括讀者信息管理,其功能是實(shí)現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和修改等操作。第二板塊、圖書管理部分:包括圖書信息管理和類別管理, 其功能是實(shí)現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和修改、查詢等操作。第三板塊、圖書借閱管理部分:包括借書管理和還書管理, 其功能是實(shí)現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和修改、查詢等操作。開發(fā)方法：開發(fā)方法：結(jié)構(gòu)化系統(tǒng)開發(fā)方法，它是目前應(yīng)用得最普遍的一種開發(fā)方法。4 / 51系統(tǒng)分析：對要開發(fā)的新系統(tǒng)的可行性進(jìn)行論證和詳細(xì)的系統(tǒng)調(diào)查，進(jìn)行。 系統(tǒng)化分析、建立信息系統(tǒng)的邏輯模型系統(tǒng)設(shè)計(jì)：在邏輯模型的基礎(chǔ)上設(shè)計(jì)系統(tǒng)的物理模型，包括：代碼設(shè)計(jì)、信息系統(tǒng)流程圖設(shè)計(jì)、數(shù)據(jù)庫設(shè)計(jì)、處理流程圖設(shè)計(jì)和編寫程

7、序設(shè)計(jì)說明書。系統(tǒng)實(shí)施：程序設(shè)計(jì)及調(diào)試、系統(tǒng)轉(zhuǎn)換及系統(tǒng)運(yùn)行與評估、編寫使用說明書。我們選擇這個(gè)開發(fā)方法的原因：我們選擇這個(gè)開發(fā)方法的原因：結(jié)構(gòu)化系統(tǒng)開發(fā)方法是在生命周期基礎(chǔ)上發(fā)展起來的。與生命周期法相比，結(jié)構(gòu)化系統(tǒng)開發(fā)方法更強(qiáng)調(diào)開發(fā)人員與用戶的緊密結(jié)合，而且在開發(fā)策略上強(qiáng)調(diào)“從上到下” ，注重開發(fā)過程的整體性和全局性，適合大型信息系統(tǒng)的開發(fā)。允許組織根據(jù)自身精確的需求定制一個(gè)系統(tǒng)采用多個(gè)階段逐一進(jìn)行的結(jié)構(gòu)化方式建立工廠專業(yè)人員與知識工作者之間的任務(wù)分離下面是我們根據(jù)規(guī)劃，課程設(shè)計(jì)的完成的進(jìn)度表： 周一：我們首先確立了課程題目，進(jìn)行了大體方向研究，然后具體分工，并提出工作計(jì)劃周二：我們一起深入討

8、論了系統(tǒng)的有關(guān)東西；比如職能，業(yè)務(wù)過程，數(shù)據(jù)類，總體結(jié)構(gòu)等等， 周三：查閱資料的人搜查有關(guān)資料，代碼設(shè)計(jì)者開始準(zhǔn)備有關(guān)數(shù)據(jù)庫和程序語言的東西周五周二：文檔編寫者編寫文檔周三：最后檢查文檔和程序，再由排版者進(jìn)行最后的排版5 / 512.系統(tǒng)分析系統(tǒng)分析2.1 可行性分析報(bào)告可行性分析報(bào)告（1）系統(tǒng)簡述：VB 和 ACCESS 開發(fā)，即使遇到困難，也能從豐富的參考書中找到解決方案。（2）管理上的可行性分析：在該單位中，從主管領(lǐng)導(dǎo)、管理人員到具體的業(yè)務(wù)人員在建立一個(gè)計(jì)算機(jī)產(chǎn)品庫存管理新系統(tǒng)的必要性的認(rèn)識是一致的。（3）技術(shù)上的可行性分析：技術(shù)方面，我們選擇的是 VB 和 ACCESS,都是組員熟悉的

9、語言，即使遇到部分困難，也可以從豐富的參考書中找到解決方案。所以技術(shù)方面是絕對可行的。（4）經(jīng)濟(jì)上的可行性分析：開發(fā)需求較低,加上成熟的軟硬件環(huán)境、目標(biāo)系統(tǒng)并不是十分復(fù)雜和開發(fā)周期較短,人員經(jīng)濟(jì)支出有限。開發(fā)完成運(yùn)行后，為使用者帶來便利，為新系統(tǒng)的進(jìn)一步推廣創(chuàng)造了條件，經(jīng)濟(jì)收益將遠(yuǎn)超過投資。從經(jīng)濟(jì)角度考慮,此系統(tǒng)開發(fā)可行。（5）法律上的可行性分析：由于整個(gè)系統(tǒng)是自行開發(fā),自行使用，所以系統(tǒng)本身不存在版權(quán)爭議，符合國家各種政策法規(guī)。服務(wù)器軟件方面，它的操作系統(tǒng)可能會被微軟跟蹤,如果不是正版軟件,將會面臨民事訴訟的風(fēng)險(xiǎn)。 （6）結(jié)論：由于該單位有良好的管理基礎(chǔ)，單位的經(jīng)濟(jì)效益良好，對建立新系統(tǒng)所需

10、的費(fèi)用由能力支持，因而建立新系統(tǒng)在管理上，技術(shù)上合經(jīng)濟(jì)上都是可行的，所以我們可以立即開發(fā)系統(tǒng)。6 / 512.2 管理業(yè)務(wù)調(diào)查管理業(yè)務(wù)調(diào)查 1. 管理功能調(diào)查圖書管理系統(tǒng)圖書管理讀者管理借閱管理圖書登記圖書查詢讀者登記讀者查詢借閱歸還2 組織結(jié)構(gòu)調(diào)查圖書借閱室館 長財(cái)務(wù)室采編室采購統(tǒng)計(jì)組會計(jì)組成本組圖書編目組采購組借閱組辦 公 室采購計(jì)劃組倉庫7 / 512.3 數(shù)據(jù)流程分析數(shù)據(jù)流程分析數(shù)據(jù)流程調(diào)查：通過調(diào)查可以繪制出數(shù)據(jù)流程圖。數(shù)據(jù)流程圖是一種能全面地描述信息系統(tǒng)邏輯模型的主要工具，它可以用少數(shù)幾種符合綜合的反映出信息在系統(tǒng)中的流動、處理和存儲情況。0 層數(shù)據(jù)流程圖：讀者管理員圖書P0圖書管

11、理系統(tǒng)第一層數(shù)據(jù)流程圖：8 / 51P1.1注冊為系統(tǒng)成員P1.2登錄處理P1.3入庫處理讀者數(shù)據(jù)庫讀者和圖書信息管理文件圖書明細(xì)D1 根據(jù)系統(tǒng)讀者名單D2 系統(tǒng)數(shù)據(jù)庫D3 系統(tǒng)管理員名單D4 管理系統(tǒng)的權(quán)限D(zhuǎn)5 圖書入庫單D6 登記圖書信息F1.1F1.2F1.3第二層數(shù)據(jù)流程圖： S1 讀者S3 圖書P2.1讀者注冊系統(tǒng)P2.2系統(tǒng)處理讀者數(shù)據(jù)庫系統(tǒng)文件P2.3圖書入庫處理圖書種類圖書數(shù)據(jù)庫系統(tǒng)數(shù)據(jù)庫讀者資料圖書信息注冊明細(xì)系統(tǒng)的各方面請求F2.3F2.1F2.2D2D3D1D4D6D7S3 圖書S1 讀者S2 系統(tǒng)管理員S2 管理員9 / 512.4 數(shù)據(jù)字典數(shù)據(jù)字典數(shù)據(jù)字典的內(nèi)容包括對

12、數(shù)據(jù)流程圖中的數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、處理邏輯、數(shù)據(jù)存儲和外部實(shí)體等六個(gè)方面進(jìn)行具體的定義。數(shù)據(jù)流程圖配以數(shù)據(jù)字典，就可以從圖形和文字兩個(gè)方面對系統(tǒng)的邏輯模型進(jìn)行完整的描述 下面是我們的數(shù)據(jù)字典（以圖書采編過程為例）：數(shù)據(jù)項(xiàng)的定義：數(shù)據(jù)項(xiàng)編號數(shù)據(jù)項(xiàng)名稱別名簡稱類型及寬度取值范圍I1書號書碼書代碼字符型，11 位“”“99999999999”數(shù)據(jù)結(jié)構(gòu)的定義：數(shù)據(jù)結(jié)構(gòu)編號名稱簡述組成DS0203借書證圖書借閱圖書信息+借閱人信息+數(shù)據(jù)流的定義編號名稱簡述來源去向組成數(shù)據(jù)流量高峰流量D0203圖書借閱單圖書借閱單用戶填寫圖書借閱單，輸入計(jì)算機(jī)。P2_11 檢查讀者身份借閱日期書名讀者賬號讀者姓名借

13、閱數(shù)量）100 部 / 日500 部 / 日10 / 51處理邏輯的定義：編號名稱簡述輸入的數(shù)據(jù)流處理輸出的數(shù)據(jù)流處理頻率P0203計(jì)算借書數(shù)量計(jì)算所借閱的所有圖書數(shù)量數(shù)據(jù)流書的代碼，來源于商品庫存表；數(shù)據(jù)流數(shù)量和圖書類別，來源于處理邏輯“個(gè)人資料”和數(shù)據(jù)存儲“圖書入庫”根據(jù)數(shù)據(jù)流“借閱單”和“顧客信息” ，檢索學(xué)生文件，確定該學(xué)生的類別；在根據(jù)已經(jīng)確定的該學(xué)生類別，檢索庫存表，以確定該顧客的收費(fèi)標(biāo)準(zhǔn).數(shù)據(jù)流“借書單”一是去學(xué)生，二是寫入數(shù)據(jù)存儲“借閱庫”對每個(gè)學(xué)生的每一次借閱處理一次11 / 51數(shù)據(jù)儲存的定義編號名稱簡述組成關(guān)鍵字相關(guān)聯(lián)的處理F0203圖書入庫借閱圖書的名稱和編號圖書編號+

14、圖書類別+圖書名稱+單價(jià)+數(shù)量+備注商品編號名稱類別P02，P03外部實(shí)體的定義編號名稱簡述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)流S0203借書人借閱該館圖書的人員D0206D02082.5 主要數(shù)據(jù)處理的描述決策規(guī)則號1234是否登記NYYY是否有書NY條件是否歸還N不借YY借書Y處理催還Y 12 / 513.系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)3.1 功能結(jié)構(gòu)圖設(shè)計(jì)功能結(jié)構(gòu)圖設(shè)計(jì) 13 / 513.2 信息系統(tǒng)流程圖設(shè)計(jì)信息系統(tǒng)流程圖設(shè)計(jì) 管理員設(shè)置圖書設(shè)置主文件文件更新模塊上月文件讀者設(shè)置工具圖書借閱/歸還注銷幫助數(shù)據(jù)備份模塊備份文件實(shí)用查詢模塊統(tǒng)計(jì)模塊3.3 輸入設(shè)計(jì)輸入設(shè)計(jì)管理員注冊：14 / 51讀者登記圖書登記1

15、5 / 513.4 輸出設(shè)計(jì)輸出設(shè)計(jì)管理員信息查詢輸出設(shè)計(jì)16 / 51讀者信息查詢設(shè)計(jì)圖書信息查詢17 / 513.5 數(shù)據(jù)存儲設(shè)計(jì)數(shù)據(jù)存儲設(shè)計(jì)采用 access 數(shù)據(jù)庫,VB6 開發(fā)管理員表（ID,NAME,PASS,USER,BOOK,PHOTO）圖書信息表（ID,NAME,SORT,DATE,PRICE,WRITER,CONCERN,REMARK,CHECK_DATE）圖書庫存表（ID,QUANTITY）讀者信息表（ID,NAME,SEX,IDENTIFICATION,TEL,ADDRESS,PHOTO,CHECK_DATE）借閱信息表（UER_ID,BOOK_ID,LEND_DATE

16、）圖書類型(BOOK_SORT)1管理員表編號字段名數(shù)據(jù)類型說明1MANAGER_ID文本，長度 20管理員 ID2MANAGER_NAME文本，長度 50管理員姓名3MANAGER_PASS文本，長度 50密碼4MANAGER_USER是/否讀者權(quán)限5MANAGER_BOOK是/否圖書權(quán)限6MANAGER_PHOTO文本，長度 150管理員相片2圖書信息表編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1BOOK_ID文本記錄編號，主鍵18 / 512BOOK_NAME文本，長度 50圖書名稱3BOOK_SORT文本，長度 10圖書類別4BOOK_DATE文本，長度 50出版日期5BOOK_PRICE文本，長度 5

17、0圖書價(jià)格6BOOK_WRITER文本，長度 50圖書作者(主編)7BOOK_CONCERN文本，長度 50出版社8BOOK_REMARK文本，長度 50備注9BOOK_CHECK_DATE日期/時(shí)間登記日期3書庫存表編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1BOOK_ID文本，長度 20圖書編號2BOOK_QUANTITYInt圖書庫存4讀者信息編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1USER_ID文本，長度 20記錄編號，主鍵2USER_NAME文本，長度 50讀者姓名3USER_SEX文本，長度 50讀者性別4USER_IDENTIFICATION文本，長度 50讀者身份證5USER_TEL文本，長度 11讀者電話6

18、USER_ADDRESS文本，長度 50讀者地址7USER_PHOTO文本，長度 50讀者相片19 / 518USER_CHECK_DATE日期/時(shí)間登記日期5借閱信息表編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1USER_ID文本，長度20記圖書編號2BOOK_ID文本，長度20圖書編號3LEND_DATE文本，長度506圖書類型表編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1BOOK_SORT文本，長度50圖書類型3.6 處理流程圖設(shè)計(jì)處理流程圖設(shè)計(jì) 管理員設(shè)置20 / 51管理員注冊管理員查詢修改建立管理員設(shè)置程序文件更改管理員模塊登陸界面文件更新模塊數(shù)據(jù)備份模塊備份文件上次文件退出系統(tǒng)讀者信息管理讀者登記讀者修改修改讀者查

19、詢建立讀者信息管理程序文件更新上次文件文件圖書管理21 / 51圖書登記圖書修改修改圖書查詢建立圖書管理程序管理程序文件更新上次文件文件圖書借閱/歸還22 / 514.系統(tǒng)實(shí)施系統(tǒng)實(shí)施4.1系統(tǒng)功能界面和主要代碼系統(tǒng)功能界面和主要代碼登錄窗口：Option ExplicitPrivate Sub cmdCancel_Click() EndEnd SubPrivate Sub cmdOK_Click()Dim str_manager As Stringstr_manager = If txt_ManagerID = Then MsgBox 請輸入管理員 ID txt_ManagerID.SetF

20、ocus Exit Sub End If管理員注冊：23 / 51Private Sub Cmd_manager_check_Click() 確定If Txt_Mid = Then: MsgBox 請輸入管理員 ID: Txt_Mid.SetFocus: Exit SubIf Txt_Mname = Then: MsgBox 請輸入管理員名: Txt_Mname.SetFocus: Exit SubIf Txt_Mpass(0) = Then: MsgBox 請輸入密碼: Txt_Mpass(0).SetFocus: Exit SubIf Txt_Mpass(0) Txt_Mpass(1) T

21、hen MsgBox 密碼與復(fù)核密碼不匹配，請重新輸入: Txt_Mpass(0).SetFocus: Txt_Mpass(0).SelStart = 0: Txt_Mpass(0).SelLength = (Len(Txt_Mpass(0): Exit Sub讀者信息： 讀者登記和修改：24 / 51Private Sub Cmd_User_Check_Click() Dim str_sex As String, str_photo As String Dim i As Integer 對信息的判斷 Debug.Print txt_user(3).Tag:; txt_user(3).Tag

22、For i = 0 To 5 If i 2 Then If txt_user(i) = Then MsgBox 請輸入 + lbl_user(i): txt_user(i).SetFocus: Exit Sub End If Next i25 / 51 If Option1(0) = True Then str_sex = 男 Else: str_sex = 女 控制身份證號的長度為 15 或 18 位,且要求除最后一位可以 X 外,其它全為數(shù)字 判斷身份證號前 17 位是否為數(shù)字 If Not IsNumeric(Mid(txt_user(3), 1, 17) Then MsgBox 請輸入

23、正確的身份證號 txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If 判斷身份證號是否等于 15 位或 18 位 If Not (Len(txt_user(3) = 15 Or Len(txt_user(3) = 18) Then MsgBox 請輸入正確的身份證號 txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit

24、Sub 如果是 18 位最后一位如果不是數(shù)字允許是X或x ElseIf Len(txt_user(3) = 18 Then If Not IsNumeric(Mid(txt_user(3), 18, 1) And Not (Mid(txt_user(3), 18, 1) = x Or Mid(txt_user(3), 18, 1) = X) Then MsgBox 請輸入正確的身份證號 txt_user(3).SetFocus txt_user(3).SelStart = 026 / 51 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End

25、 If End If讀者一覽表：Debug.Print Mid(user_s, 5)Set rds_user = New ADODB.Recordset If Mid(user_s, 5) = Then rds_user.Open select * from 讀者信息, myconn, adOpenKeyset, adLockOptimistic, 1 rds_usercount.Open select count(USER_ID) from 讀者信息, myconn, adOpenKeyset, adLockOptimistic, 1 Else rds_user.Open select *

26、from 讀者信息 where + Mid(user_s, 5), 27 / 51myconn, adOpenKeyset, adLockOptimistic, 1 rds_usercount.Open select count(USER_ID) as cu from 讀者信息 where + Mid(user_s, 5), myconn, adOpenKeyset, adLockOptimistic, 1 End If If rds_user.RecordCount 0 Then Set MSHFlexGrid1.DataSource = rds_user MSHFlexGrid1.Text

27、Matrix(0, 0) = 讀者編號 MSHFlexGrid1.TextMatrix(0, 1) = 讀者姓名 MSHFlexGrid1.TextMatrix(0, 2) = 讀者性別 MSHFlexGrid1.TextMatrix(0, 3) = 身份證號 MSHFlexGrid1.TextMatrix(0, 4) = 電話 MSHFlexGrid1.TextMatrix(0, 5) = 家庭住址 MSHFlexGrid1.TextMatrix(0, 6) = 相片存儲位置 MSHFlexGrid1.TextMatrix(0, 7) = 登記日期 rds_user.Close MsgBox

28、 共有 & rds_usercount.Fields(0) & 條滿足條件 MDIMain.StatusBar1.Panels(3).Text = 共有 & rds_usercount.Fields(0) & 條滿足條件 Else MsgBox 沒有匹配的查詢信息，請重新輸入 If rds_user.State = adStateOpen Then rds_user.Close Call Cmd_Uclear_Click txt_user(0).SetFocus End If 28 / 51圖書信息：4.2系統(tǒng)的數(shù)據(jù)查詢和修改系統(tǒng)的數(shù)據(jù)查詢和修改圖書修改：圖書查

29、詢：29 / 51圖書借閱情況：30 / 51圖書借閱情況查詢：31 / 51Private Sub search_book()Dim i As IntegerWith rds_jieyue 讀者編號，圖書編號，借閱日期 .Open select USER_ID,BOOK_ID,LEND_DATE from 借閱信息 where USER_ID= + txt_userid(0) + , myconn, adOpenKeyset, adLockOptimistic, 1 .Open SELECT 借閱信息.USER_ID, 借閱信息.BOOK_ID, 圖書信息.BOOK_name,LEND_DA

30、TE FROM 借閱信息 INNER JOIN 圖書信息 ON 借閱信息.BOOK_ID=圖書信息.BOOK_ID where 借閱信息.USER_ID= + txt_userid(0) + , myconn, adOpenKeyset, adLockOptimistic, 1 For i = 1 To havenum txt_bookid(i) = .Fields(2) 圖書名稱（借） txt_bookid(i + 3) = .Fields(2) 圖書名稱（還） txt_bookid(i).Locked = True 已借圖書禁止修改 txt_bookid(i).ForeColor = vb

31、Red 給出明顯標(biāo)記 txt_bookid(i).BackColor = Me.BackColor Check1(i).Enabled = True Check1(i).Value = 1 lbl_lenddate(i) = .Fields(3) 借閱時(shí)間（借） lbl_lenddate(i + 3) = .Fields(3) 借閱時(shí)間（還） If .EOF Then: .Close: Else: .MoveNext Next i txt_userid(1) = txt_userid(0)32 / 51 Exit SubEnd WithEnd SubPrivate Sub Cmdjy_sear

32、ch_Click() 讀者及借閱查詢Dim i As IntegerDim rds_jycount As RecordsetSet rds_jycount = New Recordset If txt_userid(0) = Then: MsgBox 請輸入讀者編號: txt_userid(0).SetFocus: Exit Sub用戶查詢With rds_jycount If .State = adStateOpen Then .Close .Open select USER_ID from 讀者信息 where USER_ID= + txt_userid(0) + , myconn, ad

33、OpenKeyset, adLockOptimistic, 1 If .Fields(0) = Then MsgBox 讀者編號不存在，請重新輸入 txt_userid(0).SetFocus: txt_userid(0).SelStart = 0: txt_userid(0).SelLength = Len(txt_userid(0) .Close Exit Sub Else MDIMain.StatusBar1.Panels(3) = End If 33 / 51End WithPrivate Sub Cmdgh_search_Click() 歸還查詢 txt_userid(0) = tx

34、t_userid(1) Call Cmdjy_search_ClickEnd SubPrivate Sub Form_Activate()Dim i As IntegerDim str_sql As String txt_userid(0) = txt_userid(1) = Call renew For i = 1 To 6 lbl_lenddate(i) = Date Next i Cmdjieyue.Enabled = FalseEnd SubPrivate Sub SSTab1_Click(PreviousTab As Integer) If SSTab1.Tab = 2 Then I

35、f rds_jieyue.State = adStateOpen Then rds_jieyue.Close str_sql = SELECT 讀者信息.USER_ID, 讀者信息.USER_NAME, 借閱信息.BOOK_ID, 圖書信息.BOOK_NAME, 借閱信息.LEND_DATE FROM 圖書信息 RIGHT JOIN (借閱信息 LEFT JOIN 讀者信息 ON 借閱信息.USER_ID = 讀者信息.USER_ID) ON 圖書信息.BOOK_ID = 借閱信息.USER_ID34 / 51 rds_jieyue.Open str_sql, myconn, adOpenFo

36、rwardOnly, adLockOptimistic, 1 Set MSHFlexGrid1.DataSource = rds_jieyue MSHFlexGrid1.TextMatrix(0, 0) = 讀者編號 MSHFlexGrid1.TextMatrix(0, 1) = 讀者姓名 MSHFlexGrid1.TextMatrix(0, 2) = 圖書編號 MSHFlexGrid1.TextMatrix(0, 3) = 圖書名稱 MSHFlexGrid1.TextMatrix(0, 4) = 借閱時(shí)間 End IfEnd Sub關(guān)于：圖書管理信息系統(tǒng)：35 / 51Dim exit_st

37、ate As StringPrivate Sub MDIForm_Load()Image1.Picture = LoadPicture(App.Path + imagelibrary.jpg)If rds_manager.Fields(0) = admin Then mnu_manager_reg.Enabled = True 注冊新管理員 mnu_manager_edit.Enabled = True 管理員一覽4.3系統(tǒng)的測試系統(tǒng)的測試程序和系統(tǒng)調(diào)試的目的是發(fā)現(xiàn)程序和系統(tǒng)中可能存在的錯(cuò)誤并及時(shí)予以糾正。測試的時(shí)候可以選用正常的數(shù)據(jù)進(jìn)行測試，異常的數(shù)據(jù)進(jìn)行測試，還有用錯(cuò)誤的數(shù)據(jù)進(jìn)行測試。通過

38、對程序的功能測試和修改，并最終完善系統(tǒng)。用不滿位數(shù)的身份證號填寫讀者信息，系統(tǒng)會報(bào)錯(cuò)，以提示讀者改正。36 / 51還有系統(tǒng)中要求讀者填入的信息，讀者沒有填入，系統(tǒng)就會提示用戶填寫。37 / 51如果圖書沒有編入會提示如下錯(cuò)誤：圖書登記時(shí)也可能出現(xiàn)一些錯(cuò)誤，比如沒有填寫完整的圖書信息，系統(tǒng)一樣會提示錄入員進(jìn)行修改：38 / 5139 / 51對于讀者方面的查詢和篩選也會出現(xiàn)一些錯(cuò)誤，比如：數(shù)據(jù)的選?。罕热纾?0 / 51Private Sub Cmd_Book_check_Click() 確認(rèn)Dim i As Integer 對信息的判斷 Debug.Print Me.Tag; Me.Tag

39、判斷狀態(tài) For i = 0 To 7 If i 3 Then: If i 7 And txt_book(i) = Then MsgBox 請輸入 + lbl_book(i): txt_book(i).SetFocus: Exit Sub Next i41 / 51 If DTPicker1.Value = Date Then MsgBox 出版日期錯(cuò)誤: DTPicker1.SetFocus: Exit Sub 判斷圖書價(jià)格是否為數(shù)值且小數(shù)點(diǎn)后為兩位數(shù)字 If Not IsNumeric(txt_book(4) Then MsgBox 圖書價(jià)格有誤，請輸入正確的價(jià)格: txt_book(4)

40、.SetFocus: txt_book(4).SelStart = 0: txt_book(4).SelLength = Len(txt_book(4): Exit Sub InStr(1, txt_book(4), .) 0 確認(rèn)是否包含小數(shù)點(diǎn) Mid(txt_book(4), 1, InStr(1, txt_book(4), .) + 2) Val(txt_book(4)判斷小數(shù)點(diǎn)后位數(shù):50/50./50.0/50.00 If InStr(1, txt_book(4), .) 0 And Mid(txt_book(4), 1, InStr(1, txt_book(4), .) + 2)

41、Val(txt_book(4) Then MsgBox 圖書價(jià)格只保留兩位小數(shù) txt_book(4).SetFocus txt_book(4).SelStart = 0 txt_book(4).SelLength = Len(txt_book(4) Exit Sub End If If Me.Tag = check Then If .State = adStateOpen Then .Close .Open 圖書信息, myconn, adOpenKeyset, adLockPessimistic, adCmdTable .AddNew .Update BOOK_ID, txt_book(0

42、) ElseIf Me.Tag = modify Then If .State = adStateOpen Then .Close Or Left(.Source, 34) 42 / 51select * from 圖書信息 where BOOK_ID= Then .Open select * from 圖書信息 where BOOK_ID= + txt_book(0) + , myconn, adOpenKeyset, adLockPessimistic, adCmdText End If End IfPrivate Sub Cmd_User_Check_Click() Dim str_se

43、x As String, str_photo As String Dim i As Integer 對信息的判斷 Debug.Print txt_user(3).Tag:; txt_user(3).Tag For i = 0 To 5 If i 2 Then If txt_user(i) = Then MsgBox 請輸入 + lbl_user(i): txt_user(i).SetFocus: Exit Sub End If If Option1(0) = True Then str_sex = 男 Else: str_sex = 女 控制身份證號的長度為 15 或 18 位,且要求除最后一

44、位可以 X 外,其它全為數(shù)字 判斷身份證號前 17 位是否為數(shù)字 If Not IsNumeric(Mid(txt_user(3), 1, 17) Then MsgBox 請輸入正確的身份證號 txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub43 / 51 End If 判斷身份證號是否等于 15 位或 18 位 If Not (Len(txt_user(3) = 15 Or Len(txt_user(3) = 18) Then MsgBox 請輸入正確的

45、身份證號 txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub 如果是 18 位最后一位如果不是數(shù)字允許是X或x ElseIf Len(txt_user(3) = 18 Then If Not IsNumeric(Mid(txt_user(3), 18, 1) And Not (Mid(txt_user(3), 18, 1) = x Or Mid(txt_user(3), 18, 1) = X) Then MsgBox 請輸入正確的身份證號 txt_user(

46、3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End IfPrivate Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then CommonDialog1.Filter = *.bmp|*.bmp;*.jpg|*.jpg;*.ico|*.ico CommonDialog1.ShowOpen If CommonDialog1

47、. Then Image1.Picture = LoadPicture(CommonDialog1.)44 / 51 Else Image1.Picture = LoadPicture(App.Path + icophoto.ico) End IfEnd IfIf Button = 2 And Image1.Picture.Type = 1 Then If MsgBox(確認(rèn)刪除照片？, vbCritical + vbOKCancel) = vbOK Then Image1.Picture = LoadPicture(App.Path + icophoto.ico)End IfEnd SubPrivate Sub txt_user_KeyPress(Index As