VB實(shí)訓(xùn)指導(dǎo)書(shū)(一周)08秋電子商務(wù)專(zhuān)業(yè)用

1、PAGE PAGE 76VB實(shí)訓(xùn)指導(dǎo)書(shū)書(shū) 圖書(shū)信息息管理系統(tǒng)廣西機(jī)電職業(yè)技技術(shù)學(xué)院一、實(shí)訓(xùn)周的具具體按排和要要求1、實(shí)訓(xùn)對(duì)象：07級(jí)電子商務(wù)務(wù)專(zhuān)業(yè)學(xué)生2、實(shí)訓(xùn)時(shí)間：1周3、實(shí)訓(xùn)內(nèi)容：開(kāi)發(fā)圖書(shū)信信息管理系統(tǒng)統(tǒng)4、實(shí)訓(xùn)目的：(1) 進(jìn)一步步熟悉 VBB的集成開(kāi)發(fā)發(fā)環(huán)境，掌握握VB設(shè)計(jì)應(yīng)應(yīng)用程序的主主要步驟，從從而加深對(duì)面面向可視化對(duì)對(duì)象編程方法法的認(rèn)識(shí)。(2) 了解并并初步掌握用用VB開(kāi)發(fā)應(yīng)應(yīng)用程序界面面、圖形圖像像、數(shù)據(jù)庫(kù)、多多媒體等實(shí)用用內(nèi)容。(3) 通過(guò)實(shí)實(shí)訓(xùn)鞏固一學(xué)學(xué)期來(lái)所學(xué)到到的VB知識(shí)，熟練練掌握計(jì)算機(jī)機(jī)操件技能，培培養(yǎng)開(kāi)發(fā)的思思想，同時(shí)產(chǎn)產(chǎn)生濃厚的興興趣，為今后后進(jìn)一步學(xué)習(xí)習(xí)打下基礎(chǔ)

2、。5、實(shí)訓(xùn)要求說(shuō)說(shuō)明： 指導(dǎo)書(shū)給出出的內(nèi)容只是是完成基本功功能，其它功功能請(qǐng)查閱相相關(guān)參考書(shū)。 實(shí)訓(xùn)上機(jī)期期間，每個(gè)學(xué)學(xué)生都要認(rèn)真真聽(tīng)從指導(dǎo)老師及及實(shí)驗(yàn)老師的的指揮，按時(shí)時(shí)按量獨(dú)立完完成實(shí)訓(xùn)的內(nèi)內(nèi)容。如有違違紀(jì)者，將取取消其實(shí)訓(xùn)的的上機(jī)資格，并并且其實(shí)訓(xùn)成成績(jī)當(dāng)零分處處理。 實(shí)訓(xùn)期間要要嚴(yán)格按照實(shí)實(shí)訓(xùn)報(bào)告格式式要求認(rèn)真書(shū)書(shū)寫(xiě)實(shí)訓(xùn)報(bào)告告（電子檔與與手寫(xiě)稿（或或打印稿），實(shí)實(shí)訓(xùn)結(jié)束后將將實(shí)訓(xùn)作品和和實(shí)訓(xùn)報(bào)告一一起上交指導(dǎo)導(dǎo)老師批改、評(píng)評(píng)分。 eq oac(,4) 實(shí)訓(xùn)訓(xùn)后期，將酌酌情安排現(xiàn)場(chǎng)場(chǎng)測(cè)試與答辯辯，并將此項(xiàng)項(xiàng)分?jǐn)?shù)按一定定比例打入實(shí)實(shí)訓(xùn)成績(jī)總評(píng)評(píng)。二、實(shí)訓(xùn)報(bào)告（設(shè)設(shè)計(jì)說(shuō)明書(shū)）書(shū)書(shū)寫(xiě)的格式要要

3、求1、實(shí)訓(xùn)報(bào)告封封面要依次填填寫(xiě)設(shè)計(jì)的科科目、題目、專(zhuān)專(zhuān)業(yè)、班級(jí)、姓姓名、學(xué)號(hào)、日日期、指導(dǎo)老老師等項(xiàng)目。2、報(bào)告內(nèi)頁(yè)書(shū)書(shū)寫(xiě)的具體內(nèi)內(nèi)容應(yīng)包含以以下幾個(gè)方面面：實(shí)訓(xùn)名稱(chēng)：即實(shí)實(shí)訓(xùn)題目。實(shí)訓(xùn)目的：即通通過(guò)本次實(shí)訓(xùn)訓(xùn)要得到哪些些方面的主要要訓(xùn)練，將學(xué)學(xué)會(huì)掌握哪些些相關(guān)專(zhuān)業(yè)技技能。實(shí)訓(xùn)環(huán)境：既設(shè)設(shè)備（硬件、系系統(tǒng)平臺(tái)）、開(kāi)開(kāi)發(fā)工具、方方法手段等。實(shí)訓(xùn)計(jì)劃：做出出本次實(shí)訓(xùn)的的總體計(jì)劃并并制定出實(shí)施施計(jì)劃的具體體步驟（可按按完成功能模模塊來(lái)劃分）及及進(jìn)度安排，列列出時(shí)間表。關(guān)鍵技術(shù)與解決決途徑：本次次實(shí)訓(xùn)的技術(shù)術(shù)要點(diǎn)（可按按實(shí)訓(xùn)計(jì)劃里里制定的具體體步驟一一編編寫(xiě)），并要要求寫(xiě)出如何何解決這些技技術(shù)要點(diǎn)（

4、要要求編寫(xiě)源代代碼并附上代代碼說(shuō)明，必必要時(shí)請(qǐng)附上上截圖）。自我評(píng)價(jià)：即總總結(jié)本次實(shí)訓(xùn)訓(xùn)的個(gè)人心得得體會(huì)。包括括對(duì)這次實(shí)訓(xùn)訓(xùn)任務(wù)完成情情況的評(píng)價(jià)；實(shí)訓(xùn)的收獲獲與預(yù)期目標(biāo)標(biāo)是否一致的的評(píng)價(jià)以及對(duì)對(duì)實(shí)訓(xùn)組織、安安排、管理等等方面的評(píng)價(jià)價(jià)。這部分不不僅要求寫(xiě)出出問(wèn)題，更希希望寫(xiě)出你的的建議。三、實(shí)訓(xùn)成績(jī)的的評(píng)定標(biāo)準(zhǔn)指導(dǎo)老師根據(jù)學(xué)學(xué)生實(shí)訓(xùn)期間間的表現(xiàn)、實(shí)實(shí)訓(xùn)內(nèi)容的完完成情況以及及所寫(xiě)的實(shí)訓(xùn)訓(xùn)報(bào)告（設(shè)計(jì)計(jì)說(shuō)明書(shū)）給給予該生優(yōu)、良良、中、及格格、不及格等等綜合評(píng)定等等級(jí)，并作為為該實(shí)訓(xùn)課程程的期評(píng)成績(jī)績(jī)上報(bào)成績(jī)。四、本次實(shí)訓(xùn)的的具體內(nèi)容:圖書(shū)信息管管理系統(tǒng)系統(tǒng)功能分析：讀者基本信息的的輸入讀者基本信息的的

