1547.基于VB的医院信息管理系统

1、学士学位论文题 目：基于vb的医院信息管理系统系 别：信息技术系专 业：计算机科学与技术班 级：姓 名： 指导教师： 完成日期：基于vb的医院信息管理系统内容摘要：随着计算机性能不断提高，价格不断下降，计算机已在医院医疗、教学、科研、管理的各个方面得到越来越广泛的应用。计算机化的医院信息系统已成为现代化医院运营必不可少的基础设施与技术支撑环境。就好象一个现代化医院的成功运行离不开功能完整、美观舒适的建筑物，技术娴熟的医护人员，性能齐全、高精尖的医疗设备一样，它也离不开计算机化的医院信息系统。在信息化浪潮的冲击下，医院信息化的引入势在必行。医院管理信息系统（hmis）是医疗服务和管理的重要辅助手

2、段。医院管理信息系统的应用可以改变传统的工作方式，提高工作效率和经济效益、提高医院的管理水平和质量效益。本文对医院管理信息系统的门诊，住院，病房管理子系统的设计与开发过程进行了全面的介绍。并对各子系统中的程序设计、操作流程、功能实现等进行了详细的解释。医院管理信息系统通过microsoft access97建立后台的数据库，利用microsoft visual basic6.0中的dao数据接口对数据库进行操作。实现了门诊、住院、病房管理的各项基本功能。并采用列表显示, 浮动菜单、对话框提示等，使操作简单明了，易于掌握 。关键词： hmis 门诊； 住院； 病房； 信息管理系统 。 abstr

3、actalong with 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 founda

4、tion establishment 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 als

5、o cant leave 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 t

6、reatment service 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 inf

7、ormation system)-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 re

8、quired. it has float menus and some message boxes, that make it easy and convenient to understand to user.keywords: hmis clinic ward 目 录 引言.6一 概述.7（一）数据库简介.7（二） 管理信息系统简述.7（三） 医院管理信息系统简述.9 1 问题的提出.9 2 医院管理信息系统概述.93 门诊、住院、病房管理系统功能简介.10（四） 医院信息化的现状与发展.11二 系统分析.12（一） 可行性研究.12（二） 需求分析.131 本系统设计的总体目标.132

9、本系统设计具体目标.13三 系统设计.19（一） 系统设计环境需求.19（二） 数据库结构设计.19（三） 系统对象设计.24四 系统功能模块的设计与实现.26 （一） 门诊管理子系统26 1 身份登记挂号与预约子系统26 2 门诊就诊及病历填写子系统29 3 门诊收费子系统31 （二） 住院管理子系统33 1 住院预约与登记子系统33 2 病案生成编目子系统33 （三）病房管理子系统.35 （四） 错误处理及其他37 1 利用err对象捕获错误.37 2 利用on error goto处理错误.37 3 利用事务维护数据库的完整性38 （五）系统集成时的错误处理.38 （六）visual b

10、asic 6.0中文版数据访问接口简介.39 1 dao简介.39 2 rdo简介.41 3 ado简介.42 4 三种策略比较43 （七）本系统数据库中用到的表.45参考文献49后记52基于vb的医院管理信息系统引 言在人类跨入21世纪之际，席卷全世界的信息化浪潮正在全球范围内轰轰烈烈的上演，它已经深刻地渗透到现代社会的各个领域：通讯、经济、技术、政治等等。在医疗卫生领域，信息化概念的引入，尤其是医院信息系统的应用，大大改变了医院的管理模式和工作流程，对提高医院的管理水平、质量效益、经济效益、社会效益起到了巨大地促进作用。目前医院管理信息系统地应用已成为医院管理地重要工具和手段，它地引入有助

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

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

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

