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

医
院
管
理
信
息
系
统
班级: 班
时间：2016年7月
组别：第 组
小组成员：

摘要
信息化的今天，计算机网络、Internet扮演的角色也越来越重要，其核心的数据库技术正在改变着我国各个领域的管理模式，而作为传统的医院模式也面临着重大变革.管理系统现代化迫在眉睫，一场深层次的变革即将来临.随着信息科学技术的飞速发展，人们逐渐意识到对信息管理软件的运用可以使日常工作更加方便、快捷和高效.论文详细论述了一个基于C/S结构的医院管理系统的开发设计过程。系统采用Visual Basic 6.0作开发平台，SQL Server 2000作数据库管理系统,实现了病人登记、医生信息管理、病人就诊信息管理、住院信息管理等功能。系统符合医院管理的要求，能够帮助医院切实提高工作效率.
论文组织如下：首先阐述了该系统的开发背景、意义;其次介绍了相关的开发工具及技术基础;接着对系统的需求进行了分析，并提出了具体的设计方案和数据库模型；然后展现了整个系统的具体实现，包括数据库的设计和连接，各功能模块的实现；最后对该软件进行了严格的测试.
关键词:医院管理、信息系统、SQL、VB
目录

1 引言 4
2 系统理论基础及开发工具简介 4
2。1 C/S结构 4
2.1.1 什么是C/S结构 4
2.1。2 C/S架构软件的优势与劣势 4
2.2Visual Basic的介绍 5
2.3 SQL Server2000简介 5
3 系统需求分析与方案设计 6
3.1 需求分析 6
3.2 方案设计 6
3.3 业务流程分析 7
3。3。1 门诊业务流程分析 8
3.3.1 药房业务流程分析 8
3.3。2 住院管理业务流程分析 9
3.4 数据流程分析 9
3。4。1 门诊数据流程分析 10
3。4.2 住院数据流程分析 10
3.4.3 药品书记流程图 10
3.5 可行性研究 10
3.5.1 技术可行性 10
3.5。2 经济可行性 11
3。5。3 操作可行性 11
3。5。4 社会可行性 11
4 系统的实现 11
4.1 数据库的构建 11
4.1.1 门诊管理表 11
4.1.2 住院管理表 12
4。1。3 药品管理表 13
4.1.4 科室管理表 13
4。2 系统登陆模块 14
4.2。1 登陆界面 14
4.2.2 系统首页 14
4.3 门诊信息管理模块 16
4。3.1 门诊收费 16
4。3。2 门诊退费 19
4。3。3 门诊划价 22
4.4 住院信息管理模块 24
4。4.1 入院登记 24
4。4。2 住院收费 27
4.4。3 出院结算 30
4。5 药房信息管理模块 32
4。5。1 药房入库模块 32
4。5。2 药品出库模块 35
4.5.3 药品盘点模块 38
4。6 科室信息管理模块 41
5 结论 43
1 引言
自从人类进入21世纪,也就进入了一个高速发展的信息时代，高新技术飞速发展的同时,也使得计算机的使用范围大大扩展，它已经涉及到人类生活的方方面面。计算机使用的方便快捷，使它在越来越多的方面显示出比传统人工制作更迅速和准确的优点,尤其是在信息记录，检索和查询方面,更是使我们人类避免了不必要的麻烦。
开发和使用医院管理系统对于医院来说是非常必要的，它能加快医院的信息化步伐，提高医院的管理水平和医疗水平，增强在同行业中的竞争实力，是现代医院管理与计算机信息技术的必要结合。医院管理系统能加强医院内部管理、提高医疗服务水平，最大限度地提高医院运行的效率和医院管理水平，给医院带来了显著的经济效益和社会效益,也能使医院在未来竞争中处于领先地位。
本课题设计一个医院管理系统，通过这个系统管理员可以简捷、方便的对病人、医生的记录进行查阅、增加、删除等功能,而用户也可以通过这个系统对进医生和病人的信息查询、账户增删等功能。系统采用Visual Basic作开发工具,SQL Server 2000作数据库管理系统。
2 系统理论基础及开发工具简介
2.1 C/S结构
2.1。1 什么是C/S结构
C/S(Client/Server)结构，即大家熟知的“客户机和服务器”结构，它是软件系统体系结构，通过它可以充分利用两端硬件环境的优势，将任务合理分配到Client端和Server端来实现，降低了系统的通讯开销。
2。1。2 C/S架构软件的优势与劣势
(1）应用服务器运行数据负荷较轻。最简单的C/S体系结构的数据库应用由两部分组成,即客户应用程序和数据库服务器程序，二者可分别称为前台程序与后台程序.运行数据库服务器程序的机器，也称为应用服务器.一旦服务器程序被启动，就随时等待响应客户程序发来的请求；客户应用程序运行在用户自己的电脑上,对应于数据库服务器,可称为客户电脑，当需要对数据库中的数据进行任何操作时，客户程序就自动地寻找服务器程序，并向其发出请求，服务器程序根据预定的规则作出应答，送回结果,应用服务器运行数据负荷较轻。
(2）数据的储存管理功能较为透明。在数据库应用中,数据的储存管理功能，是由服务器程序和客户应用程序分别独立进行的，前台应用可以违反的规则，并且通常把那些不同的运行数据在服务器程序中不集中实现，例如访问者的权限、编号可以重复、必须有客户才能建立定单这样的规则。所有这些，对于工作在前台程序上的最终用户，是“透明"的,他们无须过问(通常也无法干涉)背后的过程，就可以完成自己的一切工作.在客户服务器架构的应用中，前台程序不是非常“瘦小”,麻烦的事情都交给了服务器和网络。在C/S体系的下，数据库不能真正成为公共、专业化的仓库，它受到独立的专门管理。
（3）C/S架构的劣势是高昂的维护成本且投资大。首先，采用C/S架构,要选择适当的数据库平台来实现数据库数据的真正“统一”，使分布于两地的数据同步完全交由数据库系统去管理，但逻辑上两地的操作者要直接访问同一个数据库才能有效实现，有这样一些问题，如果需要建立“实时”的数据同步，就必须在两地间建立实时的通讯连接,保持两地的数据库服务器在线运行，网络管理工作人员既要对服务器维护管理，又要对客户端维护和管理，这需要高昂的投资和复杂的技术支持，维护成本很高，维护任务量大.其次，传统的C/S结构的软件需要针对不同的操作系统系统开发不同版本的软件，由于产品的更新换代十分快，代价高和低效率已经不适应工作需要。
2。2 Visual Basic的介绍
Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言.从任何标准来说，VB都是世界上使用人数最多的语言-—不仅是盛赞VB的开发者还是抱怨VB的开发者的数量.它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD)系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件(比如文本框或者按钮）。每个控件都有自己的属性和事件.默认的的属性值会在控件创建的时候提供，但是程序员也可以进行更改.很多的属性值可以在运行时候随着用户的动作和修改进行改动,这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入.
VB的程序可以包含一个或多个窗体,或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
2.3 SQL Server2000简介
SQL Server是一个关系数据库管理系统,是Microsoft推出新一代数据管理与分析软件。SQL Server 是一个全面的、集成的、端到端的数据解决方案，它为企业中的用户提供了一个安全、可靠和高效的平台用于企业数据管理和商业智能应用。
SQL Server 2000是一个全面的、集成的、端到端的数据解决方案，它为企业中的用户提供了一个安全、可靠和高效的平台用于企业数据管理和商业智能应用。SQL Server 2000为IT专家和信息工作者带来了强大的、熟悉的工具，同时减少了在从移动设备到企业数据系统的多平台上创建、部署、管理及使用企业数据和分析应用程序的复杂度。通过全面的功能集、和现有系统的集成性、以及对日常任务的自动化管理能力，SQL Server 2000为不同规模的企业提供了一个完整的数据解决方案。
SQL Server 2000数据平台包括如下工具:关系型数据库、复制服务、通知服务、集成服务、分析服务、报表服务、管理工具、开发工具。
SQL Server 2000数据平台为不同规模的组织提供了如下好处：充分利用数据资产、提高生产力、减少IT复杂度、更低的总体拥有成本（TCO)。
3 系统需求分析与方案设计
3。1 需求分析
计算机技术改造医院的传统管理方式，由原始经验型管理向科学型管理的转化，是替代重复性繁重的脑力劳动的过程.只有使用计算机及信息化管理手段方能实现管理的标准化、规范化、制度化和科学化，并能排除人为干预，同时能够充分地节约医院日常工作中不必要的浪费和开 支。另外医院管理计算机化也能够使各个部门工作有机衔接,方便患者就医和医院的统计分析。通过信息化管理，提高医院的管理水平，及时、准确的为医院综合管理、经济核算等提供信息； 提高了医务人员工作效率； 方便病人了解医疗服务和医疗费用各方面的信息，加强了医院经济管理,减少了漏洞； 保证了住院费用的预收； 提高了医疗和药品划价收费的准确性; 保证了药品及时调价，实现了药品及时准确盘存核算、各项目的分类统计、出入院手续的办理和病人费用核算等各个环节均由计算机代替，其效率远远超过人工。利用规范严格的软件和先进的硬技术相结合,杜绝了人为因素造成损失，形成了一个以病人为中心的医院信息系统。
通过对用户需求的分析，要求本系统具有以下功能:
（1) 由于一项新的软件在被使用之前，对于使用者来说是陌生和崭新的，所以要求系统具有良好的人机界面；
（2） 原始数据修改简单方便，在系统的使用过程中支持多条件查询;
(3） 数据计算自动完成,数据的稳定性和可靠性好，尽量减少人工干预.
3。2 方案设计
具体说来，要求本系统具有以下六个功能模块：门诊管理模块、住院管理模块、药品管理模块、科室信息模块、数据管理、财务管理.
系统整体模块图如图1所示：
药品盘点
门诊收费
门诊管理
住院管理
药品管理
科室管理
门诊退费iei
门诊划价
入院登记
住院收费
住院结算
药品入库
药品出库
科室信息
医院管理信息系统统
登 陆
退出
财务管理
后勤费用
住院费用
数据管理
设备管理
病人信息
各模块具体的需求描述如下：
（1)病人门诊管理模块:
以系统合法的身份进入系统后,可以直接处理新增病人的记录,包括病人各项基本信息;
(2)住院信息管理模块：
医生确定该病人入院治疗，其中包括对病人用药及费用的详细描述；
(3）药品管理模块：
通过对药品的出库入库进行描述；可以有效地控制药品，以防药品流出；
(4)医生信息模块:
进入系统之后，可以在本模块进行新医生用户的基本信息诸如姓名、科室、职称、联系方式等的录入，以及通过姓名对医生的信息进行查询;
(5)数据管理模块：
对病人信息和意愿设备进行管理;
（6)财务管理
对于病人住院的费用以及后勤费用进行统计。
3.3 业务流程分析
系统业务流程图（Transaction Flow Diagram,简称TFD），就是用一些规定的符号及连接来表示某个具有的业务处理过程。我们采用以下规定符号.

