【正文】 7：使用 Timer 組件了催繳到期圖書。 在表編寫完成之后，就畫出系統(tǒng)的總體邏輯框圖，根據(jù)系統(tǒng)總體邏輯框圖進(jìn)行詳細(xì)分析和設(shè)計(jì)，逐步完成，系統(tǒng)主界面，圖書管理的各個(gè)界面，讀者管理的各個(gè)界面，以及借閱管理的各個(gè)界面。 begin :=false。++39。這可不能為空啊 ~39。) end。select min(剩余天數(shù) ) from borrow39。 end。39。39。39。delete from borrow where 卡號(hào) =39。 。 end。++39。39。 。39。++39。39。 。) else begin if dongjie then showmessage(39。39。 dongjie:= [3].AsBoolean。39。 ) then ShowMessage(39。 5． 使用 Timer 部件模擬催繳到期圖書。 end。1310131039。 showmessage(39。 凍結(jié)統(tǒng)計(jì)按鈕程序： procedure (Sender: TObject)。 解凍結(jié)按鈕與凍結(jié)按鈕程序基本相同，只一條語句不同，如下： :=39。39。 。 2． 凍結(jié)統(tǒng)計(jì)按鈕首先顯示被凍結(jié)用戶的總數(shù)，然后顯示被凍結(jié)用戶的詳細(xì)信息。 (39。 :=39。 2． 顯示剩余讀者的信息。)。39。 begin :=false。39。select * from reader39。update reader set 掛失 =1 where 讀者姓名 =39。 讀者掛失界面程序： 掛失按鈕程序： procedure (Sender: TObject)。39。不允許輸入這么奇怪的名字 ~39。 :=true。 :=39。39。39。+IntToStr(0)+39。39。 。39。 end。39。39。)and (=39。 。 end。39。39。,39。39。39。 。) then showmessage(39。)or(=39。 2． 顯示 book 數(shù)據(jù)庫中的全部?jī)?nèi)容，方便管理。39。39。+39。++39。+39。 :=39。39。 end。 var tmp:Integer。 begin 。 (100,360,39。 2． 圖書，讀者，借閱，三個(gè)按鈕分別用了快捷鍵。 begin if (=39。 它是存取磁盤上數(shù)據(jù)庫表的媒介，它通過ADO 存 取數(shù)據(jù)庫表中的數(shù)據(jù)，再與 TDataSource 進(jìn)行“對(duì)話 ”，使得數(shù)據(jù)瀏覽部件能夠有效地從 部件 中訪問數(shù)據(jù)并能顯示和編輯其中的數(shù)據(jù)。 3． System 中的 Timer 部件。通過編程向窗口加一個(gè)操作板部件，以書寫提示和幫助信息，也不失為一種好方法。用 PasswordChar 屬性可以按照顯示隱蔽密碼的方法顯示用戶輸入文本 Memo 部件 Memo 是備注框，與以上對(duì)象不同的是，它可以接收多行文本輸入。 第三章 設(shè)計(jì)過程詳細(xì)論述 Delphi 設(shè)計(jì)軟件組件 分析 以下只介紹，我所使用的 Delphi 組件，以及我在程序設(shè)計(jì)中的應(yīng)用。 2． 信息：根據(jù)讀者姓名查詢讀者個(gè)人信息。不同類別的讀者不著不同的借閱數(shù)量限制，比如有的一次可以借閱 7本，有的只能借閱 5 本等。 Delphi在 ，目前具有兩個(gè)版本： Delphi的標(biāo)準(zhǔn)版本和客戶 / 服務(wù)器版本。在本課題的設(shè)計(jì)過程中，我選擇了 SQL Server2021 作為后臺(tái)數(shù)據(jù)庫系統(tǒng)，在開發(fā)的過程中使用的是 SQL Server 2021，開發(fā)完成后使用 SQLServer2021企業(yè)版進(jìn)行了聯(lián)機(jī)測(cè)試。個(gè)人版是在標(biāo)準(zhǔn)版的基礎(chǔ)上，為個(gè)人用戶量身定做的。 SQL為許多任務(wù)提供了命令，包括： ● 查詢數(shù)據(jù) ● 在表中插入、修改和刪除記錄 ● 建立、修改和刪除數(shù)據(jù)對(duì)象 ● 控制對(duì)數(shù)據(jù)和數(shù)據(jù)對(duì)象的存取 ● 保證數(shù)據(jù)庫一致性和完整性 以前的數(shù)據(jù)庫管理系統(tǒng)為上述各類操作提供單獨(dú)的語言，而 SQL 將全部任務(wù)統(tǒng)一在一種語言中。所有 SQL 語句接受集合作為輸入，返回集合作為輸出。每一個(gè)事件處理過程只包含了當(dāng)這一事件發(fā)生時(shí)需要執(zhí)行的程序代碼。 Delphi 保留了 Borland Pascal 編輯器的風(fēng)格，關(guān)鍵字采用黑體字，被注釋的部分會(huì)變暗，這使得編程風(fēng)格良好，易讀易寫。 Pascal 語言介紹 Delphi 的編程語言是以 Pascal 為基礎(chǔ)的。除非整個(gè)開發(fā)環(huán)境都是面向?qū)ο蟮?，否則對(duì)象產(chǎn)生的好處還沒有帶來的麻煩多。由于您并未告訴它接收到用戶輸入后作何反應(yīng)，窗口除了響應(yīng) Windows的基本操作 (移動(dòng)、縮放等 )外，它只是接受用戶的輸入，然后再忽略。在骨架上即使沒有附著任何東西，仍可以嚴(yán)格地按照設(shè)計(jì)運(yùn)行。 (3) 掌握一種大型數(shù)據(jù)庫管理系統(tǒng) (ORACLE、 DB2 或 SQL SERVER)的 應(yīng)用技術(shù)和開發(fā)工具的使用； (4) 熟悉數(shù)據(jù)庫安全的相關(guān)知識(shí)和技術(shù)； 安全問題不是數(shù)據(jù)庫系統(tǒng)獨(dú)有的，所有計(jì)算機(jī)都有這個(gè)問題，數(shù)據(jù)庫的安全，包括操作系統(tǒng)，網(wǎng)絡(luò)系統(tǒng)的安全性是緊密聯(lián)系，相互支持的。制造商的國(guó)外訂貨單可以立即接受并執(zhí)行。隨著科技的日益發(fā)展，越來越多的新興數(shù)據(jù)庫系統(tǒng)應(yīng)運(yùn)而生，我們必須緊跟時(shí)代的腳步，開發(fā)出更多，更快捷方便的數(shù)據(jù)庫管理系統(tǒng)。對(duì)于廣大的程序開發(fā)人員來講，使用 Delphi開發(fā)應(yīng)用軟件，無疑會(huì)大大地提高編程效率，而且隨著應(yīng)用的深入，您將會(huì)發(fā)現(xiàn)編程不再是枯燥無味的工作 —— Delphi的每一個(gè)設(shè)計(jì)細(xì)節(jié)，都將帶給您一 份欣喜。 Delphi已經(jīng)為您做好了一切基礎(chǔ)工作 —— 程序框架就是一個(gè)已經(jīng)完成的可運(yùn)行應(yīng)用程序，只是不處理任何事情。面向?qū)ο蟮木幊陶Z言使得復(fù)雜的工作條理清晰、編寫容易。欲生成漂亮的界面和結(jié)構(gòu)良好的程序絲毫不必絞盡腦汁， Delphi 將幫助您輕松地完成。一般的程序員都有這樣的體驗(yàn)：如果不給程序加上適當(dāng)?shù)淖⒔猓欢螘r(shí)間后，自己也難以理清程序的流程。您不必了解過程與函數(shù)的邏輯，但要知道過程與函數(shù)的用途。它使全部用戶，包括應(yīng)用程序員、 DBA管理員和終端用戶 受益非淺。查詢優(yōu)化器知道存在什么索引，哪兒使 用合適，而用戶從不需要知道表是否有索引，表有什么類型的索引。 SQL Server 2021 的版本包括企業(yè)版，標(biāo)準(zhǔn)版，個(gè)人版，開發(fā)版和評(píng)估版。 SQL Server 是一個(gè)關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，其主要特性包括： 1）存儲(chǔ)過程（ Stored Procedures），即一種預(yù)編譯的事務(wù) SQL 語句組。如果使用傳統(tǒng)的編程語言進(jìn)行數(shù)據(jù)庫編程，通過調(diào)用專用的數(shù)據(jù)庫應(yīng)用程序接口函數(shù)和過程，利用這些函數(shù)和過程提供的功能，可能也能做得比較完善，但這做起來大多是極其困難的。不同的書有著不同的借閱期限，比如期刊和某些新書最多只能借閱七天，而另一些書則可以借閱半個(gè)月或最長(zhǎng)三個(gè)月不等。 2． 新書登記：向圖書數(shù)據(jù)庫中寫入書名，作者，單價(jià)，出版單位，庫存，借書時(shí)限，另外書的編號(hào)會(huì)自動(dòng)生成。若存在，則不將借書信息寫入借閱表，否則寫入借閱表。 Edit 部件 部件都是用作接收、顯示用戶輸入文本的。您也可以為它們?cè)O(shè)置內(nèi)置返回功能，將 ModelResult 屬性加以匹配，可以不用編程，直接實(shí)現(xiàn)系統(tǒng)內(nèi)置的功能，這一點(diǎn)上和 Kind 屬性頗類似。比較重要的屬性 是 Autosize 和 Strech。 4． Data Access 欄中的 DataSource 部件 DataSource 部件，顧名思義是用來訪問數(shù)據(jù)源的部件。 2． 確定按鈕用的是 Bitbtn，加了圖標(biāo)增加美感，而且用了 Alt— X 快捷鍵。這個(gè)密碼有問題！ ~39。 (100,330,39。 begin close。 2．以上所有按鈕都只用了跳轉(zhuǎn)語句，沒有特殊程序，不再贅述。 :=false。 begin if(=39。)then showmessage(39。%39。39。 and 出版單 位 like39。39。%39。 end。39。39。 :=39。+IntToStr(newid)+39。39。++39。39。39。 :=39。 。 。 :=39。39。 :=39。（以下的 Panle 都是覆蓋式的 Panle ） 讀者辦卡界面程序： 確定按鈕程序： procedure (Sender: TObject)。) else begin :=false。insert into reader values(39。,39。39。39。)39。39。 begin if (=39。39。 九．讀者掛失界面截圖 : 讀者掛失界面說明： 1． 掛失按鈕根據(jù)輸入的讀者姓名修改 Reader 表中掛失屬性，將屬性值 False 改為 True。) else begin :=false。39。 end。39。 gstj:=[0].AsInteger。個(gè) 39。 :=true。不允許輸入這么奇怪的名字 ~39。39。 end。) then showmessage(39。++39。 :=true。39。 。39。 :=39。 3． 顯示數(shù)據(jù)庫 Borrow 表中的借書號(hào) ,卡號(hào) ,書編號(hào) ,借出時(shí)間 ,剩余天數(shù)，以及 Book 表中的庫存數(shù)據(jù)。39。39。 jsxz:=[0].AsInteger。++39。該書庫存不足，請(qǐng)借閱其他書籍！ 39。SELECT MAX(借書號(hào) ) from borrow 39。insert into borrow values(39。,39。39。39。39。update book set 庫存 =庫存 1 where 書編號(hào) =39。 :=39。end。 ) then