基于-VB醫(yī)院信息管理系統(tǒng)

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

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

3、the capability of puters continuously enhanse,and the price continuously fall,puter has more and more widely apply in many ways such as hospital medical treatment,teaching,scientific reseach,manage and so on.puterize hospital information system has became the necessary foundation establishmentand te

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

5、nformation 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 service and management. The

6、 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 e*ploringHMIS (Hospital Mange Information System)the Management of Out

7、patient, Inpatient, Ward generally, and remends 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 has float menus and some Messa

8、ge Bo*es, that make it easy and convenient to understand to user.Keywords: HMIS Clinic Ward 目 錄 HYPERLINK l _引_言引言6HYPERLINK l _一_概述一 概述7HYPERLINK l _一數(shù)據(jù)庫簡介一數(shù)據(jù)庫簡介7 HYPERLINK l _二_管理信息系統(tǒng)簡述 二 管理信息系統(tǒng)簡述7 HYPERLINK l _三_醫(yī)院管理信息系統(tǒng)簡述 三 醫(yī)院管理信息系統(tǒng)簡述9 HYPERLINK l _1_問題的提出 1 問題的提出9 HYPERLINK l _2_醫(yī)院管理信息系統(tǒng)概述 2 醫(yī)院

9、管理信息系統(tǒng)概述.9 HYPERLINK l _3_門診、住院、病房管理系統(tǒng)功能簡介 3 門診、住院、病房管理系統(tǒng)功能簡介.10 HYPERLINK l _四_醫(yī)院信息化的現(xiàn)狀與開展 四 醫(yī)院信息化的現(xiàn)狀與開展11 HYPERLINK l _二_系統(tǒng)分析 二 系統(tǒng)分析12 HYPERLINK l _一_可行性研究 一 可行性研究.12 HYPERLINK l _二_需求分析 二 需求分析.13 HYPERLINK l _1_本系統(tǒng)設(shè)計的總體目標(biāo) 1 本系統(tǒng)設(shè)計的總體目標(biāo).13 HYPERLINK l _2_本系統(tǒng)設(shè)計具體目標(biāo) 2 本系統(tǒng)設(shè)計具體目標(biāo).13 HYPERLINK l _三_系統(tǒng)設(shè)計

10、 三 系統(tǒng)設(shè)計.19 HYPERLINK l _一_系統(tǒng)設(shè)計環(huán)境需求 一 系統(tǒng)設(shè)計環(huán)境需求.19 HYPERLINK l _二_數(shù)據(jù)庫構(gòu)造設(shè)計 二 數(shù)據(jù)庫構(gòu)造設(shè)計.19 HYPERLINK l _三_系統(tǒng)對象設(shè)計 三 系統(tǒng)對象設(shè)計.24 HYPERLINK l _四_系統(tǒng)功能模塊的設(shè)計與實現(xiàn) 四 系統(tǒng)功能模塊的設(shè)計與實現(xiàn).26 HYPERLINK l _一_門診管理子系統(tǒng) 一 門診管理子系統(tǒng)26 HYPERLINK l _1_身份登記掛號與預(yù)約子系統(tǒng) 1 身份登記掛號與預(yù)約子系統(tǒng)26 HYPERLINK l _2_門診就診及病歷填寫子系統(tǒng) 2 門診就診及病歷填寫子系統(tǒng)29 HYPERLINK

11、l _3_門診收費(fèi)子系統(tǒng) 3 門診收費(fèi)子系統(tǒng)31 HYPERLINK l _二_住院管理子系統(tǒng) 二 住院管理子系統(tǒng)33 HYPERLINK l _1_住院預(yù)約與登記子系統(tǒng) 1 住院預(yù)約與登記子系統(tǒng)33 HYPERLINK l _2_病案生成編目子系統(tǒng) 2 病案生成編目子系統(tǒng)33 HYPERLINK l _三病房管理子系統(tǒng) 三病房管理子系統(tǒng).35 HYPERLINK l _四_錯誤處理及其他 四 錯誤處理及其他37 HYPERLINK l _1_利用Err對象捕獲錯誤 1 利用Err對象捕獲錯誤.37 HYPERLINK l _2_利用On_Error_GoTo處理錯誤 2 利用On Error

