1、基于VB的醫(yī)院信息管理系統(tǒng)王輝（渤海大學(xué)文理學(xué)院 信息技術(shù)系）內(nèi)容摘要：隨著計(jì)算機(jī)性能不斷提高，價(jià)格不斷下降，計(jì)算機(jī)已在醫(yī)院醫(yī)療、教學(xué)、科研、管理的各個(gè)方面得到越來越廣泛的應(yīng)用。計(jì)算機(jī)化的醫(yī)院信息系統(tǒng)已成為現(xiàn)代化醫(yī)院運(yùn)營必不可少的基礎(chǔ)設(shè)施與技術(shù)支撐環(huán)境。就好象一個(gè)現(xiàn)代化醫(yī)院的成功運(yùn)行離不開功能完整、美觀舒適的建筑物，技術(shù)嫻熟的醫(yī)護(hù)人員，性能齊全、高精尖的醫(yī)療設(shè)備一樣，它也離不開計(jì)算機(jī)化的醫(yī)院信息系統(tǒng)。在信息化浪潮的沖擊下，醫(yī)院信息化的引入勢在必行。醫(yī)院管理信息系統(tǒng)（HMIS）是醫(yī)療服務(wù)和管理的重要輔助手段。醫(yī)院管理信息系統(tǒng)的應(yīng)用可以改變傳統(tǒng)的工作方式，提高工作效率和經(jīng)濟(jì)效益、提高醫(yī)院的管理水平

2、和質(zhì)量效益。本文對(duì)醫(yī)院管理信息系統(tǒng)的門診，住院，病房管理子系統(tǒng)的設(shè)計(jì)與開發(fā)過程進(jìn)行了全面的介紹。并對(duì)各子系統(tǒng)中的程序設(shè)計(jì)、操作流程、功能實(shí)現(xiàn)等進(jìn)行了詳細(xì)的解釋。醫(yī)院管理信息系統(tǒng)通過MICROSOFT ACCESS97建立后臺(tái)的數(shù)據(jù)庫，利用MICROSOFT VISUAL BASIC6.0中的DAO數(shù)據(jù)接口對(duì)數(shù)據(jù)庫進(jìn)行操作。實(shí)現(xiàn)了門診、住院、病房管理的各項(xiàng)基本功能。并采用列表顯示, 浮動(dòng)菜單、對(duì)話框提示等，使操作簡單明了，易于掌握 。關(guān)鍵詞： HMIS 門診； 住院； 病房； 信息管理系統(tǒng) 。 基于VB 的 醫(yī)院信息管理系統(tǒng)王輝（渤海大學(xué)文理學(xué)院 信息技術(shù)系） AbstractAlong wit

3、h the capability of computers continuously enhanse,and the price continuously fall,computer has more and more widely apply in many ways such as hospital medical treatment,teaching,scientific reseach,manage and so on. Computerize hospital information system has became the necessary foundation establi

4、shment and technic support environment to the modernize hospital operation. Just like a modernize hospitals successful operation cant leave the building of full function 、nice look and comfort;medical persons of skilled technic and complete capability、advantaged medical equipments,it also cant leave

5、 computerize hospital information system.Under the impact of the information-based tide, and so the introduction of the informationization of the hospital emerges, as the times require. The management information system of the hospital (HMIS) is the important assistant means of medical treatment ser

6、vice and management. The application of the HMIS can alter the traditional work mode, Improve working efficiency, economic benefits, management level and quality benefit of improving the hospital. The fowling paper describes the process of designing and exploring HMIS (Hospital Mange Information Sys

7、tem)-the Management of Outpatient, Inpatient, Ward generally, and recommends the thoughts and the functions of the programming in detail. The project is connect with the Database of Access and is run efficiently by using VB6.0. It also can implement all kinds of function that the user required. It h

8、as float menus and some Message Boxes, that make it easy and convenient to understand to user.Keywords: HMIS Clinic Ward 目 錄 引言.6一 概述.7（一）數(shù)據(jù)庫簡介.7（二） 管理信息系統(tǒng)簡述.7（三） 醫(yī)院管理信息系統(tǒng)簡述.9 1 問題的提出.9 2 醫(yī)院管理信息系統(tǒng)概述.93 門診、住院、病房管理系統(tǒng)功能簡介.10（四） 醫(yī)院信息化的現(xiàn)狀與發(fā)展.11二 系統(tǒng)分析.12（一） 可行性研究.12（二） 需求分析.131 本系統(tǒng)設(shè)計(jì)的總體目標(biāo).132 本系統(tǒng)設(shè)計(jì)具體目標(biāo).13

9、三 系統(tǒng)設(shè)計(jì).19（一） 系統(tǒng)設(shè)計(jì)環(huán)境需求.19（二） 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì).19（三） 系統(tǒng)對(duì)象設(shè)計(jì).24四 系統(tǒng)功能模塊的設(shè)計(jì)與實(shí)現(xiàn).26 （一） 門診管理子系統(tǒng)26 1 身份登記掛號(hào)與預(yù)約子系統(tǒng)26 2 門診就診及病歷填寫子系統(tǒng)29 3 門診收費(fèi)子系統(tǒng)31 （二） 住院管理子系統(tǒng)33 1 住院預(yù)約與登記子系統(tǒng)33 2 病案生成編目子系統(tǒng)33 （三）病房管理子系統(tǒng).35 （四） 錯(cuò)誤處理及其他37 1 利用Err對(duì)象捕獲錯(cuò)誤.37 2 利用On Error GoTo處理錯(cuò)誤.37 3 利用事務(wù)維護(hù)數(shù)據(jù)庫的完整性38 （五）系統(tǒng)集成時(shí)的錯(cuò)誤處理.38 （六）Visual Basic 6.0中文版數(shù)

10、據(jù)訪問接口簡介.39 1 DAO簡介.39 2 RDO簡介.41 3 ADO簡介.42 4 三種策略比較43 （七）本系統(tǒng)數(shù)據(jù)庫中用到的表.45參考文獻(xiàn)49后記52基于VB的醫(yī)院管理信息系統(tǒng)王輝（渤海大學(xué)文理學(xué)院 信息系）引 言在人類跨入21世紀(jì)之際，席卷全世界的信息化浪潮正在全球范圍內(nèi)轟轟烈烈的上演，它已經(jīng)深刻地滲透到現(xiàn)代社會(huì)的各個(gè)領(lǐng)域：通訊、經(jīng)濟(jì)、技術(shù)、政治等等。在醫(yī)療衛(wèi)生領(lǐng)域，信息化概念的引入，尤其是醫(yī)院信息系統(tǒng)的應(yīng)用，大大改變了醫(yī)院的管理模式和工作流程，對(duì)提高醫(yī)院的管理水平、質(zhì)量效益、經(jīng)濟(jì)效益、社會(huì)效益起到了巨大地促進(jìn)作用。目前醫(yī)院管理信息系統(tǒng)地應(yīng)用已成為醫(yī)院管理地重要工具和手段，它地

11、引入有助于改變傳統(tǒng)地工作方式，提高工作效率；提高經(jīng)濟(jì)效益；加強(qiáng)過程控制，提高醫(yī)療護(hù)理質(zhì)量；提高醫(yī)院信譽(yù)，增強(qiáng)競爭能力；實(shí)現(xiàn)衛(wèi)生資源共享；強(qiáng)化醫(yī)院的科學(xué)管理。本次畢業(yè)設(shè)計(jì)就是通過對(duì) “醫(yī)院管理信息系統(tǒng)-門診，住院，病房子系統(tǒng)”的設(shè)計(jì)，進(jìn)一步深化了我們管理信息化為人們?nèi)粘Ｉ钏鶐淼木薮蟊憷恼J(rèn)識(shí)！具體的處理是通過MICROSOFT ACCESS97建立后臺(tái)的數(shù)據(jù)庫，并利用MICROSOFT VISUAL BASIC6.0加以實(shí)現(xiàn)。一 概述（一）數(shù)據(jù)庫簡介數(shù)據(jù)庫就是存儲(chǔ)數(shù)據(jù)的裝置，必須同時(shí)含有三方面的意義：（1）數(shù)據(jù)庫的內(nèi)容，即數(shù)據(jù)；（2）存儲(chǔ)數(shù)據(jù)的硬件，如磁盤等；（3）對(duì)數(shù)據(jù)庫實(shí)施的管理。數(shù)據(jù)庫

12、有多種類型，按結(jié)構(gòu)可分成三種：層次數(shù)據(jù)庫，網(wǎng)狀數(shù)據(jù)庫， 關(guān)系數(shù)據(jù)庫。關(guān)系數(shù)據(jù)庫在結(jié)構(gòu)上可以通過關(guān)鍵字將相關(guān)的表格聯(lián)系在一起。它具有以下優(yōu)點(diǎn)：（1）表格式的關(guān)系容易理解和建立數(shù)據(jù)庫；（2）層次和網(wǎng)結(jié)構(gòu)可轉(zhuǎn)換為表格式結(jié)構(gòu)；（3）通過投影，連結(jié)表格的字段，容易建立新關(guān)系；（4）表格式搜尋較樹結(jié)構(gòu)容易；（5）方便對(duì)結(jié)構(gòu)做出修改；它適用于建立大型數(shù)據(jù)庫。（二） 管理信息系統(tǒng)簡述生產(chǎn)技術(shù)的進(jìn)步，社會(huì)活動(dòng)的復(fù)雜化，管理工作越來越離不開信息，信息處理已成為當(dāng)今世界上一項(xiàng)的社會(huì)活動(dòng)。管理信息系統(tǒng)是“一個(gè)由人和計(jì)算機(jī)等組成的能進(jìn)行信息收集，傳輸，加工，保存，維護(hù)和使用的系統(tǒng)”，它能實(shí)測國民經(jīng)濟(jì)部門或企業(yè)的各種運(yùn)行

13、情況，能利用過去的數(shù)據(jù)預(yù)測未來，能從全局出發(fā)輔助決策，能利用信息控制國民經(jīng)濟(jì)部門或企業(yè)的活動(dòng)，并幫助其實(shí)現(xiàn)規(guī)劃目標(biāo)。管理信息系統(tǒng)的功能主要有以下幾條：（1）盡可能及時(shí)全面地提供信息和數(shù)據(jù)，以支持達(dá)到系統(tǒng)目標(biāo)的決策；（2）準(zhǔn)備和提供統(tǒng)一格式的信息，使各種統(tǒng)計(jì)工作簡化；（3）利用指定數(shù)學(xué)方法分析數(shù)據(jù)，可以根據(jù)過去的數(shù)據(jù)預(yù)測將來的情況；（4）對(duì)不同的管理層次給出不同的要求和不同細(xì)度的報(bào)告，以期分析解釋報(bào)告最快，及時(shí)做出決策；（5）有效地利用管理信息系統(tǒng)的人和設(shè)備，使信息成本最低。管理信息系統(tǒng)的特點(diǎn)可歸納為：（1）數(shù)據(jù)集中統(tǒng)一，采用數(shù)據(jù)庫；（2）數(shù)據(jù)模型的應(yīng)用；（3）有預(yù)測和控制能力；（4）面向決策。

14、管理信息系統(tǒng)的開發(fā)過程可以分為四個(gè)階段：（1）系統(tǒng)規(guī)劃；（2）系統(tǒng)分析；（3）系統(tǒng)設(shè)計(jì)；（4）系統(tǒng)實(shí)現(xiàn)。系統(tǒng)規(guī)劃主要完成兩個(gè)任務(wù)：對(duì)現(xiàn)行系統(tǒng)的調(diào)查研究，以弄清現(xiàn)行系統(tǒng)的狀況；然后，基于“源于現(xiàn)行系統(tǒng)，高于現(xiàn)行系統(tǒng)”的思路提出新的計(jì)算和信息系統(tǒng)方案，對(duì)新系統(tǒng)進(jìn)行可行性分析。系統(tǒng)分析是信息管理系統(tǒng)開發(fā)工作中最重要的一環(huán)，內(nèi)容主要包括對(duì)組織各部門，各業(yè)務(wù)的詳細(xì)了解，并在此基礎(chǔ)上進(jìn)行分析，提出新的方案，在系統(tǒng)分析中扎扎實(shí)實(shí)地了解實(shí)現(xiàn)工作部門的業(yè)務(wù)情況是基礎(chǔ)，只有在對(duì)處理業(yè)務(wù)了解得非常透徹的前提下，才有可能提出新的改進(jìn)方案。系統(tǒng)設(shè)計(jì)要解決“系統(tǒng)如何干”的問題，也就是根據(jù)系統(tǒng)分析的結(jié)果，考慮實(shí)際條件，進(jìn)行