14、系统的开发过程可以分为四个阶段：（1）系统规划；（2）系统分析；（3）系统设计；（4）系统实现。系统规划主要完成两个任务：对现行系统的调查研究，以弄清现行系统的状况；然后，基于“源于现行系统，高于现行系统”的思路提出新的计算和信息系统方案，对新系统进行可行性分析。系统分析是信息管理系统开发工作中最重要的一环，内容主要包括对组织各部门，各业务的详细了解，并在此基础上进行分析，提出新的方案，在系统分析中扎扎实实地了解实现工作部门的业务情况是基础，只有在对处理业务了解得非常透彻的前提下，才有可能提出新的改进方案。系统设计要解决“系统如何干”的问题，也就是根据系统分析的结果，考虑实际条件，进行总体结构

15、设计，具体物理模型设计，在各种技术手段和实施方法中，权衡利弊，进行精心设计，合理地使用各种资源。系统实施是将系统分析和系统设计中制定的“干什么”，“怎么干”的结果付诸实施，这个阶段需要完成的任务很多，编制程序，调试，运行与维护，系统评价等。（三） 医院管理信息系统简述1 问题的提出医院管理信息系统是现代医院医疗护理、经济管理、药品管理、器械管理的技术支持手段，也是医院信息化的重要组成部分。医院管理信息系统的引入，将从根本上改变传统管理模式，提高管理效率，使医院的经济效益和社会效益都得到大幅度的提高。本次毕业设计就是针对这种需求，响应开发设计的。2 医院管理信息系统概述医院管理信息系统（hosp

16、ital mange information system，简称hmis）是对医院信息进行管理的计算机网络软件系统，它可完成医院中各类信息的收集、传输、存储、加工、使用和分析。是融合了医院的管理思想、各部门的业务经验，以及对计算机技术的恰当运用的软件开发成果。- 医院管理信息系统（hmis）以医院医疗信息管理为主线，实现全面的信息化。“以患者为中心”是其主要设计思想。系统设计主要突出强化了 ：系统与数据的安全性，构架、构件设计的标准化，实时响应速度的快速化，及人机界面设计的友善性，适应医疗保险信息的兼容性等方面。系统依照软件工程化方式开发的医院全面信息管理系统，具有开放灵活、高性能价格比和几乎

17、无限地适应医院现在和未来信息处理增长的需求。医院管理信息系统（hmis）从功能上覆盖了门诊病人管理，住院病人管理，检验信息管理，检查信息管理，药品管理，血库管理，器械管理，经济管理等各个环节。其信息内容不仅包含结构化的文字信息，还包含自由文本、图形图像等信息。3 门诊、住院、病房管理系统功能简介医院管理信息系统（hmis）是医疗服务和管理的重要辅助手段。它也是一个有着10个系统和60多个子系统的十分庞杂的系统。对于我本次毕业设计中所负责的“门诊，住院，病房管理”这三个子系统其主要功能如下：门诊病人管理门诊病人信息的计算机化是对最赋挑战性的任务。医院管理系统支持多种管理模式，努力解决门诊高峰时病

18、人挂号、划价收费的速度问题.。系统具有广泛的适应性、友好的界面与安全性设计，保证了缺少计算机使用基础的操作人员易学易会。住院病人管理 住院病人管理信息系统的核心功能是辅助住院病人的住、出、转及住院病人费用管理的事务处理；同时为医院医疗统计提供及时、准确、完整的数据。病案管理拥有权威的数据字典系统；通过数据资源共享，大大减少病案编辑工作量；病案首页及各种疾病分类报表格式均符合卫生部有关规范，满足医生临床、科研和教学对病案的检索需求；交互式完成病案借阅和归还处理工作，提高了病案室工作效率，直接支持医疗动态统计和病案质量控制的管理需求；综合查询模块可支持用户按病人号、疾病名称等多种方法进行查询。 （

19、四） 医院信息化的现状与发展我国大型医院管理信息系统的开发和应用已经达到发达国家的平均水平，一些优秀的系统甚至已经接近国际先进水平。但在临床信息系统方面，如门诊医生工作站、检验信息系统等，与国际先进水平相比都还有较大的差距。 2002年，卫生部对国内6921家医院进行调查，其中有2179家建设了医院信息系统(his)，占31%。从医院规模看，省级医院建设his的比例达到84%，地市级医院建设his的比例为37%，县级医院为34%。卫生部“九五规划”提出医院信息化任务是，三甲医院有50%建成his，现在已经完成了任务。 hmis“高端需求显现，低端市场庞大”是当前院信息市场发展的主要趋势。在hm

