【正文】 態(tài) =39。 。 //更新圖書(shū)信息表在庫(kù)標(biāo)志 strBookID := Trim()。還書(shū)成功 !39。 。 and 借出狀態(tài) =1 39。39。39。 and 借書(shū)證號(hào) =39。 where 圖書(shū) 編號(hào) =39。39。39。update 借出信息 set 借出狀態(tài) =0 ,還書(shū)日期 =39。 。39。39。 BookID := Trim()。 end。 。圖書(shū)編號(hào)不能為空！ 39。39。 end。 。借書(shū)證號(hào)不能為空！ 39。39。 begin strDate:=trim()。 strBookID: string。 BookID: string。 歸還按鈕代碼 ： procedure (Sender: TObject)。 end。 。 Result := [0].Value。).Value := BookID。 (39。select count(圖書(shū)編號(hào) ) from 借出信息 where 圖書(shū)編號(hào) =:id and 借出狀態(tài) =139。 := 。 var Query2: TADOQuery。 end。 except Result := 0。 。 。ID39。)。 (39。 begin try scope fthnirj.(2)uld:m,qay3bkw4x56v1g20 Query2 := (self)。 function (userID: string): integer。 end。 Exit。沒(méi)有此用戶 , 請(qǐng)重新選擇！ 39。 begin if Key = 13 then begin := IntToStr(getOwnCount())。 procedure (Sender: TObject。 end else Result := true。 if = 0 then begin Result := false。).Value := user。 (39。select * from 學(xué)生信息表 where 借書(shū)證號(hào) =:id39。 := 。 var Query1: TADOQuery。 end。 Exit。 if = 0 then begin Result := false。).Value := BookID。 (39。select * from 圖書(shū)明細(xì)表 where 圖書(shū)編號(hào) =:id39。 := 。 var Query: TADOQuery。 end。 := true。39。 + + 39。39。 := 39。 end。)。 begin if Key = 13 then begin if ViewBook() = false then begin ShowMessage(39。 其他相關(guān)實(shí)現(xiàn)代碼： procedure (Sender: TObject。 end。39。39。39。39。39。39。39。39。借閱成功，還有要借的書(shū)籍嗎 ？ 39。 end。 。 + strBookID。39。39。 strSql := 39。 //更新圖書(shū)信息表在庫(kù)標(biāo)志 。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g18 。time39。).Value:=trim(editre)。 (39。Bookid39。:readerID,:time,1)39。insert into 借出信息 (圖書(shū)編號(hào) ,借書(shū)證號(hào) ,借出日期 ,借出狀態(tài) )values(:BookID,39。 。+ strBookID。 := 39。 。 Exit。此書(shū)已經(jīng)被借出！ 39。 end。 。圖書(shū)編號(hào)不能為空！ 39。39。 end。 。借書(shū)證號(hào)不能為空！ 39。39。 var strBookID: string。 end。確定 39。是否刪除記錄？ 39。 刪除按鈕代碼： procedure (Sender: TObject)。 。select * from 圖書(shū)類別 39。 。} 。name39。).Value:=trim(edtTypeI)。 (39。+39。 {:=39。name39。).Value:=Trim(edtTyp)。 (39。 + 39。 := 39。 。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 begin if = 39。 end。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g16 begin 。 end。)。) else ShowMessage(39。 if 0 then ShowMessage(39。 。 + strBookID。39。39。 strSql := 39。 。圖書(shū)編號(hào) 39。 var strBookID: string。 end。刪除記錄 39。確實(shí)要?jiǎng)h除記錄？該命令不可取消！ 39。 procedure (Sender: TObject)。 end。 。39。39。39。作者 =39。 。39。39。39。圖書(shū)編號(hào) =39。圖書(shū)編號(hào) 39。 := false。 procedure (Sender: TObject)。 begin 。 end。 。39。39。39。姓名 =39。 。39。39。39。學(xué)號(hào) =39。學(xué)號(hào) 39。 := false。 procedure (Sender: TObject)。, mtinformation, [mbyes, mbno], 0) = mryes then Close。 begin if messagedlg(39。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 end。 Exit。 := 39。用戶名、密碼錯(cuò)誤或您不是管理員，請(qǐng)重新輸入 !39。 Open。).Value := 39。 (39。pass39。).Value := 。 (39。select * from 用戶 where 姓名 =:username and 密碼 =:pass and 類型 =:GLY39。 。 登錄按鈕代碼： procedure (Sender: TObject)。 end。 var DoSkin: Boolean)。 procedure (Sender: TObject。 + TimeToStr(Time)。 [3].Text := 39。日期 :39。 procedure (Sender: TObject)。 end。 // 。謝謝你的使用 39。確定要退出本系統(tǒng)嗎 ?39。 procedure (Sender: TObject)。 ShowMessage(Str)。 Str := Str + 39。大家好 39。 + 13。 begin Str := 39。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 ，如修改密碼、登錄系統(tǒng)、退出登錄，還有系統(tǒng)簡(jiǎn)介等功能。 、讀者查詢和用戶查詢等功能?？梢杂涗浶录尤氲淖x者的信息，并且可以對(duì)已經(jīng)存在于數(shù)據(jù)庫(kù)中的讀者的信息進(jìn)行修改，同時(shí)可以進(jìn)行讀者借、還書(shū)的管理。 ，進(jìn)行借書(shū)操作（此操作由管理員完成）；當(dāng)用戶要查詢自己的借閱情況時(shí)，可進(jìn)行借閱查詢。 系統(tǒng)管理：其功能是為系統(tǒng)的使用者進(jìn)行帳戶和密碼管理以及基礎(chǔ)數(shù)據(jù)維護(hù)。 借閱管理：其功能是對(duì)讀者借閱信息進(jìn)行查詢。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g8 概念模型設(shè)計(jì) 讀者實(shí)體 圖 31 讀者實(shí)體 圖書(shū)實(shí)體 圖 32 圖書(shū)實(shí)體 、 讀者實(shí)體 學(xué)號(hào) 姓名 系別 借書(shū)證號(hào) 證號(hào) 性別 圖書(shū)實(shí)體 圖書(shū)編號(hào) 類別編號(hào) 作者 出版日期 數(shù)據(jù)庫(kù)配置文件已經(jīng)安裝到 D:\oracle\product\10.,同時(shí)其他選定的安裝組件也已經(jīng)安裝到 D:\oracle\product\10.\db_1。 安全性需求 每位用戶根據(jù)自己的身份不同，進(jìn)入不同的用戶界面。 3．借閱管理部分：這一部分包括借書(shū)信息管理和還書(shū)信息管理兩部分。 功能劃分 圖書(shū)管理系統(tǒng)主要實(shí)現(xiàn)以下 5方面的功能： 1．書(shū)籍管理功能：包括書(shū)籍類別管理和書(shū)籍信息管理兩部分。 傳統(tǒng)手工的圖書(shū)管理，管理過(guò)程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯(cuò)。面對(duì)龐大的信息量，就需要有圖書(shū)管理系統(tǒng)來(lái)提高圖書(shū)管理工作的效率。 ⑵ 課程設(shè)計(jì)內(nèi)容中要求的設(shè)計(jì)結(jié)果。設(shè)計(jì)報(bào)告一般要以固定規(guī)格的紙張（如 A4）書(shū)寫(xiě)或打印并裝訂，字跡及圖形要清楚，工整，規(guī)范。 3．參考選題 工資管理系統(tǒng) 人事管理系統(tǒng) 倉(cāng)庫(kù)管理系統(tǒng) 學(xué)生管理系統(tǒng) 圖書(shū)館管理信息系統(tǒng) 賓館客房管理信息系統(tǒng) 學(xué)籍管理系統(tǒng) 機(jī)票預(yù)定系統(tǒng) scope fthnirj.(2)uld:m,qay3bkw4x56v1g 學(xué)生成績(jī)管理系統(tǒng) 課程管理子系統(tǒng) 通訊錄子系統(tǒng) 教室管理子系統(tǒng) 宿舍管理子系統(tǒng) 個(gè)人事務(wù)管理子系 統(tǒng) 庫(kù)房管理系統(tǒng) 小商店銷售管理系統(tǒng) 其它管理子系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) (自己選題需經(jīng)指導(dǎo)教師認(rèn)可 ). 課程設(shè)計(jì)的設(shè)計(jì)報(bào)告是學(xué)生對(duì)本次課程設(shè)