基于-VB医院信息管理系统

1、-PAGE . z基于VB的医院信息管理系统王辉渤海大学文理学院 信息技术系容摘要：随着计算机性能不断提高，价格不断下降，计算机已在医院医疗、教学、科研、管理的各个方面得到越来越广泛的应用。计算机化的医院信息系统已成为现代化医院运营必不可少的根底设施与技术支撑环境。就好象一个现代化医院的成功运行离不开功能完整、美观舒适的建筑物，技术娴熟的医护人员，性能齐全、高精尖的医疗设备一样，它也离不开计算机化的医院信息系统。在信息化浪潮的冲击下，医院信息化的引入势在必行。医院管理信息系统HMIS是医疗效劳和管理的重要辅助手段。医院管理信息系统的应用可以改变传统的工作方式，提高工作效率和经济效益、提高医院的

2、管理水平和质量效益。本文对医院管理信息系统的门诊，住院，病房管理子系统的设计与开发过程进展了全面的介绍。并对各子系统中的程序设计、操作流程、功能实现等进展了详细的解释。医院管理信息系统通过MICROSOFT ACCESS97建立后台的数据库，利用MICROSOFT VISUAL BASIC6.0中的DAO数据接口对数据库进展操作。实现了门诊、住院、病房管理的各项根本功能。并采用列表显示, 浮动菜单、对话框提示等，使操作简单明了，易于掌握 。关键词：HMIS门诊； 住院； 病房； 信息管理系统。 基于VB 的 医院信息管理系统王辉渤海大学文理学院信息技术系 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 _一数据库简介一数据库简介7 HYPERLINK l _二_管理信息系统简述 二 管理信息系统简述7 HYPERLINK l _三_医院管理信息系统简述 三 医院管理信息系统简述9 HYPERLINK l _1_问题的提出 1 问题的提出9 HYPERLINK l _2_医院管理信息系统概述 2 医院

9、管理信息系统概述.9 HYPERLINK l _3_门诊、住院、病房管理系统功能简介 3 门诊、住院、病房管理系统功能简介.10 HYPERLINK l _四_医院信息化的现状与开展 四 医院信息化的现状与开展11 HYPERLINK l _二_系统分析 二 系统分析12 HYPERLINK l _一_可行性研究 一 可行性研究.12 HYPERLINK l _二_需求分析 二 需求分析.13 HYPERLINK l _1_本系统设计的总体目标 1 本系统设计的总体目标.13 HYPERLINK l _2_本系统设计具体目标 2 本系统设计具体目标.13 HYPERLINK l _三_系统设计

10、 三 系统设计.19 HYPERLINK l _一_系统设计环境需求 一 系统设计环境需求.19 HYPERLINK l _二_数据库构造设计 二 数据库构造设计.19 HYPERLINK l _三_系统对象设计 三 系统对象设计.24 HYPERLINK l _四_系统功能模块的设计与实现 四 系统功能模块的设计与实现.26 HYPERLINK l _一_门诊管理子系统 一 门诊管理子系统26 HYPERLINK l _1_身份登记挂号与预约子系统 1 身份登记挂号与预约子系统26 HYPERLINK l _2_门诊就诊及病历填写子系统 2 门诊就诊及病历填写子系统29 HYPERLINK

11、l _3_门诊收费子系统 3 门诊收费子系统31 HYPERLINK l _二_住院管理子系统 二 住院管理子系统33 HYPERLINK l _1_住院预约与登记子系统 1 住院预约与登记子系统33 HYPERLINK l _2_病案生成编目子系统 2 病案生成编目子系统33 HYPERLINK l _三病房管理子系统 三病房管理子系统.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_利用事务维护数据库的完整性 3 利用事务维护数据库的完整性38 HYPERLINK l _五系统集成时的错误处理 五系统集成时的错误处理.38 HYPERLINK l _六Visual_Basic_6.0中文版数据接口简介 六Visual Basic 6.0中文版数据接口简介.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 _七本系统数据库中用到的表 七本系统数据库中用到的表.45 HYPERLINK l _参考文献 参考文献49 HYPERLINK l _后记 后记52基于VB的医院管理信息系统王辉渤海大学文理学院 信息系引 言在人类跨入21世纪之际，席卷全世界的信息化浪潮正在全球围轰轰烈烈的上演，它已经深刻地渗透到现代社会的各个领域：通讯、经济、技术、政治等等。在医疗卫生领域，信息化概念的引入，尤其是医院信息系统的应用，大大改变了医院的管理模式和工作流程，对提高医院的管理水平、质量效益、经济效益、社会效益起到了巨促进作用。目前医院管理信息系统地应用已成为医院管理地重要工具和手段，它地引入

