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