【正文】 圖 34實(shí)體 ER圖 詳細(xì)設(shè)計(jì) 邏輯設(shè)計(jì) 圖書實(shí)體（ 圖書編號 ，類別編號，圖書名稱，作者，出版日期） 讀者實(shí)體（ 學(xué)號，姓名 ，性別，系別，借書證號，聯(lián)系電話） 借書信息實(shí)體（ 圖書編號，讀 者編號 ，借出日期，還書編號，借書狀態(tài)） 物理設(shè)計(jì) 由數(shù)據(jù)模型利用 SQLsever2020 進(jìn)行數(shù)據(jù)庫的詳細(xì)設(shè)計(jì)，本系統(tǒng)設(shè)計(jì)的數(shù)據(jù)庫名為 shop，其基本表的設(shè)計(jì)如下： (1)學(xué)生信息表 字段名稱 數(shù)據(jù)類型 大小 借書信息實(shí)體 圖書編號 借書證號 借出日期 還書日期 借出狀態(tài) 讀者 圖書 借閱 scope fthnirj.(2)uld:m,qay3bkw4x56v1g10 學(xué)號 varchar 50 姓名 varchar 20 性別 varchar 4 系別 varchar 5 聯(lián)系電話 varchar 50 借書證號 varchar 50 密碼 varchar 15 (2)圖書明細(xì)表 字段名稱 數(shù)據(jù)類型 大小 圖書編號 int 50 圖 書名稱 varchar 20 作者 varchar 4 出版社 varchar 5 出版日期 varchar 50 定價(jià) varchar 50 類別編號 varchar 15 狀態(tài) char 6 (3)圖書類別 字段名稱 數(shù)據(jù)類型 大小 類別編號 smallint 2 圖書類別 nvarchar 20 (4)用戶 字段名稱 數(shù)據(jù)類型 大小 姓名 varchar 20 性別 varchar 4 類型 varchar 50 聯(lián)系電話 varchar 15 密碼 varchar 50 (5)借出信息 字段名稱 數(shù)據(jù)類型 大小 借出編號 int 4 圖書編號 int 4 借書證號 varchar 50 借出日期 smalldatetime 4 借出狀態(tài) bit 4 本系統(tǒng)包括的模塊主要有如下幾個(gè)部分：圖書管理模塊、借閱管理模塊、讀者管理模塊、系統(tǒng)管理模塊、信息查詢模塊、用戶管理模塊 scope fthnirj.(2)uld:m,qay3bkw4x56v1g11 具體的功能描述 圖書管理：其功能是管理書庫中圖書的記錄信息，對入庫圖書信息進(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)管理功能 圖書管理功能 借閱管理功能 新書入庫功能 圖書類別功能 讀者信息功能 讀者查詢功能 增加用戶 密碼修改 借書管理功能 還書管理功能 scope fthnirj.(2)uld:m,qay3bkw4x56v1g12 數(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。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g13 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)。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g14 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 scope fthnirj.(2)uld:m,qay3bkw4x56v1g15 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í)要?jiǎng)h除記錄？該命令不可取消！ 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)。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g16 begin