人员 单位 文档、单据
业务流程分析可以帮助用户了解该业务的具体处理过程，发现和处理系统工作中的错误和疏漏,修改和删除业务中的不合理部分利用系统调查的资料将业务处理过程中的每一步用一完整的图形将其串起来。
3.3。1 门诊业务流程分析
病人就诊前现在挂号处进行挂号，挂号成功后进行就诊。然后医生根据诊断结果，给病人开出处方，各种需要检查,化验的单据，病人拿着这种单据到门诊划价收费处进行划价，缴费，领取药品，到对应科室进行检查化验.具体流程如下图所示
挂号处
挂号单
诊断
处方
划价
划价单
收费
收费单
医生
病人

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

（药品入库业务流程图）
工作人员
处方单
药房
病人

（药品出库业务流程图)
3.3.2 住院管理业务流程分析
病人由门诊转入,进行入院登记，交纳规定押金后后进入住院部进行入院观察治 疗。由住院部医生结合门诊医生开具的病历进行综合诊断，医生确诊后，将医嘱交由护士进行执行。对病人进行治疗并核算住院费用,出院时进行结算。
住院处
病人
住院押金单
下医嘱
医生工作处
护士工作站
用药单

治疗单
费用单
病人

3.4 数据流程分析
数据流程图是一种能够全面地描述信息系统逻辑模型的主要工具，利用极少的符号综合的反映出信息在系统中的流动、处理和储存情况。我们采用以下规定符号。

