【正文】 Visible”屬性設(shè)置為False。這兩個控件屬性列表中的“ConnectionString”屬性值均按如下方法設(shè)置。(6) 單擊“生成”按鈕，進(jìn)入“數(shù)據(jù)鏈接屬性”對話框，如圖19所示。選中“使用數(shù)據(jù)源名稱”，在該項(xiàng)下拉列表中選擇“book”，然后單擊“確定”按鈕，系統(tǒng)自動回到屬性頁對話框，單擊確定按鈕即可。將臨時ADO數(shù)據(jù)控件中的RecordSource屬性賦值給和數(shù)據(jù)表格相連的ADO數(shù)據(jù)控件 = 39。修改數(shù)據(jù)表格的標(biāo)題 = CaptionStr 39。從數(shù)據(jù)庫表reader中查找所有的讀者記錄 = select readerid as amp。 _, readername as amp。 ,booknum as amp。 from reader RecCount = 39。的數(shù)據(jù)表格。將標(biāo)志變量置為假 ActFlag = False 39。若是在查詢一個讀者窗體中已經(jīng)將ActFlag修改為True時，則查看所查到的記錄條數(shù)，如果查到的 39。(12) 在窗體上添加一個框架控件（Frame）和一個ADO數(shù)據(jù)控件（Adodc），在Frame1中添加一個命令按鈕（CommandButton）、一個標(biāo)簽（Label）和一個文本框（TextBox）。表5 frmFindOneReader窗體控件屬性控件名稱屬性名稱屬性設(shè)置值Frame1 Caption輸入查詢條件Label1 Caption讀者編號Text1名稱TxtReaderidTextCommand1名稱CmdFindCaption查詢Adodc1名稱AdodcVisibleFalse(14) 根據(jù)frmMain主界面中設(shè)置Adodc控件的方法來設(shè)置本窗體的Adodc的屬性，完成以上操作后frmFindOneReader窗體的效果如圖21所示。判斷用戶是否輸入了讀者編號信息，如果沒有輸入信息，則發(fā)出提示退出子程序 If Trim() = Then MsgBox 查詢條件不能為空，請?zhí)顚懀? , 提示 Exit Sub End If 39。 讀者編號 _ amp。 讀者姓名 amp。 借閱圖書冊數(shù) amp。 39。 Trim() amp。 39。 讀者編號 amp。 讀者姓名 _ amp。 借閱圖書冊數(shù) _ amp。 39。 Trim() amp。 39。如果沒有查到該讀者的信息則發(fā)出提示，退出子程序 MsgBox 查無此人！, , 提示 Exit Sub End IfEnd Sub5．增加一個讀者(16) 選擇菜單“讀者管理→增加一個讀者”，在代碼編輯窗口中添加以下代碼：Private Sub AddReader_Click() 39。顯示增加一個讀者窗體 vbModal If ActFlag Then 39。(18) 在窗體上添加一個框架控件（Frame），然后在Frame1中添加一個命令按鈕，兩個標(biāo)簽，兩個文本框和一個ADO數(shù)據(jù)控件（Adodc）。表6 frmAddReader窗體控件屬性控件名稱屬性名稱屬性設(shè)置值 Frame1 Caption 輸入數(shù)據(jù) Label1Caption 讀者編號 Label2Caption 讀者姓名Text1Text 名稱 TxtReaderidText2Text名稱 TxtReaderNameCommand1名稱 CmdSave Caption 保存Adodc1名稱 AdodcVisible False(20) 運(yùn)用frmMain主界面中設(shè)置Adodc的方法來設(shè)置本窗體的Adodc，完成后的frmAddReader窗體效果如圖22所示。判斷是否輸入了讀者編號和讀者姓名，如果沒有輸入信息，則發(fā)出提示并退出子程序 If Trim() = Or Trim() = Then MsgBox 請將內(nèi)容填寫完整！, , 提示 Exit Sub End If 39。 39。 Trim() amp。 39。向數(shù)據(jù)庫表book中添加新的讀者記錄 = select * from reader (readerid) = Trim() (readername) = Trim() (booknum) = 0 39。將標(biāo)志變量置為假 ActFlag = False 39。判斷是否需要刷新數(shù)據(jù)表格，如果需要則在主界面的數(shù)據(jù)表格中顯示所有的讀者信息 If ActFlag Then DispAllReader_Click End If ActFlag = FalseEnd Sub(23) 為工程添加一個新的窗體，將新窗體的“名稱”屬性改為“frmDelReader”，“Caption”屬性改為“刪除一個讀者”。(25) 修改frmDelReader窗體控件的屬性，見表7。 圖22(27) 雙擊“刪除”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdDel_Click() Dim RecCount As Integer 39。根據(jù)讀者編號查找讀者信息 = select * from reader where readerid= _ amp。 amp。 39。如果沒有該讀者信息則提示查無此人！信息，退出子程序 RecCount = If RecCount 1 Then MsgBox 查無此人！, , 提示 Exit Sub End If 39。 39。 Trim() amp。 39。從數(shù)據(jù)庫表reader中找到該讀者記錄，刪除 = select * from reader where readerid= _ amp。 amp。 39。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub7．顯示所有圖書(28) 選擇菜單 “圖書管理→顯示所有圖書”，在代碼編輯窗口中添加以下代碼：Private Sub DispAllBook_Click() Dim RecCount As Integer 39。 圖書編號 amp。 圖書名稱 _ amp。 此書是否已借出 amp。如果查到的記錄數(shù) 0則刷新數(shù)據(jù)表格顯示查到的圖書信息，否則提示未查到任何圖書記錄！信息 39。將標(biāo)志變量置為假 ActFlag = False 39。判斷是否需要刷新數(shù)據(jù)表格 If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (查詢單冊) End If End If ActFlag = FalseEnd Sub(30) 為工程添加一個新的窗體，將新窗體”(名稱)”屬性改為”frmFindOneBook”，”caption”屬性改為“查詢單冊”。(32) 修改frmFindOneBook窗體控件的屬性如表8所示：表8 frmFindOneBook窗體控件屬性控件名稱屬性名稱屬性設(shè)置值Frame1Caption輸入查詢條件labelCaption圖書編號Text1名稱txtbookidtextCommand1名稱CmdfindCaption查詢Adodc1名稱Adodcvisiblefalse(33) 根據(jù)“frmMain”主界面中的設(shè)置“Adodc”的方法來設(shè)置本窗體的“Adodc”的“connectionstring”屬性。判斷是否輸入了圖書編號，如果沒有輸入信息，則發(fā)出提示，并退出子程序 If Trim() = Then MsgBox 查詢條件不能為空，請?zhí)顚懀? , 提示 Exit Sub End If 39。 圖書編號 _ amp。 圖書名稱 amp。 此書是否已借出 amp。 39。 Trim() amp。 39。 圖書編號 amp。 圖書名稱 _ amp。 此書是否已借出 _ amp。 39。 Trim() _ amp。 ActFlag = True Unload Me Else 39。將標(biāo)志變量置為假 ActFlag = False 39。判斷如果需要刷新數(shù)據(jù)表格，則在主界面中顯示所有的圖書信息 If ActFlag Then DispAllBook_Click End If ActFlag = FalseEnd Sub(36) 為工程添加一個新的窗體，將新窗體“(名稱)”屬性改為“frmAddBook”，“caption”屬性改為“增加新書”。(39) 雙擊“保存”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdSave_Click() Dim RecCount As Integer 39。根據(jù)圖書編號查找是否存在該圖書記錄，如果存在，則提示已經(jīng)存在此圖書編號，請重新設(shè)置！ 39。 39。 Trim() amp。 RecCount = If RecCount 0 Then MsgBox 已經(jīng)存在此圖書編號，請重新設(shè)置！, , 提示 Exit Sub End If 39。將標(biāo)志變量置為真 ActFlag = True Unload MeEnd Sub10．刪除圖書(40) 選擇菜單“圖書管理→刪除圖書“，在代碼編輯窗口中添加以下代碼：Private Sub DelBook_Click() 39。顯示刪除圖書窗體 vbModal 39。(42) 在窗體上添加一個框架控件(Frame),在”Frame1”中添加一個命令按鈕(mandbutton)、一個標(biāo)簽(label)、一個文本框(textbox)和一個ADO數(shù)據(jù)控件(Adodc),如下表所示：控件名稱屬性名稱屬性設(shè)置值Frame1Caption輸入編號Label1Caption圖書編號Text1名稱txtbookidTextCommand1名稱CmddelCaption刪除Adodc1名稱Adodcvisiblefalse(43) 根據(jù)“frmMain”主界面中的設(shè)置“Adodc”的方法來設(shè)置本窗體的“Adodc”的“connectionstring”屬性，完成以上操作后frmDelBook窗體效果如下圖所以：(44) 雙擊“刪除”按鈕，在代碼編輯窗口中添加以下代碼：Private Sub CmdDel_Click() Dim RecCount As Integer 39。根據(jù)圖書編號從數(shù)據(jù)庫表book中查找該圖書的記錄。 39。 Trim() amp。 RecCount = 39。如果該圖書已經(jīng)借出，則提示此書尚未歸還，故不能刪除！并退出子程序 If (bookstat