【正文】 。 還要感謝我的室友，在我不懂需要幫助的時候，不厭其煩的伸出援助之手。 同時還要感謝計算機系的領(lǐng)導(dǎo)多年來對我的培養(yǎng)和支持，是他們?yōu)槲姨峁┝肆己玫膶W(xué)習(xí)環(huán)境和機會。從文老師扎實的專業(yè)功底和嚴謹?shù)闹螌W(xué)態(tài)度中，我所感受到的不僅是他的淵博學(xué)識，更重要的是他永不滿足的學(xué)者風(fēng)范。 通過這二個月的學(xué)習(xí)與努力，使我明白了無論什么事情只要自己努去做，就沒有辦不成的；通過這二個月的學(xué)習(xí)與努力，使我掌握了完成一個 B/S 結(jié)構(gòu)系統(tǒng)的基本方法 :怎樣進行系統(tǒng)分析；進行編程規(guī)范制定、功能設(shè)計、頁面設(shè)計、數(shù)據(jù)庫設(shè)計和接口設(shè)計，這些都是在以前的課程學(xué)習(xí)和實習(xí)過程中沒有完全掌握的；通過這二個月的學(xué)習(xí)，我比較好的掌握了 Delphi 編程語言 ACCESS，從開始的一無所知到用它做出程序來，我確實花了些功夫，這期間我查閱了大量的關(guān)于Delphi 的資料，包括書本上 的、網(wǎng)絡(luò)上的，雖然有時候不能查找到符合我的要求的資料，但查找到相關(guān)的資料，仍然使我 受益匪淺；通過這二個月的學(xué)習(xí)，為我以后走向社會提供了很好的實踐，并提高了自己在社會的競爭能力。另外對于 B/S 結(jié)構(gòu)的 Web 應(yīng)用程序有更深刻的認識，對于 ACCESS 中連接數(shù)據(jù)庫。 雖然遇到了很多的挫折，但是我的收獲還是很大的，我體會到了做好總體需求和設(shè)計的重要性，否則當(dāng)遇到問題再去修改時，前面的很多工作就會白費掉。 提示結(jié)果如圖 ， ： 圖 上機卡號輸入錯誤提示界面 圖 上機卡號重復(fù)輸入提示界面 37 結(jié)束語 經(jīng)歷了二個月的磨練，感覺自己學(xué)到了不少的東西，大學(xué)四年中，這二個月是不平凡的二個月，從開始著手做論文到論文結(jié)束這段時間有過憂郁和煩躁；有過高興和驚奇；也 有過失落和無助。要求系統(tǒng)在遇到這些情況時能給出正確的錯誤提示。 用戶登錄窗口的測試 該測試的目的是保證登陸窗口的正確性與在錯誤發(fā)生時的容錯與糾錯性。但是如果手動執(zhí)行，單元測試可能需要大量的工作。如果這些系統(tǒng)中的代碼未被適當(dāng)測試，則其弱點可被用于侵入代碼，并導(dǎo)致安全性風(fēng)險（例如內(nèi)存泄漏或被竊指針）以及性能問題。進一步說，這樣做出的更正往往不會那么徹底，可能更脆弱，因為喚回的理解可能不那么完全。如果不這樣做，而是一直等到某個模塊崩潰了，到那時可能已經(jīng)忘記了代碼是怎樣工作的。 在編碼的過程中作單元測試，其花費是最小的，而回報卻特別優(yōu)厚的。 單元測試是針對軟件設(shè)計的最小單位 —— 程序模塊，進行正確性檢驗的測試工作。如果一個軟件產(chǎn)品開發(fā)完成之后發(fā)現(xiàn)了很多問題，這說明此軟件開發(fā)過程很可能是有缺陷的。 第二是提供信息，比如提供給開 發(fā)人員或程序經(jīng)理的反饋信息，為風(fēng)險評估所準備的信息。在結(jié)束這個階段后對 軟件系統(tǒng) 還要進行各種綜合測試，這是軟件生存期的另一個獨立階段，即測試階段。 軟件測試在軟件生存期中橫跨兩個階段：通常在編寫出每一個模塊之后就對它做必要的測試（稱為 單元測試 ）。 軟件 測試就是在軟件投入運行前，對軟件需求 分析、設(shè)計規(guī)格說明和編碼的最終 復(fù)審 ，是 軟件質(zhì)量保證 的關(guān)鍵步驟。 end。 Beep。939。039。 begin inherited。 procedure (Sender: TObject。 end。 finally ()。 :=FAutoSave。 :=FMinTime。 FAutoSave :=StrToInt()。 FMinTime :=StrToInt()。 begin inherited。 34 procedure (Sender: TObject)。 Action:=caFree。 var Action: TCloseAction)。 end。 :=IntToStr()。 :=IntToStr()。詳細設(shè)計時各對象屬性如表 ： 表 計費 費率設(shè)置界面對象屬性表 對象名（控件名） 屬性 取值（說明） Palclient(tpanel) Alignment Tacenter taborader 4 name Palclient Editcharge(TEdit) Enabled true ImeMode imdontcare name Esitcharge Editmintime(tEdit) Text 空白 passwordchar 0 Hideselection True IbBtnok(TlableBtn) Caption 確定 Align AlNone Enabled True Transparent True IbBtnexit(TlableBtn) Caption 取消 Enabled true HelpType Htcontext 功能實現(xiàn)源代碼： procedure (Sender: TObject)。 Result:=(( 33 系統(tǒng)費率設(shè)置 系統(tǒng)費率是一個比較重要的模塊，在此設(shè)置的費率會在系統(tǒng)的其他很多地方用到，而且我們也知道在不同的時間段里我們也有不同收費標準，而這個標準就是在這里設(shè)置的。 begin DateTimeToSystemTime(UpTime,Up)。 function (UpTime, DownTime: TDateTime): word。 (floattostr(miao*))。 miao:=GetTime(strtodatetime(shangjidatetime),now)。 (datetimetostr(now))。]。]+[39。 shangjidatetime:= [39?？ㄌ?39。 listitem:=。 miao:real； begin inherited。 var listitem:Tlistitem。 end。 。下機成功！ 39。 :=true。 卡號 39。)。 showmessage(39。var AUpline:TUpline。詳細設(shè)計時各對象屬性如表 ： 表 下機收費 管理界面對象屬性表 對象名（控件名） 屬性 取值（說明 ） Xiaji Bisystm Menu True Biminimize False Caption 下機收費 Listview1(Tlistview) Gridlines True Tableorder 1 [0] Caption 卡號 [1] Caption 上機時間 [2] Caption 下機時間 [3] Caption 用時（分） [4] Caption 費用（元） Button1 (tbutton) Caption 關(guān)閉 31 下機流程如下圖 ： 圖 下機流程圖 實現(xiàn)功能代碼： procedure (Sender: TObject。 end. 下機功能 模塊 設(shè)計 在有人上機的情況下，點下機按扭，系統(tǒng)將會彈出一下機收費界面，此界面顯示了卡號 ，上機時間，下機時間， 總用時以及費用。 Action:=caFree。 var Action: TCloseAction)。 30 end。 then ModalResult:=mrOK。 if =39。)。+inttostr()+39。)and ( ) then ShowMessage(39。 if ( =39。39。 // 學(xué)生上機 :=Trim()。 var Upline:TUpline。 end。 MIBtnOKClick(MIBtnOK)。 begin inherited。 詳細設(shè)計時各對象屬性如表 ： 28 表 上機在線列表模塊對象屬性表 對象名（控件名） 屬性 取值（說明） Abgonline(TDBgrid) datasource Helpcontext 0 Helptype htcontext Readonly true Panel1(tpanel) Bevelonter bvlonered BeveLInner bvNone FullRepaint true Hbtnapline(THemiBtn) caption 上機 HelpType 上機 /上機 parentFont True showHint True HbtnDownline(TheniBtn) caption 下機 HelpType 下機 /下機 parentFont True showHint True 上機流程如圖 ： 圖 上機流程圖 29 實現(xiàn)功能源代碼： procedure (Sender: TObject。此模塊可實現(xiàn)上機，下機以及全部上機記錄的顯示等功能 [9]。 end。 MIBtnOKClick(MIBtnOK)。 begin inherited。 procedure (Sender: TObject。 ModalResult:=mrCancel。 procedure (Sender: TObject)。)。 end else ShowMessage(39。 end。,MB_OK or MB_ICONERROR)。,39。 if PassNum2 then begin MessageBox(handle,39。,MB_OK or MB_ICONERROR)。,39。 end else if (,laugh) then ModalResult:=mrOK else begin MessageBox(handle,39。 end。 curDataPath:=APath。 26 end。)。 then begin showmessage(39。 if APath=39。 exit。請輸入用戶名 39。39。 APath:=trim()。 begin inherited。而且該系統(tǒng)用一個可以導(dǎo)入數(shù)據(jù)庫的按扭，這樣不用每次都重新調(diào)整數(shù)據(jù)庫，方便其他用戶使用，只有 3個都正確填入時點確定，才能進入下一個窗體，這樣才登陸成功，成功后該系統(tǒng)把用戶名稱和數(shù)據(jù)文件寫入注冊表，下次運行則自動讀取。 即簡單 ,又明了 . 經(jīng)過對系統(tǒng)的分析首先得 DFD 圖 ，如下 圖 ： 圖 DFD 圖 (登陸管理 ) 再進一步細化每一個數(shù)據(jù)加工功能，得到系 統(tǒng)的 DFD 圖 如下圖 ， ， 20 圖 DFD 圖（上機管理） 圖 DFD 圖（費率設(shè)置） 在經(jīng)過 以上 階段的分析， 使 我確定了 系統(tǒng) 所要做的是 .以及應(yīng)實現(xiàn)的有關(guān)功能 . 概要設(shè)計 開放性實驗室輔助管理系統(tǒng)總的功能劃分如圖 ： 系統(tǒng) 設(shè)置 系統(tǒng)設(shè) 置表 系統(tǒng) 參數(shù) 學(xué)生 上機 學(xué)生 下機 記錄 查詢 記錄 統(tǒng)計 記錄 打印 當(dāng)前在機表 以前上機表 21 圖 系統(tǒng) 模塊 圖 系統(tǒng)功能描述 從幾年來的使用和管理經(jīng)驗來看，學(xué)校需要的 “ 機房計費管理系統(tǒng) ” 管理端與客戶端應(yīng)能達到和解決如下一些問題： ◆ 可以支持 windows xp 操作系統(tǒng)的計費； ◆ 計費客戶端盡可能脫離操作系統(tǒng)運行，最大限度的降低學(xué)生破解的可能性，增加安全性，增強系統(tǒng)穩(wěn)定性，減少維護量； ◆ 實現(xiàn)跨網(wǎng)段、跨路由，突破網(wǎng)段的限制； ◆ 能滿足大校區(qū)／多校區(qū)的要求，支持大數(shù)量 PC，保證整個系統(tǒng)的穩(wěn)定； ◆ 刷卡上機，學(xué)生一次只能開啟一臺 PC，對其他機 器無使用權(quán)； ◆ 學(xué)生下機注銷自動關(guān)閉計算機，； ◆ 門禁機可顯示各個機房狀態(tài)和機房的預(yù)約狀態(tài)； ◆ 可設(shè)定指定學(xué)生上機位置，或隨意上機； ◆ 對不同的用戶、不同的機房或不同的電腦設(shè)定不同的費率和收費系數(shù)； ◆ 預(yù)約和自由上機記費模式可自動切換； ◆ 可提臨時上機、帳號上機等多種模式，且各模式可同時并存； ◆ 可將用戶原有的數(shù)據(jù)導(dǎo)入、導(dǎo)出功能，方便學(xué)生數(shù)據(jù)維護與生成； ◆ 可將公共消息發(fā)布到學(xué)生電腦上去的公告版消息理； 實驗室計費管理系統(tǒng) 系統(tǒng)登陸管理 系統(tǒng)上機管理 系統(tǒng)費率 管理 22