【導(dǎo)讀】本階段應(yīng)該對(duì)整個(gè)應(yīng)用情況作全面的、要的基礎(chǔ)數(shù)據(jù)以及對(duì)這些數(shù)據(jù)的具體存儲(chǔ)要求，從而確定用戶的需求。的維護(hù)，靈活的信息查詢等。關(guān)的要求，確定本設(shè)計(jì)的信息需求。⑶安全性和完整性功能。本課程設(shè)計(jì)要求學(xué)生采用E-R方法進(jìn)行數(shù)據(jù)庫(kù)的概念設(shè)計(jì)。運(yùn)用E-R方法，設(shè)計(jì)出系統(tǒng)的各個(gè)局部ER模型。通過(guò)對(duì)局部E-R模型的操作，解決各個(gè)E-R模型關(guān)于對(duì)象定義不。一致問(wèn)題，以及對(duì)各個(gè)E-R模型進(jìn)行合并優(yōu)化等，最終形成數(shù)據(jù)庫(kù)的全局概念模式。在課程設(shè)計(jì)報(bào)告中應(yīng)該提供本設(shè)計(jì)階段的相關(guān)內(nèi)容，作為本課程設(shè)計(jì)的驗(yàn)收依據(jù)之一。說(shuō)，選擇課題應(yīng)以在規(guī)定的時(shí)間內(nèi)能完成，并能得到應(yīng)有的鍛煉為原則。師的認(rèn)可，并寫(xiě)出明確的設(shè)計(jì)要求和說(shuō)明。設(shè)計(jì)時(shí)要嚴(yán)格按照題意要求進(jìn)行設(shè)計(jì)，不能隨意更改。若確因條件所限，必須要改變課。題要求時(shí)，應(yīng)在征得指導(dǎo)教師同意的前提下進(jìn)行。

　　

【正文】 xit。 end。 if = 39。39。 then begin ShowMessage(39。請(qǐng)輸入新密碼！ 39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。請(qǐng)確認(rèn)密碼！ 39。)。 。 Exit。 end。 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 scope fthnirj.(2)uld:m,qay3bkw4x56v1g29 ShowMessage(39。密碼修改失敗 !39。)。 end。 。 。 。 end。 確定按鈕代碼： procedure (Sender: TObject)。 begin if = 39。39。 then begin ShowMessage(39。學(xué)號(hào)不能為空 !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。借書(shū)證號(hào)不能為空！ 39。)。 。 Exit。 end。 if ( = 39。39。) or ( = 39。39。) or ( ) scope fthnirj.(2)uld:m,qay3bkw4x56v1g30 then begin ShowMessage(39。請(qǐng)重新檢查密碼 39。)。 abort。 end。 {。 := 39。update 學(xué)生信息表 (姓名 ,學(xué)號(hào) ,39。 + 39。系別 ,聯(lián)系電話 ,借書(shū)證號(hào) ,性別 )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。借書(shū)證號(hào) 39。).AsString := 。 (39。密碼 39。).AsString := 。 。 ShowMessage(39。修改成功 !39。)。 end。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g31 登錄按鈕代碼： procedure (Sender: TObject)。 begin with do begin Close。 。 (39。select * from 學(xué)生信息表 where 學(xué)號(hào) =: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。用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入 !39。)。 := 39。39。 Exit。 end else begin end。 end。 end。 修改按鈕代碼： procedure (Sender: TObject)。 begin try with do begin Close。 。 (39。select * from 學(xué)生信息表 where 姓名 =:xm and 密碼 =:mm39。)。 (39。xm39。).Value := Trim()。 (39。mm39。).Value := Trim()。 Open。 if RecordCount 1 then begin ShowMessage(39。舊密碼不正確 !39。)。 Exit。 end。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g32 if then begin ShowMessage(39。新密碼和舊密碼不一致 !39。)。 Exit。 end。 end。 with do begin Close。 。 (39。update 學(xué)生信息表 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。圖書(shū)編號(hào) 39。 then begin := 39。圖書(shū)編號(hào) =39。39。39。 + + 39。39。39。39。 := true。 。 end else begin := 39。借書(shū)證號(hào) =39。39。39。 + + 39。39。39。39。 := true。 。 end。 end。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g33 總結(jié) 做什么事情，都要對(duì)認(rèn)真，既然是該你做的事，肯定是你應(yīng)該有這個(gè)能力，即使能力不夠，也 是應(yīng)該借這個(gè)機(jī)會(huì)來(lái)培養(yǎng)。所以放心大膽地做，對(duì)自己有信心，就有動(dòng)力。有人說(shuō)，世上的事就怕認(rèn)真二字。確實(shí)，做什么，只是認(rèn)真地去做，踏踏實(shí)實(shí)，戒躁戒躁，靜靜地思考，慢慢地進(jìn)步，真的是天下無(wú)難事。這就是我這次課程設(shè)計(jì)中得到的最大的體會(huì)，受益匪淺。 參考文獻(xiàn) 1. 《 Visual C++ . 2020 程序設(shè)計(jì) 》 何煒等 冶金工業(yè)出版社 P247261 2. 《數(shù)據(jù)庫(kù)系統(tǒng)概論（第三版）》 薩師煊等 高等教育出版社 3. 《 Windows 用戶界面開(kāi)發(fā)》 [美 ] Everett N. McKay 著 北京大學(xué)出 版社 4. 常州 VC 編程網(wǎng) 用 Visual C++開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序 5. Microsoft MSDN 關(guān)于 MFC ODBC 部分的文檔 scope fthnirj.(2)uld:m,qay3bkw4x56v1g34 附錄 課程設(shè)計(jì)評(píng)分表 課程名稱： 數(shù)據(jù)庫(kù)原理 項(xiàng) 目 評(píng) 價(jià) 設(shè)計(jì)方案的合理性與創(chuàng)造性 設(shè)計(jì)與調(diào)試結(jié)果 設(shè)計(jì)說(shuō)明書(shū)的質(zhì)量 答辯陳述與回答問(wèn)題情況 課程設(shè)計(jì)周表現(xiàn)情況 綜合成績(jī) 教師簽名： 日 期：