【正文】 記錄提供一組簡單明了的控制按鈕。表描述了它的各個控制按鈕的功能。 ? ShowHint 與 Hints 屬性： ShowHint 屬性決定是否顯示 TDBNavigator 組件中各按鈕的提示信息， Hints 屬性是用來設置提示信息。 var i:integer。 with do begin 。select Code from book 39。 Open。 for i:=0 to RecordCount1 do //將所有圖書號加入到 ComboBox1 中 begin (FieldbyName(39。).AsString)。 end。 end。 ? 用戶可以在 ComboBox1 的編輯框中輸入需要修改的圖書的書號，也可以從ComboBox1 的下拉列表框中選擇書號。 begin if Length() = 10 then begin try with do TableName:=39。 // ADOTable1 的表名為圖書數(shù)據(jù)表 BOOK begin := 39。 := 39。 //DBName 連接數(shù)據(jù)表中 Name字段 := 39。 // DBAuthor 連接數(shù)據(jù)表中 Author字段 := 39。 //DBPress 連接數(shù)據(jù)表中 Press 字段 := 39。 //DBCost 連接數(shù)據(jù)表中 OutDate 字段 := 39。 Active:=True。code39。//在數(shù)據(jù)庫中查找 中的書號 Edit。 except MessageDlg(39。,mtError,[mbok],0)。 end。 ? 如果用戶在 ComboBox1 的編輯框中輸入需要修改的圖書的書號，輸入完成后 敲 回 車 鍵 。 var Key: Word。 ? begin ? if Key = 13 then //敲回車鍵 ? ComboBox1Change(Sender)。 通過以上的過程，圖書管理界面的功能基本已經(jīng)實現(xiàn)。 5． 6 讀者管理窗體設計 讀者管理窗體可以完成新讀者數(shù)據(jù)的錄入和老讀者數(shù)據(jù)的修改，可以刷新讀者信息、刪除讀者信息等功能。在該組件里可以放置其他組件如 Radiobutton 組件、 Checkbox 組件等。通過它的 Caption 屬性可以修改該組件的標題。 該界面用到的組件如表所示： 組件對象名 屬性 屬性值 說明 GroupBox1 Caption 操作 RadioButton1 Caption 添加 RadioButton2 Caption 修改 Label1 Caption 借書證號 Edit1 Text （空） MaxLength 10 借書證號最大長度 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 25 頁 Label2 Caption 姓名 Edit2 text （空） Label3 Caption 性別 ComboBox1 text （空） Label4 Caption 身份證號 Edit3 text （空） Button1 Caption 關閉 Button2 Caption 確定 ListView1 以列表形式顯示所有讀者信息： Button3 Caption 刷新 Button4 Caption 刪除 1． 刷新讀者信息 單擊“刷新”按鈕將在讀者列表 ListView1 中顯示所有讀者的信息，這主要在“刷新”按鈕的 OnClick 事件的代碼中實現(xiàn)： ? 首先將讀者數(shù)據(jù)表 Reader 中所有記錄加入到 ListView1 中，主要用到SQL 查詢語言，實現(xiàn)代碼為： select * from Reader order by ReaderID。主要代碼實現(xiàn)為： 。ReaderID39。 (FieldByName(39。).AsString)。Sex39。139。女 39。男 39。 (FieldByName(39。).AsString)。 Next。 Close。其中，在刪除之前需要查看該讀者所借的圖書是否全部歸還，“刪除”按鈕的 Button Onclick 事件的只要處理代碼是：對于兩個變量： var i:integer。 ? 判斷當前行是否被選中： ? 圖書歸還判斷： if RecordCount = 0 then //該讀者所借圖書已全部歸還 Checked := IDYES else begin //還有圖書沒有歸還 if MessageDlg(39。, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 26 頁 。delete from Lend where ReaderID=:ReaderID39。 ? (39。).Value := [i].Caption。 Checked := IDYES。 ? 從數(shù)據(jù)表中刪除讀者數(shù)據(jù)表： if Checked = IDYES then begin with do // delete reader begin 。delete from Reader where ReaderID=:ReaderID39。 (39。).Value :=[i].Caption。 end。 end else if Checked = IDNO then Exit。 4． 修改讀者信息：當讀者信息發(fā)生變化時，可以在系統(tǒng)中對其進行修改。其實現(xiàn)代碼可以參考源代碼中的具體實現(xiàn)！ 5． 7 借閱管理窗體設計 借閱管理窗體可以完成圖書的借出和歸還操作。 ComboBox1 的編輯框中的書號發(fā)生變化時觸發(fā)OnChange 事件，在該事件完成以下操作： (1) 初始化顯示數(shù)據(jù)的幾個組件對象； (2) 將幾個數(shù)據(jù)感知組件對象與圖書數(shù)據(jù)表 Book 中的相應字段連接； (3) 在圖書數(shù)據(jù)表 Book 中查詢 ComboBox1 的編輯框中的書號； (4) 如果該圖書已借出，則在借閱數(shù)據(jù)表中查詢借書證號并計算該借書證號所持有書籍的數(shù)目、持有時間和應交納的罰金。 procedure (Sender: TObject)。 OwnTime : TDate。39。39。39。39。book39。OutDate39。Name39。Author39。Press39。Cost39。Memo39。 if not Locate(39。,[])then begin MessageDlg(39。,mtError,[mbok],0)。 Exit。 := True。 except MessageDlg(39。,mtError,[mbok],0)。 try with do begin 。select * from Lend where Code = :Code39。 (39。).Value := 。 if RecordCount 0 then begin FDate := FieldByName(39。).AsDateTime。 := FloatToStr(OwnTime)。ReaderID39。 := True。 if StrToInt()60 then begin := True。 := FloatToStr((StrToInt()60)*)。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 29 頁 := False。 。 end else begin 。 := False。 end。 end。 end。在 ReaderIDEdit 組件對象的 OnChange 事件處理中檢查輸入的借書證的正確性，并統(tǒng)計該借書證所借書的數(shù)目，主要的代碼實現(xiàn)為： Length() = 10 用來判斷借書證號的有效長度； 。select ReaderID from Reader where ReaderID =:ReaderID39。 (39。).Value := 。 此段代碼用來檢束借書證號； 輸入正確的借書證號后單擊借出按鈕將向借閱數(shù)據(jù)表 Lend 提交借書數(shù)據(jù)。定義了一個記錄TownBook 來臨時保存該借書證所借圖書的信息，內容如下： Townbook=record Code:String。 Price:String。 新建一個窗體用來顯示該借書證所借的已超期圖書的信息，該窗體 Name 屬性設置為 OwnBookForm。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 30 頁 用兩個臨時的 ADOQuery 組件對象： tempADOQery1 和 tempADOQery2 輔助檢 查 該借 書證 是 否有 超期 的圖 書 沒有 歸還 ， Connection 屬 性設置為。 5． 8 信息查詢窗體設計 信息查詢窗體包括圖書信息查詢、讀者信息查詢和借閱信息查詢 3 個功能。 ? 查詢圖書基本信息 查詢圖書基本信息頁面的界面為： 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 31 頁 在查詢輸入項輸入查詢內容后單擊“查詢”按鈕進行查詢。 模糊查詢是一種重要的查詢方式，這種查詢方式大多是在不知道準確的查詢條件，而只知道部分信息的時候使用。此處，將查詢內容放在兩個“ %”符號之間，表示如果一個字符串的開頭或中間或結尾包含了查詢內容，則此字符串是符合查詢條件的查詢結果。其中，選擇按書號查詢(RadioButton1)對應圖書數(shù)據(jù)表 BOOK 中的 Code 字段；選擇按書名查詢 (RadioButton2) 對應 Name 字段；選擇按出版社查詢(RadioButton3)對應 Press 字段；選擇按作者查詢 (RadioButton4)對應 Author 字段。 查詢按鈕的 OnClick 事件的處理代碼如下： procedure (Sender: TObject)。 begin try 。 if then content:=39。+content+39。 。select * from book where code like :code39。 (39。).Value:=content。 if then begin (39。) 。name39。 end。select * from book where press like :press39。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 32 頁 (39。).Value:=content。 if then begin (39。) 。author39。 end。 while not eof do begin with d