【正文】 end。 var FirstTickCount:Longint。 。系統(tǒng)中沒有安裝 Excel！ 39。 :=39。 end。 RangeE:=。+IntToStr(Row),39。 43 try 。 RangeE:=。 [0]:=True。 I,Row: Integer。 附 .2 實(shí)現(xiàn)導(dǎo)出 Excel表格代碼 procedure ExportToExcel(qrExport: TADOQuery)。)。 end。 end else begin // 創(chuàng)建鍵值失敗 ShowMessage(39。UserCommitSync39。 // 頁超時(shí) WriteInteger(39。,512)。Yes39。\Engines\Jet39。 CloseKey。增加 ODBC數(shù)據(jù)源失敗 39。// 非獨(dú)占方式 WriteBinaryData(39。 // 用戶名稱 bData[0]:=0。UID39。 // Filter依據(jù) WriteInteger(39。,39。DriverId39。 // 設(shè)置數(shù)據(jù)源描述 WriteString(39。,DBFile)。 { 找到或創(chuàng)建 DSNName,并寫入 DSN 配置信息 } if OpenKey(39。)。,True) then WriteString(DSNName,39。 CloseKey。增加 ODBC數(shù)據(jù)源失敗 39。Software\ODBC\\Microsoft Access Driver (*.mdb)39。 DriverPath: String。最后，這次和我一組做畢業(yè)設(shè)計(jì)的同學(xué)們也給了我很大的幫助，他們?cè)诰裆系闹С趾凸膭?lì)，使我堅(jiān)定了信心不斷向前探索，以致取得最后的成績，在此我一并向他 們表示感謝。這些都有待進(jìn)一步改善。并提供部分系統(tǒng)維護(hù)功能 ,使用戶方便進(jìn)行數(shù)據(jù)更改、數(shù)據(jù)恢復(fù)和數(shù)據(jù)刪除等操作。 可用性測(cè)試 測(cè)試用戶是否能夠滿意使用。 安全測(cè)試 驗(yàn)證安裝在系統(tǒng)內(nèi)的保護(hù)機(jī)構(gòu)確實(shí)能夠?qū)ο到y(tǒng)進(jìn)行保護(hù)，使之不受各種非常的干擾。 強(qiáng)度測(cè)試及性能測(cè)試 測(cè)試系統(tǒng)的能力最高實(shí)際限度，即軟件在一些超負(fù)荷的情況，功能實(shí)現(xiàn)情況。例如：當(dāng)某位病人來領(lǐng)取藥品，用戶拿到醫(yī)生開出的處方，領(lǐng)取藥品以后，庫存藥品是否減少。 (3) 用錯(cuò)誤資料調(diào)試，例如：在添加藥品信息時(shí)，“藥品 代碼”這項(xiàng)不填，“索引字段不能為空 ,請(qǐng)輸入正確的信息”。多態(tài)性使得面向?qū)ο蟪绦驅(qū)ν獬尸F(xiàn)出強(qiáng)大的處理 能力，但同時(shí)卻使得程序內(nèi) 同一 函數(shù)的行為復(fù)雜化，測(cè)試時(shí)不得不考慮不同類型具體執(zhí)行的代碼和產(chǎn)生的行為。因此，軟件測(cè)試在面向?qū)ο缶幊汤锔哂兴闹匾浴? 31 開始讀取系統(tǒng)日期結(jié)束讀取庫存盤點(diǎn)查詢表藥品庫存是否正常藥品是否過期讀取藥品庫存數(shù)量列出過期藥品代碼否是列出過期藥品代碼是否 圖 32 第六章 測(cè)試與安裝 用戶使用低質(zhì)量的軟件，在運(yùn)行過程中會(huì)產(chǎn)生各種各樣的問題，可能帶來不同程度的嚴(yán)重后果。 Open。++ 39。 Close。 then Exit。 部分代碼如下： procedure (Sender: TObject)。 Open。 (39。where 失效日期 = 39。 (39。 。39。39。藥品的過期報(bào)警主要采用對(duì)比庫存盤點(diǎn)查詢表“系統(tǒng)日期”和“失效日期”的方法來實(shí)現(xiàn)。 28 添加 信息 程序流程圖見圖 開始功能模塊窗體索引字段是否為空保存操作入數(shù)據(jù)庫結(jié)束輸入信息否彈出出錯(cuò)信息是點(diǎn)擊“添加”或“修改”按鈕該鍵值是否存在否是 圖 、修改 信息 程序流程圖 更改藥品信息程序，只要把藥品的基本信息輸入計(jì)算機(jī)，利用 Delphi的命令按鈕控件“更改”的 OnClick事件逐條更改，使信息自動(dòng)存入后臺(tái)數(shù)據(jù)庫中，如果輸入信息中，數(shù)據(jù)庫的索引字 29 段是空的，則系統(tǒng)會(huì)彈出 ShowMessage “索引字段不能為空 ,請(qǐng)輸入正確的信息”。 :=。方法簡(jiǎn)述如下： 在已設(shè)計(jì)好的包含有 TDBGrid 控件 (設(shè)名為 DBGrid1)的窗體中，增加一個(gè) TDBEdit 控件 (設(shè)名為 DBEdit1)，其 DataSources 屬性設(shè)為與 DBGrid1 的 DataSources 屬性相同，對(duì) DBGrid1控件的 OnColEnter事件編程，使 DBEdit1的 DataField屬性值等于 DBGrid1 控件的被選擇字段的字段名。 // 可以進(jìn)行用戶管理操作 then :=True 26 else :=False。允許 39。 25 開始LO GO 界面，等待3秒用戶登入界面輸入用戶名和密碼用戶確定或取消調(diào)入主窗口結(jié)束錯(cuò)誤提示N取消確定Y驗(yàn)證密碼是否正確 圖 用戶登入程序流程圖 用戶管理 每個(gè)用戶成功登入系統(tǒng)以后 ,都獲得相應(yīng)的權(quán)限。如果用戶單擊確定按鈕，則按用戶所輸入的用戶名在系統(tǒng)中，查詢?cè)撚脩舻拿艽a，并與用戶輸入的密碼進(jìn)行比對(duì)，如果正確 ,則調(diào)入程序主界面 frmmain 窗口。 (10)支持多線程。 (8)強(qiáng)大的數(shù)據(jù)庫應(yīng)用開發(fā)能力。 (6)模板類型使編程更加簡(jiǎn)便。用構(gòu)件開發(fā)程序是 Delphi 的可視化特性，同時(shí)面向?qū)ο笫笵elphi 的構(gòu)件庫增加了靈活性，可根據(jù)用戶需要 擴(kuò)充或改變構(gòu)件的功能，只需從存儲(chǔ)的構(gòu)件庫中派生出一個(gè)新的構(gòu)件即可重新編碼。 Delphi 強(qiáng)大卻簡(jiǎn)單的底層編程語言 (Object Pascal)支持封裝、繼承、多態(tài)等面向?qū)ο筇匦?，允許將數(shù)據(jù)和代碼合并為一個(gè)類，建立新的繼承類，并將派生類作為雙親類。 22 藥品管理系統(tǒng)進(jìn)貨單位入庫管理藥品目錄幫助用戶管理藥品預(yù)警庫存查詢庫存管理藥品信息出庫管理庫存查詢出庫查詢?nèi)霂觳樵儽P點(diǎn)管理報(bào)警管理 圖 功能模塊圖 23 第五章 程序設(shè)計(jì) Delphi 的特點(diǎn) Delphi是非常強(qiáng)大靈活的應(yīng)用程序開發(fā)工具，它將可視化界面與面向?qū)ο蟮?Pascal語言結(jié)合在一起，使用 Delphi可在極短時(shí)間里建立起快速、直觀、強(qiáng)大的 Windows應(yīng)用程序。 藥品預(yù)警模塊 (1)報(bào)警管理：藥品數(shù)量在數(shù)據(jù)庫中的達(dá)到庫存下限、庫存上限，藥品的有效期達(dá)到藥品的有效期限，系統(tǒng)會(huì)顯示出這類藥品。歷史的入庫也可以在此查詢 ?？蓪?duì)其進(jìn)行添加，刪除，修改的操作。 (2)藥品劑型：按照藥品的劑型信息，將不同的藥品劑型錄入數(shù)據(jù)庫中，供藥品目錄模塊調(diào)用、查詢。而且可以使他們從簡(jiǎn)單的數(shù)據(jù)統(tǒng)計(jì)、收集、匯總等重復(fù)繁瑣的事物工作中解脫出來。 在軟件系統(tǒng)設(shè)計(jì)中，模塊是指這樣一組程序語句，它包括輸入輸出和邏輯處理功能、內(nèi)部信息及其運(yùn)行環(huán)境。 對(duì)比 MS Access 2021 和其他的數(shù)據(jù)庫管理系統(tǒng)， MS Access 2021 具有可靠的安全性，最快的存儲(chǔ)速度，高度的兼容性，最 佳的性價(jià)比，因此，應(yīng)用 MS Access 2021 作為后臺(tái)數(shù)據(jù)庫為系統(tǒng)的開發(fā)提供了強(qiáng)有力的支持，并對(duì)以后軟件的運(yùn)行提供了堅(jiān)實(shí)的基礎(chǔ)。得到簡(jiǎn)化的數(shù)據(jù)庫管理，自動(dòng)調(diào)節(jié)與維護(hù)特性使管理人員得以集中精力從事其它關(guān)鍵性任務(wù)。 高度可用性 借助日志傳送、在線備份和故障群集實(shí)現(xiàn)業(yè)務(wù)應(yīng)用程序可用性的最大化目標(biāo)。這使得在生產(chǎn)環(huán)境中鎖定服務(wù)器的操作更為簡(jiǎn)單和快捷。無論以應(yīng)用程序開發(fā)速度還是以事務(wù)處理運(yùn)行速度來衡量， MS Access 2021 都堪稱最為快捷的數(shù)據(jù)庫系統(tǒng)，而這恰恰是該產(chǎn)品成為靈活企業(yè)首選解決方案的原因所在。 本系統(tǒng)外鍵連接約束和主鍵約束圖（圖 ）。 劑型 名稱：藥品 劑型 的名稱。 分類代碼： 藥品分類在系統(tǒng)中代號(hào)為 分類代碼 。 出庫日期：藥品的出庫日期。 出庫數(shù)量：出庫藥品數(shù)量。 供貨單 位編碼： 供貨單位在系統(tǒng)中代號(hào)為編碼。 15 零售價(jià)：藥品的零售價(jià)格。 藥品批號(hào)：藥品的生產(chǎn)批號(hào)。 表 字段名 類型 長度 備注 藥品名稱 文本 20 藥品代碼 文本 10 索引 劑型名稱 文本 20 分類名稱 文本 20 零售計(jì)量單位 文本 10 進(jìn)貨計(jì)量單位 文本 10 批發(fā)計(jì)量單 位 文本 10 庫存下限 數(shù)字 10 庫存上限 數(shù)字 10 藥品入庫表 藥品入庫表（表 ），表名 : 藥品入庫表 ,數(shù)據(jù)庫記錄藥品入庫信息的表。 批發(fā)計(jì)量單位：藥品的批發(fā)計(jì)量單位。 劑型名稱 ：藥品的劑型名稱。 庫存數(shù)量：藥品在倉庫中的數(shù)量。 供貨單位聯(lián)系人：供貨單位的聯(lián)系人姓名。供貨單位名： 13 供貨單位的名稱。藥品庫之間存在存放與被存放的關(guān)系，關(guān)系存放有種類和數(shù)量兩種屬性。 其中有 4 個(gè)外部實(shí)體，分別是供應(yīng)商、藥品庫存和設(shè)備。創(chuàng)建數(shù)據(jù)庫并非僅僅為了存儲(chǔ)數(shù)據(jù)，更主要目的是從中提取有用信息。它把大量數(shù)據(jù)按照一定結(jié)構(gòu)進(jìn)行存儲(chǔ) , 11 集中管理和統(tǒng)一使用這些數(shù)據(jù) ,實(shí)現(xiàn)數(shù)據(jù)共享。提高信息處理速度和準(zhǔn)確性。在藥品的數(shù)量、種類很大以后，很可能因?yàn)槿斯さ恼`操作導(dǎo)致過期藥品仍舊留在庫存中。這些都 難以滿足現(xiàn)代化管理中用數(shù)字說話。其庫存記錄，出庫記錄。合格入庫。 (4)用戶界面友好，操作靈活、簡(jiǎn)便，運(yùn)行速度快； 系統(tǒng)分析 藥品管理其主要業(yè)務(wù)見業(yè)務(wù)流程圖（ ）。 在 錦州市經(jīng)濟(jì)開發(fā)區(qū)醫(yī)院院長的大力支持和 倡導(dǎo)之下，進(jìn)行了醫(yī)院的藥品管理軟件的開發(fā)。 在此系統(tǒng)開發(fā)應(yīng)用之前，醫(yī)院應(yīng)用了一家 3 級(jí)甲等醫(yī)院使用的醫(yī)院整體管理系統(tǒng)。原本采用手工方式記錄藥品管理信息，初期藥品種類較少，可以應(yīng)付。而藥品的種類繁多，進(jìn)貨時(shí)間和有效期間各不相同，藥品的盤點(diǎn)和過期預(yù)警是醫(yī)院藥品管理必不可少的組成部分。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如 Borland公司的資源編輯器（ Resourse Workshop）。