【導(dǎo)讀】步伐，是學(xué)生主動(dòng)學(xué)習(xí)計(jì)算機(jī)知識(shí)的基礎(chǔ)條件。為能使學(xué)生能夠更多的學(xué)習(xí)計(jì)算。機(jī)知識(shí)，適應(yīng)社會(huì)發(fā)展的需要，各高校都有自己的公共機(jī)房。然而，這使管理工。將出現(xiàn)問(wèn)題，難以收到理想的效果。為提高實(shí)驗(yàn)室的管理，該畢業(yè)設(shè)計(jì)結(jié)合高等。該系統(tǒng)包括了登陸模塊、系統(tǒng)費(fèi)率模塊、上機(jī)管理模塊設(shè)計(jì)。理員只需點(diǎn)“上機(jī)”按扭即可。結(jié)帳也很方便，點(diǎn)“下機(jī)”按扭自動(dòng)結(jié)帳，并顯。示該用戶此次上機(jī)的總用時(shí)和相應(yīng)收費(fèi)情況。該系統(tǒng)支持多費(fèi)率計(jì)費(fèi)功能。員可以自行設(shè)置各種收費(fèi)標(biāo)準(zhǔn)。能也是系統(tǒng)的核心之一。該系統(tǒng)是大型數(shù)據(jù)庫(kù)Access與DELPHI技術(shù)的完美結(jié)。合，以方便性，安全性，穩(wěn)定性，易操作性為特點(diǎn)?；芾砟Ｊ揭殉蔀閷W(xué)校實(shí)驗(yàn)室面臨的一項(xiàng)緊迫而重要的任務(wù)。為此，針對(duì)實(shí)驗(yàn)室的管理現(xiàn)狀，建立了。本，培養(yǎng)學(xué)生的科技意識(shí)。需求，許多計(jì)算機(jī)機(jī)房都紛紛對(duì)外開(kāi)放，實(shí)行計(jì)時(shí)收費(fèi)。但隨著上機(jī)人數(shù)的增多，管理人員的有限等因素，計(jì)算機(jī)機(jī)房的管理成了一個(gè)非常困難的問(wèn)題。

　　

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