15、總體結(jié)構(gòu)設(shè)計(jì)，具體物理模型設(shè)計(jì)，在各種技術(shù)手段和實(shí)施方法中，權(quán)衡利弊，進(jìn)行精心設(shè)計(jì)，合理地使用各種資源。系統(tǒng)實(shí)施是將系統(tǒng)分析和系統(tǒng)設(shè)計(jì)中制定的“干什么”，“怎么干”的結(jié)果付諸實(shí)施，這個(gè)階段需要完成的任務(wù)很多，編制程序，調(diào)試，運(yùn)行與維護(hù)，系統(tǒng)評(píng)價(jià)等。（三） 醫(yī)院管理信息系統(tǒng)簡述1 問題的提出醫(yī)院管理信息系統(tǒng)是現(xiàn)代醫(yī)院醫(yī)療護(hù)理、經(jīng)濟(jì)管理、藥品管理、器械管理的技術(shù)支持手段，也是醫(yī)院信息化的重要組成部分。醫(yī)院管理信息系統(tǒng)的引入，將從根本上改變傳統(tǒng)管理模式，提高管理效率，使醫(yī)院的經(jīng)濟(jì)效益和社會(huì)效益都得到大幅度的提高。本次畢業(yè)設(shè)計(jì)就是針對(duì)這種需求，響應(yīng)開發(fā)設(shè)計(jì)的。2 醫(yī)院管理信息系統(tǒng)概述-醫(yī)院管理信息系統(tǒng)

16、（Hospital Mange Information System，簡稱HMIS）是對(duì)醫(yī)院信息進(jìn)行管理的計(jì)算機(jī)網(wǎng)絡(luò)軟件系統(tǒng)，它可完成醫(yī)院中各類信息的收集、傳輸、存儲(chǔ)、加工、使用和分析。是融合了醫(yī)院的管理思想、各部門的業(yè)務(wù)經(jīng)驗(yàn)，以及對(duì)計(jì)算機(jī)技術(shù)的恰當(dāng)運(yùn)用的軟件開發(fā)成果。- 醫(yī)院管理信息系統(tǒng)（HMIS）以醫(yī)院醫(yī)療信息管理為主線，實(shí)現(xiàn)全面的信息化?！耙曰颊邽橹行摹笔瞧渲饕O(shè)計(jì)思想。系統(tǒng)設(shè)計(jì)主要突出強(qiáng)化了 ：系統(tǒng)與數(shù)據(jù)的安全性，構(gòu)架、構(gòu)件設(shè)計(jì)的標(biāo)準(zhǔn)化，實(shí)時(shí)響應(yīng)速度的快速化，及人機(jī)界面設(shè)計(jì)的友善性，適應(yīng)醫(yī)療保險(xiǎn)信息的兼容性等方面。系統(tǒng)依照軟件工程化方式開發(fā)的醫(yī)院全面信息管理系統(tǒng)，具有開放靈活、高性能價(jià)

17、格比和幾乎無限地適應(yīng)醫(yī)院現(xiàn)在和未來信息處理增長的需求。醫(yī)院管理信息系統(tǒng)（HMIS）從功能上覆蓋了門診病人管理，住院病人管理，檢驗(yàn)信息管理，檢查信息管理，藥品管理，血庫管理，器械管理，經(jīng)濟(jì)管理等各個(gè)環(huán)節(jié)。其信息內(nèi)容不僅包含結(jié)構(gòu)化的文字信息，還包含自由文本、圖形圖像等信息。3 門診、住院、病房管理系統(tǒng)功能簡介醫(yī)院管理信息系統(tǒng)（HMIS）是醫(yī)療服務(wù)和管理的重要輔助手段。它也是一個(gè)有著10個(gè)系統(tǒng)和60多個(gè)子系統(tǒng)的十分龐雜的系統(tǒng)。對(duì)于我本次畢業(yè)設(shè)計(jì)中所負(fù)責(zé)的“門診，住院，病房管理”這三個(gè)子系統(tǒng)其主要功能如下：門診病人管理門診病人信息的計(jì)算機(jī)化是對(duì)最賦挑戰(zhàn)性的任務(wù)。醫(yī)院管理系統(tǒng)支持多種管理模式，努力解決門

18、診高峰時(shí)病人掛號(hào)、劃價(jià)收費(fèi)的速度問題.。系統(tǒng)具有廣泛的適應(yīng)性、友好的界面與安全性設(shè)計(jì)，保證了缺少計(jì)算機(jī)使用基礎(chǔ)的操作人員易學(xué)易會(huì)。住院病人管理 住院病人管理信息系統(tǒng)的核心功能是輔助住院病人的住、出、轉(zhuǎn)及住院病人費(fèi)用管理的事務(wù)處理；同時(shí)為醫(yī)院醫(yī)療統(tǒng)計(jì)提供及時(shí)、準(zhǔn)確、完整的數(shù)據(jù)。病案管理擁有權(quán)威的數(shù)據(jù)字典系統(tǒng)；通過數(shù)據(jù)資源共享，大大減少病案編輯工作量；病案首頁及各種疾病分類報(bào)表格式均符合衛(wèi)生部有關(guān)規(guī)范，滿足醫(yī)生臨床、科研和教學(xué)對(duì)病案的檢索需求；交互式完成病案借閱和歸還處理工作，提高了病案室工作效率，直接支持醫(yī)療動(dòng)態(tài)統(tǒng)計(jì)和病案質(zhì)量控制的管理需求；綜合查詢模塊可支持用戶按病人號(hào)、疾病名稱等多種方法進(jìn)行

