医院信息管理系统论文.doc

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

2、生信息管理、病人就诊信息管理、住院信息管理等功能。系统符合医院管理的要求，能够帮助医院切实提高工作效率。论文组织如下：首先阐述了该系统的开发背景、意义；其次介绍了相关的开发工具及技术基础；接着对系统的需求进行了分析，并提出了具体的设计方案和数据库模型；然后展现了整个系统的具体实现，包括数据库的设计和连接，各功能模块的实现；最后对该软件进行了严格的测试。关键词：医院管理、信息系统、SQL、VB第 1 页 共 45 页目录1 引言 42 系统理论基础及开发工具简介 42.1 C/S 结构 .42.1.1 什么是 C/S 结构 42.1.2 C/S 架构软件的优势与劣势 42.2Visual Bas

3、ic 的介绍 .52.3 SQL Server2000 简介 .53 系统需求分析与方案设计 63.1 需求分析 63.2 方案设计 63.3 业务流程分析 73.3.1 门诊业务流程分析 83.3.1 药房业务流程分析 83.3.2 住院管理业务流程分析 93.4 数据流程分析 93.4.1 门诊数据流程分析 103.4.2 住院数据流程分析 103.4.3 药品书记流程图 103.5 可行性研究 103.5.1 技术可行性 103.5.2 经济可行性 113.5.3 操作可行性 113.5.4 社会可行性 114 系统的实现 114.1 数据库的构建 114.1.1 门诊管理表 114.1

4、.2 住院管理表 124.1.3 药品管理表 134.1.4 科室管理表 134.2 系统登陆模块 144.2.1 登陆界面 144.2.2 系统首页 144.3 门诊信息管理模块 164.3.1 门诊收费 164.3.2 门诊退费 194.3.3 门诊划价 224.4 住院信息管理模块 244.4.1 入院登记 244.4.2 住院收费 27第 2 页 共 45 页4.4.3 出院结算 304.5 药房信息管理模块 324.5.1 药房入库模块 324.5.2 药品出库模块 354.5.3 药品盘点模块 384.6 科室信息管理模块 415 结论 43第 3 页 共 45 页1 引言自从人类

5、进入 21 世纪,也就进入了一个高速发展的信息时代，高新技术飞速发展的同时,也使得计算机的使用范围大大扩展，它已经涉及到人类生活的方方面面。计算机使用的方便快捷,使它在越来越多的方面显示出比传统人工制作更迅速和准确的优点,尤其是在信息记录,检索和查询方面,更是使我们人类避免了不必要的麻烦。开发和使用医院管理系统对于医院来说是非常必要的，它能加快医院的信息化步伐，提高医院的管理水平和医疗水平，增强在同行业中的竞争实力，是现代医院管理与计算机信息技术的必要结合。医院管理系统能加强医院内部管理、提高医疗服务水平，最大限度地提高医院运行的效率和医院管理水平，给医院带来了显著的经济效益和社会效益，也能使

6、医院在未来竞争中处于领先地位。本课题设计一个医院管理系统,通过这个系统管理员可以简捷、方便的对病人、医生的记录进行查阅、增加、删除等功能，而用户也可以通过这个系统对进医生和病人的信息查询、账户增删等功能。系统采用 Visual Basic 作开发工具，SQL Server 2000 作数据库管理系统。2 系统理论基础及开发工具简介2.1 C/S 结构2.1.1 什么是 C/S 结构C/S(Client/Server)结构，即大家熟知的 “客户机和服务器”结构，它是软件系统体系结构，通过它可以充分利用两端硬件环境的优势，将任务合理分配到 Client 端和 Server 端来实现，降低了系统的通

7、讯开销。2.1.2 C/S 架构软件的优势与劣势（1）应用服务器运行数据负荷较轻。最简单的 C/S 体系结构的数据库应用由两部分组成，即客户应用程序和数据库服务器程序，二者可分别称为前台程序与后台程序。运行数据库服务器程序的机器，也称为应用服务器。一旦服务器程序被启动，就随时等待响应客户程序发来的请求；客户应用程序运行在用户自己的电脑上，对应于数据库服务器，可称为客户电脑，当需要对数据库中的数据进行任何操作时，客户程序就自动地寻找服务器程序，并向其发出请求，服务器程序根据预定的规则作出应答，送回结果，应用服务器运行数据负荷较轻。（2）数据的储存管理功能较为透明。在数据库应用中，数据的储存管理功

