【導(dǎo)讀】本系統(tǒng)是介紹一個(gè)用delphi為開(kāi)發(fā)工具基于ADO的圖書(shū)館圖書(shū)管理系統(tǒng)。其功能包括用戶管理、圖書(shū)或讀者或借閱查詢、圖書(shū)或讀者管理以及圖書(shū)借還。本系統(tǒng)使用Access數(shù)據(jù)庫(kù)存儲(chǔ)圖書(shū)管理的基本信息。的子系統(tǒng)下正常操作。

　　

【正文】 9。 :=39。39。 :=39。39。 :=39。39。 if length()=4 then begin try 33 with do begin tablename:=39。book39。 :=39。name39。 :=39。author39。 :=39。press39。 :=39。outdate39。 :=39。cost39。 :=39。memo039。 active:=true。 if not locate(39。code39。, ,[]) then begin messagedlg(39。沒(méi)有數(shù)據(jù)或數(shù)據(jù)庫(kù)操作失敗 39。,mterror,[mbok],0)。 exit。 end。 end。 except messagedlg(39。數(shù)據(jù)操作出錯(cuò) 39。,mterror,[mbok],0)。 end。 try with do begin 。 (39。select * from lend where code=:code39。)。 (39。code39。).Value :=。 open。 if recordcount0 then begin fdate:=fieldbyname(39。outdate39。).AsDateTime 。 owntime:=datefdate。 :=floattostr(owntime)。 :=fieldbyname(39。readerid39。).AsString。 :=true。 :=true。 if strtoint( )60 then begin :=true。 :=true。 :=floattostr((strtoint( )60)*)。 end。 :=false。 :=true。 。 close。 end else begin 。 :=true。 :=false。 end。 end。 except 。 end。 end。 end。 34 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key=13 then bobox1change(sender)。 end。 procedure (Sender: TObject)。 begin if length()=9 then begin with do begin 。 (39。select readerid from reader where readerid=:readerid39。)。 (39。readerid39。).Value := 。 open。 if recordcount=0 then begin :=false。 messagedlg(39。 借 書(shū) 證 號(hào) 39。+ +39。 不 存 在39。,mterror,[mbok],0)。 close。 exit。 end。 close。 end。 try with do begin 。 (39。select count(readerid) from lend where readerid=:readerid39。)。 (39。readerid39。).Value := 。 open。 :=inttostr(fields[0].Value )。 close。 end。 except :=39。039。 end。 :=false。 :=true。 。 end。 end。 procedure (Sender: TObject)。 var tempownbook:townbook。 canlend:boolean。 mmcode:string。 begin if 39。39。 then begin try with do begin 。 35 (39。select code from lend where readerid=:readerid39。)。 (39。readerid39。).Value := 。 open。 canlend:=true。 。 mmcode:=fieldbyname(39。code39。).AsString。 while not eof do begin //with tempadoquery1 do with do begin 。 (39。select * from book where code=:code39。)。 (39。code39。).Value :=mmcode。 open。 :=fieldbyname(39。code39。).asstring。 :=fieldbyname(39。name39。).asstring。 :=fieldbyname(39。cost39。).asstring。 try //with tempadoquery2 do with do begin 。 (39。select * from lend where code=:code and readerid=:readerid39。)。 (39。code39。).Value :=ieldbyname(39。code39。).AsString。 (39。readerid39。).Value := 。 open。 :=round(datefieldbyname(39。outdate39。).AsDateTime)。 close。 end。 except :=0。 end。 close。 end。 if 60 then begin with do begin caption:=。 ()。 ()。 (inttostr())。 (floattostr(()*))。 end。 canlend:=false。 end。 next。 end。 close。 end。 except canlend:=true。 end。 if canlend=false then 36 begin :=+39。有以下書(shū)籍沒(méi)按時(shí)歸還 39。 。 exit。 end。 try with do begin 。 (39。insert into lend(code,readerid,outdate)39。+39。 values(:code,:readerid,:outdate)39。)。 (39。code39。).value:=。 (39。readerid39。).value:=。 (39。outdate39。).value:=datetostr(now())。 execsql。 :=false。 showmessage(39。借書(shū)成功。 39。)。 end。 except messagedlg(39。借書(shū)不成功 39。,mterror,[mbok],0)。 end。 end else begin showmessage(39。請(qǐng)輸入借書(shū)證號(hào)！ 39。)。 。 end。 end。 procedure (Sender: TObject)。 begin try with do begin 。 (39。delete from lend where code=:code39。)。 (39。code39。).value:=。 execsql。 close。 :=false。 showmessage(39。還書(shū)成功。 39。)。 end。 except messagedlg(39。還書(shū)不成功 39。,mterror,[mbok],0)。 end。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end。 procedure (Sender: TObject)。 begin close。 end。 ⑾ ．規(guī)章制度窗體設(shè)計(jì)： 37 程序界面如 下： 程序主要代碼如下： procedure (Sender: TObject)。 begin close。 end。 ⑿ ．圖書(shū)館背景窗體設(shè)計(jì)： 程序界面如下： 程序主要代碼： procedure (Sender: TObject)。 begin close。 end。 六、本系統(tǒng)各個(gè)功能的 運(yùn)行 見(jiàn)“運(yùn)行錄像 .exe”。 38 七 、 總體設(shè)計(jì)方案分析 在構(gòu)造圖書(shū)館圖書(shū)管理系統(tǒng)時(shí)，先從需求出發(fā)構(gòu)造 acce 數(shù)據(jù)庫(kù)表，然后再由數(shù)據(jù)庫(kù)表的結(jié)合和需求劃分系統(tǒng)功能模塊：一個(gè)是操作系統(tǒng)， 實(shí)現(xiàn)不同身份的用戶的登錄；二是信息查詢，便于用戶查詢；三是圖書(shū)管理，便于用戶進(jìn)行圖書(shū)管理。對(duì)于不同子系統(tǒng)之間的切換，采用了登錄功能。 系統(tǒng)劃分子系統(tǒng)之后，就是繼續(xù)劃分子系統(tǒng)的小模塊。先考慮在進(jìn)入子系統(tǒng)時(shí)一應(yīng)該做什么，進(jìn)入子系統(tǒng)之后又應(yīng)該做什么，提供哪些服務(wù)等。在本系統(tǒng)設(shè)計(jì)中， 第一， 對(duì)于操作系統(tǒng)子系統(tǒng)，提供 登錄 功能，在用戶登錄之后可實(shí)現(xiàn)權(quán)限管理、修改密碼和退出系統(tǒng)功能；第二，對(duì)于信息查詢子系統(tǒng)，用戶進(jìn)入時(shí)首先調(diào)用相關(guān)的數(shù)據(jù)表，進(jìn)入系統(tǒng)后，子系統(tǒng)提供圖書(shū)信息查詢、讀者信息查詢、借閱信息查詢的功能。第三，對(duì)于圖書(shū)管理子系統(tǒng)，用戶進(jìn)入是首先調(diào)用相關(guān)的數(shù)據(jù)表，進(jìn)入系統(tǒng)后，子系統(tǒng)提供圖書(shū)管理、讀者管理、借閱管理的功能。最后還有一個(gè)子系統(tǒng)是介紹圖書(shū)館的規(guī)章制度和圖書(shū)館的背景。 進(jìn)入系統(tǒng)的設(shè)計(jì)階段，嚴(yán)格遵循以上的思路進(jìn)行。首先根據(jù)數(shù)據(jù)可表和功能模塊決定制全局變量，并把其保存到一個(gè)單元文件中，然后順序進(jìn)入子系統(tǒng)的功 能模塊設(shè)計(jì) ，直到最后完成。進(jìn)行功能模塊設(shè)計(jì)時(shí)，采用反復(fù)調(diào)試和修改的方法保證程序的正確性和可靠性。 八．出現(xiàn)的問(wèn)題及解決辦法 ：由于本程序是參考資料的寫的，所以對(duì)很多函數(shù)和其他的代碼不是很理解，編寫程