【正文】 := 39。readerid39。 。 := strSql。 := 39。 := 39。end。 := false。39。 (39。 。 (39。 Exit。)。 := 。 Result := [0].Value。begin try Query2 := (self)。 。var BorrowBookID: string。 then begin ShowMessage(39。 then begin ShowMessage(39。 if (BorrowBookID 39。39。39。 if 0 then begin ShowMessage(39。39。 end else ShowMessage(39。沒有此書, 請重新選擇！39。39。end。39。 if 0 then := (39。end。 (39。end。 Exit。 Exit。 Exit。 Exit。 Exit。 Exit。 Exit。A39。 := 39。 := 39。 if = 39。 。id39。 (39。).Value := StrToDate(Trim())。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 := 39。end。 Exit。 Exit。 Exit。A39。 Exit。 Exit。 Exit。 Exit。A39。 Exit。values(:name,:xh,:depart,:phone,:jszh,:xb,:mm)39。xb39。 (39。 if messagedlg(39。 := 39。begin try with do begin if = 39。 if = 39。 if = 39。 if = 39。 Close。 (39。 end。 。mm39。密碼修改失敗!39。begin if = 39。 if = 39。 if = 39。 if = 39。 if = 39。 if ( = 39。 end。 (39。).Value := 。jszh39。 := 39。 。系別39。 (39。修改成功!39。)。 := true。)。begin try with do begin Close。 (39。 end。 。mm39。密碼修改失敗!39。begin 。 + + 39。39。 end。這就是我這次課程設(shè)計中得到的最大的體會，受益匪淺。 := true。 end else begin := 39。39。end。 end。).Value := Trim()。 end。)。xm39。end。 if RecordCount 1 then begin ShowMessage(39。).Value := 。 (39。 。聯(lián)系電話39。).AsString := 。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。).Value := trim()。 (39。 + 39。)。 Exit。 Exit。 Exit。 Exit。 Exit。end。 end。).Value := Trim()。 end。)。xm39。 Exit。 Exit。 Exit。 Exit。end。 := 39。 。phone39。).Value := Trim()。系別,聯(lián)系電話,借書證號,性別,密碼)39。 := 39。)。)。)。)。 := 39。)。)。)。)。 。 := 39。 if messagedlg(39。 (39。type39。values(:id,:type,:name,:author,:publish,:time,:price)39。 Exit。 Exit。 := 39。 := 39。)。)。)。)。)。)。)。)。 Exit。select * from 圖書明細表 where 圖書編號=:id39。您超期了,請下次及時歸還！39。 。 select 借出日期 from 借出信息 where 借書證號=39。 :=datetostr(date)。圖書編號=39。 var Key: Char)。 。 strSql := 39。 (strSql)。 + BookID + 39。 strSql := 39。 BorrowBookID := Trim()。 if = 39。 if = 39。end。ID39。function (BookID: string): integer。).Value := userID。var Query2: TADOQuery。 if viewUser() = false then begin ShowMessage(39。 。begin Query1 := (self)。 。begin Query := (self)。39。 Exit。 。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 where 圖書編號= 39。 。).Value:=trim()。 。)。 then begin ShowMessage(39。 then begin ShowMessage(39。, 39。 :=39。id39。 (39。 。39。39。 end。 := strSql。 。, MB_OKCANCEL) = IDOK then else abort。 end。39。 + + 39。begin begin 。 := true。 end else begin := 39。39。end。end。procedure (Sender: TObject)。 end。 if RecordCount 1 then begin ShowMessage(39。 (39。begin with do begin Close。end。end。begin if messagedlg(39。 Str := Str + 39。procedure (Sender: TObject)。通過這些功能，可以通過不同的關(guān)鍵字來對書庫中的圖書進行查詢，同時也可以查詢讀者的借閱信息。讀者管理：其功能是對讀者一般信息進行查詢以及維護。3．借閱管理部分：這一部分包括借書信息管理和還書信息管理兩部分。⑵ 課程設(shè)計內(nèi)容中要求的設(shè)計結(jié)果。 學籍管理系統(tǒng)一般來說，選擇課題應以在規(guī)定的時間內(nèi)能完成，并能得到應有的鍛煉為原則。● 關(guān)系模式的規(guī)范化處理。運用ER方法，設(shè)計出系統(tǒng)的各個局部ER模型。實踐中這是一個需要與用戶不斷交流才能逐步確定的需求。本階段應該對整個應用情況作全面的、詳細的調(diào)查，確定特定數(shù)據(jù)庫應用環(huán)境下的設(shè)計目標，收集該應用環(huán)境下針對系統(tǒng)設(shè)計所需要的基礎(chǔ)數(shù)據(jù)以及對這些數(shù)據(jù)的具體存儲要求，從而確定用戶的需求。⒈ 系統(tǒng)需求分析需求分析是數(shù)據(jù)庫系統(tǒng)設(shè)計的一個重要的環(huán)節(jié)。⑶ 安全性和完整性功能。設(shè)計局部概念模式。將概念設(shè)計階段產(chǎn)生的全局概念模式（ER圖）轉(zhuǎn)換成初始的關(guān)系模式。各課題的難易度有一定的差異，因此，參加課程設(shè)計的學生首先要了解設(shè)計的任務，仔細閱讀各個課題的設(shè)計要求，然后根據(jù)自己的基礎(chǔ)和能力情況選擇其中一題，或者由指導教師指定。 工資管理系統(tǒng) 賓館客房管理信息系統(tǒng)內(nèi)容及要求如下：⑴ 設(shè)計任務、要求及所用軟件環(huán)境或工具介紹。2．讀者管理部分：這一部分包括對讀者信息進行管理的功能。借閱管理：其功能是對讀者借閱信息進行查詢。、讀者查詢和用戶查詢等功能。end。 + 13。procedure (Sender: TObject)。 end。 + TimeToStr(Time)。登錄按鈕代碼：procedure (Sender: TObject)。).Value := 。 Open。 end。end。begin 。, mtinformation, [mbyes, mbno], 0) = mryes then Close。學號=39。 。39。procedure (Sender: TObject)。39。作者=39。 。刪除記錄39。 。 + strBookID。)。begin if = 39。 if = 39。 。).Value:=Trim()。(39。 。是否刪除