8、能，是由服务器程序和客户应用程序分别独立进行的，前台应用可以违反的规则，并且通常把那些不同的运行数据在服务器程序中不集中实现，例如访问者的权限、编号可以重复、必须有客户才能建立定单这样的规则。所有这些，对于工作在前台程序上的最终用户，是“透明”的，他们无须过问(通常也无法干涉) 背后的过程，就可以完成自己的一切工作。在客户服务器架构的应用中，前台程序不是非第 4 页 共 45 页常“瘦小” ，麻烦的事情都交给了服务器和网络。在 C/S 体系的下，数据库不能真正成为公共、专业化的仓库，它受到独立的专门管理。（3）C/S 架构的劣势是高昂的维护成本且投资大。首先，采用 C/S 架构，要选择适当的数

9、据库平台来实现数据库数据的真正“统一” ，使分布于两地的数据同步完全交由数据库系统去管理，但逻辑上两地的操作者要直接访问同一个数据库才能有效实现，有这样一些问题，如果需要建立“实时”的数据同步，就必须在两地间建立实时的通讯连接，保持两地的数据库服务器在线运行，网络管理工作人员既要对服务器维护管理，又要对客户端维护和管理，这需要高昂的投资和复杂的技术支持，维护成本很高，维护任务量大。其次，传统的 C/S 结构的软件需要针对不同的操作系统系统开发不同版本的软件，由于产品的更新换代十分快，代价高和低效率已经不适应工作需要。2.2 Visual Basic 的介绍Visual Basic（ VB）是一

10、种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB 都是世界上使用人数最多的语言不仅是盛赞 VB 的开发者还是抱怨 VB 的开发者的数量。它源自于 BASIC 编程语言。VB 拥有图形用户界面（GUI ）和快速应用程序开发（RAD ）系统，可以轻易的使用 DAO、RDO 、ADO 连接数据库，或者轻松的创建 ActiveX 控件。程序员可以轻松的使用 VB 提供的组件快速建立一个应用程序。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮） 。每个控件都有自己的属性和事件。默认的的属性值会在控件创建的时候提供，但是程序员也

11、可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。2.3 SQL Server2

12、000 简介SQL Server 是一个关系数据库管理系统，是 Microsoft 推出新一代数据管理与分析软件。SQL Server 是一个全面的、集成的、端到端的数据解决方案，它为企业中的用户提供了一个安全、可靠和高效的平台用于企业数据管理和商业智能应用。SQL Server 2000 是一个全面的、集成的、端到端的数据解决方案，它为企业中的用户提供了一个安全、可靠和高效的平台用于企业数据管理和商业智能应用。SQL Server 2000 为 IT 专家和信息工作者带来了强大的、熟悉的工具，同时减少了在从移动设备到企业数据系统的多平台上创建、部署、管理及使用企业数据和分析应用程序的复杂度。

13、通过全面的功能集、和现有系统的集成性、以及对日常任务的自动化管理能力，SQL Server 2000 为不同规模的企业提供了一个完整的数据解决方案。SQL Server 2000 数据平台包括如下工具：关系型数据库、复制服务、通知服务、集成服务、分析服务、报表服务、管理工具、开发工具。SQL Server 2000 数据平台为不同规模的组织提供了如下好处：充分利用数据资产、提高生产力、减少 IT 复杂度、更低的总体拥有成本(TCO)。第 5 页 共 45 页3 系统需求分析与方案设计3.1 需求分析计算机技术改造医院的传统管理方式，由原始经验型管理向科学型管理的转化，是替代重复性繁重的脑力劳动

14、的过程。只有使用计算机及信息化管理手段方能实现管理的标准化、规范化、制度化和科学化，并能排除人为干预，同时能够充分地节约医院日常工作中不必要的浪费和开 支。另外医院管理计算机化也能够使各个部门工作有机衔接，方便患者就医和医院的统计分析。通过信息化管理，提高医院的管理水平，及时、准确的为医院综合管理、经济核算等提供信息； 提高了医务人员工作效率； 方便病人了解医疗服务和医疗费用各方面的信息，加强了医院经济管理，减少了漏洞； 保证了住院费用的预收； 提高了医疗和药品划价收费的准确性； 保证了药品及时调价，实现了药品及时准确盘存核算、各项目的分类统计、出入院手续的办理和病人费用核算等各个环节均由计算

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