12、 GoTo處理錯誤.37 HYPERLINK l _3_利用事務(wù)維護(hù)數(shù)據(jù)庫的完整性 3 利用事務(wù)維護(hù)數(shù)據(jù)庫的完整性38 HYPERLINK l _五系統(tǒng)集成時的錯誤處理 五系統(tǒng)集成時的錯誤處理.38 HYPERLINK l _六Visual_Basic_6.0中文版數(shù)據(jù)接口簡介 六Visual Basic 6.0中文版數(shù)據(jù)接口簡介.39 HYPERLINK l _1_DAO簡介 1 DAO簡介.39 HYPERLINK l _2_RDO簡介 2 RDO簡介.41 HYPERLINK l _3_ADO簡介 3 ADO簡介.42 HYPERLINK l _4_三種策略比擬 4 三種策略比擬43 H

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

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

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

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

17、規(guī)劃主要完成兩個任務(wù)：對現(xiàn)行系統(tǒng)的調(diào)查研究，以弄清現(xiàn)行系統(tǒng)的狀況；然后，基于源于現(xiàn)行系統(tǒng)，高于現(xiàn)行系統(tǒng)的思路提出新的計算和信息系統(tǒng)方案，對新系統(tǒng)進(jìn)展可行性分析。系統(tǒng)分析是信息管理系統(tǒng)開發(fā)工作中最重要的一環(huán)，容主要包括對組織各部門，各業(yè)務(wù)的詳細(xì)了解，并在此根底上進(jìn)展分析，提出新的方案，在系統(tǒng)分析中扎扎實實地了解實現(xiàn)工作部門的業(yè)務(wù)情況是根底，只有在對處理業(yè)務(wù)了解得非常透徹的前提下，才有可能提出新的改良方案。系統(tǒng)設(shè)計要解決系統(tǒng)如何干的問題，也就是根據(jù)系統(tǒng)分析的結(jié)果，考慮實際條件，進(jìn)展總體構(gòu)造設(shè)計，具體物理模型設(shè)計，在各種技術(shù)手段和實施方法中，權(quán)衡利弊，進(jìn)展精心設(shè)計，合理地使用各種資源。系統(tǒng)實施是將系

18、統(tǒng)分析和系統(tǒng)設(shè)計中制定的干什么，怎么干的結(jié)果付諸實施，這個階段需要完成的任務(wù)很多，編制程序，調(diào)試，運(yùn)行與維護(hù)，系統(tǒng)評價等。三 醫(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ì)效益和社會效益都得到大幅度的提高。本次畢業(yè)設(shè)計就是針對這種需求，響應(yīng)開發(fā)設(shè)計的。2 醫(yī)院管理信息系統(tǒng)概述醫(yī)院管理信息系統(tǒng)Hospital Mange Information System，簡稱HMIS是對醫(yī)院信息進(jìn)展管理的計算機(jī)網(wǎng)絡(luò)軟件系統(tǒng)，它可完成醫(yī)

19、院中各類信息的收集、傳輸、存儲、加工、使用和分析。是融合了醫(yī)院的管理思想、各部門的業(yè)務(wù)經(jīng)歷，以及對計算機(jī)技術(shù)的恰當(dāng)運(yùn)用的軟件開發(fā)成果。醫(yī)院管理信息系統(tǒng)HMIS以醫(yī)院醫(yī)療信息管理為主線，實現(xiàn)全面的信息化。以患者為中心是其主要設(shè)計思想。系統(tǒng)設(shè)計主要突出強(qiáng)化了 ：系統(tǒng)與數(shù)據(jù)的平安性，構(gòu)架、構(gòu)件設(shè)計的標(biāo)準(zhǔn)化，實時響應(yīng)速度的快速化，及人機(jī)界面設(shè)計的友善性，適應(yīng)醫(yī)療保險信息的兼容性等方面。系統(tǒng)依照軟件工程化方式開發(fā)的醫(yī)院全面信息管理系統(tǒng)，具有開放靈活、高性能價格比和幾乎無限地適應(yīng)醫(yī)院現(xiàn)在和未來信息處理增長的需求。醫(yī)院管理信息系統(tǒng)HMIS從功能上覆蓋了門診病人管理，住院病人管理，檢驗信息管理，檢查信息管理，

20、藥品管理，血庫管理，器械管理，經(jīng)濟(jì)管理等各個環(huán)節(jié)。其信息容不僅包含構(gòu)造化的文字信息，還包含自由文本、圖形圖像等信息。3 門診、住院、病房管理系統(tǒng)功能簡介醫(yī)院管理信息系統(tǒng)HMIS是醫(yī)療效勞和管理的重要輔助手段。它也是一個有著10個系統(tǒng)和60多個子系統(tǒng)的十分龐雜的系統(tǒng)。對于我本次畢業(yè)設(shè)計中所負(fù)責(zé)的門診，住院，病房管理這三個子系統(tǒng)其主要功能如下：門診病人管理門診病人信息的計算機(jī)化是對最賦挑戰(zhàn)性的任務(wù)。醫(yī)院管理系統(tǒng)支持多種管理模式，努力解決門診頂峰時病人掛號、劃價收費(fèi)的速度問題.。系統(tǒng)具有廣泛的適應(yīng)性、友好的界面與平安性設(shè)計，保證了缺少計算機(jī)使用根底的操作人員易學(xué)易會。住院病人管理住院病人管理信息系統(tǒng)

