【正文】 這就是我這次課程設(shè)計中得到的最大的體會，受益匪淺。有人說，世上的事就怕認真二字。 總結(jié)做什么事情，都要對認真，既然是該你做的事，肯定是你應(yīng)該有這個能力，即使能力不夠，也是應(yīng)該借這個機會來培養(yǎng)。 end。 := true。39。 + + 39。39。 end else begin := 39。 := true。39。 + + 39。39。 then begin := 39。 if = 39。begin 。end。 。 end。密碼修改失敗!39。 end。密碼修改成功!39。 ExecSQL。mm39。).Value := Trim()。 (39。update 學(xué)生信息表 set 密碼=:mm where 姓名=:xm39。 。 end。 Exit。新密碼和舊密碼不一致!39。 end。)。 if RecordCount 1 then begin ShowMessage(39。).Value := Trim()。 (39。xm39。)。 (39。begin try with do begin Close。end。 end else begin end。39。)。 if RecordCount 1 then begin ShowMessage(39。歡迎繼續(xù)使用!39。 := true。 := true。).Value := 。 (39。username39。)。 (39。begin with do begin Close。end。修改成功!39。 。密碼39。).AsString := 。 (39。聯(lián)系電話39。).AsString := 。 (39。系別39。).AsString := 。 (39。 。 。 := 39。 := 39。 := 39。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。} if messagedlg(39。 。jszh39。).Value := trim()。 (39。depart39。).Value := 。 (39。xh39。).Value := trim()。 (39。 + 39。 + 39。 := 39。 end。)。) or ( ) then begin ShowMessage(39。) or ( = 39。 if ( = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。begin if = 39。end。 。 end。密碼修改失敗!39。 end。密碼修改成功!39。 ExecSQL。mm39。).Value := Trim()。 (39。update 用戶 set 密碼=:mm where 姓名=:xm39。 。 end。 Exit。新密碼和舊密碼不一致!39。 end。)。 if RecordCount 1 then begin ShowMessage(39。).Value := Trim()。 (39。xm39。)。 (39。 Close。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。begin try with do begin if = 39。end。 。 := 39。 := 39。 := 39。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 if messagedlg(39。 。mm39。).Value := Trim()。 (39。phone39。).Value := Trim()。 (39。xb39。).Value := Trim()。 (39。name39。values(:name,:xh,:depart,:phone,:jszh,:xb,:mm)39。系別,聯(lián)系電話,借書證號,性別,密碼)39。insert into 學(xué)生信息表(姓名,學(xué)號,39。 。 Exit。 := 39。該借書證號已存在！39。 。A39。)。 (39。 。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。 := 39。該學(xué)號已存在！39。 。A39。)。 (39。 。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。begin if = 39。end。 。 := 39。 := 39。 := 39。 := 39。 := 39。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 if messagedlg(39。 。price39。).Value := StrToDate(Trim())。 (39。publish39。).Value := Trim()。 (39。type39。).Value := Trim()。 (39。id39。values(:id,:type,:name,:author,:publish,:time,:price)39。圖書名稱,作者,出版社,出版日期,定價)39。insert into 圖書明細表(圖書編號,類別編號,39。 。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。 := 39。 := 39。 := 39。 := 39。 := 39。 := 39。 := 39。 := 39。該書已存在！39。 。A39。)。 (39。 。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。 if = 39。 Exit。)。 then begin ShowMessage(39。begin if = 39。end。 Exit。 if = 0 then begin Result := false。).Value := BookID。 (39。select * from 圖書明細表 where 圖書編號=:id39。 := 。var Query: TADOQuery。end。您超期了,請下次及時歸還！39。if daysbetween(date,strtoDate()) 30 then :=clRe