【正文】 此外，本設(shè)計(jì)的順利完成，還得到了電氣工程系多位老師的熱情幫助和指導(dǎo)，在此也表示深深的感謝! 還有同學(xué)同樣給與我很多幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)運(yùn)行完成，也讓我感覺到集體的溫暖，人多的力量，在這里表示感謝。張老師待人和藹可親，為人謙虛謹(jǐn)慎，治學(xué)態(tài)度嚴(yán)謹(jǐn)、認(rèn)真，對(duì)待我們的問題總是不厭其煩，并且從來(lái)都做到有問必答。s Guide to XML ，2003致 謝在畢業(yè)設(shè)計(jì)的六個(gè)月時(shí)間的緊張制作中，學(xué)到了很多專業(yè)課的知識(shí)，我首先要感謝我的指導(dǎo)教師張懷玉老師，無(wú)論是在理論學(xué)習(xí)階段，還是在論文的選題、資料查詢、開題、研究和撰寫的每一個(gè)環(huán)節(jié)，無(wú)不得到張老師的悉心指導(dǎo)和幫助，使我得到不少的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。參考文獻(xiàn)[1] 夏邦貴，郭勝等，Delphi數(shù)據(jù)庫(kù)開發(fā)入門與范例解析，2004年，機(jī)械工業(yè)出版社,北京[2] 劉瑞新，Delphi數(shù)據(jù)庫(kù)開發(fā)畢業(yè)設(shè)計(jì)指導(dǎo)及事例，2005年，機(jī)械工業(yè)出版社，北京[3] 施新剛，Delphi6實(shí)效編程百例，2002，人民郵電出版社，北京[4] 高英，Delphi數(shù)據(jù)庫(kù)開發(fā)基礎(chǔ)與應(yīng)用，2006，人民郵電出版社，北京[5] 陳豫龍，Delphi數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航，2003年，人民郵電出版社，北京[6] 劉瑞新，Delphi數(shù)據(jù)庫(kù)開發(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ù)開發(fā)完全手冊(cè)，2003，清華大學(xué)出版社，北京[10] 劉斌、李文革等，Delphi 7數(shù)據(jù)庫(kù)高級(jí)教程，2004，清華大學(xué)出版社，北京[11] 黃明，Delphi7信息系統(tǒng)設(shè)計(jì)與開發(fā)實(shí)例，2004，機(jī)械工業(yè)出版社，北京[12] Steve Teixeira ,Delphi 5 Developer39。,mtConfirmation, [mbYes, mbNo], 0) = mrYes THEN ACTION:=caFree ELSE ACTION:=caNone。begin if MessageDlg(39。實(shí)現(xiàn)系統(tǒng)退出功能的代碼如下：procedure (Sender: TObject。 :=false。begin (Tsjgl_Form, sjgl_Form)。end。 。procedure (Sender: TObject)。 :=false。begin (Tgygl_Form, gygl_Form)。end。 。procedure (Sender: TObject)。 :=false。begin (Tlogin_form, login_Form)。end。 。集成系統(tǒng)功能模塊的代碼如下：procedure (Sender: TObject)。 end。 finally//從內(nèi)存中釋放動(dòng)態(tài)創(chuàng)建的TQuery對(duì)象 Free。aa39。 Open。select getdate() as aa39。 。//連接數(shù)據(jù) SessionName:=。附 錄主窗體部分程序代碼如下：function :string。（2）面向?qū)ο蟮姆治鎏幚矸椒ǎ梢哉f是現(xiàn)代軟件工程熱點(diǎn)發(fā)展的方向。實(shí)現(xiàn)了新生信息管理的數(shù)據(jù)儲(chǔ)存、查詢、修改等功能，并在實(shí)際中得到及時(shí)地準(zhǔn)確地處理大批信息和數(shù)據(jù)，實(shí)現(xiàn)了系統(tǒng)設(shè)計(jì)目標(biāo)，有一定的推廣價(jià)值。新生報(bào)到管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)6 結(jié)論本論文介紹了Delphi7的基本知識(shí)和通過ODBC連接SQL2000的方法，并給出新生信息管理系統(tǒng)的設(shè)計(jì)方法和實(shí)現(xiàn)步驟。選擇需要收費(fèi)的同學(xué)，在右鍵菜單中選擇【收費(fèi)】命令，打開收費(fèi)窗體，如圖57所示。如圖54所示。如圖53所示。選擇【系統(tǒng)】→【登錄系統(tǒng)】，菜單命令，打開系統(tǒng)登錄窗體，正確登錄后，系統(tǒng)主窗體如圖52所示。5 調(diào)試運(yùn)行在實(shí)現(xiàn)各個(gè)功能模塊后，將程序連接編譯生成可執(zhí)行文件，并運(yùn)行系統(tǒng)進(jìn)行總體測(cè)試。在執(zhí)行主窗體關(guān)閉操作時(shí)，首先請(qǐng)用戶確認(rèn)，以免用戶由于大意退出。實(shí)現(xiàn)代碼見附錄。圖414 收費(fèi)窗體設(shè)計(jì) 完善主窗體（1）．集成系統(tǒng)功能模塊。圖413收費(fèi)管理窗體設(shè)計(jì) (2) ．實(shí)現(xiàn)收費(fèi)功能。收費(fèi)管理可以自動(dòng)根據(jù)新生的錄取專業(yè)和安排的公寓等級(jí)確定收費(fèi)金額.(1) ．實(shí)現(xiàn)收費(fèi)數(shù)據(jù)檢索功能。一個(gè)LabeledEdit組件、一個(gè)ComboBox組件和兩個(gè)Button組件,。公寓管理窗體設(shè)計(jì)如圖411所示，包含一個(gè)GroupBox組件、一個(gè)LabeledEdit組件、一個(gè)Query組件，一個(gè)DataSource組件、一個(gè)DBGrid組件、一個(gè)PopupMenu組件和兩個(gè)Button組件。 實(shí)現(xiàn)公寓管理功能當(dāng)新生報(bào)到后，必須先到公寓管理處安排公寓住宿，然后才根據(jù)新生所住公寓的等級(jí)收費(fèi)。單擊【取消】按鈕關(guān)閉“報(bào)到單管理”窗體。實(shí)現(xiàn)代碼略。將某新生紀(jì)錄的狀態(tài)字段設(shè)置為1，表明該新生已經(jīng)領(lǐng)取過報(bào)到單，可以到公寓管理處安排公寓住宿。（4）．實(shí)現(xiàn)發(fā)放報(bào)到單功能。 :=。實(shí)現(xiàn)代碼如下：procedure (Sender: TObject)。（3）．實(shí)現(xiàn)數(shù)據(jù)檢索功能。創(chuàng)建窗體時(shí)，需要對(duì)數(shù)據(jù)控件進(jìn)行初始化。組件、一個(gè)PopupMenu組件、一個(gè)DBGrid組件和兩個(gè)Button組件。實(shí)現(xiàn)報(bào)到管理功能需要以下幾點(diǎn)步驟：（1）．設(shè)計(jì)報(bào)到單管理窗體。單擊【取消】按鈕，關(guān)閉“導(dǎo)入新生數(shù)據(jù)”窗體。如果列表中的數(shù)據(jù)在新生數(shù)據(jù)表中又重復(fù)，則對(duì)新生數(shù)據(jù)表中的數(shù)據(jù)進(jìn)行更新。單擊【數(shù)據(jù)導(dǎo)入】。單擊【打開文件】按鈕打開數(shù)據(jù)文件時(shí)，需要將所有的數(shù)據(jù)顯示在列表中，并且要求確認(rèn)數(shù)據(jù)是否正確，如果不正確可以退出，修改數(shù)據(jù)文件后再打開文件。這里使用一個(gè)窗體來(lái)完成數(shù)據(jù)的倒入功能，設(shè)計(jì)的窗體如圖49所示。end。begin Action:=caFree。procedure (Sender: TObject。實(shí)現(xiàn)代碼略。（3）．實(shí)現(xiàn)數(shù)據(jù)檢索功能。 :=。實(shí)現(xiàn)代碼如下：procedure (Sender: TObject)。 圖48 “新生數(shù)據(jù)管理”窗體（2）．實(shí)現(xiàn)窗體初始化。實(shí)現(xiàn)新生數(shù)據(jù)管理須以下幾點(diǎn)步驟：（1）．創(chuàng)建數(shù)據(jù)管理窗體。 修改密碼窗體設(shè)計(jì)如圖47所示，包含三個(gè)Label組件、三個(gè)Edit組件和兩個(gè)Button組件,。 圖46添加/修改用戶窗體設(shè)計(jì) 修改密碼窗體設(shè)計(jì)用戶登錄后可以自己修改密碼。圖45用戶管理窗體設(shè)計(jì) 添加/修改用戶窗體添加/修改用戶窗體設(shè)計(jì)如圖46所示。主要功能包括用戶數(shù)據(jù)(包括編號(hào)、密碼和權(quán)限)的添加、刪除和瀏覽等操作，高級(jí)管理員可以管理系統(tǒng)中所有的用戶數(shù)據(jù)，而普通用戶則只能修改自己的密碼。在登錄窗體代碼中實(shí)現(xiàn)身份驗(yàn)證功能，則從“t_qxb”，其他菜單項(xiàng)Visible屬性設(shè)置為FaIse。 admin。 用戶登錄窗體設(shè)計(jì)為實(shí)現(xiàn)按權(quán)限起用系統(tǒng)功能，需要使用“t_qxb”表保存用戶享有的權(quán)限信息，根據(jù)用戶名決定是否隱藏某些菜單項(xiàng)。由于在新生報(bào)名系統(tǒng)中，需要取得系統(tǒng)時(shí)間，為了減少代碼的重復(fù)性，寫一個(gè)函數(shù)來(lái)取得服務(wù)器時(shí)間作為操作時(shí)間，保證系統(tǒng)時(shí)間的一致性。用戶登陸成功后，系統(tǒng)根據(jù)用戶的權(quán)限啟動(dòng)用戶允許使用的功能模塊。圖43 測(cè)試數(shù)據(jù)源（4）．單擊【確定】按鈕后完成設(shè)置，ODBC管理器將顯示新建的“GZJ_base”名稱。“GZJ”。使用ODBC連接SQL Server數(shù)據(jù)庫(kù)，設(shè)置ODBC數(shù)據(jù)源名稱為“GZJ_base”,設(shè)置步驟如下:（1）．添加新數(shù)據(jù)源，選擇SQL Server連接,完成后,開始設(shè)置SQL Sever連接，輸入服務(wù)器名local。然后創(chuàng)建名稱為GZJ的數(shù)據(jù)庫(kù)。啟動(dòng)SQL Server 2000企業(yè)管理器。表38“td_zydm”表結(jié)構(gòu)字段名稱類型大小索引說明zydmtinyint1是專業(yè)代碼zymcChar20否專業(yè)名稱4 系統(tǒng)實(shí)現(xiàn)數(shù)據(jù)庫(kù)使用SQL Server 2000。表36“t_sfb”表結(jié)構(gòu)字段名稱類型大小索引說明XhChar10是學(xué)號(hào)XmChar10否姓名stjemoney4否收費(fèi)金額sfrqdatetime8否收費(fèi)日期sfrChar10否收費(fèi)人bzChar100否備注(5)．系別代碼數(shù)據(jù)表用于保存各個(gè)系的數(shù)據(jù)，數(shù)據(jù)表命名為“td_xbdm”，結(jié)構(gòu)見表37。表34“t_xsb”表結(jié)構(gòu)字段名稱類型大小索引說明xhChar10是學(xué)號(hào)xmChar10否姓名xbChar2否性別csnydatetime8否出生年月jtdzChar60否家庭地址uzbmChar6否郵政編碼lxdhvarchar20否聯(lián)系電話zydmtinyint2否專業(yè)代碼xbdmtinyint2否系別代碼gydmtinyint1否公寓代碼gybhChar7否公寓編號(hào)zttinyint1否狀態(tài)（3）．公寓代碼數(shù)據(jù)表用于各種類型公寓的基本數(shù)據(jù)，數(shù)據(jù)表命名為“td_gydm”，結(jié)構(gòu)見