19、查詢。 （四） 醫(yī)院信息化的現(xiàn)狀與發(fā)展我國大型醫(yī)院管理信息系統(tǒng)的開發(fā)和應(yīng)用已經(jīng)達(dá)到發(fā)達(dá)國家的平均水平，一些優(yōu)秀的系統(tǒng)甚至已經(jīng)接近國際先進(jìn)水平。但在臨床信息系統(tǒng)方面，如門診醫(yī)生工作站、檢驗(yàn)信息系統(tǒng)等，與國際先進(jìn)水平相比都還有較大的差距。 2002年，衛(wèi)生部對(duì)國內(nèi)6921家醫(yī)院進(jìn)行調(diào)查，其中有2179家建設(shè)了醫(yī)院信息系統(tǒng)(HIS)，占31%。從醫(yī)院規(guī)模看，省級(jí)醫(yī)院建設(shè)HIS的比例達(dá)到84%，地市級(jí)醫(yī)院建設(shè)HIS的比例為37%，縣級(jí)醫(yī)院為34%。衛(wèi)生部“九五規(guī)劃”提出醫(yī)院信息化任務(wù)是，三甲醫(yī)院有50%建成HIS，現(xiàn)在已經(jīng)完成了任務(wù)。 HMIS“高端需求顯現(xiàn)，低端市場龐大”是當(dāng)前院信息市場發(fā)展的主要趨

20、勢。在HMIS逐漸走向成熟時(shí)，大型醫(yī)院和中小醫(yī)院的需求逐漸分化：大型醫(yī)院逐漸認(rèn)識(shí)到建設(shè)HMIS的復(fù)雜度和維護(hù)的重要性，開始探索HMIS的穩(wěn)定性和實(shí)用性；小型醫(yī)院也認(rèn)識(shí)到HMIS的優(yōu)越性，開始將對(duì)HMIS的需求提到議事日程上。HMIS市場開始真正進(jìn)入產(chǎn)品競爭時(shí)期。二 系統(tǒng)分析系統(tǒng)分析是確定軟件開發(fā)工程中最重要的一環(huán)，確定工程的可行性，導(dǎo)出實(shí)現(xiàn)工程目標(biāo)應(yīng)該采用的策略及系統(tǒng)必須完成的功能，估計(jì)完成該工程需要的資源和成本，并且制定工程進(jìn)度表等。這一部分的內(nèi)容又可以進(jìn)一步劃分為可行性研究，需求分析，總體設(shè)計(jì)（本內(nèi)容將放在第三章中做詳細(xì)的說明），詳細(xì)設(shè)計(jì)分三個(gè)階段進(jìn)行。（一） 可行性研究可行性研究的目的就

21、是用最小的代價(jià)在盡可能短的時(shí)期內(nèi)確定問題是否能夠解決。包括：（1） 技術(shù)可行性：本系統(tǒng)采用的技術(shù)手段是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)語言MICROSOFT VISUAL BASIC6.0 ，Windows2000下的中文MICROSOFT ACCESS97軟件，它具有以下四個(gè)特征，可以保證實(shí)現(xiàn)這個(gè)系統(tǒng)：A、可視化設(shè)計(jì)技術(shù)B、面向?qū)ο缶幊碳夹g(shù)C、VB與 ACCESS97間方便多樣的連接技術(shù)D、與其他應(yīng)用軟件的數(shù)據(jù)共享和應(yīng)用交互（2） 經(jīng)濟(jì)可行性：本系統(tǒng)開發(fā)所需的實(shí)驗(yàn)室、PC機(jī)、打印機(jī)等硬件設(shè)備由岳建國老師提供。所需的背景資料、開發(fā)軟件、和各類幫助文件等，也都能比較方便地在老師，同學(xué)或圖書館處找到，不需浪

22、費(fèi)很多時(shí)間和財(cái)力。 （二） 需求分析需求分析是的基本任務(wù)是準(zhǔn)確回答“系統(tǒng)必須做什么”這個(gè)問題。（1）分析系統(tǒng)的數(shù)據(jù)要求；（2）導(dǎo)出系統(tǒng)的邏輯模型；（3）修正系統(tǒng)開發(fā)計(jì)劃；（4）開發(fā)原型系統(tǒng)。1 本系統(tǒng)設(shè)計(jì)的總體目標(biāo)1、 使系統(tǒng)安全化：設(shè)置多種用戶級(jí)別以限制各類用戶的操作權(quán)限；設(shè)置數(shù)據(jù)庫自動(dòng)修復(fù)功能，以防止各類突發(fā)事件（如斷電、硬件突然損壞等）、 用戶的誤操作等造成的數(shù)據(jù)庫不一致。通過各種途徑保障系統(tǒng)安全。2、設(shè)置合理化：支持用戶通過各種途徑（如使用：圖標(biāo)、按紐、下拉菜單、浮動(dòng)菜單等）切換窗口，以達(dá)到所要操作的界面。3、使系統(tǒng)界面友好化：設(shè)置用戶使用向?qū)А⑾到y(tǒng)說明，在操作過程中彈出對(duì)話框、警告圖

