【正文】 注釋是良好的編程習(xí)慣。 Delphi 保留了 Borland Pascal 編輯器的風(fēng)格，關(guān)鍵字采用黑體字，被注釋的部分會(huì)變暗，這使得編程風(fēng)格良好，易讀易寫(xiě)。在設(shè)計(jì)用戶(hù)界面時(shí)，可以使用 Object Inspector(Object Inspector)來(lái)改變其屬性；但有時(shí)需要在程序執(zhí)行時(shí)改變屬性的值，而且有些屬性只能在執(zhí)行時(shí)改變，這些屬性在 Delphi 的在線(xiàn)幫助的“ Proprety”主題中被標(biāo)為執(zhí)行期屬性。 Delphi 的運(yùn)行庫(kù)包含許多過(guò)程與函數(shù)以供您的應(yīng)用程序調(diào)用。在對(duì)象中說(shuō)明的過(guò)程和函數(shù)稱(chēng)為方法 (Method)。每一個(gè)事件處理過(guò)程只包含了當(dāng)這一事件發(fā)生時(shí)需要執(zhí)行的程序代碼。 SQL 語(yǔ)言 語(yǔ)言簡(jiǎn)介 SQL語(yǔ)言作 為關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)中的一種通用的結(jié)構(gòu)查詢(xún)語(yǔ)言，已經(jīng)被眾多的數(shù)據(jù)庫(kù)管理系統(tǒng)所采用，如 ORACLE、 Sybase、 Informix等數(shù)據(jù)庫(kù)管理系統(tǒng)，它們都支持 SQL 語(yǔ)言。 的優(yōu)點(diǎn) SQL廣泛地被采用正說(shuō)明了它的優(yōu)點(diǎn)。 (1) 非過(guò)程化語(yǔ)言 SQL是一個(gè)非過(guò)程化的語(yǔ)言，因?yàn)樗淮翁幚硪粋€(gè)記錄，對(duì)數(shù)據(jù)提供自動(dòng)導(dǎo)航。所有 SQL 語(yǔ)句接受集合作為輸入，返回集合作為輸出。 SQL不要求用戶(hù)指定對(duì)數(shù)據(jù)的存放方法。所有 SQL語(yǔ)句使用查詢(xún)優(yōu)化器，它是 RDBMS的一部分，由它決定對(duì)指定數(shù)據(jù)存取的最快速度的手段。 (2) 統(tǒng)一的語(yǔ)言 SQL可用于所有用戶(hù)的 DB活動(dòng)模型，包括系統(tǒng)管理員、數(shù)據(jù)庫(kù)管理員、應(yīng)用程序員、決策支持系統(tǒng)人員及許多其它類(lèi)型的終端用戶(hù)。 SQL為許多任務(wù)提供了命令，包括： ● 查詢(xún)數(shù)據(jù) ● 在表中插入、修改和刪除記錄 ● 建立、修改和刪除數(shù)據(jù)對(duì)象 ● 控制對(duì)數(shù)據(jù)和數(shù)據(jù)對(duì)象的存取 ● 保證數(shù)據(jù)庫(kù)一致性和完整性 以前的數(shù)據(jù)庫(kù)管理系統(tǒng)為上述各類(lèi)操作提供單獨(dú)的語(yǔ)言，而 SQL 將全部任務(wù)統(tǒng)一在一種語(yǔ)言中。所有用 SQL編寫(xiě)的程序都是可以移植的。在比較大的網(wǎng)絡(luò)應(yīng)用系統(tǒng)中，還是選擇 SQL Server；在局域網(wǎng)站上，使用 ASP＋ SQL Server 2021 開(kāi)發(fā)網(wǎng)絡(luò)應(yīng)用系統(tǒng)是十分經(jīng)典的組合。企業(yè)版是功能最強(qiáng)大的版本，它具有強(qiáng)大的可伸縮性和可靠性。個(gè)人版是在標(biāo)準(zhǔn)版的基礎(chǔ)上，為個(gè)人用戶(hù)量身定做的。例如 Windows2021 專(zhuān)業(yè)版，Windows ,Windows Me 和 Windows 98。它包括企業(yè)版的所有特性，但不能用于產(chǎn)品發(fā)布 。 2）擴(kuò)展存儲(chǔ)過(guò)程（ Extended Stored Procedures），動(dòng)態(tài)裝載和執(zhí)行 DLL 中的函數(shù)功能。在本課題的設(shè)計(jì)過(guò)程中，我選擇了 SQL Server2021 作為后臺(tái)數(shù)據(jù)庫(kù)系統(tǒng)，在開(kāi)發(fā)的過(guò)程中使用的是 SQL Server 2021，開(kāi)發(fā)完成后使用 SQLServer2021企業(yè)版進(jìn)行了聯(lián)機(jī)測(cè)試。另一個(gè)體系則是通用的數(shù)據(jù)庫(kù)管理軟件領(lǐng)域（數(shù)據(jù)庫(kù)應(yīng)用程序的開(kāi)發(fā)）。如果使用數(shù)據(jù)庫(kù)語(yǔ)言進(jìn)行傳統(tǒng)的算術(shù)編程，雖然也能完成相應(yīng)的功能，但是其編程過(guò)程可能極為復(fù)雜。而 Delphi結(jié)合了兩個(gè)體系的優(yōu)點(diǎn)，它結(jié)合了傳統(tǒng)的編程語(yǔ)言 Object Pascal和數(shù)據(jù)庫(kù)語(yǔ)言的強(qiáng)大功能，它即可以用于傳統(tǒng)的算術(shù)編程又可以用于數(shù)據(jù)庫(kù)編程，特別是 Delphi具有強(qiáng)大的數(shù)據(jù)庫(kù)功能，利用 Delphi的數(shù)據(jù)庫(kù)工具，我們根本不需要編寫(xiě)任何 Object Pascal代碼便可以創(chuàng)建一個(gè)簡(jiǎn)單的數(shù)據(jù)庫(kù)應(yīng)用。 Delphi在 ，目前具有兩個(gè)版本： Delphi的標(biāo)準(zhǔn)版本和客戶(hù) / 服務(wù)器版本。 Delphi的客戶(hù) /服務(wù)器版本包括 Borland SQL Link， 它能直接訪(fǎng)問(wèn) ORACLE 、 SyBase 和 Microsoft SQL Server,Informix 以及 InterBase 數(shù)據(jù)庫(kù)服務(wù)器。 概要設(shè)計(jì) 根據(jù)我設(shè)計(jì)的圖書(shū)館數(shù)據(jù)庫(kù)管理系統(tǒng)，我作了如下分析： 圖書(shū)館提供圖書(shū)借閱業(yè)務(wù)，讀者借閱需先辦理借書(shū)卡 (用條碼識(shí)別身份 )，并交納一定的押金。逾期不還，或丟失、損壞書(shū) 籍則予以罰款。不同類(lèi)別的讀者不著不同的借閱數(shù)量限制，比如有的一次可以借閱 7本，有的只能借閱 5 本等。讀者可以事先從網(wǎng)上查詢(xún)擬借書(shū)刊是否存在，并可查詢(xún)書(shū)刊存放地點(diǎn)。 主要分成三個(gè)子模塊： 一． 圖書(shū)管理系統(tǒng) ： 1． 圖書(shū)查詢(xún)：可以按照書(shū)號(hào)，書(shū)名，作者，出版單位分別單獨(dú)查詢(xún)，也可以結(jié)合查詢(xún)，且均為不完整查詢(xún)。 3． 圖書(shū)下架：可以按照書(shū)名，書(shū)編號(hào)分別刪除。 2． 信息：根據(jù)讀者姓名查詢(xún)讀者個(gè)人信息。 4． 注銷(xiāo)：根據(jù)讀者姓名永久刪除讀者表中的該讀者信息。 三． 借閱管理系統(tǒng) ： 1． 借書(shū)（還書(shū)）：必須同時(shí)輸入讀者卡號(hào)和所借書(shū)的書(shū)編號(hào)才能借閱圖書(shū)，借書(shū)前判斷時(shí)候該 書(shū)庫(kù)存不足，該卡是否有掛失，注銷(xiāo)，凍結(jié)現(xiàn)象。 2． 借閱信息：根據(jù)讀者的卡號(hào)查詢(xún)讀者的借閱信息，其中還包含到期圖書(shū)查系統(tǒng)登陸界面 系統(tǒng)主界面 圖書(shū)管理系統(tǒng) 讀者信息管理 借閱管理系統(tǒng) 圖書(shū)查詢(xún) 新書(shū)登記 圖書(shū)下架 辦卡 信息 掛失 注銷(xiāo) 凍結(jié) 借書(shū)（還書(shū)） 借閱信息 詢(xún)，使管理員方便查詢(xún)哪本書(shū)的借書(shū)期限已到。 第三章 設(shè)計(jì)過(guò)程詳細(xì)論述 Delphi 設(shè)計(jì)軟件組件 分析 以下只介紹，我所使用的 Delphi 組件，以及我在程序設(shè)計(jì)中的應(yīng)用。 分別簡(jiǎn)單介紹： Label 部件 Label(標(biāo)簽 )一般放在對(duì)象的旁邊，用來(lái)標(biāo)記這些對(duì)象，從而對(duì)用戶(hù)的操作進(jìn)行提示，也可以用來(lái)顯示其它信息。”的字串，當(dāng)用戶(hù)使用“ Alt+關(guān)鍵字母”時(shí)，將自動(dòng)選中它所指向的對(duì)象。 ReadOnly 在運(yùn)行時(shí)間內(nèi)控制對(duì)象是否可以進(jìn)行 Windows 的操作，當(dāng)此值為 False 時(shí)，該框內(nèi)的文本就不能被復(fù)制到剪貼板上。用 PasswordChar 屬性可以按照顯示隱蔽密碼的方法顯示用戶(hù)輸入文本 Memo 部件 Memo 是備注框，與以上對(duì)象不同的是，它可以接收多行文本輸入。 Align 屬性調(diào)整該對(duì)象在窗口中的對(duì)齊情況，有 alNone(無(wú)對(duì)齊指定 )、 alBottom(底部對(duì)齊 )、 alClient(全窗口顯示 )等可以選擇；而Alignment 屬性則決定了文本在框中的對(duì)齊顯示格式。它們一般用在對(duì)話(huà)框中，做為執(zhí)行某種功能的指示。 Panle 部件 Panle 有標(biāo)題，可以用文字表征成組部件的標(biāo)題 或信息。通過(guò)編程向窗口加一個(gè)操作板部件，以書(shū)寫(xiě)提示和幫助信息，也不失為一種好方法。 Bitbtn 部件 與 Button 基本相同，不過(guò)可以在旁邊加入圖案，使按鈕功能更鮮明。 Delphi 支持位圖 (.BMP)、圖標(biāo) (.ICO)、圖元 (.WFM)三種文件格式。它們決定了圖象在窗口中的顯示尺寸。 3． System 中的 Timer 部件。它是編制應(yīng)用程序時(shí)最為重要的部件之一。將間隔置為 0 相當(dāng)于關(guān)閉計(jì)時(shí)器， Interval 的最大允許值是 32767，也即 秒。 5． ADO 欄中的 ADOConnection 部件， ADOQuery 部件 。 它是存取磁盤(pán)上數(shù)據(jù)庫(kù)表的媒介，它通過(guò)ADO 存 取數(shù)據(jù)庫(kù)表中的數(shù)據(jù)，再與 TDataSource 進(jìn)行“對(duì)話(huà) ”，使得數(shù)據(jù)瀏覽部件能夠有效地從 部件 中訪(fǎng)問(wèn)數(shù)據(jù)并能顯示和編輯其中的數(shù)據(jù)。 6． DataControl 欄里的 DBGrid 部件 DBGrid 用來(lái)顯示查詢(xún)數(shù)據(jù)庫(kù)得到的內(nèi)容。 一．系統(tǒng)登陸界面截圖 : 系統(tǒng)登陸界面說(shuō)明： 1． 對(duì) Form 的 AlphaBlendValue 屬性值設(shè)置為 210，使界面半透明。 3． 密碼是 yutian，用戶(hù)名默認(rèn)。 begin if (=39。) then begin 。 end else showmessage(39。) end。 2． 圖書(shū)，讀者，借閱，三個(gè)按鈕分別用了快捷鍵。 begin (100,300,39。)。版本 39。 (100,360,39。)。 退出按鈕程序： procedure (Sender: TObject)。 end。 begin 。 end。 三．圖書(shū)管理系統(tǒng)界面截圖 : 圖書(shū)管理系統(tǒng)界面說(shuō)明： 1． 其中用了 Timer 部件，使界面呈現(xiàn)淡入淡出形式。 3．由于返回和退出按鈕在各界面中程序基本相同，所以只說(shuō)明一遍，以后不再重復(fù)。 var tmp:Integer。 if tmp255 then begin tmp:=tmp+1。 if tmp=255 then begin tmp:=255。 end。 end。 2． 進(jìn) 入界面是數(shù)據(jù)庫(kù)顯示框是隱藏的，點(diǎn)擊確定才會(huì)顯示，增加美觀(guān)。 圖書(shū)查詢(xún)界面程序： 確定按鈕程序： procedure (Sender: TObject)。39。39。39。39。這就不太方便了！ ~39。 :=39。39。+39。++39。+39。39。39。+39。++39。+39。39。39。+39。++39。+39。39。39。+39。++39。+39。39。 。 end。 五．新書(shū)登記界面截圖 ： 新書(shū)登記界面說(shuō)明 ： 1． 將書(shū)名，作者，單價(jià)，出版單位，庫(kù)存，借書(shū)時(shí)限插入數(shù)據(jù)庫(kù)中 book 表。 2． 顯示 book 數(shù)據(jù)庫(kù)中的全部?jī)?nèi)容，方便管理。 新書(shū)登記界面程序： 確定按鈕程序： procedure (Sender: TObject)。 begin if (=39。)or(=