【正文】 隨著宿舍管理工作的不斷細(xì)化，本學(xué)生宿舍管理系統(tǒng)各項功能還有待于進(jìn)一步完善，為客戶提供更方便優(yōu)質(zhì)的服務(wù)，以及為宿舍管理人員提供更為快捷有效的管理，這也是以后改善工作的重點(diǎn)。在這一過程中，我也走了一些彎路，因為剛開始沒有很好的進(jìn)行理論學(xué)習(xí)，導(dǎo)致設(shè)計思路有所偏差，幸好胡老師及時發(fā)現(xiàn)，糾正了我的思路，才使我能在剩下的時間力充分安排時間順利完成畢業(yè)設(shè)計。對于以后的改進(jìn)，可以選用更加穩(wěn)定的數(shù)據(jù)庫系統(tǒng)如 SQL Server 2000，以后要更加努力的學(xué)習(xí)更高級強(qiáng)大的數(shù)據(jù)庫知識。（2）界面設(shè)置單一，窗體的結(jié)構(gòu)比較相似，以后需要更深入地學(xué)習(xí)Delphi的程序設(shè)計，提高本人對大型復(fù)雜軟件的駕馭能力，開發(fā)設(shè)計出功能更加強(qiáng)大，界面更加豐富優(yōu)美的程序。盡管現(xiàn)在系統(tǒng)能夠正常運(yùn)行，但是還存在一些問題。（4） 完成了包括五種查詢方式的學(xué)生查詢模塊的設(shè)計和開發(fā)，其中查詢方式有“按學(xué)號查詢”，“ 按宿舍查詢”，“按班級查詢”，“按家庭住址查詢”，以及“混合查詢”，這部分的源代碼開發(fā)比較繁瑣，但最終調(diào)試成功。（2） 完成了宿舍設(shè)置窗體的設(shè)計和開發(fā)，并進(jìn)行了驗證。)。 showmessage(39。請確認(rèn)數(shù)據(jù)的無誤39。).AsVariant:=。 fieldbyname(39。證件名稱39。).AsString:=。 fieldbyname(39。結(jié)束時間39。).AsDateTime:=。 fieldbyname(39。所屬關(guān)系39。).AsString:=。 fieldbyname(39。要訪姓名39。 append。)。 //將來訪人員基本信息添加到visit表之中 (39。（3）關(guān)鍵代碼及設(shè)計說明//先調(diào)用visit數(shù)據(jù)表begin with do begin close。 （2）實(shí)現(xiàn)過程a．添加新窗體，設(shè)置窗體name屬性為TvisitForm設(shè)置caption屬性為“來訪登記”。（1）實(shí)現(xiàn)目標(biāo)用于登記來訪者信息。(1)實(shí)現(xiàn)目標(biāo)同樣的還有學(xué)生注冊修改，主要實(shí)現(xiàn)查詢修改學(xué)生是否注冊，住宿費(fèi)是否欠費(fèi)的功能。 end。//尋找住宿學(xué)生 open。39。39。39。select * from worth where 姓名=39。 。在這個窗口里面，可以對桌子，椅子，電腦，箱子，被褥和鑰匙是否發(fā)放等內(nèi)容進(jìn)行修改。（4）。 update。)。39。+username+39。39。 (39。begin with do //學(xué)生基本情況表 begin close。end。 4:。 2:。begincase of 0:。還包括查詢到某一學(xué)生后，需要修改其臨近學(xué)號的學(xué)生的資料是，就可以使用窗口下面的“上一條”，“下一條”等按鈕。（1）實(shí)現(xiàn)目標(biāo)用于實(shí)現(xiàn)對于學(xué)生個人信息的修改（2）說明和“基本情況錄入“窗口一樣，“基本資料修改”窗口一共包括12個文本框，姓名，學(xué)號等。修改數(shù)據(jù)資料窗口主要實(shí)現(xiàn)：a．學(xué)生資料修改b．個人財物修改c．財物出樓修改d．來訪登記修改，e．學(xué)生注冊修改f．員工資料修改 （2）實(shí)現(xiàn)過程a．添加新窗體，設(shè)置窗體name屬性為TgroupBox，設(shè)置caption屬性為“修改數(shù)據(jù)資料”。例如修改學(xué)生的原始資料，如政治面貌（黨員，團(tuán)員），聯(lián)系方式，家庭住址等內(nèi)容。（4）。注冊成功39。post。for i:=0 to do beginif trim()=fields[i].FieldName thenbeginfieldbyname(fields[i].FieldName).AsString:=39。 if not of then//輸入學(xué)生注冊的記錄后，系統(tǒng)顯示注冊成功，并向數(shù)據(jù)庫中添加已注冊記錄。 )。39。+trim()+39。39。+39。39。+trim()+39。39。(39。39。39。39。select * from registe where 學(xué)號=39。 。 open。39。39。39。 and 寢室號=39。39。39。39。 and 姓名=39。)。39。+trim()+39。39。（3）關(guān)鍵代碼及其說明//先對比學(xué)號、姓名和寢室號來尋找學(xué)生(39。 離校處理（1）實(shí)現(xiàn)目標(biāo)繳納住宿費(fèi)用住宿學(xué)生每學(xué)期報到時需要繳納住宿費(fèi)用（一般和學(xué)費(fèi)一起），因此需要進(jìn)行住宿注冊，以便于確認(rèn)宿舍管理的財務(wù)收入情況和宿舍入住情況，以后需要的時候隨時都可以調(diào)用。end。)。,mtconfirmation,[mbYes,mbNo],1)=mryes then else showmessage(39。 if messagedlg(39。39。39。39。 where 學(xué)號=39。39。39。,備注=39。39。離校39。39。update tborder set 狀態(tài)=39。 。 procedure (Sender: TObject)。 end。沒有該記錄！39。 。請輸入相關(guān)的數(shù)據(jù)!39。) else begin showmessage(39。39。+trim()+39。39。 then (39。 if 39。with do begin close。//當(dāng)沒有學(xué)號的同學(xué)。因為學(xué)號為唯一。（2）實(shí)現(xiàn)過程先對離校學(xué)生進(jìn)行查詢后，再進(jìn)行數(shù)據(jù)的處理（3）關(guān)鍵代碼及其說明//通過相關(guān)的學(xué)號。這個離校處理功能流程是先查詢到具體學(xué)生再根據(jù)實(shí)際情況輸入公共財物的具體使用和損耗情況。 用戶確認(rèn)結(jié)果（1）實(shí)現(xiàn)目標(biāo)學(xué)生離校后宿舍重新分配當(dāng)某屆學(xué)生學(xué)滿四年離開校園時，宿舍就即將重新分派，宿舍內(nèi)的共有財務(wù)損毀狀況需要一個統(tǒng)計集中。 用戶確認(rèn)數(shù)據(jù)是否有誤如果用戶選擇取消則系統(tǒng)提示“操作已取消,請重新錄入”。（4） 。end。)。39。+s+39。39。(39。beginwith dobeginclose。 exit。)。 end else begin showmessage(39。,mtconfirmation,[mbYes,mbNO],0)=mryes then begin post。b．點(diǎn)擊確認(rèn)后會出現(xiàn)詢問窗口，其關(guān)鍵代碼如下 if messagedlg(39。備注39。入學(xué)39。狀態(tài)39。).AsString:=。 fieldbyname(39。聯(lián)系方式39。).AsString:=。fieldbyname(39。畢業(yè)學(xué)校39。).AsDateTime:=。fieldbyname(39。入學(xué)日期39。).AsString:=trim()。fieldbyname(39。班級39。).AsString:=trim()。fieldbyname(39。性別39。).AsString:=trim()。fieldbyname(39。學(xué)號39。（3）關(guān)鍵代碼及思想介紹a. 錄入窗體12個文本框的代碼beginappend。（2）實(shí)現(xiàn)過程a．添加新窗體，設(shè)置窗體name屬性為TgroupBox，設(shè)置caption屬性“學(xué)生資料錄入”。啟動程序后，調(diào)用“學(xué)生管理”，將打開“學(xué)生管理”下拉菜單。end。 where false39。39。%39。%39。 where 班級 like 39。39。39。procedure (Sender: TObject)。QueryPd(StringGrid3,Qstr1)。elseQstr1:=39。39。+Trim()+39。39。 thenQstr1:=39。if Trim()39。begin//用于查詢家庭地址Qstr1:=39。b．向窗體中添加控件，并設(shè)置相關(guān)屬性。MS Sans Serif39。公寓樓房設(shè)置39。 （2）實(shí)現(xiàn)過程：a．選擇新產(chǎn)生的窗口form1，設(shè)置窗體caption屬性為“公寓歐方設(shè)置”。end。 end。)。 showmessage(39。).AsString:=。 fieldbyname(39。對不起,沒有該用戶39。 open。39。39。39。 and 密碼=39。39。39。39。select * from manage where 用戶名=39。 。 。請確認(rèn)新密碼,新密碼有錯!!!!39。b．向窗體中添加控件，并設(shè)置相關(guān)屬性?！懊艽a修改”窗口即實(shí)現(xiàn)用戶的密碼修改功能。end。 end。).AsString)。 for i:=0 to RecordCount1 do begin (fieldbyname(39。 open。select * from manage39。 。begin//在用戶名稱框中輸入已經(jīng)存在的用戶名。（3）關(guān)鍵代碼及其說明procedure (Sender: TObject)。b．根據(jù)管理員的決定來確定被添加者的權(quán)限等級：如操作員，系統(tǒng)管理員等, （2）實(shí)現(xiàn)過程a．添加新窗體，設(shè)置窗體name屬性為TLoginForm，設(shè)置caption屬性為“添加用戶”。（4）窗體運(yùn)行測試結(jié)果， 系統(tǒng)主界面用戶管理模塊主要實(shí)現(xiàn)功能有：（1）添加用戶（2）修改用戶密碼（3）樓房狀況設(shè)置（4）員工處理（1）實(shí)現(xiàn)目標(biāo)啟動程序后，調(diào)用“管理系統(tǒng)”下的“增加用戶”，將打開“增加用戶”。procedure (Sender:TObject)。beginf_studend:=Tf_studend.Create(Application)。c．向窗體中添加ImageList、MainMenu、ToolBar、Image、StatusBar等控件，并設(shè)置相應(yīng)屬性。（2）實(shí)現(xiàn)過程a．啟動Delphi，選擇“file（文件）”菜單中的“New Application”新建項目formmain，選擇“file”菜單中的“Save Project as”菜單項，將工程保存為CMANAGE。主界面主要實(shí)現(xiàn)如下功能：a．通過菜單和工具欄快速調(diào)用相應(yīng)的子程序。end。procedure (Sender:TObject)。end。:=false。end。,mterror,[mbok],0)。if =0 thenbeginmessagedlg(39。open。39。39。39。aUSERPAS=39。39。39。select*from USERINFO where USERNAME=39。用戶登陸窗口中放置了兩個文本框,用來輸入用戶名和密碼；兩個按鈕用來確定和取消登陸；其中登錄核對關(guān)鍵代碼如下。b．向窗體中添加控件，并設(shè)置相關(guān)屬性。b．根據(jù)輸入的用戶名和密碼是否匹配系統(tǒng)能產(chǎn)生相應(yīng)的提示信息。登陸界面確認(rèn)該學(xué)生已注冊管理員是否注冊管理員登錄發(fā)送住宿費(fèi)催繳通知查看注冊信息出入登記學(xué)生注冊管理資料修改查詢寢室、學(xué)生管理系統(tǒng)是否通過驗證新管理員注冊顯示錯誤退出系統(tǒng)是否注冊否是是否（1）實(shí)現(xiàn)目標(biāo)啟動程序后，調(diào)用“登陸”下的“登陸”，將打開“登陸窗口”。對于管理員用戶來講，本設(shè)計提供了完整的一套登錄，注冊，資料修改功能。每個模塊都有相應(yīng)的頁面實(shí)現(xiàn)預(yù)計的功能， 所示： 系統(tǒng)界面匯總表系統(tǒng)登錄模塊界面名稱界面描述系統(tǒng)主界面用戶登錄管理系統(tǒng)模塊樓房設(shè)置寢室管理員工處理添加用戶修改密碼查詢學(xué)生學(xué)生查詢（學(xué)號，姓名，班級，寢室，混合查詢）學(xué)生管理模塊學(xué)生基本情況錄入學(xué)生離校處理學(xué)期住宿費(fèi)用注冊學(xué)生財產(chǎn)登記資料修改模塊修改學(xué)生和員工基本資料，財物，登記修改學(xué)生離校處理寢室設(shè)置出樓貨物登記。使用這種連接方式除了要注意上面提到的不兼容中文字段外，還需注意在不使用數(shù)據(jù)庫時要將Sq1Connectionl斷開數(shù)據(jù)連接，以數(shù)據(jù)保證安全。e．From里放置DBWebDatasouree將其中Datasouree設(shè)置為Dataset11，即可使用了f．用Sq1Connection連接的數(shù)據(jù)庫，寫入數(shù)據(jù)可以用以下方法:例如::=’updatepaswordsetpasword=SqlCo :就是將名為pasword的數(shù)據(jù)表的pasword字段設(shè)置為ffffllo，注意ffffllo要用雙引號。EventArgS)。d．再返回pas代碼，在Page_Load(sender:。c．在Sq1DataAdapter上點(diǎn)擊鼠標(biāo)右鍵，在菜單中選擇GenerateDatase，點(diǎn)擊OK。Password=:其中netrecord為數(shù)據(jù)庫名稱PaSSword=為密碼，這里密碼為空。具體使用方法如下:a．在Form中放置一個SqlConneetion，將Connectionstring內(nèi)容填入datasource=(loeal:initialeatalog=netreeord:Persistsee而tyinfo=False。Delphi除了使用B