医院信息管理系统论文

1、.wd.wd.wd.医院管理信息系统班级： 班时间：2016年7月组别：第 组 小组成员： 摘要 信息化的今天，计算机网络、Internet扮演的角色也越来越重要，其核心的数据库技术正在改变着我国各个领域的管理模式，而作为传统的医院模式也面临着重大变革。管理系统现代化迫在眉睫，一场深层次的变革即将降临。随着信息科学技术的飞速开展，人们逐渐意识到对信息管理软件的运用可以使日常工作更加方便、快捷和高效。论文详细论述了一个基于C/S构造的医院管理系统的开发设计过程。系统采用Visual Basic 6.0作开发平台，SQL Server 2000作数据库管理系统，实现了病人登记、医生信息管理、病人就

2、诊信息管理、住院信息管理等功能。系统符合医院管理的要求，能够帮助医院切实提高工作效率。论文组织如下：首先阐述了该系统的开发背景、意义；其次介绍了相关的开发工具及技术根基；接着对系统的需求进展了分析，并提出了具体的设计方案和数据库模型；然后展现了整个系统的具体实现，包括数据库的设计和连接，各功能模块的实现；最后对该软件进展了严格的测试。关键词：医院管理、信息系统、SQL、VB目录TOC o 1-3 h z u TOC o 1-3 h z u HYPERLINK l _Toc4561694031 引言 PAGEREF _Toc456169403 h 4HYPERLINK l _Toc4561694

3、042 系统理论根基及开发工具简介 PAGEREF _Toc456169404 h 4HYPERLINK l _Toc4561694052.1 C/S构造 PAGEREF _Toc456169405 h 4HYPERLINK l _Toc4561694062.1.1 什么是C/S构造 PAGEREF _Toc456169406 h 4HYPERLINK l _Toc4561694072.1.2 C/S架构软件的优势与劣势 PAGEREF _Toc456169407 h 4HYPERLINK l _Toc4561694082.2Visual Basic的介绍 PAGEREF _Toc456169

4、408 h 5HYPERLINK l _Toc4561694092.3 SQL Server2000简介 PAGEREF _Toc456169409 h 5HYPERLINK l _Toc4561694103 系统需求分析与方案设计 PAGEREF _Toc456169410 h 6HYPERLINK l _Toc4561694113.1 需求分析 PAGEREF _Toc456169411 h 6HYPERLINK l _Toc4561694123.2 方案设计 PAGEREF _Toc456169412 h 6HYPERLINK l _Toc4561694133.3 业务流程分析 PAGE

5、REF _Toc456169413 h 7HYPERLINK l _Toc4561694143.3.1 门诊业务流程分析 PAGEREF _Toc456169414 h 8HYPERLINK l _Toc4561694153.3.1 药房业务流程分析 PAGEREF _Toc456169415 h 8HYPERLINK l _Toc4561694163.3.2 住院管理业务流程分析 PAGEREF _Toc456169416 h 9HYPERLINK l _Toc4561694173.4 数据流程分析 PAGEREF _Toc456169417 h 9HYPERLINK l _Toc45616

6、94183.4.1 门诊数据流程分析 PAGEREF _Toc456169418 h 10HYPERLINK l _Toc4561694193.4.2 住院数据流程分析 PAGEREF _Toc456169419 h 10HYPERLINK l _Toc4561694203.4.3 药品书记流程图 PAGEREF _Toc456169420 h 10HYPERLINK l _Toc4561694213.5 可行性研究 PAGEREF _Toc456169421 h 10HYPERLINK l _Toc4561694223.5.1 技术可行性 PAGEREF _Toc456169422 h 10

7、HYPERLINK l _Toc4561694233.5.2 经济可行性 PAGEREF _Toc456169423 h 11HYPERLINK l _Toc4561694243.5.3 操作可行性 PAGEREF _Toc456169424 h 11HYPERLINK l _Toc4561694253.5.4 社会可行性 PAGEREF _Toc456169425 h 11HYPERLINK l _Toc4561694264 系统的实现 PAGEREF _Toc456169426 h 11HYPERLINK l _Toc4561694274.1 数据库的构建 PAGEREF _Toc4561

