【導(dǎo)讀】一個(gè)現(xiàn)代化工具。該系統(tǒng)通過(guò)電腦管理，淘汰了老式的辦公模式，把所有的工作。都搬到現(xiàn)代化程度很高的計(jì)算機(jī)上來(lái)完成，很大程度的提高了整體的效率。程，優(yōu)化就診環(huán)境，改變目前排隊(duì)多、等候時(shí)間長(zhǎng)、秩序混亂的局面。本系統(tǒng)將采用Borland公司的Delphi7作為進(jìn)銷(xiāo)存系統(tǒng)的開(kāi)發(fā)工具。細(xì)論述了開(kāi)發(fā)這一基于C/S模式的數(shù)據(jù)庫(kù)前端應(yīng)用系統(tǒng)的開(kāi)發(fā)全過(guò)程。該系統(tǒng)包括客戶信息、供銷(xiāo)商信息以及基本的貨物信息、庫(kù)存信息等。描述，最后運(yùn)用面向?qū)ο蟮脑O(shè)計(jì)思想進(jìn)行了系統(tǒng)的最終實(shí)現(xiàn)。第一章醫(yī)院信息系統(tǒng)概述··············································1. 國(guó)外情況和發(fā)展趨勢(shì)····································&#

　　

【正文】 WindowState wsNormal 2. 主頁(yè)設(shè)計(jì) 主頁(yè)設(shè)計(jì)如圖 42 所示。 圖 42 系統(tǒng)主界面 主頁(yè)做成了上下結(jié)構(gòu)，上面是菜單和功能鍵，下面的左邊是啥干功能鍵的延續(xù)，右邊是這個(gè)工作區(qū)域。 整個(gè)布局相對(duì)來(lái)說(shuō)，簡(jiǎn)潔可以使用戶很容易上手，進(jìn)行操作，并且能輕松掌握本系統(tǒng)。 系統(tǒng)主界面的窗體屬性如表 42 所示。 表 42 系統(tǒng)主界面窗體屬性 窗體屬性 取值 Name Main1 Caption 醫(yī)院信息系統(tǒng) ClienHeight/ ClienWidth 558/804 WindowState wsMinimized 3. 掛號(hào)界面 掛號(hào)界面如圖 43 所示。 圖 43 掛號(hào)界面 用戶通過(guò)此界面進(jìn)行掛號(hào)設(shè)置。 掛號(hào)界面窗體屬性設(shè)置如表 43 所示。 表 43 掛號(hào)界面窗體屬性 窗體屬性 取值 Name mzghd Caption 掛號(hào)單 ClienHeight/ ClienWidth 356/448 WindowState wsNormal 4. 劃價(jià)收費(fèi)界面 劃價(jià)收費(fèi)界面如圖 44 所示。 圖 44 劃價(jià)收費(fèi)界面 患者通過(guò)劃價(jià)收費(fèi)界面，了解醫(yī)生所作的治療和給的藥物的價(jià)格，并 進(jìn)行交費(fèi)。 劃價(jià)收費(fèi)界面窗體屬性如表 44 所示。 表 44 劃價(jià)收費(fèi)界面 窗體屬性 窗體屬性 取值 Name mzshgf Caption 門(mén)診收費(fèi) .劃價(jià) .管理 ClienHeight/ ClienWidth 578/804 WindowState wsNormal 5. 藥品入庫(kù)界面和藥品出庫(kù)界面 藥品入庫(kù)界面和藥品出庫(kù)界面如圖 45 和 46 所示。 圖 45 藥品入庫(kù)界面 圖 46 藥品出庫(kù)界面 通過(guò) 對(duì) 藥品的 入庫(kù)與出庫(kù)進(jìn)行記錄，對(duì)藥品庫(kù)的藥品進(jìn)行控制，保證一定的庫(kù)存容量，并且能調(diào)整藥品的庫(kù)存時(shí) 間。 藥品入庫(kù)界面窗體屬性如表 45 所示。 表 45 劃價(jià)收費(fèi)界面 窗體屬性 窗體屬性 取值 Name rukuf Caption 藥品入庫(kù)管理 ClienHeight/ ClienWidth 446/647 WindowState wsNormal 藥品出庫(kù)界面窗體屬性如表 46 所示。 表 46 劃價(jià)收費(fèi)界面 窗體屬性 窗體屬性 取值 Name yaochukugl Caption 藥品出庫(kù)管理 ClienHeight/ ClienWidth 397/515 WindowState wsNormal 6. 住院預(yù)交款界面 住院預(yù)交款界面如圖 47 所示。 圖 47 住院預(yù)交費(fèi)界面 患者入院時(shí)，要預(yù)交一部分費(fèi)用，以便在住院期間得到更開(kāi)的治療，不會(huì)應(yīng)為資金問(wèn)題而拖延治療時(shí)間。 住院預(yù)交費(fèi)界面窗體屬性如表 47 所示。 表 47 住院預(yù)交費(fèi) 界面 窗體屬性 窗體屬性 取值 Name zyyjgl Caption 住院預(yù)交款管理 ClienHeight/ ClienWidth 488/450 WindowState wsNormal 7. 住院劃價(jià)收費(fèi)界面 由于在醫(yī)院里門(mén)診和住院是倆個(gè)完全 不同的流程，所以他的劃價(jià)收費(fèi)也是分開(kāi)執(zhí)行的，住院的劃價(jià)一般不用患者自己去親自去，而是由值班站的護(hù)士來(lái)完成此項(xiàng)工作。 住院劃價(jià)收費(fèi)界面如圖 48 所示。 圖 48 住院劃價(jià)收費(fèi)界面 住院劃價(jià)收費(fèi)界面窗體屬性如表 48 所示。 表 48 住院預(yù)交費(fèi) 界面 窗體屬性 窗體屬性 取值 Name zyglzong Caption 住院收費(fèi) ,劃價(jià)管理 ClienHeight/ ClienWidth 578/678 WindowState wsNormal 8. 出院管理界面 出院管理界面 如圖 49 所示。 圖 49 出院管理界面 出院管理主要是合算患者在院期間的檢查、治療、用藥的費(fèi)用， 在和入院時(shí)所交的預(yù)交款項(xiàng)比較，本著多退少補(bǔ)的原則，進(jìn)行結(jié)算工作。 出院管理界面窗體屬性如表 49 所示。 表 49 出院管理 界面 窗體屬性 窗體屬性 取值 Name cygl Caption 出院管理 ClienHeight/ ClienWidth 537/531 WindowState wsNormal 9. 部門(mén)管理界面、職位管理界面、醫(yī)務(wù)人員登記界面 部門(mén)管理界面、職位管理界面、醫(yī)務(wù)人員登記界面如圖 4 41 412 所示。 圖 410 科室部門(mén)管理界面 科室部門(mén)管理界面窗體屬性如表 410 所示。 表 410 科室部門(mén)管理 界面 窗體屬性 窗體屬性 取值 Name keshigldd Caption 醫(yī)院科室部門(mén)管理 ClienHeight/ ClienWidth 296/338 WindowState wsNormal 科室部門(mén)管理界 主要是用于醫(yī)院管理層對(duì)醫(yī)院內(nèi)部的科室進(jìn)行調(diào)整的。 圖 411 職務(wù)管理界面 職務(wù)管理界面窗體屬性如表 411 所示。 表 411 職務(wù)管理 界面 窗體屬性 窗體屬性 取值 Name zhiwugl Caption 醫(yī)院職務(wù)管理 ClienHeight/ ClienWidth 300/341 WindowState wsNormal 職務(wù)管理界 主要是醫(yī)院的管理層對(duì)醫(yī)院內(nèi)部的職工的職稱進(jìn)行評(píng)定和更改的界面。 圖 412 醫(yī)務(wù)人員登記界面 醫(yī)務(wù)人員登記界面窗體屬性如表 412 所示。 表 412 醫(yī)務(wù)人員登記界面 面 窗體屬性 窗體屬性 取值 Name register1 Caption 醫(yī)務(wù)人員登記 ClienHeight/ ClienWidth 418/591 WindowState wsNormal 醫(yī)務(wù)人員登記界面 是對(duì)醫(yī)院內(nèi)部的所有員工的基本信息進(jìn)行記錄的界面，包括員工的姓名、科室、職務(wù)、聯(lián)系電話、工作日等等。 第 五章 醫(yī)院信息系統(tǒng)的測(cè)試 測(cè)試的目的 測(cè)試的目的 就是盡可能發(fā)現(xiàn)項(xiàng)目或軟件里所存在的問(wèn)題，它的目的不是說(shuō)要證明所開(kāi)發(fā)的項(xiàng)目或軟件是好的、完美的，而是要為了證明這些項(xiàng)目或軟件是有問(wèn)題的。當(dāng)這些問(wèn)題被發(fā)現(xiàn)并最終解決后，這樣的項(xiàng)目或軟件才能說(shuō)是好的軟件項(xiàng)目，這時(shí)才能交給最終用戶使用。 測(cè)試環(huán)境 1. 硬件環(huán)境 在本系統(tǒng)開(kāi)發(fā)過(guò)程中，考慮到現(xiàn)有設(shè)備的限制，系統(tǒng)開(kāi)發(fā)的經(jīng)濟(jì)可行性和技術(shù)可行性分析 ,以及硬件的兼容性和軟件對(duì)硬件的基本要求，本系統(tǒng)硬件環(huán)境如下： CPU：奔騰 Ⅲ 以上 內(nèi)存： 64MB 以上 硬盤(pán)：至少 1GB 硬盤(pán)空間（包括運(yùn)行時(shí)所需空間）。 2. 軟件環(huán)境 由于現(xiàn)有硬件設(shè)備的限制和系統(tǒng)開(kāi)發(fā)工具的選擇，本系統(tǒng)運(yùn)行的軟件環(huán)境如下： 開(kāi)發(fā)系統(tǒng)： Delphi （ 中文 /英文版 ） 后臺(tái)操作系統(tǒng)： Microsoft Windows 98/2021/NT/XP（中文版） 后臺(tái)數(shù)據(jù)庫(kù)： SQL Server 2021（中文版） 測(cè)試計(jì)劃 1. 測(cè)試方案 測(cè)試方案是測(cè)試階段的關(guān)鍵技術(shù)問(wèn)題。為了提高測(cè)試效率降低測(cè)試成本，本測(cè)試方案采用黑盒法設(shè)計(jì)基本的測(cè)試方案。在黑盒法測(cè)試方案中，采用等價(jià)劃分技術(shù)，把所有可能的輸入數(shù)據(jù)（有效的和無(wú)效的）劃分成幾等價(jià)類(lèi)，其劃分類(lèi)在以下的輸入中再詳述。 2. 測(cè)試項(xiàng)目 身份認(rèn)證模塊 基本信息模塊 業(yè)務(wù)信息模塊 3. 測(cè)試準(zhǔn)備 在測(cè)試前，與各模塊的主要負(fù)責(zé)人共同協(xié)商討論，以概要設(shè)計(jì)說(shuō)明書(shū) .詳細(xì)設(shè)計(jì)說(shuō)明書(shū)作為總的提綱 ,選擇合適的輸入輸出數(shù)據(jù) ,并加以意義列舉說(shuō)明。 測(cè)試用 例設(shè)計(jì) 身份認(rèn)證模塊 測(cè)試 測(cè)試項(xiàng)目說(shuō)明： 1. 測(cè)試項(xiàng)目名稱及測(cè)試內(nèi)容 測(cè)試項(xiàng)目：身份認(rèn)證模塊 測(cè)試內(nèi)容： 1）模塊接受信息測(cè)試。 2）模塊檢驗(yàn)用戶測(cè)試。 3）檢驗(yàn)?zāi)K是否可以調(diào)出系統(tǒng)主界面。 4）模塊是否能夠正確給出錯(cuò)誤提示。 2. 測(cè)試用例 輸入： 編號(hào) USERID 操作員編號(hào) 密碼 1 tom 1001 aaa 2 CK 1002 123456 允許登錄的合法用戶及密碼： USERID 操作員編碼 密碼 Tom 1001 Aaa 輸出： 進(jìn)入身份認(rèn)證界面，輸入表格中的測(cè)試數(shù)據(jù)，相應(yīng)的處理結(jié)果應(yīng)該如下表： 1 驗(yàn)證通過(guò)，調(diào)出系統(tǒng)主菜單 2 密碼錯(cuò)誤 3 USERID 中包含非法字符 4 操作員編碼包含非法字符 5 USERID 沒(méi)有訪問(wèn)本系統(tǒng)的權(quán)限 6 USERID 長(zhǎng)度越界 7 沒(méi)有輸入操作員編碼 8 沒(méi)有輸入 USERID 9 沒(méi)有輸入密碼 10 用戶編碼長(zhǎng)度越界 3. 步驟及操作 按照測(cè)試用例輸入用戶 ID，操作員和用戶口令，點(diǎn)擊“確定”。如果打算中途退出，點(diǎn)擊“取消”，將退出系統(tǒng)。 當(dāng)密碼不正確時(shí)將彈出 錯(cuò)誤代碼，如圖 51 所示。 圖 51 登陸錯(cuò)誤提示圖 if (trim())(trim()) then begin showmessage(39。密碼錯(cuò)誤 ,操作失敗 !39。)。 。 end else begin 。 。 if trim()39。139。 then begin :=false。 :=false。 :=false。 end。 exit。 end。 基本信息 模塊 測(cè)試 測(cè)試項(xiàng)目說(shuō)明： 1. 測(cè)試項(xiàng)目名稱及測(cè)試內(nèi)容 測(cè)試項(xiàng)目：基本信息模塊 測(cè)試內(nèi)容： 1）模塊接受用戶選擇測(cè)試。 2）測(cè)試能否正常進(jìn)行各種功能操作。 3）檢驗(yàn)?zāi)K是否可以調(diào)出系統(tǒng)主界面。 4）模塊是否能夠正確顯示結(jié)果。 2. 測(cè)試用例 調(diào)用系統(tǒng)主菜單通過(guò)以后，分別選擇門(mén)診資料、醫(yī)務(wù)人員管理、藥品管理。 1）顯示患者資料。 2）顯示員工資料。 3）顯示供應(yīng)商資料。 3. 步驟及操作 對(duì)于引起錯(cuò)誤提示的用例，系統(tǒng)調(diào)用出錯(cuò)提示模塊給出相應(yīng)出錯(cuò)信息。驗(yàn)證通過(guò)以后，醫(yī)院信息系統(tǒng)菜單，然后選擇基本信息模塊（界面已在概要設(shè)計(jì)里描述）。分別選擇分別選 擇門(mén)診資料、醫(yī)務(wù)人員管理、藥品管理，數(shù)據(jù)窗口中出現(xiàn)相應(yīng)的資料結(jié)果。當(dāng)沒(méi)有相應(yīng)可以顯示的數(shù)據(jù)時(shí)給出提示。 基本信息查詢 模塊 測(cè)試 測(cè)試項(xiàng)目說(shuō)明： 1. 測(cè)試項(xiàng)目名稱及測(cè)試內(nèi)容 測(cè)試項(xiàng)目：查詢模塊測(cè)試 測(cè)試內(nèi)容： 1）輸入符合要求的信息，看系統(tǒng)是否可以輸出正確的結(jié)果。 2）輸入不合法信息，看系統(tǒng)是否可以識(shí)別并且給出錯(cuò)誤提示。 2. 步驟及操作 進(jìn)入查詢界面，按照所設(shè)計(jì)測(cè)試用例輸入。如果輸入不合法的信息會(huì)出現(xiàn)錯(cuò)誤代碼，如圖 52 所示。 圖 52 查詢條件報(bào)錯(cuò)圖 點(diǎn)擊“查詢”能夠正確輸出結(jié)果。 點(diǎn)擊“取消”退出當(dāng)前查詢，返回主界面； 查詢結(jié)束，點(diǎn)擊“打印”輸出查詢結(jié)果。 第 六 章 總結(jié)與展望 隨著信息化的飛速發(fā)展，醫(yī)院信息系統(tǒng) （ HIS） 在醫(yī)院科學(xué)管理和提高醫(yī)療服務(wù)水平方面的作用日益突出，并已經(jīng)發(fā)揮了重要作用。如何建立、應(yīng)用和完善HIS，已成為所有關(guān)心醫(yī)院現(xiàn)代化建設(shè)的管理者、醫(yī)務(wù)工作者和信息技術(shù)人員共同關(guān)心的話題。 實(shí)現(xiàn)醫(yī)院信息系統(tǒng)，首先要正確認(rèn)識(shí)信息化工程。醫(yī)院不能用買(mǎi)醫(yī)療設(shè)備的心態(tài)對(duì)待信息化，而應(yīng)該把它作為綜合整冶醫(yī)院管理、優(yōu)化組合作業(yè)流程的重大系統(tǒng)工程，與軟 件開(kāi)發(fā)密切結(jié)合。從某種意義上說(shuō)，一個(gè)醫(yī)院的 HIS 的建設(shè)和應(yīng)用水平，取決于醫(yī)院領(lǐng)導(dǎo)的重視程度和全體員工的參與程度，以及軟件與醫(yī)院運(yùn)行機(jī)制結(jié)合的程度。這種結(jié)合，既包括軟件提供者不斷改進(jìn)信息系統(tǒng)，使其更符合醫(yī)療和管理的運(yùn)行模式、實(shí)際需求，也包括醫(yī)院克服現(xiàn)有不科學(xué)、不合理的管理模式和醫(yī)療流程，按照更科學(xué)、更合理的方向調(diào)整和改革，符合 HIS 的科學(xué)要求。 按照高科技的不斷發(fā)展來(lái)看，我們的系統(tǒng)也面臨著被淘汰的境地，所以我們應(yīng)該吸引一些新的技術(shù)，例如條碼技術(shù)的應(yīng)用和磁卡技術(shù)的應(yīng)用，這兩項(xiàng)技術(shù)已經(jīng)達(dá)到了相當(dāng)成熟的水品，并且我 們已經(jīng)看到了他們的優(yōu)秀之處，他們的使用能使我們的系統(tǒng)邁向更高的自動(dòng)化層面，從而更好的提高了我們的工作效率。 總之， 高性能的多元化系統(tǒng) 將徹底改變我們生活方式，勢(shì)必要促 社會(huì)的進(jìn)步和產(chǎn)業(yè)的 飛速發(fā)展。我們期待著更高水平的 HIS 系統(tǒng)在國(guó)內(nèi)，推出 并推廣。 參考文獻(xiàn) [1] 劉瑞新、張志剛， Delphi 數(shù)據(jù)庫(kù)程序設(shè)計(jì)教程，北京：機(jī)械工業(yè)出版社， ， 137~163 [2] 敬錚， 數(shù)據(jù)庫(kù)開(kāi)發(fā)與專(zhuān)業(yè)應(yīng)用，北京：國(guó)防工業(yè)出版社， ， 63~99 [3] 呂偉 臣，精通 ，北京：科學(xué)出版社， 2021， 94~148 [4] 王選 ， 軟件設(shè)計(jì)方法 ， 北京：清華大學(xué)出版社， 1998， 10~185 [5] 張?jiān)鰪?qiáng)，武向輝 ， Delphi7 入門(mén)與提高 ， 上海：人民郵電出版社 ， 2021， 56~130 [6] 伍俊良 ， 管理信息系統(tǒng)開(kāi)發(fā)與應(yīng)用 ， 北京：科學(xué)出版社， 1999， 57~113 [7] 王珊 ， 陳紅 ， 數(shù)據(jù)庫(kù)原理教程 ， 北京：清華大學(xué)出版社， 1998， 87~123 [8] 清宏計(jì)算機(jī)工作室 ， Delphi 編程技巧 ， 北京：機(jī)械工業(yè)出版社 ， 2021， 45~216 [9] 邢增平 ， 最佳專(zhuān)輯 ， 上海：人民郵電出版社 ， 2021， 53~253 [10] 張子江 ， Delphi7 高級(jí)開(kāi)發(fā)范例 ， 重慶：電子工業(yè)出版社 ， 2021， 32~285 [11] 陳汕煌 ， Delphi 徹底研究 ， 北京：中國(guó)鐵道出版社 ， 2021， 87~219 [12] 喬建行，陶川 ， Delphi 項(xiàng)目案例導(dǎo)航 ， 四川：科學(xué)出版社 ， 2021， 98~152 [13] 段興 ， Delphi 實(shí)用程序 100 例 ， 上海：人民郵電出版社 ， 2021， 123~198 [14] 康吉成 ， Delphi7 程序設(shè)計(jì) ， 北京：中國(guó)鐵道出 版社 ， 2021， 13~342 [15] 鄭人杰，殷人昆，實(shí)用軟件工程， 北京： 清華大學(xué) 出版社 ， 1997， 17~116 [16] 耿沖， SQL Server 2021 數(shù)據(jù)庫(kù)管理， 北京： 機(jī)械工業(yè) 出版社 ， 2021， 78~276 附 錄 密碼修改部分代碼 ，見(jiàn)附圖 1所示。 unit mimagai11。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls。 Type /窗體設(shè)置部分 / Tmimagai = class(TForm) GroupBox1: TGroupBox。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 附圖 1 密碼修改窗口 Edit1: TEdit。 E