5、查詢(xún)（要求求能按讀者編編號(hào)進(jìn)行查詢(xún)?cè)儯┳x者基本信息的的修改圖書(shū)信息的輸入入圖書(shū)信息的修改改借閱信息的查詢(xún)?cè)儯ㄒ竽芨鶕?jù)人來(lái)查書(shū)書(shū)、根據(jù)書(shū)來(lái)來(lái)查人）讀者借書(shū)讀者還書(shū)以下是附加的功功能：（選做做）根據(jù)讀者姓名來(lái)來(lái)查詢(xún)讀者信信息根據(jù)書(shū)名來(lái)查詢(xún)?cè)儓D書(shū)信息利用新窗口來(lái)修修改讀者信息息和圖書(shū)信息息顯示所有圖書(shū)顯示所有圖書(shū)查詢(xún)單冊(cè)增加新書(shū)刪除圖書(shū)根據(jù)書(shū)來(lái)查人根據(jù)人來(lái)查書(shū)顯示所有借閱情況借書(shū)還書(shū)查詢(xún)一個(gè)讀者增加一個(gè)讀者刪除一個(gè)讀者顯示所有讀者讀者管理圖書(shū)管理借閱管理圖書(shū)管理系統(tǒng)系統(tǒng)功能模塊： 一、圖書(shū)信息管管理系統(tǒng)功能能介紹1主界面圖1 程序運(yùn)行后主界界面的效果如如圖1所示?？煽梢钥吹?，窗窗體的上部是是菜單

6、欄，包包含3個(gè)菜單單項(xiàng)，即：讀讀者管理、圖圖書(shū)管理和借借閱管理。2讀者管理選擇菜單“讀讀者管理”，如圖2所所示，該菜單單項(xiàng)中有4個(gè)個(gè)子菜單項(xiàng)：顯示所有讀讀者、查詢(xún)一一個(gè)讀者、增增加一個(gè)讀者者和刪除一個(gè)個(gè)讀者。選擇菜單“讀讀者管理顯示所有讀讀者”，則在主界界面的數(shù)據(jù)表表格中列出所所有的讀者信信息，如圖33所示。選擇菜單“讀讀者管理查詢(xún)一個(gè)讀讀者”，彈出對(duì)話話框如圖4所所示，要求輸輸入要查詢(xún)的的讀者編號(hào)信信息。輸入讀讀者編號(hào)后單單擊“查詢(xún)”按鈕，則在在主界面的數(shù)數(shù)據(jù)表格中列列出該讀者的的信息；否則則，系統(tǒng)提示示用戶(hù)“查無(wú)此人”。選擇菜單“讀讀者管理增加一個(gè)讀讀者”，彈出對(duì)話話框如圖5所所示，要求輸

7、輸入讀者編號(hào)號(hào)和讀者姓名名，輸入完整整的信息后單單擊保存按鈕鈕，系統(tǒng)判斷斷是否可以向向數(shù)據(jù)庫(kù)中添添加該讀者信信息，如果添添加成功，則則在主界面的的數(shù)據(jù)表格中中列出數(shù)據(jù)庫(kù)庫(kù)中所有的讀讀者信息。選擇菜單“讀讀者管理刪除一個(gè)讀讀者”，彈出對(duì)話話框如圖6所所示，要求輸輸入讀者編號(hào)號(hào)，輸入完整整的信息后單單擊“刪除”按鈕，若該該刪除操作成成功，則在主主界面的數(shù)據(jù)據(jù)表格中顯示示剩余的所有有讀者信息。 圖2 圖3 圖圖4圖5 圖663圖書(shū)管理選擇菜單“圖圖書(shū)管理”，如圖7所所示，該菜單單項(xiàng)中有4個(gè)個(gè)子菜單項(xiàng)：顯示所有圖圖書(shū)、查詢(xún)單單冊(cè)、增加新新書(shū)和刪除圖圖書(shū)。該菜單單項(xiàng)功能與讀讀者管理部分分類(lèi)似，在此此不再

8、重復(fù)。4借閱管理選擇菜單“借借閱管理”，如圖8所所示。該菜單單項(xiàng)中有5個(gè)個(gè)子菜單項(xiàng)：顯示所有借借閱情況、借借書(shū)、還書(shū)、根根據(jù)書(shū)來(lái)查人人和根據(jù)人來(lái)來(lái)查書(shū)。圖7 圖88選擇菜單“借借閱管理顯示所有借借閱情況”，則在主界界面的數(shù)據(jù)表表格中顯示所所有的借閱記記錄。選擇菜單“借借閱管理借書(shū)”，彈出對(duì)話話框如圖9所所示，要求用用戶(hù)輸入所借借圖書(shū)編號(hào)和和讀者編號(hào)。輸輸入完整的信信息后單擊“借書(shū)”按鈕，如果果借書(shū)成功，則則在主界面的的數(shù)據(jù)表格中中列出當(dāng)前讀讀者的借閱情情況。選擇菜單“借借閱管理還書(shū)”，彈出對(duì)話話框如圖100所示，要求求輸入所借圖圖書(shū)編號(hào)，輸輸入完整的信信息后單擊“還書(shū)”按鈕，如果果還書(shū)成功，則

9、則在主界面的的數(shù)據(jù)表格中中列出當(dāng)前讀讀者還書(shū)后的的借閱情況。 圖9 圖110選擇菜單“借借閱管理根據(jù)人來(lái)查查書(shū)”，彈出對(duì)話話框如圖111所示，要求求輸入讀者編編號(hào)，輸入完完整的信息后后單擊“查詢(xún)”按鈕，如果果查詢(xún)操作成成功，則在主主界面的數(shù)據(jù)據(jù)表格中列出出當(dāng)前讀者所所有的借閱情情況。選擇菜單“借借閱管理根據(jù)書(shū)來(lái)查查人”，彈出對(duì)話話框如圖122所示，系統(tǒng)統(tǒng)顯示相應(yīng)的的信息提示，如如果查詢(xún)操作作成功，則在在主界面的數(shù)數(shù)據(jù)表格中列列出當(dāng)前圖書(shū)書(shū)的借閱情況況。 圖11 圖112二、創(chuàng)建數(shù)據(jù)庫(kù)庫(kù)打開(kāi)Acceess，建立立一個(gè)名為bbookdbb的數(shù)據(jù)庫(kù)，數(shù)數(shù)據(jù)庫(kù)中有兩兩張數(shù)據(jù)表：book、bborrow