21、的核心功能是輔助住院病人的住、出、轉(zhuǎn)及住院病人費(fèi)用管理的事務(wù)處理；同時為醫(yī)院醫(yī)療統(tǒng)計提供及時、準(zhǔn)確、完整的數(shù)據(jù)。病案管理擁有權(quán)威的數(shù)據(jù)字典系統(tǒng)；通過數(shù)據(jù)資源共享，大大減少病案編輯工作量；病案首頁及各種疾病分類報表格式均符合衛(wèi)生部有關(guān)規(guī)，滿足醫(yī)生臨床、科研和教學(xué)對病案的檢索需求；交互式完成病案借閱和歸還處理工作，提高了病案室工作效率，直接支持醫(yī)療動態(tài)統(tǒng)計和病案質(zhì)量控制的管理需求；綜合查詢模塊可支持用戶按病人號、疾病名稱等多種方法進(jìn)展查詢。四 醫(yī)院信息化的現(xiàn)狀與開展我國大型醫(yī)院管理信息系統(tǒng)的開發(fā)和應(yīng)用已經(jīng)到達(dá)興旺國家的平均水平，一些優(yōu)秀的系統(tǒng)甚至已經(jīng)接近國際先進(jìn)水平。但在臨床信息系統(tǒng)方面，如門診醫(yī)

22、生工作站、檢驗信息系統(tǒng)等，與國際先進(jìn)水平相比都還有較大的差距。2002年，衛(wèi)生部對國6921家醫(yī)院進(jìn)展調(diào)查，其中有2179家建立了醫(yī)院信息系統(tǒng)(HIS)，占31%。從醫(yī)院規(guī)模看，省級醫(yī)院建立HIS的比例到達(dá)84%，地市級醫(yī)院建立HIS的比例為37%，縣級醫(yī)院為34%。衛(wèi)生部九五規(guī)劃提出醫(yī)院信息化任務(wù)是，三甲醫(yī)院有50%建成HIS，現(xiàn)在已經(jīng)完成了任務(wù)。 HMIS高端需求顯現(xiàn)，低端市場龐大是當(dāng)前院信息市場開展的主要趨勢。在HMIS逐漸走向成熟時，大型醫(yī)院和中小醫(yī)院的需求逐漸分化：大型醫(yī)院逐漸認(rèn)識到建立HMIS的復(fù)雜度和維護(hù)的重要性，開場探索HMIS的穩(wěn)定性和實用性；小型醫(yī)院也認(rèn)識到HMIS的優(yōu)越性

23、，開場將對HMIS的需求提到議事日程上。HMIS市場開場真正進(jìn)入產(chǎn)品競爭時期。二 系統(tǒng)分析系統(tǒng)分析是確定軟件開發(fā)工程中最重要的一環(huán)，確定工程的可行性，導(dǎo)出實現(xiàn)工程目標(biāo)應(yīng)該采用的策略及系統(tǒng)必須完成的功能，估計完成該工程需要的資源和本錢，并且制定工程進(jìn)度表等。這一局部的容又可以進(jìn)一步劃分為可行性研究，需求分析，總體設(shè)計本容將放在第三章中做詳細(xì)的說明，詳細(xì)設(shè)計分三個階段進(jìn)展。一可行性研究可行性研究的目的就是用最小的代價在盡可能短的時期確定問題是否能夠解決。包括：技術(shù)可行性：本系統(tǒng)采用的技術(shù)手段是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計語言MICROSOFT VISUAL BASIC6.0 ，Windows2000下的

