【正文】 圖20(8) 進(jìn)入frmMain窗體的代碼視圖，添加如下代碼：Public Sub DisplayGrid(CaptionStr As String)39。圖18 圖19(7) 選擇“Microsoft OLE DB Provider for ODBC Drivers”，單擊“下一步”按鈕，由“提供者”選項(xiàng)卡跳到“連接”選項(xiàng)卡，如圖20所示。(5) 單擊，彈出屬性頁對(duì)話框，如圖18所示。(4) 向窗體中添加兩個(gè)ADO數(shù)據(jù)控件（Adodc），將“Adodc1”的“名稱”屬性設(shè)置為“Adodc”，將“Adodc2”的“名稱”屬性設(shè)置為“AdodcTemp”，“Visible”屬性均設(shè)置為False。(3) 在窗體上添加一個(gè)框架控件（Frame），將其“Caption”屬性刪除，“BorderStyle”屬性選擇“0－None”。單擊打開按鈕，然后在該模塊的“代碼編輯窗口”中添加代碼如下：Public ActFlag As Boolean2．FrmMain窗體FrmMain窗體的設(shè)計(jì)步驟如下：(2) 選中“Form1”窗體，將該窗體的“名稱”屬性改為“frmMain”，“Caption”屬性改為“圖書管理系統(tǒng)”。 圖171．新建工程新建工程，并在工程資源管理器中將工程名稱屬性改為：。 圖15 圖165． 單擊確定按鈕，系統(tǒng)自動(dòng)返回ODBC數(shù)據(jù)源管理器，數(shù)據(jù)源“book”創(chuàng)建成功。3． 選擇“Driver Do Microsoft Access (*.mdb)”，單擊完成按鈕，出現(xiàn)ODBC Microsoft Access安裝對(duì)話框，如圖15所示，在數(shù)據(jù)源一項(xiàng)中輸入“book”。 在Windows XP操作系統(tǒng)環(huán)境下，本實(shí)例的ODBC設(shè)置步驟如下：1． 進(jìn)入“控制面板→管理工具”，雙擊“數(shù)據(jù)源（ODBC）”，出現(xiàn)“ODBC數(shù)據(jù)源管理器”，如圖13所示。 圖11 圖12二、創(chuàng)建數(shù)據(jù)庫(kù) 打開Access，建立一個(gè)名為bookdb的數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)中有兩張數(shù)據(jù)表：book、borrow和reader 。 圖9 圖10 選擇菜單“借閱管理→根據(jù)人來查書”，彈出對(duì)話框如圖11所示，要求輸入讀者編號(hào)，輸入完整的信息后單擊“查詢”按鈕，如果查詢操作成功，則在主界面的數(shù)據(jù)表格中列出當(dāng)前讀者所有的借閱情況。輸入完整的信息后單擊“借書”按鈕，如果借書成功，則在主界面的數(shù)據(jù)表格中列出當(dāng)前讀者的借閱情況。圖7 圖8 選擇菜單“借閱管理→顯示所有借閱情況”，則在主界面的數(shù)據(jù)表格中顯示所有的借閱記錄。4．借閱管理 選擇菜單“借閱管理”，如圖8所示。 圖2 圖3 圖4圖5 圖63．圖書管理 選擇菜單“圖書管理”，如圖7所示，該菜單項(xiàng)中有4個(gè)子菜單項(xiàng)：顯示所有圖書、查詢單冊(cè)、增加新書和刪除圖書。 選擇菜單“讀者管理→增加一個(gè)讀者”，彈出對(duì)話框如圖5所示，要求輸入讀者編號(hào)和讀者姓名，輸入完整的信息后單擊保存按鈕，系統(tǒng)判斷是否可以向數(shù)據(jù)庫(kù)中添加該讀者信息，如果添加成功，則在主界面的數(shù)據(jù)表格中列出數(shù)據(jù)庫(kù)中所有的讀者信息。 選擇菜單“讀者管理→查詢一個(gè)讀者”，彈出對(duì)話框如圖4所示，要求輸入要查詢的讀者編號(hào)信息。2．讀者管理 選擇菜單“讀者管理”，如圖2所示，該菜單項(xiàng)中有4個(gè)子菜單項(xiàng)：顯示所有讀者、查詢一個(gè)讀者、增加一個(gè)讀者和刪除一個(gè)讀者。四、本次實(shí)訓(xùn)的具體內(nèi)容:圖書信息管理系統(tǒng)系統(tǒng)功能分析：l 讀者基本信息的輸入l 讀者基本信息的查詢（要求能按讀者編號(hào)進(jìn)行查詢）l 讀者基本信息的修改l 圖書信息的輸入l 圖書信息的修改l 借閱信息的查詢（要求能根據(jù)人來查書、根據(jù)書來查人）l 讀者借書l 讀者還書以下是附加的功能：（選做）l 根據(jù)讀者姓名來查詢讀者信息l 根據(jù)書名來查詢圖書信息l 利用新窗口來修改讀者信息和圖書信息顯示所有圖書查詢單冊(cè)增加新書刪除圖書根據(jù)書來查人根據(jù)人來查書顯示所有借閱情況借書還書查詢一個(gè)讀者增加一個(gè)讀者刪除一個(gè)讀者顯示所有讀者讀者管理圖書管理借閱管理圖書管理系統(tǒng)系統(tǒng)功能模塊： 一、圖書信息管理系統(tǒng)功能介紹1．主界面圖1 程序運(yùn)行后主界面的效果如圖1所示。這部分不僅要求寫出問題，更希望寫出你的建議。6） 自我評(píng)價(jià)：即總結(jié)本次實(shí)訓(xùn)的個(gè)人心得體會(huì)。4） 實(shí)訓(xùn)計(jì)劃：做出本次實(shí)訓(xùn)的總體計(jì)劃并制定出實(shí)施計(jì)劃的具體步驟（可按完成功能模塊來劃分）及進(jìn)度安排，列出時(shí)間表。2） 實(shí)訓(xùn)目的：即通過本次實(shí)訓(xùn)要得到哪些方面的主要訓(xùn)練，將學(xué)會(huì)掌握哪些相關(guān)專業(yè)技能。二、實(shí)訓(xùn)報(bào)告（設(shè)計(jì)說明書）書寫的格式要求實(shí)訓(xùn)報(bào)告封面要依次填寫設(shè)計(jì)的科目、題目、專業(yè)、班級(jí)、姓名、學(xué)號(hào)、日期、指導(dǎo)老師等項(xiàng)目。③ 實(shí)訓(xùn)期間要嚴(yán)格按照實(shí)訓(xùn)報(bào)告格式要求認(rèn)真書寫實(shí)訓(xùn)報(bào)告（電子檔與手寫稿（或打印稿）），實(shí)訓(xùn)結(jié)束后將實(shí)訓(xùn)作品和實(shí)訓(xùn)報(bào)告一起上交指導(dǎo)老師批改、評(píng)分。② 實(shí)訓(xùn)上機(jī)期間，每個(gè)學(xué)生都要認(rèn)真聽從指導(dǎo)老師及實(shí)驗(yàn)老師的指揮，按時(shí)按量獨(dú)立完成實(shí)訓(xùn)的內(nèi)容。(3) 通過實(shí)訓(xùn)鞏固一學(xué)期來所學(xué)到的VB知識(shí)，熟練掌握計(jì)算機(jī)操件技能，培養(yǎng)開發(fā)的思想，同時(shí)產(chǎn)生濃厚的興趣，為今后進(jìn)一步學(xué)習(xí)打下基礎(chǔ)。VB實(shí)訓(xùn)指導(dǎo)書 ——圖書信息管理系統(tǒng)廣西機(jī)電職業(yè)技術(shù)學(xué)院一、實(shí)訓(xùn)周的具體按排和要求實(shí)訓(xùn)對(duì)象：07級(jí)電子商務(wù)專業(yè)學(xué)生實(shí)訓(xùn)時(shí)間：1周實(shí)訓(xùn)內(nèi)容：開發(fā)圖書信息管理系統(tǒng)實(shí)訓(xùn)目的：(1) 進(jìn)一步熟悉 VB的集成開發(fā)環(huán)境，掌握VB設(shè)計(jì)應(yīng)用程序的主要步驟，從而加深對(duì)面向可視化對(duì)象編程方法的認(rèn)識(shí)。(2) 了解并初步掌握用VB開發(fā)應(yīng)用程序界面、圖形圖像、數(shù)據(jù)庫(kù)、多媒體等實(shí)用內(nèi)容。實(shí)訓(xùn)要求說明：① 指導(dǎo)書給出的內(nèi)容只是完成基本功能，其它功能請(qǐng)查閱相關(guān)參考書。如有違紀(jì)者，將取消其實(shí)訓(xùn)的上機(jī)資格，并且其實(shí)訓(xùn)成績(jī)當(dāng)零分處理。 實(shí)訓(xùn)后期，將酌情安排現(xiàn)場(chǎng)測(cè)試與答辯，并將此項(xiàng)分?jǐn)?shù)按一定比例打入實(shí)訓(xùn)成績(jī)總評(píng)。報(bào)告內(nèi)頁書寫的具體內(nèi)容應(yīng)包含以下幾個(gè)方面：1） 實(shí)訓(xùn)名稱：即實(shí)訓(xùn)題目。3） 實(shí)訓(xùn)環(huán)境：既設(shè)備（硬件、系統(tǒng)平臺(tái)）、開發(fā)工具、方法手段等。5） 關(guān)鍵技術(shù)與解決途徑：本次實(shí)訓(xùn)的技術(shù)要點(diǎn)（可按實(shí)訓(xùn)計(jì)劃里制定的具體步驟一一編寫），并要求寫出如何解決這些技術(shù)要點(diǎn)（要求編寫源代碼并附上代碼說明，必要時(shí)請(qǐng)附上截圖）。包括對(duì)這次實(shí)訓(xùn)任務(wù)完成情況的評(píng)價(jià)；實(shí)訓(xùn)的收獲與預(yù)期目標(biāo)是否一致的評(píng)價(jià)以及對(duì)實(shí)訓(xùn)組織、安排、管理等方面的評(píng)價(jià)。三、實(shí)訓(xùn)成績(jī)的評(píng)定標(biāo)準(zhǔn)指導(dǎo)老師根據(jù)學(xué)生實(shí)訓(xùn)期間的表現(xiàn)、實(shí)訓(xùn)內(nèi)容的完成情況以及所寫的實(shí)訓(xùn)報(bào)告（設(shè)計(jì)說明書）給予該生優(yōu)、良、中、及格、不及格等綜合評(píng)定等級(jí)，并作為該實(shí)訓(xùn)課程的期評(píng)成績(jī)上報(bào)成績(jī)。可以看到，窗體的上部是菜單欄，包含3個(gè)菜單項(xiàng)，即：讀者管理、圖書管理和借閱管理。 選擇菜單“讀者管理→顯示所有讀者”，則在主界面的數(shù)據(jù)表格中列出所有的讀者信息，如圖3所示。輸入讀者編號(hào)后單擊“查詢”按鈕，則在主界面的數(shù)據(jù)表格中列出該讀者的信息；否則，系統(tǒng)提示用戶“查無此人”。 選擇菜單“讀者管理→刪除一個(gè)讀者”，彈出對(duì)話框如圖6所示，要求輸入讀者編號(hào)，輸入完整的信息后單擊“刪除”按鈕，若該刪除操作成功，則在主界面的數(shù)據(jù)表格中顯示剩余的所有讀者信息。該菜單項(xiàng)功能與讀者管理部分類似，在此不再重復(fù)。該菜單項(xiàng)中有5個(gè)子菜單項(xiàng)：顯示所有借閱情況、借書、還書、根據(jù)書來查人和根據(jù)人來查書。 選擇菜單“借閱管理→借書”，彈出對(duì)話框如圖9所示，要求用戶輸入所借圖書編號(hào)和讀者編號(hào)。 選擇菜單“借閱管理→還書”，彈出對(duì)話框如圖10所示，要求輸入所借圖書編號(hào)，輸入完整的信息后單擊“還書”按鈕，如果還書成功，則在主界面的數(shù)據(jù)表格中列出當(dāng)前讀者還書后的借閱情況。 選擇菜單“借閱管理→根據(jù)書來查人”，彈出對(duì)話框如圖12所示，系統(tǒng)顯示相應(yīng)的信息提示，如果查詢操作成功，則在主界面的數(shù)據(jù)表格中列出當(dāng)前圖書的借閱情況。三張表的字段信息如下:表1 book表項(xiàng)內(nèi)容字段名稱數(shù)據(jù)類型字段大小bookid文本15bookname文本100bookstate文本4（將bookid字段設(shè)為主鍵）表2 borrow表項(xiàng)內(nèi)容字段名稱數(shù)據(jù)類型字段大小bookid文本15readerid文本15（將bookid字段設(shè)為主鍵）表3 reader表項(xiàng)內(nèi)容字段名稱數(shù)據(jù)類型字段大小readerid文本15readername文本20booknum文本4（將readerid字段設(shè)為主鍵）三、創(chuàng)建數(shù)據(jù)源(ODBC) 基于SQL的ODBC（Open DataBase Connectivity，開放式數(shù)據(jù)庫(kù)連接）是Microsoft公司在1989年退出的連接外部數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)，若采用這套標(biāo)準(zhǔn)，一個(gè)應(yīng)用程序就可以通過一組通用的代碼訪問不同的數(shù)據(jù)庫(kù)管理系統(tǒng)。 圖13 圖142． 單擊“添加”按鈕，出現(xiàn)創(chuàng)建數(shù)據(jù)源對(duì)話框，如圖14所示。4． 單擊“選擇……”按鈕，出現(xiàn)選擇數(shù)據(jù)庫(kù)對(duì)話框，如圖16所示，首先選擇數(shù)據(jù)庫(kù)所在的驅(qū)動(dòng)器，然后在目錄中選擇數(shù)據(jù)庫(kù)的路徑，這樣在“數(shù)據(jù)庫(kù)名”一欄中就會(huì)列出相應(yīng)的Access數(shù)據(jù)庫(kù)，然后單擊選定數(shù)據(jù)庫(kù)“bookdb”。四、圖書管理系統(tǒng)實(shí)現(xiàn) ，該工程包含所有文件如圖17所示。選擇菜單“工程→部件”，從控件列表中選中如下選項(xiàng)： Microsoft ADO Data Control (OLEDB) Microsoft DataGrid Control (OLEDB)(1) 在“工程資源管理器”窗口中單擊鼠標(biāo)右鍵，選擇“添加→添加模塊”。在窗體上設(shè)計(jì)一個(gè)菜單，該菜單結(jié)構(gòu)見表4。在Fram1中添加一個(gè)數(shù)據(jù)表格（DataGrid），將其“名稱”屬性設(shè)置為“DataGrid”，“