10、w和readder 。三三張表的字段段信息如下:表1 boook表項(xiàng)內(nèi)容容字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小bookid文本15booknamme文本100bookstaate文本4（將bookiid字段設(shè)為為主鍵）表2 boorrow表表項(xiàng)內(nèi)容字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小bookid文本15readeriid文本15（將bookiid字段設(shè)為為主鍵）表3 reaader表項(xiàng)項(xiàng)內(nèi)容字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小readeriid文本15readernname文本20booknumm文本4（將readeerid字段段設(shè)為主鍵）三、創(chuàng)建數(shù)據(jù)源源(ODBCC)基于SQL的的ODBC（OOpen DDataBaase C

11、oonnecttivityy，開(kāi)放式數(shù)數(shù)據(jù)庫(kù)連接）是是Microosoft公公司在19889年退出的的連接外部數(shù)數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)準(zhǔn)，若采用這這套標(biāo)準(zhǔn)，一一個(gè)應(yīng)用程序序就可以通過(guò)過(guò)一組通用的的代碼訪問(wèn)不不同的數(shù)據(jù)庫(kù)庫(kù)管理系統(tǒng)。在Windoows XPP操作系統(tǒng)環(huán)環(huán)境下，本實(shí)實(shí)例的ODBBC設(shè)置步驟驟如下：進(jìn)入“控制面板板管理工具”，雙擊“數(shù)據(jù)源（OODBC）”，出現(xiàn)“ODBC數(shù)數(shù)據(jù)源管理器器”，如圖133所示。 圖13 圖14單擊“添加”按按鈕，出現(xiàn)創(chuàng)創(chuàng)建數(shù)據(jù)源對(duì)對(duì)話框，如圖圖14所示。選擇“Drivver Doo Micrrosoftt Acceess (*.mdb)”，單擊完成成按鈕，出現(xiàn)現(xiàn)OD

12、BC Microosoft Accesss安裝對(duì)話話框，如圖115所示，在在數(shù)據(jù)源一項(xiàng)項(xiàng)中輸入“book”。單擊“選擇”按鈕，出出現(xiàn)選擇數(shù)據(jù)據(jù)庫(kù)對(duì)話框，如如圖16所示示，首先選擇擇數(shù)據(jù)庫(kù)所在在的驅(qū)動(dòng)器，然然后在目錄中中選擇數(shù)據(jù)庫(kù)庫(kù)的路徑，這這樣在“數(shù)據(jù)庫(kù)名”一欄中就會(huì)會(huì)列出相應(yīng)的的Accesss數(shù)據(jù)庫(kù)，然然后單擊選定定數(shù)據(jù)庫(kù)“bookddb”。 圖15 圖166單擊確定按鈕，系系統(tǒng)自動(dòng)返回回ODBC數(shù)數(shù)據(jù)源管理器器，數(shù)據(jù)源“book”創(chuàng)建成功。四、圖書(shū)管理系系統(tǒng)實(shí)現(xiàn)該圖書(shū)管理系系統(tǒng)的工程名名稱(chēng)為BoookManSSys.vbbp，該工程程包含所有文文件如圖177所示。 圖171新建工程新建工程

13、，并在在工程資源管管理器中將工工程名稱(chēng)屬性性改為：BoookMannSys.vvbp。選擇菜單“工程程部件”，從控件列列表中選中如如下選項(xiàng)：Microosoft ADO DData CControol 6.00 (OLEEDB)Microosoft DataGGrid CControol 6.00 (OLEEDB)在“工程資源管管理器”窗口中單擊擊鼠標(biāo)右鍵，選選擇“添加添加模塊”。單擊打開(kāi)開(kāi)按鈕，然后后在該模塊的的“代碼編輯窗窗口”中添加代碼碼如下：Public ActFllag Ass Boollean2FrmMaain窗體FrmMainn窗體的設(shè)計(jì)計(jì)步驟如下：選中“Formm1”窗體，將該

14、該窗體的“名稱(chēng)”屬性改為“frmMaain”，“Captiion”屬性改為“圖書(shū)管理系系統(tǒng)”。在窗體上上設(shè)計(jì)一個(gè)菜菜單，該菜單單結(jié)構(gòu)見(jiàn)表44。在窗體上添加一一個(gè)框架控件件（Framme），將其其“Captiion”屬性刪除，“BordeerStylle”屬性選擇“0Nonne”。在Fraam1中添加加一個(gè)數(shù)據(jù)表表格（DattaGridd），將其“名稱(chēng)”屬性設(shè)置為為“DataGGrid”，“Visibble”屬性設(shè)置為為Falsee。向窗體中添加兩兩個(gè)ADO數(shù)數(shù)據(jù)控件（AAdodc），將將“Adodcc1”的“名稱(chēng)”屬性設(shè)置為為“Adodcc”，將“Adodcc2”的“名稱(chēng)”屬性設(shè)置為為“Ado

15、dccTemp”，“Visibble”屬性均設(shè)置置為Falsse。這兩個(gè)個(gè)控件屬性列列表中的“ConneectionnStrinng”屬性值均按按如下方法設(shè)設(shè)置。單擊，彈出屬性性頁(yè)對(duì)話框，如如圖18所示示。單擊“生成”按按鈕，進(jìn)入“數(shù)據(jù)鏈接屬屬性”對(duì)話框，如如圖19所示示。圖18 圖199選擇“Micrrosoftt OLE DB Prrovideer forr ODBCC Drivvers”，單擊“下一步”按鈕，由“提供者”選項(xiàng)卡跳到到“連接”選項(xiàng)卡，如如圖20所示示。選中“使用數(shù)據(jù)源源名稱(chēng)”，在該項(xiàng)下下拉列表中選選擇“book”，然后單擊擊“確定”按鈕，系統(tǒng)統(tǒng)自動(dòng)回到屬屬性頁(yè)對(duì)話框框，單擊

