【正文】 3． 2 性能需求 系統(tǒng)的運行對運行環(huán)境的一些要求： 1. 硬件環(huán)境： ? 處理器： Inter Pentium 166 MX 或更高。 ? 顯卡： SVGA 顯示適配器。它的另外一個任務(wù)是設(shè)計軟件的結(jié)構(gòu)，也就是要確定系統(tǒng)中的每個程序是有那些模塊組成的，以及這些模塊相互之間的關(guān)系。 4． 2 數(shù)據(jù)庫設(shè)計 4． 2． 1．數(shù)據(jù)字典 根據(jù)系統(tǒng)功能模塊結(jié)構(gòu)圖和典型的圖書管理系統(tǒng)的需求，可得如下的數(shù)據(jù)字典： ? 系統(tǒng)用戶數(shù)據(jù)：圖書館內(nèi)部人員使用圖書管理系統(tǒng)的身份數(shù)據(jù)，包含的數(shù)據(jù)項是用戶口令 (密碼 )。 圖書管理系統(tǒng) 用 戶 登錄 圖書管理 圖書入庫 圖書管理 讀者管理 刷新讀者信息 刪除讀者信息 添加讀者信息 圖書借閱管理 借出管理 歸還管理 圖書查詢 圖書基本信息 借閱查詢 系統(tǒng)管理 用戶密碼管理 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 10 頁 ? 讀者個人數(shù)據(jù)：讀者個人與圖 書借閱有關(guān)的身份數(shù)據(jù)，包含的數(shù)據(jù)項有讀者號、姓名、性別、身份證號。 ? 圖書借閱數(shù)據(jù)：與借閱有關(guān)的一些數(shù)據(jù)，包含的數(shù)據(jù)項有圖書書號、讀者的讀者號、借閱日期、還書日期。根據(jù)圖書實體得到圖書數(shù)據(jù)表 (Book),根據(jù)讀者實體得到讀者個人數(shù)據(jù)表 (Reader),根據(jù)借閱聯(lián)系得到借閱表 (Lend).在 這里我們用 SQL Server2021 數(shù)據(jù)庫管理系統(tǒng)來設(shè)計數(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校計信系 畢業(yè)論文 第 11 頁 (b)讀者數(shù)據(jù)表 :Reader (c)借閱數(shù)據(jù)表： Lend 昆明冶金高等?？茖W校計信系 畢業(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)工程，命名保存為。它們對應(yīng)的單元文件分別為 Main 、 Login、 Book、 Reader、 Lend、 infoQuery。主窗體的界面如圖所示。它們的單擊事件的程序代碼如下： 昆明冶金高等專科學校計信系 畢業(yè)論文 第 14 頁 procedure (Sender: TObject)。 //顯示圖書管理窗體 end。 begin 。 procedure (Sender: TObject)。 //顯示借閱管理窗體 end。 begin close。 procedure (Sender: TObject)。 //顯示信息查詢窗體 end。用戶登錄是最多可輸入三次密碼，如果密碼仍不正確系統(tǒng)將關(guān)閉，所以我們可以定義一個變量來記錄密碼輸入次數(shù)，在 LoginForm 窗體的變量定義部分定義：entertime:integer。程序代碼如下： procedure (Sender: TObject)。 end。其單擊事件OnClick 的處理代碼如下： procedure (Sender: TObject)。 possword:string。39。 //從文件 中讀取密碼 reset(pwfile)。 closefile(pwfile)。 //密碼輸入次數(shù)增加 1 if =possword then close else begin :=39。 if entertime=3 then //超過輸入次數(shù) begin messagebox(handle,39。,39。,MB_OK)。 。39。 end。 end。 登錄窗體它將在主窗體初次激活之前被顯示，這樣才能起到合法性檢查的作用。在主窗體的 OnCreate 事件的處理過程中初始化變量 HaveLogin,OnActivate 事件的處理過程中顯示用戶登錄窗體，代碼實現(xiàn)為： procedure (Sender: TObject)。 //初始化，說明還沒有登錄 end。 begin if not havelogin then //還沒有登錄 begin 。 end。 ? 修改按鈕的實現(xiàn)： 建立一個窗體 (PsForm)用來實現(xiàn)修改密碼，從而維護系統(tǒng)。其界面如圖所示： 其中“確認”按鈕單擊事件的代碼為： procedure (Sender: TObject)。 possword:string。39。 reset(pwfile)。 closefile(pwfile)。原密碼不對，不能修改密碼 !39。39。 rewrite(pwfile)。 昆明冶金高等專科學校計信系 畢業(yè)論文 第 17 頁 closefile(pwfile)。密碼修改成功 !39。 end else begin showmessage(39。)。 end。 5． 4 數(shù)據(jù)模塊設(shè)計 ? ADO (ActiveX Data Objects)是微軟提供的一項技術(shù)，它是訪問數(shù)據(jù)庫的一種接口方式，可以發(fā)表訪問各種類型的數(shù)據(jù)庫，特別是 OLEDB 數(shù)據(jù)庫。從版本 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é)。 ? ADO 同時支持訪問本地數(shù)據(jù)庫和遠程數(shù)據(jù)庫，訪問本地數(shù)據(jù)庫時 ADO的一般處理方法如下： (1) 連接到數(shù)據(jù)源，開始一個事務(wù)。 (3) 如果命令返回數(shù)據(jù)集，則將數(shù)據(jù)存儲在緩存中 (4) 對數(shù)據(jù)進行操作 (5) 用緩存中的數(shù)據(jù)更新數(shù)據(jù)集 (6) 接受或者拒絕對數(shù)據(jù) 庫的修改，結(jié)束事務(wù) 訪問遠程數(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ù)。 ? BDE 與 ADO 數(shù)據(jù)連接技術(shù)的比較： BDE 現(xiàn)在已經(jīng)停止發(fā)展了，其性能被超越是遲早的事，因此，在開發(fā)長期應(yīng)用產(chǎn)品時，我們應(yīng)該采用 ADO技術(shù)。 5． 4． 2 ADO 常用的組件 ? ADOConnection 組件：它起到一個橋梁作用，其他 5 個組件都可以通過它來操作數(shù)據(jù)庫，它相對于其他 5 個組件來說就相當于數(shù)據(jù)庫別名 。 ConnectionString 屬性可以指定一個到數(shù)據(jù)庫的連接。 LoginPromt 屬性昆明冶金高等專科學校計信系 畢業(yè)論文 第 18 頁 決定是否彈出密碼輸入框。 可以 說集 ADOTable ADOQuery ADOStoredProc 三者的功能于一身。 ? ADOComand 組件：主要用于執(zhí)行 SQL 語句 ,例如 Insert,Delete\Drop 等，如果要使用 SELECT 語句建議使用 TADOQuery 組件。它的作用是從一個數(shù)據(jù)表中獲得并操縱數(shù)據(jù)， ADOTable 和Ttable 組件的使用方法大致相同。在后面將介紹。在Delphi7 新建一個數(shù)據(jù)模塊 DataModuleADO, 并在數(shù)據(jù)模塊中放置ADOConection 組件對象、 ADOQuery 組件對象和 ADOTable 各一個，然后設(shè)置它們的屬性，如圖所示： 在數(shù)據(jù)模塊 DataModuleADO 創(chuàng)建時完成對三個 ADO 組件對象的初始化，這在 DataModuleADO 的 OnCreate 事件的處理程序中實現(xiàn)，代碼如下： procedure (Sender:Tobject)。DataSource=’+Mypath+’Data\。Persist Security Info=False’。 :=ADOConnection1。在工程中選中 BookForm窗體，然后添加一個 TpageControl 組件對象，在改對象上建立兩個界面 (Tabsheet),用到的組件和屬性設(shè)置參考界面。 在新書入庫頁顯示時，需要清空幾個編輯框并將輸入焦點放在輸入書號的編輯框CodeEdit 上，這在 TabSheet1(新書入庫頁 )的 OnShow 事件的處理程序中實現(xiàn)，代 碼如下： procedure (Sender: TObject)。 。39。39。39。39。39。 end。 在這里我們用到 SQL 語言來向數(shù)據(jù)庫中插入數(shù)據(jù)，其語法為： insert into 表名 [字段名，字段名 ] values (值表 ) Query 組件的賦值語句為 : ParamByname(‘FieldName’).Value:=s1。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 20 頁 綜上知識，可以得出入庫按鈕的 Onclick 事件的代碼： procedure (Sender: TObject)。書號不正確 39。 。 end。 (39。)。Code39。 Open。書號 39。已經(jīng)存在 39。 。 end。 end。 (39。+ 39。)。Code39。 (39。).value := 。Author39。 (39。).value := 。num39。 try (39。).value := StrToDate()。參數(shù) 出版時間 設(shè)置錯誤 39。 Exit。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 21 頁 try (39。).value := StrToFloat()。參數(shù) 價格 設(shè)置錯誤 39。 Exit。 ExecSQL。 TabSheet1Show(Sender)。入庫出錯 39。 end。 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ù)控制組件的橋梁。數(shù)據(jù)控制組件通過數(shù)據(jù)源組件可以從數(shù)據(jù)集中取得數(shù)據(jù)，數(shù)據(jù)在 數(shù)據(jù)控制中顯示，用戶在數(shù)據(jù)控制組件中對數(shù)據(jù)進行操作，其只要屬性是： 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 22 頁 ? DataSet 屬性：該屬性用來指明與當前數(shù)據(jù)源組件相聯(lián)系的數(shù)據(jù)集組件對象的名字。 TDBNavigator 組件： TDBNavigator 組件主要用于在數(shù)據(jù) 集中進行記錄導(dǎo)航和為用戶操縱數(shù)據(jù)集中的