【正文】 d。).AsString。 if 0 then := (39。 。39。39。39。 select 借出日期 from 借出信息 where 借書證號=39。 。 var Key: Char)。end。 :=datetostr(date)。39。39。39。圖書編號=39。 := false。 Exit。沒有此書, 請重新選擇！39。 var Key: Char)。end。)。 end else ShowMessage(39。 。 + strBookID。39。39。 strSql := 39。 。)。 if 0 then begin ShowMessage(39。 (strSql)。39。 + BorrowBookID + 39。39。 + BookID + 39。39。 + strdate + 39。39。 strSql := 39。) then begin 。) and (BookID 39。 if (BorrowBookID 39。 BorrowBookID := Trim()。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 strDate:string。 strSql: string。var BorrowBookID: string。end。 except Result := 0。 。 。ID39。)。 (39。begin try Query2 := (self)。function (BookID: string): integer。 end。 。 Result := [0].Value。).Value := userID。 (39。select count(借書證號) from 借出信息 where 借書證號=:id 39。 := 。var Query2: TADOQuery。end。 end。)。 if viewUser() = false then begin ShowMessage(39。 var Key: Char)。end。 Exit。 。ID39。)。 (39。begin Query1 := (self)。function (user: string): boolean。 end else Result := true。 。 。ID39。)。 (39。begin Query := (self)。function (BookID: string): boolean。 end。39。39。39。圖書編號=39。 := false。 Exit。沒有此書, 請重新選擇！39。 var Key: Char)。end。 。 := 39。 := 39。 := 39。 := 39。 := 39。 := 39。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 if messagedlg(39。 。 := strSql。 where 圖書編號= 39。借出39。update 圖書明細表 set 狀態(tài)=39。 。 。).Value:=。 (39。readerid39。).Value:=trim()。(39。 + 39。 := 39。 。update 借出信息 set 借出狀態(tài)=1 where 圖書編號= 39。 。 end else begin strBookID := Trim()。)。 if getBookCount() 0 then begin ShowMessage(39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。begin if = 39。借閱按鈕代碼：procedure (Sender: TObject)。, MB_OKCANCEL) = IDOK then 。, 39。begin if (39。end。 。 :=39。 。).Value:=trim()。(39。id39。values(:id,:name)39。update 圖書類別 set (類別編號,圖書類別)39。).Value:=Trim()。 (39。id39。values(:id,:name)39。insert into 圖書類別(類別編號,圖書類別)39。 。 end。 。類別名稱不能為空！39。39。 end。 。類別編號不能為空！39。39。確定按鈕代碼：procedure (Sender: TObject)。end。procedure (Sender: TObject)。 end。該書注銷失??！39。該書注銷成功！39。 。 := strSql。 where 圖書編號=39。注銷39。update 圖書明細表 set 狀態(tài)=39。 。 then begin strBookID := Trim()。begin//更新圖書信息表注銷標志 if = 39。procedure (Sender: TObject)。, MB_OKCANCEL) = IDOK then else abort。, 39。begin if (39。end。 end。 := true。39。 + + 39。39。 end else begin := 39。 := true。39。 + + 39。39。 then begin := 39。 if = 39。begin begin 。end。procedure (Sender: TObject)。 end。 := true。39。 + + 39。39。 end else begin := 39。 := true。39。 + + 39。39。 then begin := 39。 if = 39。begin 。end。確定要退出嗎?39。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。程序相關(guān)代碼：procedure (Sender: TObject)。 end。 end else begin 。39。)。 if RecordCount 1 then begin ShowMessage(39。管理員39。GLY39。).Value := 。 (39。username39。)。 (39。begin with do begin Close。end。begin:=true。 aName: String。end。時間:39。 + DateToStr(Date)。begin [2].Text := 39。end。 。)。, mtinformation, [mbyes, mbno], 0) = mryes then begin ShowMessage(39。begin if messagedlg(39。end。請自便！39。 + 13。 Str := Str + 39。圖書管理系統(tǒng)39。var Str: string。end。procedure (Sender: TObject)。begin 。end。 其功能模塊圖如下所示圖書管理系統(tǒng)讀者管理功能系統(tǒng)管理功能圖書管理功能借閱管理功能新書入庫功能圖書類別功能讀者信息功能讀者查詢功能增加用戶密碼修改借書管理功能還書管理功能數(shù)據(jù)實施和維護程序?qū)崿F(xiàn)相關(guān)代碼：procedure (Sender: TObject)。通過這些功能，可以通過不同的關(guān)鍵字來對書庫中的圖書進行查詢，同時也可以查詢讀者的借閱信息。、新增用戶、刪除用戶可執(zhí)行的系統(tǒng)操作等。，讀者信息管理，添加讀者借書和還書信息。其子系統(tǒng)描述：，主要整理圖書的數(shù)量、類別和各種相關(guān)的信息等。讀者管理：其功能是對讀者一般信息進行查詢以及維護。 圖書管理：其功能是管理書庫中圖書的記錄信息，對入庫圖書信息進行管理，并進行查詢。 概念模型設(shè)計 讀者實體讀者實體學(xué)號姓名系別借書證號
證號性別聯(lián)系電話圖31讀者實體 圖書實體圖書實體圖書編號出版日期數(shù)據(jù)庫配置文件已經(jīng)