16、確定定按鈕即可。 圖20進(jìn)入frmMaain窗體的的代碼視圖，添添加如下代碼碼：Public Sub DDisplaayGridd(CapttionSttr As Strinng)將臨時(shí)ADOO數(shù)據(jù)控件中中的RecoordSouurce屬性性賦值給和數(shù)數(shù)據(jù)表格相連連的ADO數(shù)數(shù)據(jù)控件 Adoodc.ReecordSSourcee = AddodcTeemp.ReecordSSourcee Adoodc.Reefreshh 將數(shù)數(shù)據(jù)表格綁定定到ADO數(shù)數(shù)據(jù)控件 Sett DataaGrid.DataSSourcee = Addodc DattaGridd.Refrresh 修改改數(shù)據(jù)表格的的標(biāo)題

17、 DattaGridd.Capttion = CapttionSttr 將數(shù)數(shù)據(jù)表格設(shè)置置為用戶(hù)可見(jiàn)見(jiàn) DattaGridd.Visiible = TrueeEnd Subb表4 菜菜單結(jié)構(gòu)設(shè)置置菜單項(xiàng)名稱(chēng)讀者管理ReaderMMan.顯示所有讀讀者DispAlllReadeer.查詢(xún)一個(gè)讀讀者FindOneeReadeer.增加一個(gè)讀讀者AddReadder.刪除一個(gè)讀讀者DelReadder圖書(shū)管理BookMann.顯示所有圖圖書(shū)DispAlllBook.查詢(xún)單冊(cè)FindOneeBook.增加新書(shū)AddBookk.刪除圖書(shū)DelBookk借閱管理BorrowMMan.顯示所有借借閱情況Di

18、spAlllBor.借書(shū)B(niǎo)orrow.還書(shū)Return.根據(jù)人來(lái)查查書(shū)ReaderTToBookk.根據(jù)書(shū)來(lái)查查人BookToRReaderr3顯示所有讀讀者選擇菜單“讀者者管理顯示所有讀讀者”，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub DispAAllReaader_CClick() Dimm RecCCount As Inntegerr 從數(shù)數(shù)據(jù)庫(kù)表rreaderr中查找所所有的讀者記記錄 AdoodcTemmp.ReccordSoource = seelect readeerid aas & 讀者者編號(hào) & _, readdernamme as & 讀者姓名名 & ,

19、boooknum as & 借閱閱圖書(shū)冊(cè)數(shù) _& froom reaader AdoodcTemmp.Reffresh ReccCountt = AddodcTeemp.Reecordsset.ReecordCCount 如果果查到的記錄錄數(shù) 0，則則顯示所有讀讀者信息，否否則提示未未查到任何讀讀者記錄，然然后顯示一個(gè)個(gè)空 的數(shù)數(shù)據(jù)表格。 If RecCoount 0 Thhen DDisplaayGridd (顯示示所有讀者) Elsse MMsgBoxx 未查到到任何讀者記記錄！, , 提示示 DDisplaayGridd (顯示示所有讀者) EExit SSub Endd IfEnd S

20、ubb4查詢(xún)一個(gè)讀讀者選擇菜單“讀者者管理查詢(xún)一個(gè)讀讀者”，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub FindOOneReaader_CClick() Dim RRecCouunt Ass Inteeger 將標(biāo)志變變量置為假 ActFllag = Falsee 顯示查詢(xún)?cè)円粋€(gè)讀者窗窗體 frmFiindOneeReadeer.Shoow vbMModal 若是在查查詢(xún)一個(gè)讀者者窗體中已經(jīng)經(jīng)將ActFFlag修改改為T(mén)ruee時(shí)，則查看看所查到的記記錄條數(shù)，如如果查到的 記錄條數(shù)數(shù) 0時(shí)，刷刷新數(shù)據(jù)表格格，顯示查詢(xún)?cè)兘Y(jié)果 If AcctFlagg Thenn ReccCou

21、ntt = AddodcTeemp.Reecordsset.ReecordCCount If RecCoount 0 Thhen DDisplaayGridd (查詢(xún)?cè)円粋€(gè)讀者) Endd If End IIf ActFllag = FalseeEnd Subb為工程添加一個(gè)個(gè)新的窗體，將將新窗體的“名稱(chēng)”屬性改為“frmFiindOneeReadeer”，“Captiion”屬性改為“查詢(xún)一個(gè)讀讀者”。在窗體上添加一一個(gè)框架控件件（Framme）和一個(gè)個(gè)ADO數(shù)據(jù)據(jù)控件（Addodc），在在Framee1中添加一一個(gè)命令按鈕鈕（CommmandBuutton）、一一個(gè)標(biāo)簽（LLabel）和和

22、一個(gè)文本框框（TexttBox）。修改frmFiindOneeReadeer窗體控件件的屬性，見(jiàn)見(jiàn)表5。表5 frmmFindOOneReaader窗體體控件屬性控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值Frame1 Captiion輸入查詢(xún)條件Label1 Captiion讀者編號(hào)Text1名稱(chēng)TxtReadderidTextCommandd1名稱(chēng)CmdFinddCaptionn查詢(xún)Adodc1名稱(chēng)AdodcVisibleeFalse根據(jù)frmMaain主界面面中設(shè)置Addodc控件件的方法來(lái)設(shè)設(shè)置本窗體的的Adodcc的屬性，完完成以上操作作后frmFFindOnneReadder窗體的的效果如圖221所

23、示。 圖21雙擊“查詢(xún)”按按鈕，在代碼碼編輯窗口中中添加以下代代碼：Privatee Sub CmdFiind_Cllick() Dim RRecCouunt Ass Inteeger 判斷用戶(hù)戶(hù)是否輸入了了讀者編號(hào)信信息，如果沒(méi)沒(méi)有輸入信息息，則發(fā)出提提示退出子程程序 If Trrim(TxxtReadderid.Text) = Thenn MssgBox 查詢(xún)條件件不能為空，請(qǐng)請(qǐng)?zhí)顚?xiě)！, , 提提示 Exxit Suub End IIf 根據(jù)讀者者編號(hào)查詢(xún)讀讀者信息 Adodcc.RecoordSouurce = sellect rreaderrid ass & 讀者編編號(hào) _ & , r

24、eadeernamee as & 讀者姓名 & ,booknnum ass _ & 借閱閱圖書(shū)冊(cè)數(shù) & from readeer wheere reeaderiid= & _ & Triim(TxttReadeerid.TText) & Adodcc.Refrresh 如果查到到該讀者信息息則釋放當(dāng)前前窗體，回到到主界面在數(shù)數(shù)據(jù)表格上顯顯示查到的讀讀者信息 RecCoount = Adoddc.Reccordseet.ReccordCoount If ReecCounnt 00 Thenn frmmMain.AdodccTemp.RecorrdSourrce = seleect reeader