23、標(biāo)等，引導(dǎo)用戶正確使用該軟件； 2 本系統(tǒng)設(shè)計(jì)具體目標(biāo)門診管理子系統(tǒng)A、身份登記子系統(tǒng)：用來實(shí)現(xiàn)病人主索引的錄入。它是其他子系統(tǒng)有關(guān)病人信息的來源。身份登記子系統(tǒng) 住院病案記錄 門診病案記錄病人主索引 圖2-1、身份登記子系統(tǒng)工作流程 B、掛號(hào)與預(yù)約子系統(tǒng)：用來自動(dòng)生成門診號(hào)，根據(jù)當(dāng)日設(shè)置的醫(yī)務(wù)人員安排進(jìn)行醫(yī)師的選擇和掛號(hào)費(fèi)的生成。就診記錄身份登記掛號(hào)與預(yù)約 圖2-2、掛號(hào)與預(yù)約子系統(tǒng)工作流程 C、診就診及病歷填寫：與掛號(hào)病人的信息直接相連，自動(dòng)錄入病人的身份信息。由醫(yī)師填入患者診斷信息后可進(jìn)行檢查、化驗(yàn)等輔助工作，并開方劃價(jià)。要求自動(dòng)與藥品庫相連，并自動(dòng)產(chǎn)生處方收費(fèi)金額。病案歸檔門診掛號(hào)就診

24、填寫病案身份登記 門診、住院病案 圖2-3、就診及病例管理子系統(tǒng)D、門診收費(fèi)子系統(tǒng)：可根據(jù)價(jià)表自動(dòng)準(zhǔn)確的進(jìn)行收費(fèi)。與掛號(hào)表處的患者信息相連。自動(dòng)顯示被選定的患者是否已付費(fèi)，并可以顯示各項(xiàng)收費(fèi)的明細(xì)記錄。采取相應(yīng)措施防止錯(cuò)收、漏收等現(xiàn)象發(fā)生。身份登記病案填寫門診收費(fèi) 病人信息 費(fèi)用信息處方費(fèi)用明細(xì)診療費(fèi)用明細(xì)門診收據(jù) 圖2-4、門診收費(fèi)子系統(tǒng)工作流程 住院管理子系統(tǒng) A、住院預(yù)約與登記子系統(tǒng)：建立病人住院申請(qǐng)信息。錄入病人的身份信息（門診錄入過的病人自動(dòng)生成身份信息）；提供時(shí)的床位信息，包括空床的床位號(hào)、床位等級(jí)、床位租金等詳細(xì)信息；為有空床的科室安排申請(qǐng)住院病人的床位；對(duì)無病房床位的科室安排等

25、床病人排隊(duì)信息。 住院預(yù)約與登記病房入出轉(zhuǎn)身份登記 主索引 床位情況轉(zhuǎn)科病人住院記錄圖2-5、住院預(yù)約與登記子系統(tǒng)工作流程B、 病案生成編目子系統(tǒng) ：在病人離院后自動(dòng)生成該病人的病案編目首頁。首頁包括病人基本信息及其所患病癥的結(jié)論性信息。對(duì)于門診轉(zhuǎn)來的病人，應(yīng)包括其在門診及住院期間的所有病歷。對(duì)住院患者僅包含其在院期間，病房治療、檢驗(yàn)項(xiàng)目單據(jù)、手術(shù)信息等在院期間的所有記錄。門診病案身份登記入出轉(zhuǎn)病案編目 出院時(shí)間住院主記錄診斷記錄圖2-6、病案生成編目子系統(tǒng)工作流程病房管理子系統(tǒng)病房管理子系統(tǒng)：主要實(shí)現(xiàn)醫(yī)生、護(hù)士工作站的信息化工作。具體包括：查詢各個(gè)科室的等床病人信息、為等床病人分配床位等?？?/p>

26、對(duì)在科病人進(jìn)行集中管理、診治：可實(shí)現(xiàn)病人入、出、轉(zhuǎn)科及提供出院病人預(yù)通知；提供每日醫(yī)囑的處理、對(duì)應(yīng)記價(jià)項(xiàng)目的錄入及查詢累積花費(fèi)金額等服務(wù)。醫(yī)生工作站 醫(yī)囑身份登記住院預(yù)約登記護(hù)士工作站 醫(yī)囑在科記錄診斷記錄手術(shù)記錄入出轉(zhuǎn)病人日志醫(yī)囑計(jì)價(jià)項(xiàng)目圖2-7、病房管理流程三 系統(tǒng)設(shè)計(jì)（一） 系統(tǒng)設(shè)計(jì)環(huán)境需求硬件：586計(jì)算機(jī)一臺(tái)、打印機(jī)一臺(tái)軟件： MICROSOFT VISUAL BASIC6.0；MICROSOFT ACCESS97操作系統(tǒng)：Windows 2000（二） 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫使整個(gè)系統(tǒng)的基礎(chǔ)。數(shù)據(jù)庫設(shè)計(jì)的好壞，直接關(guān)系到整個(gè)數(shù)據(jù)庫系統(tǒng)(DBMS)的成敗。數(shù)據(jù)庫設(shè)計(jì)時(shí)實(shí)現(xiàn)從概念結(jié)構(gòu)道邏

27、輯結(jié)構(gòu)的轉(zhuǎn)變，它的建立大致可分為：（1）確定建立數(shù)據(jù)庫目的：有助于確定需要ACCESS保存那些信息；（2）確定需要的表：在明確了建立數(shù)據(jù)庫目的之后，就可以著手把信息分成各個(gè)獨(dú)立的主題；（3）確定所需的字段：確定每個(gè)表要保存那些信息；（4）確定關(guān)系：分析每個(gè)表，確定一個(gè)表中的數(shù)據(jù)和他表中的數(shù)據(jù)關(guān)系；（5）改進(jìn)設(shè)計(jì)：對(duì)設(shè)計(jì)進(jìn)一步，查找其中的錯(cuò)誤。以上步驟可一是不同信息分散在不同表中，可以使數(shù)據(jù)庫的組織和維護(hù)工作更簡單，同時(shí)也易于保證建立的應(yīng)用程序具有較高的性能。 注意：1、 要為每張表建立至少一個(gè)索引，一張表中也可建立多個(gè)索引。這樣做可以使JET檢索這個(gè)字段的信息時(shí)更容易。2、 “主關(guān)鍵字”的設(shè)立