8、69427 h 11HYPERLINK l _Toc4561694284.1.1 门诊管理表 PAGEREF _Toc456169428 h 11HYPERLINK l _Toc4561694294.1.2 住院管理表 PAGEREF _Toc456169429 h 12HYPERLINK l _Toc4561694304.1.3 药品管理表 PAGEREF _Toc456169430 h 13HYPERLINK l _Toc4561694314.1.4 科室管理表 PAGEREF _Toc456169431 h 13HYPERLINK l _Toc4561694324.2 系统登陆模块 PA

9、GEREF _Toc456169432 h 14HYPERLINK l _Toc4561694334.2.1 登陆界面 PAGEREF _Toc456169433 h 14HYPERLINK l _Toc4561694344.2.2 系统首页 PAGEREF _Toc456169434 h 14HYPERLINK l _Toc4561694354.3 门诊信息管理模块 PAGEREF _Toc456169435 h 16HYPERLINK l _Toc4561694364.3.1 门诊收费 PAGEREF _Toc456169436 h 16HYPERLINK l _Toc4561694374

10、.3.2 门诊退费 PAGEREF _Toc456169437 h 19HYPERLINK l _Toc4561694384.3.3 门诊划价 PAGEREF _Toc456169438 h 22HYPERLINK l _Toc4561694394.4 住院信息管理模块 PAGEREF _Toc456169439 h 24HYPERLINK l _Toc4561694404.4.1 入院登记 PAGEREF _Toc456169440 h 24HYPERLINK l _Toc4561694414.4.2 住院收费 PAGEREF _Toc456169441 h 27HYPERLINK l _T

11、oc4561694424.4.3 出院结算 PAGEREF _Toc456169442 h 30HYPERLINK l _Toc4561694434.5 药房信息管理模块 PAGEREF _Toc456169443 h 32HYPERLINK l _Toc4561694444.5.1 药房入库模块 PAGEREF _Toc456169444 h 32HYPERLINK l _Toc4561694454.5.2 药品出库模块 PAGEREF _Toc456169445 h 35HYPERLINK l _Toc4561694464.5.3 药品盘点模块 PAGEREF _Toc456169446

12、h 38HYPERLINK l _Toc4561694474.6 科室信息管理模块 PAGEREF _Toc456169447 h 41HYPERLINK l _Toc4561694485 结论 PAGEREF _Toc456169448 h 431 引言自从人类进入21世纪,也就进入了一个高速开展的信息时代，高新技术飞速开展的同时,也使得计算机的使用范围大大扩展，它已经涉及到人类生活的方方面面。计算机使用的方便快捷,使它在越来越多的方面显示出比传统人工制作更迅速和准确的优点,尤其是在信息记录,检索和查询方面,更是使我们人类防止了不必要的麻烦。开发和使用医院管理系统对于医院来说是非常必要的，它

13、能加快医院的信息化步伐，提高医院的管理水平和医疗水平，增强在同行业中的竞争实力，是现代医院管理与计算机信息技术的必要结合。医院管理系统能加强医院内部管理、提高医疗服务水平，最大限度地提高医院运行的效率和医院管理水平，给医院带来了显著的经济效益和社会效益，也能使医院在未来竞争中处于领先地位。本课题设计一个医院管理系统,通过这个系统管理员可以简捷、方便的对病人、医生的记录进展查阅、增加、删除等功能，而用户也可以通过这个系统对进医生和病人的信息查询、账户增删等功能。系统采用Visual Basic作开发工具，SQL Server 2000作数据库管理系统。2 系统理论根基及开发工具简介2.1 C/S

14、构造2.1.1 什么是C/S构造C/S(Client/Server)构造，即大家熟知的“客户机和服务器构造，它是软件系统体系构造，通过它可以充分利用两端硬件环境的优势，将任务合理分配到Client端和Server端来实现，降低了系统的通讯开销。2.1.2 C/S架构软件的优势与劣势 1应用服务器运行数据负荷较轻。最简单的C/S体系构造的数据库应用由两局部组成，即客户应用程序和数据库服务器程序，二者可分别称为前台程序与后台程序。运行数据库服务器程序的机器，也称为应用服务器。一旦服务器程序被启动，就随时等待响应客户程序发来的请求；客户应用程序运行在用户自己的电脑上，对应于数据库服务器，可称为客户电

