【正文】 t(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)。 :=IntToStr()。 var Action: TCloseAction)。 34 procedure (Sender: TObject)。 FMinTime :=StrToInt()。 :=FMinTime。 finally ()。 procedure (Sender: TObject。039。 Beep。 軟件 測(cè)試就是在軟件投入運(yùn)行前，對(duì)軟件需求 分析、設(shè)計(jì)規(guī)格說(shuō)明和編碼的最終 復(fù)審 ，是 軟件質(zhì)量保證 的關(guān)鍵步驟。在結(jié)束這個(gè)階段后對(duì) 軟件系統(tǒng) 還要進(jìn)行各種綜合測(cè)試，這是軟件生存期的另一個(gè)獨(dú)立階段，即測(cè)試階段。如果一個(gè)軟件產(chǎn)品開(kāi)發(fā)完成之后發(fā)現(xiàn)了很多問(wèn)題，這說(shuō)明此軟件開(kāi)發(fā)過(guò)程很可能是有缺陷的。 在編碼的過(guò)程中作單元測(cè)試，其花費(fèi)是最小的，而回報(bào)卻特別優(yōu)厚的。進(jìn)一步說(shuō)，這樣做出的更正往往不會(huì)那么徹底，可能更脆弱，因?yàn)閱净氐睦斫饪赡懿荒敲赐耆?。但是如果手?dòng)執(zhí)行，單元測(cè)試可能需要大量的工作。要求系統(tǒng)在遇到這些情況時(shí)能給出正確的錯(cuò)誤提示。 雖然遇到了很多的挫折，但是我的收獲還是很大的，我體會(huì)到了做好總體需求和設(shè)計(jì)的重要性，否則當(dāng)遇到問(wèn)題再去修改時(shí)，前面的很多工作就會(huì)白費(fèi)掉。 通過(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)能力。 同時(shí)還要感謝計(jì)算機(jī)系的領(lǐng)導(dǎo)多年來(lái)對(duì)我的培養(yǎng)和支持，是他們?yōu)槲姨峁┝肆己玫膶W(xué)習(xí)環(huán)境和機(jī)會(huì)。 。 還要感謝我的室友，在我不懂需要幫助的時(shí)候，不厭其煩的伸出援助之手。從文老師扎實(shí)的專業(yè)功底和嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度中，我所感受到的不僅是他的淵博學(xué)識(shí)，更重要的是他永不滿足的學(xué)者風(fēng)范。另外對(duì)于 B/S 結(jié)構(gòu)的 Web 應(yīng)用程序有更深刻的認(rèn)識(shí)，對(duì)于 ACCESS 中連接數(shù)據(jù)庫(kù)。 提示結(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ú)助。 用戶登錄窗口的測(cè)試 該測(cè)試的目的是保證登陸窗口的正確性與在錯(cuò)誤發(fā)生時(shí)的容錯(cuò)與糾錯(cuò)性。如果這些系統(tǒng)中的代碼未被適當(dāng)測(cè)試，則其弱點(diǎn)可被用于侵入代碼，并導(dǎo)致安全性風(fēng)險(xiǎn)（例如內(nèi)存泄漏或被竊指針）以及性能問(wèn)題。如果不這樣做，而是一直等到某個(gè)模塊崩潰了，到那時(shí)可能已經(jīng)忘記了代碼是怎樣工作的。 單元測(cè)試是針對(duì)軟件設(shè)計(jì)的最小單位 —— 程序模塊，進(jìn)行正確性檢驗(yàn)的測(cè)試工作。 第二是提供信息，比如提供給開(kāi) 發(fā)人員或程序經(jīng)理的反饋信息，為風(fēng)險(xiǎn)評(píng)估所準(zhǔn)備的信息。 軟件測(cè)試在軟件生存期中橫跨兩個(gè)階段：通常在編寫出每一個(gè)模塊之后就對(duì)它做必要的測(cè)試（稱為 單元測(cè)試 ）。 end。939。 begin inherited。 end。 :=FAutoSave。 FAutoSave :=StrToInt()。 begin inherited。 Action:=caFree。 end。 :=IntToStr()。 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è)置的。 function (UpTime, DownTime: TDateTime): word。 miao:=GetTime(strtodatetime(shangjidatetime),now)。]。 shangjidatetime:= [39。 listitem:=。 var listitem:Tlistitem。 。 :=true。)。var AUpline:TUpline。 end. 下機(jī)功能 模塊 設(shè)計(jì) 在有人上機(jī)的情況下，點(diǎn)下機(jī)按扭，系統(tǒng)將會(huì)彈出一下機(jī)收費(fèi)界面，此界面顯示了卡號(hào) ，上機(jī)時(shí)間，下機(jī)時(shí)間， 總用時(shí)以及費(fèi)用。 var Action: TCloseAction)。 then ModalResult:=mrOK。)。)and ( ) then ShowMessage(39。39。 var Upline:TUpline。 MIBtnOKClick(MIBtnOK)。 詳細(xì)設(shè)計(jì)時(shí)各對(duì)象屬性如表 ： 28 表 上機(jī)在線列表模塊對(duì)象屬性表 對(duì)象名（控件名） 屬性 取值（說(shuō)明） Abgonline(TDBgrid) datasource Helpcontext 0 Helptype htcontext Readonly true Panel1(tpanel) Bevelonter bvlonered BeveLInner bvNone FullRepaint true Hbtnapline(THemiBtn) caption 上機(jī) HelpType 上機(jī) /上機(jī) parentFont True showHint True HbtnDownline(TheniBtn) caption 下機(jī) HelpType 下機(jī) /下機(jī) parentFont True showHint True 上機(jī)流程如圖 ： 圖 上機(jī)流程圖 29 實(shí)現(xiàn)功能源代碼： procedure (Sender: TObject。 end。 begin inherited。 ModalResult:=mrCancel。)。 end。,39。,MB_OK or MB_ICONERROR)。 end else if (,laugh) then ModalResult:=mrOK else begin MessageBox(handle,39。 curDataPath:=APath。)。 if APath=39。請(qǐng)輸入用戶名 39。 APath:=trim()。而且該系統(tǒng)用一個(gè)可以導(dǎo)入數(shù)據(jù)庫(kù)的按扭，這樣不用每次都重新調(diào)整數(shù)據(jù)庫(kù)，方便其他用戶使用，只有 3個(gè)都正確填入時(shí)點(diǎn)確定，才能進(jìn)入下一個(gè)窗體，這樣才登陸成功，成功后該系統(tǒng)把用戶名稱和數(shù)據(jù)文件寫入注冊(cè)表，下次運(yùn)行則自動(dòng)讀取。它有 三 種基本圖形符號(hào)： ◆ → ：箭頭，表示數(shù)據(jù)流； ◆ 〇：圓或橢圓，表示加工； ◆ □ ：方框，表示數(shù)據(jù)的源點(diǎn)或終點(diǎn)。 2. 有盤工作站網(wǎng)絡(luò) 操作系統(tǒng)要求：管理機(jī)操作系統(tǒng)為 windows98， windows20xx， windows nt，無(wú)盤工作站操作系統(tǒng)為 windows9 windows20xx、 windows nt。 1． 一個(gè)互聯(lián)網(wǎng)出口 集中式系統(tǒng)適應(yīng)的標(biāo)準(zhǔn)網(wǎng)絡(luò)結(jié)構(gòu)如 圖 所示 圖 一個(gè)互聯(lián)網(wǎng)出口 標(biāo)準(zhǔn)結(jié)構(gòu)中： 互聯(lián)網(wǎng)接入服務(wù)器：為服務(wù)器或共享器，機(jī)房?jī)?nèi)計(jì)算機(jī)都是通過(guò)該上網(wǎng)代理服務(wù)器完成上網(wǎng)功能。 （ 4） .總結(jié) 機(jī)房的管理既關(guān)系到計(jì)算機(jī)基礎(chǔ)教學(xué)和其他課程的計(jì)算機(jī)實(shí)踐教學(xué)的質(zhì)量，也反應(yīng)了一個(gè)學(xué)校的信息化建設(shè)的水 平，是不可忽視的大問(wèn)題。它的優(yōu)點(diǎn)是：不依賴于網(wǎng)絡(luò)，系統(tǒng)比較安全，客戶端不需要安裝軟件；缺點(diǎn)是：讀卡機(jī)和 IC 卡使用頻率非常高，硬件磨損很快，故障較多，容易影響教學(xué)；正常的上課時(shí)間也需要學(xué)生插卡，使用和維護(hù)起來(lái)比較麻煩，每天的維護(hù)量太大；純硬件的管理功能非常薄弱，可設(shè)置收費(fèi)標(biāo)準(zhǔn)非常少，只有兩三種；而且它的前期安裝麻煩、后期維護(hù)費(fèi)用非常高。 （ 1） .純軟件計(jì)費(fèi) 它在各臺(tái) PC 的操作系統(tǒng)中安裝一套計(jì)費(fèi)客戶端 軟件，通過(guò)局域網(wǎng)絡(luò)的服務(wù)器端和客戶端進(jìn)行通訊，驗(yàn)證使用者身份，實(shí)現(xiàn)對(duì)使用者計(jì)費(fèi)。計(jì)費(fèi)管理系統(tǒng)此處分為登陸模塊、上機(jī)管理模塊、系統(tǒng)費(fèi)率設(shè)置模塊部分。實(shí)驗(yàn)室輔助管理系統(tǒng) — 低值用品管理模塊基本上是在計(jì)算機(jī)編程實(shí)現(xiàn)，費(fèi)用主要有損耗費(fèi)、成本費(fèi)用。 技術(shù)可行性，采用結(jié)構(gòu)化分析方法和基于瀏覽器 /服務(wù)器體系結(jié)構(gòu)，建立網(wǎng)絡(luò)體系，可以實(shí)現(xiàn)實(shí)驗(yàn)室輔助管理網(wǎng)絡(luò)化，從而為企業(yè)或單位節(jié)省成本或者資源。 傳統(tǒng)的實(shí)驗(yàn)室輔助管理只是對(duì)手工管理的簡(jiǎn)單模仿，設(shè)備的靜態(tài)信息數(shù)據(jù)記錄規(guī)范化，以便準(zhǔn)確、及時(shí)、高效地分析處理這些信息。利用該語(yǔ)言以及系統(tǒng)提供的可視化和向?qū)?，便可以設(shè)計(jì)出具有一定規(guī)模、功能強(qiáng)大的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)。它支持的字段類型有數(shù)字 文本、日期、貨幣、備注、是 /否及 OLE 對(duì)象和空值等。Access 是一種數(shù)據(jù)庫(kù)管理系統(tǒng)（ DBMS） ,它同 Oracle、 DBASE 和 Foxpro 等數(shù)據(jù)庫(kù)軟件系統(tǒng)一樣，用于構(gòu)造數(shù)據(jù)庫(kù)應(yīng)用程序并實(shí)行對(duì)數(shù)據(jù)庫(kù)的統(tǒng)一管理。 Access 可以方便地利用各種數(shù)據(jù)源，包括 dBASE, FoxBase,FoxPro,Excel,Word 等。 Access 13 列出了一些常用的操作供用戶選擇，使用起來(lái)十分方便。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。 表 (Table) ——表是數(shù) 據(jù)庫(kù)的基本對(duì)象，是創(chuàng)建其他 5 種對(duì)象的基礎(chǔ)。 Access 不僅是一個(gè)數(shù)據(jù)庫(kù)，而且它具有強(qiáng)大的數(shù)據(jù)管理功能，它可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報(bào)表和應(yīng)用程序等。同為 Office 套件中一部分的 Access，雖然有著同樣強(qiáng)大的功能，但使用的人卻相對(duì)少些，不像 Word 和 Excel 那樣廣泛。 12 靜態(tài) SQL 語(yǔ)句在程序設(shè)計(jì)時(shí)便已固定下來(lái)，它不包含任何參數(shù)和變量。 TDataSource 組件，設(shè)置其 DataSet 屬性為 ADOTable1. DataGrid 組件，設(shè)置 DataSource 屬性為 DataSource ADOTable1 的 Active 屬性為 true. SQL 語(yǔ)言在 Delphi 中的應(yīng)用 在 Delphi 中使用 SQL 語(yǔ)言非常方便，一般來(lái)說(shuō)，都是通過(guò) Tquery 組件來(lái)使用SQL 語(yǔ)言的。同樣， TADOCommand 也沒(méi)有相對(duì)應(yīng)的 BDE 組件，它是在 Delphi/ADO 環(huán)境中完成特定功能的組件 [2]。TADOConnection 組件與基于 BDE 的應(yīng)用程序中的 Tdatabase 組件類似。其主要優(yōu)點(diǎn)是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。 ADO 設(shè)計(jì)為一種極簡(jiǎn)單的格式，通過(guò) ODBC 的方法同數(shù)據(jù)庫(kù)接口中，可以使用任何一種 ODBC 數(shù)據(jù)源，即不止適合于 SQL Server、 Oracle、 Access等數(shù)據(jù)庫(kù)應(yīng)用程序，也適合于 Excel 表格、文本文件、圖形文件和無(wú)格式的數(shù)據(jù)文件。 20xx 年 11 月， borland 為 delphi7 提供了修改后的 ，使 vcl 組件可以在 . 環(huán)境下使用。 10 在失敗的 Delphi4 以后， Borland 小心的推出了 ,重新建立 delphi的聲望， delphi 受到 delphi 開(kāi)發(fā)人員一致推崇。 Delphi 中，增加了 Data Modules 的概念，可以將數(shù)據(jù)包裝在一個(gè)模塊中，在系統(tǒng)啟動(dòng)時(shí)或空閑時(shí) 將它打開(kāi)，這樣，所有使用這些 Table 的模塊都可以公用它，避免重復(fù)打開(kāi)和關(guān)閉。 完成了 16 位到 32位的跨越，提供了 32 位操作系統(tǒng)的完整支持，只能在 W