【正文】 ook”,“caption”屬性改為“刪除圖書(shū)”。將標(biāo)志變量置為假 ActFlag = False 39。在數(shù)據(jù)庫(kù)表book中添加該新書(shū)記錄 = select * from book (bookid) = Trim() (bookname) = Trim() (bookstate) = 否 39。 39。 amp。則提示退出子程序 = select * from book where bookid= amp。判斷是否輸入了圖書(shū)編號(hào)和圖書(shū)名稱(chēng)信息，如果沒(méi)有輸入則發(fā)出提示并退出子程序 If Trim() = Or Trim() = Then MsgBox 請(qǐng)將內(nèi)容填寫(xiě)完整！, , 提示 Exit Sub End If 39。(37) 在窗體上添加一個(gè)框架控件(frame)，在“frame1”中添加一個(gè)命令按鈕(mandbutton)、兩個(gè)標(biāo)簽(label)、兩個(gè)文本框(textbox)和一個(gè)ADO數(shù)據(jù)控件(Adodc)，如下表所示：控件名稱(chēng)屬性名稱(chēng)屬性設(shè)置值Frame1Caption輸入數(shù)據(jù)Label1Caption圖書(shū)編號(hào)Label2Caption圖書(shū)名稱(chēng)Text1名稱(chēng)txtbookidtextText2名稱(chēng)txtbooknametextCommand1名稱(chēng)CmdsaveCaption保存Adodc1名稱(chēng)Adodcvisiblefalse(38) 根據(jù)”frmMain”主界面中的設(shè)置“Adodc”的方法來(lái)設(shè)置本窗體的“Adodc”的“connectionstring”屬性。顯示增加新書(shū)窗體 vbModal 39。若沒(méi)查到該圖書(shū)信息，則提示查無(wú)此書(shū)！信息，退出子程序 MsgBox 查無(wú)此書(shū)！, , 提示 Exit Sub End IfEnd Sub9．添加新書(shū)(35) 選擇菜單“圖書(shū)管理→增加新書(shū)”，在代碼編輯窗口中添加以下代碼：Private Sub AddBook_Click() 39。 39。 amp。 from book where bookid= amp。 , bookstate as amp。 , bookname as amp。如果查到的記錄數(shù) 0，則返回主界面在數(shù)據(jù)表格中顯示查到的圖書(shū)信息 RecCount = If RecCount 0 Then = select bookid as _ amp。 39。 _ amp。 from book where bookid= amp。 , bookstate as _ amp。 , bookname as amp。根據(jù)圖書(shū)編號(hào)查找該圖書(shū)信息 = select bookid as amp。(34) 雙擊“查詢(xún)”按鈕，在代碼編譯窗口中添加以下代碼：Private Sub CmdFind_Click() Dim RecCount As Integer 39。(31) 在窗體添加一個(gè)框架控件(Frame)和一個(gè)ADO數(shù)據(jù)控件(Adodc),在” Frame1”中添加一個(gè)命令按鈕(CommandButton)、一個(gè)標(biāo)簽(label)和一個(gè)文本框(textbox)。顯示查詢(xún)單冊(cè)窗體 vbModal 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。 from book 39。 ,bookstate as amp。 , bookname as amp。從數(shù)據(jù)庫(kù)表book中查找所有的圖書(shū)記錄 = select bookid as _ amp。 39。 Trim() amp。 39。如果存在該讀者的借閱記錄，提示此人有書(shū)未歸還，故不能刪除！信息，退出子程序 RecCount = If RecCount 0 Then MsgBox 此人有書(shū)未歸還，故不能刪除！, , 提示 Exit Sub End If 39。 39。 amp。根據(jù)讀者編號(hào)信息從數(shù)據(jù)庫(kù)表borrow中查找該讀者的借閱記錄 = select * from borrow where readerid= _ amp。 39。 Trim() amp。 39。判斷是否輸入了讀者編號(hào)信息，如果沒(méi)有輸入則發(fā)出提示并退出子程序 If Trim() = Then MsgBox 請(qǐng)?zhí)钊刖幪?hào)信息！, , 提示 Exit Sub End If 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所示。(24) 在窗體 上添加一個(gè)框架控件（Frame），在Frame1中添加一個(gè)命令按鈕、一個(gè)標(biāo)簽、一個(gè)文本框和一個(gè)ADO數(shù)據(jù)控件。顯示刪除一個(gè)讀者窗體 vbModal 39。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub6．刪除一個(gè)讀者(22) 選擇菜單“讀者管理→刪除一個(gè)讀者”，在代碼編輯窗口中添加以下代碼：Private Sub DelReader_Click() 39。如果該讀者已經(jīng)存在，則發(fā)出提示，并退出子程序 RecCount = If RecCount 0 Then MsgBox 已經(jīng)存在此讀者編號(hào)，請(qǐng)重新設(shè)置！, , 提示 Exit Sub End If 39。 39。 amp。根據(jù)讀者編號(hào)信息查找該讀者是否已經(jīng)存在 = select * from reader where readerid= _ amp。 圖22(21) 雙擊“保存”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdSave_Click() Dim RecCount As Integer 39。(19) 修改frmAddReader窗體控件的屬性，見(jiàn)表6。如果需要刷新數(shù)據(jù)表格，則顯示所有讀者信息 DispAllReader_Click End If ActFlag = FalseEnd Sub(17) 為工程添加一個(gè)新的窗體，講窗體的名稱(chēng)屬性改為“frmAddReader”，Caption屬性改為“增加一個(gè)讀者”。將標(biāo)志變量置為假 ActFlag = False 39。將標(biāo)志變量置為真 ActFlag = True Unload Me Else 39。 39。 amp。 from reader where readerid= _ amp。 ,booknum as amp。 , readername as amp。如果查到該讀者信息則釋放當(dāng)前窗體，回到主界面在數(shù)據(jù)表格上顯示查到的讀者信息 RecCount = If RecCount 0 Then = select readerid as _ amp。 39。 _ amp。 from reader where readerid= amp。 ,booknum as _ amp。 , readername as amp。根據(jù)讀者編號(hào)查詢(xún)讀者信息 = select readerid as amp。 圖21 (15) 雙擊“查詢(xún)”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdFind_Click() Dim RecCount As Integer 39。(13) 修改frmFindOneReader窗體控件的屬性，見(jiàn)表5。記錄條數(shù) 0時(shí)，刷新數(shù)據(jù)表格，顯示查詢(xún)結(jié)果 If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (查詢(xún)一個(gè)讀者) End If End If ActFlag = FalseEnd Sub(11) 為工程添加一個(gè)新的窗體，將新窗體的“名稱(chēng)”屬性改為“frmFindOneReader”，“Caption”屬性改為“查詢(xún)一個(gè)讀者”。顯示查詢(xún)一個(gè)讀者窗體 vbModal 39。 If RecCount 0 Then DisplayGrid (顯示所有讀者) Else MsgBox 未查到任何讀者記錄！, , 提示 DisplayGrid (顯示所有讀者) Exit Sub End IfEnd Sub4．查詢(xún)一個(gè)讀者(10) 選擇菜單“讀者管理→查詢(xún)一個(gè)讀者”，在代碼編輯窗口中添加以下代碼：Private Sub FindOneReader_Click() Dim RecCount As Integer 39。如果查到的記錄數(shù) 0，則顯示所有讀者信息，否則提示未查到任何讀者記錄，然后顯示一個(gè)空 39。 借閱圖書(shū)冊(cè)數(shù) _amp。 讀者姓名 amp。 讀者編號(hào) amp。將數(shù)據(jù)表格設(shè)置為用戶(hù)可見(jiàn) = TrueEnd Sub 表4 菜單結(jié)構(gòu)設(shè)置菜單項(xiàng)名稱(chēng)讀者管理ReaderMan….顯示所有讀者DispAllReader….查詢(xún)一個(gè)讀者FindOneReader….增加一個(gè)讀者AddReader….刪除一個(gè)讀者DelReader圖書(shū)管理BookMan….顯示所有圖書(shū)DispAllBook….查詢(xún)單冊(cè)FindOneBook….增加新書(shū)AddBook….刪除圖書(shū)DelBook借閱管理BorrowMan….顯示所有借閱情況DispAllBor….借書(shū)B(niǎo)orrow….還書(shū)Return….根據(jù)人來(lái)查書(shū)ReaderToBook….根據(jù)書(shū)來(lái)查人BookToReader3．顯示所有讀者(9) 選擇菜單“讀者管理→顯示所有讀者”，在代碼編輯窗口中添加以下代碼：Private Sub DispAllReader_Click() Dim RecCount As Integer 39。將數(shù)據(jù)表格綁定到ADO數(shù)據(jù)控件 Set = Adodc 39。