15、脑，当需要对数据库中的数据进展任何操作时，客户程序就自动地寻找服务器程序，并向其发出请求，服务器程序根据预定的规那么作出应答，送回结果，应用服务器运行数据负荷较轻。2数据的储存管理功能较为透明。在数据库应用中，数据的储存管理功能，是由服务器程序和客户应用程序分别独立进展的，前台应用可以违反的规那么，并且通常把那些不同的运行数据在服务器程序中不集中实现，例如访问者的权限、编号可以重复、必须有客户才能建设定单这样的规那么。所有这些，对于工作在前台程序上的最终用户，是“透明的，他们无须过问(通常也无法干预)背后的过程，就可以完成自己的一切工作。在客户服务器架构的应用中，前台程序不是非常“瘦小，麻烦的

16、事情都交给了服务器和网络。在C/S体系的下，数据库不能真正成为公共、专业化的仓库，它受到独立的专门管理。3C/S架构的劣势是高昂的维护成本且投资大。首先，采用C/S架构，要选择适当的数据库平台来实现数据库数据的真正“统一，使分布于两地的数据同步完全交由数据库系统去管理，但逻辑上两地的操作者要直接访问同一个数据库才能有效实现，有这样一些问题，如果需要建设“实时的数据同步，就必须在两地间建设实时的通讯连接，保持两地的数据库服务器在线运行，网络管理工作人员既要对服务器维护管理，又要对客户端维护和管理，这需要高昂的投资和复杂的技术支持，维护成本很高，维护任务量大。其次，传统的C/S构造的软件需要针对不

17、同的操作系统系统开发不同版本的软件，由于产品的更新换代十分快，代价高和低效率已经不适应工作需要。2.2 Visual Basic的介绍Visual BasicVB是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面GUI和快速应用程序开发RAD系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创立ActiveX控件。程序员可以轻松的使用VB提供的组件快速建设一个应用程序。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具

18、箱用来显示可用控件比方文本框或者按钮。每个控件都有自己的属性和事件。默认的的属性值会在控件创立的时候提供，但是程序员也可以进展更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中参加了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中参加相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口比方没有最大化和最小化按钮的窗体可以用来提供弹出功能。VB

19、的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。2.3 SQL Server2000简介SQL Server是一个关系数据库管理系统，是Microsoft推出新一代数据管理与分析软件。SQL Server 是一个全面的、集成的、端到端的数据解决方案，它为企业中的用户提供了一个安全、可靠和高效的平台用于企业数据管理和商业智能应用。SQL Server 2000是一个全面的、集成的、端到端的数据解决方案，它为企业中的用户提供了一个安全、可靠和高效的平台用于企业数据管理和商业智能应用。SQL Server 2000为IT专家和信息工作者带来了强大的、熟悉的工具，同时减

20、少了在从移动设备到企业数据系统的多平台上创立、部署、管理及使用企业数据和分析应用程序的复杂度。通过全面的功能集、和现有系统的集成性、以及对日常任务的自动化管理能力，SQL Server 2000为不同规模的企业提供了一个完整的数据解决方案。SQL Server 2000数据平台包括如下工具：关系型数据库、复制服务、通知服务、集成服务、分析服务、报表服务、管理工具、开发工具。SQL Server 2000数据平台为不同规模的组织提供了如下好处：充分利用数据资产、提高生产力、减少IT复杂度、更低的总体拥有成本(TCO)。3 系统需求分析与方案设计3.1 需求分析计算机技术改造医院的传统管理方式，由

