【正文】 報(bào)到單管理”窗體。實(shí)現(xiàn)代碼參考上一節(jié)即實(shí)現(xiàn)關(guān)閉新生數(shù)據(jù)管理的窗體的代碼。 實(shí)現(xiàn)公寓管理功能當(dāng)新生報(bào)到后，必須先到公寓管理處安排公寓住宿，然后才根據(jù)新生所住公寓的等級(jí)收費(fèi)。(1) ．實(shí)現(xiàn)公寓管理數(shù)據(jù)檢索功能。公寓管理窗體設(shè)計(jì)如圖411所示，包含一個(gè)GroupBox組件、一個(gè)LabeledEdit組件、一個(gè)Query組件，一個(gè)DataSource組件、一個(gè)DBGrid組件、一個(gè)PopupMenu組件和兩個(gè)Button組件。圖411公寓管理窗體設(shè)計(jì) (2) ．安排公寓管理。一個(gè)LabeledEdit組件、一個(gè)ComboBox組件和兩個(gè)Button組件,。圖412新生住宿安排窗體設(shè)計(jì) 實(shí)現(xiàn)收費(fèi)管理功能新生完成公寓安排后,就可以到財(cái)務(wù)室繳費(fèi)。收費(fèi)管理可以自動(dòng)根據(jù)新生的錄取專業(yè)和安排的公寓等級(jí)確定收費(fèi)金額.(1) ．實(shí)現(xiàn)收費(fèi)數(shù)據(jù)檢索功能。、一個(gè)labeledEdit組件,兩個(gè)Query組件，兩個(gè)DataSource組件、兩個(gè)DBGrid組件、一個(gè)PopupMeau組件和兩個(gè)Button組件。圖413收費(fèi)管理窗體設(shè)計(jì) (2) ．實(shí)現(xiàn)收費(fèi)功能。收費(fèi)窗體設(shè)計(jì)如圖414所示，包含一個(gè)Lapel組件、九個(gè)LabeledEdit組件、一個(gè)DawTimePicker組件和兩個(gè)Button組件。圖414 收費(fèi)窗體設(shè)計(jì) 完善主窗體（1）．集成系統(tǒng)功能模塊。執(zhí)行菜單命令時(shí)，需要打開(kāi)相應(yīng)的系統(tǒng)功能模塊，并且將該菜單項(xiàng)變?yōu)榛疑@示，當(dāng)該功能模塊關(guān)閉后再使菜單變?yōu)榭刹僮?。?shí)現(xiàn)代碼見(jiàn)附錄。（2）．實(shí)現(xiàn)系統(tǒng)退出功能。在執(zhí)行主窗體關(guān)閉操作時(shí)，首先請(qǐng)用戶確認(rèn)，以免用戶由于大意退出。實(shí)現(xiàn)代碼見(jiàn)附錄。5 調(diào)試運(yùn)行在實(shí)現(xiàn)各個(gè)功能模塊后，將程序連接編譯生成可執(zhí)行文件，并運(yùn)行系統(tǒng)進(jìn)行總體測(cè)試。系統(tǒng)啟動(dòng)后，首先顯示管理系統(tǒng)主窗體，如圖51所示。選擇【系統(tǒng)】→【登錄系統(tǒng)】，菜單命令，打開(kāi)系統(tǒng)登錄窗體，正確登錄后，系統(tǒng)主窗體如圖52所示。 29 29 圖51系統(tǒng)主窗體 圖52 登陸后的主窗體選擇【報(bào)到單管理】→【報(bào)到管理】菜單命令，打開(kāi)報(bào)到單管理窗體。如圖53所示。選擇【公寓管理】→【公寓安排管理】菜單命令，打開(kāi)公離管理窗體。如圖54所示。圖53“報(bào)到單管理”窗體 圖54“公寓管理”窗體選擇【收費(fèi)管理】→【新生繳費(fèi)】菜單命令，打開(kāi)收費(fèi)管理窗體，如圖56所示。選擇需要收費(fèi)的同學(xué)，在右鍵菜單中選擇【收費(fèi)】命令，打開(kāi)收費(fèi)窗體，如圖57所示。圖55“收費(fèi)管理”窗體 圖56“收費(fèi)窗口”窗體 選擇【數(shù)據(jù)管理】→【新生數(shù)據(jù)管理】菜單命令，打開(kāi)新生數(shù)據(jù)管理窗體，如圖57所示，單擊【導(dǎo)入】按鈕，打開(kāi)“導(dǎo)入新生數(shù)據(jù)”窗體，如圖58所示圖57“新生數(shù)據(jù)管理”窗體 圖58“導(dǎo)入新生數(shù)據(jù)”窗體在本設(shè)計(jì)的調(diào)試階段得到了老師和同學(xué)們的很大幫助，到此，本設(shè)計(jì)新生信息管理系統(tǒng)完成。新生報(bào)到管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)6 結(jié)論本論文介紹了Delphi7的基本知識(shí)和通過(guò)ODBC連接SQL2000的方法，并給出新生信息管理系統(tǒng)的設(shè)計(jì)方法和實(shí)現(xiàn)步驟。該程序功能齊全，基本滿足了學(xué)校的實(shí)際需要，經(jīng)過(guò)策劃，分析，設(shè)計(jì)編程及測(cè)試后新生報(bào)到管理系統(tǒng)能在實(shí)踐中試用能按要求完成各種信息查詢，證明其適用，穩(wěn)定，可靠，能滿足學(xué)校對(duì)新生的信息管理的需要，而且運(yùn)行穩(wěn)定，使用方便，安全可靠，具有友好的界面。實(shí)現(xiàn)了新生信息管理的數(shù)據(jù)儲(chǔ)存、查詢、修改等功能，并在實(shí)際中得到及時(shí)地準(zhǔn)確地處理大批信息和數(shù)據(jù)，實(shí)現(xiàn)了系統(tǒng)設(shè)計(jì)目標(biāo)，有一定的推廣價(jià)值。 總結(jié)本文的研究工作，主要取得了以下成績(jī)：（1）在充分調(diào)研現(xiàn)有學(xué)校對(duì)與新生入學(xué)時(shí)信息管理的現(xiàn)狀和特點(diǎn)的基礎(chǔ)上，規(guī)劃了系統(tǒng)的業(yè)務(wù)流程，并在此基礎(chǔ)上，對(duì)整個(gè)系統(tǒng)的工作流程進(jìn)行了設(shè)計(jì)，實(shí)現(xiàn)了新生數(shù)據(jù)管理，新生領(lǐng)取報(bào)到單管理，新生繳費(fèi)管理，新生住宿管理。（2）面向?qū)ο蟮姆治鎏幚矸椒ǎ梢哉f(shuō)是現(xiàn)代軟件工程熱點(diǎn)發(fā)展的方向。本文在充分分析新生報(bào)到管理系統(tǒng)的需要基礎(chǔ)上，采用面向?qū)ο蟮姆治黾夹g(shù)設(shè)計(jì)了系統(tǒng)的功能模型和信息模型，并詳細(xì)設(shè)計(jì)了數(shù)據(jù)庫(kù)系統(tǒng)，從而為系統(tǒng)的成功開(kāi)發(fā)奠定了堅(jiān)實(shí)的基礎(chǔ)。附 錄主窗體部分程序代碼如下：function :string。begin//動(dòng)態(tài)創(chuàng)建Tquery對(duì)象，用于數(shù)據(jù)表操作 with (nil) do begin try Close。//連接數(shù)據(jù) SessionName:=。 DatabaseName:=。 。//使用SQL Server支持的SQL語(yǔ)句和函數(shù)，獲取服務(wù)器時(shí)間 (39。select getdate() as aa39。)。 Open。//返回字符串類型，在調(diào)用模塊中可以自由轉(zhuǎn)換 result:=fieldbyname(39。aa39。).AsString。 finally//從內(nèi)存中釋放動(dòng)態(tài)創(chuàng)建的TQuery對(duì)象 Free。 end。 end。end。集成系統(tǒng)功能模塊的代碼如下：procedure (Sender: TObject)。begin (Tusergl_form, usergl_Form)。 。 :=false。end。procedure (Sender: TObject)。begin (Tlogin_form, login_Form)。 。 :=false。end。procedure (Sender: TObject)。begin (Tbddgl_Form, bddgl_Form)。 。 :=false。end。procedure (Sender: TObject)。begin (Tgygl_Form, gygl_Form)。 。 :=false。end。procedure (Sender: TObject)。begin (Tsfgl_Form, sfgl_Form)。 。 :=false。end。procedure (Sender: TObject)。begin (Tsjgl_Form, sjgl_Form)。 。 :=false。end。實(shí)現(xiàn)系統(tǒng)退出功能的代碼如下：procedure (Sender: TObject。 var Action: TCloseAction)。begin if MessageDlg(39。你確認(rèn)要退出系統(tǒng)嗎？39。,mtConfirmation, [mbYes, mbNo], 0) = mrYes THEN ACTION:=caFree ELSE ACTION:=caNone。end。參考文獻(xiàn)[1] 夏邦貴，郭勝等，Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)入門與范例解析，2004年，機(jī)械工業(yè)出版社,北京[2] 劉瑞新，Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)畢業(yè)設(shè)計(jì)指導(dǎo)及事例，2005年，機(jī)械工業(yè)出版社，北京[3] 施新剛，Delphi6實(shí)效編程百例，2002，人民郵電出版社，北京[4] 高英，Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)基礎(chǔ)與應(yīng)用，2006，人民郵電出版社，北京[5] 陳豫龍，Delphi數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航，2003年，人民郵電出版社，北京[6] 劉瑞新，Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)，2005年，機(jī)械工業(yè)出版社，北京[7] 徐寶林等，Delphi ，2003，機(jī)械工業(yè)出版社，北京[8] 金林樵，Delphi程序設(shè)計(jì)基礎(chǔ)，2003，機(jī)械工業(yè)出版社，北京[9] 張?jiān)鰪?qiáng)等，Delphi 7數(shù)據(jù)庫(kù)開(kāi)發(fā)完全手冊(cè)，2003，清華大學(xué)出版社，北京[10] 劉斌、李文革等，Delphi 7數(shù)據(jù)庫(kù)高級(jí)教程，2004，清華大學(xué)出版社，北京[11] 黃明，Delphi7信息系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)實(shí)例，2004，機(jī)械工業(yè)出版社，北京[12] Steve Teixeira ,Delphi 5 Developer39。s Guide ，2000[13] Cantu,U. ，Mastering Delphi 6 ，2002[14] Ray Lischner ，Delphi in a Nutshell，2001[15] Keith Wood， Delphi Developer39。s Guide to XML ，2003致 謝在畢業(yè)設(shè)計(jì)的六個(gè)月時(shí)間的緊張制作中，學(xué)到了很多專業(yè)課的知識(shí)，我首先要感謝我的指導(dǎo)教師張懷玉老師，無(wú)論是在理論學(xué)習(xí)階段，還是在論文的選題、資料查詢、開(kāi)題、研究和撰寫的每一個(gè)環(huán)節(jié)，無(wú)不得到張老師的悉心指導(dǎo)和幫助，使我得到不少的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。在張老師的諄諄教導(dǎo)下，我不僅完成了設(shè)計(jì)要求的內(nèi)容，同時(shí)還學(xué)到了很多課外的知識(shí)。張老師待人和藹可親，為人謙虛謹(jǐn)慎，治學(xué)態(tài)度嚴(yán)謹(jǐn)、認(rèn)真，對(duì)待我們的問(wèn)題總是不厭其煩，并且從來(lái)都做到有問(wèn)必答。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師張老師身上學(xué)到了很多東西將令我受益匪淺。此外，本設(shè)計(jì)的順利完成，還得到了電氣工程系多位老師的熱情幫助和指導(dǎo)，在此也表示深深的感謝! 還有同學(xué)同樣給與我很多幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)運(yùn)行完成，也讓我感覺(jué)到集體的溫暖，人多的力量，在這里表示感謝。