14、有助于改变传统地工作方式，提高工作效率；提高经济效益；加强过程控制，提高医疗护理质量；提高医院信誉，增强竞争能力；实现卫生资源共享；强化医院的科学管理。本次毕业设计就是通过对 医院管理信息系统-门诊，住院，病房子系统的设计，进一步深化了我们管理信息化为人们日常生活所带来的巨大便利的认识！具体的处理是通过MICROSOFT ACCESS97建立后台的数据库，并利用MICROSOFT VISUAL BASIC6.0加以实现。一 概述一数据库简介数据库就是存储数据的装置，必须同时含有三方面的意义：1数据库的容，即数据；2存储数据的硬件，如磁盘等；3对数据库实施的管理。数据库有多种类型，按构造可分成三

15、种：层次数据库，网状数据库， 关系数据库。关系数据库在构造上可以通过关键字将相关的表格联系在一起。它具有以下优点：1表格式的关系容易理解和建立数据库；2层次和网构造可转换为表格式构造；3通过投影，连结表格的字段，容易建立新关系；4表格式搜寻较树构造容易；5方便对构造做出修改；它适用于建立大型数据库。二管理信息系统简述生产技术的进步，社会活动的复杂化，管理工作越来越离不开信息，信息处理已成为当今世界上一项的社会活动。管理信息系统是一个由人和计算机等组成的能进展信息收集，传输，加工，保存，维护和使用的系统，它能实测国民经济部门或企业的各种运行情况，能利用过去的数据预测未来，能从全局出发辅助决策，能

16、利用信息控制国民经济部门或企业的活动，并帮助其实现规划目标。管理信息系统的功能主要有以下几条：1尽可能及时全面地提供信息和数据，以支持到达系统目标的决策；2准备和提供统一格式的信息，使各种统计工作简化；3利用指定数学方法分析数据，可以根据过去的数据预测将来的情况；4对不同的管理层次给出不同的要求和不同细度的报告，以期分析解释报告最快，及时做出决策；5有效地利用管理信息系统的人和设备，使信息本钱最低。管理信息系统的特点可归纳为：1数据集中统一，采用数据库；2数据模型的应用；3有预测和控制能力；4面向决策。管理信息系统的开发过程可以分为四个阶段：1系统规划；2系统分析；3系统设计；4系统实现。系统

17、规划主要完成两个任务：对现行系统的调查研究，以弄清现行系统的状况；然后，基于源于现行系统，高于现行系统的思路提出新的计算和信息系统方案，对新系统进展可行性分析。系统分析是信息管理系统开发工作中最重要的一环，容主要包括对组织各部门，各业务的详细了解，并在此根底上进展分析，提出新的方案，在系统分析中扎扎实实地了解实现工作部门的业务情况是根底，只有在对处理业务了解得非常透彻的前提下，才有可能提出新的改良方案。系统设计要解决系统如何干的问题，也就是根据系统分析的结果，考虑实际条件，进展总体构造设计，具体物理模型设计，在各种技术手段和实施方法中，权衡利弊，进展精心设计，合理地使用各种资源。系统实施是将系

18、统分析和系统设计中制定的干什么，怎么干的结果付诸实施，这个阶段需要完成的任务很多，编制程序，调试，运行与维护，系统评价等。三 医院管理信息系统简述1 问题的提出医院管理信息系统是现代医院医疗护理、经济管理、药品管理、器械管理的技术支持手段，也是医院信息化的重要组成局部。医院管理信息系统的引入，将从根本上改变传统管理模式，提高管理效率，使医院的经济效益和社会效益都得到大幅度的提高。本次毕业设计就是针对这种需求，响应开发设计的。2 医院管理信息系统概述医院管理信息系统Hospital Mange Information System，简称HMIS是对医院信息进展管理的计算机网络软件系统，它可完成医