21、原始经历型管理向科学型管理的转化，是替代重复性繁重的脑力劳动的过程。只有使用计算机及信息化管理手段方能实现管理的标准化、标准化、制度化和科学化，并能排除人为干预，同时能够充分地节约医院日常工作中不必要的浪费和开 支。另外医院管理计算机化也能够使各个部门工作有机衔接，方便患者就医和医院的统计分析。通过信息化管理，提高医院的管理水平，及时、准确的为医院综合管理、经济核算等提供信息； 提高了医务人员工作效率； 方便病人了解医疗服务和医疗费用各方面的信息，加强了医院经济管理，减少了漏洞； 保证了住院费用的预收； 提高了医疗和药品划价收费的准确性； 保证了药品及时调价，实现了药品及时准确盘存核算、各工程

22、的分类统计、出入院手续的办理和病人费用核算等各个环节均由计算机代替，其效率远远超过人工。利用标准严格的软件和先进的硬技术相结合，杜绝了人为因素造成损失，形成了一个以病人为中心的医院信息系统。通过对用户需求的分析，要求本系统具有以下功能: (1) 由于一项新的软件在被使用之前，对于使用者来说是陌生和崭新的，所以要求系统具有良好的人机界面； (2) 原始数据修改简单方便，在系统的使用过程中支持多条件查询； (3) 数据计算自动完成,数据的稳定性和可靠性好，尽量减少人工干预。3.2 方案设计具体说来，要求本系统具有以下六个功能模块：门诊管理模块、住院管理模块、药品管理模块、科室信息模块、数据管理、财

23、务管理。系统整体模块图如图1所示：药品盘点门诊收费门诊管理住院管理药品管理科室管理门诊退费iei门诊划价入院登记住院收费住院结算药品入库药品出库科室信息医院管理信息系统统登 陆退出财务管理后勤费用住院费用数据管理设备管理病人信息 各模块具体的需求描述如下:(1)病人门诊管理模块：以系统合法的身份进入系统后，可以直接处理新增病人的记录，包括病人各项 基本信息；(2)住院信息管理模块：医生确定该病人入院治疗，其中包括对病人用药及费用的详细描述；(3)药品管理模块：通过对药品的出库入库进展描述；可以有效地控制药品，以防药品流出；(4)医生信息模块：进入系统之后，可以在本模块进展新医生用户的 基本信息

24、诸如姓名、科室、职称、联系方式等的录入，以及通过姓名对医生的信息进展查询；(5)数据管理模块: 对病人信息和意愿设备进展管理；(6)财务管理对于病人住院的费用以及后勤费用进展统计。3.3 业务流程分析系统业务流程图Transaction Flow Diagram,简称TFD，就是用一些规定的符号及连接来表示某个具有的业务处理过程。我们采用以下规定符号。 人员 单位 文档、单据业务流程分析可以帮助用户了解该业务的具体处理过程，发现和处理系统工作中的错误和疏漏，修改和删除业务中的不合理局部利用系统调查的资料将业务处理过程中的每一步用一完整的图形将其串起来。3.3.1 门诊业务流程分析 病人就诊前现

25、在挂号处进展挂号，挂号成功后进展就诊。然后医生根据诊断结果，给病人开出处方，各种需要检查，化验的单据，病人拿着这种单据到门诊划价收费处进展划价，缴费，领取药品，到对应科室进展检查化验。具体流程如以以下图所示挂号处挂号单诊断处方划价划价单收费收费单医生病人3.3.1 药房业务流程分析病人就诊前现在挂号处进展挂号，在教授门诊，副教授门诊，普通门诊中选择一个进展就诊。然后医生根据诊断结果，给病人开出处方，各种需要检查，化验的单据，病人拿着这种单据到门诊划价收费处进展划价，缴费，领取药品，到对应科室进展检查化验。具体流程如以以下图所示：工作人员药品缺货单采购药品入库入库单工作人员工作人员药品入库业务流

