【正文】 語法調(diào)試和邏輯檢查，測試數(shù)據(jù)除采用正常數(shù)據(jù)外，還應(yīng)用一些異常資料，用來考驗(yàn)程序的正確性。 33 分調(diào) 即將一個(gè)功能內(nèi)所有程序按次序串聯(lián)起來調(diào)試，這種調(diào)試的目的主要是保證內(nèi)部控制關(guān)系正確和數(shù)據(jù)內(nèi)容正確，同時(shí)測試模塊的運(yùn)轉(zhuǎn)效率。在查詢出庫信息中是否能 查處某種藥品的出庫資料。如要求軟件某一行為的大量重復(fù)、輸入大量的數(shù)據(jù)或大數(shù)值數(shù)據(jù)、對數(shù)據(jù)庫大量復(fù)雜的查詢等。 恢復(fù)測試 34 采用人工的干擾使軟件出錯(cuò)，中斷使用，檢測系統(tǒng)的恢復(fù)能力。具體體現(xiàn)為操作是 否方便，用戶界面是否友好等。同時(shí)也考慮到了單位編碼以減少數(shù)據(jù)冗余的問題，對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。 參考文獻(xiàn) 1． 羅光春 譯 ，中文 Delphi 5 從入門到精通，電子科技大學(xué)出版社， 2021年 1 月 2． 張更路 著，熱門軟件邊學(xué)邊用系列之十六 —— Delphi 據(jù)庫程序設(shè)計(jì)教程，北京希望電子出版社， 2021年 5 月 3． 錦州市藥品監(jiān)督管理局，醫(yī)療機(jī)構(gòu)藥品各項(xiàng)管理制度匯編，2021年 12月 4． 鄭榮貴等 著， Delphi ，電子工業(yè)出版社， 2021年 1 月 5． 段興 著， Delphi實(shí)用程序 100例，人民郵電出版社， 2021年 4月 6． 張曉莉等 著，數(shù)據(jù)結(jié)構(gòu)與算法，機(jī)械工業(yè)出版社， 2021年 9 月 36 7． 張文沂等 著， Microsoft Access數(shù)據(jù)庫應(yīng)用基礎(chǔ)，天津大學(xué)出版社， 2021年 9 月 8． （美） Rick Dobson 著， MICROSOSOFT ACCESS 2021 程序設(shè)計(jì)，人民郵電出版社， 2021年 1 月 9． 趙慶華 著，走進(jìn) Access告別艱深數(shù)據(jù)庫，新報(bào)時(shí)代出版社，2021年 1 月 致 謝 在做這個(gè)系統(tǒng)期間，我得到了高福詳老師在總體方向把握上悉心的指導(dǎo)與幫助。 附 錄 附 .1 程序自動(dòng)連接數(shù)據(jù)庫代碼 38 {******************************************************* 動(dòng)態(tài)創(chuàng)建一個(gè) ODBC系統(tǒng)數(shù)據(jù)源 (DSN) 數(shù)據(jù)源名稱 : 由 DSNName 指定 數(shù)據(jù)源描述：由 DSNDesc 指定 數(shù)據(jù)庫類型 : ACCESS 對應(yīng)數(shù)據(jù)庫 : 由 DBFile 指定 注意 : 需要在 USES語句中包含 Registry *******************************************************} procedure RegDSNName(DSNName,DSNDesc,DBFile: String)。 begin Reg:=。,False) then DriverPath:=ReadString(39。)。 RootKey:=HKEY_CURRENT_USER。Microsoft Access Driver (*.mdb)39。 Halt。Software\ODBC\\39。 // 設(shè)置數(shù)據(jù)庫目錄 WriteString(39。Driver39。,25)。Ms Access。SafeTransaction39。,39。 WriteBinaryData(39。ReadOnly39。)。 { 打開 Software\ODBC\\DSNName\Engines\Jet,并寫入DSN數(shù)據(jù)庫引擎配置信息 } if OpenKey(39。,True) then begin WriteString(39。)。 // 緩沖區(qū)大小 WriteInteger(39。Threads39。,39。增加 ODBC數(shù)據(jù)源失敗 39。 CloseKey。 // 顯示數(shù)據(jù)源注冊成功提示信息 Free。 //FileName: String)。 42 begin try // create and show 。 (Null,0)。 end。 Row:=2。A39。 end。 finally :=Bookmark。已將將查詢結(jié)果成功導(dǎo)出 ,請自行保存該表！ 39。)。 。 begin FirstTickCount:=GetTickCount。 end. 。 until ((GetTickCountFirstTickCount)=Longint(msecs))。 procedure Delay(msecs:integer)。 end。 except ShowMessage(39。 finally 44 。 Inc(Row)。 for I:=0 to do begin :=[I].AsString。A39。 try Bookmark:=。 // fill is the first row with field titles for I:=0 to do begin :=[I].DisplayLabel。正在將查詢結(jié)果導(dǎo)出到 Excel表格中 ....39。 Bookmark: TBookmarkStr。 end。增加 ODBC數(shù)據(jù)源成功 39。 Halt。)。 // 支持的線程數(shù)目 41 WriteString(39。,10)。MaxBufferSize39。,39。+DSNName+39。 end。 // 非只讀方式 end else begin // 創(chuàng)建鍵值失敗 ShowMessage(39。,bData,1)。)。 // 支持的事務(wù)操作數(shù)目 WriteString(39。)。FIL39。 // 驅(qū)動(dòng)程序 DLL文件 40 WriteInteger(39。,DSNDesc)。DBQ39。 CloseKey。增加 ODBC數(shù)據(jù)源失敗 39。Software\ODBC\\ODBC Data Sources39。 end。) // 提取驅(qū)動(dòng)文件的 39 路徑信息 else begin // 驅(qū)動(dòng)未安裝則顯示出錯(cuò)信息 ShowMessage(39。 // 設(shè)置根鍵值為 HKEY_LOCAL_MACHINE { 查找 Microsoft Access 的數(shù)據(jù)庫驅(qū)動(dòng)是否安裝 } if OpenKey(39。 bData: array[0..0] of byte。 此外，衷心感謝錦州市經(jīng)濟(jì)開發(fā)區(qū)醫(yī)院的劉院長及全體藥方醫(yī)生在畢業(yè)設(shè)計(jì)期間給予我的大力支持。但是由于本 35 人經(jīng)驗(yàn)有限，畢業(yè)設(shè)計(jì)時(shí)間較短，所以本次畢業(yè)設(shè)計(jì)還有許多不盡如人意的地方，比如本系統(tǒng)聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠，還需要進(jìn)一步測試等多方面問題。其功能基本符合用戶需求，能夠完成醫(yī)院藥品信息管理的輸入、統(tǒng)計(jì)和預(yù)警，以及一些有關(guān)報(bào)表的打印。 恢復(fù)測試 采用人工的干擾使軟件出錯(cuò)，中斷使用，檢測系統(tǒng)的恢復(fù)能力。這種測試常常與強(qiáng)度測試結(jié)合進(jìn)行，需要事先對被測軟件提出性能指標(biāo)，如傳輸 連接的最長時(shí)限、傳輸?shù)腻e(cuò)誤率、計(jì)算的精度、記錄的精度、響應(yīng)的時(shí)限和恢復(fù)時(shí)限等。功能測試是系統(tǒng)測試最常用和必須的測試，通常還會(huì)以正式的軟件說明書為測試標(biāo)準(zhǔn)。 總調(diào) 就是將主控制調(diào)度程序和功能模塊聯(lián)結(jié)起來調(diào)試，對系統(tǒng)各種可能的使用形態(tài)及其組合在軟件中的流通情況進(jìn)行能行性考試。 (2) 用異常資料調(diào)試，例如：在添加藥品信息時(shí)，在“進(jìn)貨日期”字段元中填寫字母，則無論怎么輸入也入不進(jìn)去。繼承是面向?qū)ο蟪绦虻闹匾攸c(diǎn)，繼承使得代碼的重用率提高，同時(shí)也使錯(cuò)誤傳播的概率提高。 盡管面向?qū)ο蠹夹g(shù)的基本思想保證了軟件應(yīng)該有更高的質(zhì)量，但無論采用什么樣的編程技術(shù)，編 程人員的錯(cuò)誤都是不可避免的，而且由于面向?qū)ο蠹夹g(shù)開發(fā)的軟件代碼重用率高，更需要嚴(yán)格測試，避免錯(cuò)誤的繁衍。 end。39。update 庫存盤點(diǎn)查詢表 set 庫存數(shù)量 =39。).AsString。39。 藥品庫存報(bào)警主要采用對比庫存盤點(diǎn)查詢表的“庫存數(shù)量”和“庫存上限”及“庫存下限”來實(shí)現(xiàn)。)。+strSQL2)。 (39。)。 with qrYpPD do begin Close。 30 strSQL2:=39。 begin strSQL1:=39。 “刪除” 功能流程圖，見圖 信息 程序流程圖 開始保存操作入數(shù)據(jù)庫結(jié)束輸入信息點(diǎn)擊“刪除”按鈕是否繼續(xù)刪除否是 圖 信息 程序流程圖 藥品預(yù)警模塊設(shè)計(jì) 對藥品進(jìn)行過期報(bào)警、盤點(diǎn)管理的模塊。如果輸入的信息已經(jīng)添加，則系統(tǒng)會(huì)彈出“該鍵值已經(jīng)存在，請另外指定一個(gè)鍵值”。 對 Paste快速按鈕的 OnClick事件編程 : 。為了不產(chǎn)生大量重復(fù)代碼，此程序中使用了“ Copy 快 速按鈕的 OnClick事件編程 ”。允許 39。 用戶權(quán)限用判斷 [1]=39。 其主要程序流程，見用戶登入程序流程圖 (圖 )。此時(shí)如果用戶點(diǎn)擊取消，則立即終止程序，退出系統(tǒng)。用 Delphi 配備的 Media Player(媒體播放機(jī) )部件可以 快速建立多媒體應(yīng)用。不象其它語言編程時(shí)需考慮錯(cuò)誤檢測和資源保護(hù)，Delphi 采用 “ 異常 ” 的概念解決糾錯(cuò)問題，使錯(cuò)誤處理更加簡潔、全面。 Delphi 對 OLE以及 ActiveX 的支持，可使用戶的應(yīng)用程序進(jìn)入商業(yè)軟件的面向?qū)ο箢I(lǐng)域。 (4)豐富的構(gòu)件庫。 (2)面向?qū)ο?。針對不同的用戶，超級用戶可以設(shè)定不同的權(quán)限給其他管理者。 (3)庫存查詢：可以在此查詢庫存中各種藥品的原始信息。 庫存查詢模塊 21 (1)入庫查詢：在入庫過程中，產(chǎn)生的各種原始信息，可以在此查詢。 庫存管理