25、iid as _ & 讀者編號(hào)號(hào) & , reaadernaame ass & 讀者姓姓名 _ & ,bookknum aas & 借閱圖圖書(shū)冊(cè)數(shù) _ & fromm readder whhere rreaderrid= _ & & Trim(TxtReeaderiid.Texxt) & frmmMain.AdodccTemp.Refreesh 將標(biāo)標(biāo)志變量置為為真 ActtFlag = Truue Unlload MMe Else 如果沒(méi)有有查到該讀者者的信息則發(fā)發(fā)出提示，退退出子程序 MsggBox 查無(wú)此人！, , 提示 Exiit Subb End IIfEnd Subb5增加一個(gè)讀讀

26、者選擇菜單“讀者者管理增加一個(gè)讀讀者”，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub AddReeader_Clickk() 將標(biāo)志變變量置為假 ActFllag = Falsee 顯示增加加一個(gè)讀者窗窗體 frmAdddReadder.Shhow vbbModall If AcctFlagg Thenn 如果果需要刷新數(shù)數(shù)據(jù)表格，則則顯示所有讀讀者信息 DisspAllRReaderr_Clicck End IIf ActFllag = FalseeEnd Subb為工程添加一個(gè)個(gè)新的窗體，講講窗體的名稱(chēng)稱(chēng)屬性改為“frmAdddReadder”，Capttion屬性性改為“

27、增加一個(gè)讀讀者”。在窗體上添加一一個(gè)框架控件件（Framme），然后后在Framme1中添加加一個(gè)命令按按鈕，兩個(gè)標(biāo)標(biāo)簽，兩個(gè)文文本框和一個(gè)個(gè)ADO數(shù)據(jù)據(jù)控件（Addodc）。修改frmAdddReadder窗體控控件的屬性，見(jiàn)見(jiàn)表6。表6 frmmAddReeader窗窗體控件屬性性控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值 Fraame1 Captiion 輸入數(shù)據(jù) Labbel1Captionn 讀者編號(hào) Labbel2Captionn 讀者姓名Text1Text 名稱(chēng) TxtReeaderiidText2Text名稱(chēng) TxtReeaderNNameCommandd1名稱(chēng) CmdSaave Captio

28、nn 保存Adodc1名稱(chēng) AdodccVisiblee Falsee運(yùn)用frmMaain主界面面中設(shè)置Addodc的方方法來(lái)設(shè)置本本窗體的Addodc，完完成后的frrmAddRReaderr窗體效果如如圖22所示示。 圖222雙擊“保存”按按鈕，在代碼碼編輯窗口中中添加以下代代碼：Privatee Sub CmdSaave_Cllick() Dim RRecCouunt Ass Inteeger 判斷是否否輸入了讀者者編號(hào)和讀者者姓名，如果果沒(méi)有輸入信信息，則發(fā)出出提示并退出出子程序 If Trrim(TxxtReadderid.Text) = Or TTrim(TTxtReaaderNa

29、ame.Teext) = TThen MsggBox 請(qǐng)將內(nèi)容填填寫(xiě)完整！, , 提示 Exiit Subb End IIf 根據(jù)讀者者編號(hào)信息查查找該讀者是是否已經(jīng)存在在 Adodcc.RecoordSouurce = sellect * fromm readder whhere rreaderrid= _ & & Trrim(TxxtReadderid.Text) & Adodcc.Refrresh 如果該讀讀者已經(jīng)存在在，則發(fā)出提提示，并退出出子程序 RecCoount = Adoddc.Reccordseet.ReccordCoount If ReecCounnt 00 Thenn M

30、sggBox 已經(jīng)存在此此讀者編號(hào)，請(qǐng)請(qǐng)重新設(shè)置！, , 提示 Exiit Subb End IIf 向數(shù)據(jù)庫(kù)庫(kù)表boook中添加加新的讀者記記錄 Adodcc.RecoordSouurce = sellect * fromm readder Adodcc.Refrresh Adodcc.Recoordsett.AddNNew Adodcc.Recoordsett.Fiellds(rreaderrid) = Triim(TxttReadeerid.TText) Adodcc.Recoordsett.Fiellds(rreaderrname) = TTrim(TTxtReaaderNaame.T

31、eext) Adodcc.Recoordsett.Fiellds(bbooknuum) = 0 Adodcc.Recoordsett.Updaate Adodcc.Refrresh 將標(biāo)志變變量置為真 ActFllag = True Unloaad MeEnd Subb6刪除一個(gè)讀讀者選擇菜單“讀者者管理刪除一個(gè)讀讀者”，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub DelReeader_Clickk() 將標(biāo)志變變量置為假 ActFllag = Falsee 顯示刪除除一個(gè)讀者窗窗體 frmDeelReadder.Shhow vbbModall 判斷是否否需要刷新數(shù)數(shù)據(jù)表格，

32、如如果需要?jiǎng)t在在主界面的數(shù)數(shù)據(jù)表格中顯顯示所有的讀讀者信息 If AcctFlagg Thenn DisspAllRReaderr_Clicck End IIf ActFllag = FalseeEnd Subb為工程添加一個(gè)個(gè)新的窗體，將將新窗體的“名稱(chēng)”屬性改為“frmDeelReadder”，“Captiion”屬性改為“刪除一個(gè)讀讀者”。在窗體 上添加加一個(gè)框架控控件（Fraame），在在Framee1中添加一一個(gè)命令按鈕鈕、一個(gè)標(biāo)簽簽、一個(gè)文本本框和一個(gè)AADO數(shù)據(jù)控控件。修改frmDeelReadder窗體控控件的屬性，見(jiàn)見(jiàn)表7。表7 FrmmDelReeader窗窗體控件屬性性控

33、件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值Frame1Captionn 輸入編號(hào)Label1Captionn 讀者編號(hào)Text1名稱(chēng)TxtReadderidTextCommandd1名稱(chēng)CmdDelCaptionn刪除Adodc1名稱(chēng)AdodcVisibellFalse運(yùn)用frmMaain主界面面中設(shè)置Addodc的方方法來(lái)設(shè)置本本窗體的Addodc，完完成后的frrmDelRReaderr窗體效果如如圖22所示示。 圖圖22雙擊“刪除”按按鈕，在代碼碼編輯窗口中中添加以下代代碼：Privatee Sub CmdDeel_Cliick() Dim RRecCouunt Ass Inteeger 判斷是否否輸入了