28、一定要是表中可以唯一標(biāo)識(shí)記錄的索引。3、 在數(shù)據(jù)庫中定義表與表之間的關(guān)系。這樣做不僅可以簡化檢索任務(wù)，而且對(duì)于保證數(shù)據(jù)庫中數(shù)據(jù)的參照完整性也有很大的好處。圖3-1圖3-5是存在于本系統(tǒng)的表、查詢及關(guān)系：A、 有關(guān)“門診管理子系統(tǒng)”的表和這些表之間的一系列關(guān)系： 圖3-1 、門診管理子系統(tǒng)所用到的12張表 圖3-2、門診管理子系統(tǒng)中主要表之間的關(guān)系門診管理子系統(tǒng)中，最重要的字段莫過于門診號(hào)“OutPat_Code”，它連接著幾乎所有的關(guān)系。而對(duì)于“OutPat_Code”的設(shè)計(jì)采用了“日期+流水號(hào)”的方法。如：門診號(hào)，表示2003年6月3日的第一位門診患者。0001是當(dāng)日的流水號(hào)。這樣的設(shè)計(jì)方法

29、不僅可以滿足小型醫(yī)院的實(shí)際需求。更由于它引入了時(shí)間的概念而使得人們進(jìn)行的查詢更為簡單。對(duì)于病人ID“Pat_ID”可直接采用人們的身份證號(hào)。因?yàn)樗臒o重復(fù)性可保證“”成為患者身份信息的唯一標(biāo)識(shí)。 由于對(duì)實(shí)際問題概括的簡單，可將門診病人的病案號(hào)“OutPat_MR”，由門診號(hào)“OutPat_Code”所代替,暫不考慮部分病人原有病歷這一事實(shí),認(rèn)為醫(yī)院給每一位門診患者都重新配發(fā)病案。B、有關(guān)“住院管理子系統(tǒng)”及“病房管理子系統(tǒng)”的表和這些表之間的一系列關(guān)系： 圖3-3、住院、病房管理子系統(tǒng)所用到的12張表圖3-4、住院、病房管理子系統(tǒng)所用到的部分視圖（在數(shù)據(jù)庫中建立視圖可以方便VB中的調(diào)用）圖3-

30、5、住院、病房管理子系統(tǒng)中主要表之間的關(guān)系住院、病房管理子系統(tǒng)中，較重要的字段應(yīng)為住院號(hào)“InPat_Code”，它的編寫規(guī)則大致同于門診號(hào)“OutPat_Code”。仍然采用了“日期+流水號(hào)”的方法，如：住院號(hào)。住院、病房管理子系統(tǒng)的預(yù)約住院管理中，由于申請(qǐng)住院病人中存在“可住院病人”和“等床病人”兩種不同情況。同時(shí)又為了減少數(shù)據(jù)庫表間的重復(fù)。故而建立三個(gè)不同表在住院預(yù)約子系統(tǒng)中：1、InPat_Code（申請(qǐng)住院患者住院號(hào)與其身份證號(hào)對(duì)照表）2、InPat_Inform （在院病人信息表）3、InPat_WaitBed_Order （等床病人信息表）而門診預(yù)約子系統(tǒng)僅建立了一張表（Clin

31、ic_Code門診患者掛號(hào)信息表）就完成了掛號(hào)任務(wù)。 對(duì)于在院患者的標(biāo)識(shí)病房床位號(hào)“InPat_WardBed_Code”，則采用了“科室編號(hào)+病房號(hào)+床位流水號(hào)”的表示方法，如：床位號(hào)，表示：代碼為01的內(nèi)一科中301病房的001號(hào)床位。由最后三位代碼可得到某一科室的床位總數(shù)。作為在院病人每日的體怔記載、病情進(jìn)展、檢查項(xiàng)目、醫(yī)囑用藥等情況的主要載體“InPat_MR（在院病人病案記錄） ”，它不僅為醫(yī)囑處理和對(duì)應(yīng)記價(jià)項(xiàng)目的錄入提供依據(jù)，而且更是患者住院期間病案的主要內(nèi)容，為患者出院后的病案編目子系統(tǒng)提供材料。它包含的字段有：InPat_Code， InPat_Symptom，Prescrip

32、tion， Exam， Cure， Assay，OPS， Remark，Report ，MR_Date（三） 系統(tǒng)對(duì)象設(shè)計(jì) VB對(duì)數(shù)據(jù)庫應(yīng)用的支持非常強(qiáng)大。它不僅可以和 Jet DB ,ISAM,ODBC等多種數(shù)據(jù)庫建立連接。而且VB中可用的數(shù)據(jù)訪問接口就有3種，其中包括DAO 數(shù)據(jù)訪問對(duì)象 ，RDO 遠(yuǎn)程數(shù)據(jù)對(duì)象 ，ADO ActiveX數(shù)據(jù)對(duì)象。（三種對(duì)象的具體介紹及策略比較見附錄。）本次畢業(yè)設(shè)計(jì)內(nèi)容“小型醫(yī)院信息管理系統(tǒng)”屬于可直接連接到Access數(shù)據(jù)庫，單一系統(tǒng)的本地化的應(yīng)用程序，選用的是DAO 數(shù)據(jù)訪問對(duì)象。具體來說主要采用了面向?qū)ο蟮脑O(shè)計(jì)方法。利用VB可用的數(shù)據(jù)庫“Jet DB”

33、 在VB中直接創(chuàng)建Access數(shù)據(jù)庫。利用VB中可用的數(shù)據(jù) 訪問接口： DAO 數(shù)據(jù)訪問對(duì)象 和 SQL語言進(jìn)行數(shù)據(jù)庫編程。具體子 模塊中還用了大量的數(shù)據(jù)控件和數(shù)據(jù)感知控件，如：Data Control控件，DBGrid控件， MSFlexGrid控件等。 （具體的設(shè)計(jì)方案見第四章。）四 系統(tǒng)功能模塊的設(shè)計(jì)與實(shí)現(xiàn)在設(shè)計(jì)一個(gè)系統(tǒng)時(shí)，為了考慮問題清晰，最好把問題分成模塊，這樣就可以針對(duì)塊進(jìn)行詳細(xì)的討論和設(shè)計(jì)。根據(jù)系統(tǒng)需求分析，本系統(tǒng)劃分為5個(gè)主功能模塊來具體實(shí)現(xiàn)。（一） 門診管理子系統(tǒng)1 身份登記掛號(hào)與預(yù)約子系統(tǒng)用來實(shí)現(xiàn)病人主索引的錄入；門診號(hào)表的自動(dòng)生成；并根據(jù)當(dāng)日設(shè)置的醫(yī)務(wù)人員安排進(jìn)行醫(yī)師的選

