【正文】 (39。c39。).Value:=trim()。 (39。d39。).Value:=trim()。 (39。e39。).Value:=trim()。 (39。f39。).Value:=trim()。 (39。g39。).Value:=trim()。 (39。h39。).Value:=trim()。 (39。i39。).Value:=strtodate()。 (39。j39。).Value:=strtodate()。 (39。k39。).Value:=trim()。 execsql。 end。 (39。添加成功 39。,39。提示 39。,64)。 except (39。添加失敗，檢查信息是否存在或正確 39。,39。失敗 39。,64)。 end。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if not(key in[39。039。..39。939。,8])then begin key:=0。 (39。學(xué)號只能為數(shù)字 39。,39。提示 39。,64)。 end。 end。 當點擊 “取消 ”時，退出界面。對應(yīng)代碼如下： procedure (Sender: TObject)。 begin close。 end。 入樓登記 窗體 設(shè)計 入樓登記窗體 命名為 frm_rldj。 第 26 頁 宿舍查詢 窗體設(shè)計 宿舍查詢 窗體命名為 frm_c_ss。 第 27 頁 此個窗體只要是對宿舍進行查詢、修改和刪除等功能。 進行查詢是代碼如下： procedure (Sender: TObject)。 begin with do begin close。 。 (39。39。) end。 進行修改時代碼如下： procedure (Sender: TObject)。 begin try with do begin edit。 fieldbyname(39。宿舍號 39。).Value:=trim()。 fieldbyname(39。價格 39。).Value:=trim()。 fieldbyname(39。應(yīng)住人數(shù) 39。).Value:=trim()。 fieldbyname(39。狀態(tài) 39。).Value:=trim()。 fieldbyname(39。居住性別 39。).Value:=trim()。 fieldbyname(39。電話 39。).Value:=trim()。 第 28 頁 fieldbyname(39。備注 39。).Value:=trim()。 post。 end。 (39。修改成功 39。,39。提示 39。,64)。 except (39。修改失敗 39。,39。提示 39。,64)。 end。 end。 進行刪除時代碼如下： procedure (Sender: TObject)。 begin if messagebox(,39。 真 的 要 刪 除 嗎 ？ 39。,39。 提示39。,mb_yesno+mb_iconquestion)=idyes then 。 end。 用戶管理 窗體設(shè)計 用戶管理 窗體命名為 frm_manager。 這個模塊可以對用戶進行添加刪除，以及對密碼的修改。添加用戶代碼如下： procedure (Sender: TObject)。 begin if (39。39。) and (39。39。) then begin try with do begin close。 。 (39。insert admin values(:a,:b)39。)。 //向管理員表中添加數(shù)據(jù) (39。a39。).Value:=trim()。 //用戶名 (39。b39。).Value:=trim()。 //密碼 第 29 頁 execsql。 end。 (39。添加成功 39。,39。提示 39。,64)。 except (39。用戶已經(jīng)存在 39。,39。失敗 39。,64) end。 end else (39。用戶或密碼不能為空 39。,39。提示 39。,64)。 end。 修改密碼代碼如下： procedure (Sender: TObject)。 begin if 39。39。 then begin try with do begin close。 。 (39。update admin set pass =:a where admin=:b39。)。 (39。a39。).Value:=trim()。 (39。b39。).Value:=trim()。 execsql。 end。 (39。修改成功 39。,39。提示 39。,64)。 except (39。修密失敗 39。,39。提示 39。,64)。 end。 end else (39。密碼不能為空 39。,39。提示 39。,64)。 end。 刪除用戶代碼如下： procedure (Sender: TObject)。 begin if []39。39。 then begin try with do begin close。 。 (39。delete from admin where admin=:a39。)。 第 30 頁 (39。a39。).Value:=。 execsql。 end。 (39。刪除成功 39。,39。提示 39。,64)。 except (39。刪除失敗 39。,39。提示 39。,64)。 end。 end else (39。請選擇要刪除的用 戶 39。,39。提示 39。,64)。 end。 第 31 頁 第六章 學(xué)生公寓管理系統(tǒng)設(shè)計總結(jié) 學(xué)生公寓管理系統(tǒng)設(shè)計已經(jīng)完成，本章將對幾個月來，在設(shè)計學(xué)生公寓管理系統(tǒng)進行總結(jié)，并且對在設(shè)計本系統(tǒng)過程中遇到的困難和所體會到的東西 進行 總結(jié)。 系統(tǒng)的優(yōu)點 ? 系統(tǒng)符合學(xué)生公寓管理的要求。 ? 友好的操作界面，操作簡單，易用性好。 ? 查詢?nèi)妗? ? 有良好的用戶權(quán)限和密碼限制，防止人為的破壞與盜竊數(shù)據(jù)資源。 系統(tǒng)的局限性 寢室內(nèi)多個學(xué)生的相同數(shù)據(jù)會產(chǎn)生冗余 在寢室內(nèi)所住 的學(xué)生信息中，有很多信息可能是相同的，如果把這些信息的冗余去除，可以增加系統(tǒng)處理的效率。 畢業(yè)設(shè)計心得 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的 好壞 將直接影響系統(tǒng)的運行效率和系統(tǒng)開發(fā)進度，合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計不僅可以提高系統(tǒng)運行的效率，也有利于保證數(shù)據(jù)的完整性和一致性，還有利于系統(tǒng)的實現(xiàn)，通過設(shè)計學(xué)生公寓管理系統(tǒng)，我對設(shè)計和使用數(shù)據(jù)庫，得到以下經(jīng)驗 ： 數(shù)據(jù)的一致性和完整性：為了防止用戶的 誤輸入操作而造成數(shù)據(jù)的錯誤，可以使用規(guī)則（ Rule）和約束（ Check），但是不必要的規(guī)則和約束也會增加系統(tǒng)的不必要開銷。 數(shù)據(jù)類型的選擇 ：數(shù)據(jù)類型學(xué)則 對于數(shù)據(jù)庫的性能和操作具有很大的影響。在 Delphi中使用 控件 DateTimePicker時，表中相對應(yīng)的必須是 date型的數(shù)據(jù)，否則就會出錯，因此對數(shù)據(jù)類型的定義很重要。由于使用了該控件， 在日期 比較、查詢操作上非常簡單。 數(shù)據(jù)類型的轉(zhuǎn)換： 在 Delphi 中，在查詢中， 用到 的是 SQL 語句，由于 SQL語句只 識別 字符串，所以在查詢時，需要把各種類型的數(shù)據(jù)轉(zhuǎn)換成字符串型，當結(jié)果返回時，也 需 要轉(zhuǎn)換數(shù)據(jù)類型，由于 Delphi 沒有自動轉(zhuǎn)換 機制 ，所以都要依靠 Delphi 提供的函數(shù)來實現(xiàn)。（比如 inttostr()） 。 在 Delphi 中，實現(xiàn) SQL語句除了要注意數(shù)據(jù)類型轉(zhuǎn)換時，格式也十分重要，如果格式不對，則不能執(zhí)行。由于這次畢業(yè)設(shè)計中，需要大量使用 SQL 語句，因此對 SQL 語句也有了很多的了解，對以前所學(xué)的知識鞏固了許多。 畢業(yè)設(shè)計總結(jié) 在這個幾個月的畢業(yè)設(shè)計中，我查閱了許多相關(guān)的資料和文獻，在這個過程中接觸了很多新的東西，獲取 了很多新的信息。由于要獨立地進行整個系統(tǒng)的設(shè)計，需要自己去分析架構(gòu)和設(shè)計，提高了自己分析問題和解決問題的能力，在學(xué)習軟件工程以后，有了一次實際的鍛煉。在動手實踐的過程中，要不斷地查 閱資料來實現(xiàn)系統(tǒng)的功能。這次實踐動手能力 和編程能力方面也有很大的提高，對于如何編寫調(diào)試程序有了更深的認識。 實踐是對理論學(xué)習的一個很好的鞏固，并且加 深了對理論知識的認識，學(xué)到了平時很多 書 上 所不能得到的實踐經(jīng)驗 ， 由于實踐中碰到許多以前從未碰到過的問題，需要很多新的知識，并且 促進 對理論知識的學(xué)習。通過這個畢業(yè)設(shè)計，令我收獲頗豐。 第 32 頁 參考文獻 [1]薩師煊，王珊 。數(shù)據(jù)庫系統(tǒng)概論（第三版） [M]。 高等教育出版社， [2]高守傳。精通 SQL— 結(jié)構(gòu)化查詢語言祥解 [M]。人民郵電出版社， [3]張海藩。軟件工程（第二版） [M]。人民郵電出版社， [4]牛漢民。 Delphi7 開發(fā)基礎(chǔ) 教程 [M]?？茖W(xué)出版社， [5]宋坤， 鄒天思。 Delphi 數(shù)據(jù)庫開發(fā)完全手冊 [M]。人民郵電出版社，