34、讀者者編號(hào)信息，如如果沒(méi)有輸入入則發(fā)出提示示并退出子程程序 If Trrim(TxxtReadderid.Text) = Thenn MsggBox 請(qǐng)?zhí)钊刖幪?hào)號(hào)信息！, , 提提示 Exiit Subb End IIf 根據(jù)讀者者編號(hào)查找讀讀者信息 Adodcc.RecoordSouurce = sellect * fromm readder whhere rreaderrid= _ & & Trrim(TxxtReadderid.Text) & Adodcc.Refrresh 如果沒(méi)有有該讀者信息息則提示查查無(wú)此人！信息，退出出子程序 RecCoount = Adoddc.Reccords

35、eet.ReccordCoount If ReecCounnt 00 Thenn MsggBox 此人有書(shū)未未歸還，故不不能刪除！, , 提示 Exiit Subb End IIf 從數(shù)據(jù)庫(kù)庫(kù)表reaader中中找到該讀者者記錄，刪除除 Adodcc.RecoordSouurce = sellect * fromm readder whhere rreaderrid= _ & & Trrim(TxxtReadderid.Text) & Adodcc.Refrresh Adodcc.Recoordsett.Deleete Adodcc.Refrresh 將標(biāo)志變變量置為真 ActFllag =

36、True Unloaad MeEnd Subb7顯示所有圖圖書(shū)選擇菜單 “圖圖書(shū)管理顯示所有圖圖書(shū)”，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub DispAAllBoook_Cliick() Dim RRecCouunt Ass Inteeger 從數(shù)據(jù)庫(kù)庫(kù)表boook中查找找所有的圖書(shū)書(shū)記錄 AdodccTemp.RecorrdSourrce = seleect boookid as _ & 圖圖書(shū)編號(hào) & , booknname aas & 圖書(shū)書(shū)名稱(chēng) _ & ,bbooksttate aas & 此書(shū)是是否已借出 & from book AdodccTemp.Refre

37、esh 如果查到到的記錄數(shù) 0則刷新新數(shù)據(jù)表格顯顯示查到的圖圖書(shū)信息，否否則提示未未查到任何圖圖書(shū)記錄！信息 并刷新數(shù)數(shù)據(jù)表格顯示示空表 RecCoount = AdoddcTempp.Recoordsett.RecoordCouunt If ReecCounnt 00 Thenn DissplayGGrid (顯示所有有圖書(shū)) Else MsggBox 未查到任何何圖書(shū)記錄！, , 提示 DissplayGGrid (顯示所有有圖書(shū)) Exiit Subb End IIfEnd Subb8查詢(xún)單冊(cè)選擇菜單“圖書(shū)書(shū)管理查詢(xún)單冊(cè)”，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub F

38、indOOneBoook_Cliick() Dim RRecCouunt Ass Inteeger 將標(biāo)志變變量置為假 ActFllag = Falsee 顯示查詢(xún)?cè)儐蝺?cè)窗體 frmFiindOneeBook.Show vbModdal 判斷是否否需要刷新數(shù)數(shù)據(jù)表格 If AcctFlagg Thenn ReccCountt = AddodcTeemp.Reecordsset.ReecordCCount If RecCoount 0 Thhen DDisplaayGridd (查詢(xún)?cè)儐蝺?cè)) Endd If End IIf ActFllag = FalseeEnd Subb為工程添加一個(gè)個(gè)新的窗

39、體，將將新窗體”(名稱(chēng))”屬性改為”frmFiindOneeBook”，”captiion”屬性改為“查詢(xún)單冊(cè)”。在窗體添加一個(gè)個(gè)框架控件(Framee)和一個(gè)AADO數(shù)據(jù)控控件(Adoodc),在在” Framme1”中添加一個(gè)個(gè)命令按鈕(CommaandButtton)、一一個(gè)標(biāo)簽(llabel)和一個(gè)文本本框(texxtbox)。修改frmFiindOneeBook窗窗體控件的屬屬性如表8所所示：表8 frmmFindOOneBoook窗體控件件屬性控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值Frame1Captionn輸入查詢(xún)條件labelCaptionn圖書(shū)編號(hào)Text1名稱(chēng)txtbookkidtex

40、tCommandd1名稱(chēng)CmdfinddCaptionn查詢(xún)Adodc1名稱(chēng)Adodcvisibleefalse根據(jù)“frmMMain”主界面中的的設(shè)置“Adodcc”的方法來(lái)設(shè)設(shè)置本窗體的的“Adodcc”的“conneectionnstrinng”屬性。雙擊“查詢(xún)”按按鈕，在代碼碼編譯窗口中中添加以下代代碼：Privatee Sub CmdFiind_Cllick() Dim RRecCouunt Ass Inteeger 判斷是否否輸入了圖書(shū)書(shū)編號(hào)，如果果沒(méi)有輸入信信息，則發(fā)出出提示，并退退出子程序 If Trrim(TxxtBookkid.Teext) = TThen MssgBox

41、查詢(xún)條件件不能為空，請(qǐng)請(qǐng)?zhí)顚?xiě)！, , 提提示 Exxit Suub End IIf 根據(jù)圖書(shū)書(shū)編號(hào)查找該該圖書(shū)信息 Adodcc.RecoordSouurce = sellect bbookidd as & 圖書(shū)編號(hào) _ & , booknname aas & 圖書(shū)書(shū)名稱(chēng) & , bbooksttate aas _ & 此此書(shū)是否已借借出 & frrom boook whhere bbookidd= & _ & Triim(TxttBookiid.Texxt) & Adodcc.Refrresh 如果查到到的記錄數(shù) 0，則返返回主界面在在數(shù)據(jù)表格中中顯示查到的的圖書(shū)信息 RecCoount =

42、 Adoddc.Reccordseet.ReccordCoount If ReecCounnt 00 Thenn frmmMain.AdodccTemp.RecorrdSourrce = seleect boookid as _ & 圖書(shū)編號(hào)號(hào) & , boooknamee as & 圖書(shū)名稱(chēng) _ & , boookstatte as & 此書(shū)是否否已借出 _ & fromm bookk wherre boookid= & & Trim(TxtBoookid.Text) _ & frmmMain.AdodccTemp.Refreesh ActtFlag = Truue Unlload MMe

