【正文】 件和數(shù)據(jù)提供者之間的連接，并快速創(chuàng)建記錄集，然后將數(shù)據(jù)通過(guò)數(shù)據(jù)約束控件提供給用戶(hù)，其中數(shù)據(jù)約束控件可以是任何具有“數(shù)據(jù)源”屬性的控件，而數(shù)據(jù)提供者可以是符合 OLE DB 規(guī)范的數(shù)據(jù)源。在 中，可以使用 ADO 數(shù)據(jù)控件實(shí)現(xiàn)下面一些功能： ? 連接一個(gè)本地?cái)?shù)據(jù)庫(kù)或遠(yuǎn)程數(shù)據(jù)庫(kù)。 ? 將數(shù)據(jù)字段的 數(shù)值傳遞給數(shù)據(jù)綁定的控件，可以在這些控件中顯示或更改這些數(shù)值。 ADO 數(shù)據(jù)控件的屬性 ADO 數(shù)據(jù)控件與 的內(nèi)部數(shù)據(jù)控件 (Data)和遠(yuǎn)程數(shù)據(jù)控件(RDC)很相似，它允許使用 ADO 快速地創(chuàng)建與數(shù)據(jù)庫(kù)的連接。 Connection String 屬性：是一個(gè)字符 串，可以包含進(jìn)行一個(gè)連接所需的所有設(shè)置值，在該字符串中所傳遞的參數(shù)是與驅(qū)動(dòng)程序相關(guān)的。 ADO 支持 Connection String 屬性的 4 個(gè)參數(shù)，而且這 4 個(gè)參數(shù)將不經(jīng)過(guò) ADO 的處理直接送到數(shù)據(jù)源。 登陸界面編碼設(shè)計(jì) 首先是進(jìn)入登陸界面，如圖 所示 圖 登陸界面 //登錄窗體打開(kāi)時(shí)從管理員表里提取第一個(gè)用戶(hù)名 procedure (Sender: TObject)。 mouselbuttondown:=false。 :=39。 :=true。 while not do begin 20 ([39。])。 end。 end。 begin close end。 var boll:boolean。 。 口令 。,vararrayof([,]),[locaseinsensitive])?？诹?39。 if (length((39。).AsString)=0) and (=39。)then begin :=(39。).Value。 讀 者 管 理39。 :=(39。).Value。 讀 者 類(lèi) 型39。 :=(39。).Value。 :=。 :=。 exit?？诹罨蛎艽a錯(cuò)誤！ 39。 exit。 end?？诹?39。 :=(39。).Value。 讀者管理39。 :=(39。).Value。 讀 者 類(lèi) 型39。 :=(39。).Value。 :=。 :=。 end。 var Key: Char)。 end。 圖 “增加新讀者”功能界面 //增加讀者 procedure (Sender: TObject)。add39。 :=false。 :=true。 editsread(false)。 。 end。 var t1:ttable。39。請(qǐng)輸入讀者編號(hào) 39。 exit end 。add39。 :=39。 :=39。 。讀者編號(hào) 39。 messagedlg(39。,mtwarning,[mbok],0)。 exit。 end。39。您沒(méi)有輸入讀者姓名 39。 。 end。add39。change39。 [39。]:=。姓名 39。 [39。]:=。讀者類(lèi)型 39。 [39。]:=。聯(lián)系電話 39。 [39。]:=。辦證日期39。yyyymmdd39。 。add39。 :=true。 :=true。 :=false。 end。 begin close。 //取消以前的操作，并且其他為空 25 procedure (Sender: TObject)。 if ff=39。 then begin :=39。 :=39。 :=39。 :=39。 end。 :=true。 :=true。 :=false。 。 //修改讀者信息 procedure (Sender: TObject)。讀者編號(hào) 39。 :=[39。]。性別 39。 :=[39。]。性別 39。 :=[39。]。單位部門(mén) 39。 :=(39。).value。 :=false。 :=true。 editsread(false)。 ff:=39。 end。 var dd,dd1,dd3:string。 dd1:=。您確實(shí)要?jiǎng)h除編號(hào)為 39。 姓名為 39。 的記錄嗎？ 39。讀者編號(hào) 39。 end else 。39。39。 :=39。 :=39。 :=39。 end。 27 圖 “查詢(xún)圖書(shū)信息 ”功能界面 //添加書(shū)籍信息 procedure (Sender: TObject)。 :=false。 while not do begin ([39。])。 end。 。 //修改書(shū)籍信息 procedure (Sender: TObject)。 while not do begin ([39。])。 end。 。書(shū)籍編號(hào) 39。 :=true。書(shū)籍名稱(chēng) 39。 :=(39。).AsString。出版社 39。 :=(39。).AsString。書(shū)籍價(jià)格 39。 :=(39。).Value。 登 記 日 期39。 :=(39。).Value。備注 39。 。 end。 var st0:string。select * from 書(shū)庫(kù)管理 order by 書(shū)籍編號(hào) 39。 :=st0。 29 :=0。 end。 var s1,s2,s3:string。書(shū)籍編號(hào) 39。 s2:=(39。).AsString。您確實(shí)要?jiǎng)h除編號(hào)為 39。 書(shū)籍《 39。》嗎？ 39。 借閱信息管理界面編碼設(shè)計(jì) 進(jìn)入借閱信息管理功能的“添加還書(shū)信息”菜單，出現(xiàn)如圖 所示界面。 var hasno,allowno:integer。 begin flag:=true。39。 請(qǐng)輸入讀者編號(hào) 39。提示 39。 end else begin :=39。39。++39。39。 :=true。 if =0 then messagedlg(39。,mtwarning,[mbok],0) else if 0 then begin readerno:=。讀者編號(hào) 39。 :=(39。).value。類(lèi)型名稱(chēng) 39。 //此處為是否已借滿(mǎn)的代碼 hasno:=(39。).AsInteger。 allowno:=(39。).AsInteger。 31 :=true。 if hasno=allowno then begin :=true。 您的 圖書(shū) 可借 冊(cè)數(shù) 已滿(mǎn) ，請(qǐng) 歸還 圖書(shū) 之 后再 借！ 39。 :=false。 end。 ()。 :=0。 end。 if (not ) and (not ) then :=true。 end。 :=0。 end。 end。 var str,s3:string。 var_BookTotalNum:integer。 begin if strToint()0 then begin {添加罰款情況 } :=39。 。 。天數(shù) 39。 (39。).Value:=。書(shū)籍編號(hào) 39。 (39。).Value:=。 罰 款 日 期39。yymmdd39。 。 cq:=39。 end else begin cq:=39。 end。delete * from 借 書(shū) 情 況 where 書(shū) 籍 編 號(hào)=39。39。39。39。39。 。select 總庫(kù)存量 from 書(shū) 庫(kù) 管 理 where 書(shū) 籍 編 號(hào)=39。39。39。39。39。 :=str。 if and then begin exit。 var_BookTotalNum:=strToint(varTostr([39。].Value))。 str:=39。+intTostr(var_BookTotalNum)。 where 書(shū)庫(kù)管理 .書(shū)籍編號(hào) =39。39。39。39。39。 。select 已借冊(cè)數(shù) from 讀者管理 where 讀者管理 .讀者編號(hào) =39。39。39。39。39。 :=str。 var_BorrowNum:=strToint(varTostr([39。].Value))。 str:=39。+intTostr(var_BorrowNum)。 where 讀者管理 .讀者編號(hào) =39。39。39。39。39。 。update 書(shū)庫(kù)管理 set 是否借出 =39。39。39。否 39。39。39。 where 書(shū)籍編號(hào) =39。39。39。39。39。 。 :=39。 。 (39。).AsString:= 。 書(shū) 籍 編 號(hào)39。 (39。).Value:=formatdatetime(39。,now())。 。還書(shū)成功 !39。 :=false。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 :=GetCurrentDateTime。 。 if then begin s3:=39。 s3:=s3+39。39。++39。39。 。 。 :=true。 end。 編譯應(yīng)用程序 編譯圖書(shū)管理程序就是將創(chuàng)建的應(yīng)用程序以及它的工程文件合并成 36 一個(gè)可執(zhí)行文件。 編譯應(yīng)用程序的主要目的如下； ? 使應(yīng)用程序轉(zhuǎn)入和運(yùn)行更快。 ? 使用應(yīng)用程序更安全。 提供 APP 對(duì)象來(lái)存儲(chǔ)應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。右擊編譯過(guò)的 .exe 文件，然后從快捷菜單中選擇“屬性”命令打開(kāi)“屬性”對(duì)話框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。 支持兩種編譯格式： P 代碼和本地代碼。 因此，圖書(shū)管理系統(tǒng)采用的視本地代碼的編譯格式。 部署 必 須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢?，以便用?hù)來(lái)安裝應(yīng)用程序。 ? 打包和展開(kāi)向?qū)В?Package and Deployment） 37 ? 安裝軟件提供的安裝工具包。 使用打包和展開(kāi)向?qū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開(kāi)始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序。工程編譯完成 后，向?qū)г?xún)問(wèn)想制作什么類(lèi)型的包，我們這里使用向?qū)е谱靼惭b程序。 發(fā)布應(yīng)用程序的步驟 將圖書(shū)管理系統(tǒng)打包后，制作安裝程序的過(guò)程并沒(méi)有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個(gè)媒體上，比如軟盤(pán)，光盤(pán)等，發(fā)布圖書(shū)管理系統(tǒng)的主要步驟如下：選擇“圖書(shū)管理系統(tǒng)”這個(gè)包，然后指定把這個(gè)包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“圖書(shū)管理系統(tǒng)”的發(fā)布工作了。面對(duì)龐大的信息量，就需要有圖書(shū)管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。通過(guò)這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢(xún)，實(shí)現(xiàn)了圖書(shū)管理的系統(tǒng)化、規(guī)范化和自動(dòng)化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。 在開(kāi)始編寫(xiě)程序的時(shí)候，我看到別人的軟件功能非常的詳細(xì)，而且界面非常的漂亮，總希望自己的軟件也非常的完善，但是，經(jīng)過(guò)二個(gè)月的學(xué)習(xí)，發(fā)現(xiàn)編一個(gè)優(yōu)秀的軟件決不是一蹴而就的事情，需要長(zhǎng)時(shí)間的積累和經(jīng)驗(yàn)，而這個(gè)方面又是我的弱項(xiàng)，因此，在朋友的幫助下，我終于認(rèn)清自己的不足及劣勢(shì)，不要貪圖大而全，只要盡我所能，編制一個(gè)實(shí)用簡(jiǎn)單的軟件也是件很不容易的事情。但是，它畢竟代表了我二個(gè)月辛勤的結(jié)晶。 在本系統(tǒng)的設(shè)計(jì)過(guò)程和論文編寫(xiě)過(guò)程中，很多老 師、同事和朋友都給與了我許多無(wú)私的幫助，尤其是我的導(dǎo)師給我的論文提出了很多寶貴的修 39 改意見(jiàn)，在這里，我向這些無(wú)私幫助我的人表示衷心的感謝。謝爾 上?？茖W(xué)技術(shù)文獻(xiàn)出版社 2021年