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