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