20、is逐渐走向成熟时，大型医院和中小医院的需求逐渐分化：大型医院逐渐认识到建设hmis的复杂度和维护的重要性，开始探索hmis的稳定性和实用性；小型医院也认识到hmis的优越性，开始将对hmis的需求提到议事日程上。hmis市场开始真正进入产品竞争时期。二 系统分析系统分析是确定软件开发工程中最重要的一环，确定工程的可行性，导出实现工程目标应该采用的策略及系统必须完成的功能，估计完成该工程需要的资源和成本，并且制定工程进度表等。这一部分的内容又可以进一步划分为可行性研究，需求分析，总体设计（本内容将放在第三章中做详细的说明），详细设计分三个阶段进行。（一） 可行性研究可行性研究的目的就是用最小的

21、代价在尽可能短的时期内确定问题是否能够解决。包括：（1） 技术可行性：本系统采用的技术手段是应用面向对象的程序设计语言microsoft visual basic6.0 ，windows2000下的中文microsoft access97软件，它具有以下四个特征，可以保证实现这个系统：a、可视化设计技术b、面向对象编程技术c、vb与 access97间方便多样的连接技术d、与其他应用软件的数据共享和应用交互（2） 经济可行性：本系统开发所需的实验室、pc机、打印机等硬件设备由岳建国老师提供。所需的背景资料、开发软件、和各类帮助文件等，也都能比较方便地在老师，同学或图书馆处找到，不需浪费很多时间

22、和财力。 （二） 需求分析需求分析是的基本任务是准确回答“系统必须做什么”这个问题。（1）分析系统的数据要求；（2）导出系统的逻辑模型；（3）修正系统开发计划；（4）开发原型系统。1 本系统设计的总体目标1、 使系统安全化：设置多种用户级别以限制各类用户的操作权限；设置数据库自动修复功能，以防止各类突发事件（如断电、硬件突然损坏等）、 用户的误操作等造成的数据库不一致。通过各种途径保障系统安全。2、设置合理化：支持用户通过各种途径（如使用：图标、按纽、下拉菜单、浮动菜单等）切换窗口，以达到所要操作的界面。3、使系统界面友好化：设置用户使用向导、系统说明，在操作过程中弹出对话框、警告图标等，引导

23、用户正确使用该软件； 2 本系统设计具体目标门诊管理子系统a、身份登记子系统：用来实现病人主索引的录入。它是其他子系统有关病人信息的来源。身份登记子系统 住院病案记录 门诊病案记录病人主索引 图2-1、身份登记子系统工作流程 b、挂号与预约子系统：用来自动生成门诊号，根据当日设置的医务人员安排进行医师的选择和挂号费的生成。就诊记录身份登记挂号与预约 图2-2、挂号与预约子系统工作流程 c、诊就诊及病历填写：与挂号病人的信息直接相连，自动录入病人的身份信息。由医师填入患者诊断信息后可进行检查、化验等辅助工作，并开方划价。要求自动与药品库相连，并自动产生处方收费金额。病案归档门诊挂号就诊填写病案身

24、份登记 门诊、住院病案 图2-3、就诊及病例管理子系统d、门诊收费子系统：可根据价表自动准确的进行收费。与挂号表处的患者信息相连。自动显示被选定的患者是否已付费，并可以显示各项收费的明细记录。采取相应措施防止错收、漏收等现象发生。身份登记病案填写门诊收费 病人信息 费用信息处方费用明细诊疗费用明细门诊收据 图2-4、门诊收费子系统工作流程 住院管理子系统 a、住院预约与登记子系统：建立病人住院申请信息。录入病人的身份信息（门诊录入过的病人自动生成身份信息）；提供时的床位信息，包括空床的床位号、床位等级、床位租金等详细信息；为有空床的科室安排申请住院病人的床位；对无病房床位的科室安排等床病人排队

