【正文】 .(2)uld:m,qay3bkw4x56v1g11 具體的功能描述 圖書管理：其功能是管理書庫中圖書的記錄信息，對入庫圖書信息進行管理，并進行查詢。 讀者管理：其功能是對讀者 一般信息進行查詢以及維護。 其子系統描述： ，主要整理圖書的數量、類別和各種相關的信息等。 ，讀者信息管理，添加讀者借書和還書信息。 、新增用戶、刪除用戶可執(zhí) 行的系統操作等。通過這些功能，可以通過不同的關鍵字來對書庫中的圖書進行查詢，同時也可以查詢讀者的借閱信息。 其功能模塊圖如下所示 圖書管理系統 讀者管理功能 系統管理功能 圖書管理功能 借閱管理功能 新書入庫功能 圖書類別功能 讀者信息功能 讀者查詢功能 增加用戶 密碼修改 借書管理功能 還書管理功能 scope fthnirj.(2)uld:m,qay3bkw4x56v1g12 數據實施和維護 程序實現相關代碼： procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。 end。 var Str: string。圖書管理系統 39。 Str := Str + 39。 + 13。請自便！ 39。 end。 begin if messagedlg(39。, mtinformation, [mbyes, mbno], 0) = mryes then begin ShowMessage(39。)。 。 end。 begin [2].Text := 39。 + DateToStr(Date)。時間 :39。 end。 aName: String。 begin :=true。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g13 end。 begin with do begin Close。 (39。)。username39。 (39。).Value := 。GLY39。管理員 39。 if RecordCount 1 then begin ShowMessage(39。)。39。 end else begin 。 end。 程序相關代碼： procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。 end。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g14 begin 。 procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。確定要退出嗎 ?39。 end。 begin 。 if = 39。 then begin := 39。39。 + + 39。39。 := true。 end else begin := 39。39。 + + 39。39。 := true。 end。 procedure (Sender: TObject)。 end。 begin begin 。 if = 39。 then scope fthnirj.(2)uld:m,qay3bkw4x56v1g15 begin := 39。39。 + + 39。39。 := true。 end else begin := 39。39。 + + 39。39。 := true。 end。 end。 begin if (39。, 39。, MB_OKCANCEL) = IDOK then else abort。 procedure (Sender: TObject)。 begin //更新圖書信息表注銷標志 if = 39。 then begin strBookID := Trim()。 。update 圖書明細表 set 狀態(tài) =39。注銷 39。 where 圖書編號=39。 := strSql。 。該書注銷成功！ 39。該書注銷失?。?39。 end。 procedure (Sender: TObject)。 end。 確定按鈕代碼： procedure (Sender: TObject)。39。類別編號不能為空！ 39。 。 end。39。類別名稱不能為空！ 39。 。 end。 。insert into 圖書類別 (類別編號 ,圖書類別 )39。values(:id,:name)39。id39。 (39。).Value:=Trim(edtB)。update 圖書類別 set (類別編號 ,圖書類別 )39。values(:id,:name)39。id39。 (39。).Value:=trim(edtBoo)。 。 :=39。 。 end。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g17 begin if (39。, 39。, MB_OKCANCEL) = IDOK then 。 借閱按鈕代碼： procedure (Sender: TObject)。 begin if = 39。 then begin ShowMessage(39。)。 Exit。 if = 39。 then begin ShowMessage(39。)。 Exit。 if getBookCount() 0 then begin ShowMessage(39。)。 end else begin strBookID := Trim()。 。update 借出信息 set 借出狀態(tài) =1 where 圖書編號 = 39。 。 := 39。 + 39。 (39。).Value:=trim(editBook)。readerid39。 (39。).Value:=DateTimePicker1.Time。 。 。update 圖書明細表 set 狀態(tài) =39。借出 39。 where 圖書編號 = 39。 := strSql。 。 if messagedlg(39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 := 39。 := 39。 := 39。 := 39。 := 39。 := 39。 := 39。 。 end。 var Key: Char)。沒有此書 , 請重新選擇！ 39。 Exit。 := false。圖書編號 =39。39。39。39。 end。 function (BookID: string): boolean。 begin scope fthnirj.(2)uld:m,qay3bkw4x56v1g19 Query := (self)。 (39。)。ID39。 。 。 end else Result := true。 function (user: string): boolean。 begin Query1 := (self)。 (39。)。ID39。 。 Exit。 end。 var Key: Char)。 if viewUser() = false then begin ShowMessage(39。)。 end。 end。 var Query2: TADOQuery。 := 。select count(借書證號 ) from 借出信息 where 借書證號 =:id 39。 (39。).Value := userID。 Result := [0].Value。 。 end。 function (BookID: string): integer。 begin try Query2 := (self)。 (39。)。ID39。 。 。 except Result := 0。 end。 var BorrowBookID: string。 strSql: string。 strDate:string。 if = 39。 then begin scope fthnirj.(2)uld:m,qay3bkw4x56v1g21 ShowMessage(39。)。 Exit。 if = 39。 then begin ShowMessage(39。)。 Exit。 BorrowBookID := Trim()。 if (BorrowBookID 39。) and (BookID 39。) then begin 。 strSql := 39。39。 + strdate + 39。39。 + BookID + 39。39。 + BorrowBookID + 39。39。 (strSql)。 if 0 then begin ShowMessage(39。)。 。 strSql := 39。39。39。 + strBookID。 。 end else ShowMessage(39。)。 end。 var Key: Char)。沒有此書 , 請重新 選擇！ 39。 Exit。 := false。圖書編號 =39。39。39。39。 :=datetostr(date)。 end。 var Key: Char