24、中文MICROSOFT ACCESS97軟件，它具有以下四個特征，可以保證實現(xiàn)這個系統(tǒng)：A、可視化設(shè)計技術(shù)B、面向?qū)ο缶幊碳夹g(shù)C、VB與 ACCESS97間方便多樣的連接技術(shù)D、與其他應(yīng)用軟件的數(shù)據(jù)共享和應(yīng)用交互經(jīng)濟(jì)可行性：本系統(tǒng)開發(fā)所需的實驗室、PC機(jī)、打印機(jī)等硬件設(shè)備由岳建國教師提供。所需的背景資料、開發(fā)軟件、和各類幫助文件等，也都能比擬方便地在教師，同學(xué)或圖書館處找到，不需浪費(fèi)很多時間和財力。二 需求分析需求分析是的根本任務(wù)是準(zhǔn)確答復(fù)系統(tǒng)必須做什么這個問題。1分析系統(tǒng)的數(shù)據(jù)要求；2導(dǎo)出系統(tǒng)的邏輯模型；3修正系統(tǒng)開發(fā)方案；4開發(fā)原型系統(tǒng)。1 本系統(tǒng)設(shè)計的總體目標(biāo)1、 使系統(tǒng)平安化：設(shè)置多種

25、用戶級別以限制各類用戶的操作權(quán)限；設(shè)置數(shù)據(jù)庫自動修復(fù)功能，以防止各類突發(fā)事件如斷電、硬件突然損壞等、 用戶的誤操作等造成的數(shù)據(jù)庫不一致。通過各種途徑保障系統(tǒng)平安。2、設(shè)置合理化：支持用戶通過各種途徑如使用：圖標(biāo)、按紐、下拉菜單、浮動菜單等切換窗口，以到達(dá)所要操作的界面。3、使系統(tǒng)界面友好化：設(shè)置用戶使用向?qū)А⑾到y(tǒng)說明，在操作過程中彈出對話框、警告圖標(biāo)等，引導(dǎo)用戶正確使用該軟件；2 本系統(tǒng)設(shè)計具體目標(biāo)門診管理子系統(tǒng)A、身份登記子系統(tǒng)：用來實現(xiàn)病人主索引的錄入。它是其他子系統(tǒng)有關(guān)病人信息的來源。身份登記子系統(tǒng)住院病案記錄 門診病案記錄病人主索引圖2-1、身份登記子系統(tǒng)工作流程 B、掛號與預(yù)約子系統(tǒng)

26、：用來自動生成門診號，根據(jù)當(dāng)日設(shè)置的醫(yī)務(wù)人員安排進(jìn)展醫(yī)師的選擇和掛號費(fèi)的生成。就診記錄身份登記掛號與預(yù)約圖2-2、掛號與預(yù)約子系統(tǒng)工作流程 C、診就診及病歷填寫：與掛號病人的信息直接相連，自動錄入病人的身份信息。由醫(yī)師填入患者診斷信息后可進(jìn)展檢查、化驗等輔助工作，并開方劃價。要求自動與藥品庫相連，并自動產(chǎn)生處方收費(fèi)金額。病案歸檔門診掛號就診填寫病案身份登記 門診、住院病案圖2-3、就診及病例管理子系統(tǒng)D、門診收費(fèi)子系統(tǒng)：可根據(jù)價表自動準(zhǔn)確的進(jìn)展收費(fèi)。與掛號表處的患者信息相連。自動顯示被選定的患者是否已付費(fèi)，并可以顯示各項收費(fèi)的明細(xì)記錄。采取相應(yīng)措施防止錯收、漏收等現(xiàn)象發(fā)生。身份登記病案填寫門診

27、收費(fèi) 病人信息 費(fèi)用信息處方費(fèi)用明細(xì)診療費(fèi)用明細(xì)門診收據(jù)圖2-4、門診收費(fèi)子系統(tǒng)工作流程住院管理子系統(tǒng) A、住院預(yù)約與登記子系統(tǒng)：建立病人住院申請信息。錄入病人的身份信息門診錄入過的病人自動生成身份信息；提供時的床位信息，包括空床的床位號、床位等級、床位租金等詳細(xì)信息；為有空床的科室安排申請住院病人的床位；對無病房床位的科室安排等床病人排隊信息。住院預(yù)約與登記病房入出轉(zhuǎn)身份登記主索引床位情況轉(zhuǎn)科病人住院記錄圖2-5、住院預(yù)約與登記子系統(tǒng)工作流程B、 病案生成編目子系統(tǒng)：在病人離院后自動生成該病人的病案編目首頁。首頁包括病人根本信息及其所患病癥的結(jié)論性信息。對于門診轉(zhuǎn)來的病人，應(yīng)包括其在門診及住