16、医院管理信息系统统登 陆退出财务管理后勤费用住院费用数据管理设备管理病人信息各模块具体的需求描述如下:(1)病人门诊管理模块：以系统合法的身份进入系统后，可以直接处理新增病人的记录，包括病人各项基本信息；(2)住院信息管理模块：医生确定该病人入院治疗，其中包括对病人用药及费用的详细描述；(3)药品管理模块：通过对药品的出库入库进行描述；可以有效地控制药品，以防药品流出；(4)医生信息模块：进入系统之后，可以在本模块进行新医生用户的基本信息诸如姓名、科室、职称、联系方式等的录入，以及通过姓名对医生的信息进行查询；(5)数据管理模块: 对病人信息和意愿设备进行管理；(6)财务管理对于病人住院的费用

17、以及后勤费用进行统计。3.3 业务流程分析系统业务流程图（Transaction Flow Diagram,简称 TFD） ，就是用一些规定的符号及连接来表示某个具有的业务处理过程。我们采用以下规定符号。门诊收费门诊管理住院管理药品管理科室管理门诊退费iei门诊划价入院登记住院收费 入院登记 住院结算药品入库药品出库药品盘点科室信息第 7 页 共 45 页人员 单位 文档、单据业务流程分析可以帮助用户了解该业务的具体处理过程，发现和处理系统工作中的错误和疏漏，修改和删除业务中的不合理部分利用系统调查的资料将业务处理过程中的每一步用一完整的图形将其串起来。3.3.1 门诊业务流程分析病人就诊前现

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

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

20、 9 页 共 45 页3.4.1 门诊数据流程分析科室科室科室科室划价 收费处病人处方化验单手术单检查单划价单 缴费单3.4.2 住院数据流程分析病人 入院管理病房管理出院管理入院通知单病人信息表药品需求单出院通知单（医院病房管理）3.4.3 药品书记流程图药房 入库处理入库单入库数据库存台帐3.5 可行性研究3.5.1 技术可行性本系统利用 Visual Basic 作为系统的开发工具，是因为它采用面向对象的编程方法把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性；事件驱动的编程机制通过事件执行对象的操作，在设计应用程序时，不必建立具有明显的开始和结束的程序，而是编写若干个过程，

21、通过这些过程执行指定的操作；提供完善的指令控制语句，给开发高性能的系统提供了保障，保证了代码的模块化要求。第 10 页 共 45 页系统采用 SQL Server 2000 作为后台数据库，它可以通过窗体提供的工具输入数据到数据库，可以使用查询设计和结构查询语言实现查询。在技术难度方面，由于有指导老师的指导和相关的参考文献，特别是身边的同学的帮助，使得在开发过程中所遇到的困难都能够一一得到解决。3.5.2 经济可行性随着计算机的大量普及，其价格已经越来越被众多的单位和人所接受，然而价格的低廉并不意味着性能上的退化，相反，随着科学技术的发展，计算机随着价格的降低，性能却日渐提高。本系统的开发，在

22、已经使用了计算机进行管理的医疗系统中无疑会受到欢迎，它会给医院的工作效率带来一个质的飞跃，其主要的优点主要表现在它可以作为医院管理系统基本功能的一个缩影，集成了门诊模块、病人登记管理模块、病人就诊信息模块和住院信息管理模块等多种功能，具有较强的实用性和先进性。由于本系统具有安全性上面的保护措施，只有用户拥有了系统合法的用户名和相应的密码之后，才能进入系统，对系统的对应信息进行添加、修改和删除，其他非合法的用户都不能进入系统，这样，使得医院在处理信息方面更加保密。3.5.3 操作可行性由于本系统管理的对象比较单一，都是就诊的病人和相关医务人员，且每个数据库内容具有较强的关联性，设计的过程不是很复

23、杂，因此，比较适合于采用数据库管理。且因为本系统所耗费的资源非常小，故一般工作中使用的微机无论在软件上还是硬件上都可以满足运行要求。3.5.4 社会可行性最重要的一点还是在社会可行性方面。因为目前在我国西部的许多中小型医院，没有使用计算机管理系统，信息处理基本上还处于手工状态，致使医护和管理人员劳动强度大且工作效率低，医院也为此苦恼不以，所以一个好的有效的计算机管理系统的出台是十分必要的，而在信息化发展的今天，想要提高竞争力，使用计算机管理系统已经成为一种趋势。而该系统地提出正是顺应了这种潮流，再加上以上的三点优势：低廉的价格，良好的可扩充性，方便的管理。相信该计算机管理系统一定会在未来的运用

24、中大放光彩。4 系统的实现4.1 数据库的构建4.1.1 门诊管理表此表的设计是为了实现本医院管理系统的门诊的添加、修改、删除的管理，包括姓名、性别、出生年月、入院时间、房间号、病床号、科室、药品名称、科室自动编号、规格、单位、数量、单价：表 1 住院管理表列名 数据类型 长度 允许空门诊号 Int 10第 11 页 共 45 页姓名 Int 2性别 varchar 20年龄 varchar 10项目名称 varchar 2规格 Int 5单价 Int 10数量 varchar 2收费金额 varchar 5实收 varchar 10类别 Int 2科室 Int 20医生 varchar 15

