【正文】 9。 end。確實(shí)要?jiǎng)h除記錄？該命令不可取消！39。end。圖書編號(hào)39。 strSql := 39。39。 。) else ShowMessage(39。end。end。 then begin ShowMessage(39。 Exit。 then begin ShowMessage(39。 Exit。 := 39。 (39。name39。+39。).Value:=trim()。} 。select * from 圖書類別39。刪除按鈕代碼：procedure (Sender: TObject)。確定39。var strBookID: string。借書證號(hào)不能為空！39。 end。圖書編號(hào)不能為空！39。 end。 Exit。 := 39。 。:readerID,:time,1)39。 (39。time39。 //更新圖書信息表在庫(kù)標(biāo)志 。39。 + strBookID。 end。39。39。39。39。 end。begin if Key = 13 then begin if ViewBook() = false then begin ShowMessage(39。 end。39。39。end。 := 。 (39。 if = 0 then begin Result := false。end。 := 。 (39。 if = 0 then begin Result := false。procedure (Sender: TObject。沒(méi)有此用戶, 請(qǐng)重新選擇！39。 end。begin try Query2 := (self)。)。 。 except Result := 0。var Query2: TADOQuery。select count(圖書編號(hào)) from 借出信息 where 圖書編號(hào)=:id and 借出狀態(tài)=139。).Value := BookID。 。歸還按鈕代碼 ：procedure (Sender: TObject)。 strBookID: string。39。 。39。 。 BookID := Trim()。39。update 借出信息 set 借出狀態(tài)=0 ,還書日期=39。39。 and 借書證號(hào)=39。39。 。 //更新圖書信息表在庫(kù)標(biāo)志 strBookID := Trim()。update 圖書明細(xì)表 set 狀態(tài)=39。 where 圖書編號(hào)=39。 。 end。begin if Key = 13 then begin if ViewBook() = false then begin ShowMessage(39。 end。39。39。 end。begin if Key = 13 then begin 。39。39。 := true。 := inttostr(Daysbetween(date,strtoDate()))。 end。begin Query := (self)。)。 。 end else Result := true。39。 。39。 。39。 。39。 。39。 。39。 。39。 。 。 (39。 if 0 then begin ShowMessage(39。39。39。39。39。 end。圖書類型名不能為空！39。 end。 + 39。 (39。name39。).Value := trim()。 (39。time39。).Value := StrToFloat(Trim())。入庫(kù)完畢，還有要入庫(kù)的書籍嗎？39。39。39。39。 end。39。 。39。 。39。 。 。 (39。 if 0 then begin ShowMessage(39。39。39。 。39。 。39。 。 。 (39。 if 0 then begin ShowMessage(39。39。 := 39。 + 39。).Value := Trim()。 (39。depart39。).Value := Trim()。 (39。 。39。39。39。提交修改按鈕代碼：procedure (Sender: TObject)。用戶名不能為空！39。 end。請(qǐng)輸入舊密碼！39。 end。請(qǐng)輸入新密碼！39。 end。請(qǐng)確認(rèn)密碼！39。 end。select * from 用戶 where 姓名=:xm and 密碼=:mm39。).Value := Trim()。 Open。 Exit。)。 with do begin Close。)。 (39。 ShowMessage(39。 except ShowMessage(39。 。確定按鈕代碼：procedure (Sender: TObject)。學(xué)號(hào)不能為空!39。 end。姓名不能為空！39。 end。系別不能為空！39。 end。聯(lián)系電話不能為空！39。 end。借書證號(hào)不能為空！39。 end。39。 abort。update 學(xué)生信息表(姓名,學(xué)號(hào),39。values(:name,:xh,:depart,:phone,:jszh,:xb)39。 (39。xb39。).Value := trim()。 (39。 。39。39。39。 。 (39。性別39。).AsString := 。 (39。 ShowMessage(39。登錄按鈕代碼：procedure (Sender: TObject)。select * from 學(xué)生信息表 where 學(xué)號(hào)=:username and 密碼=:pass 39。).Value := 。 Open。 ShowMessage(39。用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入!39。 Exit。修改按鈕代碼：procedure (Sender: TObject)。select * from 學(xué)生信息表 where 姓名=:xm and 密碼=:mm39。).Value := Trim()。 Open。 Exit。)。 with do begin Close。)。 (39。 ShowMessage(39。 except ShowMessage(39。 。查詢按鈕代碼：procedure (Sender: TObject)。圖書編號(hào)39。39。39。借書證號(hào)=39。39。 。所以放心大膽地做，對(duì)自己有信心，就有動(dòng)力。參考文獻(xiàn)1. 《Visual C++ .net 2003程序設(shè)計(jì)》 何煒等 冶金工業(yè)出版社 P2472612. 《數(shù)據(jù)庫(kù)系統(tǒng)概論（第三版）》 薩師煊等 高等教育出版社3. 《Windows用戶界面開(kāi)發(fā)》 [美] Everett N. McKay著 北京大學(xué)出版社4. 常州VC編程網(wǎng) ++開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序5. Microsoft MSDN 關(guān)于MFC ODBC部分的文檔附錄課程設(shè)計(jì)評(píng)分表課程名稱： 數(shù)據(jù)庫(kù)原理 項(xiàng) 目評(píng) 價(jià)設(shè)計(jì)方案的合理性與創(chuàng)造性設(shè)計(jì)與調(diào)試結(jié)果設(shè)計(jì)說(shuō)明書的質(zhì)量答辯陳述與回答問(wèn)題情況課程設(shè)計(jì)周表現(xiàn)情況綜合成績(jī) 教師簽名： 日 期： scope of the entire project. (2) should include: semifinished products, quality of materials, installation quality. (3) must be marked with the date, personnel, quality. (4) construction, construction of clearly marked sections, axis. (5) the draw details. (6) the covert acceptance record perfect, intact. l measurement, process description the process: bee familiar with the structure and design of curtain wall map, partition the whole project, baseline measurements, benchmarking measurement axis, identify key points, put the line, measure, record, replacing the original data measuring elevation33