19、院中各类信息的收集、传输、存储、加工、使用和分析。是融合了医院的管理思想、各部门的业务经历，以及对计算机技术的恰当运用的软件开发成果。医院管理信息系统HMIS以医院医疗信息管理为主线，实现全面的信息化。以患者为中心是其主要设计思想。系统设计主要突出强化了 ：系统与数据的平安性，构架、构件设计的标准化，实时响应速度的快速化，及人机界面设计的友善性，适应医疗保险信息的兼容性等方面。系统依照软件工程化方式开发的医院全面信息管理系统，具有开放灵活、高性能价格比和几乎无限地适应医院现在和未来信息处理增长的需求。医院管理信息系统HMIS从功能上覆盖了门诊病人管理，住院病人管理，检验信息管理，检查信息管理，

20、药品管理，血库管理，器械管理，经济管理等各个环节。其信息容不仅包含构造化的文字信息，还包含自由文本、图形图像等信息。3 门诊、住院、病房管理系统功能简介医院管理信息系统HMIS是医疗效劳和管理的重要辅助手段。它也是一个有着10个系统和60多个子系统的十分庞杂的系统。对于我本次毕业设计中所负责的门诊，住院，病房管理这三个子系统其主要功能如下：门诊病人管理门诊病人信息的计算机化是对最赋挑战性的任务。医院管理系统支持多种管理模式，努力解决门诊顶峰时病人挂号、划价收费的速度问题.。系统具有广泛的适应性、友好的界面与平安性设计，保证了缺少计算机使用根底的操作人员易学易会。住院病人管理住院病人管理信息系统

21、的核心功能是辅助住院病人的住、出、转及住院病人费用管理的事务处理；同时为医院医疗统计提供及时、准确、完整的数据。病案管理拥有权威的数据字典系统；通过数据资源共享，大大减少病案编辑工作量；病案首页及各种疾病分类报表格式均符合卫生部有关规，满足医生临床、科研和教学对病案的检索需求；交互式完成病案借阅和归还处理工作，提高了病案室工作效率，直接支持医疗动态统计和病案质量控制的管理需求；综合查询模块可支持用户按病人号、疾病名称等多种方法进展查询。四 医院信息化的现状与开展我国大型医院管理信息系统的开发和应用已经到达兴旺国家的平均水平，一些优秀的系统甚至已经接近国际先进水平。但在临床信息系统方面，如门诊医

22、生工作站、检验信息系统等，与国际先进水平相比都还有较大的差距。2002年，卫生部对国6921家医院进展调查，其中有2179家建立了医院信息系统(HIS)，占31%。从医院规模看，省级医院建立HIS的比例到达84%，地市级医院建立HIS的比例为37%，县级医院为34%。卫生部九五规划提出医院信息化任务是，三甲医院有50%建成HIS，现在已经完成了任务。 HMIS高端需求显现，低端市场庞大是当前院信息市场开展的主要趋势。在HMIS逐渐走向成熟时，大型医院和中小医院的需求逐渐分化：大型医院逐渐认识到建立HMIS的复杂度和维护的重要性，开场探索HMIS的稳定性和实用性；小型医院也认识到HMIS的优越性

23、，开场将对HMIS的需求提到议事日程上。HMIS市场开场真正进入产品竞争时期。二 系统分析系统分析是确定软件开发工程中最重要的一环，确定工程的可行性，导出实现工程目标应该采用的策略及系统必须完成的功能，估计完成该工程需要的资源和本钱，并且制定工程进度表等。这一局部的容又可以进一步划分为可行性研究，需求分析，总体设计本容将放在第三章中做详细的说明，详细设计分三个阶段进展。一可行性研究可行性研究的目的就是用最小的代价在尽可能短的时期确定问题是否能够解决。包括：技术可行性：本系统采用的技术手段是应用面向对象的程序设计语言MICROSOFT VISUAL BASIC6.0 ，Windows2000下的

