【導(dǎo)讀】務(wù)主要包括數(shù)據(jù)庫(kù)的設(shè)計(jì)與維護(hù)、應(yīng)用程序的開(kāi)發(fā)等兩個(gè)方面。才能使用等，而對(duì)于后者則要求程序界面友好、功能完備等特點(diǎn)。計(jì)和各模塊功能的實(shí)現(xiàn)。到事宜，大大提高了工作效率。作，達(dá)到對(duì)新生報(bào)名管理的目的。選用SQLServer2020作為后臺(tái)數(shù)據(jù)庫(kù)。用戶滿意的實(shí)際可行的系統(tǒng)。

　　

【正文】 if RecordCount 0 then begin sqlstr:=39。update t_xsb set xm=39。39。39。+xm+39。39。39。,xb=39。39。39。+xb+39。39。39。,csny=39。39。39。+csny。 sqlstr:=sqlstr+39。39。39。,jtdz=39。39。39。+jtdz+39。39。39。,lxdh=39。39。39。+lxdh+39。39。39。,yzbm=39。39。39。+yzbm。 sqlstr:=sqlstr+39。39。39。,zydm=39。39。39。+zydm+39。39。39。,xbdm=39。39。39。+xbdm+39。39。39。 where (xh=39。39。39。+xh+39。39。39。)39。 end else begin sqlstr:=39。insert into t_xsb(xh,xm,xb,csny,jtdz,lxdh,yzbm,zydm,xbdm) values(39。39。39。 sqlstr:=sqlstr+xh+39。39。39。,39。39。39。+xm+39。39。39。,39。39。39。+xb+39。39。39。,39。39。39。+csny+39。39。39。,39。39。39。+jtdz+39。39。39。,39。39。39。+lxdh。 sqlstr:=sqlstr+39。39。39。,39。39。39。+yzbm+39。39。39。,39。39。39。+zydm+39。39。39。,39。39。39。+xbdm+39。39。39。)39。 end。 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 28 Close。 。 (sqlstr)。 ExecSQL。 [0].Delete。 end。 finally Free。 end。 end。 ShowMessage(39。成功導(dǎo)入新生數(shù)據(jù) 39。)。 Close。 end。 新生報(bào)到管理窗體設(shè)計(jì)及實(shí)現(xiàn) (1)主要功能 在報(bào)到查詢模塊設(shè)計(jì)中， 有檢索和 發(fā)報(bào)到單功能，本系統(tǒng) 采用了新生報(bào)到界面中的顏色機(jī)制來(lái)說(shuō)明被查詢學(xué)生的報(bào)到狀態(tài)。 (2)界面設(shè)計(jì) 在界面設(shè)計(jì)中 包含一個(gè) GrooupBox組件、一個(gè) LabeledEdit組件、一個(gè) Query 組件、一個(gè) DataSource 組件、一個(gè) PopupMenu 組件、一個(gè) DBGrid 組件。 如圖47 所示。 圖 47 報(bào)到管理窗體 根據(jù)學(xué)生報(bào)到單的發(fā)放情況，用不同的顏色表示， 右擊某生信息，則彈出對(duì)話框來(lái)提示該生的報(bào)到情況。 如圖 48 所示 。 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 29 圖 48 發(fā)報(bào)到單 (3)部分事件代碼實(shí)現(xiàn) “檢索”按鈕單擊事件程序： procedure (Sender: TObject)。 var xm,sqlstr:string。 begin xm:=trim()。 //無(wú)輸入，檢索所有的信息 if length(xm)1 then begin sqlstr:=39。select a.*, as zymc, as xbmc from t_xsb a39。 sqlstr:=sqlstr+39。 INNER JOIN td_zydm b ON = 39。 sqlstr:=sqlstr+39。 INNER JOIN td_xbdm c ON = 39。 end //有輸入，模糊查詢 else begin xm:=39。%39。+xm+39。%39。 sqlstr:=39。select a.*, as zymc, as xbmc from t_xsb a39。 sqlstr:=sqlstr+39。 INNER JOIN td_zydm b ON = 39。 sqlstr:=sqlstr+39。 INNER JOIN td_xbdm c ON = 39。 sqlstr:=sqlstr+39。 where( like 39。39。39。+xm+39。39。39。)39。 end。 。 。 (sqlstr)。 。 //根據(jù)檢索結(jié)果，確定彈出菜單可操作性 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 30 if 0 then :=true else :=false。 end。 數(shù)據(jù)網(wǎng)格顯 示事件 procedure (Sender: TObject。 const Rect: TRect。 DataCol: Integer。 Column: TColumn。 State: TGridDrawState)。 begin if gdSelected in State then Exit。 //根據(jù)學(xué)生報(bào)到單的發(fā)到情況，用不同的背景顏色來(lái)表示 case (39。zt39。).AsInteger of 0:(Sender as TDBGrid).:=clwindow。 1:(Sender as TDBGrid). :=clyellow。 2:(Sender as TDBGrid). :=clblue。 3:(Sender as TDBGrid). :=clred。 end。 (Rect,DataCol,Column,State)。 end。 新生住宿管理窗體設(shè)計(jì)及實(shí)現(xiàn) (1)主要功能 在住宿管理 模塊設(shè)計(jì)中，有檢索、安排和修改宿舍功能。 (2)界面設(shè)計(jì) 新生住宿管理窗體 如圖 49 所示。 圖 49 公寓管理 根據(jù)學(xué)生報(bào)到單的發(fā)放情況，用不同的顏色表示， 右擊某生信息，則彈出對(duì)話框來(lái)提示安排和修改該生的住宿情況。 用戶右擊安排住宿按鈕，系統(tǒng)將首先判斷該生是否已經(jīng)安排過(guò)住宿，若已安排，則提示“該生已經(jīng)安排好住宿” (如要重新安排住宿，可在修改住宿模塊操 作 )； 然后 用戶選擇公寓級(jí)別，并輸入公基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 31 寓編號(hào)后，系統(tǒng)將判斷該宿舍是否已經(jīng)安排給其他同學(xué)。如果已安排，則提示“該公寓已經(jīng)安排給其他同學(xué)，請(qǐng)重新安排！”。如該公寓尚空閑，用戶點(diǎn)擊確定按鈕即可成功安排住宿。 如圖 410 所示。 圖 410 安排 /修改宿舍 源代碼略。 新生繳費(fèi)管理窗體設(shè)計(jì)及實(shí)現(xiàn) (1)主要功能 在繳費(fèi)管理 模塊中 ， 有檢索、收費(fèi)功能。 (2)界面設(shè)計(jì) 新生繳費(fèi)管理窗體 如圖 411 所示 。 圖 411 收費(fèi)管理 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 32 根據(jù)學(xué)生完成公寓的安排情況，就可以到財(cái)務(wù)室繳費(fèi)，收費(fèi)管理可以自動(dòng)根據(jù)新生的錄取專業(yè) 和安排的公寓等級(jí)確定收費(fèi)金額 ，用戶點(diǎn)擊繳費(fèi)按鈕，系統(tǒng)將首先判斷該生是否已經(jīng)繳清費(fèi)用，若已繳清，則提示 “ 該生已經(jīng)繳清費(fèi)用 ” ；若該生尚未繳清費(fèi)用，則系統(tǒng)將彈出 “ 收費(fèi)窗口 ” 。如圖 412 所示 。 圖 412 收費(fèi)窗口 源代碼略。 數(shù)據(jù)庫(kù)的連接 本系統(tǒng)后臺(tái)數(shù)據(jù)庫(kù)使用的是 SQL Server2020，數(shù)據(jù)庫(kù)名為 “ SCIT” 。數(shù)據(jù)庫(kù)中創(chuàng)建的表如前所述，下面簡(jiǎn)單介紹數(shù)據(jù)庫(kù)的連接方法。 創(chuàng)建數(shù)據(jù)源 先 打開(kāi) “ 控制面板 ”，再選擇“ 管理工具 ”， 選擇“ ODBC 數(shù)據(jù)源 ” 然后再添加數(shù)據(jù)源 ，然后 選擇 SQL Server，點(diǎn)擊 完成 ，然后選擇 數(shù)據(jù)源名稱為 “ SCIT”，再選擇“ 使用 Windows NT 驗(yàn)證 ” ，再選擇 默認(rèn)數(shù)據(jù)庫(kù)為 “ SCIT”點(diǎn)擊 完成 則可測(cè)試成功。 連接數(shù)據(jù)庫(kù) 本系統(tǒng)使用 Database 組件連接數(shù)據(jù)庫(kù)，在成功創(chuàng)建數(shù)據(jù)源后，設(shè)置 Database 組件的 Database name 屬性為 “ SCIT” ， Alias name 屬性為 “ SCIT” ，即可連接上數(shù)據(jù)庫(kù)。 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 33 第 5 章 系統(tǒng)運(yùn)行與測(cè)試 軟件測(cè)試既是軟件開(kāi)發(fā)階段的最后一項(xiàng)活動(dòng)，又是軟件質(zhì)量保證的最后一項(xiàng)措施。它所用的主要技術(shù)是白盒測(cè)試和黑盒測(cè)試。 軟件測(cè)試過(guò) 程大致可概括為用單元測(cè)試保證模塊正確工作，用綜合測(cè)試保證模塊集成到一起后正常工作，用確認(rèn)測(cè)試保證軟件需求的滿足。測(cè)試一旦發(fā)現(xiàn)錯(cuò)誤，必須定位并糾正此錯(cuò)，即通常所說(shuō)的排錯(cuò)過(guò)程。 系統(tǒng)運(yùn)行 在設(shè)計(jì)完成系統(tǒng)各個(gè)模塊后 ，將程序編譯成可執(zhí)行文件，點(diǎn)擊可執(zhí)行文件即可運(yùn)行系統(tǒng)。在尚未登錄之前，系統(tǒng)界面上只有“系統(tǒng)”菜單欄可見(jiàn)，其中包括登錄 系統(tǒng)、用戶管理，修改 口令和退出系統(tǒng)。 例如： 系統(tǒng)啟動(dòng)后，首先顯示管理系統(tǒng)的主窗體，如圖 51 所示。選擇“系統(tǒng)”→“登錄系統(tǒng)”菜單命令，打開(kāi)系統(tǒng)登錄窗體，如圖 52 所示。正確登錄后，系統(tǒng) 主窗體，如圖 53 所示。其他各個(gè) 功能也成功運(yùn)行。 圖 51 管理系統(tǒng)的主窗體 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 34 圖 52 登錄窗體 圖 53 成功 登錄后界面 系統(tǒng)測(cè)試 本系統(tǒng)采用的是黑盒測(cè)試方法， 這種方法是把測(cè)試對(duì)象看 成 一個(gè)黑盒子，測(cè)試人員完全不考慮程序內(nèi)部的邏輯結(jié)構(gòu)和內(nèi)部特性，只依據(jù)程序的需求規(guī)格說(shuō)明書，檢查程序的功能是否符合它的功能說(shuō)明。因此黑盒測(cè)試又叫功能測(cè)試或數(shù)據(jù)驅(qū)動(dòng)測(cè)試 [16]。 單 元 測(cè)試 單元測(cè)試的任務(wù)包括：模塊接口測(cè)試；模塊局部數(shù)據(jù)結(jié)構(gòu)測(cè)試；模塊邊界條件測(cè)試；模塊中所有獨(dú)立執(zhí)行通路測(cè)試；模塊的各條錯(cuò)誤 處理通路測(cè)試 [7]。 按照上述要求，對(duì)各個(gè)模塊進(jìn)行測(cè)試，并排除了模塊在邊界值 的 處理以及基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 35 錯(cuò)誤處理時(shí)存在的一些不當(dāng)，最終得到了運(yùn)行正常的各個(gè)模塊。 綜合測(cè)試 綜合測(cè)試是組裝軟件的系統(tǒng)測(cè)試技術(shù)，按設(shè)計(jì)要求把通過(guò)單元測(cè)試的各個(gè)模塊組裝在一起之后，進(jìn)行測(cè)試以便發(fā)現(xiàn)與接口有關(guān)的各種錯(cuò)誤。 本系統(tǒng)各個(gè)模塊集成到一起后，起初存在一些由變量聲明帶來(lái)的錯(cuò)誤，通過(guò)修改排錯(cuò)后，已正常運(yùn)行。 確認(rèn)測(cè)試 通過(guò)綜合測(cè)試以后，軟件已完全組裝起來(lái)，接口方面的錯(cuò)誤也已排除，軟件測(cè)試的最后一步確認(rèn)測(cè)試即可開(kāi)始。 確認(rèn)測(cè)試 是檢查軟件能否按要求進(jìn)行工作，即是否滿足軟件需求說(shuō)明書中的確認(rèn)標(biāo)準(zhǔn)。本系統(tǒng)成功實(shí)現(xiàn)了報(bào)名管理、住宿管理、繳費(fèi)管理、數(shù)據(jù)管理等一系列功能，順利地通過(guò)了確認(rèn)測(cè)試。 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 36 第 6 章 結(jié)論與展望 隨著計(jì)算機(jī)的迅速普及，計(jì)算機(jī)應(yīng)用的范圍也越來(lái)越廣 ，它已經(jīng)滲入到我們?nèi)粘Ｉ畹姆椒矫婷?，從政府、商業(yè)到學(xué)校，到處都能看到 計(jì)算機(jī)的身影。計(jì)算機(jī)的發(fā)展，替代了人類去完成很多枯燥煩瑣的工作，使得人們得以從機(jī)械化的工作中解放出來(lái)，轉(zhuǎn)而去做更多管理性的事務(wù)，這不僅大大提高社會(huì)生產(chǎn)的效率，也改善了人們的精神生活。 然而在新生報(bào)名管理這一領(lǐng)域，雖然目前國(guó)內(nèi)研究人員已做 出了許多積極的探索并取得相當(dāng)可觀的成果，然而其研究卻仍然更多地停留在理論上，沒(méi)有將其實(shí)際應(yīng)用到各大高校的報(bào)名工作去，我們可以看到，很多高等學(xué)校報(bào)名的方式仍然采用原始的手工管理方式，即使偶有使用軟件管理的，其軟件也存在各種各樣的問(wèn)題，例如沒(méi)有提供有效的信息查詢機(jī)制，沒(méi)有設(shè)計(jì)費(fèi)用設(shè)置模塊，不能適應(yīng)各高校費(fèi)用不同的實(shí)際情況，沒(méi)有對(duì)用戶進(jìn)行權(quán)限分配設(shè)置，保密性不好等等。 本系統(tǒng)的設(shè)計(jì)，一方面秉承了前人探索得到的有用思想方法，例如在新生表中添加狀態(tài)列，用以記錄新生所 處的報(bào)名狀態(tài)，新生狀態(tài)有：未報(bào)到；已報(bào)到，但未安排住宿；已報(bào)到、住宿，但未繳清費(fèi)用；完成報(bào)到手續(xù)。數(shù)據(jù)庫(kù)中以 0、 3 四個(gè)數(shù)字分別記錄這四種狀態(tài)，并采用顏色區(qū)別顯示的方法，使得新生狀態(tài)更加一目了然。另一方面，本系統(tǒng)的設(shè)計(jì)進(jìn)行了大量的改進(jìn)與創(chuàng)新，首先是在系統(tǒng)中設(shè)計(jì)了報(bào)到查詢、住宿查詢、住宿資源查詢、繳費(fèi)查詢、新生信息查詢等諸多查詢機(jī)制，操作人員不再是只能通過(guò)打印出報(bào)表進(jìn)行人工查詢，而是可以直接輸入一種檢索條件進(jìn)行電子查詢，其次是由于各大高校的收費(fèi)標(biāo)準(zhǔn)不一定相同，軟件中還增設(shè)了各項(xiàng)費(fèi)用的設(shè)置模塊，包括學(xué)費(fèi)、 其他費(fèi)、住宿費(fèi)用的初始化設(shè)置，大大拓廣了應(yīng)用程序的使用空間。最后，系統(tǒng)設(shè)計(jì)中把操作用戶分為兩類，一類是管理員，默認(rèn)為“ Admin”，擁有添加 、 修改、 刪除用戶等高級(jí)權(quán)限，另一類是普通用戶，可以使用除高級(jí)功能之外的其它功能。對(duì)用戶的分類提高了系統(tǒng)的保密性，進(jìn)一步完善了系統(tǒng)。 系統(tǒng)的設(shè)計(jì)總體來(lái)說(shuō)