【導(dǎo)讀】或?qū)ζ溥M(jìn)行訪問。制造商的國外訂貨單可以立即接受并執(zhí)行。對數(shù)據(jù)的科學(xué)處理和管理的需求變得日益緊迫。開發(fā)這個數(shù)據(jù)庫系統(tǒng)設(shè)計到很多技術(shù)，包括Delphi開發(fā)工具，Pascal面向?qū)ο笳Z。言，SQL語言，ADO技術(shù)，SQLSever2021，以及數(shù)據(jù)庫設(shè)計，數(shù)據(jù)庫連接等技術(shù)。數(shù)據(jù)庫管理系統(tǒng)，使管理員管理圖書的有效工具。據(jù)庫系統(tǒng)應(yīng)運(yùn)而生，我們必須緊跟時代的腳步，開發(fā)出更多，更快捷方便的數(shù)據(jù)庫管理系統(tǒng)。理和自動恢復(fù)，并發(fā)控制和死鎖檢測，安全性檢查和存取控制，完整性檢查和執(zhí)行，的編輯器、最為領(lǐng)先的數(shù)據(jù)庫技術(shù)。對于廣大的程序開發(fā)人員來講，使用Delphi開發(fā)應(yīng)用。的工作——Delphi的每一個設(shè)計細(xì)節(jié)，都將帶給您一份欣喜。一個Delphi程序首先是應(yīng)用程序框架，而這一框架正是應(yīng)用程序的“骨架”。上即使沒有附著任何東西，仍可以嚴(yán)格地按照設(shè)計運(yùn)行。Delphi已經(jīng)為您做好了一切基礎(chǔ)工作——程序框架。就是一個已經(jīng)完成的可運(yùn)行應(yīng)用程序，只是不處理任何事情。

　　

