【文章內(nèi)容簡(jiǎn)介】 來(lái)設(shè)置本窗體的Adodc，完成后的frmDelReader窗體效果如圖22所示。 圖22(27) 雙擊“刪除”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdDel_Click() Dim RecCount As Integer 39。判斷是否輸入了讀者編號(hào)信息，如果沒(méi)有輸入則發(fā)出提示并退出子程序 If Trim() = Then MsgBox 請(qǐng)?zhí)钊刖幪?hào)信息！, , 提示 Exit Sub End If 39。根據(jù)讀者編號(hào)查找讀者信息 = select * from reader where readerid= _ amp。 39。 amp。 Trim() amp。 39。 39。如果沒(méi)有該讀者信息則提示查無(wú)此人！信息，退出子程序 RecCount = If RecCount 1 Then MsgBox 查無(wú)此人！, , 提示 Exit Sub End If 39。根據(jù)讀者編號(hào)信息從數(shù)據(jù)庫(kù)表borrow中查找該讀者的借閱記錄 = select * from borrow where readerid= _ amp。 39。 amp。 Trim() amp。 39。 39。如果存在該讀者的借閱記錄，提示此人有書(shū)未歸還，故不能刪除！信息，退出子程序 RecCount = If RecCount 0 Then MsgBox 此人有書(shū)未歸還，故不能刪除！, , 提示 Exit Sub End If 39。從數(shù)據(jù)庫(kù)表reader中找到該讀者記錄，刪除 = select * from reader where readerid= _ amp。 39。 amp。 Trim() amp。 39。 39。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub7．顯示所有圖書(shū)(28) 選擇菜單 “圖書(shū)管理→顯示所有圖書(shū)”，在代碼編輯窗口中添加以下代碼：Private Sub DispAllBook_Click() Dim RecCount As Integer 39。從數(shù)據(jù)庫(kù)表book中查找所有的圖書(shū)記錄 = select bookid as _ amp。 圖書(shū)編號(hào) amp。 , bookname as amp。 圖書(shū)名稱 _ amp。 ,bookstate as amp。 此書(shū)是否已借出 amp。 from book 39。如果查到的記錄數(shù) 0則刷新數(shù)據(jù)表格顯示查到的圖書(shū)信息，否則提示未查到任何圖書(shū)記錄！信息 39。并刷新數(shù)據(jù)表格顯示空表 RecCount = If RecCount 0 Then DisplayGrid (顯示所有圖書(shū)) Else MsgBox 未查到任何圖書(shū)記錄！, , 提示 DisplayGrid (顯示所有圖書(shū)) Exit Sub End IfEnd Sub8．查詢單冊(cè)(29) 選擇菜單“圖書(shū)管理→查詢單冊(cè)”，在代碼編輯窗口中添加以下代碼：Private Sub FindOneBook_Click() Dim RecCount As Integer 39。將標(biāo)志變量置為假 ActFlag = False 39。顯示查詢單冊(cè)窗體 vbModal 39。判斷是否需要刷新數(shù)據(jù)表格 If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (查詢單冊(cè)) End If End If ActFlag = FalseEnd Sub(30) 為工程添加一個(gè)新的窗體，將新窗體”(名稱)”屬性改為”frmFindOneBook”，”caption”屬性改為“查詢單冊(cè)”。(31) 在窗體添加一個(gè)框架控件(Frame)和一個(gè)ADO數(shù)據(jù)控件(Adodc),在” Frame1”中添加一個(gè)命令按鈕(CommandButton)、一個(gè)標(biāo)簽(label)和一個(gè)文本框(textbox)。(32) 修改frmFindOneBook窗體控件的屬性如表8所示：表8 frmFindOneBook窗體控件屬性控件名稱屬性名稱屬性設(shè)置值Frame1Caption輸入查詢條件labelCaption圖書(shū)編號(hào)Text1名稱txtbookidtextCommand1名稱CmdfindCaption查詢Adodc1名稱Adodcvisiblefalse(33) 根據(jù)“frmMain”主界面中的設(shè)置“Adodc”的方法來(lái)設(shè)置本窗體的“Adodc”的“connectionstring”屬性。(34) 雙擊“查詢”按鈕，在代碼編譯窗口中添加以下代碼：Private Sub CmdFind_Click() Dim RecCount As Integer 39。判斷是否輸入了圖書(shū)編號(hào)，如果沒(méi)有輸入信息，則發(fā)出提示，并退出子程序 If Trim() = Then MsgBox 查詢條件不能為空，請(qǐng)?zhí)顚?xiě)！, , 提示 Exit Sub End If 39。根據(jù)圖書(shū)編號(hào)查找該圖書(shū)信息 = select bookid as amp。 圖書(shū)編號(hào) _ amp。 , bookname as amp。 圖書(shū)名稱 amp。 , bookstate as _ amp。 此書(shū)是否已借出 amp。 from book where bookid= amp。 39。 _ amp。 Trim() amp。 39。 39。如果查到的記錄數(shù) 0，則返回主界面在數(shù)據(jù)表格中顯示查到的圖書(shū)信息 RecCount = If RecCount 0 Then = select bookid as _ amp。 圖書(shū)編號(hào) amp。 , bookname as amp。 圖書(shū)名稱 _ amp。 , bookstate as amp。 此書(shū)是否已借出 _ amp。 from book where bookid= amp。 39。 amp。 Trim() _ amp。 39。 ActFlag = True Unload Me Else 39。若沒(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。顯示增加新書(shū)窗體 vbModal 39。判斷如果需要刷新數(shù)據(jù)表格，則在主界面中顯示所有的圖書(shū)信息 If ActFlag Then DispAllBook_Click End If ActFlag = FalseEnd Sub(36) 為工程添加一個(gè)新的窗體，將新窗體“(名稱)”屬性改為“frmAddBook”，“caption”屬性改為“增加新書(shū)”。(37) 在窗體上添加一個(gè)框架控件(frame)，在“frame1”中添加一個(gè)命令按鈕(mandbutton)、兩個(gè)標(biāo)簽(label)、兩個(gè)文本框(textbox)和一個(gè)ADO數(shù)據(jù)控件(Adodc)，如下表所示：控件名稱屬性名稱屬性設(shè)置值Frame1Caption輸入數(shù)據(jù)Label1Caption圖書(shū)編號(hào)Label2Caption圖書(shū)名稱Text1名稱txtbookidtextText2名稱txtbooknametextCommand1名稱CmdsaveCaption保存Adodc1名稱Adodcvisiblefalse(38) 根據(jù)”frmMain”主界面中的設(shè)置“Adodc”的方法來(lái)設(shè)置本窗體的“Adodc”的“connectionstring”屬性。(39) 雙擊“保存”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdSave_Click() Dim RecCount As Integer 39。判斷是否輸入了圖書(shū)編號(hào)和圖書(shū)名稱信息，如果沒(méi)有輸入則發(fā)出提示并退出子程序 If Trim() = Or Trim() = Then MsgBox 請(qǐng)將內(nèi)容填寫(xiě)完整！, , 提示 Exit Sub End If 39。根據(jù)圖書(shū)編號(hào)查找是否存在該圖書(shū)記錄，如果存在，則提示已經(jīng)存在此圖書(shū)編號(hào)，請(qǐng)重新設(shè)置！ 39。則提示退出子程序 = select * from book where bookid= amp。 39。 amp。 Trim() amp。 39。 RecCount = If RecCount 0 Then MsgBox 已經(jīng)存在此圖書(shū)編號(hào)，請(qǐng)重新設(shè)置！, , 提示 Exit Sub End If 39。在數(shù)據(jù)庫(kù)表book中添加該新書(shū)記錄 = select * from book (bookid) = Trim() (bookname) = Trim() (bookstate) = 否 39。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub10．刪除圖書(shū)(40) 選擇菜單“圖書(shū)管理→刪除圖書(shū)“，在代碼編輯窗口中添加以下代碼：Private Sub DelBook_Click() 39。將標(biāo)志變量置為假 ActFlag = False 39。顯示刪除圖書(shū)窗體 vbModal 39。判斷是否需要刷新數(shù)據(jù)表格，如果需要的話則在數(shù)據(jù)表格中顯示所有的圖書(shū)記錄 If ActFlag Then DispAllBook_Click End If ActFlag = FalseEnd Sub(41) 為工程添加一個(gè)新的窗體，將新窗體“(名稱)”屬性改為“frmdelbook”,“caption”屬性改為“刪除圖書(shū)”。(42) 在窗體上添加一個(gè)框架控件(Frame),在”Frame1”中添加一個(gè)命令按鈕(mandbutton)、一個(gè)標(biāo)簽(label)、一個(gè)文本框(textbox)和一個(gè)ADO數(shù)據(jù)控件(Adodc),如下表所示：控件名稱屬性名稱屬性設(shè)置值Frame1Caption輸入編號(hào)Label1Caption圖書(shū)編號(hào)Text1名稱txtbookidTextCommand1名稱CmddelCaption刪除Adodc1名稱Adodcvisiblefalse(43) 根據(jù)“frmMain”主界面中的設(shè)置“Adodc”的方法來(lái)設(shè)置本窗體的“Adodc”的“connectionstring”屬性，完成以上操作后frmDelBook窗體效果如下圖所以：(44) 雙擊“刪除”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdDel