【正文】 if then begin (39。).Value:=content。其中，選擇按書號查詢(RadioButton1)對應(yīng)圖書數(shù)據(jù)表 BOOK 中的 Code 字段；選擇按書名查詢 (RadioButton2) 對應(yīng) Name 字段；選擇按出版社查詢(RadioButton3)對應(yīng) Press 字段；選擇按作者查詢 (RadioButton4)對應(yīng) Author 字段。定義了一個記錄TownBook 來臨時保存該借書證所借圖書的信息，內(nèi)容如下： Townbook=record Code:String。 end。ReaderID39。,mtError,[mbok],0)。Cost39。39。 end。delete from Lend where ReaderID=:ReaderID39。男 39。 該界面用到的組件如表所示： 組件對象名 屬性 屬性值 說明 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。 end。 // DBAuthor 連接數(shù)據(jù)表中 Author字段 := 39。).AsString)。 TDBNavigator 組件： TDBNavigator 組件主要用于在數(shù)據(jù) 集中進行記錄導(dǎo)航和為用戶操縱數(shù)據(jù)集中的記錄提供一組簡單明了的控制按鈕。參數(shù) 價格 設(shè)置錯誤 39。).value := 。 (39。)。39。 :=ADOConnection1。 LoginPromt 屬性昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 18 頁 決定是否彈出密碼輸入框。 end。 closefile(pwfile)。 //初始化，說明還沒有登錄 end。,39。 end。 begin 。 圖書管理系統(tǒng) 用 戶 登錄 圖書管理 圖書入庫 圖書管理 讀者管理 刷新讀者信息 刪除讀者信息 添加讀者信息 圖書借閱管理 借出管理 歸還管理 圖書查詢 圖書基本信息 借閱查詢 系統(tǒng)管理 用戶密碼管理 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 10 頁 ? 讀者個人數(shù)據(jù)：讀者個人與圖 書借閱有關(guān)的身份數(shù)據(jù)，包含的數(shù)據(jù)項有讀者號、姓名、性別、身份證號。從管理的角度出發(fā)可將圖書管理分為三類：圖書信息管理、系統(tǒng)管理、讀者數(shù)據(jù)管理。數(shù)據(jù)庫要有人 證和授權(quán)機制。 2． 2 管理信息系統(tǒng)的設(shè)計原則 管理信息系統(tǒng)的設(shè)計與開發(fā)是一項系統(tǒng)工程，為了保證系統(tǒng)的質(zhì)量，設(shè)計人員必須遵守共同的設(shè)計原則，盡可能地提高系統(tǒng)的各項指標。其技術(shù)可以參考有關(guān)書籍。 正如業(yè)界信奉的格言：“真正的程序員用 VC，聰明的程序員選擇 Delphi!” SQL Server2021 介紹： SQL Server2021 是 Microsoft 公司最新開發(fā)的大型關(guān)系數(shù)據(jù)庫管理系統(tǒng)，具有強大的關(guān)系數(shù)據(jù)庫創(chuàng)建、開發(fā)、設(shè)計及管理功能。本系統(tǒng)使用 Borland 公司的Delphi7 作為前端開發(fā)工具，使用 SQL Server2021 作為數(shù)據(jù)庫后臺服務(wù)器來開發(fā)的。 ? SQL(Strctured Query Language)是結(jié)構(gòu)化查詢語言的縮寫，它專用于關(guān)系數(shù)據(jù)庫的設(shè)計、維護和控制，目前已被眾多的大中型數(shù)據(jù)庫管理系統(tǒng)所采用，例昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 5 頁 如 :SQL Server,Oracle,Sybase 等。 MIS的一個定義是 ：一個 MIS 是能夠提供過去、現(xiàn)在和將來預(yù)期信息的一種有條理的方式，這些信息涉及到內(nèi)部業(yè)務(wù)和外部情報。數(shù)據(jù)庫的設(shè)計應(yīng)盡可能考慮到未來的需要。規(guī)范化一共有 6 個級別： 1NF、 2NF、 3NF、 BCNF、 4NF、 5NF。 ? 圖書查詢管理：通過各種查詢方式來進行查詢，比如書號、作者等。 該圖書管理系統(tǒng)的數(shù)據(jù)庫包含的三個關(guān)系表是：圖書數(shù)據(jù)表 (Book)、讀者數(shù)據(jù)表 (Reader)、借閱數(shù)據(jù)表 (Lend)。 procedure (Sender: TObject)。 begin Assignfile(pwfile,39。 //應(yīng)用程序結(jié)束 end else begin :=39。 end。)。通過 ADO， Delphi7 也能讓用戶快速訪問關(guān)系或非關(guān)系數(shù)據(jù)庫以及 E— Mail 和商務(wù)文件系統(tǒng)。 ? ADOTable 組件：與 BDE 中的 Table 組件非常類似，許多屬性、事件和方法也一用。 begin 。 而 ADOQuery 組件的賦值語句為 : (‘FieldName’).Value:=s1。 if RecordCount 0 then //此書號已經(jīng)存在 begin MessageDlg(39。 (39。OutDate39。 end。 下面來具體實現(xiàn)該頁面的實現(xiàn)： ? 在圖書管理頁面顯示時，將數(shù)據(jù)庫中所有圖書的書號插入到 ComboBox1 中供用戶選擇，這在 TabSheet2(圖書管理頁面 )的 OnShow 事件的處理程序中實現(xiàn)，代碼如下： procedure (Sender: TObject)。 end。Memo39。 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 24 頁 ? Shift: TShiftState)。).AsString。 end。 ExecSQL。首先在讀者列表 ListView1 中選 中需要修改信息的讀者，該讀者的信息將在讀者信息欄的相應(yīng)編輯框中顯示，對其進行修改后單擊“確定”按鈕提交修改后的數(shù)據(jù)。 if Length() = 10 then begin try with do begin TableName:=39。code39。)。 := True。 ? 借出圖書的實現(xiàn) 用戶選擇圖書后，如果該圖書沒有被借出，用于輸入借書證號的ReaderIDEdit 組件對象將被設(shè)置為焦點，等待用 戶輸入借此書的讀者的借書證號。 OwnBookForm窗體的界面如圖所示：其中包含一個 ListView組件對象。 with do begin content:=。 (39。).Value:=content。) 。 if then begin (39。在查詢時 需完成以下工作： (1) 將編輯框中的內(nèi)容存放在字符串變量 Content 中； (2) 如果“模糊查詢 ”按鈕復(fù)選框 (CheckBox1)被選中，則查詢內(nèi)容變?yōu)?”’%’+Conten+’%’”。ReaderID39。 Close。OutDate39。 end。 := 39。 var FDate : TDate。)。Checked:integer。).AsString = 39。其大體的界面如圖所示： 在這里首先介紹下窗體要用到 的 Delphi 組件： ? TGroupBox 組件：它是標準的分組框組件，它在組件面板的 Standard 標簽頁上。 end。OutDate39。)。 end。 end。 (39。 Exit。 exit。 :=39。 begin :=’Provider=。這樣做另外一個好處是，在進行產(chǎn)品分發(fā)時，可以避開大量 BDE的鏈接庫 DLL 的分發(fā)，而且讓程序自動安裝 BDE 不是件容易的事情。)。 begin assignfile(pwfile,39。 其中 文件用記事本來創(chuàng)建，保存時必須以 .sys 作為擴展名。 inc(entertime)。 5． 3 登錄窗體 其界面如圖所示： 用戶登錄窗體運行時是讓用戶輸 入密碼，以確定用戶是否合法，能否進入系統(tǒng)。 用到的主要組件對象的屬性設(shè)置見表所示： 組件對象名 屬性 屬性值 說明 Lable1 Caption 歡迎使用圖書管理信息系統(tǒng) 顯示字體 組件對象名 屬性 屬性值 說明 Image1 Picture (設(shè)置一幅位圖 ) 主窗體中的背景圖 Stetch True Autosize True MainMenu1 Items 制作一些菜單項 菜單制作最后效果圖為： 在主窗體中通過單擊菜單項按鈕來選擇所需的窗體，每個菜單 項的功能就是顯示對應(yīng)的窗體。 2. 軟件環(huán)境： ? 開發(fā)環(huán)境： Windows XP ? 開發(fā)工具： Delphi7 ? 數(shù)據(jù)庫管理系統(tǒng)： SQL Server2021 ? 運行環(huán)境： Windows 98/ME/2021/XP 昆明冶金高等?？茖W(xué)校計信系 畢業(yè)論文 第 9 頁 四、 系統(tǒng)設(shè)計 系統(tǒng)設(shè)計的基本目的就是回答“概括地說，系統(tǒng)應(yīng)該如何實現(xiàn)？”這個問題通過這個階段的工作將劃分出組成系統(tǒng)的物理元素 程序、文件、數(shù)據(jù)庫、人工過程和文檔等，但是每個物理元素仍處于黑盒子級。它可以訪問多種數(shù)據(jù)庫管理系統(tǒng)的數(shù)據(jù)庫，憑借窗體 (Forms)和報表 (Rports)， BDE(Borland Database Engine)可以訪問諸如 Paradox、本地 InterBase 服務(wù)器的數(shù)據(jù)庫，也可以訪問遠程數(shù)據(jù)庫服務(wù)器上的數(shù)據(jù)庫。 ? 數(shù)據(jù)庫設(shè)計原則 一致性原則：對信息進行統(tǒng)一、系統(tǒng)的分析與設(shè)計，協(xié)調(diào)好各數(shù)據(jù)源，保證系統(tǒng)數(shù)據(jù)的一致性和有效性。 2． 1． 3 MIS 的結(jié)構(gòu) MIS 的結(jié)構(gòu)有以下幾種： ? 總體結(jié)構(gòu)：信息源、信息處理 器、信息用戶、信息管理者。 4. SQL 提供了簡單而豐富的命令，易學(xué)、易用。 圖書信息管理作為計算機應(yīng)用的一個分支，有著許多的優(yōu)點，如：檢索迅速、查找方便、準確率高、使用及時、存儲量大、成本低等特點。因此，在以計算機技術(shù)為基礎(chǔ)的當今科學(xué)發(fā)展中，以計算機為基礎(chǔ)的信息管 理