24、中文MICROSOFT ACCESS97软件，它具有以下四个特征，可以保证实现这个系统：A、可视化设计技术B、面向对象编程技术C、VB与 ACCESS97间方便多样的连接技术D、与其他应用软件的数据共享和应用交互经济可行性：本系统开发所需的实验室、PC机、打印机等硬件设备由岳建国教师提供。所需的背景资料、开发软件、和各类帮助文件等，也都能比拟方便地在教师，同学或图书馆处找到，不需浪费很多时间和财力。二 需求分析需求分析是的根本任务是准确答复系统必须做什么这个问题。1分析系统的数据要求；2导出系统的逻辑模型；3修正系统开发方案；4开发原型系统。1 本系统设计的总体目标1、 使系统平安化：设置多种

25、用户级别以限制各类用户的操作权限；设置数据库自动修复功能，以防止各类突发事件如断电、硬件突然损坏等、 用户的误操作等造成的数据库不一致。通过各种途径保障系统平安。2、设置合理化：支持用户通过各种途径如使用：图标、按纽、下拉菜单、浮动菜单等切换窗口，以到达所要操作的界面。3、使系统界面友好化：设置用户使用向导、系统说明，在操作过程中弹出对话框、警告图标等，引导用户正确使用该软件；2 本系统设计具体目标门诊管理子系统A、身份登记子系统：用来实现病人主索引的录入。它是其他子系统有关病人信息的来源。身份登记子系统住院病案记录 门诊病案记录病人主索引图2-1、身份登记子系统工作流程 B、挂号与预约子系统

26、：用来自动生成门诊号，根据当日设置的医务人员安排进展医师的选择和挂号费的生成。就诊记录身份登记挂号与预约图2-2、挂号与预约子系统工作流程 C、诊就诊及病历填写：与挂号病人的信息直接相连，自动录入病人的身份信息。由医师填入患者诊断信息后可进展检查、化验等辅助工作，并开方划价。要求自动与药品库相连，并自动产生处方收费金额。病案归档门诊挂号就诊填写病案身份登记 门诊、住院病案图2-3、就诊及病例管理子系统D、门诊收费子系统：可根据价表自动准确的进展收费。与挂号表处的患者信息相连。自动显示被选定的患者是否已付费，并可以显示各项收费的明细记录。采取相应措施防止错收、漏收等现象发生。身份登记病案填写门诊

27、收费 病人信息 费用信息处方费用明细诊疗费用明细门诊收据图2-4、门诊收费子系统工作流程住院管理子系统 A、住院预约与登记子系统：建立病人住院申请信息。录入病人的身份信息门诊录入过的病人自动生成身份信息；提供时的床位信息，包括空床的床位号、床位等级、床位租金等详细信息；为有空床的科室安排申请住院病人的床位；对无病房床位的科室安排等床病人排队信息。住院预约与登记病房入出转身份登记主索引床位情况转科病人住院记录图2-5、住院预约与登记子系统工作流程B、 病案生成编目子系统：在病人离院后自动生成该病人的病案编目首页。首页包括病人根本信息及其所患病症的结论性信息。对于门诊转来的病人，应包括其在门诊及住

28、院期间的所有病历。对住院患者仅包含其在院期间，病房治疗、检验工程单据、手术信息等在院期间的所有记录。门诊病案身份登记入出转病案编目 出院时间住院主记录诊断记录图2-6、病案生成编目子系统工作流程病房管理子系统病房管理子系统：主要实现医生、护士工作站的信息化工作。具体包括：查询各个科室的等床病人信息、为等床病人分配床位等。可对在科病人进展集中管理、诊治：可实现病人入、出、转科及提供出院病人预通知；提供每日医嘱的处理、对应记价工程的录入及查询累积花费金额等效劳。医生工作站 医嘱身份登记住院预约登记护士工作站医嘱在科记录诊断记录手术记录入出转病人日志医嘱计价工程图2-7、病房管理流程三 系统设计一

