【正文】
這就是我這次課程設(shè)計(jì)中得到的最大的體會,受益匪淺。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g33 總結(jié) 做什么事情,都要對認(rèn)真,既然是該你做的事,肯定是你應(yīng)該有這個能力,即使能力不夠,也 是應(yīng)該借這個機(jī)會來培養(yǎng)。 := true。 + + 39。 end else begin := 39。39。39。 if = 39。 end。 end。 end。 ExecSQL。).Value := Trim()。update 學(xué)生信息表 set 密碼 =:mm where 姓名 =:xm39。 end。新密碼和舊密碼不一致 !39。)。).Value := Trim()。xm39。 (39。 end。39。 if RecordCount 1 then begin ShowMessage(39。 := true。).Value := 。username39。 (39。 end。 。).AsString := 。聯(lián)系電話 39。 (39。).AsString := 。 。 := 39。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 。).Value := trim()。depart39。 (39。).Value := trim()。 + 39。 := 39。)。) or ( = 39。 Exit。 then begin ShowMessage(39。 Exit。 then begin ShowMessage(39。 Exit。 then begin ShowMessage(39。 Exit。 then begin ShowMessage(39。 Exit。 then begin ShowMessage(39。 end。 end。 end。 ExecSQL。).Value := Trim()。update 用戶 set 密碼 =:mm where 姓名 =:xm39。 end。新密碼和舊密碼不一致 !39。)。).Value := Trim()。xm39。 (39。 Exit。 then begin ShowMessage(39。 Exit。 then begin ShowMessage(39。 Exit。 then begin scope fthnirj.(2)uld:m,qay3bkw4x56v1g28 ShowMessage(39。 Exit。 then begin ShowMessage(39。 end。 := 39。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 。).Value := Trim()。phone39。 (39。).Value := Trim()。name39。系別 ,聯(lián)系電話 ,借書證號 ,性別 ,密碼 )39。 。 := 39。 。)。 。)。 if = 39。)。 if = 39。)。 if = 39。 := 39。 。)。 。)。 if = 39。)。 if = 39。)。 begin if = 39。 。 := 39。 := 39。 := 39。 if messagedlg(39。price39。 (39。).Value := Trim()。type39。 (39。values(:id,:type,:name,:author,:publish,:time,:price)39。insert into 圖書明細(xì)表 (圖書編號 ,類別編號 ,39。 Exit。 then begin ShowMessage(39。 Exit。 := 39。 := 39。 := 39。 := 39。 。)。 。)。 if = 39。)。 if = 39。)。 if = 39。)。 if = 39。)。 if = 39。)。 if = 39。)。 begin if = 39。 Exit。).Value := BookID。select * from 圖書明細(xì)表 where 圖書編號 =:id39。 var Query: TADOQuery。您超期了 ,請下次及時歸還! 39。).AsString。 。39。 select 借出日期 from 借出信息 where 借書證號 =39。 var Key: Char)。 :=datetostr(date)。39。圖書編號 =39。 Exit。 var Key: Char)。)。 。39。 strSql := 39。)。 (strSql)。 + BorrowBookID + 39。 + BookID + 39。 + strdate + 39。 strSql := 39。) and (BookID 39。 BorrowBookID := Trim()。)。 if = 39。)。 if = 39。 strSql: string。 end。 。ID39。 (39。 function (BookID: string): integer。 。).Value := userID。select count(借書證號 ) from 借出信息 where 借書證號 =:id 39。 var Query2: TADOQuery。 end。 if viewUser() = false then begin ShowMessage(39。 end。 。)。 begin Query1 := (self)。 end else Result := true。 。)。 begin scope fthnirj.(2)uld:m,qay3bkw4x56v1g19 Query := (self)。 end。39。圖書編號 =39。 Exit。 var Key: Char)。 。 := 39。 := 39。 := 39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。 。 where 圖書編號 = 39。update 圖書明細(xì)表 set 狀態(tài) =39。 。 (39。).Value:=trim(editBook)。 + 39。 。 。)。 Exit。 then begin ShowMessage(39。 Exit。 then begin ShowMessage(39。 借閱按鈕代碼: procedure (Sender: TObject)。, 39。 end。 :=39。).Value:=trim(edtBoo)。id39。update 圖書類別 set (類別編號 ,圖書類別 )39。 (39。values(:id,:name)39。 。 。39。 。39。 end。 end。該書注銷成功! 39。 := strSql。注銷 39。 。 begin //更新圖書信息表注銷標(biāo)志 if = 39。, MB_OKCANCEL) = IDOK then else abort。 begin if (39。 end。39。39。 := true。 + + 39。 then scope fthnirj.(2)uld:m,qay3bkw4x56v1g15 begin := 39。 begin begin 。 procedure (Sender: TObject)。 := true。 + + 39。 end else begin := 39。39。39。 if = 39。 end。 procedure (Sender: TObject)。 end。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g14 begin 。 procedure (Sender: TObject)。 end。 end。39。 if RecordCount 1 then begin ShowMessage(39。GLY39。 (39。)。 begin with do begin Close。 begin :=true。 end。 + DateToStr(Date)。 end。)。 begin if messagedlg(39。請自便! 39。 Str := Str + 39。 var Str: string。 procedure (Sender: TObject)。 end。通過這些功能,可以通過不同的關(guān)鍵字來對書庫中的圖書進(jìn)行查詢,同時也可以查詢讀者的借閱信息。 ,讀者信息管理,添加讀者借書和還書信息。 讀者管理:其功能是對讀者 一般信息進(jìn)行查詢以及維護(hù)。管理員有權(quán)力行使所有的管理功能,普通用戶只能進(jìn)行一般的查詢。 2.讀者管理部分:這一部分包括對讀者信息進(jìn)行管理的功能。通過這樣的系統(tǒng),我們可以做到信息的規(guī)范管理和快速查詢,從而減少了管理方面的工作量。內(nèi)容及要求如下: ⑴ 設(shè)計(jì)任務(wù)、要求及所用軟件環(huán)境或工具介紹。若確因條件所限,必須要改變課題要求時,應(yīng)在征得指導(dǎo)教師同意的前提下進(jìn)行。各課題的難易度有一定的差異,因此,參加課程設(shè)計(jì)的學(xué)生首先要了解設(shè)計(jì)的任務(wù),仔細(xì)閱讀各個課題的設(shè)計(jì)要求,然后根據(jù)自己的基礎(chǔ)和能力情況選擇其中一題,或者由指導(dǎo)教師指定。 ⒋ 創(chuàng)建數(shù)據(jù)庫 在某一