25、信息。 住院预约与登记病房入出转身份登记 主索引 床位情况转科病人住院记录图2-5、住院预约与登记子系统工作流程b、 病案生成编目子系统 ：在病人离院后自动生成该病人的病案编目首页。首页包括病人基本信息及其所患病症的结论性信息。对于门诊转来的病人，应包括其在门诊及住院期间的所有病历。对住院患者仅包含其在院期间，病房治疗、检验项目单据、手术信息等在院期间的所有记录。门诊病案身份登记入出转病案编目 出院时间住院主记录诊断记录图2-6、病案生成编目子系统工作流程病房管理子系统病房管理子系统：主要实现医生、护士工作站的信息化工作。具体包括：查询各个科室的等床病人信息、为等床病人分配床位等。可对在科病人

26、进行集中管理、诊治：可实现病人入、出、转科及提供出院病人预通知；提供每日医嘱的处理、对应记价项目的录入及查询累积花费金额等服务。医生工作站 医嘱身份登记住院预约登记护士工作站 医嘱在科记录诊断记录手术记录入出转病人日志医嘱计价项目图2-7、病房管理流程三 系统设计（一） 系统设计环境需求硬件：586计算机一台、打印机一台软件： microsoft visual basic6.0；microsoft access97操作系统：windows 2000（二） 数据库结构设计数据库使整个系统的基础。数据库设计的好坏，直接关系到整个数据库系统(dbms)的成败。数据库设计时实现从概念结构道逻辑结构的转

27、变，它的建立大致可分为：（1）确定建立数据库目的：有助于确定需要access保存那些信息；（2）确定需要的表：在明确了建立数据库目的之后，就可以着手把信息分成各个独立的主题；（3）确定所需的字段：确定每个表要保存那些信息；（4）确定关系：分析每个表，确定一个表中的数据和他表中的数据关系；（5）改进设计：对设计进一步，查找其中的错误。以上步骤可一是不同信息分散在不同表中，可以使数据库的组织和维护工作更简单，同时也易于保证建立的应用程序具有较高的性能。 注意：1、 要为每张表建立至少一个索引，一张表中也可建立多个索引。这样做可以使jet检索这个字段的信息时更容易。2、 “主关键字”的设立一定要是表

28、中可以唯一标识记录的索引。3、 在数据库中定义表与表之间的关系。这样做不仅可以简化检索任务，而且对于保证数据库中数据的参照完整性也有很大的好处。图3-1图3-5是存在于本系统的表、查询及关系：a、 有关“门诊管理子系统”的表和这些表之间的一系列关系： 图3-1 、门诊管理子系统所用到的12张表 图3-2、门诊管理子系统中主要表之间的关系门诊管理子系统中，最重要的字段莫过于门诊号“outpat_code”，它连接着几乎所有的关系。而对于“outpat_code”的设计采用了“日期+流水号”的方法。如：门诊号0306030001，表示2003年6月3日的第一位门诊患者。0001是当日的流水号。这样

29、的设计方法不仅可以满足小型医院的实际需求。更由于它引入了时间的概念而使得人们进行的查询更为简单。对于病人id“pat_id”可直接采用人们的身份证号。因为它的无重复性可保证“”成为患者身份信息的唯一标识。 由于对实际问题概括的简单，可将门诊病人的病案号“outpat_mr”，由门诊号“outpat_code”所代替,暂不考虑部分病人原有病历这一事实,认为医院给每一位门诊患者都重新配发病案。b、有关“住院管理子系统”及“病房管理子系统”的表和这些表之间的一系列关系： 图3-3、住院、病房管理子系统所用到的12张表图3-4、住院、病房管理子系统所用到的部分视图（在数据库中建立视图可以方便vb中的调

