【正文】 悅是無法用言語可以表達的，它讓我感受到了真正學到知識的那種充實感。還進行完善了的一點就是當管理員輸入錯誤的用戶名時，系統能夠對其進行提示‘本用戶信息不王子芹：高校學生宿舍管理系統35存在，注意核對’。當樓房管理模塊中新增一棟住宿樓后，員工管理模塊的樓房號會自動添加一棟。經過一段時間的系統測試之后，我們的宿舍管理系統在整體上完善了許多，在設計上也更加具有人性化了，那么對于用戶來說會更加容易適應本系統的各項操作。特別是對書中的一些典型實例，認真學習它的編程思想，吸取它的編程技巧，弄懂程序中每句話的含義?？傊?，通過幾個月的畢業(yè)設計，讓我感受了軟件開發(fā)的整個過程。對我們進行全面、具體的指導，并給了我們許多寶貴的意見。總之，在老師們盡心盡力的幫助下，我們的畢業(yè)設計才能如期順利完成，并且，我們的導師就我的論文的編排和書寫格式也為我提出了不少的修改意見。 then begin MessageBox(handle,39。,MB_OK+MB_ICONWARNING)。if =39。,39。 end。請選擇用戶權限!39。 。 //插入一條空白記錄 (39。UserId39。).AsString:=trim(ComboBox1.王子芹：高校學生宿舍管理系統41Text)。 :=39。 MessageBox(handle,39。,MB_OK+MB_ICONWARNING)。 :=39。end。end。deletePower:string。輸入所刪用戶名39。 end。輸入所刪用戶密碼39。 end。輸入所刪用戶權限!39。 end。 select * from LoginIn where username = 39。39。(39。++39。)。該用戶信息不存在,請確認后再輸入!39。 。39。deletePass:= 。,mtconfirmation,[mbYes,mbNo],0)=mryes thenbegin:=39。+deleteName+39。39。39。+deletepower+39。 。39。!39。39。end。密碼修改源代碼procedure (Sender: TObject)。請輸入用戶名 39。 end。請輸入原始密碼 39。 end。請輸入新密碼 39。 end。請輸入確認密碼 39。 end。 :=39。 。select * from LoginIn where sername=39。39。anduserId=39。39。 open。 :=39。 :=39。 end else begin edit。 post。 :=39。 :=39。 end。procedure (Sender: TObject)。公寓管理模塊源代碼procedure (Sender: TObject)。樓房編號不能為空 ！39。王子芹：高校學生宿舍管理系統46 。 。39。39。該樓房信息已經存入數據庫!39。 :=39。 :=39。 :=39。 end。select* from house 39。 (39。hou_Num39。).AsString:=trim()。 (39。請確認輸入的數據無誤！39。)。39。39。操作已取消，請重新輸入39。39。39。39。beginclose。39。 exit。 then begin messagedlg(39。 end。請為該寢室確定住宿費用！ 39。 if =39。,mtinformation,[mbok],0)。 。39。39。該寢室號已錄入!39。 。 。 。).AsString:=trim()。 (39。Dor_sex39。).AsString:=trim()。 。 :=39。 :=39。 :=39。beginclose。 。 。begin王子芹：高校學生宿舍管理系統50with dobeginclose。)。 for i:=0 to RecordCount1 do begin (fieldbyname(39。 end。end。39。 。39。 。39。 。請為員工選擇所管理的樓房，請輸入！39。 end。員工姓名不能為空，請輸入！39。 end。員工號不能為空，請輸入！ 39。 procedure (Sender: TObject)。沒有記錄，請管理員錄入數據信息39。).AsString)。(39。end.//通過查詢自動獲得相應的公寓樓房數procedure (Sender: TObject)。select * from dorm order by dor_id asc39。procedure (Sender: TObject)。end。 :=39。 :=39。宿舍信息插入完畢！39。Dor_Des39。 (39。).AsString:=trim()。Dor_Num39。 (39。select * from dorm39。 end。警告39。 。39。select Dor_Id from Dorm where Dor_Id=39。 end。 then begin messagedlg(39。 exit。39。,mtinformation,[mbok],0)。王子芹：高校學生宿舍管理系統48if =39。請輸入寢室號！ 39。end.procedure (Sender: TObject)。 end。39。39。 。39。39。39。 ShowMessage(39。).AsString:=trim()。hou_Peo39。 (39。).AsString:=trim()。 。 。 。 :=39。 :=39。警告39。 。39。select hou_Id from house where hou_Id=39。end。警告39。39。end。end。 :=39。 :=39。新密碼修改成功,請記牢!39。UserId39。 :=39。 :=39。對不起,您所輸入的用戶名或密碼錯誤,請重新輸39。39。39。39。39。 。 :=39。請重新輸入 ,新密碼與確認密碼不一致!39。 。39。 。39。 。39。 。39。beginclose。39。endelse begin cancel。用戶信息已刪除!39。39。39。39。+deletepass+39。39。39。With do王子芹：高校學生宿舍管理系統43If MessageDlg(39。 end。39。警告39。 。39。39。and39。39。 。 。39。 。39。 。39。vardeleteName:string。beginclose。 end。 :=39。,39。 :=39。確定要添加嗎 ？!39。 (39。).AsString:=trim()。 end。39。39。 。 then begin MessageBox(handle,39。 exit。,39。beginif =39。畢業(yè)設計能夠順利完成，我非常感謝緱老師不辭辛苦的對我們的幫助，同時也感謝我的同組同學蘇新勇，在該系統的完成過程他也給我提供了不少的意見。王子芹：高校學生宿舍管理系統37致 謝轉眼間，三個多月的畢業(yè)設計就要結束了，在參加設計的這段時間里，能夠完成這次畢業(yè)設計，除了我自己的努力外，老師和同學們也給予了我非常大的的幫助。認真聽老師對設計要求的講解，根據任務書的要求將整個系統分為幾個模塊，每個模塊具體又要實現哪些功能，然后就逐個模塊去一一詳細設計，設計的過程中不時地翻閱資料，用一些巧妙的技術來優(yōu)化程序。我們這次畢業(yè)設計的任務是建立一個學生宿舍管理系統，它用到的開發(fā)工具是 Delphi 語言，SQL Server 數據庫。比如在查詢模塊、報表管理模塊里面如果按學號進行查詢，剛開始只是判斷輸入的學號不能為空。在真正系統測試時才發(fā)現，如果我們學校新建一棟宿舍樓，并且為其分配管理人員，在具體添加時就不可能為該管理人員找到其應該管理的樓房號，因為以前添加是靜態(tài)的，并沒有將新建宿舍樓房加入進去。在測試之初，由于數據庫中的數據都是剛開始編程時隨便輸入的，一點實用性也沒有，所以我們又把數據庫中的數據全部清理了一下，輸入了一些真實可用的數據，以便完成后面的數據測試。在編程過程中雖然遇到了不少困難，但在老師、同學及自己的反復研究下，最后問題都得到了解決。剛開始每次都犯上述錯誤，將 6 號樓中帶 5 的宿舍也給查出來了，最后我采用了 SQL 中的模糊查詢，模式匹配過程中，常規(guī)字符必須與字符串中指定的字符完全匹配。最后我在看書時發(fā)現 Delphi 中新的數據訪問組件都采用了ADO 技術，可以不通過 BDE 就能使用現行的數據控件如 TDBGrid 和TDBEdit 對數據進行直接訪問，因此縮短了 ADO/OLEDB 的運行時間，更重要的是，使用 ADO 可以避免用戶在使用程序之前手動設置 BDE和 ODBC 屬性，以免產生不必要的錯誤。其中最重要的兩步就是中間的兩步。設計思想：能夠將某宿舍的詳細學生住宿情況打印出來。當因為某些原因需要查詢某學生信息時，可以調用該功能模塊來實現。在編輯框中輸入已交清或未交清兩種情況的一種，點擊查詢按鈕，那么所需信息就會詳細的顯示在窗體表中。報表設計時可以點擊選中TQuickRep 控件快捷菜單的 Preview，即可在設計階段預覽打印結果。具體實現：(1).首先通過 TADOQuery 控件實現數據庫和該窗體的關聯，再通過TDataSourse 實現學生注冊表 (Enroll)和 TDBGrid 的關聯，把學生交費信息顯示在列表中。由于該模塊中各小模塊實現的都是報表管理，所以宿舍交費情況報表管理、學生信息報表、員工信息報表、學生物品出入報表、住宿信息報表、來訪信息報表這六個小功能模塊只是在功能思想上不太一樣，其具體設計實現時操作基本上是差不多的，因此這里只是詳細介紹宿舍交費情況的具體設計實現，其他模塊僅介紹其設計思想。(3).在住宿統計的實現上，我們使用的 SQL 集函數 SUM（）來實現的。模糊查詢的在本部分的基本原理就是：我們在剛開始建庫時考慮到管理方便和減少冗余，在對學生進行宿舍號登記時是這么描述的如：6502，將其樓房號和宿舍號放一個字段中，并沒有將其分開操作。具體實現：(1).首先通過 TADOQuery 控件實現數據庫和該功能模塊的關聯，再通過 TDatasourse 實現寢室表 (Dorm)和 TDBGrid 顯示表格的關聯，把宿舍信息顯示在下面的表格中。設計思想：在輸入寢室號時可以把該宿舍所住的所有學生的信息都統計出來，方便詳細了解某宿舍的學生住宿情況。上圖所顯示的是所有學生信息情況。當然像按學號來查詢的話也許用不到該控件，但要是按班級查詢或姓名等其他查詢，這個控件是非常有用的。 Y 圖 信息查詢流程圖輸入學號(姓名、班級、宿舍、 )判斷條件？顯示查詢結果開始結束N王子芹：高校學生宿舍管理系統26圖 信息查詢界面設計思想：按學號查詢是具體的查詢某學生的詳細信息，包括學生的基本信息及其住宿情況。通過動態(tài)添加可以實現當樓房表中每增加一棟樓，在員工窗體的‘樓房號’的下拉列表框中的會王子芹：高校學生宿舍管理系統25自動添加一棟,實現兩個表之間的動態(tài)關聯。該模塊是有系統管理員來完成的，普通用戶沒有使用該項功能的權限。學生在學期注冊時，需要根據該生所住的宿舍號來查看其應交的住宿費用。王子芹：高校學生宿舍管理系統232. 宿舍管理圖 宿舍管理界面設計思想：宿舍管理是對每棟樓房所有宿舍的一個詳細情況登記，每個宿舍在數據庫里面的信息都是就靜態(tài)的只有里面的實住人數是動態(tài)增加的，當某個宿舍增加或減少一個學生實住人數會自動加 1 或減 1，實現動態(tài)增減。具體實現：(1).由于需要和數據庫表(樓房表 House)相關聯,所以也添加了一個TADOQuery 控件實現兩者之間的關聯。(2).其次為了確保該功能的完整性，在點擊確認之后，需要判斷一下所有的編輯框中的輸入都不能為空。(3).在刪除用戶時，還需要通過編碼判斷一下系統管理人員所要刪除的用戶到底存不存在。當然如果某管理人員離職，那么他將不能再登錄該系統，因此管理員有權收回授予其的管理權