【正文】 程序： procedure (Sender: TObject)。 var djtj:Integer。 begin :=false。 :=39。select count(*) from reader where 凍結(jié) =139。 。 。 djtj:=[0].AsInteger。 showmessage(39。被凍結(jié)的用戶共 39。39。39。+IntToStr(djtj)+39。39。39。個 39。1310131039。詳情請點(diǎn)擊確定查看 39。)。 :=false。 。 :=39。select * from reader where 凍結(jié) =139。 :=true。 end。 十二 ,借閱管理系統(tǒng)界面截圖 : 借閱管理系統(tǒng)界面說明： 以上按鈕全部為跳轉(zhuǎn)信息，代碼不再贅述。 十三 .借書 (還書 )界面截圖 : 借書 (還書 )界面說明 : 1． 將輸入的卡號和書編號，寫入數(shù)據(jù)庫中的 Borrow 表，其中借書號采用當(dāng)前的最大值， 借出時間采用當(dāng)前的系統(tǒng)時間，剩余天數(shù)采用默認(rèn)值。 2． 寫入數(shù)據(jù)庫之前要先判斷，庫存是否不足，該卡是否掛失，凍結(jié)，注銷，以及該卡是否已達(dá)到最大借 數(shù)限制。若滿足其中任何一條則彈出相應(yīng)提示信息。 3． 顯示數(shù)據(jù)庫 Borrow 表中的借書號 ,卡號 ,書編號 ,借出時間 ,剩余天數(shù)，以及 Book 表中的庫存數(shù)據(jù)。方便管理員使用。 4． 修改已借數(shù)，庫存。 5． 使用 Timer 部件模擬催繳到期圖書。 借書（還書）界面程序： 借書按鈕程序： procedure (Sender: TObject)。 begin 。 。 if (=39。39。 )or ( =39。39。 ) then ShowMessage(39。您要借什么？ 39。) else begin 。 :=39。SELECT 借數(shù)限制 ,已借數(shù) ,掛失 ,凍結(jié) from reader where 卡號=39。39。39。++39。39。39。39。 。 。 jsxz:=[0].AsInteger。 yjs:=[1].AsInteger。 guashi:= [2].AsBoolean。 dongjie:= [3].AsBoolean。 :=39。select 庫存 from book where 書編號 =39。39。39。++39。39。39。39。 。 。 kucun:= [0].AsInteger。 if (kucun=0) then showmessage(39。該書庫存不足，請借閱其他書籍！ 39。) else begin if guashi then showmessage(39。該卡已掛失，不能借閱圖書！ 39。) else begin if dongjie then showmessage(39。該卡已被凍結(jié)，無法借閱圖 書！ 39。) else begin if (jsxz=yjs) then showmessage(39。借書數(shù)已達(dá)到最大限制，無法借閱圖書！ 39。) else begin :=39。SELECT MAX(借書號 ) from borrow 39。 :=false。 。 。 newid:=[0].AsInteger+1。 。 。 :=39。insert into borrow values(39。+IntToStr(newid)+39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。+DateToStr(Now)+39。39。39。,39。39。39。+IntToStr(14)+39。39。39。)39。 。 。 。 :=39。update reader set 已借數(shù) =已借數(shù) +1 where 卡號 =39。39。39。++39。39。39。39。 。 :=39。update book set 庫存 =庫存 1 where 書編號 =39。39。39。++39。39。39。39。 。 :=39。select 借書號 ,卡號 , ,借出時間 ,庫存 ,剩余天數(shù) from borrow,book where = 39。 :=true。 end。end。end。end。end。end。 還書按鈕程序： procedure (Sender: TObject)。 begin 。 。 if (=39。39。 )or ( =39。39。 ) then ShowMessage(39。您要還什么書哦 !39。) else begin :=39。delete from borrow where 卡號 =39。39。39。++39。39。39。 and 書 編 號=39。39。39。++39。39。39。update book set 庫存 =庫存 +1 where =39。39。39。++39。39。39。39。 ( 39。update reader set 已借數(shù) =已借數(shù) 1 where 卡號 =39。39。39。++39。39。39。39。)。 。 :=39。select 借書號 ,卡號 , ,借出時間 ,庫存 from borrow,book where = 39。 :=true。 end。 end。 Timer 組件程序： procedure (Sender: TObject)。 begin :=false。 :=39。update borrow set 剩余天數(shù) =剩余天數(shù) 139。 。 :=39。select min(剩余天數(shù) ) from borrow39。 。 。 syts:= [0].AsInteger。 if(syts=0) then showmessage(39。已有借書時限已經(jīng)到期的書，請歸還該書！ ~39。1310131039。詳情請查看借閱信息 39。) end。 十四 .借閱信息界面截圖 : 借閱信息界面說明： 1．根據(jù)你輸入卡號來查詢 Borrow 表里相應(yīng)的借閱信息。 2．到期圖書查詢選項(xiàng)，顯示當(dāng)前到期未歸還的全部借閱信息。方便管理員管理。 借閱信息界面程序： 確定按鈕程序： procedure (Sender: TObject)。 begin if(=39。39。) then showmessage(39。這可不能為空啊 ~39。) else begin 。 。 :=false。 :=39。select , , ,間 , ,剩余天數(shù) ,掛失 ,凍結(jié) from borrow,book,reader where =號 and = and =39。39。39。++39。39。39。39。 :=true。 end。 end。 到期圖書查詢按鈕程序： procedure (Sender: TObject)。 begin :=false。 :=39。select * from borrow where 剩余天數(shù) =039。 :=true。 。 end。 第五章 后記 從開始的毫無頭緒到后來的逐步完善，這次開發(fā)過程使我收獲頗豐，其間蘊(yùn)含了大量的知識，包括 Delphi 開發(fā)工具的使用， SQL 語言編程， Pascal 面向?qū)ο蟮恼Z言， SQLSever 2021 數(shù)據(jù)庫管理工具，以及數(shù)據(jù)庫訪問技術(shù)。 在具體設(shè)計實(shí)施的時候，我首先做了登陸界面，以熟悉 Delphi 的使用和開發(fā)，然后進(jìn)行數(shù)據(jù)庫的后臺設(shè)計，對整個圖書館數(shù)據(jù)庫管理系統(tǒng)進(jìn)行分析，畫出 ER 圖， 之 后根據(jù) ER 圖用 SQLSever 2021 編寫了三個表： Book， Borrow， Reader。 在表編寫完成之后，就畫出系統(tǒng)的總體邏輯框圖，根據(jù)系統(tǒng)總體邏輯框圖進(jìn)行詳細(xì)分析和設(shè)計，逐步完成，系統(tǒng)主界面，圖書管理的各個界面，讀者管理的各個界面，以及借閱管理的各個界面。 設(shè)計界面的過程中，我逐漸學(xué)習(xí)了返回，退出，清屏等方法。我設(shè)計的系統(tǒng)具有如下特點(diǎn)： 1：為了使界面美觀，方便使用，在每次進(jìn)入新界面的時候，我都把數(shù)據(jù)顯示框隱藏，只有在使用的時候才會出現(xiàn)。 2：同時在含有 Panle 的讀者管理系統(tǒng)界面里設(shè)置清屏按鈕，也是為 增強(qiáng)界面的美感。 3：在新書登記里加入了清除信息的按鈕，使得連續(xù)登記圖書的時候不必一個一個的刪除，增強(qiáng)可用性。 4：在掛失，凍結(jié)，借閱信息里面增加了統(tǒng)計功能，統(tǒng)計時先顯示總數(shù)，再顯示詳細(xì)信息，使管理員清楚的查詢這些特殊情況。 5：圖書查詢時可以按照書名，作者，出版單位，書號分別不完整查詢，也可以結(jié)合 在一起精確 查詢。 6：在圖書查詢，圖書下架中設(shè)置了提示信息，方便 初使者 使用。 7：使用 Timer 組件了催繳到期圖書。 8：借書還書系統(tǒng)中，首先分別判斷是否書或卡存在問題，并彈出相應(yīng)提示信息，并且修改數(shù)據(jù)庫中相應(yīng)的內(nèi)容，使管理更加 完善。 最后，希望用戶多提寶貴意見，以修正我的疏漏。 再次感謝您對本軟件的支持和使用，謝謝。