30、用）图3-5、住院、病房管理子系统中主要表之间的关系住院、病房管理子系统中，较重要的字段应为住院号“inpat_code”，它的编写规则大致同于门诊号“outpat_code”。仍然采用了“日期+流水号”的方法，如：住院号0305180001。住院、病房管理子系统的预约住院管理中，由于申请住院病人中存在“可住院病人”和“等床病人”两种不同情况。同时又为了减少数据库表间的重复。故而建立三个不同表在住院预约子系统中：1、inpat_code（申请住院患者住院号与其身份证号对照表）2、inpat_inform （在院病人信息表）3、inpat_waitbed_order （等床病人信息表）而门诊预约

31、子系统仅建立了一张表（clinic_code门诊患者挂号信息表）就完成了挂号任务。 对于在院患者的标识病房床位号“inpat_wardbed_code”，则采用了“科室编号+病房号+床位流水号”的表示方法，如：床位号01301001，表示：代码为01的内一科中301病房的001号床位。由最后三位代码可得到某一科室的床位总数。作为在院病人每日的体怔记载、病情进展、检查项目、医嘱用药等情况的主要载体“inpat_mr（在院病人病案记录） ”，它不仅为医嘱处理和对应记价项目的录入提供依据，而且更是患者住院期间病案的主要内容，为患者出院后的病案编目子系统提供材料。它包含的字段有：inpat_code，

32、 inpat_symptom，prescription， exam， cure， assay，ops， remark，report ，mr_date（三） 系统对象设计 vb对数据库应用的支持非常强大。它不仅可以和 jet db ,isam,odbc等多种数据库建立连接。而且vb中可用的数据访问接口就有3种，其中包括dao 数据访问对象 ，rdo 远程数据对象 ，ado activex数据对象。（三种对象的具体介绍及策略比较见附录。）本次毕业设计内容“小型医院信息管理系统”属于可直接连接到access数据库，单一系统的本地化的应用程序，选用的是dao 数据访问对象。具体来说主要采用了面向对象的

33、设计方法。利用vb可用的数据库“jet db” 在vb中直接创建access数据库。利用vb中可用的数据 访问接口： dao 数据访问对象 和 sql语言进行数据库编程。具体子 模块中还用了大量的数据控件和数据感知控件，如：data control控件，dbgrid控件， msflexgrid控件等。 （具体的设计方案见第四章。）四 系统功能模块的设计与实现在设计一个系统时，为了考虑问题清晰，最好把问题分成模块，这样就可以针对块进行详细的讨论和设计。根据系统需求分析，本系统划分为5个主功能模块来具体实现。（一） 门诊管理子系统1 身份登记挂号与预约子系统用来实现病人主索引的录入；门诊号表的自动

34、生成；并根据当日设置的医务人员安排进行医师的选择和挂号费的生成。a、身份登记新患者挂号 填写病人信息清空窗体 新患者挂号 确定 填进“pat_indentity”表 自动生成门诊号 图4-1身份登记的处理流程子函数 set_outpatcode ： 设置门诊编号“当日时期+流水号”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.reco

35、rdcount = 0 then num = 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、挂号与预约选取挂号类型选取挂号诊科 enter键 enter键挂号费可选

36、医师姓名 “确定”键录入挂号信息到“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 stringdim rs2 as records

37、etstr = register_type= & & combo3.text & rs2. movefirstrs2.findfirst str if not rs2.nomatch then text5.text = formatcurrency(rs2!register_bill) 换成货币的格式 end if 这种查询方法只是于查找单个纪录的情况，当需要查找符合条件的多条记录时 ，可采用sql语句或者filter属性。2 门诊就诊及病历填写子系统与挂号病人的信息直接相连，自动录入病人的身份信息。由医师填入患者诊断信息后可进行检查、化验等辅助工作，并开方划价。要求自动与药品库相连，并自动产

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