26、程图工作人员处方单药房病人药品出库业务流程图3.3.2 住院管理业务流程分析病人由门诊转入，进展入院登记，交纳规定押金后后进入住院部进展入院观察治 疗。由住院部医生结合门诊医生开具的病历进展综合诊断，医生确诊后，将医嘱交由护士进展执行。对病人进展治疗并核算住院费用，出院时进展结算。住院处病人住院押金单下医嘱医生工作处护士工作站用药单治疗单费用单病人3.4 数据流程分析数据流程图是一种能够全面地描述信息系统逻辑模型的主要工具，利用极少的符号综合的反映出信息在系统中的流动、处理和储存情况。我们采用以下规定符号。 外部实体 处理功能 数据流 数据储存3.4.1 门诊数据流程分析科室科室科室科室划价收

27、费处病人处方化验单手术单检查单划价单缴费单3.4.2 住院数据流程分析病人入院管理病房管理出院管理入院通知单病人信息表药品需求单出院通知单医院病房管理3.4.3 药品书记流程图药房入库处理入库单入库数据库存台帐3.5 可行性研究3.5.1 技术可行性本系统利用Visual Basic作为系统的开发工具，是因为它采用面向对象的编程方法把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性；事件驱动的编程机制通过事件执行对象的操作，在设计应用程序时，不必建设具有明显的开场和完毕的程序，而是编写假设干个过程，通过这些过程执行指定的操作；提供完善的指令控制语句，给开发高性能的系统提供了保障，保证

28、了代码的模块化要求。系统采用SQL Server 2000作为后台数据库，它可以通过窗体提供的工具输入数据到数据库，可以使用查询设计和构造查询语言实现查询。在技术难度方面，由于有指导教师的指导和相关的参考文献，特别是身边的同学的帮助，使得在开发过程中所遇到的困难都能够一一得到解决。3.5.2 经济可行性随着计算机的大量普及，其价格已经越来越被众多的单位和人所承受，然而价格的低廉并不意味着性能上的退化，相反，随着科学技术的开展，计算机随着价格的降低，性能却日渐提高。本系统的开发，在已经使用了计算机进展管理的医疗系统中无疑会受到欢迎，它会给医院的工作效率带来一个质的飞跃，其主要的优点主要表现在它可

29、以作为医院管理系统 基本功能的一个缩影，集成了门诊模块、病人登记管理模块、病人就诊信息模块和住院信息管理模块等多种功能，具有较强的实用性和先进性。由于本系统具有安全性上面的保护措施，只有用户拥有了系统合法的用户名和相应的密码之后，才能进入系统，对系统的对应信息进展添加、修改和删除，其他非合法的用户都不能进入系统，这样，使得医院在处理信息方面更加保密。3.5.3 操作可行性由于本系统管理的对象比较单一，都是就诊的病人和相关医务人员，且每个数据库内容具有较强的关联性，设计的过程不是很复杂，因此，比较适合于采用数据库管理。且因为本系统所消耗的资源非常小，故一般工作中使用的微机无论在软件上还是硬件上都

30、可以满足运行要求。3.5.4 社会可行性 最重要的一点还是在社会可行性方面。因为目前在我国西部的许多中小型医院，没有使用计算机管理系统，信息处理 基本上还处于手工状态，致使医护和管理人员劳动强度大且工作效率低，医院也为此苦恼不以，所以一个好的有效的计算机管理系统的出台是十分必要的，而在信息化开展的今天，想要提高竞争力，使用计算机管理系统已经成为一种趋势。而该系统地提出正是顺应了这种潮流，再加上以上的三点优势：低廉的价格，良好的可扩大性，方便的管理。相信该计算机管理系统一定会在未来的运用中大放荣耀。4 系统的实现4.1 数据库的构建4.1.1 门诊管理表 此表的设计是为了实现本医院管理系统的门诊

31、的添加、修改、删除的管理，包括姓名、性别、出生年月、入院时间、房间号、病床号、科室、药品名称、科室自动编号、规格、单位、数量、单价：表1 住院管理表列名数据类型长度允许空门诊号Int10姓名Int2性别varchar20年龄varchar10工程名称varchar2规格Int5单价Int10数量varchar2收费金额varchar5实收varchar10类别Int2科室Int20医生varchar15执行科室varchar10找零Int54.1.2 住院管理表 此表的设计是为了实现本医院管理系统的门诊的添加、修改、删除的管理，包括姓名、性别、出生年月、入院时间、房间号、病床号、科室、药品名称

