【正文】 參考文獻 1. 《 Visual C++ . 2020 程序設計 》 何煒等 冶金工業(yè)出版社 P247261 2. 《數(shù)據(jù)庫系統(tǒng)概論（第三版）》 薩師煊等 高等教育出版社 3. 《 Windows 用戶界面開發(fā)》 [美 ] Everett N. McKay 著 北京大學出 版社 4. 常州 VC 編程網(wǎng) 用 Visual C++開發(fā)數(shù)據(jù)庫應用程序 5. Microsoft MSDN 關于 MFC ODBC 部分的文檔 scope fthnirj.(2)uld:m,qay3bkw4x56v1g34 附錄 課程設計評分表 課程名稱： 數(shù)據(jù)庫原理 項 目 評 價 設計方案的合理性與創(chuàng)造性 設計與調(diào)試結果 設計說明書的質(zhì)量 答辯陳述與回答問題情況 課程設計周表現(xiàn)情況 綜合成績 教師簽名： 日 期： 。確實，做什么，只是認真地去做，踏踏實實，戒躁戒躁，靜靜地思考，慢慢地進步，真的是天下無難事。所以放心大膽地做，對自己有信心，就有動力。 end。 。39。39。39。借書證號 =39。 。39。39。39。圖書編號 =39。圖書編號 39。 := false。 查詢按鈕代碼： procedure (Sender: TObject)。 。 。)。 except ShowMessage(39。)。 ShowMessage(39。).Value := Trim()。 (39。xm39。)。 (39。 with do begin Close。 end。)。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g32 if then begin ShowMessage(39。 Exit。舊密碼不正確 !39。 Open。mm39。).Value := Trim()。 (39。select * from 學生信息表 where 姓名 =:xm and 密碼 =:mm39。 。 修改按鈕代碼： procedure (Sender: TObject)。 end。 Exit。 := 39。用戶名或密碼錯誤，請重新輸入 !39。)。 ShowMessage(39。 := true。 Open。pass39。).Value := 。 (39。select * from 學生信息表 where 學號 =:username and 密碼=:pass 39。 。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g31 登錄按鈕代碼： procedure (Sender: TObject)。)。 ShowMessage(39。).AsString := 。 (39。借書證號 39。).AsString := 。 (39。性別 39。).AsString := 。 (39。姓名 39。 。 end。39。39。39。39。39。讀者信息已修改，還要繼續(xù)修改嗎？ 39。 。).Value := trim()。 (39。phone39。).Value := trim()。 (39。xb39。).Value := trim()。 (39。name39。values(:name,:xh,:depart,:phone,:jszh,:xb)39。系別 ,聯(lián)系電話 ,借書證號 ,性別 )39。update 學生信息表 (姓名 ,學號 ,39。 {。 abort。請重新檢查密碼 39。39。39。 end。 。借書證號不能為空！ 39。39。 end。 。聯(lián)系電話不能為空！ 39。39。 end。 。系別不能為空！ 39。39。 end。 。姓名不能為空！ 39。39。 end。 。學號不能為空 !39。39。 確定按鈕代碼： procedure (Sender: TObject)。 。 。)。 except scope fthnirj.(2)uld:m,qay3bkw4x56v1g29 ShowMessage(39。)。 ShowMessage(39。).Value := Trim()。 (39。xm39。)。 (39。 with do begin Close。 end。)。 if then begin ShowMessage(39。 Exit。舊密碼不正確 !39。 Open。mm39。).Value := Trim()。 (39。select * from 用戶 where 姓名 =:xm and 密碼 =:mm39。 。 end。 。請確認密碼！ 39。39。 end。 。請輸入新密碼！ 39。39。 end。 。請輸入舊密碼！ 39。39。 end。 。用戶名不能為空！ 39。39。 提交修改按鈕代碼： procedure (Sender: TObject)。 end。39。39。39。39。39。讀者已添加，還要繼續(xù)添加嗎？ 39。 。).Value := Trim()。 (39。jszh39。).Value := Trim()。 (39。depart39。).Value := 。 (39。xh39。).Value := Trim()。 (39。 + 39。 + scope fthnirj.(2)uld:m,qay3bkw4x56v1g27 39。 := 39。 end。39。)。 if 0 then begin ShowMessage(39。).Value := 。 (39。select * from 學生信息表 where 借書證號 =:A 39。 。 end。 。借書證號不能為空！ 39。39。 end。 。聯(lián)系電話不能為空！ 39。39。 end。 。系別不能為空！ 39。39。 end。39。)。 if 0 then begin ShowMessage(39。).Value := 。 (39。select * from 學生信息表 where 學號 =:A 39。 。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g26 end。 。密碼不能為空！ 39。39。 end。 。學號不能為空！ 39。39。 end。 。姓名不能為空！ 39。39。 確定按鈕代碼： procedure (Sender: TObject)。 end。39。39。39。39。39。39。39。入庫完畢，還有要入庫的書 籍嗎？ 39。 。).Value := StrToFloat(Trim())。 (39。time39。).Value := Trim()。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g25 (39。author39。).Value := trim()。 (39。name39。).Value := Trim()。 (39。 + 39。 + 39。 := 39。 end。 。圖書類型名不能為空！ 39。39。 end。39。39。39。39。39。39。39。39。)。 if 0 then begin ShowMessage(39。).Value := 。 (39。select * from 圖書明細表 where 圖書編號 =:A 39。 。 end。 。出版日期不能為空！ 39。39。 end。 。售價不能為空！ 39。39。 end。 。出版社不能為空！ 39。39。 end。 。作者不能為空！ 39。39。 end。 。圖書名不能為空！ 39。39。 end。 。圖書編號不能為空！ 39。39。 end。 。圖書名不能為空！ 39。39。 確定按鈕代碼： procedure (Sender: TObject)。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g23 end else Result := true。 。 。ID39。)。 (39。 begin Query := (self)。 function (BookID: string): boolean。 end。 :=39。 := inttostr(Daysbetween(date,strtoDate()))。 借 出 日 期39。 := true。)。39。 + + 39。39。 (39。 begin if Key = 13 then begin 。 procedure (Sender: TObject。 end。 := true。39。 + + 39。39。 := 39。 end。)。 begin if Key = 13 then begin scope fthnirj.(2)uld:m,qay3bkw4x56v1g22 if ViewBook() = false then begin ShowMessage(39。 其它相關實現(xiàn)代碼： procedure (Sender: TObject。 end。此書已還過 !39。 。 := strSql。 where 圖書編號 =39。在庫 39。update 圖書明細表 set 狀