34、擇和掛號(hào)費(fèi)的生成。A、身份登記新患者掛號(hào) 填寫病人信息清空窗體 新患者掛號(hào) 確定 填進(jìn)“Pat_Indentity”表 自動(dòng)生成門診號(hào) 圖4-1身份登記的處理流程子函數(shù) Set_OutPatCode ： 設(shè)置門診編號(hào)“當(dāng)日時(shí)期+流水號(hào)”Public Sub Set_OutPatCode()Dim str As StringDim s As StringIf AddRecord = True And Save = True And Text2.text Then str = CStr(Format$(Date, yymmdd) If rs3.RecordCount = 0 Then num =

35、0 Else rs3.MoveLast Do Until rs3.BOF If Left(rs3!OutPat_Code, 6) = str Then num = Right$(rs3!OutPat_Code, 4)Exit Do End If rs3.MovePrevious Loop End Ifnum = num + 1 s = CStr(Format$(num, 0000) Text3.text = str + s Save = FalseEnd IfEnd SubB、掛號(hào)與預(yù)約選取掛號(hào)類型選取掛號(hào)診科 Enter鍵 Enter鍵掛號(hào)費(fèi)可選醫(yī)師姓名 “確定”鍵錄入掛號(hào)信息到“Clini

36、c_Code”表圖4-2。掛號(hào)與預(yù)約的處理流程采用 “按Enter鍵”的方法錄入信息，是使用了控件的“KeyPress事件”?？梢栽O(shè)置“Const Key_Enter = 13”在公共聲明處，然后利用以下代碼進(jìn)行設(shè)置。If KeyAscii = Key_Enter Then. End If按Enter鍵后通過查詢數(shù)據(jù)庫已有字典“Department_Doctor表”，可以得到“可選醫(yī)師姓名”，同理查詢“Register_Type_Bill表”可以得到“掛號(hào)費(fèi)”。查詢語句類似于： Dim str as stringDim rs2 as Recordsetstr = Register_Type=

37、& & Combo3.text & rs2. MoveFirstrs2.FindFirst str If Not rs2.NoMatch Then Text5.text = FormatCurrency(rs2!Register_Bill) 換成貨幣的格式 End If 這種查詢方法只是于查找單個(gè)紀(jì)錄的情況，當(dāng)需要查找符合條件的多條記錄時(shí) ，可采用SQL語句或者Filter屬性。2 門診就診及病歷填寫子系統(tǒng)與掛號(hào)病人的信息直接相連，自動(dòng)錄入病人的身份信息。由醫(yī)師填入患者診斷信息后可進(jìn)行檢查、化驗(yàn)等輔助工作，并開方劃價(jià)。要求自動(dòng)與藥品庫相連，并自動(dòng)產(chǎn)生處方收費(fèi)金額。A、 病人的身份信息自動(dòng)錄入

38、圖4-3病人的身份信息自動(dòng)錄入如圖所視窗體上采取了由文本框的“Text_Change事件”觸發(fā)DBGrid控件出現(xiàn)，雙擊DBGrid控件相應(yīng)框，實(shí)現(xiàn)病人信息的自動(dòng)錄入。（本人認(rèn)為采取由文本框的“Text_Change事件”觸發(fā)并不恰當(dāng)，最好是有方法實(shí)現(xiàn)部分號(hào)碼匹配 。）B、 開處方圖4-5、開處方如圖所示，通過設(shè)置DBGrid控件與藥品字典相連，并通過MSFlexGrid控件可以實(shí)現(xiàn)開處方及產(chǎn)生收費(fèi)金額。MSFlexGrid控件是一個(gè)較為復(fù)雜的控件。它需要設(shè)置表頭，行列等信息；選取相應(yīng)單元格的方法也有很多種；而且需要一個(gè)單獨(dú)的文本框作為輸入接口。以下程序?yàn)門ext3作為輸入接口與MSFlexG

39、rid控件的單元格進(jìn)行匹配的代碼。Public Sub NextPosition(ByVal r As Integer, ByVal c As Integer)將輸入對(duì)話框移至目前保存格Text3.Width = MSFlexGrid1.CellWidth 寬度Text3.Height = MSFlexGrid1.CellHeight 高度Text3.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c) 左側(cè)Text3.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r) 上方Text3.Visible = Tru

40、e 文本框顯示于畫面Text3.SetFocus 獲取光標(biāo)End Sub3 門診收費(fèi)子系統(tǒng)可根據(jù)價(jià)表自動(dòng)準(zhǔn)確的進(jìn)行收費(fèi)。與掛號(hào)表處的患者信息相連。自動(dòng)顯示被選定的患者是否已付費(fèi)，并可以顯示各項(xiàng)收費(fèi)的明細(xì)記錄。采取相應(yīng)措施防止錯(cuò)收、漏收等現(xiàn)象發(fā)生。A、 顯示患者付費(fèi)情況圖4-6、顯示收費(fèi)如圖4-6所示，通過設(shè)置DBGrid控件與門診病人信息相連；通過 Clinic_Bill表中Payment_Mark字段，標(biāo)示患者是否已付費(fèi)；并通過MSFlexGrid控件顯示病人付費(fèi)情況。還可以利用MSFlexGrid控件的CellPicture屬性連接圖形，以便更直觀的體現(xiàn)患者付費(fèi)情況。此處系統(tǒng)通過設(shè)置按鈕無