29、系统设计环境需求硬件：586计算机一台、打印机一台软件：MICROSOFT VISUAL BASIC6.0；MICROSOFT ACCESS97操作系统：Windows 2000二数据库构造设计数据库使整个系统的根底。数据库设计的好坏，直接关系到整个数据库系统(DBMS)的成败。数据库设计时实现从概念构造道逻辑构造的转变，它的建立大致可分为：1确定建立数据库目的：有助于确定需要ACCESS保存那些信息；2确定需要的表：在明确了建立数据库目的之后，就可以着手把信息分成各个独立的主题；3确定所需的字段：确定每个表要保存那些信息；4确定关系：分析每个表，确定一个表中的数据和他表中的数据关系；5改良设

30、计：对设计进一步，查找其中的错误。以上步骤可一是不同信息分散在不同表中，可以使数据库的组织和维护工作更简单，同时也易于保证建立的应用程序具有较高的性能。 注意：要为每表建立至少一个索引，一表中也可建立多个索引。这样做可以使JET检索这个字段的信息时更容易。主关键字的设立一定要是表中可以唯一标识记录的索引。在数据库中定义表与表之间的关系。这样做不仅可以简化检索任务，而且对于保证数据库中数据的参照完整性也有很大的好处。图3-1图3-5是存在于本系统的表、查询及关系：有关门诊管理子系统的表和这些表之间的一系列关系： 图3-1 、门诊管理子系统所用到的12表 图3-2、门诊管理子系统中主要表之间的关系

31、门诊管理子系统中，最重要的字段莫过于门诊号OutPat_Code，它连接着几乎所有的关系。而对于OutPat_Code的设计采用了日期+流水号的方法。如：门诊号0306030001，表示2003年6月3日的第一位门诊患者。0001是当日的流水号。这样的设计方法不仅可以满足小型医院的实际需求。更由于它引入了时间的概念而使得人们进展的查询更为简单。对于病人IDPat_ID可直接采用人们的号。因为它的无重复性可保证成为患者身份信息的唯一标识。 由于对实际问题概括的简单，可将门诊病人的病案号OutPat_MR，由门诊号OutPat_Code所代替,暂不考虑局部病人原有病历这一事实,认为医院给每一位门诊

32、患者都重新配发病案。B、有关住院管理子系统及病房管理子系统的表和这些表之间的一系列关系：图3-3、住院、病房管理子系统所用到的12表图3-4、住院、病房管理子系统所用到的局部视图在数据库中建立视图可以方便VB中的调用图3-5、住院、病房管理子系统中主要表之间的关系住院、病房管理子系统中，较重要的字段应为住院号InPat_Code，它的编写规则大致同于门诊号OutPat_Code。仍然采用了日期+流水号的方法，如：住院号0305180001。住院、病房管理子系统的预约住院管理中，由于申请住院病人中存在可住院病人和等床病人两种不同情况。同时又为了减少数据库表间的重复。故而建立三个不同表在住院预约子

33、系统中：1、InPat_Code申请住院患者住院号与其号对照表2、InPat_Inform 在院病人信息表3、InPat_WaitBed_Order 等床病人信息表而门诊预约子系统仅建立了一表Clinic_Code门诊患者挂号信息表就完成了挂号任务。 对于在院患者的标识病房床位号InPat_WardBed_Code，则采用了科室编号+病房号+床位流水号的表示方法，如：床位号01301001，表示：代码为01的一科中301病房的001号床位。由最后三位代码可得到*一科室的床位总数。作为在院病人每日的体怔记载、病情进展、检查工程、医嘱用药等情况的主要载体InPat_MR在院病人病案记录 ，它不仅为

34、医嘱处理和对应记价工程的录入提供依据，而且更是患者住院期间病案的主要容，为患者出院后的病案编目子系统提供材料。它包含的字段有：InPat_Code， InPat_Symptom，Prescription， E*am， Cure， Assay，OPS， Remark，Report ，MR_Date三 系统对象设计VB对数据库应用的支持非常强大。它不仅可以和 Jet DB ,ISAM,ODBC等多种数据库建立连接。而且VB中可用的数据接口就有3种，其中包括DAO 数据对象 ，RDO 远程数据对象 ，ADO Active*数据对象。三种对象的具体介绍及策略比拟见附录。本次毕业设计容小型医院信息管理系