39、下程序为text3作为输入接口与msflexgrid控件的单元格进行匹配的代码。public sub nextposition(byval r as integer, byval c as integer)将输入对话框移至目前保存格text3.width = msflexgrid1.cellwidth 宽度text3.height = msflexgrid1.cellheight 高度text3.left = msflexgrid1.left + msflexgrid1.colpos(c) 左侧text3.top = msflexgrid1.top + msflexgrid1.rowpos(r

40、) 上方text3.visible = true 文本框显示于画面text3.setfocus 获取光标end sub3 门诊收费子系统可根据价表自动准确的进行收费。与挂号表处的患者信息相连。自动显示被选定的患者是否已付费，并可以显示各项收费的明细记录。采取相应措施防止错收、漏收等现象发生。a、 显示患者付费情况图4-6、显示收费如图4-6所示，通过设置dbgrid控件与门诊病人信息相连；通过 clinic_bill表中payment_mark字段，标示患者是否已付费；并通过msflexgrid控件显示病人付费情况。还可以利用msflexgrid控件的cellpicture属性连接图形，以便更

41、直观的体现患者付费情况。此处系统通过设置按钮无效、不能生成收费单据、弹出警告对话框等方法来防止错收、漏收等现象发生。b、 显示各项收费明细记录采用浮动菜单，可以清楚的察看付费病人的各项目具体收费,如图4-7所示：图4-7、显示收费明细在form 上单击右键即可出现浮动菜单，以下为产生浮动菜单的代码：private sub form_mouseup(button as integer, shift as integer, x as single, y as single)if button = 2 thenform5.popupmenu mnueditend ifend sub（二） 住院管理子

42、系统1 住院预约与登记子系统录入病人的身份信息；提供时的床位信息；有空床的安排住院病人的床位；无床位的设置等床病人排队信息。 设置子函数set_inpatcode，定义住院号为“年/月/日+流水号”，如：0305130001；子函数set_queueorder设置等床序号为“月份+科室编码+流水号”，如： 0501001； 设置查询bed_occupy，其字段 bed_occupied值为 “0”代表没有病人，为空床，“1”代表该床位已占。利用控件msflexgrid显示床位情况,包括床位号、床位等级、床位租金等详细信息。（具体流程见图4-8）2 病案生成编目子系统 a、病案查询系统支持多种查

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

44、检验项目单据、手术信息等在院期间的所有记录。 （生成病案的具体流程见图4-9） 患者离院生成病案首页 是否为门诊转来的添加门诊病案 是 否添加住院病案保存病人病案 图4-9、生成病案流程（三）病房管理子系统查询各个科室的等床病人信息、为等床病人分配床位；在科病人实现入、出、转科及提供出院病人预通知；提供每日医嘱的处理、对应记价项目的录入及查询累积花费金额等服务。此系统的设计引入了图表式的显示方法，这样做可以更直观的对病人进行管理 ，如4-11图所示： 图4-11、图表化显示通过combo box控件内容的选择可以察看不同科室的情况（采用combo box的keypress的事件实现）； 利用浮

45、动菜单为在院病人或等床病人分别进行管理：对等床病人实现了察看等床病人记录、安排病床的功能；对在院病人可以进行手术申请、填写病例、转科、出院等功能。（四） 错误处理及其他1 利用err对象捕获错误 dao中提供了error 和errors 两个对象用以处理错误，而vb中提供的err对象可以对任何应用程序中的错误进行有效的跟踪和报告：属性description,可返回一个包含错误描述的字符串变量；属性 source可返回一个包含产生错误的对象名字的字符串变量；属性number返回一个描述错误数目的整形变量。在本系统中为保证对错误的捕获，程序中使用如下语句：.msgbox ”number:” & c

46、str(err. number) & ”description: ” & err. description & “source:” & err. source2 利用on error goto处理错误 on error goto用于程序或函数的开始部分,它可以决定出现错误时如何去做。文中大量采用了resume label,用以返回应用程序发生故障的地点。如下：on error goto labelerrorlabelresume:exit sublabelerror:msgbox ”number:”& cstr(err. number) & “description:”& err. description & “source:”& err. sourceresume labelresume3 利用事务维护数据库的完整性前面我们已经提到利用建立数据库中表之间的关系,可以维护数据库的参照完整性。vb在中我们还可以利用事务的方法维护数据库的完整性。dao中 workspace对象提供3个方法用来封装事务：begintranse()描述事务的开始. committranse()描