【正文】 e (Sender: TObject。 var Action: TCloseAction)。varAUpline:TUpline。begin inherited。 showmessage(39。下機成功！39。)。 if ([39?？ㄌ?9。],date,time) then begin :=false。 :=true。 // showmessage(39。下機成功！39。)。 。 end。end。procedure (Sender: TObject)。varlistitem:Tlistitem。shangjidatetime:string。miao:real；begininherited。listitem:=。:=[39。卡號39。]。shangjidatetime:= [39。上機日期39。]+[39。上機時間39。]。 (shangjidatetime)。(datetimetostr(now))。(inttostr(GetTime(strtodatetime(shangjidatetime),now)))。miao:=GetTime(strtodatetime(shangjidatetime),now)。//(floattostr(miao))。(floattostr(miao*))。end。function (UpTime, DownTime: TDateTime): word。var Up,Down: TSystemTime。begin DateTimeToSystemTime(UpTime,Up)。 DateTimetoSystemTime(DownTime,Down)。 Result:=(( 系統(tǒng)費率設(shè)置 系統(tǒng)費率是一個比較重要的模塊，在此設(shè)置的費率會在系統(tǒng)的其他很多地方用到，而且我們也知道在不同的時間段里我們也有不同收費標(biāo)準(zhǔn)，而這個標(biāo)準(zhǔn)就是在這里設(shè)置的。此模塊還包括了設(shè)置最低提示機時等功能。： 費率設(shè)置界面對象屬性表對象名（控件名）屬性取值（說明）Palclient(tpanel)AlignmentTacentertaborader4namePalclientEditcharge(TEdit)EnabledtrueImeModeimdontcarenameEsitchargeEditmintime(tEdit)Text空白passwordchar0HideselectionTrueIbBtnok(TlableBtn)Caption確定AlignAlNoneEnabledTrueTransparentTrueIbBtnexit(TlableBtn)Caption取消EnabledtrueHelpTypeHtcontext功能實現(xiàn)源代碼：procedure (Sender: TObject)。begin inherited。 :=IntToStr()。 :=IntToStr()。 :=IntToStr()。 :=IntToStr()。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin inherited。 Action:=caFree。end。procedure (Sender: TObject)。var Temp:TSysSetup。begin inherited。 try with Temp do begin FCharge :=StrToInt()。 FMinTime :=StrToInt()。 FAutoHide :=StrToInt()。 FAutoSave :=StrToInt()。 :=FCharge。 :=FMinTime。 :=FAutoHide。 :=FAutoSave。 end。 finally ()。 ModalResult:=mrOK。 end。end。procedure (Sender: TObject。 var Key: Char)。begin inherited。 if not(Key in [39。039。..39。939。,8,13]) then begin Key:=0。 Beep。 end。end。end．第四章 系統(tǒng)調(diào)試與運行結(jié)果說明軟件測試是軟件開發(fā)過程的重要組成部分，是用來確認(rèn)一個程序的品質(zhì)或性能是否符合開發(fā)之前所提出的一些要求。軟件測試就是在軟件投入運行前，對軟件需求分析、設(shè)計規(guī)格說明和編碼的最終復(fù)審，是軟件質(zhì)量保證的關(guān)鍵步驟。軟件測試是為了發(fā)現(xiàn)錯誤而執(zhí)行程序的過程。軟件測試在軟件生存期中橫跨兩個階段：通常在編寫出每一個模塊之后就對它做必要的測試（稱為單元測試）。編碼和單元測試屬于軟件生存期中的同一個階段。在結(jié)束這個階段后對軟件系統(tǒng)還要進(jìn)行各種綜合測試，這是軟件生存期的另一個獨立階段，即測試階段。軟件測試的目的:第一是確認(rèn)軟件的質(zhì)量，其一方面是確認(rèn)軟件做了你所期望的事情（Do the right thing），另一方面是確認(rèn)軟件以正確的方式來做了這個事件（Do it right）。第二是提供信息，比如提供給開發(fā)人員或程序經(jīng)理的反饋信息，為風(fēng)險評估所準(zhǔn)備的信息。第三軟件測試不僅是在測試軟件產(chǎn)品的本身，而且還包括軟件開發(fā)的過程。如果一個軟件產(chǎn)品開發(fā)完成之后發(fā)現(xiàn)了很多問題，這說明此軟件開發(fā)過程很可能是有缺陷的。因此軟件測試的第三個目的是保證整個軟件開發(fā)過程是高質(zhì)量的。單元測試是針對軟件設(shè)計的最小單位——程序模塊，進(jìn)行正確性檢驗的測試工作。其目的在于發(fā)現(xiàn)每個程序模塊內(nèi)部可能存在的差錯。 在編碼的過程中作單元測試，其花費是最小的，而回報卻特別優(yōu)厚的。在編碼的過程中考慮測試問題，得到的將是更優(yōu)質(zhì)的代碼，因為在這時您對代碼應(yīng)該做些什么了解得最清楚。如果不這樣做，而是一直等到某個模塊崩潰了，到那時可能已經(jīng)忘記了代碼是怎樣工作的。即使是在強大的工作壓力下，您也還必須重新把它弄清楚，這又要花費許多時間。進(jìn)一步說，這樣做出的更正往往不會那么徹底，可能更脆弱，因為喚回的理解可能不那么完全。單元測試的目標(biāo)在于不僅測試代碼的功能性，還需確保代碼在結(jié)構(gòu)上可靠且健全，并且能夠在所有條件下正確響應(yīng)。如果這些系統(tǒng)中的代碼未被適當(dāng)測試，則其弱點可被用于侵入代碼，并導(dǎo)致安全性風(fēng)險（例如內(nèi)存泄漏或被竊指針）以及性能問題。執(zhí)行完全的單元測試，可以減少應(yīng)用級別所需的工作量，并且徹底減少發(fā)生誤差的可能性。但是如果手動執(zhí)行，單元測試可能需要大量的工作。執(zhí)行高效率單元測試的關(guān)鍵是自動化。該測試的目的是保證登陸窗口的正確性與在錯誤發(fā)生時的容錯與糾錯性。具體通過在登陸框中輸入空用戶名，和錯誤的用戶密碼來檢測系統(tǒng)的出錯運行情況。要求系統(tǒng)在遇到這些情況時能給出正確的錯誤提示。： 登陸失敗提示界面該測試的目的是要求系統(tǒng)能正確分辨用戶，在輸入錯誤的卡號或在么一卡號正在使用的情況下再次輸入這一卡號時能給出正確的錯誤提示。 ，： 上機卡號輸入錯誤提示界面 上機卡號重復(fù)輸入提示界面結(jié)束語經(jīng)歷了二個月的磨練，感覺自己學(xué)到了不少的東西，大學(xué)四年中，這二個月是不平凡的二個月，從開始著手做論文到論文結(jié)束這段時間有過憂郁和煩躁；有過高興和驚奇；也有過失落和無助。在做論文當(dāng)中遇到了不少的麻煩，有時候一個小小的問題都需要糾纏一天甚至幾天，但是當(dāng)你解決一個難題，那種喜悅的感覺真的很叫人回味。雖然遇到了很多的挫折，但是我的收獲還是很大的，我體會到了做好總體需求和設(shè)計的重要性，否則當(dāng)遇到問題再去修改時，前面的很多工作就會白費掉。而且在整個的設(shè)計過程中，我還學(xué)會了在浩瀚的書籍資料世界和Internet世界中中迅速查找自己想要的內(nèi)容的方法。另外對于B/S結(jié)構(gòu)的Web應(yīng)用程序有更深刻的認(rèn)識，對于ACCESS中連接數(shù)據(jù)庫。編寫論文的過程同樣是一個學(xué)習(xí)的過程，它是對整個軟件設(shè)計過程的反映，為設(shè)計做了一個完美的總結(jié)。通過這二個月的學(xué)習(xí)與努力，使我明白了無論什么事情只要自己努去做，就沒有辦不成的；通過這二個月的學(xué)習(xí)與努力，使我掌握了完成一個 B/S 結(jié)構(gòu)系統(tǒng)的基本方法:怎樣進(jìn)行系統(tǒng)分析；進(jìn)行編程規(guī)范制定、功能設(shè)計、頁面設(shè)計、數(shù)據(jù)庫設(shè)計和接口設(shè)計，這些都是在以前的課程學(xué)習(xí)和實習(xí)過程中沒有完全掌握的；通過這二個月的學(xué)習(xí)，我比較好的掌握了Delphi編程語言ACCESS，從開始的一無所知到用它做出程序來，我確實花了些功夫，這期間我查閱了大量的關(guān)于Delphi的資料，包括書本上的、網(wǎng)絡(luò)上的，雖然有時候不能查找到符合我的要求的資料，但查找到相關(guān)的資料，仍然使我受益匪淺；通過這二個月的學(xué)習(xí)，為我以后走向社會提供了很好的實踐，并提高了自己在社會的競爭能力。當(dāng)然，由于時間和知識水平的限制，設(shè)計中存在不完善的地方在所難免，敬請各位老師批評指正，我會努力的！參考文獻(xiàn)[1] [J]. 漳州師范學(xué)院學(xué)報(自然科學(xué)版).2005(02)[2] [J]. (17)[3] . 計算機機房的維護(hù)與管理[J]. (02)[4] . 計算機機房管理中若干問題的探討[J].(02)[5] [J].桂林師范高等?？茖W(xué)校學(xué)報,2003,17(1).[6] 徐瑞圓,[J].河北工業(yè)科技. 2003,9（1）：23~41[7] 李維．Delphi7高效數(shù)據(jù)庫程序設(shè)計[M]． 北京：機械工業(yè)出版社，2003[8] 劉淳． 機房計費管理系統(tǒng)開發(fā)技術(shù)探討[J]．交通與計算機學(xué)刊．2001，19： 96～108[9] 魏江江，李青，孫立京 ． Delphi 編程百例通[M]． 北京：科學(xué)出版社，2002[10] 趙國芬． 開放式計算機機房的管理對策[J]．河南大學(xué)常州分校學(xué)報?。?003，5： 52～61[11] 白志文, 叢淑麗．開放性機房管理系統(tǒng)軟件開發(fā)研究[J]．長春大學(xué)學(xué)報．2001，7：34～56 [12] 劉俊,[J].微計算機信息. ：28~54 [13] 陳衛(wèi). B/S結(jié)構(gòu)應(yīng)用程序開發(fā)秘籍[M].北京：國防工業(yè)大學(xué)出版社,2001[14 ] 王艷鳳．實驗室信息管理系統(tǒng)的設(shè)計與開發(fā)[J]高等函授學(xué)報．2003，6：50～63致 謝在此論文完成這際，謹(jǐn)向所有關(guān)心和幫助我的老師、同學(xué)表示我最衷心的感謝！我要特別感謝的是我的導(dǎo)師文明全，感謝他兩個多月以來對我的悉心指導(dǎo)，從論文的選題、程序的框架設(shè)計到具體的編程實現(xiàn)。從文老師扎實的專業(yè)功底和嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度中，我所感受到的不僅是他的淵博學(xué)識，更重要的是他永不滿足的學(xué)者風(fēng)范。總之，畢業(yè)設(shè)計中，我從文老師身上學(xué)到的不光是動手運用理論知識，解決實際問題的能力，更是永遠(yuǎn)在路上的前進(jìn)信念。同時還要感謝計算機系的領(lǐng)導(dǎo)多年來對我的培養(yǎng)和支持，是他們?yōu)槲姨峁┝肆己玫膶W(xué)習(xí)環(huán)境和機會。感謝各位專家和評委耐心審閱我的論文，他們提出了許多寶貴的意見和建議。還要感謝我的室友，在我不懂需要幫助的時候，不厭其煩的伸出援助之手。感謝所有曾經(jīng)給我理解、關(guān)心與幫助的朋友們。39