【正文】 要基礎(chǔ)設(shè)施，在計算機應(yīng)用領(lǐng)域堪稱最有應(yīng)用價值和市場前景的技術(shù)。具體來說，就是圍繞各用戶單位日常手工操作的業(yè)務(wù)數(shù)據(jù)、管理數(shù)據(jù)，在數(shù)據(jù)庫管理系統(tǒng)環(huán)境下，運用數(shù)據(jù)處理技術(shù)，開發(fā)出相應(yīng)的業(yè)務(wù)處理及管理決策系統(tǒng)，并利用系統(tǒng)派生出的高附加值信息，達(dá)到提高業(yè)務(wù)或管理效率、避免浪費或失誤、并輔助領(lǐng)導(dǎo)決策的目的。 數(shù)據(jù)庫技術(shù)可以開發(fā)面向業(yè)務(wù)處理 和綜合決策的管理信息系統(tǒng)，比如財務(wù)、人事、庫存、資料、資產(chǎn)設(shè)備、銷售、日程、以及會議活動等任何涉及大量規(guī)則數(shù)據(jù)管理方面的程序。 數(shù)據(jù)庫應(yīng)用的解決方案 數(shù)據(jù)庫應(yīng)用的解決方案包括軟件工程的基本思想、數(shù)據(jù)庫理論、用戶前端訪問界面等三方面的重要內(nèi)容。方案中的數(shù)據(jù)流分析對應(yīng)到軟件工程中的需求分析，實體關(guān)系圖及相應(yīng)的用戶前端訪問界面劃分對應(yīng)到軟件工程中的概要設(shè)計。 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)的目標(biāo)是建立一個滿足用戶長期需求的產(chǎn)品。把設(shè)計轉(zhuǎn)變?yōu)閷嶋H的數(shù)據(jù)庫，并且這些數(shù)據(jù)庫帶有功能完備、高效能的應(yīng)用。后期維護(hù)工作一般要占整個軟件生命周期的 80% 以上。 業(yè)務(wù)分析 下面以一所學(xué)校的圖書館為例子進(jìn)行分析，畫出圖書館的組織結(jié)構(gòu)圖 ： 圖 圖書館的組織結(jié)構(gòu)圖 該圖書館各個部門負(fù)責(zé)的主要業(yè)務(wù)如下： （ 1）采編組主要負(fù)責(zé)圖書采編工作，包括購置新書、打印編目、增加數(shù)量。 （ 3）借閱組主要負(fù)責(zé)圖書流通、查詢統(tǒng)計、借閱查詢等工作。 下面繪制出圖書館流通業(yè)務(wù)中借書的流程圖： （ 1）讀者在目錄廳查閱索引卡； （ 2）讀者寫出所借圖書的分類號、種次號、交給圖書管理員，并出示本人的借書證； （ 3）圖書管理員根據(jù)圖書的分類號、種次號到書庫找書； （ 4）將圖書交給讀者，并由讀者填寫所借圖書的借書卡。 得出該圖書館業(yè)務(wù)流程圖 如下所示： 圖 業(yè)務(wù)流程圖 現(xiàn)行系統(tǒng)存在問題的分析及解決方案 該圖書館工作大部分還是進(jìn)行著手工管理，工作起來 效率很低，由于不可避免的人為因素，經(jīng)常造成數(shù)據(jù)的遺漏、誤報。 8 基于以上的對問題的分析，利用計算機給我們提供信息，及時地調(diào)整學(xué)校圖書館圖書結(jié)構(gòu)，并且對學(xué)生們的借閱過程形成一整套動態(tài)的管理就十分必要了。 學(xué)校圖書館規(guī)模相對于商業(yè)圖書館小，但要有著完善的圖書信息，對每一冊書要有詳細(xì) 的記錄信息，功能上對系統(tǒng)的需求是全面的。 這四個方面形成了學(xué)校圖書館一個工作整體，采用計算機自動化信息處理，可方便快捷地共享信息、交流信息，高效地協(xié)同工作。硬件的配置要求不能太高，這樣可以很好的適應(yīng)當(dāng)前的學(xué)校圖書館。 第三章 系統(tǒng)總體結(jié)構(gòu)設(shè)計 如果要完成一個完整的圖書管理系統(tǒng)，需要的相關(guān)信息很多。并不能完全滿足上面例子所描述的圖書館，使用前應(yīng)進(jìn)行二次開發(fā)。 能夠?qū)D書進(jìn)行注冊登記，也就是將圖書的基本信息（如：書名、作者、價格等）預(yù)先存入數(shù)據(jù)庫中，供以后檢索。 9 提供方便的查詢方法。 提供統(tǒng)計分析功能。 提供舊書銷毀功能，對于淘汰、損壞、丟失的書目可及時對數(shù)據(jù)庫進(jìn)行修改。提供較為完善的差錯控制與友好的用戶界面，盡量避免誤操作。 數(shù)據(jù)輸出部分：主要是各種統(tǒng)計查詢，包括：根據(jù)圖書信息（如書名、作者、出版社等）查閱圖書及其借閱信息、統(tǒng)計輸出圖書類型比例等。 系統(tǒng)各功能模塊設(shè)計 在系統(tǒng)功能分析的基礎(chǔ)上，考慮 Delphi 程序編制的特點，得到如圖 所示的系統(tǒng)功能模塊圖： 圖書借閱管理系統(tǒng) 數(shù)據(jù)輸入子系統(tǒng) 數(shù)據(jù)輸出子系統(tǒng) 數(shù)據(jù)管理子系統(tǒng) 10 圖 系統(tǒng)功能模塊圖 數(shù)據(jù)流圖 （ 1） 圖書基本信息登記 /修改 圖 圖書基本信息登記 /修改 說明：出版社信息人工錄入后，存放在出版社信息庫中，便于今后書籍信息的錄入以及出版社信息的查詢。登記新書時，當(dāng)涉及到出版社和分類的填寫時，只需做相應(yīng)的選擇即可，并存放在圖書信息庫中。 （ 2） 借閱人基本信息登記 /修改 圖書信息 出版 社 信息庫 圖書分類信息庫 出版社信息 分類信息 得到完整的圖書信息 圖書信息庫 借閱人基本信息 11 圖 圖書基本信息登記 /修改 說明： 錄入借閱人基本信息后存放在借閱人信息庫中。 （ 3） 圖書查詢 圖 圖書查詢 說明：輸入查詢條件后，檢索圖書信息庫，并反應(yīng)出查詢結(jié)果。 （ 4） 圖書統(tǒng)計 圖 圖書統(tǒng)計 查詢條件 圖書信息庫 信息查詢 圖書查詢結(jié)果 統(tǒng)計條件 圖書分類信息庫 信息統(tǒng)計 圖 書統(tǒng)計結(jié)果 圖書信息庫 12 說明：根據(jù)選擇的統(tǒng)計條件，檢索圖書分類信息庫或圖書信息庫，并反應(yīng)出統(tǒng)計結(jié)果。 (5)圖書借閱 說明：輸入借閱人編號， 通過檢索借閱人信息庫，核實借閱人身份。進(jìn)行圖書借出處理后，在圖書借閱庫中進(jìn)行登記，并將借出圖書的在借標(biāo)志設(shè)為“是”。 （ 5） 圖書歸還 圖 圖書歸還 說明：輸入圖書編號，檢索在借信息庫，反應(yīng)出圖輸借閱情況。 如圖 所示。 數(shù)據(jù)庫需求分析 根據(jù)以上的需求分析和數(shù)據(jù)組織，開始設(shè)計數(shù)據(jù)結(jié)構(gòu)，即根據(jù)需求勾畫出實體 /關(guān)系圖（ E/R）。 從圖 中可以看出，在這個系統(tǒng)中實際存在的實體：圖書和借閱人，其中借閱人和圖書是多對多關(guān)系，針對本系統(tǒng)，通過對圖書借閱管理的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)如下： 圖書基本信息，其數(shù)據(jù)項有圖書編號、圖書名稱、作者、出版社等。 圖書借閱登記，其數(shù)據(jù)項有借閱序號、借閱圖書編號、借閱人編號等。 圖書分類信息，其數(shù)據(jù)項有分類編號、分類名稱、同一類型圖書數(shù)目。如果程序運行過程中需要總金額，可以實時計算。這就是所謂的第四范式。表與表相關(guān)聯(lián)的外鍵最好是由程序自動生成的主鍵，這樣數(shù)據(jù)庫就比較規(guī)范了。建議實際應(yīng)用中定義成 CHAR(1)字段可以存儲多種可能的狀態(tài)，在最初設(shè)計時，可能我們沒有考慮到的一些情況，在程序后來的開發(fā)中，可以通過設(shè)計標(biāo)志字段為不同的 值來解決，這樣就避免了修改數(shù)據(jù)庫結(jié)構(gòu)。 程序一旦開始編碼，就應(yīng)該盡量避免再修改數(shù)據(jù)庫。錯誤越改越多，越改越亂，最終導(dǎo)致程序的失敗。即使你一個模塊已經(jīng)調(diào)試無誤，但只要數(shù)據(jù)庫結(jié)構(gòu)改動。 圖書借閱管理系統(tǒng)數(shù)據(jù)庫中各個表的設(shè)計結(jié)果如下面幾個表格所示 。 用戶基本信息表 Reader， 記錄用戶的基本情況， userid 設(shè)為主鍵、索引。 表 用戶基本信息表 userid 列名 數(shù)據(jù)類型 長度 可否為空 注釋 Userid Char 15 Not Null 借閱人編號 name Char 20 Null 借閱人姓名 Sex varchar 6 Null 借閱人性別 Groupid Char 6 Null 借閱人類型 Idcard Char 20 Null 身份證號 用戶登陸和權(quán)限數(shù)據(jù)表， 記錄系統(tǒng) 用戶的用戶名、密碼與權(quán)限， id 設(shè)為主鍵。 表 用戶登陸和權(quán)限數(shù)據(jù)表 列名 數(shù)據(jù)類型 長度 可否為空 注釋 id Char 長整形 Not Null 用戶編號 username Char 30 Null 用戶名 password Char 30 Not Null 密碼 Class char 長整形 Not Null 用戶類型 圖書基本信息表，記錄圖書基本信息， code 設(shè)為主鍵、索引。 表 圖書基本信息表 列名 數(shù)據(jù)類型 長度 可否為空 注釋 Code Char 15 Not null 圖書編號 Class Char 10 Null 圖書類型 Name Char 50 Null 圖書名稱 outdate date Null 出版日期 author Char 50 Null 作者 17 Concern Char 50 Null 出版社 Cost numeric Null 價格 Memo Char 50 Null 備注 Lost Char 4 Null 借出時間 此外還有圖書分類數(shù)據(jù)表，如表 所示： 表 圖書分類數(shù)據(jù)表 列名 數(shù)據(jù)類型 長度 可否為空 注釋 Classid Char 10 Not Null 圖書類別編號 Classname Char 50 Null 圖書類別名稱 （ 1）規(guī)劃有效的索引 ，包括主關(guān)鍵字和外部關(guān)鍵字所在的列。 。具有較高數(shù)據(jù)插入操作頻率的數(shù)據(jù)庫最好不要索引。 。 。為簇關(guān)鍵字選擇列或列組，簇關(guān)鍵字以經(jīng)常需要的順序排序數(shù)據(jù)或以必須被一起訪問的記錄而分組記錄。具有高選擇性的列是索引的最好候選列。 （ 2）使用約束實現(xiàn)數(shù)據(jù)的完整性 PRIMARY KEY 約束在表中定義了主關(guān)鍵字，它是行唯 一的標(biāo)識符，它可以強制實體完整性。 18 鍵入的值必須是唯一的。 PRIMARY KEY 約束在指定的列創(chuàng)建唯一的索引，可以指定簇索引和非簇索引（如果 非簇索引先前并不存在，簇索引是默認(rèn)的）。該約束使用唯一的索引來強制實體的完整性。在使用 UNIQUE 約束時，考慮以下事實； 。 UNIQUE 約束運用于具有唯一值的單列或多列，但不能用于表的主關(guān)鍵字。 該系統(tǒng)與應(yīng)用環(huán)境的關(guān)系如上圖 ： 圖 系統(tǒng)與應(yīng)用環(huán)境關(guān)系圖 本系統(tǒng)屬于管理信息系統(tǒng)（ MIS）范疇，他是通過前臺界面調(diào)用后臺數(shù)據(jù)庫操作實現(xiàn)操作員 用戶信息 圖書 管理系統(tǒng) ADO 數(shù)據(jù)查詢 19 的。新建一個數(shù)據(jù)庫文件 (文件名為 )。 二、 系統(tǒng)數(shù)據(jù)模塊的建立 由于本系統(tǒng)數(shù)據(jù)庫表單較多，為避免向每個窗體中添加數(shù)據(jù)訪問組件來訪問數(shù)據(jù)庫中的數(shù)據(jù)，我利用了 Delphi 中提供的數(shù)據(jù)模塊窗體。 三、 數(shù)據(jù)庫詳細(xì)表一覽 系統(tǒng)所需的數(shù)據(jù)按照如下思路設(shè)計，有用戶基本信息表、 用戶登陸和權(quán)限數(shù)據(jù)表 、圖書信息數(shù)據(jù)表和圖書分類信息表等多個表。我們的這個圖書管理系統(tǒng)，是屬于單層數(shù)據(jù)庫。它的優(yōu)點是安全性高，數(shù)據(jù)存取效率高。運行本程序，我們首先進(jìn)入的是登陸界面，系統(tǒng)要求用戶輸入正確的用戶名和密碼。用戶如果連續(xù)三次輸入錯誤，應(yīng)用程序會強迫使用者退出并終止應(yīng)用程序的運行。 var Query : TADOQuery。 := 。select * from Operator where UserName=:UserName and userpwd=:userpwd39。 (39。).Value := 。userpwd39。當(dāng)用戶單擊用戶名下拉列表框時，編寫代碼以實現(xiàn)從數(shù)據(jù)庫中讀取用戶名信息。如果用戶的用戶名和密碼輸入正確，則允許此用戶登陸，并記錄當(dāng)前登陸用戶的登陸時間和登陸日 期，同時初始化主窗體，根據(jù)用戶身份決定那些功能對該用戶可用，那些功能對用戶不可用。 begin if frmLogin = nil then frmLogin := (nil)。 end。 begin if frmRightSetting = nil then frmRightSetting := (nil)。 end。操做時可以選擇搜索內(nèi)容，可以按書名，書號，出版社，圖書類別查詢，也可模糊查詢。Param : string)。%39。Code39。 if then (39。).Value := Param。Concern39。 if then (39。).Value := Param。Class39。 end。 begin if Length() 10 then begin MessageDlg(39。,mtError,[mbok],0)。 Exit。 if CheckExistCode() then begin MessageDlg(39。++39。,mtError,[mbok],0)。 Exit。 try In