【正文】 sString:=trim()。fieldbyname(39。寢室號(hào)39。).AsString:=trim()。fieldbyname(39。入學(xué)日期39。).AsDateTime:=。fieldbyname(39。出生年月39。).AsDateTime:=。fieldbyname(39。畢業(yè)學(xué)校39。).AsString:=。fieldbyname(39。政治面貌39。).AsString:=。 fieldbyname(39。聯(lián)系方式39。).AsString:=。 fieldbyname(39。家庭地址39。).AsString:=。 fieldbyname(39。狀態(tài)39。).AsString:=39。入學(xué)39。 fieldbyname(39。備注39。).AsVariant:=。b．點(diǎn)擊確認(rèn)后會(huì)出現(xiàn)詢(xún)問(wèn)窗口，其關(guān)鍵代碼如下 if messagedlg(39。請(qǐng)確認(rèn)輸入的數(shù)據(jù)無(wú)誤，然后寫(xiě)入數(shù)據(jù)庫(kù)！39。,mtconfirmation,[mbYes,mbNO],0)=mryes then begin post。 ChangeRenNum()。 end else begin showmessage(39。操作已取消，請(qǐng)重新輸入39。)。 cancel。 exit。 end。對(duì)應(yīng)的寢室實(shí)住人數(shù)自動(dòng)增加{$R *.dfm} procedure ChangeRenNum(s:string)。beginwith dobeginclose。(39。update tbpd set 實(shí)住人數(shù)=實(shí)住人數(shù)+1 where 寢室號(hào)=39。39。39。+s+39。39。39。39。)。ExecSQL。end。end。（4） 。 基本情況錄入點(diǎn)擊確認(rèn)后，系統(tǒng)提示檢查是否正確，用戶(hù)確認(rèn)以后系統(tǒng)將所填寫(xiě)的詳細(xì)內(nèi)容存入數(shù)據(jù)庫(kù)。 用戶(hù)確認(rèn)數(shù)據(jù)是否有誤如果用戶(hù)選擇取消則系統(tǒng)提示“操作已取消,請(qǐng)重新錄入”。如果重復(fù)錄入，系統(tǒng)將會(huì)顯示“該記錄已經(jīng)存在”。 用戶(hù)確認(rèn)結(jié)果（1）實(shí)現(xiàn)目標(biāo)學(xué)生離校后宿舍重新分配當(dāng)某屆學(xué)生學(xué)滿四年離開(kāi)校園時(shí)，宿舍就即將重新分派，宿舍內(nèi)的共有財(cái)務(wù)損毀狀況需要一個(gè)統(tǒng)計(jì)集中。這時(shí)候，學(xué)生離校處理就顯得非常必要了。這個(gè)離校處理功能流程是先查詢(xún)到具體學(xué)生再根據(jù)實(shí)際情況輸入公共財(cái)物的具體使用和損耗情況。以便于學(xué)校統(tǒng)一處理。（2）實(shí)現(xiàn)過(guò)程先對(duì)離校學(xué)生進(jìn)行查詢(xún)后，再進(jìn)行數(shù)據(jù)的處理（3）關(guān)鍵代碼及其說(shuō)明//通過(guò)相關(guān)的學(xué)號(hào)。找到哪學(xué)生。因?yàn)閷W(xué)號(hào)為唯一。所以學(xué)號(hào)是必要條件。//當(dāng)沒(méi)有學(xué)號(hào)的同學(xué)。不能辦理相關(guān)的手續(xù)。with do begin close。 。 if 39。39。 then (39。select * from tborder where 學(xué)號(hào)=39。39。39。+trim()+39。39。39。39。) else begin showmessage(39。不能為空。請(qǐng)輸入相關(guān)的數(shù)據(jù)!39。)。 。 showmessage(39。沒(méi)有該記錄！39。)。 end。end。 procedure (Sender: TObject)。begin//如果當(dāng)前庫(kù)中有些記錄就可以修改他的有狀態(tài)是入學(xué)還是離校if flags then begin 。 。 (39。update tborder set 狀態(tài)=39。39。39。+39。離校39。+39。39。39。,備注=39。39。39。++39。39。39。 where 學(xué)號(hào)=39。39。39。++39。39。39。39。)。 if messagedlg(39。請(qǐng)確認(rèn)輸入的數(shù)據(jù)的有效性39。,mtconfirmation,[mbYes,mbNo],1)=mryes then else showmessage(39。操作取消39。)。 end。end。(4)。 離校處理（1）實(shí)現(xiàn)目標(biāo)繳納住宿費(fèi)用住宿學(xué)生每學(xué)期報(bào)到時(shí)需要繳納住宿費(fèi)用（一般和學(xué)費(fèi)一起），因此需要進(jìn)行住宿注冊(cè)，以便于確認(rèn)宿舍管理的財(cái)務(wù)收入情況和宿舍入住情況，以后需要的時(shí)候隨時(shí)都可以調(diào)用。（2）實(shí)現(xiàn)過(guò)程管理員輸入已經(jīng)繳納該學(xué)期住宿費(fèi)用的學(xué)生姓名，學(xué)號(hào)以及寢室號(hào)后進(jìn)行注冊(cè)確認(rèn)，并存入數(shù)據(jù)庫(kù)。（3）關(guān)鍵代碼及其說(shuō)明//先對(duì)比學(xué)號(hào)、姓名和寢室號(hào)來(lái)尋找學(xué)生(39。select * from tborder where 學(xué)號(hào)=39。39。39。+trim()+39。39。39。39。)。(39。 and 姓名=39。39。39。+trim()+39。39。39。39。+39。 and 寢室號(hào)=39。39。39。+trim()+39。39。39。39。 )。 open。 if recordcount0 then//查詢(xún)到學(xué)生后再向?qū)W生注冊(cè)數(shù)據(jù)庫(kù)ADORegiste中添加該學(xué)生的注冊(cè)記錄 begin with do begin close。 。 (39。select * from registe where 學(xué)號(hào)=39。39。39。+trim()+39。39。39。39。)。(39。 and 姓名=39。39。39。+trim()+39。39。39。39。+39。and 寢室號(hào)=39。39。39。+trim()+39。39。39。39。 )。open。 if not of then//輸入學(xué)生注冊(cè)的記錄后，系統(tǒng)顯示注冊(cè)成功，并向數(shù)據(jù)庫(kù)中添加已注冊(cè)記錄。 beginedit。for i:=0 to do beginif trim()=fields[i].FieldName thenbeginfieldbyname(fields[i].FieldName).AsString:=39。已注冊(cè)39。post。 showmessage(39。注冊(cè)成功39。)。（4）。 學(xué)生注冊(cè)學(xué)生在大學(xué)四年中的具體資料經(jīng)常會(huì)發(fā)生變化，因此建立一個(gè)學(xué)生資料修改窗口是十分必要的。例如修改學(xué)生的原始資料，如政治面貌（黨員，團(tuán)員），聯(lián)系方式，家庭住址等內(nèi)容。（1）實(shí)現(xiàn)目標(biāo)啟動(dòng)程序后，調(diào)用“資料修改”，將打開(kāi)“修改數(shù)據(jù)資料”窗口。修改數(shù)據(jù)資料窗口主要實(shí)現(xiàn)：a．學(xué)生資料修改b．個(gè)人財(cái)物修改c．財(cái)物出樓修改d．來(lái)訪登記修改，e．學(xué)生注冊(cè)修改f．員工資料修改 （2）實(shí)現(xiàn)過(guò)程a．添加新窗體，設(shè)置窗體name屬性為T(mén)groupBox，設(shè)置caption屬性為“修改數(shù)據(jù)資料”。b．向窗體中添加控件，并設(shè)置相關(guān)屬性。（1）實(shí)現(xiàn)目標(biāo)用于實(shí)現(xiàn)對(duì)于學(xué)生個(gè)人信息的修改（2）說(shuō)明和“基本情況錄入“窗口一樣，“基本資料修改”窗口一共包括12個(gè)文本框，姓名，學(xué)號(hào)等。經(jīng)常需要修改的有例如政治面貌（黨員，團(tuán)員），聯(lián)系方式，家庭住址，在校情況等內(nèi)容。還包括查詢(xún)到某一學(xué)生后，需要修改其臨近學(xué)號(hào)的學(xué)生的資料是，就可以使用窗口下面的“上一條”，“下一條”等按鈕。（3）關(guān)鍵代碼及其思想介紹//判斷當(dāng)前所有選擇的活動(dòng)頁(yè),記錄移到第一條procedure (Sender: TObject)。begincase of 0:。 //學(xué)生基本情況 1:。 2:。 3:。 4:。 5:。end。end。begin with do //學(xué)生基本情況表 begin close。 。 (39。select * from tborder where 姓名=39。39。39。+username+39。39。39。39。)。 open。 update。 end。（4）。(1)實(shí)現(xiàn)目標(biāo)和實(shí)現(xiàn)過(guò)程實(shí)現(xiàn)對(duì)學(xué)生個(gè)人財(cái)物的修改實(shí)現(xiàn)方法和“學(xué)生資料修改”類(lèi)似。在這個(gè)窗口里面，可以對(duì)桌子，椅子，電腦，箱子，被褥和鑰匙是否發(fā)放等內(nèi)容進(jìn)行修改。 個(gè)人財(cái)物修改（2）關(guān)鍵代碼及其思想介紹//加載個(gè)人財(cái)物表begin with do begin close。 。 (39。select * from worth where 姓名=39。39。39。+username+39。39。39。39。)。//尋找住宿學(xué)生 open。 update。 end。 end。(1)實(shí)現(xiàn)目標(biāo)同樣的還有學(xué)生注冊(cè)修改，主要實(shí)現(xiàn)查詢(xún)修改學(xué)生是否注冊(cè)，住宿費(fèi)是否欠費(fèi)的功能。（2）關(guān)鍵加載代碼begin with do //加載學(xué)生注冊(cè)表（3） 學(xué)生注冊(cè)修改員工資料修改與上面3個(gè)窗口原理相同，這里不再給出。（1）實(shí)現(xiàn)目標(biāo)用于登記來(lái)訪者信息。啟動(dòng)程序后，調(diào)用“出入登陸”下的“來(lái)訪登記”將打開(kāi)“來(lái)訪登記”窗口，可用于實(shí)現(xiàn)登記來(lái)訪者信息的功能。 （2）實(shí)現(xiàn)過(guò)程a．添加新窗體，設(shè)置窗體name屬性為T(mén)visitForm設(shè)置caption屬性為“來(lái)訪登記”。b．向窗體中添加控件，并設(shè)置相關(guān)屬性。（3）關(guān)鍵代碼及設(shè)計(jì)說(shuō)明//先調(diào)用visit數(shù)據(jù)表begin with do begin close。 。 //將來(lái)訪人員基本信息添加到visit表之中 (39。select * from visit39。)。 open。 append。 fieldbyname(39。要訪姓名39。).AsString:=。 fieldbyname(39。來(lái)訪姓名39。).AsString:=。 fieldbyname(39。所屬關(guān)系39。).AsString:=。 fieldbyname(39。來(lái)訪時(shí)間39。).AsDateTime:=。 fieldbyname(39。結(jié)束時(shí)間39。).AsDateTime:=。 fieldbyname(39。值班人39。).AsString:=。 fieldbyname(39。證件名稱(chēng)39。).AsString:=。 fieldbyname(39。備注39。).AsVariant:=。//系統(tǒng)彈出詢(xún)問(wèn)用戶(hù)窗口以確定數(shù)據(jù)是否正確，用戶(hù)確認(rèn)之后顯示插入成功 if messagedlg(39。請(qǐng)確認(rèn)數(shù)據(jù)的無(wú)誤39。,mtconfirmation,[mbYes,mbNo],0)=mryes then begin post。 showmessage(39。插入成功?。。?！39。)。 end （4）窗體運(yùn)行測(cè)試結(jié)果： 來(lái)訪登記5結(jié) 論經(jīng)過(guò)這半年來(lái)的查閱資料和程序設(shè)計(jì)，開(kāi)發(fā)出了一個(gè)能夠滿足現(xiàn)代宿舍管理要求的宿舍管理系統(tǒng)，現(xiàn)在將主要工作總結(jié)如下：（1） 完成了系統(tǒng)主窗體的設(shè)計(jì)和驗(yàn)證。（2） 完成了宿舍設(shè)置窗體的設(shè)計(jì)和開(kāi)發(fā)，并進(jìn)行了驗(yàn)證。（3） 完成了用戶(hù)登錄，個(gè)人密碼修改的設(shè)計(jì)和開(kāi)發(fā)，并進(jìn)行了校正，經(jīng)調(diào)試終于獲得成功。（4） 完成了包括五種查詢(xún)方式的學(xué)生查詢(xún)模塊的設(shè)計(jì)和開(kāi)發(fā)，其中查詢(xún)方式有“按學(xué)號(hào)查詢(xún)”，“ 按宿舍查詢(xún)”，“按班級(jí)查詢(xún)”，“按家庭住址查詢(xún)”，以及“混合查詢(xún)”，這部分的源代碼開(kāi)發(fā)比較繁瑣，但最終調(diào)試成功。（5） 完成了出入登記模塊的開(kāi)發(fā)，這部分的設(shè)計(jì)過(guò)程相對(duì)花費(fèi)時(shí)間較少。盡管現(xiàn)在系統(tǒng)能夠正常運(yùn)行，但是還存在一些問(wèn)題?，F(xiàn)在的系統(tǒng)中存在的問(wèn)題有：（1）無(wú)法實(shí)現(xiàn)宿舍衛(wèi)生考勤和早操考勤的功能，以后可以考慮采取校園卡打卡的方式來(lái)進(jìn)行考勤功能的實(shí)現(xiàn)。（2）界面設(shè)置單一，窗體的結(jié)構(gòu)比較相似，以后需要更深入地學(xué)習(xí)Delphi的程序設(shè)計(jì)，提高本人對(duì)大型復(fù)雜軟件的駕馭能力，開(kāi)發(fā)設(shè)計(jì)出功能更加強(qiáng)大，界面更加豐富優(yōu)美的程序。（3），這里選用的access 數(shù)據(jù)庫(kù)有一定的極限，如果數(shù)據(jù)達(dá)到100M 左右，容易造成系統(tǒng)崩潰。對(duì)于以后的改進(jìn)，可以選用更加穩(wěn)定的數(shù)據(jù)庫(kù)系統(tǒng)如 SQL Server 2000，以后要更加努力的學(xué)習(xí)更高級(jí)強(qiáng)大的數(shù)據(jù)庫(kù)知識(shí)。在整個(gè)設(shè)計(jì)的實(shí)現(xiàn)過(guò)程中，我通過(guò)閱讀大量相關(guān)書(shū)籍，掌握了本系統(tǒng)中所用到的Delphi 技術(shù)以及數(shù)據(jù)庫(kù)應(yīng)用等知識(shí)，另外借鑒了別人優(yōu)秀的管理系統(tǒng)設(shè)計(jì)思想，逐漸形成了自己的設(shè)計(jì)思路，并一步步進(jìn)行實(shí)現(xiàn)。在這一過(guò)程中，我也走了一些彎路，因?yàn)閯傞_(kāi)始沒(méi)有很好的進(jìn)行理論學(xué)習(xí)，導(dǎo)致設(shè)計(jì)思路有所偏差，幸好胡老師及時(shí)發(fā)現(xiàn)，糾正了我的思路，才使我能在剩下的時(shí)間力充分安排時(shí)間順利完成畢業(yè)設(shè)計(jì)。本系統(tǒng)基本實(shí)現(xiàn)了高校宿舍管理工作所需要的相關(guān)操作，提高了學(xué)院的工作效率，降低了學(xué)院的學(xué)生管理成本，改善了對(duì)住宿學(xué)生的服務(wù)質(zhì)量，為學(xué)院的信息管理和決策提供了及時(shí)的、準(zhǔn)確的和有效的信息服務(wù)，使學(xué)院學(xué)生管理實(shí)現(xiàn)了信息化、圖形化和自動(dòng)化，達(dá)到了現(xiàn)代的學(xué)生宿舍管理水平，增強(qiáng)了學(xué)院的發(fā)展?jié)摿?，促進(jìn)了學(xué)院的進(jìn)一步發(fā)展。隨著宿舍管理工作的不斷細(xì)化，本學(xué)生宿舍管理系統(tǒng)各項(xiàng)功能還有待于進(jìn)一步完善，為客戶(hù)提供更方便優(yōu)質(zhì)的服務(wù)，以及為宿舍管理人員提供更為快捷有效的管理，這也是以后改善工作的重點(diǎn)。參考文獻(xiàn)[1]王星明，周山芙．管理系統(tǒng)中計(jì)算機(jī)應(yīng)用．湖北：武漢大學(xué)出版社，2006．[2] :中國(guó)鐵道出版社，2003[3]黃汝維，陳寧江，[J].(8).[4]李憬，.[5][M].北京:中國(guó)鐵道出