【正文】 不一致!39。)。 Exit。 end。 end。 with do begin Close。 。 (39。update 用戶 set 密碼=:mm where 姓名=:xm39。)。 (39。xm39。).Value := Trim()。 (39。mm39。).Value := Trim()。 ExecSQL。 ShowMessage(39。密碼修改成功!39。)。 end。 except ShowMessage(39。密碼修改失敗!39。)。 end。 。 。 。end。確定按鈕代碼：procedure (Sender: TObject)。begin if = 39。39。 then begin ShowMessage(39。學號不能為空!39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。姓名不能為空！39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。系別不能為空！39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。聯(lián)系電話不能為空！39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。借書證號不能為空！39。)。 。 Exit。 end。 if ( = 39。39。) or ( = 39。39。) or ( ) then begin ShowMessage(39。請重新檢查密碼39。)。 abort。 end。 {。 := 39。update 學生信息表(姓名,學號,39。 + 39。系別,聯(lián)系電話,借書證號,性別)39。 + 39。values(:name,:xh,:depart,:phone,:jszh,:xb)39。 (39。name39。).Value := trim()。 (39。xh39。).Value := trim()。 (39。xb39。).Value := 。 (39。depart39。).Value := trim()。 (39。phone39。).Value := trim()。 (39。jszh39。).Value := trim()。 。 。} if messagedlg(39。讀者信息已修改，還要繼續(xù)修改嗎？39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。39。 := 39。39。 := 39。39。 := 39。39。 := 39。39。 。 end。 。 。 (39。姓名39。).AsString := 。 (39。系別39。).AsString := 。 (39。性別39。).AsString := 。 (39。聯(lián)系電話39。).AsString := 。 (39。借書證號39。).AsString := 。 (39。密碼39。).AsString := 。 。 ShowMessage(39。修改成功!39。)。end。登錄按鈕代碼：procedure (Sender: TObject)。begin with do begin Close。 。 (39。select * from 學生信息表 where 學號=:username and 密碼=:pass 39。)。 (39。username39。).Value := 。 (39。pass39。).Value := 。 Open。 := true。 := true。 := true。 ShowMessage(39。歡迎繼續(xù)使用!39。)。 if RecordCount 1 then begin ShowMessage(39。用戶名或密碼錯誤，請重新輸入!39。)。 := 39。39。 Exit。 end else begin end。 end。end。修改按鈕代碼：procedure (Sender: TObject)。begin try with do begin Close。 。 (39。select * from 學生信息表 where 姓名=:xm and 密碼=:mm39。)。 (39。xm39。).Value := Trim()。 (39。mm39。).Value := Trim()。 Open。 if RecordCount 1 then begin ShowMessage(39。舊密碼不正確!39。)。 Exit。 end。 if then begin ShowMessage(39。新密碼和舊密碼不一致!39。)。 Exit。 end。 end。 with do begin Close。 。 (39。update 學生信息表 set 密碼=:mm where 姓名=:xm39。)。 (39。xm39。).Value := Trim()。 (39。mm39。).Value := Trim()。 ExecSQL。 ShowMessage(39。密碼修改成功!39。)。 end。 except ShowMessage(39。密碼修改失敗!39。)。 end。 。 。 。end。查詢按鈕代碼：procedure (Sender: TObject)。begin 。 := false。 if = 39。圖書編號39。 then begin := 39。圖書編號=39。39。39。 + + 39。39。39。39。 := true。 。 end else begin := 39。借書證號=39。39。39。 + + 39。39。39。39。 := true。 。 end。end。 總結(jié)做什么事情，都要對認真，既然是該你做的事，肯定是你應該有這個能力，即使能力不夠，也是應該借這個機會來培養(yǎng)。所以放心大膽地做，對自己有信心，就有動力。有人說，世上的事就怕認真二字。確實，做什么，只是認真地去做，踏踏實實，戒躁戒躁，靜靜地思考，慢慢地進步，真的是天下無難事。這就是我這次課程設(shè)計中得到的最大的體會，受益匪淺。參考文獻1. 《Visual C++ .net 2003程序設(shè)計》 何煒等 冶金工業(yè)出版社 P2472612. 《數(shù)據(jù)庫系統(tǒng)概論（第三版）》 薩師煊等 高等教育出版社3. 《Windows用戶界面開發(fā)》 [美] Everett N. McKay著 北京大學出版社4. 常州VC編程網(wǎng) ++開發(fā)數(shù)據(jù)庫應用程序5. Microsoft MSDN 關(guān)于MFC ODBC部分的文檔附錄課程設(shè)計評分表課程名稱： 數(shù)據(jù)庫原理 項 目評 價設(shè)計方案的合理性與創(chuàng)造性設(shè)計與調(diào)試結(jié)果設(shè)計說明書的質(zhì)量答辯陳述與回答問題情況課程設(shè)計周表現(xiàn)情況綜合成績 教師簽名： 日 期： 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