【正文】 序代碼如下： 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 14 頁 procedure (Sender: TObject)。 begin 。 //顯示借閱管理窗體 end。 procedure (Sender: TObject)。用戶登錄是最多可輸入三次密碼，如果密碼仍不正確系統(tǒng)將關(guān)閉，所以我們可以定義一個變量來記錄密碼輸入次數(shù)，在 LoginForm 窗體的變量定義部分定義：entertime:integer。 end。 possword:string。 //從文件 中讀取密碼 reset(pwfile)。 //密碼輸入次數(shù)增加 1 if =possword then close else begin :=39。,39。 。 end。 登錄窗體它將在主窗體初次激活之前被顯示，這樣才能起到合法性檢查的作用。 //初始化，說明還沒有登錄 end。 end。其界面如圖所示： 其中“確認(rèn)”按鈕單擊事件的代碼為： procedure (Sender: TObject)。39。 closefile(pwfile)。39。 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 17 頁 closefile(pwfile)。 end else begin showmessage(39。 end。從版本 6 開始， Delphi 增添了對 ADO 的支持，以便讓用戶能迅速實現(xiàn)對終端用戶用來做商 業(yè)決策的數(shù)據(jù)的一致性訪問，結(jié)合 Delphi 本身的開放式數(shù)據(jù)組件結(jié)構(gòu)，程序員可以很快地建立應(yīng)用程序，用來把自己的商業(yè)數(shù)據(jù)通過 Inter 發(fā)送給客戶、最終用戶以及整個銷售環(huán)節(jié)。 (3) 如果命令返回數(shù)據(jù)集，則將數(shù)據(jù)存儲在緩存中 (4) 對數(shù)據(jù)進(jìn)行操作 (5) 用緩存中的數(shù)據(jù)更新數(shù)據(jù)集 (6) 接受或者拒絕對數(shù)據(jù) 庫的修改，結(jié)束事務(wù) 訪問遠(yuǎn)程數(shù)據(jù)庫時 ADO 的一般處理方法如下： (1) 指定服務(wù)器上被調(diào)用的程序和調(diào)用途徑 (2) 調(diào)用服務(wù)程序，通過服務(wù)程序從數(shù)據(jù)源中獲得數(shù)據(jù)集，并將數(shù)據(jù)集返回到客戶應(yīng)用程序 (3) 在客戶端將服務(wù)程序返回的數(shù)據(jù)集顯示給用戶 ? BDE(Borland Database Engine)是 Delphi 頗具特色的數(shù)據(jù)庫連接管理技術(shù)。 5． 4． 2 ADO 常用的組件 ? ADOConnection 組件：它起到一個橋梁作用，其他 5 個組件都可以通過它來操作數(shù)據(jù)庫，它相對于其他 5 個組件來說就相當(dāng)于數(shù)據(jù)庫別名 。 LoginPromt 屬性昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 18 頁 決定是否彈出密碼輸入框。 ? ADOComand 組件：主要用于執(zhí)行 SQL 語句 ,例如 Insert,Delete\Drop 等，如果要使用 SELECT 語句建議使用 TADOQuery 組件。在后面將介紹。DataSource=’+Mypath+’Data\。 :=ADOConnection1。 在新書入庫頁顯示時，需要清空幾個編輯框并將輸入焦點放在輸入書號的編輯框CodeEdit 上，這在 TabSheet1(新書入庫頁 )的 OnShow 事件的處理程序中實現(xiàn)，代 碼如下： procedure (Sender: TObject)。39。39。39。 在這里我們用到 SQL 語言來向數(shù)據(jù)庫中插入數(shù)據(jù)，其語法為： insert into 表名 [字段名，字段名 ] values (值表 ) Query 組件的賦值語句為 : ParamByname(‘FieldName’).Value:=s1。書號不正確 39。 end。)。 Open。已經(jīng)存在 39。 end。 (39。)。 (39。Author39。).value := 。 try (39。參數(shù) 出版時間 設(shè)置錯誤 39。 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 21 頁 try (39。參數(shù) 價格 設(shè)置錯誤 39。 ExecSQL。入庫出錯 39。 5． 5． 2 圖書管理的實現(xiàn) 圖書管理頁主要完成對數(shù)據(jù)庫中圖書數(shù)據(jù)的修改，其界面如圖所示： 其中我們用到的主要組件是： 組件對象名 屬性 屬性值 說明 DataSource1 DataSet Label1 Caption 書號 顯示“書號” ComboBox1 用于輸入或顯示書號 DBName DataSorce DataSource1 DBEdit 組件，連接數(shù)據(jù)表字段 按圖可以知道所用的組件，在這里我們用到 TDataSource 和 TDBNavigator 組件， TdataSource 組件是聯(lián)系數(shù)據(jù)集組件與數(shù)據(jù)控制組件的橋梁。 TDBNavigator 組件： TDBNavigator 組件主要用于在數(shù)據(jù) 集中進(jìn)行記錄導(dǎo)航和為用戶操縱數(shù)據(jù)集中的記錄提供一組簡單明了的控制按鈕。 ? ShowHint 與 Hints 屬性： ShowHint 屬性決定是否顯示 TDBNavigator 組件中各按鈕的提示信息， Hints 屬性是用來設(shè)置提示信息。 with do begin 。 Open。).AsString)。 end。 begin if Length() = 10 then begin try with do TableName:=39。 := 39。 // DBAuthor 連接數(shù)據(jù)表中 Author字段 := 39。 //DBCost 連接數(shù)據(jù)表中 OutDate 字段 := 39。code39。 except MessageDlg(39。 end。 var Key: Word。 通過以上的過程，圖書管理界面的功能基本已經(jīng)實現(xiàn)。在該組件里可以放置其他組件如 Radiobutton 組件、 Checkbox 組件等。 該界面用到的組件如表所示： 組件對象名 屬性 屬性值 說明 GroupBox1 Caption 操作 RadioButton1 Caption 添加 RadioButton2 Caption 修改 Label1 Caption 借書證號 Edit1 Text （空） MaxLength 10 借書證號最大長度 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 25 頁 Label2 Caption 姓名 Edit2 text （空） Label3 Caption 性別 ComboBox1 text （空） Label4 Caption 身份證號 Edit3 text （空） Button1 Caption 關(guān)閉 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。ReaderID39。).AsString)。139。男 39。).AsString)。 Close。 ? 判斷當(dāng)前行是否被選中： ? 圖書歸還判斷： if RecordCount = 0 then //該讀者所借圖書已全部歸還 Checked := IDYES else begin //還有圖書沒有歸還 if MessageDlg(39。delete from Lend where ReaderID=:ReaderID39。).Value := [i].Caption。 ? 從數(shù)據(jù)表中刪除讀者數(shù)據(jù)表： if Checked = IDYES then begin with do // delete reader begin 。 (39。 end。 4． 修改讀者信息：當(dāng)讀者信息發(fā)生變化時，可以在系統(tǒng)中對其進(jìn)行修改。 ComboBox1 的編輯框中的書號發(fā)生變化時觸發(fā)OnChange 事件，在該事件完成以下操作： (1) 初始化顯示數(shù)據(jù)的幾個組件對象； (2) 將幾個數(shù)據(jù)感知組件對象與圖書數(shù)據(jù)表 Book 中的相應(yīng)字段連接； (3) 在圖書數(shù)據(jù)表 Book 中查詢 ComboBox1 的編輯框中的書號； (4) 如果該圖書已借出，則在借閱數(shù)據(jù)表中查詢借書證號并計算該借書證號所持有書籍的數(shù)目、持有時間和應(yīng)交納的罰金。 OwnTime : TDate。39。39。OutDate39。Author39。Cost39。 if not Locate(39。,mtError,[mbok],0)。 := True。,mtError,[mbok],0)。select * from Lend where Code = :Code39。).Value := 。).AsDateTime。ReaderID39。 if StrToInt()60 then begin := True。 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 29 頁 := False。 end else begin 。 end。 end。select ReaderID from Reader where ReaderID =:ReaderID39。).Value := 。定義了一個記錄TownBook 來臨時保存該借書證所借圖書的信息，內(nèi)容如下： Townbook=record Code:String。 新建一個窗體用來顯示該借書證所借的已超期圖書的信息，該窗體 Name 屬性設(shè)置為 OwnBookForm。 5． 8 信息查詢窗體設(shè)計 信息查詢窗體包括圖書信息查詢、讀者信息查詢和借閱信息查詢 3 個功能。 模糊查詢是一種重要的查詢方式，這種查詢方式大多是在不知道準(zhǔn)確的查詢條件，而只知道部分信息的時候使用。其中，選擇按書號查詢(RadioButton1)對應(yīng)圖書數(shù)據(jù)表 BOOK 中的 Code 字段；選擇按書名查詢 (RadioButton2) 對應(yīng) Name 字段；選擇按出版社查詢(RadioButton3)對應(yīng) Press 字段；選擇按作者查詢 (RadioButton4)對應(yīng) Author 字段。 begin try 。+content+39。select * from book where code like :code39。).Value:=content。) 。 end。 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 32 頁 (39。 if then begin (39。author39。 while not eof do begin with d