【正文】 下代碼：Private Sub Borrow_Click() Dim RecCount As Integer 39。根據(jù)圖書編號查詢該圖書記錄是否存在 = select * from book where bookid= amp。 amp。 amp。 Trim() amp。 RecCount2 = If RecCount2 1 Then 39。 39。 39。 , as _ amp。 39。判斷是否輸入了所還圖書的圖書編號 If Trim() = Then MsgBox 請將數(shù)據(jù)填寫完整！, , 提示 Exit Sub End If 39。根據(jù)圖書編號在數(shù)據(jù)庫表borrow中查找該圖書得借閱記錄 = select * from borrow where bookid= _ amp。刪除在borrow表中該圖書的借閱記錄 39。根據(jù)讀者編號查找該讀者的記錄 = select * from reader where readerid= _ amp。 讀者編號 amp。 = and = _ amp。39。 39。 amp。 讀者姓名 _ amp。 39。顯示根據(jù)數(shù)來查人窗體 vbModal 39。 Trim() amp。 39。 所借圖書編號 amp。 Trim() amp。 39。 讀者姓名 _ amp。 amp。 39。39。 = and = _ amp。 讀者編號 amp。根據(jù)讀者編號在數(shù)據(jù)庫表borrow中查找該讀者得借閱記錄 = select * from borrow where readerid= amp。判斷是否輸入了讀者編號信息，如果沒有輸入數(shù)據(jù)，則發(fā)出提示并退出子程序 If Trim() = Then MsgBox 請輸入查詢條件！, , 提示 Exit Sub End If 39。 39。 所借圖書名稱 amp。將該讀者的借閱冊數(shù)減1 (booknum) = (booknum) 1 End If 39。 RecCount = 39。如果沒有查到該圖書的借閱記錄，則提示此書并未被借出，故不需歸還！，退出子程序 If RecCount 1 Then MsgBox 此書并未被借出，故不需歸還！, , 提示 Exit Sub End If 39。 RecCount = 39。(54) 在窗體上添加一個框架控件(Frame)，在”Frame1”中添加一個命令按鈕(Commandbutton),一個標(biāo)簽(Label),一個文本框架(TextBox)和一個ADO數(shù)據(jù)控件(Adodc).(55) 修改frmReturn窗體控件的屬性，如下表所示：控件名稱屬性名稱屬性設(shè)置Frame1Caption輸入數(shù)據(jù)Label1Caption圖書編號Text1名稱TxtbookidTextCommand1名稱CmdreturnCaption還書Adodc1名稱AdodcVisibleFalse(56) 運用“frmMain”主界面中設(shè)置“Adodc”的方法來設(shè)置本窗體的“Adodc”的“ConnectionString”屬性。 amp。 , as amp。 Trim() amp。 Trim() amp。 Trim() amp。 39。根據(jù)讀者編號查找該讀者記錄 = select * from reader where readerid= _ amp。根據(jù)讀者編號查找該讀者記錄是否存在 = select * from reader where readerid= _ amp。(51) 雙擊“借書”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdBorrow_Click() Dim RecCount1 As Integer Dim RecCount2 As Integer Dim BookStateStr As String 39。 = RecCount = If RecCount 0 Then 39。 , as amp。 39。判斷是否需要刷新數(shù)據(jù)表格，如果需要的話則在數(shù)據(jù)表格中顯示所有的圖書記錄 If ActFlag Then DispAllBook_Click End If ActFlag = FalseEnd Sub(41) 為工程添加一個新的窗體，將新窗體“(名稱)”屬性改為“frmdelbook”,“caption”屬性改為“刪除圖書”。 amp。顯示增加新書窗體 vbModal 39。 from book where bookid= amp。 39。 , bookname as amp。顯示查詢單冊窗體 vbModal 39。 , bookname as amp。 39。根據(jù)讀者編號信息從數(shù)據(jù)庫表borrow中查找該讀者的借閱記錄 = select * from borrow where readerid= _ amp。判斷是否輸入了讀者編號信息，如果沒有輸入則發(fā)出提示并退出子程序 If Trim() = Then MsgBox 請?zhí)钊刖幪栃畔ⅲ? , 提示 Exit Sub End If 39。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub6．刪除一個讀者(22) 選擇菜單“讀者管理→刪除一個讀者”，在代碼編輯窗口中添加以下代碼：Private Sub DelReader_Click() 39。根據(jù)讀者編號信息查找該讀者是否已經(jīng)存在 = select * from reader where readerid= _ amp。將標(biāo)志變量置為假 ActFlag = False 39。 from reader where readerid= _ amp。 39。 , readername as amp。記錄條數(shù) 0時，刷新數(shù)據(jù)表格，顯示查詢結(jié)果 If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (查詢一個讀者) End If End If ActFlag = FalseEnd Sub(11) 為工程添加一個新的窗體，將新窗體的“名稱”屬性改為“frmFindOneReader”，“Caption”屬性改為“查詢一個讀者”。 借閱圖書冊數(shù) _amp。將數(shù)據(jù)表格綁定到ADO數(shù)據(jù)控件 Set = Adodc 39。(4) 向窗體中添加兩個ADO數(shù)據(jù)控件（Adodc），將“Adodc1”的“名稱”屬性設(shè)置為“Adodc”，將“Adodc2”的“名稱”屬性設(shè)置為“AdodcTemp”，“Visible”屬性均設(shè)置為False。 圖15 圖165． 單擊確定按鈕，系統(tǒng)自動返回ODBC數(shù)據(jù)源管理器，數(shù)據(jù)源“book”創(chuàng)建成功。 圖9 圖10 選擇菜單“借閱管理→根據(jù)人來查書”，彈出對話框如圖11所示，要求輸入讀者編號，輸入完整的信息后單擊“查詢”按鈕，如果查詢操作成功，則在主界面的數(shù)據(jù)表格中列出當(dāng)前讀者所有的借閱情況。 圖2 圖3 圖4圖5 圖63．圖書管理 選擇菜單“圖書管理”，如圖7所示，該菜單項中有4個子菜單項：顯示所有圖書、查詢單冊、增加新書和刪除圖書。四、本次實訓(xùn)的具體內(nèi)容:圖書信息管理系統(tǒng)系統(tǒng)功能分析：l 讀者基本信息的輸入l 讀者基本信息的查詢（要求能按讀者編號進行查詢）l 讀者基本信息的修改l 圖書信息的輸入l 圖書信息的修改l 借閱信息的查詢（要求能根據(jù)人來查書、根據(jù)書來查人）l 讀者借書l 讀者還書以下是附加的功能：（選做）l 根據(jù)讀者姓名來查詢讀者信息l 根據(jù)書名來查詢圖書信息l 利用新窗口來修改讀者信息和圖書信息顯示所有圖書查詢單冊增加新書刪除圖書根據(jù)書來查人根據(jù)人來查書顯示所有借閱情況借書還書查詢一個讀者增加一個讀者刪除一個讀者顯示所有讀者讀者管理圖書管理借閱管理圖書管理系統(tǒng)系統(tǒng)功能模塊： 一、圖書信息管理系統(tǒng)功能介紹1．主界面圖1 程序運行后主界面的效果如圖1所示。2） 實訓(xùn)目的：即通過本次實訓(xùn)要得到哪些方面的主要訓(xùn)練，將學(xué)會掌握哪些相關(guān)專業(yè)技能。(3) 通過實訓(xùn)鞏固一學(xué)期來所學(xué)到的VB知識，熟練掌握計算機操件技能，培養(yǎng)開發(fā)的思想，同時產(chǎn)生濃厚的興趣，為今后進一步學(xué)習(xí)打下基礎(chǔ)。如有違紀(jì)者，將取消其實訓(xùn)的上機資格，并且其實訓(xùn)成績當(dāng)零分處理。5） 關(guān)鍵技術(shù)與解決途徑：本次實訓(xùn)的技術(shù)要點（可按實訓(xùn)計劃里制定的具體步驟一一編寫），并要求寫出如何解決這些技術(shù)要點（要求編寫源代碼并附上代碼說明，必要時請附上截圖）。 選擇菜單“讀者管理→顯示所有讀者”，則在主界面的數(shù)據(jù)表格中列出所有的讀者信息，如圖3所示。該菜單項中有5個子菜單項：顯示所有借閱情況、借書、還書、根據(jù)書來查人和根據(jù)人來查書。三張表的字段信息如下:表1 book表項內(nèi)容字段名稱數(shù)據(jù)類型字段大小bookid文本15bookname文本100bookstate文本4（將bookid字段設(shè)為主鍵）表2 borrow表項內(nèi)容字段名稱數(shù)據(jù)類型字段大小bookid文本15readerid文本15（將bookid字段設(shè)為主鍵）表3 reader表項內(nèi)容字段名稱數(shù)據(jù)類型字段大小readerid文本15readername文本20booknum文本4（將readerid字段設(shè)為主鍵）三、創(chuàng)建數(shù)據(jù)源(ODBC) 基于SQL的ODBC（Open DataBase Connectivity，開放式數(shù)據(jù)庫連接）是Microsoft公司在1989年退出的連接外部數(shù)據(jù)庫的標(biāo)準(zhǔn)，若采用這套標(biāo)準(zhǔn)，一個應(yīng)用程序就可以通過一組通用的代碼訪問不同的數(shù)據(jù)庫管理系統(tǒng)。選擇菜單“工