25、执行科室 varchar 10找零 Int 54.1.2 住院管理表此表的设计是为了实现本医院管理系统的门诊的添加、修改、删除的管理，包括姓名、性别、出生年月、入院时间、房间号、病床号、科室、药品名称、科室自动编号、规格、单位、数量、单价：表 2 住院管理表列名 数据类型 长度 允许空住院号 varchar 20姓名 Int 15性别 Int 20出生年月 datetime 20入院时间 datetime 20房间 Int 5病床 Int 10科室 varchar 15药品名称 varchar 20科室自动编号varchar 10规格 Int 2单位 Int 20数量 varchar 10单价

26、 varchar 2预交金额 varchar 5金额 Int 10余额 Int 2第 12 页 共 45 页4.1.3 药品管理表此表的设计是为了实现清晰管理医院药品的供货时间、药品名称、药品规格等信息：表 3 出库表列名 数据类型 长度 允许空药房 varchar 10供货单位 Int 5出库时间 Datetime 20金额 varchar 15项目名称 varchar 20规格 Int 20出库价格 Int 20数量 varchar 5表 4 盘点表列名 数据类型 长度 允许空药房 varchar 10盘点时间 Int 2项目名称 Int 5规格 varchar 10账面数量 varcha

27、r 2盘点数量 varchar 20表 5 入库表列名 数据类型 长度 允许空药房 Int 15供货单位 Int 20入库时间 datetime 20金额 varchar 20项目名称 Int 5规格 Int 10入库价格 varchar 15数量 varchar 204.1.4 科室管理表此表是为了实现医院管理系统对于科室名称、科室编号、员工号、病房数、科室地点、系主任的添加、修改、删除等的管理：表 6 科室信息表列名 数据类型 长度 允许空科室名称 varchar 10科室编号 varchar 2员工号 Int 20病房数 Int 10科室地点 varchar 2第 13 页 共 45 页

28、系主任 varchar 54.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“ ThenMsgBox “登录成功 “, 2 + vbOKCancel, “登录信息“dljm.Visible = F

29、alseyysy.Visible = TrueElseMsgBox “密码或用户名错误“, 5 + vbExclamation, “登录提示 “End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text2_Change()Text2.PasswordChar = “*“End Sub4.2.2 系统首页这是进入到系统的界面，是一个 MDIform 窗体，利用这个窗体可以快速建立系统的各个小模块：第 14 页 共 45 页图 2 医院首页相关代码：Private Sub js1_Click()cyjs.Visible =

30、 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()yysy.Visible = Falsemztf.Visib

31、le = TrueEnd SubPrivate Sub rydj1_Click()rydj.Visible = Trueyysy.Visible = FalseEnd Sub第 15 页 共 45 页Private Sub tc1_Click()EndEnd SubPrivate Sub ypck1_Click()ypck.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub yppd1_Click()yfpd.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub yprk1_Click()

32、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 门诊收费门诊收费是对病人挂号、病人信息等的管理

33、。可以进行查询、修改、删除、添加等操作，如下图所示：第 16 页 共 45 页图 3 门诊管理模块图 4 门诊查询信息图 5 查询结果第 17 页 共 45 页图 6 添加信息图 7 添加结果相关代码：Private Sub Command1_Click()On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command10_Click()If Command10.Caption = “添加“ ThenCommand10.Caption = “确认“Adodc1.Recor

34、dset.AddNewText1.SetFocusgydmCommand10.Enabled = Not Command1.EnabledElseIf Command10.Caption = “确认“ Then Command10.Caption = “添加“Adodc1.Recordset.Updategydm第 18 页 共 45 页Command10.Enabled = Not Command10.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand7.Enabled = Not Comm

35、and1.EnabledCommand8.Enabled = Not 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 A

36、dodc1.Recordset.BOF ThenMsgBox “没有找到此门诊号 “, 5 + 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 门诊退费门诊退费是对病人挂号、病人信息等的管理。可以进行查询、修改、删除、添加等操作，如下

37、图所示：第 19 页 共 45 页图 8 门诊退费模块图 9 退费查询图 10 查询结果相关代码：Private Sub Command1_Click()Dim sno As Stringsno = InputBox(“请输入门诊号 “, “查找窗口“, 2000)Adodc1.Recordset.Find “门诊号=“ & sno & “ “If Adodc1.Recordset.BOF ThenMsgBox “没有找到该门诊号 “, 5 + vbExclamation, “查找提示 “End IfEnd SubPrivate Sub Command2_Click()第 20 页 共 45