41、效、不能生成收費(fèi)單據(jù)、彈出警告對(duì)話框等方法來防止錯(cuò)收、漏收等現(xiàn)象發(fā)生。B、 顯示各項(xiàng)收費(fèi)明細(xì)記錄采用浮動(dòng)菜單，可以清楚的察看付費(fèi)病人的各項(xiàng)目具體收費(fèi),如圖4-7所示：圖4-7、顯示收費(fèi)明細(xì)在Form 上單擊右鍵即可出現(xiàn)浮動(dòng)菜單，以下為產(chǎn)生浮動(dòng)菜單的代碼：Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenForm5.PopupMenu mnuEditEnd IfEnd Sub（二） 住院管理子系統(tǒng)1 住院預(yù)約與登記子系統(tǒng)錄入病人的身份信息

42、；提供時(shí)的床位信息；有空床的安排住院病人的床位；無床位的設(shè)置等床病人排隊(duì)信息。 設(shè)置子函數(shù)Set_InPatCode，定義住院號(hào)為“年/月/日+流水號(hào)”，如：；子函數(shù)Set_QueueOrder設(shè)置等床序號(hào)為“月份+科室編碼+流水號(hào)”，如： ； 設(shè)置查詢Bed_Occupy，其字段 Bed_Occupied值為 “0”代表沒有病人，為空床，“1”代表該床位已占。利用控件MSFLexGrid顯示床位情況,包括床位號(hào)、床位等級(jí)、床位租金等詳細(xì)信息。（具體流程見圖4-8）2 病案生成編目子系統(tǒng) A、病案查詢系統(tǒng)支持多種查詢方式 查詢病案 按病癥查詢按病人身份查詢 病癥A病癥B 圖4-10、查詢病案添

43、加新患者填入患者ID號(hào) “Enter”鍵 查找患者信息自動(dòng)錄入身份信息 存在原先記錄 （是門診患者） 沒有記錄 手工添加身份信息 選擇住院科室 “Enter”健生成住院號(hào) 有無空床 生成等床排隊(duì)序號(hào) 沒有空床 有空床 顯示空床記錄 雙擊床位號(hào) 分配床位 確定 確定填入記錄到數(shù)據(jù)庫 圖4-8、入院登記的處理流程B、生成病案一般包括首頁，門診病例，住院病例等。首頁在病人離院后自動(dòng)生成，包括病人基本信息及其所患病癥的結(jié)論性信息。對(duì)于門診轉(zhuǎn)來的病人，應(yīng)包括其在門診及住院期間的所有病歷。對(duì)住院患者僅包含其在院期間，病房治療、檢驗(yàn)項(xiàng)目單據(jù)、手術(shù)信息等在院期間的所有記錄。 （生成病案的具體流程見圖4-9）

44、患者離院生成病案首頁 是否為門診轉(zhuǎn)來的添加門診病案 是 否添加住院病案保存病人病案 圖4-9、生成病案流程（三）病房管理子系統(tǒng)查詢各個(gè)科室的等床病人信息、為等床病人分配床位；在科病人實(shí)現(xiàn)入、出、轉(zhuǎn)科及提供出院病人預(yù)通知；提供每日醫(yī)囑的處理、對(duì)應(yīng)記價(jià)項(xiàng)目的錄入及查詢累積花費(fèi)金額等服務(wù)。此系統(tǒng)的設(shè)計(jì)引入了圖表式的顯示方法，這樣做可以更直觀的對(duì)病人進(jìn)行管理 ，如4-11圖所示： 圖4-11、圖表化顯示通過Combo Box控件內(nèi)容的選擇可以察看不同科室的情況（采用Combo Box的KeyPress的事件實(shí)現(xiàn)）； 利用浮動(dòng)菜單為在院病人或等床病人分別進(jìn)行管理：對(duì)等床病人實(shí)現(xiàn)了察看等床病人記錄、安排病

45、床的功能；對(duì)在院病人可以進(jìn)行手術(shù)申請(qǐng)、填寫病例、轉(zhuǎn)科、出院等功能。（四） 錯(cuò)誤處理及其他1 利用Err對(duì)象捕獲錯(cuò)誤 DAO中提供了Error 和Errors 兩個(gè)對(duì)象用以處理錯(cuò)誤，而VB中提供的Err對(duì)象可以對(duì)任何應(yīng)用程序中的錯(cuò)誤進(jìn)行有效的跟蹤和報(bào)告：屬性Description,可返回一個(gè)包含錯(cuò)誤描述的字符串變量；屬性 Source可返回一個(gè)包含產(chǎn)生錯(cuò)誤的對(duì)象名字的字符串變量；屬性Number返回一個(gè)描述錯(cuò)誤數(shù)目的整形變量。在本系統(tǒng)中為保證對(duì)錯(cuò)誤的捕獲，程序中使用如下語句：.MsgBox ”Number:” & CStr(Err. Number) & ”Description: ” & Err

46、. Description & “Source:” & Err. Source2 利用On Error GoTo處理錯(cuò)誤 On Error GoTo用于程序或函數(shù)的開始部分,它可以決定出現(xiàn)錯(cuò)誤時(shí)如何去做。文中大量采用了Resume Label,用以返回應(yīng)用程序發(fā)生故障的地點(diǎn)。如下：On Error GoTo LabelErrorLabelResume:Exit subLabelError:MsgBox ”Number:”& CStr(Err. Number) & “Description:”& Err. Description & “Source:”& Err. SourceResume LabelResume3 利用事務(wù)維護(hù)數(shù)據(jù)庫的完整性前面我們已經(jīng)提到利用建立數(shù)據(jù)庫中表之間的關(guān)系,可以維護(hù)數(shù)據(jù)庫的參照完整性。VB在中我們還可以利用事務(wù)的方法維護(hù)數(shù)據(jù)庫的完整性。DAO中 Workspace對(duì)象提供3個(gè)方法用來封裝事務(wù)：BeginTranse()描述事務(wù)的開始. CommitTranse()描述事務(wù)的結(jié)尾RollTranse()方法可以使你的事務(wù)的不被用于數(shù)據(jù)庫使用這幾種事務(wù)方法,可以更新大量的跨越好幾個(gè)表的數(shù)據(jù),并且在程序出現(xiàn)錯(cuò)誤時(shí)撤銷用戶對(duì)數(shù)據(jù)庫的更改