外部实体 处理（功能) 数据流 数据储存
3.4。1 门诊数据流程分析
科室
科室
科室
科室
划价
收费处
病人
处方
化验单
手术单
检查单
划价单
缴费单

3。4。2 住院数据流程分析
病人
入院管理
病房管理
出院管理
入院通知单
病人信息表
药品需求单
出院通知单

（医院病房管理）
3.4.3 药品书记流程图
药房
入库处理
入库单
入库数据
库存台帐

3.5 可行性研究
3。5.1 技术可行性
本系统利用Visual Basic作为系统的开发工具，是因为它采用面向对象的编程方法—-把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性；事件驱动的编程机制——通过事件执行对象的操作,在设计应用程序时，不必建立具有明显的开始和结束的程序，而是编写若干个过程，通过这些过程执行指定的操作；提供完善的指令控制语句，给开发高性能的系统提供了保障，保证了代码的模块化要求。
系统采用SQL Server 2000作为后台数据库，它可以通过窗体提供的工具输入数据到数据库，可以使用查询设计和结构查询语言实现查询。在技术难度方面,由于有指导老师的指导和相关的参考文献,特别是身边的同学的帮助，使得在开发过程中所遇到的困难都能够一一得到解决。
3.5。2 经济可行性
随着计算机的大量普及，其价格已经越来越被众多的单位和人所接受，然而价格的低廉并不意味着性能上的退化,相反，随着科学技术的发展，计算机随着价格的降低,性能却日渐提高。本系统的开发，在已经使用了计算机进行管理的医疗系统中无疑会受到欢迎，它会给医院的工作效率带来一个质的飞跃，其主要的优点主要表现在它可以作为医院管理系统基本功能的一个缩影，集成了门诊模块、病人登记管理模块、病人就诊信息模块和住院信息管理模块等多种功能，具有较强的实用性和先进性。
由于本系统具有安全性上面的保护措施,只有用户拥有了系统合法的用户名和相应的密码之后,才能进入系统，对系统的对应信息进行添加、修改和删除，其他非合法的用户都不能进入系统，这样，使得医院在处理信息方面更加保密。
3.5.3 操作可行性
由于本系统管理的对象比较单一，都是就诊的病人和相关医务人员,且每个数据库内容具有较强的关联性，设计的过程不是很复杂，因此，比较适合于采用数据库管理。且因为本系统所耗费的资源非常小，故一般工作中使用的微机无论在软件上还是硬件上都可以满足运行要求。
3。5。4 社会可行性
最重要的一点还是在社会可行性方面。因为目前在我国西部的许多中小型医院，没有使用计算机管理系统,信息处理基本上还处于手工状态，致使医护和管理人员劳动强度大且工作效率低，医院也为此苦恼不以，所以一个好的有效的计算机管理系统的出台是十分必要的,而在信息化发展的今天,想要提高竞争力，使用计算机管理系统已经成为一种趋势。而该系统地提出正是顺应了这种潮流，再加上以上的三点优势：低廉的价格，良好的可扩充性，方便的管理。相信该计算机管理系统一定会在未来的运用中大放光彩。
4 系统的实现
4.1 数据库的构建
4。1。1 门诊管理表
此表的设计是为了实现本医院管理系统的门诊的添加、修改、删除的管理，包括姓名、性别、出生年月、入院时间、房间号、病床号、科室、药品名称、科室自动编号、规格、单位、数量、单价:
表1 住院管理表
列名
数据类型
长度
允许空
门诊号
Int
10

