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