【正文】 現(xiàn)在廣為流行 Boland 公司的成熟產(chǎn)品 。 在 中，關(guān)系型數(shù)據(jù)庫一般可以分為兩類：一類是桌面數(shù)據(jù)庫，例如 Access、 Paradox、 FoxPro、 Dbase,另一類就是客戶 /服務(wù)器數(shù)據(jù)庫，例如 SQL Server、 Oracle 和 Sybase 等。它主要用于小型的、單機(jī)的、單用戶的數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫是一個(gè)包含各種 Access “對(duì)象” (表、查詢、窗體、宏和模塊 )的文件， Access 中所有工作都是建立在此基礎(chǔ)之上的。每 12 一行稱為一個(gè)“記錄”，包含與單個(gè)實(shí)體有關(guān)的所有信息，如某個(gè)員工的姓名、性別、所在部門、學(xué)歷等。根據(jù)設(shè)計(jì)方法的不同，查詢能夠在數(shù)據(jù)庫中檢索并組合來自不同表的數(shù)據(jù)。窗體是一個(gè)窗口，它提供一種很方便的途徑來查看數(shù)據(jù)庫中已有記錄或向數(shù)據(jù)庫中增添新記錄。 合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完善和一致。 仔細(xì)分析調(diào)查有關(guān)圖書管理信息需求的基礎(chǔ)上，將得到本系統(tǒng)所處理的數(shù)據(jù)流程。 根據(jù)上面的設(shè)計(jì)可以規(guī)劃出的實(shí)體有：讀者實(shí)體、圖書實(shí)體和借書信息實(shí)體。 圖書管理系統(tǒng)通過 ADO 這個(gè)數(shù)據(jù)控件來訪問數(shù)據(jù)庫，首先，安裝 ADO 控件要在簡(jiǎn)體中文 企業(yè)版中注冊(cè)后才能使用。 ADO 對(duì)象模型定義了一個(gè) 可編程的分層的對(duì)象集合，它支持部件對(duì)象模型 (COM)和 OLE DB 數(shù)據(jù)源。在 ADO 對(duì)象模型中還有其他幾個(gè)對(duì)象，例如 Field、 Property、 Error和 Parameter，它們是作為前面 3 個(gè)對(duì)象的子對(duì)象進(jìn)行訪問的。 ? 打開一個(gè)指定的數(shù)據(jù)庫表，或定義一個(gè)基于結(jié)構(gòu)化查詢語言 (SQL)的查詢、存儲(chǔ)過程或者是該數(shù)據(jù)庫中表的視圖的記錄集合。 與 Data 控件類似，為了實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的訪問， ADO 數(shù)據(jù)控件提供了幾個(gè)屬性，這些屬性定義了怎樣連接數(shù)據(jù)庫以及同什么樣的數(shù)據(jù)庫相連接。這四個(gè)參數(shù)的屬性如下表 所示： 18 表 Connection String 屬性的 4 個(gè)參數(shù) 參數(shù) 描述 Provider 指定數(shù)據(jù)源的名稱 File Name 指定基于數(shù)據(jù)源的文件名稱 Remote Server 指定在打開一個(gè)客戶端連接時(shí)使用的數(shù)據(jù)源名稱 Remote Server 指定打開客戶端連接時(shí)使用的服務(wù)器的路徑與名稱 19 第四章 圖書管理系統(tǒng)的功能實(shí)現(xiàn) 下面給出系統(tǒng)開發(fā)出來的詳細(xì)界面以闡述圖書管理系統(tǒng)的具體功能。 :=false。 。 。 //關(guān)閉登錄窗口 procedure (Sender: TObject)。 begin 。 密碼39。,[locaseinsensitive])。39。 :=(39。 圖 書 類 型39。).Value。 :=。 。,mterror,[mbok],0)。 (39。 書 庫 管 理39。).Value。 :=(39。借 /還書 39。 :=。 //在口令編輯框中輸入口令后按回車鍵，觸發(fā)確定按鈕事件 22 procedure (Sender: TObject。 讀者管理界面編碼設(shè)計(jì) 進(jìn)入讀者管理功能的“增加新讀者”菜單，出現(xiàn)如圖 所示界面。 :=false。 23 :=true。 :=2。 begin if =39。,mtwarning,[mbok],0)。 then begin t1:=(self)。讀者管理 39。,[locaseinsensitive]) then begin 。 。 if =39。,mtwarning,[mbok],0)。 if ff=39。 then 。 [39。性別 39。]:=。 [39。單位部門 39。).value:=formatdatetime(39。 if ff=39。 :=true。 editsread(true)。 end。add39。39。39。 :=true。 flag_normal:=true。 begin :=[39。姓名 39。]。 :=[39。聯(lián)系電話 39。]。 :=false。 :=true。change39。 begin dd:=。+dd+39。 if messagedlg(dd3,mtconfirmation,[mbok,mbcancel],2)=mrok then begin (39。 :=39。 :=0。39。 圖書管理界面編碼設(shè)計(jì) 進(jìn)入圖書管理功能的“查詢圖書信息”菜單，出現(xiàn)如圖 所示界面。 。 。 end。圖書類別 39。 :=1。).AsString。).AsString。 :=(39。作者名稱 39。).value。 := (39?？値齑媪?39。).AsString。 //顯示全部書籍信息 procedure (Sender: TObject)。 :=false。 :=true。 begin s1:=(39。書籍名稱 39。+s1+39。 if messagedlg(s3,mtconfirmation,[mbok,mbcancel],0)=mrok then else exit end。 flag:boolean。 then begin (39。,MB_OK,)。39。39。此讀者編號(hào)不存在 ,請(qǐng)重新輸入 39。).value。 :=(39。已借冊(cè)數(shù) 39。借出冊(cè)數(shù) 39。 :=true。, mtwarning,[mbOk], 0)。 ()。 :=length()。 flag:=false。 :=length()。 32 //還書 procedure (Sender: TObject)。 var_BorrowNum:integer。 :=true。).Value:=。 (39。罰款數(shù)額 39。).value:=formatdatetime(39。 。否 39。+39。++39。 :=str。+39。++39。 :=False。 end。 var_BookTotalNum:=var_BookTotalNum+1。 str:=str+39。39。39。 {已借冊(cè)數(shù) 1} str:=39。39。39。 :=True。 var_BorrowNum:=var_BorrowNum1。 str:=str+39。39。39。 {更改是否借出 } str:=39。39。+39。 34 str:=str+39。39。39。 //添寫還書信息 :=false。 。 (39。 還 書 日 期39。 。,mtconfirmation,[mbok],0)。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 35 :=False。 showhowmanybooks() end。 from ((圖書類別 a inner join 書庫管理 b on 碼 = ) inner join 借書情況 c on = )where c.讀者編號(hào) =39。39。 。 end。在發(fā)布圖書管理應(yīng)用程序之前，首先應(yīng)該使用測(cè)試和調(diào)試工具對(duì)改應(yīng)用程序進(jìn)行前面測(cè)試，在排除了所有可能的錯(cuò)誤后，才可以開始對(duì)應(yīng)用程序進(jìn)行編譯。 將應(yīng)用程序進(jìn)行編譯后， 將工程中的所有文件進(jìn)行組織并將這些工程文件轉(zhuǎn)化成一個(gè)可執(zhí)行的文件 .exe。 當(dāng)完成當(dāng)前工程的 APP 對(duì)象的屬性后，就可以編譯代碼了。 打包應(yīng)用程序 創(chuàng)建 應(yīng)用程序后，可以將創(chuàng)建的圖書管理應(yīng)用程序通過磁盤，關(guān)盤，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來說，發(fā)布應(yīng)用程序必須經(jīng)過下面的兩個(gè)步驟： 打包 必須將應(yīng)用程序文件打包為一個(gè)或多個(gè)可以部署到選定位置的 .cab 文件（ .cab 文件是一種壓縮文件），對(duì)于某些類型的軟件包，還必須為其創(chuàng)建安裝程序。 打包和展開向?qū)ㄟ^提供有關(guān)如何配置 .cab 文件的選項(xiàng)，使發(fā)布應(yīng)用程序所包含的許多步驟得以自動(dòng)運(yùn)行，這是用戶一般所采用的方法。當(dāng)向?qū)瓿芍谱靼惭b包以后，它會(huì)自動(dòng)生成一個(gè)帶有很多重要信息的報(bào)告。 傳統(tǒng)手工的圖書管理，管理過程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯(cuò)。 在反反復(fù)復(fù)的學(xué)習(xí)及不恥下問之下， 我的辛勤努力有了匯報(bào)，終于做出了一個(gè)簡(jiǎn)單的軟件，雖然這個(gè)軟件的功能非常的簡(jiǎn)單，而且我想，在實(shí)際的運(yùn)用中，肯定會(huì)有所不足，因?yàn)閳D書管理工作的內(nèi)容非常的豐富，我涉及到的僅僅是學(xué)生管理的一部分簡(jiǎn)單內(nèi)容，離實(shí)際的客戶需求肯定還有一定的差距。 參考文獻(xiàn) 《 開發(fā)人員指南》 任旭鈞 王永生 馮澤波等譯 機(jī)械工業(yè)出版社 2021 年 6 月第一版 《數(shù)據(jù)庫設(shè)計(jì)與編程實(shí)例詳解》 電子工業(yè)出版社 2021 年 02月第一版 《編程技巧及故障排除即時(shí)通 (Delphi 篇 )》 清華天則工作室編著 兵器工業(yè)出版社 2021 年 02 月第一版 《引人入勝 Install Shield （含盤）》 張君編著 上海書店 2021 年 11 月第一版 《 教程》 新智工作室編著 電子工業(yè)出版社 2021 年03 月第一版 《企業(yè)管理的計(jì)算機(jī)化》 威廉 由于我的知識(shí)淺薄，經(jīng)驗(yàn)不足及閱歷頗淺，因此，在該系統(tǒng)的設(shè)計(jì)方面還有很多不足，比如功能過少，界面不夠醒目等問題，我會(huì)在工作的使用過程中，根據(jù)工作的具體要求不斷的修改，完善，爭(zhēng)取使該系統(tǒng)慢慢趨向完美。 在軟件的編寫過程中，我充分體會(huì)了軟件編程工作者的辛苦，因?yàn)槊恳粋€(gè)細(xì)微的細(xì)節(jié)都必須十分的注意，如果稍有不慎，就會(huì)全盤皆輸，而且往往很多的時(shí)候，程序我自己覺得非常的正確，但是就是編譯通不過，在查找錯(cuò)誤的過程 中，面臨著否認(rèn)自己的過程，非常的痛苦，而且由于自己的經(jīng)驗(yàn)及各方面的能力的不足，所以進(jìn)展的速度非常的緩慢，往往幾天的時(shí)間還沒有一點(diǎn)進(jìn)展。 38 第五章 結(jié)論及體會(huì) 隨著學(xué)校規(guī)模的不斷擴(kuò)大，學(xué)生數(shù)量的急劇增加，有關(guān)學(xué)生的各種信息量也在不斷成倍增長(zhǎng)。第三步，如果沒有編譯工程，打包和展開向?qū)?huì)要求編譯工程。 可以使用兩種工具來打包和發(fā)布應(yīng)用程序。選擇 P 代碼 格式編譯的應(yīng)用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應(yīng)用程序生成的可執(zhí)行文件要大的多，但是可執(zhí)行文件的運(yùn)行速度比較快。在設(shè)計(jì)中，可以通過這些屬性來告訴用戶一些重要的信息，在應(yīng)用程序運(yùn)行時(shí)用 代碼讀出這些屬性值，也可以在 Windows 資源管理器中觀察應(yīng)用程序?qū)ο蟮陌姹拘畔傩灾怠? ? 給發(fā)布應(yīng)用程序作準(zhǔn)備。 在 的集成開發(fā)環(huán)境中創(chuàng)建好圖書管理系統(tǒng)后，并無意味著全部工作已完成，此時(shí)生成的應(yīng)用程序只能在 的集成環(huán)境中運(yùn)行，要想使應(yīng)用程序能夠脫離 的集成開發(fā)環(huán)境，首先要對(duì)圖書管理程序進(jìn)行編譯并且生成 .exe 或其他類 型的文件，然后調(diào)用打包和展開向?qū)?chuàng)建安裝程序。 (s3)。39。39。select , , , ,名稱 , , , , , 39。 if then begin 。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 {設(shè)初值 } messagedlg(39。yymmdd39。).AsString:= 。讀者編號(hào) 39。select * from 還書情況 39。 :=str。++39。+39。39。+39。+39。 :=str。++39。+39。update 讀者管理 set 已借冊(cè)數(shù) =39。已借冊(cè)數(shù) 39。 :=False。++39。 str:=str+39。 :=str。++39。+39。update 書 庫 管 理 set 書庫管理 . 總 庫 存 量=39。總庫存量 39。 :=True。39。39。 33 {庫存量