數據庫圖書管理信息系統課程設計-資料下載頁

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

　　

【正文】 xit。 end。 if = 39。39。 then begin ShowMessage(39。請輸入新密碼！ 39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。請確認密碼！ 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。學號不能為空 !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。聯系電話不能為空！ 39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。借書證號不能為空！ 39。)。 。 Exit。 end。 if ( = 39。39。) or ( = 39。39。) or ( ) scope fthnirj.(2)uld:m,qay3bkw4x56v1g30 then begin ShowMessage(39。請重新檢查密碼 39。)。 abort。 end。 {。 := 39。update 學生信息表 (姓名 ,學號 ,39。 + 39。系別 ,聯系電話 ,借書證號 ,性別 )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。讀者信息已修改，還要繼續修改嗎？ 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。聯系電話 39。).AsString := 。 (39。借書證號 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 學生信息表 where 學號 =:username and 密碼=:pass 39。)。 (39。username39。).Value := 。 (39。pass39。).Value := 。 Open。 := true。 := true。 := true。 ShowMessage(39。歡迎繼續使用 !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。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g32 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。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g33 總結 做什么事情，都要對認真，既然是該你做的事，肯定是你應該有這個能力，即使能力不夠，也 是應該借這個機會來培養。所以放心大膽地做，對自己有信心，就有動力。有人說，世上的事就怕認真二字。確實，做什么，只是認真地去做，踏踏實實，戒躁戒躁，靜靜地思考，慢慢地進步，真的是天下無難事。這就是我這次課程設計中得到的最大的體會，受益匪淺。 參考文獻 1. 《 Visual C++ . 2020 程序設計 》 何煒等 冶金工業出版社 P247261 2. 《數據庫系統概論（第三版）》 薩師煊等 高等教育出版社 3. 《 Windows 用戶界面開發》 [美 ] Everett N. McKay 著 北京大學出 版社 4. 常州 VC 編程網 用 Visual C++開發數據庫應用程序 5. Microsoft MSDN 關于 MFC ODBC 部分的文檔 scope fthnirj.(2)uld:m,qay3bkw4x56v1g34 附錄 課程設計評分表 課程名稱： 數據庫原理 項 目 評 價 設計方案的合理性與創造性 設計與調試結果 設計說明書的質量 答辯陳述與回答問題情況 課程設計周表現情況 綜合成績 教師簽名： 日 期：