【正文】 Name:String。在 QueryForm 空白窗體上添加一個 TpageControl 組件對象，并在其上建立三個頁面 (TabSheet)的 Caption 屬性的值分別設(shè)置為“查詢圖書基本信息”、“查詢讀者基本信息”和“查詢借閱基本信息”。 (4) 將查詢結(jié)果加入到列表 ListView 中； (5) 顯示查詢到的記錄數(shù)。%39。 end。 if then begin (39。select * from book where author like :author39。 open。 end。).Value:=content。code39。%39。 (3) 根據(jù) 4 個 Radio 按鈕 的選中情況決定在圖書數(shù)據(jù)表 Book 中查詢時所對應(yīng)的字段并生成 SQL 語句。其具體實現(xiàn)的代碼在源代碼中。在提交之前要檢查該借書證是否有超期的圖書沒有歸還。 (39。 end。 end。 := FieldByName(39。Code39。數(shù)據(jù)操作出錯 39。沒有數(shù)據(jù)或數(shù)據(jù)庫操作失敗 39。 := 39。 := 39。 :=39。在這里我們用到了兩個ADOQuery 組件，和一個 Tdatasource 組件，最終于界面如圖所示： 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 27 頁 用到的組件可以從圖中簡單的看出，具體功能的實現(xiàn)可以分為以下幾步： ? 選擇需要借出 /歸還的圖書 用戶可以從 ComboBox1 的下拉列表中選擇 書號或直接在 ComboBox1的編輯框中輸入書號。 ExecSQL。 end else Checked := IDNO。 (39。 end。) else (39。Name39。 ? ListView 控件在 標(biāo)簽頁上，它用來以大圖標(biāo)、小圖標(biāo)、列表或報表方式來顯示用戶信息。 ? end。 end。 Locate(39。Author39。當(dāng) ComboBox1 的編輯框的書號發(fā)生變化時將觸發(fā) ComboBox1 的 OnChange 事件，在這個事件中，將該書號圖書的信息在幾個 DBEdit 中顯示，代碼如下： procedure (Sender: TObject)。Code39。 begin 。 ? Enabled 屬性：此屬性用來決定與此數(shù)據(jù)源組件相連的數(shù)據(jù)控制組件是否顯示數(shù)據(jù)。 except MessageDlg(39。 except MessageDlg(39。 except MessageDlg(39。Press39。).value := 。 try with do begin 。++39。select Code from Book where Code =:Code39。 begin if length()10 then //新書書號長度是否 10 begin messagedlg(39。 :=39。 :=39。 :=ADOConnection1。 ? ADOQuery 組件：用來對數(shù)據(jù)庫中的數(shù)據(jù)進行查詢。其使用方法參考有關(guān)書籍。 (2) 執(zhí)行 SQL 命令。 。 writeln(pwfile,)。 readln(pwfile,possword)。它要求原密碼輸入正確并且新密碼與確認密碼 相同。 begin havelogin:=false。 。輸入密碼錯誤超過三次，程序退出 !39。)。 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 15 頁 begin entertime:=0。 //關(guān)閉主窗體 end。 procedure (Sender: TObject)。該工程主要包含的窗體結(jié)構(gòu)圖為：如下圖所示： 這六個窗體的 Name 屬性分別為 MainForm、 LoginForm、 BookForm、 LendForm 、 QueryForm。 ? 圖書入庫數(shù)據(jù)：用于生成新的圖書書目數(shù)據(jù)，包含的數(shù)據(jù)項有圖書書號、書名、作者、出版社、出版日期、內(nèi)容簡介、價格等。 ? 讀者數(shù)據(jù)管理：讀者個人數(shù)據(jù)的錄入、修改、刪除、刷新等功能。 3. 1 功能需求 該圖書管理系統(tǒng)涉及圖書信息、系統(tǒng)用戶信息、讀者信息、圖書借閱信息等多種數(shù)據(jù)管理。 2． 3 Delphi 的數(shù)據(jù)庫特性及功能簡介： 計算機軟件的開發(fā)分為兩個不同的體系，其中一個體系是使用傳 統(tǒng)的程序設(shè)計語言（如 Pascal\Basic 和 C 等）開發(fā)數(shù)值控制、數(shù)值運算等軟件，圍繞它們的重點是算術(shù)、數(shù)據(jù)結(jié)構(gòu)及近年產(chǎn)生的面向?qū)ο蠹夹g(shù)。 安全性原則：數(shù)據(jù)庫的安全性是指保護數(shù)據(jù)，防止非法用戶使用數(shù)據(jù)庫或合法用戶非法使用數(shù)據(jù)庫造成數(shù)據(jù)泄漏、更改或破壞。數(shù)據(jù)庫的備份策略恰當(dāng)，以防災(zāi)難性事故的發(fā)生。 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 7 頁 ? 空間分布結(jié)構(gòu)：集中式系統(tǒng)、分布式系統(tǒng)。MIS 的另一個定義是： MIS 是一個由人、計算機等組成的能進行信息收集、傳送、儲存、維護和使用的系統(tǒng)，能夠?qū)崪y企業(yè)的各種運行情況，并利用過去的歷史數(shù)據(jù)預(yù)測未來，從企業(yè)全局的角度出發(fā)輔助企業(yè)進行決策，利用信息控制企業(yè)的行為，幫助企業(yè)實現(xiàn)其規(guī)劃目標(biāo)。它使用 SQL 語言訪問數(shù)據(jù)庫的一個或多個表，還可以是類型不同的表。 SQL 語言能夠?qū)崿F(xiàn)復(fù)雜的查 詢功能，這是其他語言所不具有的。 Delphi7 除了在數(shù)據(jù)庫方面有很強的優(yōu)勢以外，在其他方面也有著非常強大的功能， Delphi7 進行數(shù)據(jù)庫的開發(fā)技術(shù)不亞于 VC，同時大大提高了開發(fā)效率，有時只需要少量的代碼就可以實現(xiàn)很多復(fù)雜的功能。 關(guān)鍵字 圖書、管理、數(shù)據(jù)庫管理系統(tǒng)、信息管理系統(tǒng)、 Delphi、 SQL Server2021。實現(xiàn)了該系統(tǒng)在實際中所應(yīng)該具備的功能。 Visual C++（以下簡稱 VC）作為數(shù)據(jù)庫開發(fā)的常用工具，雖然功能強大，但是由于其落后的Ｍ FC 架構(gòu)，使得很多初級程序員望而卻步；Delphi7 作為 Windows 環(huán)境下面向?qū)ο蟮目?速開發(fā)工具（ RAD）以其高速的開發(fā)效率深得程序員的喜愛。支持 SQL 編程是 Delphi 的重要特色， Delphi與所有的使用 SQL 語言的數(shù)據(jù)庫管理系統(tǒng)兼容，它還提供了一個 Tquery 組件專門用于支持 SQL 語言。它的語法如下： INSERT INTO 表名 [字段名，字段名 ] VALUES(值表 ) ? 數(shù)據(jù)的更新 數(shù)據(jù)的更新是指對已經(jīng)存在的數(shù)據(jù)進行修改，用 UPDATE 語句實現(xiàn)，其語法為： UPDATE 表名 SET 〈表名 .字段名 1〉 =〈表達式 1〉， 〈 表名 .字段名 2〉 =〈表達式 2〉 〈表名 .字段名 n〉 =〈表達式 n〉 , [WHERE] ? 數(shù)據(jù)的刪除 數(shù)據(jù)的刪除是指把數(shù)據(jù)表中的符合條件的記錄從表中刪除掉，其語法為： DELETE FROM 〈表名〉 [WHERE 子句 ] 在 Delphi 中 Tquery組件是一個使用 SQL語句對數(shù)據(jù)庫中的數(shù)據(jù)進行功能強大的查詢組件。它按適當(dāng)?shù)臅r間間隔供給格式相同的信息，支持一個組織的計劃、控制和操作功能，以便輔助決策制定過程。 ? 職能結(jié)構(gòu)：一般企業(yè)的職能子系統(tǒng)有市場銷售、生產(chǎn)管理 、物資供應(yīng)、人事管理、財務(wù)管理、信息管理、高層管理等子系統(tǒng)。 ? 安全性原則 應(yīng)用軟件與數(shù)據(jù)庫系統(tǒng)的設(shè)計要做到安全可靠，防止非法用戶的入侵。對輸入到數(shù)據(jù)庫中的數(shù)據(jù)要審核和約束機制。但并不是規(guī)范化程度越高越好。需求分析是軟件定義時期的最后一個階段，它的基本任務(wù)是準(zhǔn)確地回答“系統(tǒng)必須做 什么？”這個問題。 ? 系統(tǒng)用戶管理：實現(xiàn)用戶密碼的管理。 4． 2 數(shù)據(jù)庫設(shè)計 4． 2． 1．?dāng)?shù)據(jù)字典 根據(jù)系統(tǒng)功能模塊結(jié)構(gòu)圖和典型的圖書管理系統(tǒng)的需求，可得如下的數(shù)據(jù)字典： ? 系統(tǒng)用戶數(shù)據(jù)：圖書館內(nèi)部人員使用圖書管理系統(tǒng)的身份數(shù)據(jù)，包含的數(shù)據(jù)項是用戶口令 (密碼 )。 ? 圖書數(shù)據(jù)表：書號、書名、作者、出版社、出版日期、價格、數(shù)量、說明 ? 讀者數(shù)據(jù)表：讀者號、讀者姓名、性別、身份證號 ? 借閱數(shù)據(jù)表：書號、讀者號、借出日期 建立數(shù)據(jù)庫名為 BOOK Book 表：對應(yīng)圖書數(shù)據(jù)表，見表 (a) Reader 表：對應(yīng)讀者數(shù)據(jù)表，見表 (b) Lend 表：對應(yīng)借閱數(shù)據(jù)表 ，見表 (c) (a)圖書數(shù)據(jù)表： Book 圖書 借閱 讀者 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 11 頁 (b)讀者數(shù)據(jù)表 :Reader (c)借閱數(shù)據(jù)表： Lend 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 12 頁 圖書數(shù)據(jù)表、讀者數(shù)據(jù)表、借閱數(shù)據(jù)表這三個表之間的關(guān)系圖為：見表 B— R— L B— R— L 五、 系統(tǒng)實現(xiàn) 5． 1 工程窗體結(jié)構(gòu)設(shè)計 在 Delphi7 中創(chuàng)建一個工程，即圖書管理信息系統(tǒng)工程，命名保存為。 //顯示圖書管理窗體 end。 begin close。程序代碼如下： procedure (Sender: TObject)。39。 if entertime=3 then //超過輸入次數(shù) begin messagebox(handle,39。39。在主窗體的 OnCreate 事件的處理過程中初始化變量 HaveLogin,OnActivate 事件的處理過程中顯示用戶登錄窗體，代碼實現(xiàn)為： procedure (Sender: TObject)。 ? 修改按鈕的實現(xiàn)： 建立一個窗體 (PsForm)用來實現(xiàn)修改密碼，從而維護系統(tǒng)。 reset(pwfile)。 rewrite(pwfile)。)。 ? ADO 同時支持訪問本地數(shù)據(jù)庫和遠程數(shù)據(jù)庫，訪問本地數(shù)據(jù)庫時 ADO的一般處理方法如下： (1) 連接到數(shù)據(jù)源，開始一個事務(wù)。 ConnectionString 屬性可以指定一個到數(shù)據(jù)庫的連接。它的作用是從一個數(shù)據(jù)表中獲得并操縱數(shù)據(jù)， ADOTable 和Ttable 組件的使用方法大致相同。Persist Security Info=False’。 。39。 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 20 頁 綜上知識，可以得出入庫按鈕的 Onclick 事件的代碼： procedure (Sender: TObject)。 (39。書號 39。 end。Code39。 (39。).value := StrToDate()。).value := StrToFloat()。 TabSheet1Show(Sender)。數(shù)據(jù)控制組件通過數(shù)據(jù)源組件可以從數(shù)據(jù)集中取得數(shù)據(jù)，數(shù)據(jù)在 數(shù)據(jù)控制中顯示，用戶在數(shù)據(jù)控制組件中對數(shù)據(jù)進行操作，其只要屬性是： 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 22 頁 ? DataSet 屬性：該屬性用來指明與當(dāng)前數(shù)據(jù)源組件相聯(lián)系的數(shù)據(jù)集組件對象的名字。 var i:integer。 for i:=0 to RecordCount1 do //將所有圖書號加入到 ComboBox1 中 begin (FieldbyName(39。 ? 用戶可以在 ComboBox1 的編輯框中輸入需要修改的圖書的書號，也可以從ComboBox1 的下拉列表框中選擇書號。 //DBName 連接數(shù)據(jù)表中 Name字段 := 39。 Active:=True。,mtError,[mbok],0)。 ? begin ? if Key = 13 then //敲回車鍵 ? ComboBox1Change(Sender)。通過它的 Caption 屬性可以修改該組件的標(biāo)題。 (FieldByName(39。女 39。 Next。,