【正文】 名正確就可以進行刪除，測試時才發(fā)現(xiàn)也許系統(tǒng)中存在重名的用戶名，所以不能只憑借用戶名、用戶密碼、用戶權(quán)限中的一個或兩個正確就可以將該用戶刪除，必須要三者都對應起來才能完成用戶的刪除。還進行完善了的一點就是當管理員輸入錯誤的用戶名時，系統(tǒng)能夠?qū)ζ溥M行提示‘本用戶信息不存在，注意核對’ 。再有一點就是，在員工信息錄入窗口中有一個字段‘樓房號’，在開始的系統(tǒng)實現(xiàn)時，我是將學校所有的住宿樓都添在了 ‘樓房號’的下拉列表框的 Item 屬性中，是固定的。在真正系統(tǒng)測試時才發(fā)現(xiàn)，如果我們學校新建一棟宿舍樓，并且為其分配管理人員，在具體添加時就不可能為該管理人員找到其應該管理的樓房號，因為以前添加是靜態(tài)的，并沒有將新建宿舍樓房加入進去。所以我將這一部分進行了重新編程，實現(xiàn)了動態(tài)添加。當樓房管理模塊中新增一棟住宿樓后，員工管理模塊的樓房號會自動添加一棟。當然在系統(tǒng)測試階段，我還完善了許多細節(jié)性的東西。比如在查詢模塊、報表管理模塊里面如果按學號進行查詢，剛開始只是判斷輸入的學號不能為空。后來才發(fā)現(xiàn)在用戶輸入學號后，系統(tǒng)應該還能夠進行判. . . .. . 學習好幫手斷該學號到底存不存在，如果沒有就應該提示用戶輸入了不存在的學號，應該重新進行輸入。經(jīng)過一段時間的系統(tǒng)測試之后，我們的宿舍管理系統(tǒng)在整體上完善了許多，在設計上也更加具有人性化了，那么對于用戶來說會更加容易適應本系統(tǒng)的各項操作。第 五 章 總 結(jié)歷時一個學期的畢業(yè)設計現(xiàn)在已經(jīng)接近尾聲了，回想起這一個學期的日子，感覺收獲頗多。我們這次畢業(yè)設計的任務是建立一個學生宿舍管理系統(tǒng)，它用到的開發(fā)工具是 Delphi 語言，SQL Server 數(shù)據(jù)庫。在設計的開始階段為了盡快熟悉 Delphi 語言，我詳細翻閱有關該方面的資料，對書中的基本理論知識逐章逐節(jié)地分析，同時還上機操作來加深理解。特別是對書中的一些典型實例，認真學習它的編程思想，吸取它的編程技巧，弄懂程序中每句話的含義。在對所要應用的技術有了一個基本認識之后，就開始構(gòu)思自己的系統(tǒng)設計。認真聽老師對設計要求的講解，根據(jù)任務書的要求將整個系統(tǒng)分為幾個模塊，每個模塊具體又要實現(xiàn)哪些功能，然后就逐個模塊去一一詳細設計，設計的過程中不時地翻閱資料，用一些巧妙的技術來優(yōu)化程序。程序代碼完成之后，要. . . .. . 學習好幫手進行運行調(diào)試，剛開始由于沒有調(diào)試經(jīng)驗和方法效率很低，最后在老師和同學的幫助下，終于順利完成了，自己也從中學到了不少東西?？傊ㄟ^幾個月的畢業(yè)設計，讓我感受了軟件開發(fā)的整個過程。畢業(yè)設計不僅是對我在大學所學知識的一個綜合運用，也是一次增長知識和經(jīng)驗的好機會，同時也使我學會了許多處理、解決問題的方法，大大提高了自己的動手能力，為即將走上工作崗位打下了良好的基礎。致 謝轉(zhuǎn)眼間，三個多月的畢業(yè)設計就要結(jié)束了，在參加設計的這段時間里，能夠完成這次畢業(yè)設計，除了我自己的努力外，老師和同學們也給予了我非常大的的幫助。首先要感謝我們的指導老師緱西梅老師，在初次見面時，緱老師就耐心的為我們分析該系統(tǒng)，告訴我們目前宿舍管理上的種種弊端，讓我們在就具體設計該系統(tǒng)時盡可能的考慮全面，使我們對整個設計有了一個初步的認識。對我們進行全面、具體的指導，并給了我們許多寶貴的意見。在設計剛開始時，對許多東西都是陌生的，Delphi 語言之前都沒有接觸過，都是我們的指導老師給予了我耐心的指導，使我對陌生的開發(fā)環(huán)境產(chǎn)生了濃厚的學習興趣。畢業(yè)設計能夠順利完成，我非常感謝緱老師不辭辛苦的對我們的幫. . . .. . 學習好幫手助，同時也感謝我的同組同學蘇新勇，在該系統(tǒng)的完成過程他也給我提供了不少的意見。同時也感謝機房的老師給我們提供了一個好的環(huán)境，休息日也照常開放，每次關門時，老師都不厭其煩地等我們到最后才走?？傊?，在老師們盡心盡力的幫助下，我們的畢業(yè)設計才能如期順利完成，并且，我們的導師就我的論文的編排和書寫格式也為我提出了不少的修改意見。在此，我衷心的感激他們，真誠的向他們說一聲“謝謝”!參考文獻[1]薩師煊,［M］.北京：高等教育出版社，1983[2] Server 2022 數(shù)據(jù)庫開發(fā)技術與工程實踐［M］.北京：人民郵電出版社，2022[3]侯太平, 數(shù)據(jù)庫編程［M］.北京：清華大學出版社，[4] Server2022 中文版入門提高［M］.北京：清華大學出版社，2022　　[5]王華. Delphi 5 編程實例與技巧［M］.北京：機械工業(yè)出版社，2022[6]龍勁松,王俞. Delphi 6 開發(fā)人員指南［M］.北京：機械工業(yè)出版社，2022[7]徐謖, 應用與開發(fā)安全教程［M］.北京：清華大學出版社，[8]王業(yè)龍,范朝輝, 軟件工程案例精解［M］. 北京：電子工業(yè)出版社，[9]黃曉敏, 程序設計基礎［M］.北京：清華大學出版社，[10]［M］.北京：機械工業(yè)出版社，[11](美)Marco 從入門到精通［M］. 北京：電子工業(yè)出版社，[12](美)Clay 程序調(diào)試參考手冊［M］. 北京：中國電力出版社，. . . .. . 學習好幫手指導教師評語. . . .. . 學習好幫手 指導教師簽名： 2022 年 月 日 附錄 A: 主要源程序高校學生宿舍管理系統(tǒng)源程序用戶管理模塊源代碼procedure (Sender: TObject)。beginif =39。39。 then begin MessageBox(handle,39。請輸入用戶名!39。,39。39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。if =39。39。 then. . . .. . 學習好幫手 begin MessageBox(handle,39。請輸入用戶密碼!39。,39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。 if =39。39。 then begin MessageBox(handle,39。請選擇用戶權(quán)限!39。,39。39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。With dobegin。 //插入一條空白記錄 (39。UserName39。).AsString:=trim()。(39。UserId39。).AsString:=trim()。 (39。UserPower39。).AsString:=trim(ComboBox1.Text)。If MessageDlg(39。確定要添加嗎 ？!39。,mtconfirmation,[mbYes,mbNo],0)=mrYes then begin post。 :=39。39。 :=39。39。 MessageBox(handle,39。用戶信加!39。,39。!39。,MB_OK+MB_ICONWARNING)。 end else begin cancel。 :=39。39。 :=39。39。 end。 end 。end。. . . .. . 學習好幫手procedure (Sender: TObject)。beginclose。end。end。procedure (Sender: TObject)。vardeleteName:string。deletePass:string。deletePower:string。beginif =39。39。 then begin MessageBox(handle,39。輸入所刪用戶名39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。if =39。39。 then begin MessageBox(handle,39。輸入所刪用戶密碼39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。if =39。39。 then beginMessageBox(handle,39。輸入所刪用戶權(quán)限!39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。 。 。(39。 select * from LoginIn where username = . . . .. . 學習好幫手39。39。39。+ +39。39。39。and39。)。(39。userId=39。39。39。++39。39。39。39。)。 。 。if then begin MessageBox(handle,39。該用戶信息不存在,請確認后再輸入!39。,39。警告39。,MB_OK+MB_ICONWARNING)。 。 :=39。39。 :=39。39。 exit。 end。deleteName:= 。deletePass:= 。deletePower:= 。With doIf MessageDlg(39。確定刪除？!39。,mtconfirmation,[mbYes,mbNo],0)=mryes thenbegin:=39。delete from loginIn where (username=39。39。39。+deleteName+39。39。39。)and(useriD=39。39。39。+deletepass+39。39。39。)and(userpower=39。39。39。+deletepower+39。39。39。)39。 。:=39。39。:=39。39。MessageBox(handle,39。用戶信息已刪除!39。,39。!39。,MB_OK+MB_ICONWARNING)。endelse begin cancel。 :=39。39。 :=39。39。 end 。end。. . . .. . 學習好幫手procedure (Sender: TObject)。beginclose。end。密碼修改源代碼procedure (Sender: TObject)。beginif =39。39。 then begin messagedlg(39。請輸入用戶名 39。,mtwarning,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。請輸入原始密碼 39。,mtwarning,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。請輸入新密碼 39。,mtwarning,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。請輸入確認密碼 39。,mtwarning,[mbok],0)。 。 exit。 end。//判斷兩次輸入的新密碼是否相同if trim()trim() thenbegin. . . .. . 學習好幫手messagedlg(39。請重新輸入 ,新密碼與確認密碼不一致!39。,mtinformation,[mbok],0)。 :=39。39。 :=39。39。 。endelsebeginwith d