姓名
Int
2

性别
varchar
20

年龄
varchar
10

项目名称
varchar
2

规格
Int
5

单价
Int
10

数量
varchar
2

收费金额
varchar
5

实收
varchar
10

类别
Int
2

科室
Int
20

医生
varchar
15

执行科室
varchar
10

找零
Int
5

4。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

单价
varchar
2

预交金额
varchar
5

金额
Int
10

余额
Int
2

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

账面数量
varchar
2

盘点数量
varchar
20

表5入库表
列名
数据类型
长度
允许空
药房
Int
15

供货单位
Int
20

入库时间
datetime
20

金额
varchar
20

项目名称
Int
5

规格
Int
10

入库价格
varchar
15

数量
varchar
20

4。1。4 科室管理表
此表是为了实现医院管理系统对于科室名称、科室编号、员工号、病房数、科室地点、系主任的添加、修改、删除等的管理:
表6科室信息表
列名
数据类型
长度
允许空
科室名称
varchar
10

科室编号
varchar
2

员工号
Int
20

病房数
Int
10

科室地点
varchar
2

系主任
varchar
5

4。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
MsgBox "登录成功”， 2 + vbOKCancel, ”登录信息"
dljm。Visible = False
yysy.Visible = True
Else
MsgBox ”密码或用户名错误”， 5 + vbExclamation， "登录提示”
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text2_Change（)
Text2。PasswordChar = ”＊”
End Sub
4。2。2 系统首页
这是进入到系统的界面,是一个MDIform窗体，利用这个窗体可以快速建立系统的各个小模块：
图2 医院首页
相关代码：
Private Sub js1_Click(）
cyjs。Visible = True
yysy.Visible = False
End Sub
Private Sub ksxx1_Click()
yysy。Visible = False
ksxx。Visible = True
End Sub
Private Sub mzhj1_Click()
mzhj.Visible = True
yysy.Visible = False
End Sub
Private Sub mzsf1_Click()
mzsf。Visible = True
yysy.Visible = False
End Sub
Private Sub mztf1_Click（）
yysy.Visible = False
mztf。Visible = True
End Sub
Private Sub rydj1_Click（）
rydj。Visible = True
yysy。Visible = False
End Sub
Private Sub tc1_Click（)
End
End Sub
Private Sub ypck1_Click()
ypck.Visible = True
yysy。Visible = False
End Sub
Private Sub yppd1_Click()
yfpd。Visible = True
yysy。Visible = False
End Sub
Private Sub yprk1_Click(）
yprk。Visible = True
yysy。Visible = False
End Sub
Private Sub zysf1_Click(）
zysf.Visible = True
yysy。Visible = False
End Sub
Private Sub cyjs1_Click()
cyjs。Visible = True
yysy.Visible = False
End Sub
4。3 门诊信息管理模块
该模块共分为三个部分,分别是门诊收费、门诊退费、门诊划价。这三个部分可以有效地进行门诊方面的管理，对病人的信息、药品的使用和费用问题进行修改。
4。3。1 门诊收费
门诊收费是对病人挂号、病人信息等的管理。可以进行查询、修改、删除、添加等操作，如下图所示：
图3门诊管理模块
图4门诊查询信息
图5 查询结果
图6 添加信息
图7 添加结果
相关代码：
Private Sub Command1_Click(）
On Error Resume Next
Data1.Recordset.EditMode
Adodc1。Recordset。Update
End Sub
Private Sub Command10_Click(）
If Command10.Caption = "添加" Then
Command10.Caption = "确认”
Adodc1.Recordset.AddNew
Text1。SetFocus
gydm
Command10.Enabled = Not Command1.Enabled
Else
If Command10。Caption = "确认" Then Command10。Caption = "添加”
Adodc1.Recordset。Update
gydm
Command10。Enabled = Not Command10。Enabled
End If
End Sub
Sub gydm（)
Command1。Enabled = Not Command1。Enabled
Command7。Enabled = Not Command1。Enabled
Command8。Enabled = Not Command1。Enabled
Command9.Enabled = Not Command1.Enabled
End Sub
Private Sub Command11_Click（)
mzsf.Visible = False
yysy。Visible = True
End Sub
Private Sub Command7_Click()
Dim sno As String
sno = InputBox("请输入门诊号"， ”查找窗口”， 2000)
Adodc1.Recordset.Find "门诊号=’” ＆ sno & " '”
If Adodc1。Recordset。BOF Then
MsgBox ”没有找到此门诊号”, 5 + vbExclamation, ”查找提示"
End If
End Sub
Private Sub Command8_Click()
Dim ino As Integer
ino = MsgBox("您确认要删除该记录吗", 49， ”删除记录确认框”）
If ino = 1 Then
Adodc1。Recordset.Delete
Adodc1.Recordset.MoveFirst
End If
End Sub
4。3.2 门诊退费
门诊退费是对病人挂号、病人信息等的管理.可以进行查询、修改、删除、添加等操作,如下图所示:
图8门诊退费模块
图9退费查询
图10查询结果
相关代码：
Private Sub Command1_Click()
Dim sno As String
sno = InputBox(”请输入门诊号", ”查找窗口"， 2000)
Adodc1。Recordset.Find ”门诊号=’" & sno ＆ " '”
If Adodc1。Recordset。BOF Then
MsgBox "没有找到该门诊号", 5 + vbExclamation， ”查找提示"
End If
End Sub
Private Sub Command2_Click(）
On Error Resume Next
Data1.Recordset.EditMode
Adodc1.Recordset.Update
End Sub
Private Sub Command4_Click()
Dim ino As Integer
ino = MsgBox（”您确认要删除该记录吗”， 49, "删除记录确认框"）
If ino = 1 Then
Adodc1.Recordset。Delete
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command5_Click（）
mztf.Visible = False
yysy.Visible = True
End Sub
Private Sub Command6_Click(）
If Command6。Caption = ”添加” Then
Command6.Caption = "确认”
Adodc1。Recordset.AddNew
Text1.SetFocus
gydm
Command6.Enabled = Not Command1。Enabled
Else
If Command6。Caption = "确认” Then Command6。Caption = "添加”
Adodc1.Recordset。Update
gydm
Command6.Enabled = Not Command6。Enabled
End If
End Sub
Sub gydm()
Command1。Enabled = Not Command1。Enabled
Command2.Enabled = Not Command2。Enabled
Command3。Enabled = Not Command3.Enabled
Command4。Enabled = Not Command4。Enabled
End Sub
Private Sub Form_Load（)
Combo4。AddItem "药品费"
Combo4。AddItem "项目检查费"
Combo4。AddItem ”住院费”
End Sub
4。3.3 门诊划价
门诊划价是对病人挂号、病人信息等的管理。可以进行查询、修改、删除、添加等操作，如下图所示：
图11门诊划价
图12查询结果
图13 信息添加
图14确认添加
相关代码：
Private Sub Command3_Click(）
Dim sno As String
sno = InputBox(”请输入门诊号”， ”查找窗口”, 2000）
Adodc1.Recordset.Find ”门诊号='" & sno & " '”
If Adodc1。Recordset.BOF Then
MsgBox "没有找到此门诊号”， 5 + vbExclamation， ”查找提示”
End If
End Sub
Private Sub Command4_Click（）
Dim ino As Integer
ino = MsgBox(”您确认要删除该记录吗", 49, ”删除记录确认框"）
If ino = 1 Then
Adodc1。Recordset.Delete
Adodc1。Recordset.MoveFirst
End If
End Sub
Private Sub Command6_Click（）
On Error Resume Next
Data1。Recordset.EditMode
Adodc1.Recordset。Update
End Sub
Private Sub Command7_Click()
mzhj。Visible = False
yysy.Visible = True
End Sub
Private Sub Command8_Click(）
If Command8。Caption = "添加" Then
Command8.Caption = "确认”
Adodc1。Recordset。AddNew
Text1.SetFocus
gydm
Command8.Enabled = Not Command3。Enabled
Else
If Command8。Caption = ”确认" Then Command8.Caption = ”添加”
Adodc1.Recordset.Update
gydm
Command8.Enabled = Not Command8。Enabled
End If
End Sub
Sub gydm(）
Command3.Enabled = Not Command3。Enabled
Command4。Enabled = Not Command3.Enabled
Command5。Enabled = Not Command3。Enabled
Command6。Enabled = Not Command3。Enabled
End Sub
4。4 住院信息管理模块
该模块共分为三个部分，入院登记、住院收费、住院结算，可以对住院的病人进行方便、快速的信息修改.
4。4。1 入院登记
入院登记是对病人住院号、病人信息、住院时间等的管理。可以进行查询、修改、删除、添加等操作,如下图所示：
图15入院登记界面
图16 住院号查询
图17查询结果
图18入院信息添加
图19添加结果
图20修改信息（光标定在文本框中）
图21删除信息
相关代码:
Private Sub Command1_Click()
Dim sno As String
sno = InputBox("请输入查询住院号"， "查找窗口”, 102201)
Adodc1.Recordset。Find ”住院号 ='” ＆ sno ＆ " ’ ”
If Adodc1。Recordset。BOF Then
MsgBox ”没有相关信息”， vbExclamation， "查找提示”
End If
End Sub
Private Sub Command2_Click（）
Command2.Caption = ”删除”
Dim ino As Integer
ino = MsgBox(”您确认要删除该记录吗", 49， ”删除记录确认框”)
If ino = 1 Then
Adodc1.Recordset。Delete
Adodc1。Recordset。MoveFirst
End If
End Sub
Private Sub Command3_Click()
yysy。Visible = True
rydj。Hide
End Sub
Private Sub Command4_Click（）