28、院期間的所有病歷。對住院患者僅包含其在院期間，病房治療、檢驗工程單據(jù)、手術(shù)信息等在院期間的所有記錄。門診病案身份登記入出轉(zhuǎn)病案編目 出院時間住院主記錄診斷記錄圖2-6、病案生成編目子系統(tǒng)工作流程病房管理子系統(tǒng)病房管理子系統(tǒng)：主要實現(xiàn)醫(yī)生、護(hù)士工作站的信息化工作。具體包括：查詢各個科室的等床病人信息、為等床病人分配床位等?？蓪υ诳撇∪诉M(jìn)展集中管理、診治：可實現(xiàn)病人入、出、轉(zhuǎn)科及提供出院病人預(yù)通知；提供每日醫(yī)囑的處理、對應(yīng)記價工程的錄入及查詢累積花費(fèi)金額等效勞。醫(yī)生工作站 醫(yī)囑身份登記住院預(yù)約登記護(hù)士工作站醫(yī)囑在科記錄診斷記錄手術(shù)記錄入出轉(zhuǎn)病人日志醫(yī)囑計價工程圖2-7、病房管理流程三 系統(tǒng)設(shè)計一

29、系統(tǒng)設(shè)計環(huán)境需求硬件：586計算機(jī)一臺、打印機(jī)一臺軟件：MICROSOFT VISUAL BASIC6.0；MICROSOFT ACCESS97操作系統(tǒng)：Windows 2000二數(shù)據(jù)庫構(gòu)造設(shè)計數(shù)據(jù)庫使整個系統(tǒng)的根底。數(shù)據(jù)庫設(shè)計的好壞，直接關(guān)系到整個數(shù)據(jù)庫系統(tǒng)(DBMS)的成敗。數(shù)據(jù)庫設(shè)計時實現(xiàn)從概念構(gòu)造道邏輯構(gòu)造的轉(zhuǎn)變，它的建立大致可分為：1確定建立數(shù)據(jù)庫目的：有助于確定需要ACCESS保存那些信息；2確定需要的表：在明確了建立數(shù)據(jù)庫目的之后，就可以著手把信息分成各個獨立的主題；3確定所需的字段：確定每個表要保存那些信息；4確定關(guān)系：分析每個表，確定一個表中的數(shù)據(jù)和他表中的數(shù)據(jù)關(guān)系；5改良設(shè)

30、計：對設(shè)計進(jìn)一步，查找其中的錯誤。以上步驟可一是不同信息分散在不同表中，可以使數(shù)據(jù)庫的組織和維護(hù)工作更簡單，同時也易于保證建立的應(yīng)用程序具有較高的性能。 注意：要為每表建立至少一個索引，一表中也可建立多個索引。這樣做可以使JET檢索這個字段的信息時更容易。主關(guān)鍵字的設(shè)立一定要是表中可以唯一標(biāo)識記錄的索引。在數(shù)據(jù)庫中定義表與表之間的關(guān)系。這樣做不僅可以簡化檢索任務(wù)，而且對于保證數(shù)據(jù)庫中數(shù)據(jù)的參照完整性也有很大的好處。圖3-1圖3-5是存在于本系統(tǒng)的表、查詢及關(guān)系：有關(guān)門診管理子系統(tǒng)的表和這些表之間的一系列關(guān)系： 圖3-1 、門診管理子系統(tǒng)所用到的12表 圖3-2、門診管理子系統(tǒng)中主要表之間的關(guān)系

31、門診管理子系統(tǒng)中，最重要的字段莫過于門診號OutPat_Code，它連接著幾乎所有的關(guān)系。而對于OutPat_Code的設(shè)計采用了日期+流水號的方法。如：門診號0306030001，表示2003年6月3日的第一位門診患者。0001是當(dāng)日的流水號。這樣的設(shè)計方法不僅可以滿足小型醫(yī)院的實際需求。更由于它引入了時間的概念而使得人們進(jìn)展的查詢更為簡單。對于病人IDPat_ID可直接采用人們的號。因為它的無重復(fù)性可保證成為患者身份信息的唯一標(biāo)識。 由于對實際問題概括的簡單，可將門診病人的病案號OutPat_MR，由門診號OutPat_Code所代替,暫不考慮局部病人原有病歷這一事實,認(rèn)為醫(yī)院給每一位門診

