【正文】 from borrow,reader,book where _ amp。如果查到的條數(shù)為0，則提示查無(wú)此書(shū)信息，退出子程序 If RecCount 1 Then MsgBox 查無(wú)此書(shū), , 提示 Exit Sub End If 39。 39。 RecCount = If RecCount 1 Then 39。判斷是否需要在數(shù)據(jù)表格中顯示根據(jù)人來(lái)查書(shū) If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (根據(jù)人來(lái)查書(shū)) End If End If ActFlag = FalseEnd Sub(59) 為工程添加一個(gè)新的窗體，將新窗體“(名稱(chēng))”屬性改為“frmReaderToBook”,“Caption”屬性改為“根據(jù)人來(lái)查書(shū)”。 , as amp。 amp。 amp。 = and = _ amp。在數(shù)據(jù)庫(kù)表reader中查找到該讀者的記錄 = select * from reader where readerid= _ amp。根據(jù)讀者編號(hào)查找此讀者記錄 = select * from reader where readerid= _ amp。 RecCount2 = If RecCount2 1 Then 39。判斷是否需要刷新數(shù)據(jù)表格，如果需要?jiǎng)t顯示剛才借書(shū)讀者的借閱記錄 If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (此人借閱記錄) End If End If ActFlag = FalseEnd Sub(47) 為工程添加一個(gè)新的窗體，將新窗體”(名稱(chēng))”屬性改為”Frmborrow”，”Caption”屬性改為“借書(shū)”。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub11．顯示所有借閱情況(45) 選擇菜單“借閱管理→顯示所有借閱記錄”，進(jìn)入代碼編輯窗口中添加代碼如下：Private Sub DispAllBor_Click() Dim RecCount As Integer 39。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub10．刪除圖書(shū)(40) 選擇菜單“圖書(shū)管理→刪除圖書(shū)“，在代碼編輯窗口中添加以下代碼：Private Sub DelBook_Click() 39。 ActFlag = True Unload Me Else 39。 39。如果查到的記錄數(shù) 0則刷新數(shù)據(jù)表格顯示查到的圖書(shū)信息，否則提示未查到任何圖書(shū)記錄！信息 39。 39。(25) 修改frmDelReader窗體控件的屬性，見(jiàn)表7。表6 frmAddReader窗體控件屬性控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值 Frame1 Caption 輸入數(shù)據(jù) Label1Caption 讀者編號(hào) Label2Caption 讀者姓名Text1Text 名稱(chēng) TxtReaderidText2Text名稱(chēng) TxtReaderNameCommand1名稱(chēng) CmdSave Caption 保存Adodc1名稱(chēng) AdodcVisible False(20) 運(yùn)用frmMain主界面中設(shè)置Adodc的方法來(lái)設(shè)置本窗體的Adodc，完成后的frmAddReader窗體效果如圖22所示。 讀者姓名 _ amp。判斷用戶(hù)是否輸入了讀者編號(hào)信息，如果沒(méi)有輸入信息，則發(fā)出提示退出子程序 If Trim() = Then MsgBox 查詢(xún)條件不能為空，請(qǐng)?zhí)顚?xiě)！, , 提示 Exit Sub End If 39。 _, readername as amp。在窗體上設(shè)計(jì)一個(gè)菜單，該菜單結(jié)構(gòu)見(jiàn)表4。 選擇菜單“借閱管理→借書(shū)”，彈出對(duì)話(huà)框如圖9所示，要求用戶(hù)輸入所借圖書(shū)編號(hào)和讀者編號(hào)。包括對(duì)這次實(shí)訓(xùn)任務(wù)完成情況的評(píng)價(jià)；實(shí)訓(xùn)的收獲與預(yù)期目標(biāo)是否一致的評(píng)價(jià)以及對(duì)實(shí)訓(xùn)組織、安排、管理等方面的評(píng)價(jià)。VB實(shí)訓(xùn)指導(dǎo)書(shū) ——圖書(shū)信息管理系統(tǒng)廣西機(jī)電職業(yè)技術(shù)學(xué)院一、實(shí)訓(xùn)周的具體按排和要求實(shí)訓(xùn)對(duì)象：07級(jí)電子商務(wù)專(zhuān)業(yè)學(xué)生實(shí)訓(xùn)時(shí)間：1周實(shí)訓(xùn)內(nèi)容：開(kāi)發(fā)圖書(shū)信息管理系統(tǒng)實(shí)訓(xùn)目的：(1) 進(jìn)一步熟悉 VB的集成開(kāi)發(fā)環(huán)境，掌握VB設(shè)計(jì)應(yīng)用程序的主要步驟，從而加深對(duì)面向可視化對(duì)象編程方法的認(rèn)識(shí)。這部分不僅要求寫(xiě)出問(wèn)題，更希望寫(xiě)出你的建議。輸入完整的信息后單擊“借書(shū)”按鈕，如果借書(shū)成功，則在主界面的數(shù)據(jù)表格中列出當(dāng)前讀者的借閱情況。(3) 在窗體上添加一個(gè)框架控件（Frame），將其“Caption”屬性刪除，“BorderStyle”屬性選擇“0－None”。 讀者姓名 amp。根據(jù)讀者編號(hào)查詢(xún)讀者信息 = select readerid as amp。 ,booknum as amp。 圖22(21) 雙擊“保存”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdSave_Click() Dim RecCount As Integer 39。表7 FrmDelReader窗體控件屬性控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值Frame1Caption 輸入編號(hào)Label1Caption 讀者編號(hào)Text1名稱(chēng)TxtReaderidTextCommand1名稱(chēng)CmdDelCaption刪除Adodc1名稱(chēng)AdodcVisibelFalse(26) 運(yùn)用frmMain主界面中設(shè)置Adodc的方法來(lái)設(shè)置本窗體的Adodc，完成后的frmDelReader窗體效果如圖22所示。如果存在該讀者的借閱記錄，提示此人有書(shū)未歸還，故不能刪除！信息，退出子程序 RecCount = If RecCount 0 Then MsgBox 此人有書(shū)未歸還，故不能刪除！, , 提示 Exit Sub End If 39。并刷新數(shù)據(jù)表格顯示空表 RecCount = If RecCount 0 Then DisplayGrid (顯示所有圖書(shū)) Else MsgBox 未查到任何圖書(shū)記錄！, , 提示 DisplayGrid (顯示所有圖書(shū)) Exit Sub End IfEnd Sub8．查詢(xún)單冊(cè)(29) 選擇菜單“圖書(shū)管理→查詢(xún)單冊(cè)”，在代碼編輯窗口中添加以下代碼：Private Sub FindOneBook_Click() Dim RecCount As Integer 39。 _ amp。若沒(méi)查到該圖書(shū)信息，則提示查無(wú)此書(shū)！信息，退出子程序 MsgBox 查無(wú)此書(shū)！, , 提示 Exit Sub End IfEnd Sub9．添加新書(shū)(35) 選擇菜單“圖書(shū)管理→增加新書(shū)”，在代碼編輯窗口中添加以下代碼：Private Sub AddBook_Click() 39。將標(biāo)志變量置為假 ActFlag = False 39。用多表連接查詢(xún)語(yǔ)句查詢(xún)所有的圖書(shū)借閱記錄 = select as _ amp。(48) 在窗體上添加一個(gè)框架控件(Frame)，在Frame1中添加一個(gè)命令按鈕(Commandbutton)、兩個(gè)標(biāo)簽(Label)、兩個(gè)文本框(Textbox)和一個(gè)ADO數(shù)據(jù)控件(Adodc)。如果該圖書(shū)存在并且已經(jīng)借出，又不存在此讀者，則提示該書(shū)已經(jīng)借出，也無(wú)此人！ MsgBox 該書(shū)已經(jīng)借出，也無(wú)此人！, , 提示 Exit Sub Else 39。 39。 39。 and = amp。 Trim() amp。 Trim() amp。 所借圖書(shū)編號(hào) amp。(60) 在窗體上添加一個(gè)框架控件(Frame),在“Frame1”中添加一個(gè)命令按鈕(mandbutton),一個(gè)標(biāo)簽(Label)、一個(gè)文本框(Textbox)和一個(gè)ADO數(shù)據(jù)控件(Adodc).(61) 修改frmReaderToBook窗體控件的屬性，如下表所示：控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值Frame1Caption輸入查詢(xún)條件Label1Caption讀者編號(hào)Text1名稱(chēng)TxtreaderidTextCommand1名稱(chēng)CmdFindCaption查詢(xún)Adodc1名稱(chēng)AdodcVisibleFalse(62) 根據(jù)“frmMain”主界面中設(shè)置“Adodc”的方法來(lái)設(shè)置本窗體的“Adodc”的“ConnectionString”屬性。如果查到的記錄條數(shù)為0，則提示此人未借書(shū)！，退出子程序 MsgBox 此人未借書(shū)！, , 提示 Exit Sub Else 39。 39。根據(jù)圖書(shū)編號(hào)從數(shù)據(jù)庫(kù)表borrow中查找該圖書(shū)得借閱記錄 = select * from borrow where bookid= _ amp。 = and = _ amp。 所借圖書(shū)名稱(chēng) amp。 RecCount = 39。 Trim() amp。 39。顯示根據(jù)人來(lái)查書(shū)窗體 vbModal 39。 讀者姓名 _ amp。 39。 39。 from borrow,reader,book where _ amp。在數(shù)據(jù)庫(kù)表borrow中添加一條相應(yīng)的借閱記錄 = select * from borrow (bookid) = Trim() (readerid) = Trim() 39。 RecCount1 = If RecCount1 1 Then 39。 39。顯示借書(shū)窗體 vbModal 39。刪除該圖書(shū)記錄 39。在數(shù)據(jù)庫(kù)表book中添加該新書(shū)記錄 = select * from book (bookid) = Trim() (bookname) = Trim() (bookstate) = 否 39。 39。 from book where bookid= amp。 from book 39。 39。(24) 在窗體 上添加一個(gè)框架控件（Frame），在Frame1中添加一個(gè)命令按鈕、一個(gè)標(biāo)簽、一個(gè)文本框和一個(gè)ADO數(shù)據(jù)控件。(19) 修改frmAddReader窗體控件的屬性，見(jiàn)表6。 , readername as amp。 圖21 (15) 雙擊“查詢(xún)”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdFind_C