【正文】 39。 Trim() amp。 39。 = and = _ amp。 所借圖書名稱 amp。 所借圖書編號(hào) amp。 讀者姓名 _ amp。 讀者編號(hào) amp。如果查找的記錄條數(shù)為0，則提示無(wú)人借此書！信息，退出子程序 If RecCount 1 Then MsgBox 無(wú)人借此書！, , 提示 Exit Sub Else 39。 39。 amp。根據(jù)圖書編號(hào)從數(shù)據(jù)庫(kù)表borrow中查找該圖書得借閱記錄 = select * from borrow where bookid= _ amp。 RecCount = 39。 Trim() amp。 39。判斷用戶是否輸入了讀者編號(hào)，如果沒(méi)有輸入信息，則發(fā)出提示并退出子程序 If Trim() = Then MsgBox 請(qǐng)輸入查詢條件！, , 提示 Exit Sub End If 39。(66) 在窗體上添加一個(gè)框架控件(Frame),在“Frame1”中添加一個(gè)命令按鈕(CommandButton)、一個(gè)標(biāo)簽(Label)、一個(gè)文本框(Textbox)和一個(gè)ADO數(shù)據(jù)控件(Adodc).(67) 修改frmbooktoreader窗體控件的屬性，如下表所示：控件名稱屬性名稱屬性設(shè)置值Frame1Caption輸入查詢條件Label1Caption圖書編號(hào)Text1名稱TxtbookidTextCommand1名稱CmdFindCaption查詢Adodc1名稱AdodcVisibleFalse(68) 根據(jù)“frmMain”主界面中設(shè)置“Adodc”的方法來(lái)設(shè)置本窗體的“Adodc”的“Connectionstring”屬性。顯示根據(jù)數(shù)來(lái)查人窗體 vbModal 39。39。 39。 Trim() amp。 39。 = and = _ amp。 所借圖書名稱 amp。 所借圖書編號(hào) amp。 讀者姓名 _ amp。 讀者編號(hào) amp。如果查到的記錄條數(shù)為0，則提示此人未借書！，退出子程序 MsgBox 此人未借書！, , 提示 Exit Sub Else 39。 39。 amp。根據(jù)讀者編號(hào)在數(shù)據(jù)庫(kù)表borrow中查找該讀者得借閱記錄 = select * from borrow where readerid= amp。 RecCount = 39。 Trim() amp。 39。判斷是否輸入了讀者編號(hào)信息，如果沒(méi)有輸入數(shù)據(jù)，則發(fā)出提示并退出子程序 If Trim() = Then MsgBox 請(qǐng)輸入查詢條件！, , 提示 Exit Sub End If 39。(60) 在窗體上添加一個(gè)框架控件(Frame),在“Frame1”中添加一個(gè)命令按鈕(mandbutton),一個(gè)標(biāo)簽(Label)、一個(gè)文本框(Textbox)和一個(gè)ADO數(shù)據(jù)控件(Adodc).(61) 修改frmReaderToBook窗體控件的屬性，如下表所示：控件名稱屬性名稱屬性設(shè)置值Frame1Caption輸入查詢條件Label1Caption讀者編號(hào)Text1名稱TxtreaderidTextCommand1名稱CmdFindCaption查詢Adodc1名稱AdodcVisibleFalse(62) 根據(jù)“frmMain”主界面中設(shè)置“Adodc”的方法來(lái)設(shè)置本窗體的“Adodc”的“ConnectionString”屬性。顯示根據(jù)人來(lái)查書窗體 vbModal 39。39。 39。 DelReaderidStr amp。 39。 = and = _ amp。 所借圖書名稱 amp。 所借圖書編號(hào) amp。 讀者姓名 _ amp。 讀者編號(hào) amp。將該讀者的借閱冊(cè)數(shù)減1 (booknum) = (booknum) 1 End If 39。 39。 amp。根據(jù)讀者編號(hào)查找該讀者的記錄 = select * from reader where readerid= _ amp。 RecCount = 39。 Trim() amp。 39。刪除在borrow表中該圖書的借閱記錄 39。如果沒(méi)有查到該圖書的借閱記錄，則提示此書并未被借出，故不需歸還！，退出子程序 If RecCount 1 Then MsgBox 此書并未被借出，故不需歸還！, , 提示 Exit Sub End If 39。 39。 amp。根據(jù)圖書編號(hào)在數(shù)據(jù)庫(kù)表borrow中查找該圖書得借閱記錄 = select * from borrow where bookid= _ amp。 RecCount = 39。 Trim() amp。 39。判斷是否輸入了所還圖書的圖書編號(hào) If Trim() = Then MsgBox 請(qǐng)將數(shù)據(jù)填寫完整！, , 提示 Exit Sub End If 39。(54) 在窗體上添加一個(gè)框架控件(Frame)，在”Frame1”中添加一個(gè)命令按鈕(Commandbutton),一個(gè)標(biāo)簽(Label),一個(gè)文本框架(TextBox)和一個(gè)ADO數(shù)據(jù)控件(Adodc).(55) 修改frmReturn窗體控件的屬性，如下表所示：控件名稱屬性名稱屬性設(shè)置Frame1Caption輸入數(shù)據(jù)Label1Caption圖書編號(hào)Text1名稱TxtbookidTextCommand1名稱CmdreturnCaption還書Adodc1名稱AdodcVisibleFalse(56) 運(yùn)用“frmMain”主界面中設(shè)置“Adodc”的方法來(lái)設(shè)置本窗體的“Adodc”的“ConnectionString”屬性。顯示還書窗體 vbModal 39。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub13．還書(52) 選擇菜單“借閱管理→還書”,在代碼編輯窗口中添加以下代碼：Private Sub Return_Click() Dim RecCount As Integer 39。 39。 amp。 and = amp。 from borrow,reader,book where _ amp。 , as _ amp。 , as amp。 , as amp。修改主界面臨時(shí)ADO數(shù)據(jù)控件的RecordSource屬性，以備刷新數(shù)據(jù)表格用 = select as _ amp。 39。 Trim() amp。 39。在數(shù)據(jù)庫(kù)表borrow中添加一條相應(yīng)的借閱記錄 = select * from borrow (bookid) = Trim() (readerid) = Trim() 39。 39。 Trim() amp。 39。如果沒(méi)有此圖書，但是有此讀者，則提示查無(wú)此書！信息 MsgBox 查無(wú)此書！, , 提示 Exit Sub End If End If 39。 RecCount2 = If RecCount2 1 Then 39。 Trim() amp。 39。 RecCount1 = If RecCount1 1 Then 39。 Trim() amp。 39。如果該圖書存在，沒(méi)有借出，然而此讀者不存在，則提示查無(wú)此人！ MsgBox 查無(wú)此人！, , 提示 Exit Sub End If End If 39。 39。 amp。根據(jù)讀者編號(hào)查找該讀者記錄 = select * from reader where readerid= _ amp。如果該圖書存在并且已經(jīng)借出，又不存在此讀者，則提示該書已經(jīng)借出，也無(wú)此人！ MsgBox 該書已經(jīng)借出，也無(wú)此人！, , 提示 Exit Sub Else 39。 39。 amp。根據(jù)讀者編號(hào)查找該讀者記錄是否存在 = select * from reader where readerid= _ amp。 39。 amp。根據(jù)圖書編號(hào)查詢?cè)搱D書記錄是否存在 = select * from book where bookid= amp。(51) 雙擊“借書”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdBorrow_Click() Dim RecCount1 As Integer Dim RecCount2 As Integer Dim BookStateStr As String 39。(48) 在窗體上添加一個(gè)框架控件(Frame)，在Frame1中添加一個(gè)命令按鈕(Commandbutton)、兩個(gè)標(biāo)簽(Label)、兩個(gè)文本框(Textbox)和一個(gè)ADO數(shù)據(jù)控件(Adodc)。顯示借書窗體 vbModal 39。否則，提示沒(méi)有任何借閱記錄！信息并顯示一個(gè)空表 MsgBox 沒(méi)有任何借閱記錄！, , 提示 DisplayGrid (顯示所有借閱情況) Exit Sub End IfEnd Sub12．借書(46) 選擇菜單“借閱管理→借書”，在代碼編輯窗口中添加以下代碼：Private Sub Borrow_Click() Dim RecCount As Integer 39。 = RecCount = If RecCount 0 Then 39。 from borrow,reader,book _ amp。 , as _ amp。 , as amp。 , as amp。用多表連接查詢語(yǔ)句查詢所有的圖書借閱記錄 = select as _ amp。刪除該圖書記錄 39。如果沒(méi)有該圖書的信息，則提示查無(wú)此書！信息，退出子程序 If RecCount 1 Then MsgBox 查無(wú)此書！, , 提示 Exit Sub End If 39。 39。 amp。 = select * from book where bookid= _ amp。判斷是否輸入圖書編號(hào)，如果沒(méi)有輸入數(shù)據(jù)，則發(fā)出提示并退出子程序 If Trim() = Then MsgBox 請(qǐng)?zhí)钊刖幪?hào)信息！, , 提示 Exit Sub End If 39。判斷是否需要刷新數(shù)據(jù)表格，如果需要的話則在數(shù)據(jù)表格中顯示所有的圖書記錄 If ActFlag Then DispAllBook_Click End If ActFlag = FalseEnd Sub(41) 為工程添加一個(gè)新的窗體，將新窗體“(名稱)”屬性改為“frmdelb