32、患者都重新配發(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-5、住院、病房管理子系統(tǒng)中主要表之間的關(guān)系住院、病房管理子系統(tǒng)中，較重要的字段應(yīng)為住院號InPat_Code，它的編寫規(guī)則大致同于門診號OutPat_Code。仍然采用了日期+流水號的方法，如：住院號0305180001。住院、病房管理子系統(tǒng)的預(yù)約住院管理中，由于申請住院病人中存在可住院病人和等床病人兩種不同情況。同時又為了減少數(shù)據(jù)庫表間的重復(fù)。故而建立三個不同表在住院預(yù)約子

33、系統(tǒng)中：1、InPat_Code申請住院患者住院號與其號對照表2、InPat_Inform 在院病人信息表3、InPat_WaitBed_Order 等床病人信息表而門診預(yù)約子系統(tǒng)僅建立了一表Clinic_Code門診患者掛號信息表就完成了掛號任務(wù)。 對于在院患者的標(biāo)識病房床位號InPat_WardBed_Code，則采用了科室編號+病房號+床位流水號的表示方法，如：床位號01301001，表示：代碼為01的一科中301病房的001號床位。由最后三位代碼可得到*一科室的床位總數(shù)。作為在院病人每日的體怔記載、病情進(jìn)展、檢查工程、醫(yī)囑用藥等情況的主要載體InPat_MR在院病人病案記錄 ，它不僅為

34、醫(yī)囑處理和對應(yīng)記價工程的錄入提供依據(jù)，而且更是患者住院期間病案的主要容，為患者出院后的病案編目子系統(tǒng)提供材料。它包含的字段有：InPat_Code， InPat_Symptom，Prescription， E*am， Cure， Assay，OPS， Remark，Report ，MR_Date三 系統(tǒng)對象設(shè)計VB對數(shù)據(jù)庫應(yīng)用的支持非常強(qiáng)大。它不僅可以和 Jet DB ,ISAM,ODBC等多種數(shù)據(jù)庫建立連接。而且VB中可用的數(shù)據(jù)接口就有3種，其中包括DAO 數(shù)據(jù)對象 ，RDO 遠(yuǎn)程數(shù)據(jù)對象 ，ADO Active*數(shù)據(jù)對象。三種對象的具體介紹及策略比擬見附錄。本次畢業(yè)設(shè)計容小型醫(yī)院信息管理系

35、統(tǒng)屬于可直接連接到Access數(shù)據(jù)庫，單一系統(tǒng)的本地化的應(yīng)用程序，選用的是DAO 數(shù)據(jù)對象。具體來說主要采用了面向?qū)ο蟮脑O(shè)計方法。利用VB可用的數(shù)據(jù)庫Jet DB 在VB中直接創(chuàng)立Access數(shù)據(jù)庫。利用VB中可用的數(shù)據(jù) 接口： DAO 數(shù)據(jù)對象 和 SQL語言進(jìn)展數(shù)據(jù)庫編程。具體子 模塊中還用了大量的數(shù)據(jù)控件和數(shù)據(jù)感知控件，如：Data Control控件，DBGrid控件， MSFle*Grid控件等。 具體的設(shè)計方案見第四章。四 系統(tǒng)功能模塊的設(shè)計與實現(xiàn)在設(shè)計一個系統(tǒng)時，為了考慮問題清晰，最好把問題分成模塊，這樣就可以針對塊進(jìn)展詳細(xì)的討論和設(shè)計。根據(jù)系統(tǒng)需求分析，本系統(tǒng)劃分為5個主功能模

36、塊來具體實現(xiàn)。一門診管理子系統(tǒng)1 身份登記掛號與預(yù)約子系統(tǒng)用來實現(xiàn)病人主索引的錄入；門診號表的自動生成；并根據(jù)當(dāng)日設(shè)置的醫(yī)務(wù)人員安排進(jìn)展醫(yī)師的選擇和掛號費(fèi)的生成。A、身份登記新患者掛號 填寫病人信息清空窗體 新患者掛號 確定 填進(jìn)Pat_Indentity表 自動生成門診號 圖4-1身份登記的處理流程子函數(shù)Set_OutPatCode ： 設(shè)置門診編號當(dāng)日時期+流水號Public Sub Set_OutPatCode()Dim str As StringDim s As StringIf AddRecord = True And Save = True And Te*t2.te*t Then