32、、科室自动编号、规格、单位、数量、单价：表2 住院管理表列名数据类型长度允许空住院号varchar20姓名Int15性别Int20出生年月datetime20入院时间datetime20房间Int5病床Int10科室varchar15药品名称varchar20科室自动编号varchar10规格Int2单位Int20数量varchar10单价varchar2预交金额varchar5金额Int10余额Int24.1.3 药品管理表此表的设计是为了实现清晰管理医院药品的供货时间、药品名称、药品规格等信息：表3 出库表列名数据类型长度允许空药房varchar10供货单位Int5出库时间Datetime

33、20金额varchar15工程名称varchar20规格Int20出库价格Int20数量varchar5表4盘点表列名数据类型长度允许空药房varchar10盘点时间Int2工程名称Int5规格varchar10账面数量varchar2盘点数量varchar20表5入库表列名数据类型长度允许空药房Int15供货单位Int20入库时间datetime20金额varchar20工程名称Int5规格Int10入库价格varchar15数量varchar204.1.4 科室管理表 此表是为了实现医院管理系统对于科室名称、科室编号、员工号、病房数、科室地点、系主任的添加、修改、删除等的管理：表6科室信息

34、表列名数据类型长度允许空科室名称varchar10科室编号varchar2员工号Int20病房数Int10科室地点varchar2系主任varchar54.2 系统登陆模块4.2.1 登陆界面 这是整个系统的第一个界面，通过输入用户名和密码，进入到下一个界面：图1 登录界面相关代码：Private Sub Command1_Click() If Text1.Text = 123 And Text2.Text = zxc Or Text1.Text = 456 And Text2.Text = asd Or Text1.Text = 789 And Text2.Text = qwe Then M

35、sgBox 登录成功, 2 + vbOKCancel, 登录信息dljm.Visible = Falseyysy.Visible = True Else MsgBox 密码或用户名错误, 5 + vbExclamation, 登录提示 End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text2_Change()Text2.PasswordChar = *End Sub4.2.2 系统首页 这是进入到系统的界面，是一个MDIform窗体，利用这个窗体可以快速建设系统的各个小模块：图2 医院首页相关代码：Private

36、Sub js1_Click()cyjs.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub ksxx1_Click()yysy.Visible = Falseksxx.Visible = TrueEnd SubPrivate Sub mzhj1_Click()mzhj.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub mzsf1_Click()mzsf.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub mztf1_Click()y

37、ysy.Visible = Falsemztf.Visible = TrueEnd SubPrivate Sub rydj1_Click()rydj.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub tc1_Click()EndEnd SubPrivate Sub ypck1_Click()ypck.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub yppd1_Click()yfpd.Visible = Trueyysy.Visible = FalseEnd SubPrivate S

38、ub yprk1_Click()yprk.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub zysf1_Click()zysf.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub cyjs1_Click()cyjs.Visible = Trueyysy.Visible = FalseEnd Sub4.3 门诊信息管理模块该模块共分为三个局部，分别是门诊收费、门诊退费、门诊划价。这三个局部可以有效地进展门诊方面的管理，对病人的信息、药品的使用和费用问题进展修改。4.3.1 门诊收费 门诊

39、收费是对病人挂号、病人信息等的管理。可以进展查询、修改、删除、添加等操作，如以以下图所示：图3门诊管理模块图4门诊查询信息图5 查询结果图6 添加信息图7 添加结果相关代码：Private Sub Command1_Click()On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command10_Click()If Command10.Caption = 添加 ThenCommand10.Caption = 确认Adodc1.Recordset.AddNewText1.S

40、etFocusgydmCommand10.Enabled = Not Command1.EnabledElseIf Command10.Caption = 确认 Then Command10.Caption = 添加Adodc1.Recordset.UpdategydmCommand10.Enabled = Not Command10.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand7.Enabled = Not Command1.EnabledCommand8.Enabled = Not