35、统属于可直接连接到Access数据库，单一系统的本地化的应用程序，选用的是DAO 数据对象。具体来说主要采用了面向对象的设计方法。利用VB可用的数据库Jet DB 在VB中直接创立Access数据库。利用VB中可用的数据 接口： DAO 数据对象 和 SQL语言进展数据库编程。具体子 模块中还用了大量的数据控件和数据感知控件，如：Data Control控件，DBGrid控件， MSFle*Grid控件等。 具体的设计方案见第四章。四 系统功能模块的设计与实现在设计一个系统时，为了考虑问题清晰，最好把问题分成模块，这样就可以针对块进展详细的讨论和设计。根据系统需求分析，本系统划分为5个主功能模

36、块来具体实现。一门诊管理子系统1 身份登记挂号与预约子系统用来实现病人主索引的录入；门诊号表的自动生成；并根据当日设置的医务人员安排进展医师的选择和挂号费的生成。A、身份登记新患者挂号 填写病人信息清空窗体 新患者挂号 确定 填进Pat_Indentity表 自动生成门诊号 图4-1身份登记的处理流程子函数Set_OutPatCode ： 设置门诊编号当日时期+流水号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、挂号与预约选取挂号类型选取挂号诊科 Enter键 Enter键挂号费可选医师*确定键录入挂号信息到Clinic_Code表图4-2。挂号与预约的处理流程采用 按Enter键的方法录入信息，是使用了控件的KeyPress事件。可以设置Const Key_Enter = 13”在公共声明处，然后利用以下代码进展设置。If KeyAscii = Key_Enter Then. End If按Enter键后通过查询数据库已有字典Department_Doctor表，可以得到可选医师，同理查询Register_Type_Bill表可以得到挂号费。查询语句类似于： 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这种查询方法只是于查找单个纪录的情况，当需要查找符合条件的多条记录时 ，可采用SQL语句或者Filter属性。2 门诊就诊及病历填写子系统与挂号病人的信息直接相连，自动录入病人的身份信息。由医师填入患者诊断信息后可进展检查、化验等辅助工作，并开方划价。要求

40、自动与药品库相连，并自动产生处方收费金额。病人的身份信息自动录入图4-3病人的身份信息自动录入如图所视窗体上采取了由文本框的Te*t_Change事件触发DBGrid控件出现，双击DBGrid控件相应框，实现病人信息的自动录入。本人认为采取由文本框的Te*t_Change事件触发并不恰当，最好是有方法实现局部匹配 。开处方图4-5、开处方如下图，通过设置DBGrid控件与药品字典相连，并通过MSFle*Grid控件可以实现开处方及产生收费金额。MSFle*Grid控件是一个较为复杂的控件。它需要设置表头，行列等信息；选取相应单元格的方法也有很多种；而且需要一个单独的文本框作为输入接口。以下程序

41、为Te*t3作为输入接口与MSFle*Grid控件的单元格进展匹配的代码。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) 左侧Te*t3.Top = MSFle*Grid1.Top + MSFle*Grid1.RowPos(r) 上

42、方Te*t3.Visible = True 文本框显示于画面Te*t3.SetFocus 获取光标End Sub3 门诊收费子系统可根据价表自动准确的进展收费。与挂号表处的患者信息相连。自动显示被选定的患者是否已付费，并可以显示各项收费的明细记录。采取相应措施防止错收、漏收等现象发生。显示患者付费情况图4-6、显示收费如图4-6所示，通过设置DBGrid控件与门诊病人信息相连；通过 Clinic_Bill表中Payment_Mark字段，标示患者是否已付费；并通过MSFle*Grid控件显示病人付费情况。还可以利用MSFle*Grid控件的CellPicture属性连接图形，以便更直观的表达患

