【正文】 har20性別varchar4系別varchar5聯(lián)系電話varchar50借書證號varchar50密碼varchar15 (2)圖書明細(xì)表字段名稱數(shù)據(jù)類型大小圖書編號int50圖書名稱varchar20作者varchar4出版社varchar5出版日期varchar50定價(jià)varchar50類別編號varchar15狀態(tài)char6(3)圖書類別字段名稱數(shù)據(jù)類型大小類別編號smallint2圖書類別nvarchar20(4)用戶字段名稱數(shù)據(jù)類型大小姓名varchar20性別varchar4類型varchar50聯(lián)系電話varchar15密碼varchar50(5)借出信息字段名稱數(shù)據(jù)類型大小借出編號int4圖書編號int 4借書證號varchar50借出日期smalldatetime4借出狀態(tài)bit4本系統(tǒng)包括的模塊主要有如下幾個(gè)部分：圖書管理模塊、借閱管理模塊、讀者管理模塊、系統(tǒng)管理模塊、信息查詢模塊、用戶管理模塊 圖書管理：其功能是管理書庫中圖書的記錄信息，對入庫圖書信息進(jìn)行管理，并進(jìn)行查詢。借閱管理：其功能是對讀者借閱信息進(jìn)行查詢。讀者管理：其功能是對讀者一般信息進(jìn)行查詢以及維護(hù)。系統(tǒng)管理：其功能是為系統(tǒng)的使用者進(jìn)行帳戶和密碼管理以及基礎(chǔ)數(shù)據(jù)維護(hù)。其子系統(tǒng)描述：，主要整理圖書的數(shù)量、類別和各種相關(guān)的信息等。，進(jìn)行借書操作（此操作由管理員完成）；當(dāng)用戶要查詢自己的借閱情況時(shí)，可進(jìn)行借閱查詢。，讀者信息管理，添加讀者借書和還書信息。可以記錄新加入的讀者的信息，并且可以對已經(jīng)存在于數(shù)據(jù)庫中的讀者的信息進(jìn)行修改，同時(shí)可以進(jìn)行讀者借、還書的管理。、新增用戶、刪除用戶可執(zhí)行的系統(tǒng)操作等。、讀者查詢和用戶查詢等功能。通過這些功能，可以通過不同的關(guān)鍵字來對書庫中的圖書進(jìn)行查詢，同時(shí)也可以查詢讀者的借閱信息。，如修改密碼、登錄系統(tǒng)、退出登錄，還有系統(tǒng)簡介等功能。 其功能模塊圖如下所示圖書管理系統(tǒng)讀者管理功能系統(tǒng)管理功能圖書管理功能借閱管理功能新書入庫功能圖書類別功能讀者信息功能讀者查詢功能增加用戶密碼修改借書管理功能還書管理功能數(shù)據(jù)實(shí)施和維護(hù)程序?qū)崿F(xiàn)相關(guān)代碼：procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。var Str: string。begin Str := 39。圖書管理系統(tǒng)39。 + 13。 Str := Str + 39。大家好39。 + 13。 Str := Str + 39。請自便！39。 ShowMessage(Str)。end。procedure (Sender: TObject)。begin if messagedlg(39。確定要退出本系統(tǒng)嗎?39。, mtinformation, [mbyes, mbno], 0) = mryes then begin ShowMessage(39。謝謝你的使用39。)。 // 。 。 end。end。procedure (Sender: TObject)。begin [2].Text := 39。日期:39。 + DateToStr(Date)。 [3].Text := 39。時(shí)間:39。 + TimeToStr(Time)。end。procedure (Sender: TObject。 aName: String。 var DoSkin: Boolean)。begin:=true。end。end。登錄按鈕代碼：procedure (Sender: TObject)。begin with do begin Close。 。 (39。select * from 用戶 where 姓名=:username and 密碼=:pass and 類型=:GLY39。)。 (39。username39。).Value := 。 (39。pass39。).Value := 。 (39。GLY39。).Value := 39。管理員39。 Open。 if RecordCount 1 then begin ShowMessage(39。用戶名、密碼錯(cuò)誤或您不是管理員，請重新輸入!39。)。 := 39。39。 Exit。 end else begin 。 end。 end。end。程序相關(guān)代碼：procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin if messagedlg(39。確定要退出嗎?39。, mtinformation, [mbyes, mbno], 0) = mryes then Close。end。procedure (Sender: TObject)。begin 。 := false。 if = 39。學(xué)號39。 then begin := 39。學(xué)號=39。39。39。 + + 39。39。39。39。 := true。 。 end else begin := 39。姓名=39。39。39。 + + 39。39。39。39。 := true。 。 end。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin begin 。 := false。 if = 39。圖書編號39。 then begin := 39。圖書編號=39。39。39。 + + 39。39。39。39。 := true。 。 end else begin := 39。作者=39。39。39。 + + 39。39。39。39。 := true。 。 end。 end。end。procedure (Sender: TObject)。begin if (39。確實(shí)要刪除記錄？該命令不可取消！39。, 39。刪除記錄39。, MB_OKCANCEL) = IDOK then else abort。end。procedure (Sender: TObject)。var strBookID: string。begin//更新圖書信息表注銷標(biāo)志 if = 39。圖書編號39。 then begin strBookID := Trim()。 。 。 strSql := 39。update 圖書明細(xì)表 set 狀態(tài)=39。39。注銷39。39。 where 圖書編號=39。 + strBookID。 := strSql。 。 。 if 0 then ShowMessage(39。該書注銷成功！39。) else ShowMessage(39。該書注銷失??！39。)。 end。end。procedure (Sender: TObject)。begin 。end。end。確定按鈕代碼：procedure (Sender: TObject)。begin if = 39。39。 then begin ShowMessage(39。類別編號不能為空！39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。類別名稱不能為空！39。)。 。 Exit。 end。 。 。 := 39。insert into 圖書類別(類別編號,圖書類別)39。 + 39。values(:id,:name)39。 (39。id39。).Value:=Trim()。 (39。name39。).Value:=Trim()。{:=39。update 圖書類別 set (類別編號,圖書類別)39。+39。values(:id,:name)39。(39。id39。).Value:=trim()。(39。name39。).Value:=t