41、Command1.EnabledCommand9.Enabled = Not Command1.EnabledEnd SubPrivate Sub Command11_Click()mzsf.Visible = Falseyysy.Visible = TrueEnd SubPrivate Sub Command7_Click()Dim sno As Stringsno = InputBox(请输入门诊号, 查找窗口, 2000)Adodc1.Recordset.Find 门诊号= & sno & If Adodc1.Recordset.BOF ThenMsgBox 没有找到此门诊号, 5 +

42、vbExclamation, 查找提示End IfEnd SubPrivate Sub Command8_Click()Dim ino As Integerino = MsgBox(您确认要删除该记录吗, 49, 删除记录确认框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd Sub4.3.2 门诊退费 门诊退费是对病人挂号、病人信息等的管理。可以进展查询、修改、删除、添加等操作，如以以下图所示：图8门诊退费模块图9退费查询图10查询结果相关代码：Private Sub Command1_Cli

43、ck()Dim sno As Stringsno = InputBox(请输入门诊号, 查找窗口, 2000)Adodc1.Recordset.Find 门诊号= & sno & If Adodc1.Recordset.BOF ThenMsgBox 没有找到该门诊号, 5 + vbExclamation, 查找提示End IfEnd SubPrivate Sub Command2_Click()On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command4_Click(

44、)Dim ino As Integerino = MsgBox(您确认要删除该记录吗, 49, 删除记录确认框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command5_Click()mztf.Visible = Falseyysy.Visible = TrueEnd SubPrivate Sub Command6_Click()If Command6.Caption = 添加 ThenCommand6.Caption = 确认Adodc1.Recordse

45、t.AddNewText1.SetFocusgydmCommand6.Enabled = Not Command1.EnabledElseIf Command6.Caption = 确认 Then Command6.Caption = 添加Adodc1.Recordset.UpdategydmCommand6.Enabled = Not Command6.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand3.Enab

46、led = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledEnd SubPrivate Sub Form_Load()Combo4.AddItem 药品费Combo4.AddItem 工程检查费Combo4.AddItem 住院费End Sub4.3.3 门诊划价 门诊划价是对病人挂号、病人信息等的管理。可以进展查询、修改、删除、添加等操作，如以以下图所示：图11门诊划价图12查询结果图13 信息添加图14确认添加相关代码：Private Sub Command3_Click()Dim sno As Stringsno =

47、 InputBox(请输入门诊号, 查找窗口, 2000)Adodc1.Recordset.Find 门诊号= & sno & If Adodc1.Recordset.BOF ThenMsgBox 没有找到此门诊号, 5 + vbExclamation, 查找提示End IfEnd SubPrivate Sub Command4_Click()Dim ino As Integerino = MsgBox(您确认要删除该记录吗, 49, 删除记录确认框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEn

48、d SubPrivate Sub Command6_Click()On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command7_Click()mzhj.Visible = Falseyysy.Visible = TrueEnd SubPrivate Sub Command8_Click()If Command8.Caption = 添加 ThenCommand8.Caption = 确认Adodc1.Recordset.AddNewText1.SetFocusgydm

49、Command8.Enabled = Not Command3.EnabledElseIf Command8.Caption = 确认 Then Command8.Caption = 添加Adodc1.Recordset.UpdategydmCommand8.Enabled = Not Command8.EnabledEnd IfEnd SubSub gydm()Command3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command3.EnabledCommand5.Enabled = Not Command3.Enabled

50、Command6.Enabled = Not Command3.EnabledEnd Sub4.4 住院信息管理模块该模块共分为三个局部，入院登记、住院收费、住院结算，可以对住院的病人进展方便、快速的信息修改。4.4.1 入院登记 入院登记是对病人住院号、病人信息、住院时间等的管理。可以进展查询、修改、删除、添加等操作，如以以下图所示：图15入院登记界面图16 住院号查询图17查询结果图18入院信息添加图19添加结果图20修改信息光标定在文本框中图21删除信息相关代码：Private Sub Command1_Click()Dim sno As Stringsno = InputBox(请输入

51、查询住院号, 查找窗口, 102201)Adodc1.Recordset.Find 住院号 = & sno & If Adodc1.Recordset.BOF ThenMsgBox 没有相关信息, vbExclamation, 查找提示End IfEnd SubPrivate Sub Command2_Click()Command2.Caption = 删除Dim ino As Integerino = MsgBox(您确认要删除该记录吗, 49, 删除记录确认框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstE

52、nd IfEnd SubPrivate Sub Command3_Click()yysy.Visible = Truerydj.HideEnd SubPrivate Sub Command4_Click()If Command4.Caption = 添加 ThenCommand4.Caption = 确认Adodc1.Recordset.AddNewText1.SetFocusgydmCommand4.Enabled = Not Command4.EnabledElseIf Command4.Caption = 确认 Then Command4.Caption = 添加Adodc1.Recor

53、dset.UpdategydmCommand4.Enabled = Not Command4.EnabledEnd IfEnd SubPrivate Sub Command5_Click()Command5.Caption = 修改On Error Resume NextIf Command5.Caption = 修改 ThenCommand5.Caption = 修改Data1.Recordset.EditModeText1.SetFocusgydmElseCommand5.Caption = 修改Adodc1.Recordset.UpdategydmCommand5.Enabled = N

54、ot Command5.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledEnd Sub4.4.2 住院收费 住院收费是对病人住院号、病人信息、住院期间使用药品等的管理。可以进展查询、修改、删除、添加等操作，如以以下图所示：图22 住院收费图23 收费查询图24 查询结果图25

55、 修改信息光标定在文本框中图26 删除记录图27 住院结算查询相关代码：Private Sub Command1_Click()Command1.Caption = 删除Dim ino As Integerino = MsgBox(您确认要删除该记录吗, 49, 删除记录确认框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command2_Click()Dim sno As Stringsno = InputBox(请输入查询住院号, 查找窗口, 102201)

56、Adodc1.Recordset.Find 住院号 = & sno & If Adodc1.Recordset.BOF ThenMsgBox 没有相关信息, vbExclamation, 查找提示End IfEnd SubPrivate Sub Command3_Click()Command3.Caption = 修改On Error Resume NextIf Command3.Caption = 修改 ThenCommand3.Caption = 修改Data1.Recordset.EditModeText1.SetFocusgydmElseCommand3.Caption = 修改Ado

57、dc1.Recordset.UpdategydmCommand3.Enabled = Not Command3.EnabledEnd IfEnd Sub4.4.3 出院结算 出院结算是对病人住院号、病人信息等的管理。可以进展查询、修改、删除、添加等操作，如以以下图所示：图28 查询结果图29 信息修改图30 出院结算相关代码：Private Sub Command1_Click()Dim sno As Stringsno = InputBox(请输入查询住院号, 查找窗口, 102201)Adodc1.Recordset.Find 住院号 = & sno & If Adodc1.Records

58、et.BOF ThenMsgBox 没有相关信息, vbExclamation, 查找提示End IfEnd SubPrivate Sub Command2_Click()MsgBox (确定要结算吗)End SubPrivate Sub Command3_Click()yysy.Visible = Truecyjs.Visible = FalseEnd SubPrivate Sub Command4_Click()Command4.Caption = 修改On Error Resume NextIf Command4.Caption = 修改 ThenCommand4.Caption = 修

59、改Data1.Recordset.EditModeText1.SetFocusgydmElseCommand4.Caption = 修改Adodc1.Recordset.UpdategydmCommand4.Enabled = Not Command4.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand3.Enabled = Not Command3.EnabledCommand5.Enabled = Not Command5.EnabledEnd SubPrivate Sub Command

60、5_Click()Command5.Caption = 删除Dim ino As Integerino = MsgBox(您确认要删除该记录吗, 49, 删除记录确认框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd Sub4.5 药房信息管理模块该模块分为三局部，药品入库、药品出库、药品盘点，每个模块都可以通过commend按钮进展查询、修改、删除的操作，方便管理药品信息。4.5.1 药房入库模块 药房入库模块可以对将要入库的药品进展添加，对输入错误的信息进展修改、删除，如以以下图所示：图31