43、者付费情况。此处系统通过设置按钮无效、不能生成收费单据、弹出警告对话框等方法来防止错收、漏收等现象发生。显示各项收费明细记录采用浮动菜单，可以清楚的观察付费病人的各工程具体收费,如图4-7所示：图4-7、显示收费明细在Form 上单击右键即可出现浮动菜单，以下为产生浮动菜单的代码：Private Sub Form_MouseUp(Button As Integer, Shift As Integer, * As Single, Y As Single)If Button = 2 ThenForm5.PopupMenu mnuEditEnd IfEnd Sub二住院管理子系统1 住院预约与登记子

44、系统录入病人的身份信息；提供时的床位信息；有空床的安排住院病人的床位；无床位的设置等床病人排队信息。设置子函数Set_InPatCode，定义住院号为年/月/日+流水号，如：0305130001；子函数Set_QueueOrder设置等床序号为月份+科室编码+流水号，如： 0501001； 设置查询Bed_Occupy，其字段 Bed_Occupied值为 0代表没有病人，为空床，1代表该床位已占。利用控件MSFLe*Grid显示床位情况,包括床位号、床位等级、床位租金等详细信息。具体流程见图4-82 病案生成编目子系统A、病案查询系统支持多种查询方式查询病案按病症查询按病人身份查询病症A病症

45、B图4-10、查询病案添加新患者填入患者ID号Enter键 查找患者信息自动录入身份信息存在原先记录 是门诊患者 没有记录 手工添加身份信息 选择住院科室Enter健生成住院号有无空床 生成等床排队序号没有空床有空床 显示空床记录 双击床位号 分配床位 确定 确定填入记录到数据库图4-8、入院登记的处理流程B、生成病案一般包括首页，门诊病例，住院病例等。首页在病人离院后自动生成，包括病人根本信息及其所患病症的结论性信息。对于门诊转来的病人，应包括其在门诊及住院期间的所有病历。对住院患者仅包含其在院期间，病房治疗、检验工程单据、手术信息等在院期间的所有记录。 生成病案的具体流程见图4-9 患者离

46、院生成病案首页是否为门诊转来的添加门诊病案 是 否添加住院病案保存病人病案 图4-9、生成病案流程三病房管理子系统查询各个科室的等床病人信息、为等床病人分配床位；在科病人实现入、出、转科及提供出院病人预通知；提供每日医嘱的处理、对应记价工程的录入及查询累积花费金额等效劳。此系统的设计引入了图表式的显示方法，这样做可以更直观的对病人进展管理 ，如4-11图所示： 图4-11、图表化显示通过bo Bo*控件容的选择可以观察不同科室的情况采用bo Bo*的KeyPress的事件实现； 利用浮动菜单为在院病人或等床病人分别进展管理：对等床病人实现了观察等床病人记录、安排病床的功能；对在院病人可以进展手

47、术申请、填写病例、转科、出院等功能。四错误处理及其他1 利用Err对象捕获错误 DAO中提供了Error 和Errors 两个对象用以处理错误，而VB中提供的Err对象可以对任何应用程序中的错误进展有效的跟踪和报告：属性Description,可返回一个包含错误描述的字符串变量；属性 Source可返回一个包含产生错误的对象名字的字符串变量；属性Number返回一个描述错误数目的整形变量。在本系统中为保证对错误的捕获，程序中使用如下语句：.MsgBo* Number: & CStr(Err. Number) & Description: & Err. Description & Source:

48、 & Err. Source2 利用On Error GoTo处理错误 On Error GoTo用于程序或函数的开场局部,它可以决定出现错误时如何去做。文量采用了Resume Label,用以返回应用程序发生故障的地点。如下：On Error GoTo LabelErrorLabelResume:E*it subLabelError:MsgBo* Number:& CStr(Err. Number) & Description:& Err. Description & Source:& Err. SourceResume LabelResume3 利用事务维护数据库的完整性前面我们已经提到利

