【正文】 open。).Value:=content。 (39。select * from book where author like :author39。 end。press39。) 。 if then begin (39。).Value:=content。 (39。select * from book where name like :name39。 end。code39。) 。 if then begin (39。%39。%39。 with do begin content:=。 var content:string。 (4) 將查詢結(jié)果加入到列表 ListView 中； (5) 顯示查詢到的記錄數(shù)。 (3) 根據(jù) 4 個(gè) Radio 按鈕 的選中情況決定在圖書數(shù)據(jù)表 Book 中查詢時(shí)所對(duì)應(yīng)的字段并生成 SQL 語(yǔ)句。在 SQL 語(yǔ)言中，符號(hào)“ %”可以代替任何長(zhǎng)度的字符串，另外符號(hào)“ _”可以替代一個(gè)字符。在查詢時(shí) 需完成以下工作： (1) 將編輯框中的內(nèi)容存放在字符串變量 Content 中； (2) 如果“模糊查詢 ”按鈕復(fù)選框 (CheckBox1)被選中，則查詢內(nèi)容變?yōu)?”’%’+Conten+’%’”。在 QueryForm 空白窗體上添加一個(gè) TpageControl 組件對(duì)象，并在其上建立三個(gè)頁(yè)面 (TabSheet)的 Caption 屬性的值分別設(shè)置為“查詢圖書基本信息”、“查詢讀者基本信息”和“查詢借閱基本信息”。其具體實(shí)現(xiàn)的代碼在源代碼中。 OwnBookForm窗體的界面如圖所示：其中包含一個(gè) ListView組件對(duì)象。 OwnDays:integer。 Name:String。在提交之前要檢查該借書證是否有超期的圖書沒(méi)有歸還。 Open。ReaderID39。)。 (39。 ? 借出圖書的實(shí)現(xiàn) 用戶選擇圖書后，如果該圖書沒(méi)有被借出，用于輸入借書證號(hào)的ReaderIDEdit 組件對(duì)象將被設(shè)置為焦點(diǎn)，等待用 戶輸入借此書的讀者的借書證號(hào)。 end。 except 。 end。 := True。 Close。 := True。 end。 := True。 := True。).AsString。 := FieldByName(39。 OwnTime := Date FDate。OutDate39。 Open。Code39。)。 (39。 end。數(shù)據(jù)操作出錯(cuò) 39。 end。 end。 := False。沒(méi)有數(shù)據(jù)或數(shù)據(jù)庫(kù)操作失敗 39。code39。 Active:=True。 := 39。 := 39。 := 39。 := 39。 昆明冶金高等?？茖W(xué)校計(jì)信系 畢業(yè)論文 第 28 頁(yè) := 39。 := 39。 if Length() = 10 then begin try with do begin TableName:=39。 :=39。 :=39。 :=39。 begin :=39。 var FDate : TDate。 ComboBox1 組件對(duì)象的 OnChange 事件處理程序代碼在源代碼中可以具體的看出。在這里我們用到了兩個(gè)ADOQuery 組件，和一個(gè) Tdatasource 組件，最終于界面如圖所示： 昆明冶金高等專科學(xué)校計(jì)信系 畢業(yè)論文 第 27 頁(yè) 用到的組件可以從圖中簡(jiǎn)單的看出，具體功能的實(shí)現(xiàn)可以分為以下幾步： ? 選擇需要借出 /歸還的圖書 用戶可以從 ComboBox1 的下拉列表中選擇 書號(hào)或直接在 ComboBox1的編輯框中輸入書號(hào)。首先在讀者列表 ListView1 中選 中需要修改信息的讀者，該讀者的信息將在讀者信息欄的相應(yīng)編輯框中顯示，對(duì)其進(jìn)行修改后單擊“確定”按鈕提交修改后的數(shù)據(jù)。 3． 添加讀者的實(shí)現(xiàn)過(guò)程可以參考圖書入庫(kù)的實(shí)現(xiàn)。 (i)。 ExecSQL。ReaderID39。)。 (39。 end else Checked := IDNO。 ExecSQL。ReaderID39。)。 (39。此讀者還有圖書沒(méi)有歸還，是否刪除 ?39。Checked:integer。 2． 刪除讀者信息：?jiǎn)螕簟皠h除”按鈕將讀者列表 ListView1 中當(dāng)前選中的讀者信息從數(shù)據(jù)庫(kù)中刪除。 end。 end。IDCardNo39。)。) else (39。 then (39。).AsString = 39。 if FieldByName(39。Name39。).AsString。 while not Eof do begin with do begin Caption := FieldByName(39。 ? 然后是把查詢到的記錄加入到 ListView1 中并把有關(guān)記錄顯示出來(lái)，用 ()方法就可實(shí)現(xiàn)。 ? ListView 控件在 標(biāo)簽頁(yè)上，它用來(lái)以大圖標(biāo)、小圖標(biāo)、列表或報(bào)表方式來(lái)顯示用戶信息。放進(jìn)去的組件將會(huì)自動(dòng)成為一組。其大體的界面如圖所示： 在這里首先介紹下窗體要用到 的 Delphi 組件： ? TGroupBox 組件：它是標(biāo)準(zhǔn)的分組框組件，它在組件面板的 Standard 標(biāo)簽頁(yè)上。下面介紹讀者管理窗體的設(shè)計(jì)。 ? end。 昆明冶金高等專科學(xué)校計(jì)信系 畢業(yè)論文 第 24 頁(yè) ? Shift: TShiftState)。 相 應(yīng) 的 實(shí) 現(xiàn) 代 碼 為 ： procedure (Sender: TObject。 end。 end。數(shù)據(jù)操作出錯(cuò) 39。 end。,[])。 Locate(39。Memo39。Cost39。Press39。Author39。Name39。OutDate39。book39。當(dāng) ComboBox1 的編輯框的書號(hào)發(fā)生變化時(shí)將觸發(fā) ComboBox1 的 OnChange 事件，在這個(gè)事件中，將該書號(hào)圖書的信息在幾個(gè) DBEdit 中顯示，代碼如下： procedure (Sender: TObject)。 end。 Close。 Next。Code39。 昆明冶金高等?？茖W(xué)校計(jì)信系 畢業(yè)論文 第 23 頁(yè) First。)。 (39。 begin 。 下面來(lái)具體實(shí)現(xiàn)該頁(yè)面的實(shí)現(xiàn)： ? 在圖書管理頁(yè)面顯示時(shí)，將數(shù)據(jù)庫(kù)中所有圖書的書號(hào)插入到 ComboBox1 中供用戶選擇，這在 TabSheet2(圖書管理頁(yè)面 )的 OnShow 事件的處理程序中實(shí)現(xiàn)，代碼如下： procedure (Sender: TObject)。（從左到右） 按鈕名稱 功能 First 將當(dāng)前記錄指針移到數(shù)據(jù)庫(kù)表中的第一條記錄處 Prior 將記錄指針移到當(dāng)前記錄的前一條記錄處 Next 將記錄指針移到當(dāng)前記錄的后一條記錄處 Last 將當(dāng)前記錄指針移到數(shù)據(jù)庫(kù)表中的最后一條記錄處 Insert 在當(dāng)前記錄的前面插入一條新記錄，并將數(shù)據(jù)集組件置為插入狀態(tài) Delete 刪除當(dāng) 前記錄 Edit 將數(shù)據(jù)集組件置為編輯狀態(tài)，以便用戶修改當(dāng)前的記錄 Post 提交對(duì)當(dāng)前的記錄修改 Cancle 取消對(duì)當(dāng)前的記錄修改，并將數(shù)據(jù)集組件置為瀏覽狀態(tài) Refresh 用與其相連的數(shù)據(jù)集組件 (Ttable 或 Tquery)中的記錄刷新顯示緩沖區(qū) 其幾個(gè)重要的屬性： ? VisibleButtons 屬性：該屬性包含著多個(gè)可選的擴(kuò)展子屬性，只要用于選擇TDBNavigator 組件中的各個(gè)控制按鈕的顯示與否。它包含一組控制按鈕，如圖所示： 單擊其中的按鈕可以向前或向后移動(dòng)記錄指針、插入記錄、修改現(xiàn)存記錄、提交對(duì)記錄的修改、取消修改、刪除記錄以及刷新記錄的顯示等。 ? Enabled 屬性：此屬性用來(lái)決定與此數(shù)據(jù)源組件相連的數(shù)據(jù)控制組件是否顯示數(shù)據(jù)。它主要為數(shù)據(jù)控制 組件提供服務(wù)。 end。,mtError,[mbok],0)。 except MessageDlg(39。 end。 end。,mtError,[mbok],0)。 except MessageDlg(39。Cost39。 end。,mtError,[mbok],0)。 except MessageDlg(39。OutDate39。).value := 。 (39。Press39。).value := 。 (39。Name39。).value := 。 (39。 values (:Code,:Name,:Author,:Press,:OutDate,:Cost,:num)39。insert into book(Code,Name,Author,Press,OutDate,Cost,Num)39。 try with do begin 。 Close。 Exit。,mtError,[mbok],0)。++39。 if RecordCount 0 then //此書號(hào)已經(jīng)存在 begin MessageDlg(39。).Value :=。 (39。select Code from Book where Code =:Code39。 with do //檢 查新書的書號(hào)是否已經(jīng)存在 begin 。 exit。,mterror,[mbok],0)。 begin if length()10 then //新書書號(hào)長(zhǎng)度是否 10 begin messagedlg(39。 而 ADOQuery 組件的賦值語(yǔ)句為 : (‘FieldName’).Value:=s1。 單擊“入庫(kù)”按鈕將在幾個(gè)編輯框中填入的新書的數(shù)據(jù)加入到數(shù) 據(jù)庫(kù)中，其只要內(nèi)容有： (1) 檢查新書書號(hào)是否正確，如果不正確則退出入庫(kù)操作； (2) 檢測(cè)此書號(hào)是否已經(jīng)存在，如存在則退出入庫(kù)操作； (3) 將新書的數(shù)據(jù)假如到數(shù)據(jù)庫(kù)中。 。 :=39。 :=39。 :=39。 :=39。 :=39。 begin 。 5． 5． 1 新書入庫(kù) 昆明冶金高等?？茖W(xué)校計(jì)信系 畢業(yè)論文 第 19 頁(yè) 新書入庫(kù)的界面如圖所示，其中用到的組件對(duì)象可以從圖中看出：主要是Lable,Edit 組件。 圖書管理窗體設(shè)計(jì) 圖書 管理窗體包括新書入庫(kù)和圖書管理兩個(gè)功能。 :=ADOConnection1。Jet OLEDB: Database Password=’+MyPassw+’。 begin :=’Provider=。 在這里我們建立數(shù)據(jù)模塊 (Data Module)來(lái)存放 ADO 組件對(duì)象，這樣既便于窗體統(tǒng)一使用 ADO 組件對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)，也使維護(hù)修改更加簡(jiǎn)單。 ? ADOQuery 組件：用來(lái)對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行查詢。 ? ADOTable 組件：與 BDE 中的 Table 組件非常類似，許多屬性、事件和方法也一用。只要用于返回并操縱數(shù)據(jù)。 ? ADODataSet 組件：通過(guò)它可以直接與一個(gè)表進(jìn)行連接，也可以執(zhí)行 SQL語(yǔ) 句 ，還 可以 執(zhí)行 存儲(chǔ) 過(guò)程 。其使用方法參考有關(guān)書籍。它有兩個(gè)重要屬性： ConnectionString 和 LoginPr