【正文】 end。//基本資料的修改procedure (Sender: TObject)。begin(TMPWDForm,MPWDForm)。end。//員工資料的修改procedure (Sender: TObject)。beginshowMitem(2)。end。//來訪登記修改procedure (Sender: TObject)。beginshowMitem(4)。end。//修改個人財物菜單選項procedure (Sender: TObject)。beginshowMitem(0)。end。begin(TModifyForm,ModifyForm)。end。//在主界面中顯示時間procedure (Sender: TObject)。begin(TEnrolForm,EnrolForm)。end。//快捷按鈕,學生離校修改procedure (Sender: TObject)。begin(TPLForm,PLForm)。end。//來訪登記procedure (Sender: TObject)。begin(TQueryForm,QueryForm)。end。//toolbutton1 學生情況錄入procedure (Sender: TObject)。begin。//關閉系統(tǒng)procedure (Sender: TObject。begin(TAboutform,aboutform)。end。//親人來訪菜單項procedure (Sender: TObject)。begin(TPLForm,PLForm)。end。//出樓登記procedure (Sender: TObject)。begin(TGRZZForm,GRZZForm)。end。//注冊菜單項procedure (Sender: TObject)。begin(TinputForm,inputform)。end。begin(TQueryForm,QueryForm)。end。begin(TQueryForm,QueryForm)。end。begin(TQueryForm,QueryForm)。end。begin(TQueryForm,QueryForm)。end。begin(TQueryForm,QueryForm)。end。//程序關閉procedure (Sender: TObject)。begin(TAddUserForm,AddUserForm)。end。//錄入員工信息procedure (Sender: TObject)。begin(Tsethouse,sethouse)。end。3. 主窗體代碼實現(xiàn)：// 設置樓房具體情況procedure (Sender: TObject)。QueryPd(StringGrid2,Qstr1)。elseQstr1:=39。39。+Trim()+39。39。thenQstr1:=39。if trim()39。2. 模糊查詢與精確查詢代碼實現(xiàn)：beginQstr1:=39。 。請輸入要查詢人的姓名!!!!39。 。 then begin (TShowRForm,ShowRForm)。參考文獻[1]薩師煊,王珊. 數(shù)據(jù)庫系統(tǒng)概論（第四版）[M].北京: 高等教育出版社,[2]陳樹平. Access數(shù)據(jù)庫教程[M].上海: 上海交通大學出版社,[3]張海藩. 軟件工程（第五版）[M].北京: 清華大學齡前出版社,[4]王春紅. Delphi7程序設計[M].北京: 清華大學出版社,北京交通大學出版社,[5]宋坤,鄒天思. Delphi數(shù)據(jù)庫開發(fā)完全手冊[M].北京: 人民郵電出版社,附 錄1 1. 確保公寓的安全性代碼實現(xiàn):beginif 39。感謝所有幫助過我的同學。感謝班主任周敏老師在我大學里對我的關系和照顧。致 謝首先感謝我的指導教師何昭青老師，她一直監(jiān)督我工作的進度，以及對設計過程中給予悉心的指導，提出寶貴的意見，在論文的寫作過程中，何老師付出了辛勤的勞動，給出了高屋建瓴的意見。實踐是對理論學習的一個很好的鞏固，并且加深了對理論知識的認識，學到了平時很多書上所不能得到的實踐經(jīng)驗，由于實踐中碰到許多以前從未碰到過的問題，需要很多新的知識，并且促進對理論知識的學習。在動手實踐的過程中，要不斷地查閱資料來實現(xiàn)系統(tǒng)的功能。 畢業(yè)設計總結在這個幾個月的畢業(yè)設計中，我查閱了許多相關的資料和文獻，在這個過程中接觸了很多新的東西，獲取了很多新的信息。在Delphi中，實現(xiàn)SQL語句除了要注意數(shù)據(jù)類型轉換時，格式也十分重要，如果格式不對，則不能執(zhí)行。數(shù)據(jù)類型的轉換：在Delphi中，在查詢中，用到的是SQL語句，由于SQL語句只識別字符串，所以在查詢時，需要把各種類型的數(shù)據(jù)轉換成字符串型，當結果返回時，也需要轉換數(shù)據(jù)類型，由于Delphi沒有自動轉換機制，所以都要依靠Delphi提供的函數(shù)來實現(xiàn)。在Delphi中使用控件 DateTimePicker時，表中相對應的必須是date型的數(shù)據(jù)，否則就會出錯，因此對數(shù)據(jù)類型的定義很重要。 畢業(yè)設計心得 數(shù)據(jù)庫結構設計的好壞將直接影響系統(tǒng)的運行效率和系統(tǒng)開發(fā)進度，合理的數(shù)據(jù)庫結構設計不僅可以提高系統(tǒng)運行的效率，也有利于保證數(shù)據(jù)的完整性和一致性，還有利于系統(tǒng)的實現(xiàn)，通過設計學生公寓管理系統(tǒng)，我對設計和使用數(shù)據(jù)庫，得到以下經(jīng)驗：數(shù)據(jù)的一致性和完整性：為了防止用戶的誤輸入操作而造成數(shù)據(jù)的錯誤，可以使用規(guī)則（Rule）和約束（Check），但是不必要的規(guī)則和約束也會增加系統(tǒng)的不必要開銷。4. 有良好的用戶權限和密碼限制，防止人為的破壞與盜竊數(shù)據(jù)資源。2. 友好的操作界面，操作簡單，易用性好。第6章 學生公寓管理系統(tǒng)設計總結學生公寓管理系統(tǒng)設計已經(jīng)完成，本章將對幾個月來，在設計學生公寓管理系統(tǒng)進行總結，并且對在設計本系統(tǒng)過程中遇到的困難和所體會到的東西進行總結。)。 end else showmessage(39。)。 showmessage(39。是否要把用戶寫入庫中39。).AsString:=。 FieldByName(39。密碼39。).AsString:=。,Trim(),[lopartialkey]) And submit then begin FieldByName(39。 if Not Locate(39。 end else begin (TPassWordForm,PassWordForm)。)。 then begin showmessage(39。 if trim()=39。)。 (39。begin//添加新的用戶名到數(shù)據(jù)庫中 With Do begin Close。管理員可以對操作員進行管理，這個窗體在用戶權限為“操作員”時，是不可以用的。當用戶點擊“確定”按鈕時，程序會自動檢測原密碼是否準確，輸入2遍的新密碼是否一致，而且程序為保障安全，不允許新密碼為空，以上任何一條不滿足，都將導致修改密碼不成功。4). 操作員用戶只能修改自身的用戶名和密碼。 系統(tǒng)管理和維護模塊設計及實現(xiàn)1. 系統(tǒng)管理模塊功能1). 根據(jù)用戶類型的不同，系統(tǒng)管理模塊的功能也不同2). 管理員用戶可以創(chuàng)建、刪除操作員用戶，也可以修改其權限。當來訪人離開公寓時，用戶只需點擊訪問結束，程序會自動將訪問結束時間添加到數(shù)據(jù)庫中去。在這個窗體中，來訪時間，結束時間，值班人都是只讀的，不可以修改，這樣是為了保證學生公寓的安全系數(shù)，來訪時間和值班人在添加來訪記錄時，程序會根據(jù)系統(tǒng)時間和在登錄時記下的用戶名自動添加到數(shù)據(jù)庫中，用戶不能修改，結束時間則在來訪人員離開公寓時，由用戶點擊按鈕便可以把系統(tǒng)時間添加到結束時間中。 end。)。 endelse begin showmessage(39。 。39。右邊的SpeedButton按鈕運行時，程序從數(shù)據(jù)庫中提取姓名、性別和家庭住址等信息，對應部分代碼如下：procedure (Sender: TObject)。本程序為了保護公寓內的安全，以免有人混進公寓，所以對來訪人員有著嚴格的審查制度。訪問時間的默認值為系統(tǒng)當前時間。該窗體也是為了保證公寓的安全，對出樓的貨物進行嚴格的審核，只有攜物人員出示有效的證件才能將貨物帶出公寓，并要對攜物人員的姓名、專業(yè)、證件、出樓時間等基本信息進行登記。對公寓來說安全性是非常重要的，用戶必須對來訪人員進行嚴格審查，通過此窗體可以實現(xiàn)對來訪者進行過濾，只有被訪人員在數(shù)據(jù)庫中才允許來訪人員進入公寓。4). 查找來訪記錄。2). 修改來訪信息。end。備注39。).AsString。:=fieldbyname(39。箱子39。).AsString。:=fieldbyname(39。桌子號39。).AsString。:=fieldbyname(39。鑰鎖發(fā)否39。).AsString。:=fieldbyname(39。寢室號39。).AsString。:=fieldbyname(39。學號39。open。select * from worth39。 學生財產(chǎn)登記窗體該窗體采用程序啟動時建立連接。該窗體可以對學生的個人財物進行統(tǒng)一的管理，這樣可以方便用戶對學生的入住進行有序的安 排，也避免了學生之間因為財物而引起的爭吵。end。beginfor i:=0 to (sender as Tbobox). dobegin (sender as Tbobox).ItemIndex:=i。str:string)。在bobox中的位置。end。 end。 (sender as TDateTimePicker).SetFocus。請輸入數(shù)據(jù)39。 then begin result:=false。if (sender is TDatetimePicker) then //判斷是否為TDateTimePicker if trim(datetimetostr((sender as TDateTimePicker).DateTime))=39。 exit。)。 showmessage(39。39。 end。 result:=false。請輸入數(shù)據(jù)39。39。若相同再判斷是不是空的，實現(xiàn)代碼如下：function IsEmpty1(Sender:Tobject):boolean。在用戶修改學生所住寢室信息的