【正文】 再次感謝您對(duì)本軟件的支持和使用，謝謝。 8：借書還書系統(tǒng)中，首先分別判斷是否書或卡存在問題，并彈出相應(yīng)提示信息，并且修改數(shù)據(jù)庫中相應(yīng)的內(nèi)容，使管理更加 完善。 6：在圖書查詢，圖書下架中設(shè)置了提示信息，方便 初使者 使用。 4：在掛失，凍結(jié)，借閱信息里面增加了統(tǒng)計(jì)功能，統(tǒng)計(jì)時(shí)先顯示總數(shù)，再顯示詳細(xì)信息，使管理員清楚的查詢這些特殊情況。 2：同時(shí)在含有 Panle 的讀者管理系統(tǒng)界面里設(shè)置清屏按鈕，也是為 增強(qiáng)界面的美感。 設(shè)計(jì)界面的過程中，我逐漸學(xué)習(xí)了返回，退出，清屏等方法。 在具體設(shè)計(jì)實(shí)施的時(shí)候，我首先做了登陸界面，以熟悉 Delphi 的使用和開發(fā)，然后進(jìn)行數(shù)據(jù)庫的后臺(tái)設(shè)計(jì)，對(duì)整個(gè)圖書館數(shù)據(jù)庫管理系統(tǒng)進(jìn)行分析，畫出 ER 圖， 之 后根據(jù) ER 圖用 SQLSever 2021 編寫了三個(gè)表： Book， Borrow， Reader。 end。 :=true。 :=39。 到期圖書查詢按鈕程序： procedure (Sender: TObject)。 end。39。39。39。select , , ,間 , ,剩余天數(shù) ,掛失 ,凍結(jié) from borrow,book,reader where =號(hào) and = and =39。 :=false。) else begin 。) then showmessage(39。 begin if(=39。方便管理員管理。 十四 .借閱信息界面截圖 : 借閱信息界面說明： 1．根據(jù)你輸入卡號(hào)來查詢 Borrow 表里相應(yīng)的借閱信息。詳情請(qǐng)查看借閱信息 39。已有借書時(shí)限已經(jīng)到期的書，請(qǐng)歸還該書！ ~39。 syts:= [0].AsInteger。 。 :=39。update borrow set 剩余天數(shù) =剩余天數(shù) 139。 begin :=false。 end。 :=true。 :=39。)。39。++39。39。 ( 39。39。++39。39。39。++39。39。39。++39。39。) else begin :=39。 ) then ShowMessage(39。 )or ( =39。 if (=39。 begin 。end。end。end。 :=true。 :=39。39。39。39。update book set 庫存 =庫存 1 where 書編號(hào) =39。 。39。++39。39。 :=39。 。)39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。insert into borrow values(39。 。 newid:=[0].AsInteger+1。 。SELECT MAX(借書號(hào) ) from borrow 39。借書數(shù)已達(dá)到最大限制，無法借閱圖書！ 39。該卡已被凍結(jié)，無法借閱圖 書！ 39。該卡已掛失，不能借閱圖書！ 39。該書庫存不足，請(qǐng)借閱其他書籍！ 39。 kucun:= [0].AsInteger。 。39。++39。39。 :=39。 guashi:= [2].AsBoolean。 jsxz:=[0].AsInteger。 。39。++39。39。 :=39。您要借什么？ 39。39。39。 。 借書（還書）界面程序： 借書按鈕程序： procedure (Sender: TObject)。 4． 修改已借數(shù)，庫存。 3． 顯示數(shù)據(jù)庫 Borrow 表中的借書號(hào) ,卡號(hào) ,書編號(hào) ,借出時(shí)間 ,剩余天數(shù)，以及 Book 表中的庫存數(shù)據(jù)。 2． 寫入數(shù)據(jù)庫之前要先判斷，庫存是否不足，該卡是否掛失，凍結(jié)，注銷，以及該卡是否已達(dá)到最大借 數(shù)限制。 十二 ,借閱管理系統(tǒng)界面截圖 : 借閱管理系統(tǒng)界面說明： 以上按鈕全部為跳轉(zhuǎn)信息，代碼不再贅述。 :=true。 :=39。 :=false。詳情請(qǐng)點(diǎn)擊確定查看 39。個(gè) 39。39。39。被凍結(jié)的用戶共 39。 djtj:=[0].AsInteger。 。 :=39。 var djtj:Integer。39。39。39。update reader set 凍結(jié) =1 where 讀者姓名 =39。 end。 :=true。)。 (39。39。++39。39。 :=39。) else begin :=false。) then showmessage(39。 begin if (=39。方便管理員管理。 十一 .讀者凍結(jié)界面截圖 : 讀者凍結(jié)界面說明： 1． 凍結(jié)按鈕根據(jù)輸入的讀者姓名修改 Reader 表中的凍結(jié)屬性，將凍結(jié)屬性值從 False 修改為 True，解凍結(jié)將 True 修改為 False.。 end。 。select * from reader39。39。39。39。delete from reader where 讀者姓名 =39。 。不允許輸入這么奇怪的名字 ~39。39。 讀者注銷界面程序： 確定按鈕程序： procedure (Sender: TObject)。 十． 讀者注銷界面截圖 : 讀者注銷界面說明： 1． 根據(jù)輸入的讀者姓名，刪除 Reader 表中相應(yīng)的讀者信息。 :=true。 :=39。 :=false。詳情請(qǐng)點(diǎn)擊確定查看 39。個(gè) 39。39。39。被掛失的用戶共 39。 gstj:=[0].AsInteger。 。 :=39。 var gstj:Integer。39。39。39。update reader set 掛失 =1 where 讀者姓名 =39。 end。 :=true。)。 (39。39。++39。39。 :=39。) else begin :=false。) then showmessage(39。 begin if (=39。 2． 掛失統(tǒng)計(jì)按鈕首先顯示掛失讀者的總數(shù)目，然后顯示掛失讀者的相應(yīng)信息，方便管理員管理。 九．讀者掛失界面截圖 : 讀者掛失界面說明： 1． 掛失按鈕根據(jù)輸入的讀者姓名修改 Reader 表中掛失屬性，將屬性值 False 改為 True。 end。39。39。39。select * from reader where 讀者姓名 =39。) else begin :=false。) then showmessage(39。 begin if (=39。 八．讀者信息界面截圖 : 讀者信息界面說明： 1． 根據(jù)輸入的讀者姓名來查詢讀者 Reader 表中的信息。 end。39。39。39。select * from reader where 讀者姓名 =39。 。)39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。insert into reader values(39。 //。 。select max(卡號(hào) ) from reader39。) else begin :=false。) then showmessage(39。)or(=39。 begin if(=39。（以下的 Panle 都是覆蓋式的 Panle ） 讀者辦卡界面程序： 確定按鈕程序： procedure (Sender: TObject)。 2． 顯示該讀者 Reader 表中全部屬性信息。 end。 :=true。 :=39。 。39。++39。39。39。++39。39。 :=39。那你讓我刪除什么？：） 39。39。39。 。 圖書下架界面程序： 確定按鈕程序： procedure (Sender: TObject)。 end。 。 。 begin 。 end。 :=true。 :=39。 。39。++39。39。39。+E+39。39。39。++39。39。39。++39。39。39。++39。39。39。++39。39。+IntToStr(newid)+39。 :=39。 newid:=[0].AsInteger+1。 。 :=39。 。讓信息空著這樣不禮貌！ ~39。39。39。39。39。39。39。 var newid: Integer。 3． 信息清除按鈕，用來清除輸入的文字，方便連續(xù)登記新書。書編號(hào)默認(rèn)最大值插入。 end。 。39。39。%39。%39。39。 and 作者 like39。39。%39。%39。39。 and 出版單 位 like39。39。%39。%39。39。 and 書編號(hào) like39。39。%39。%39。39。select * from book where 書名 like39。) else begin 。)then showmessage(39。)and (=39。) and (=39。)and(=39。 begin if(=39。 3． 顯示 book 表的全部屬性內(nèi)容。 四．圖書查詢界面截圖 : 圖書查詢界面說明： 1． 可以按照書名，書號(hào)，出版單位，分別單獨(dú)查詢，也可以結(jié)合查詢，且都是不完整查詢，在提示按鈕中有說明。 if(tmp=255) then AlphaBlendValue:=tmp。 :=false。 end。 begin tmp:=AlphaBlendValue。 Timer 部件