【正文】 Delphi 數(shù)據(jù)庫(kù)開(kāi)發(fā)完全手冊(cè) [M]。 Delphi7 開(kāi)發(fā)基礎(chǔ) 教程 [M]。軟件工程（第二版） [M]。精通 SQL— 結(jié)構(gòu)化查詢(xún)語(yǔ)言祥解 [M]。數(shù)據(jù)庫(kù)系統(tǒng)概論（第三版） [M]。通過(guò)這個(gè)畢業(yè)設(shè)計(jì)，令我收獲頗豐。這次實(shí)踐動(dòng)手能力 和編程能力方面也有很大的提高，對(duì)于如何編寫(xiě)調(diào)試程序有了更深的認(rèn)識(shí)。由于要獨(dú)立地進(jìn)行整個(gè)系統(tǒng)的設(shè)計(jì)，需要自己去分析架構(gòu)和設(shè)計(jì)，提高了自己分析問(wèn)題和解決問(wèn)題的能力，在學(xué)習(xí)軟件工程以后，有了一次實(shí)際的鍛煉。由于這次畢業(yè)設(shè)計(jì)中，需要大量使用 SQL 語(yǔ)句，因此對(duì) SQL 語(yǔ)句也有了很多的了解，對(duì)以前所學(xué)的知識(shí)鞏固了許多。（比如 inttostr()） 。由于使用了該控件， 在日期 比較、查詢(xún)操作上非常簡(jiǎn)單。 數(shù)據(jù)類(lèi)型的選擇 ：數(shù)據(jù)類(lèi)型學(xué)則 對(duì)于數(shù)據(jù)庫(kù)的性能和操作具有很大的影響。 系統(tǒng)的局限性 寢室內(nèi)多個(gè)學(xué)生的相同數(shù)據(jù)會(huì)產(chǎn)生冗余 在寢室內(nèi)所住 的學(xué)生信息中，有很多信息可能是相同的，如果把這些信息的冗余去除，可以增加系統(tǒng)處理的效率。 ? 查詢(xún)?nèi)妗? 系統(tǒng)的優(yōu)點(diǎn) ? 系統(tǒng)符合學(xué)生公寓管理的要求。 end。提示 39。請(qǐng)選擇要?jiǎng)h除的用 戶(hù) 39。 end。提示 39。刪除失敗 39。,64)。,39。 (39。 execsql。a39。)。 (39。 then begin try with do begin close。 begin if []39。 end。提示 39。密碼不能為空 39。 end。提示 39。修密失敗 39。,64)。,39。 (39。 execsql。b39。).Value:=trim()。 (39。update admin set pass =:a where admin=:b39。 。39。 修改密碼代碼如下： procedure (Sender: TObject)。,64)。,39。 end else (39。失敗 39。用戶(hù)已經(jīng)存在 39。,64)。,39。 (39。 //密碼 第 29 頁(yè) execsql。b39。).Value:=trim()。 //向管理員表中添加數(shù)據(jù) (39。insert admin values(:a,:b)39。 。39。39。添加用戶(hù)代碼如下： procedure (Sender: TObject)。 用戶(hù)管理 窗體設(shè)計(jì) 用戶(hù)管理 窗體命名為 frm_manager。,mb_yesno+mb_iconquestion)=idyes then 。,39。 begin if messagebox(,39。 end。,64)。,39。 except (39。提示 39。修改成功 39。 end。).Value:=trim()。 第 28 頁(yè) fieldbyname(39。電話(huà) 39。).Value:=trim()。 fieldbyname(39。狀態(tài) 39。).Value:=trim()。 fieldbyname(39。價(jià)格 39。).Value:=trim()。 fieldbyname(39。 進(jìn)行修改時(shí)代碼如下： procedure (Sender: TObject)。39。 。 進(jìn)行查詢(xún)是代碼如下： procedure (Sender: TObject)。 第 26 頁(yè) 宿舍查詢(xún) 窗體設(shè)計(jì) 宿舍查詢(xún) 窗體命名為 frm_c_ss。 end。對(duì)應(yīng)代碼如下： procedure (Sender: TObject)。 end。,64)。,39。 (39。939。039。 var Key: Char)。 end。,64)。,39。 except (39。提示 39。添加成功 39。 end。).Value:=trim()。 (39。j39。).Value:=strtodate()。 (39。h39。).Value:=trim()。 (39。f39。).Value:=trim()。 (39。d39。).Value:=trim()。 (39。b39。).Value:=trim()。 (39。insert 學(xué)生信息 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k)39。 。 第 25 頁(yè) end。 。 警告39。 宿舍號(hào)不能為空 !39。39。 end。 。 警告39。 姓 名 不 能 為 空 !39。39。 end。 。 警告39。 學(xué) 號(hào) 不 能 為 空 !39。39。對(duì)應(yīng)代碼如下： procedure (Sender: TObject)。 學(xué)生信息錄入 窗體設(shè)計(jì) 學(xué)生錄入 窗體命名為 frm_jbxxlr。 begin close。 end。,64)。,39。 except (39。提示 39。添加成功 39。 end。).Value:=trim()。 (39。g39。).Value:=trim()。 (39。e39。).Value:=trim()。 (39。).Value:=39。 (39。b39。 +trim()。).Value:=trim() + 39。 (39。insert 宿舍信息 values (:a,:b,:c,:d,:e,:f,:g,:h)39。 。 end。 。 警告39。 應(yīng) 住 人 數(shù) 不 能 為 空 !39。39。 第 23 頁(yè) end。 。 警告39。 樓 房 號(hào) 不 能 為 空 !39。39。 end。 。 警告39。 宿 舍 號(hào) 不 能 為 空 !39。39。 當(dāng)點(diǎn)擊“添加”按鈕時(shí)可以對(duì)宿舍信息進(jìn)行添加， 對(duì)應(yīng)代碼如下： procedure (Sender: TObject)。 信息 窗體設(shè)計(jì) 宿舍 信息 窗體命名為 frm_ssxx。 begin close。 取消 按鈕 當(dāng)用戶(hù)單擊“取消 ”按鈕時(shí)， 整個(gè)界面退出。 exit。,MB_OK+MB_ICONWARNING)。,39。 then begin MessageBox(handle,39。 if =39。 exit。,MB_OK+MB_ICONWARNING)。,39。 then begin MessageBox(handle,39。 if =39。 exit。,MB_OK+MB_ICONWARNING)。,39。 then begin MessageBox(handle,39。 if =39。 exit。,MB_OK+MB_ICONWARNING)。,39。 then begin MessageBox(handle,39。 if =39。 exit。,MB_OK+MB_ICONWARNING)。,39。 then begin MessageBox(handle,39。 if =39。 exit。,MB_OK+MB_ICONWARNING)。,39。 then begin MessageBox(handle,39。 begin if =39。 樓房登記 窗體設(shè)計(jì) 樓房登記 窗體命名為 frm_lfdj。 擁有大量高質(zhì)量的皮膚。 Vclskin 是 Delphi 的控件 ，可以對(duì) Delphi 程序進(jìn)行換膚功能。主 界面 窗體由主菜單和工具按鈕組成。 end。 begin frm_login:=(self)。 登錄窗體在 主 窗體之前彈出，以確保程序安全性，代碼如下： procedure (Sender: TObject)。 系統(tǒng)各窗體 詳細(xì)設(shè)計(jì) 錄 窗體 設(shè)計(jì) 登錄窗體命名為 frm_login。//公寓號(hào) roomNo:string。//專(zhuān)業(yè) classes:string。//性別 birthday:string。//學(xué)號(hào) stdName:string。例如 Tstudent 類(lèi)的定義： //學(xué)生信息 type TStudent=class id:integer。 Common 類(lèi)模塊 在程序中，為每一張表定義了一個(gè)類(lèi) 。 // 執(zhí)行有返回值的 sql 語(yǔ)句 ,返回得到的 ADOQuery。Data Source=(local)39。39。User ID=sa。39。Password=sa。39。 ? 查詢(xún)管理模塊 ? 幫助模塊 DATA 數(shù) 據(jù)模塊 學(xué)生公寓管理系統(tǒng)的數(shù)據(jù)庫(kù)連接管理在 Data1 模塊中的 中，定義了數(shù)據(jù)庫(kù)連接字符串 connectionStr 來(lái)改變 連接 ，代碼如下： const //連接字符串 connectionStr=39。 ? 學(xué)生 管理模塊。 ? 系統(tǒng) 管 理模塊。 學(xué)生公寓管理系統(tǒng)的模塊 ： ? 提供數(shù)據(jù)訪問(wèn)支持模塊。 視圖：從一個(gè)或幾個(gè)基本表（或視圖）導(dǎo)出的表，它與基本表不同，是一個(gè)虛表。 索引：建立索引是為了加快查詢(xún)速度的有效手段。 外鍵：有此表的列 或列的組合和其他表的主鍵值或 UNIQUE_KEY 具有相關(guān)聯(lián)的特性。 各實(shí)體關(guān)系模型 經(jīng)過(guò)分析，由上面的數(shù)據(jù)流程圖可以得出以下各實(shí)體之間的 ER 圖， 宿管科 添加交費(fèi)項(xiàng)目 交費(fèi) 學(xué)生 交費(fèi)信息 查詢(xún)處理 公寓 管理 管理員 m n 寢室 組成 1 n 第 13 頁(yè) 寢室 公寓 公寓 公寓 n m 1 1 n 1 所屬 組成 擁有 n 床位 寢室 公寓 住宿 擁有 組成 1 n n m 1 n 學(xué)生 來(lái)訪人 n m m 1 訪問(wèn) 管理員 管理 交費(fèi)