38、页On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command4_Click()Dim ino As Integerino = MsgBox(“您确认要删除该记录吗“, 49, “ 删除记录确认框 “)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command5_Click()mztf.Visible = Falseyysy.Visibl

39、e = TrueEnd SubPrivate Sub Command6_Click()If Command6.Caption = “添加“ ThenCommand6.Caption = “确认“Adodc1.Recordset.AddNewText1.SetFocusgydmCommand6.Enabled = Not Command1.EnabledElseIf Command6.Caption = “确认“ Then Command6.Caption = “添加“Adodc1.Recordset.UpdategydmCommand6.Enabled = Not Command6.Enabl

40、edEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledEnd SubPrivate Sub Form_Load()Combo4.AddItem “药品费“Combo4.AddItem “项目检查费“第 21 页 共 45 页Combo4.AddItem “住院费“End Sub4.3.3 门

41、诊划价门诊划价是对病人挂号、病人信息等的管理。可以进行查询、修改、删除、添加等操作，如下图所示：图 11 门诊划价图 12 查询结果图 13 信息添加第 22 页 共 45 页图 14 确认添加相关代码：Private Sub Command3_Click()Dim sno As Stringsno = InputBox(“请输入门诊号 “, “查找窗口“, 2000)Adodc1.Recordset.Find “门诊号=“ & sno & “ “If Adodc1.Recordset.BOF ThenMsgBox “没有找到此门诊号 “, 5 + vbExclamation, “查找提示 “

42、End IfEnd SubPrivate Sub Command4_Click()Dim ino As Integerino = MsgBox(“您确认要删除该记录吗“, 49, “ 删除记录确认框 “)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command6_Click()On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command

43、7_Click()mzhj.Visible = Falseyysy.Visible = TrueEnd SubPrivate Sub Command8_Click()If Command8.Caption = “添加“ ThenCommand8.Caption = “确认“第 23 页 共 45 页Adodc1.Recordset.AddNewText1.SetFocusgydmCommand8.Enabled = Not Command3.EnabledElseIf Command8.Caption = “确认“ Then Command8.Caption = “添加“Adodc1.Reco

44、rdset.UpdategydmCommand8.Enabled = Not Command8.EnabledEnd IfEnd SubSub gydm()Command3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command3.EnabledCommand5.Enabled = Not Command3.EnabledCommand6.Enabled = Not Command3.EnabledEnd Sub4.4 住院信息管理模块该模块共分为三个部分，入院登记、住院收费、住院结算，可以对住院的病人进行方便、快速的信息修改。

45、4.4.1 入院登记入院登记是对病人住院号、病人信息、住院时间等的管理。可以进行查询、修改、删除、添加等操作，如下图所示：图 15 入院登记界面第 24 页 共 45 页图 16 住院号查询图 17 查询结果图 18 入院信息添加图 19 添加结果第 25 页 共 45 页图 20 修改信息（光标定在文本框中）图 21 删除信息相关代码：Private Sub Command1_Click()Dim sno As Stringsno = InputBox(“请输入查询住院号 “, “查找窗口“, 102201)Adodc1.Recordset.Find “住院号 =“ & sno & “ “I

46、f 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.MoveFirstEnd IfEnd SubPrivate Sub Command3_Click()yysy

47、.Visible = Truerydj.HideEnd Sub第 26 页 共 45 页Private Sub Command4_Click()If Command4.Caption = “添加“ ThenCommand4.Caption = “确认“Adodc1.Recordset.AddNewText1.SetFocusgydmCommand4.Enabled = Not Command4.EnabledElseIf Command4.Caption = “确认“ Then Command4.Caption = “添加“Adodc1.Recordset.UpdategydmCommand4

48、.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 = Not Command5.Ena

49、bledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledEnd Sub4.4.2 住院收费住院收费是对病人住院号、病人信息、住院期间使用药品等的管理。可以进行查询、修改、删除、添加等操作，如下图所示：第 27 页 共 45 页图 22 住院收费图 23 收费查询图 24 查询结果第 28 页 共 45 页图 25 修改信息（光标定在文本框中）图 26 删除记录图 27 住院结算查询相关代码：Private Sub Command1_Click()Command1.Caption = “删除“Dim ino As Integerino = MsgBox(“您确认要删除该记录吗“, 49, “ 删除记录确认框 “)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd SubPri