49、用建立数据库中表之间的关系,可以维护数据库的参照完整性。VB在中我们还可以利用事务的方法维护数据库的完整性。DAO中 Workspace对象提供3个方法用来封装事务：BeginTranse()描述事务的开场. mitTranse()描述事务的结尾RollTranse()方法可以使你的事务的不被用于数据库使用这几种事务方法,可以更新大量的跨越好几个表的数据,并且在程序出现错误时撤销用户对数据库的更改.五系统集成时的错误处理由于此次毕设是分由几位同学共同完成，故当后期大家的各个子模块完成后,需要进展工程的合并。由于每为同学的设计思想及设计方法均不一样,合并时也就出现了很多问题。最典型的为：在同一个

50、工程中即添加了ADO又添加了DAO，程序报错：*不识别。这是因为ADO 和DAO都存在Recordset对象,程序无法确认*处的引用到底是那个方法的Recordset对象。解决的方法有：1、可在References对话框中设置优先级2、在代码中引用时加前缀直接引用该对象库，如：Dim adoRecordset as ADODB.RecordsetDim daoRecordset as DAODB.Recordset本系统采用的是第二种方法,直接在代码中声明。六Visual Basic 6.0中文版数据接口简介VB对数据库应用的支持非常强大。它不仅可以和 Jet DB ,ISAM,ODBC等多种

51、数据库建立连接。而且VB中可用的数据接口就有3种，其中包括DAO 数据对象 ，RDO 远程数据对象 ，ADO Active*数据对象。1 DAO简介DAO也称Jet 数据引擎，是组成数据引擎核的一组动态连接库DLL。DAO 体系构造包括三级，如图1：VB数据接口DAO数据引擎数据仓库，图1、DAO 的三层体系构造用户接口是Visual Basic 开发的，包括用户与数据库交互所需的全部组件。DAO提供的Jet 数据引擎提供了与数据库交互的机制。数据仓库本质上就是一个数据存放地，它可以是各种不同的数据库类型，如：Microsoft Access, ODBC 数据库, Microsoft SQL

52、Server , Oracle , Sybase ,E*cel工作表格，文本文件和任何提供ODBC驱动的 客户机 / 效劳器数据库。DAO工作于本地模式时，它可以自动创立Microsoft Access存取的数据库。DAO类是以严格的层次关系组织的，如下列图2：ErrorGropeDBEnigneGropeUserParameterUserFieldQueryDefWorkspaceDocumentContainersDatabaseFieldRelationsRecordSetFieldFieldTableDefFieldInde* 图2、DAO的类构造rdo Enginerdo Envir

53、onmentrdo Errorrdo Connectionrdo Resultsetrdo Table rdo Prepared Statementrdo Columnrdo Columnrdo ColumnrdoParameter图3、RDO的类构造2 RDO简介RDO 提供了一组对象以满足面向客户机 / 效劳器程序开发的特殊需要。与DAO提供的Jet 数据引擎接口不同，RDO 提供的是一个直接与ODBC API 连接的面向对象抽象层。RDO 使用ODBC API 和数据库效劳器驱动器创立到数据库效劳器的连接，创立查询和用于浏览结果设计集的游标，并且依赖数据库效劳器为大多数出来请求执行复杂的

54、过程。它直接与数据库效劳器交互，这使得RDO特别是用于面向客户机 / 效劳器程序的开发。RDO类是以层次关系组织的，如图3所视。3 ADO简介A*tive*数据对象ADOAPI是一种用于开发OLE DB数据源应用程序的API。有多种语言支持，包括：Visual Basic 、Visual C+ 、VBScript、Visual J+ 、A*tive Server Page等。OLE DB提供了一组直接OLE DB 数据源的非常低级的方法，而ADO则提供了更为高级并容易理解的机制。ADO是为开发客户机 / 效劳器应用程序而专门设计的，故非常适合于Web / 数据库的集成。ADO的主要特征包括：支持成批更新；支持所有类型的游标；支持效劳器端存储过程；支持返回多个记录集的查询；支持查询目标，包括限制返回集的数目、激活对返回记录的过滤和预先语句。Parameter(Optional)mand(Optional) Collection E*ecuteE*ecuteConnectionFieldRecordsetE*ecute CollectionError(Optio