37、str = CStr(Format$(Date, yymmdd) If rs3.RecordCount = 0 Thennum = 0Elsers3.MoveLastDo Until rs3.BOF If Left(rs3!OutPat_Code, 6) = str Thennum = Right$(rs3!OutPat_Code, 4)E*it Do End If rs3.MovePrevious Loop End Ifnum = num + 1 s = CStr(Format$(num, 0000) Te*t3.te*t = str + sSave = FalseEnd IfEnd Sub

38、B、掛號與預(yù)約選取掛號類型選取掛號診科 Enter鍵 Enter鍵掛號費(fèi)可選醫(yī)師*確定鍵錄入掛號信息到Clinic_Code表圖4-2。掛號與預(yù)約的處理流程采用 按Enter鍵的方法錄入信息，是使用了控件的KeyPress事件。可以設(shè)置Const Key_Enter = 13”在公共聲明處，然后利用以下代碼進(jìn)展設(shè)置。If KeyAscii = Key_Enter Then. End If按Enter鍵后通過查詢數(shù)據(jù)庫已有字典Department_Doctor表，可以得到可選醫(yī)師，同理查詢Register_Type_Bill表可以得到掛號費(fèi)。查詢語句類似于： Dim str as stringD

39、im rs2 as Recordsetstr = Register_Type= & & bo3.te*t & rs2. MoveFirstrs2.FindFirst str If Not rs2.NoMatch Then Te*t5.te*t = FormatCurrency(rs2!Register_Bill) 換成貨幣的格式 End If這種查詢方法只是于查找單個紀(jì)錄的情況，當(dāng)需要查找符合條件的多條記錄時 ，可采用SQL語句或者Filter屬性。2 門診就診及病歷填寫子系統(tǒng)與掛號病人的信息直接相連，自動錄入病人的身份信息。由醫(yī)師填入患者診斷信息后可進(jìn)展檢查、化驗等輔助工作，并開方劃價。要求

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

41、為Te*t3作為輸入接口與MSFle*Grid控件的單元格進(jìn)展匹配的代碼。Public Sub Ne*tPosition(ByVal r As Integer, ByVal c As Integer)將輸入對話框移至目前保存格Te*t3.Width = MSFle*Grid1.CellWidth 寬度Te*t3.Height = MSFle*Grid1.CellHeight 高度Te*t3.Left = MSFle*Grid1.Left + MSFle*Grid1.ColPos(c) 左側(cè)Te*t3.Top = MSFle*Grid1.Top + MSFle*Grid1.RowPos(r) 上

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

43、者付費(fèi)情況。此處系統(tǒng)通過設(shè)置按鈕無效、不能生成收費(fèi)單據(jù)、彈出警告對話框等方法來防止錯收、漏收等現(xiàn)象發(fā)生。顯示各項收費(fèi)明細(xì)記錄采用浮動菜單，可以清楚的觀察付費(fèi)病人的各工程具體收費(fèi),如圖4-7所示：圖4-7、顯示收費(fèi)明細(xì)在Form 上單擊右鍵即可出現(xiàn)浮動菜單，以下為產(chǎn)生浮動菜單的代碼：Private Sub Form_MouseUp(Button As Integer, Shift As Integer, * As Single, Y As Single)If Button = 2 ThenForm5.PopupMenu mnuEditEnd IfEnd Sub二住院管理子系統(tǒng)1 住院預(yù)約與登記子

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

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

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

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

48、 & Err. Source2 利用On Error GoTo處理錯誤 On Error GoTo用于程序或函數(shù)的開場局部,它可以決定出現(xiàn)錯誤時如何去做。文量采用了Resume Label,用以返回應(yīng)用程序發(fā)生故障的地點。如下：On Error GoTo LabelErrorLabelResume:E*it subLabelError:MsgBo* Number:& CStr(Err. Number) & Description:& Err. Description & Source:& Err. SourceResume LabelResume3 利用事務(wù)維護(hù)數(shù)據(jù)庫的完整性前面我們已經(jīng)提到利

49、用建立數(shù)據(jù)庫中表之間的關(guān)系,可以維護(hù)數(shù)據(jù)庫的參照完整性。VB在中我們還可以利用事務(wù)的方法維護(hù)數(shù)據(jù)庫的完整性。DAO中 Workspace對象提供3個方法用來封裝事務(wù)：BeginTranse()描述事務(wù)的開場. mitTranse()描述事務(wù)的結(jié)尾RollTranse()方法可以使你的事務(wù)的不被用于數(shù)據(jù)庫使用這幾種事務(wù)方法,可以更新大量的跨越好幾個表的數(shù)據(jù),并且在程序出現(xiàn)錯誤時撤銷用戶對數(shù)據(jù)庫的更改.五系統(tǒng)集成時的錯誤處理由于此次畢設(shè)是分由幾位同學(xué)共同完成，故當(dāng)后期大家的各個子模塊完成后,需要進(jìn)展工程的合并。由于每為同學(xué)的設(shè)計思想及設(shè)計方法均不一樣,合并時也就出現(xiàn)了很多問題。最典型的為：在同一個

50、工程中即添加了ADO又添加了DAO，程序報錯：*不識別。這是因為ADO 和DAO都存在Recordset對象,程序無法確認(rèn)*處的引用到底是那個方法的Recordset對象。解決的方法有：1、可在References對話框中設(shè)置優(yōu)先級2、在代碼中引用時加前綴直接引用該對象庫，如：Dim adoRecordset as ADODB.RecordsetDim daoRecordset as DAODB.Recordset本系統(tǒng)采用的是第二種方法,直接在代碼中聲明。六Visual Basic 6.0中文版數(shù)據(jù)接口簡介VB對數(shù)據(jù)庫應(yīng)用的支持非常強(qiáng)大。它不僅可以和 Jet DB ,ISAM,ODBC等多種

51、數(shù)據(jù)庫建立連接。而且VB中可用的數(shù)據(jù)接口就有3種，其中包括DAO 數(shù)據(jù)對象 ，RDO 遠(yuǎn)程數(shù)據(jù)對象 ，ADO Active*數(shù)據(jù)對象。1 DAO簡介DAO也稱Jet 數(shù)據(jù)引擎，是組成數(shù)據(jù)引擎核的一組動態(tài)連接庫DLL。DAO 體系構(gòu)造包括三級，如圖1：VB數(shù)據(jù)接口DAO數(shù)據(jù)引擎數(shù)據(jù)倉庫，圖1、DAO 的三層體系構(gòu)造用戶接口是Visual Basic 開發(fā)的，包括用戶與數(shù)據(jù)庫交互所需的全部組件。DAO提供的Jet 數(shù)據(jù)引擎提供了與數(shù)據(jù)庫交互的機(jī)制。數(shù)據(jù)倉庫本質(zhì)上就是一個數(shù)據(jù)存放地，它可以是各種不同的數(shù)據(jù)庫類型，如：Microsoft Access, ODBC 數(shù)據(jù)庫, Microsoft SQL

52、Server , Oracle , Sybase ,E*cel工作表格，文本文件和任何提供ODBC驅(qū)動的 客戶機(jī) / 效勞器數(shù)據(jù)庫。DAO工作于本地模式時，它可以自動創(chuàng)立Microsoft Access存取的數(shù)據(jù)庫。DAO類是以嚴(yán)格的層次關(guān)系組織的，如下列圖2：ErrorGropeDBEnigneGropeUserParameterUserFieldQueryDefWorkspaceDocumentContainersDatabaseFieldRelationsRecordSetFieldFieldTableDefFieldInde* 圖2、DAO的類構(gòu)造rdo Enginerdo Envir

53、onmentrdo Errorrdo Connectionrdo Resultsetrdo Table rdo Prepared Statementrdo Columnrdo Columnrdo ColumnrdoParameter圖3、RDO的類構(gòu)造2 RDO簡介RDO 提供了一組對象以滿足面向客戶機(jī) / 效勞器程序開發(fā)的特殊需要。與DAO提供的Jet 數(shù)據(jù)引擎接口不同，RDO 提供的是一個直接與ODBC API 連接的面向?qū)ο蟪橄髮?。RDO 使用ODBC API 和數(shù)據(jù)庫效勞器驅(qū)動器創(chuàng)立到數(shù)據(jù)庫效勞器的連接，創(chuàng)立查詢和用于瀏覽結(jié)果設(shè)計集的游標(biāo)，并且依賴數(shù)據(jù)庫效勞器為大多數(shù)出來請求執(zhí)行復(fù)雜的

54、過程。它直接與數(shù)據(jù)庫效勞器交互，這使得RDO特別是用于面向客戶機(jī) / 效勞器程序的開發(fā)。RDO類是以層次關(guān)系組織的，如圖3所視。3 ADO簡介A*tive*數(shù)據(jù)對象ADOAPI是一種用于開發(fā)OLE DB數(shù)據(jù)源應(yīng)用程序的API。有多種語言支持，包括：Visual Basic 、Visual C+ 、VBScript、Visual J+ 、A*tive Server Page等。OLE DB提供了一組直接OLE DB 數(shù)據(jù)源的非常低級的方法，而ADO則提供了更為高級并容易理解的機(jī)制。ADO是為開發(fā)客戶機(jī) / 效勞器應(yīng)用程序而專門設(shè)計的，故非常適合于Web / 數(shù)據(jù)庫的集成。ADO的主要特征包括：支持成批更新；支持所有類型的游標(biāo)；支持效勞器端存儲過程；支持返回多個記錄集的查詢；支持查詢目標(biāo)，包括限制返回集的數(shù)目、激活對返回記錄的過濾和預(yù)先語句。Parameter(Optional)mand(Optional) Collection E*ecuteE*ecuteConnectionFieldRecordsetE*ecute CollectionError(Optio