43、Else 若沒(méi)沒(méi)查到該圖書(shū)書(shū)信息，則提提示查無(wú)此此書(shū)！信息息，退出子程程序 MsggBox 查無(wú)此書(shū)！, , 提示 Exiit Subb End IIfEnd Subb9添加新書(shū)選擇菜單“圖書(shū)書(shū)管理增加新書(shū)”，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub AddBoook_Cllick() 將標(biāo)志變變量置為假 ActFllag = Falsee 顯示增加加新書(shū)窗體 frmAdddBookk.Showw vbMoodal 判斷如果果需要刷新數(shù)數(shù)據(jù)表格，則則在主界面中中顯示所有的的圖書(shū)信息 If AcctFlagg Thenn DisspAllBBook_CClick End II

44、f ActFllag = FalseeEnd Subb為工程添加一個(gè)個(gè)新的窗體，將將新窗體“(名稱(chēng))”屬性改為“frmAdddBookk”，“captiion”屬性改為“增加新書(shū)”。在窗體上添加一一個(gè)框架控件件(framme)，在“framee1”中添加一個(gè)個(gè)命令按鈕(commaandbuttton)、兩兩個(gè)標(biāo)簽(llabel)、兩個(gè)文本本框(texxtbox)和一個(gè)ADDO數(shù)據(jù)控件件(Adoddc)，如下下表所示：控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值Frame1Captionn輸入數(shù)據(jù)Label1Captionn圖書(shū)編號(hào)Label2Captionn圖書(shū)名稱(chēng)Text1名稱(chēng)txtbookkidtextTe

45、xt2名稱(chēng)txtbookknametextCommandd1名稱(chēng)CmdsaveeCaptionn保存Adodc1名稱(chēng)Adodcvisibleefalse根據(jù)”frmMMain”主界面中的的設(shè)置“Adodcc”的方法來(lái)設(shè)設(shè)置本窗體的的“Adodcc”的“conneectionnstrinng”屬性。雙擊“保存”按按鈕，在代碼碼編輯窗口中中添加以下代代碼：Privatee Sub CmdSaave_Cllick() Dim RRecCouunt Ass Inteeger 判斷是否否輸入了圖書(shū)書(shū)編號(hào)和圖書(shū)書(shū)名稱(chēng)信息，如如果沒(méi)有輸入入則發(fā)出提示示并退出子程程序 If Trrim(TxxtBookkid

46、.Teext) = OOr Triim(TxttBookNName.TText) = Then MsggBox 請(qǐng)將內(nèi)容填填寫(xiě)完整！, , 提示 Exiit Subb End IIf 根據(jù)圖書(shū)書(shū)編號(hào)查找是是否存在該圖圖書(shū)記錄，如如果存在，則則提示已經(jīng)經(jīng)存在此圖書(shū)書(shū)編號(hào)，請(qǐng)重重新設(shè)置！ 則提示退退出子程序 Adodcc.RecoordSouurce = sellect * fromm bookk wherre boookid= & & TTrim(TTxtBoookid.TText) & Adodcc.Refrresh RecCoount = Adoddc.Reccordseet.Reccord

47、Coount If ReecCounnt 00 Thenn MsggBox 已經(jīng)存在此此圖書(shū)編號(hào)，請(qǐng)請(qǐng)重新設(shè)置！, , 提示 Exiit Subb End IIf 在數(shù)據(jù)庫(kù)庫(kù)表boook中添加加該新書(shū)記錄錄 Adodcc.RecoordSouurce = sellect * fromm bookk Adodcc.Refrresh Adodcc.Recoordsett.AddNNew Adodcc.Recoordsett.Fiellds(bbookidd) = Trim(TxtBoookid.Text) Adodcc.Recoordsett.Fiellds(bbooknaame) = Triim

48、(TxttBookNName.TText) Adodcc.Recoordsett.Fiellds(bbooksttate) = 否否 Adodcc.Recoordsett.Updaate Adodcc.Refrresh 將標(biāo)志變變量置為真 ActFllag = True Unloaad MeEnd Subb10刪除圖書(shū)書(shū)選擇菜單“圖書(shū)書(shū)管理刪除圖書(shū)“，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub DelBoook_Cllick() 將標(biāo)志變變量置為假 ActFllag = Falsee 顯示刪除除圖書(shū)窗體 frmdeelbookk.Showw vbMoodal 判斷是否否需要刷

49、新數(shù)數(shù)據(jù)表格，如如果需要的話話則在數(shù)據(jù)表表格中顯示所所有的圖書(shū)記記錄 If AcctFlagg Thenn DisspAllBBook_CClick End IIf ActFllag = FalseeEnd Subb為工程添加一個(gè)個(gè)新的窗體，將將新窗體“(名稱(chēng))”屬性改為“frmdeelbookk”,“captiion”屬性改為“刪除圖書(shū)”。在窗體上添加一一個(gè)框架控件件(Framme),在”Framee1”中添加一個(gè)個(gè)命令按鈕(commaandbuttton)、一一個(gè)標(biāo)簽(llabel)、一個(gè)文本本框(texxtbox)和一個(gè)ADDO數(shù)據(jù)控件件(Adoddc),如下下表所示：控件名稱(chēng)屬性名稱(chēng)屬

50、性設(shè)置值Frame1Captionn輸入編號(hào)Label1Captionn圖書(shū)編號(hào)Text1名稱(chēng)txtbookkidTextCommandd1名稱(chēng)CmddelCaptionn刪除Adodc1名稱(chēng)Adodcvisibleefalse根據(jù)“frmMMain”主界面中的的設(shè)置“Adodcc”的方法來(lái)設(shè)設(shè)置本窗體的的“Adodcc”的“conneectionnstrinng”屬性，完成成以上操作后后frmDeelBookk窗體效果如如下圖所以：雙擊“刪除”按按鈕，在代碼碼編輯窗口中中添加以下代代碼：Privatee Sub CmdDeel_Cliick() Dim RRecCouunt Ass Inte

51、eger 判斷是否否輸入圖書(shū)編編號(hào)，如果沒(méi)沒(méi)有輸入數(shù)據(jù)據(jù)，則發(fā)出提提示并退出子子程序 If Trrim(TxxtBookkid.Teext) = TThen MsggBox 請(qǐng)?zhí)钊刖幪?hào)號(hào)信息！, , 提提示 Exiit Subb End IIf 根據(jù)圖書(shū)書(shū)編號(hào)從數(shù)據(jù)據(jù)庫(kù)表boook中查查找該圖書(shū)的的記錄。 Adodcc.RecoordSouurce = sellect * fromm bookk wherre boookid= _ & & Trrim(TxxtBookkid.Teext) & Adodcc.Refrresh RecCoount = Adoddc.Reccordseet.Recc

52、ordCoount 如果沒(méi)有有該圖書(shū)的信信息，則提示示查無(wú)此書(shū)書(shū)！信息，退退出子程序 If ReecCounnt 00 Thenn 如果果查到的記錄錄數(shù) 0，則則在數(shù)據(jù)表格格中顯示所有有的借閱記錄錄 DissplayGGrid (顯示所有有借閱情況) Else 否則則，提示沒(méi)沒(méi)有任何借閱閱記錄！信信息并顯示一一個(gè)空表 MsggBox 沒(méi)有任何借借閱記錄！, , 提示 DissplayGGrid (顯示所有有借閱情況) Exiit Subb End IIfEnd Subb12借書(shū)選擇菜單“借閱閱管理借書(shū)”，在代碼編編輯窗口中添添加以下代碼碼：Privatee Sub Borroow_Cliick

53、() Dim RRecCouunt Ass Inteeger 將標(biāo)志變變量置為假 ActFllag = Falsee 顯示借書(shū)書(shū)窗體 frmboorrow.Show vbModdal 判斷是否否需要刷新數(shù)數(shù)據(jù)表格，如如果需要?jiǎng)t顯顯示剛才借書(shū)書(shū)讀者的借閱閱記錄 If AcctFlagg Thenn ReccCountt = AddodcTeemp.Reecordsset.ReecordCCount If RecCoount 0 Thhen DDisplaayGridd (此人人借閱記錄) Endd If End IIf ActFllag = FalseeEnd Subb為工程添加一個(gè)個(gè)新的窗體，

54、將將新窗體”(名稱(chēng))”屬性改為”Frmboorrow”，”Captiion”屬性改為“借書(shū)”。在窗體上添加一一個(gè)框架控件件(Framme)，在FFrame11中添加一個(gè)個(gè)命令按鈕(Commaandbuttton)、兩兩個(gè)標(biāo)簽(LLabel)、兩個(gè)文本本框(Texxtbox)和一個(gè)ADDO數(shù)據(jù)控件件(Adoddc)。修改frmboorrow窗窗體控件的屬屬性，如下表表：控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值Frame1Captionn輸入數(shù)據(jù)Label1Captionn圖書(shū)編號(hào)Label2Captionn讀者編號(hào)Text1名稱(chēng)TxtbookkidTextText2名稱(chēng)TxtReadderidTextComm

55、andd1名稱(chēng)CmdborrrowCaptionn借書(shū)Adodc1名稱(chēng)AdodcVisibleeFalse根據(jù)“frmMMain”主界面中設(shè)設(shè)置“Adodcc”的方法來(lái)設(shè)設(shè)置來(lái)本窗體體的“Adodcc”的“Conneectionnstrinng”屬性。雙擊“借書(shū)”按按鈕，在代碼碼編輯窗口中中添加以下代代碼：Privatee Sub CmdBoorrow_Clickk() Dim RRecCouunt1 AAs Intteger Dim RRecCouunt2 AAs Intteger Dim BBookSttateSttr As Strinng 判斷是否否輸入了圖書(shū)書(shū)編號(hào)和讀者者編號(hào)，如果果沒(méi)

56、有輸入，則則發(fā)出提示并并退出子程序序 If Trrim(TxxtBookkid.Teext) = OOr Triim(TxttReadeerid.TText) = Then MsggBox 各項(xiàng)數(shù)據(jù)請(qǐng)請(qǐng)?zhí)顚?xiě)完整！, , 提示 Exiit Subb End IIf 根據(jù)圖書(shū)書(shū)編號(hào)查詢(xún)?cè)撛搱D書(shū)記錄是是否存在 Adodcc.RecoordSouurce = sellect * fromm bookk wherre boookid= & & TTrim(TTxtBoookid.TText) & Adodcc.Refrresh RecCoount1 = Adoodc.Reecordsset.Reecor

57、dCCount If ReecCounnt1 0 Theen BoookStatteStr = Adoodc.Reecordsset.Fiields(bookkstatee) If BookSStateSStr = 是 TThen 根據(jù)讀者編編號(hào)查找該讀讀者記錄是否否存在 AAdodc.RecorrdSourrce = seleect * from readeer wheere reeaderiid= _ & & Trimm(TxtRReaderrid.Teext) & AAdodc.Refreesh RRecCouunt2 = Adoddc.Reccordseet.ReccordCoount

58、 IIf ReccCountt2 11 Thenn 如果該該圖書(shū)存在并并且已經(jīng)借出出，又不存在此讀讀者，則提示示該書(shū)已經(jīng)經(jīng)借出，也無(wú)無(wú)此人！ MsgBBox 該該書(shū)已經(jīng)借出出，也無(wú)此人人！, , 提示 Exitt Sub EElse 如果該該圖書(shū)存在并并且已經(jīng)借出出，而存在此此讀者，則提提示該書(shū)已已經(jīng)借出，您您不能借閱此此書(shū)！ MsgBBox 該該書(shū)已經(jīng)借出出，您不能借借閱此書(shū)！, , 提示 Exitt Sub EEnd Iff Endd If 根據(jù)據(jù)讀者編號(hào)查查找該讀者記記錄 Adoodc.ReecordSSourcee = sselectt * frrom reeader wheree r

59、eadderid= _ & & Trim(TxtReeaderiid.Texxt) & Adoodc.Reefreshh ReccCountt2 = AAdodc.Recorrdset.RecorrdCounnt If RecCoount2 1 TThen 如果該圖書(shū)書(shū)存在，沒(méi)有借出，然而此讀者者不存在，則則提示查無(wú)無(wú)此人！ MMsgBoxx 查無(wú)此此人！, , 提示示 EExit SSub Endd If End IIf 根據(jù)圖書(shū)書(shū)編號(hào)查找該該圖書(shū)的記錄錄 Adodcc.RecoordSouurce = sellect * fromm bookk wherre boookid= _ & &

60、Trrim(TxxtBookkid.Teext) & Adodcc.Refrresh RecCoount1 = Adoodc.Reecordsset.ReecordCCount If RRecCouunt1 1 Thhen 根據(jù)據(jù)讀者編號(hào)查查找此讀者記記錄 Adoodc.ReecordSSourcee = sselectt * frrom reeader wheree readderid= _ & & Trim(TxtReeaderiid.Texxt) & Adoodc.Reefreshh ReccCountt2 = AAdodc.Recorrdset.RecorrdCounnt If Rec