Abejhge医院信息系统毕业设计.docx
《Abejhge医院信息系统毕业设计.docx》由会员分享，可在线阅读，更多相关《Abejhge医院信息系统毕业设计.docx（29页珍藏版）》请在冰豆网上搜索。
Abejhge医院信息系统毕业设计
生命是永恒不断的创造，因为在它内部蕴含着过剩的精力，它不断流溢，越出时间和空间的界限，它不停地追求，以形形色色的自我表现的形式表现出来。
－－泰戈尔
高度集成医院信息系统设计
1、绪论
1.1选题的目的和意义
开发医院信息管理系统的目标就是立足医院应用实际，着眼于未来发展，以强化医院管理，提高医疗质量，方便患者就医和查询，提高医院的服务效率和服务质量，设计一套符合医院功能规范要求，安全稳定，操作简便的医院信息管理信息系统，为医院信息提供了一套全方位的解决方案。
医院信息管理系统是医院自动化管理系统得一个重要组成部分，它的开发大大的提高了医院信息管理的规范化能力。
1.2国内外医院信息管理系统的发展与现状
国外医院信息化起步于60年代，发展于80年代，成熟于90年代，目前正在向纵深领域扩展。
美国HIS软件从病房护理系统入手，逐渐扩展到财务收费系统、辅助检查系统、行政事务处理系统，90年代电子病历系统已经成熟。
我国医院信息化起步于80年代，发展于90年代，2000年以后属于诸国纷争的信息时代。
国内HIS软件从病案统计入手，逐渐转入“以财务为中心”的收费软件，近年来又转入“以临床为中心的”电子病历系统。
国内HIS软件与国外相比，至少晚十年的时间，但由于医院的特殊性，国外公司进入国内至今成功的案例很少，这也为我国的HIS公司提供了发展的平台。
2000年以后，国内HIS公司数以百计，较出名的却不出10家，以大连汇源电子系统工程有限公司为代表，公司的客户数量约为3000家，占全国县级以上医院总数量的30%。
但总的来看，国内的医院信息管理系统缺乏规范，随意性强，大多存在操作复杂缺陷。
目前大多的系统还需有专业知识的人进行操作和维护。
由于现在人们对医疗水平的要求逐渐增高，医院也越来越注意到医疗信息化的重要性，这就为医院信息管理系统的推广及发展创造了良好的条件，在中国发展医院管理信息化，发展医院息管理信息化的条件也日趋成熟。
2、系统需求分析
2.1业务及用户需求分析
管理信息系统是一门新兴的、集成管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理。
管理信息系统它具备数据处理、计划、控制、预测和辅助决策功能，具体作用如下5点内容：
（1）用统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。
（2）完整、及时提供在管理及决策中需要的数据。
（3）利用指定的数据关系分析数据，客观预测未来。
（4）向各级管理机构提供不同详细程度的报告，缩短分析和解释的时间。
（5）用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。
医院的医疗水平和服务质量一直是社会关注的焦点，仅靠增加基础设施投入和脱离信息化的管理方法的改进，是不能从根本上提高医院的工作效率、服务质量和管理水平的。
医院信息管理系统的目的就是减轻业务劳动强度，减少了差错，科学管理药品，节省人力，提高医院的财、物管理水平，增加经济效益，改善患者的就医环境，方便患者就医和查询，提高医院的服务效率和服务质量，提高医院的医疗质量和管理水平。
所以，一个现代化的适应社会发展需要的医院，除了具备一流的医疗队伍、一流的服务设施之外，还应具备一流的管理信息系统。
目前很多医院信息管理仍然是人工手动计算,整理,查询，管理病房等各项工作,执行效率非常低,不方便,给医务人员带来了不少麻烦;现在已是21世纪,为了跟上时代的发展,实现信息管理自动化刻不容缓。
医院信息管理系统不仅方便医院的管理，而且方便病人信息的综合管理，信息查询，床位查询，医嘱管理等等。
21世纪，管理才能出效率，将先进的电脑技术和现代医院的管理完美的结合起来，完成以前需要大量人工才能完成的任务。
实现了医疗、服务一体的全新概念的服务和管理方式是我们的当务之急；
2.2系统功能需求分析
本系统根据医院的需求以及病人的实际情况，通过作者的详细分析，此系统主要是针对实体数据信息的存储，查询，删除等处理，具体描述如下：
医院管理信息系统主要用于管理病人、医师与病房之间发生的关系,同时需要对病房信息以及病人信息进行管理,如查看剩余病房、病人退房时间、病房病人费用信息；病人病历查询、病人病历更新、存储病人信息等。
本系统的开发任务是实现某医院对病房的管理和病人的管理
2.3数据流图
数据流程图的图形符号如下：
数据流图是系统的逻辑模型，根据前面对系统功能模块的分析，为了便于用户理解，可以得到以下各数据流图。
它反映了作者的设计思路和设计过程。
数据流程图的图形符号如下：
外部实体数据加工
数据存储数据流
图2.1数据流程图符号
2.3.1系统顶层数据流图
图2.2系统顶层流程图
在顶层数据流程图中，可以较为清楚地看到系统的主要数据加工模块以及数据存储和数据流。
再对数据流程图的顶层图进行一步分解得到第一层数据流程图，由于顶层图中共有3个数据加工，所以有3个模块数据流图。
出入院管理模块数据流图6.3，信息管理模块数据流图见图6.4，药房模块数据流图6.5。
每个模块数据流图中有对应的数据流和数据存储的编号说明。
其中共有15个数据流，具体的编号说明如下：
F1病人入院信息F2预交金信息F3结算信息
F4费用明细F5病人入区信息F6医嘱信息
F7项目执行单F8发药申请单F9发药信息
F10退药申请单F11退药信息F12药房入库申请单
F13药库出库信息F14药房退货申请F15药库药房退库信息
其中18个数据存储，具体的编号如下：
D1病人入院信息D2预交金信息D3结算信息
D4费用明细D5病人入区信息D6医嘱信息
D7项目执行单D8发药申请单D9发药信息
D10退药申请单D11退药信息D12药房入库申请单
D13药库出库信息D14药房退货申请D15药库药房退库信息
2.3.2“出入院管理”模块数据流图
图2.3出入院管理模块数据流图
2.3.3“药房管理”模块数据流图
图2.4病房管理模块数据流图
2.4系统可行性分析
可行性分析是系统分析阶段的重要活动，是对系统进行全面、概要的分析。
它的任务是确定项目开发是否必要和可行。
它的主要目标是：
进一步明确系统的目标、规模和功能，对系统开发背景、必要性和意义进行调查分析，并根据需要和可能提出拟开发系统的初步方案和计划，明确问题，对所提供系统大致规模和目标的几个有关约束条件进行论证，并且提出系统的逻辑模型和各种可能的方案，从而为系统开发项目的决策提供科学依据。
本节从技术的可行性，经济的可行性以及操作的可行性三个方面来论证本信息管理系统的可行性。
2.5.1技术可行性
技术可行性即是对现有技术进行评价，以明确能否利用现有技术进行系统开发及系统实施。
1．硬件：
计算机的存储量大，运算速度快，外部设备的功能好，效率高，可靠性高，通信设备的能力、质量都满足要求。
2．操作系统：
1）windowsxp/2000接口能力强，数据库管理系统的功能足够。
2.5.2经济可行性
对组织的经济状况和投资能力进行分析，对系统建设、运行和维护费用进行评估，对系统建成后可能取得的社会及经济效益进行估计。
目前国内应用HIS的医院管理在信息化上的软硬件投资只占其年收入的1%-3%,而应用HIS后，阻塞了管理漏洞，杜绝了药品的丢失，节省了人力，提高了医院的财、物管理水平，改善了患者的就医环境，方便了患者就医和查询，提高了医院的服务效率和服务质量。
因此带来的经济回报将远远超过信息化过程中的投入。
而且此系统成本低廉，其开发经费对于本单位在经济上是完全可以接受的
2.5.3操作可行性
本系统大概需要两个月的时间完成。
前两个星期主要是以看书以及收集有关系统方面的资料为主；接下来就是对系统的分析、数据库设计、界面设计、编写代码，实现数据库与界面的连接。
而这些东西对于本系统来说是可行的。
3、功能结构设计
3.1系统功能结构图
系统目标的实现是通过系统的各功能模块来达到的。
由于每个系统功能又可以划分为若干个具体的功能模块，因此，从目标开始层层分解，知道每个子功能模块只执行一个具体的任务。
子功能模块是独立的，有明显的输入与输出信息。
通常我们将按功能关系画成的图成为功能结构图，功能结构图如下：
3.2系统功能具体分析
根据与医院管理信息系统发生交互的对象入手，可以分析出系统的功能：
1.护士站：
信息床位使用情况一览表；医嘱管理：
录入、审核；长期及临时医嘱执行确认；打印、查询信息对药单（领药单）；医嘱记录查询；住院费用一日清单查询打印;查询信息欠费病人清单，打印催费通知单；打印、查询长期、临时医嘱治疗单（口服、注射、输液、辅治疗等）。
2.门诊管理：
包括门诊挂号、门诊收费、门诊退费、报表查询。
主要是建立患者资料；根据处方收费，发票打印自定义；经药房退药后，进行门诊退费；门诊收费员日报表、门诊收费项目汇总报表、门诊收费项目科室报表等门诊收费人员相关报表。
3.病人管理：
病人是医院管理信息系统的服务对象，只有在系统中存在病人的信息才可以享受系统的服务。
病人管理包括病人住院管理、病人费用管理、病人病情管理、病人基本信息的查询等。
其中病人住院管理包括病人的入院时间、病由、主治医师、所在病房；病人费用管理包括病人缴费项目的查询、添加、修改、删除、保存数据、打印缴费项目单，支持单项查询；病人的病情管理包括入院病由、目前用药情况以及用药后病人的反应，支持保存病人的诊断过程；病人基本信息管理包括病人的相关的基本信息的查询、修改、删除、打印。
4.药房管理：
药房管理是医院管理信息系统的一个侧重点，包括药品入库、药品出库以及每日药品出库的清单查询，、打印，支持自动报警打印以及药品出库类别查询、打印。
5.病房管理：
病床是医院管理信息系统的目标对象，病床的管理包括每个信息现有的病床查询，已使用的病床信息查询、录入、修改、删除以及打印该病床病人的信息，支持模糊查询某信息的病人信息。
4、概念结构设计
1.医师E-R图
2.病人E-R图
3.护士E-R图
4.病床E-R图
5.病人管理E-R图
5、逻辑结构设计
5.1相关实体属性描述
本系统涉及实体：
病人、医师、护士、治疗、病床、药品的出入库及库存各实体属性分别描述如下，有下划线的属性为主码：
病人信息表（病人编号，姓名，性别，年龄，床号，主治医师，入院时间，病由）
医师信息表（医师编号，姓名，性别，年龄，职位，职称，密码）
护士信息表（护士编号，姓名，性别，年龄，职位，职称，密码）
治疗信息表（病人编号，医师编号，护士编号，诊断时间，医嘱）
病床信息表（床位号，病人编号，入住时间，所属信息，缴费情况，当日检查记录）
药品入库记录表（药品编号，药品名，入库时间，数量，采购地址，单价，总价）
药品出库记录表（药品编号，药品名，出库时间，数量，接收方，单价，总价）
药品库存信息表（药品编号，药品名，单价，厂商，现有数量）
转换规则
实体集的转换
每个实体集用一个关系表示，其中实体集的属性被转换成关系的属性。
实体集的主键，在满足唯一标识的无冗余等性质的条件下，将作为对应关系的主键。
在实体的对应关系上，由于加入了联系，可能还要增加一些属性。
联系的转换
（1）1：
1的联系
如果实体集E1与实体集E2的联系为1：
1，应根据需要把E2的主键放入关系模式E1中，或反之。
（2）1：
N的联系
如果实体集E1与实体集E2的联系为1：
N，将E1的主键包含在E2的关系模式中。
（3）M：
N的联系
如果实体集E1与实体集E2繁荣联系为M：
N，则它们之间的联系由另一个关系模式表示，这个关系模式由每个参加的实体集的主键及这个联系的任何属性一起组成。
5.2数据库的实现
通过对转换后所得到关系模式的分析，结合本系统的功能及所选开发工具和数据库系统的特点，对系统数据库进行设计，建立一个具有良好的数据组织结构的数据库，应遵循的原则有：
可能减少数据冗余和重复
结构设计和操作设计相结合
数据结构具有相对的稳定性
由于数据库中所保存的数据是系统中非常重要的资源，所以在数据库设计时一定要注意数据结构的安全性、完整性，并发控制与恢复，而一般的数据库管理系统都提供了一定的数据保护功能。
5.3建立数据表
利用MicrosoftAccess2003建立一个新的空的数据库名为医院信息管理系统.mdb；并建立表，分别用来存储病人信息、医师信息、护士信息，病床信息，药品入库信息、药品出库信息、药品库存信息、门诊信息。
病人信息表
字段
数据类型
长度
是否为空
备注
病人编号
自动编号
20
否
主键
姓名
文本
6
否
性别
文本
2
约束“男，女”
年龄
数字
3
小于139，大于0
床号
数字
12
否
外主键
主治医师
文本
6
否
外主键
入院时间
日期
自动
否
病由
文本
50
病情说明
医师信息表
字段
数据类型
长度
是否为空
备注
医师编号
数字
20
否
主键
姓名
文本
6
否
性别
文本
2
否
约束“男，女”
年龄
数字
3
否
小于139，大于0
职位
文本
8
否
职称
文本
8
否
密码
文本
10
否
用*覆盖
护士信息表
字段
数据类型
长度
是否为空
备注
护士编号
数字
20
否
主键
姓名
文本
6
否
性别
文本
2
否
约束“男，女”
年龄
数字
3
否
小于139，大于0
职位
文本
8
否
职称
文本
8
否
密码
文本
10
否
用*覆盖
治疗信息表
字段
数据类型
长度
是否为空
备注
医师编号
数字
20
否
主键
护士编号
数字
20
否
主键
病人编号
自动编号
20
否
主键
诊断时间
日期
否
医嘱
文本
50
记录对病人的用药情况
药品入库记录表
字段
数据类型
长度
是否为空
备注
药品编号
数字
20
否
主键
药品名
文本
12
否
入库时间
日期
否
厂商
文本
20
否
单价
货币
否
数量
数字
10
否
总价
货币
12
采购地址
文本
24
否
药品出库记录表
字段
数据类型
长度
是否为空
备注
药品编号
数字
20
否
主键
药品名
文本
12
否
出库时间
日期
否
接收方
文本
24
否
单价
货币
否
数量
数字
10
否
总价
货币
12
药品库存信息表
字段
数据类型
长度
是否为空
备注
药品编号
数字
20
否
主键
药品名
文本
12
否
厂商
文本
20
否
单价
货币
否
现有数量
数字
10
否
当达到警戒数量时提示采购
门诊信息表
字段
数据类型
长度
是否为空
备注
门诊单号
自动编号
20
否
主键
病人编号
自动编号
20
否
外键
科别
文本
内科，外科，传染科
缴费日期
日期
否
缴费金额
货币
5.5模块设计（部分代码）
登陆界面：
PrivateSubCombo1_Click（）
SetRes=NewRecordset
IfCombo1.Text="数据输入员"Then
Res.Open"selectcount（yhzh）fromloginwhereyhlx='数据输入员'",objCon,adOpenKeyset,adLockOptimistic
IfRes.Fields（0）=0Then
MsgBox"当前无此类型账号",vbCritical,"提示"
Text1.Enabled=False
Text2.Enabled=False
ExitSub
EndIf
EndIf
IfCombo1.ListIndex=1OrCombo1.ListIndex=2Then
Text1.Enabled=True
Text2.Enabled=True
Text1.Text=""
Text2.Text=""
Else
Text1.Enabled=False
Text2.Enabled=False
Text1.Text="Guest"
Text2.Text="Guest"
EndIf
EndSub
PrivateSubCommand1_Click（）
Staticres1AsInteger
DimstrExecAsString
DimbValiduserAsBoolean
DimiOldMousePointerAsInteger
bValiduser=False
iOldMousePointer=loginfrm.MousePointer
loginfrm.MousePointer=11
loginfrm.MousePointer=iOldMouserPointer
IfText1.Text=""Then
MsgBox"请输入账号",vbCritical,"错误信息"
ExitSub
ElseIfText2.Text=""Then
MsgBox"请输入密码",vbCritical,"错误信息"
ExitSub
EndIf
SetRes=NewRecordset
SelectCaseCombo1.Text
Case"数据输入员"
strExec="select*fromloginwhereyhlx='"&Combo1.Text&"'"
SetRes=objCon.Execute（strExec）
IfNotRes.EOFThen
IfTrim（Res（"yhzh"））<>Trim（Text1.Text）Then
MsgBox"用户账号不正确",vbCritical,"登录错误"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
res1=res1+1
ElseIfTrim（Res（"yhmm"））<>Trim（Text2.Text）Then
MsgBox"用户密码不正确",vbCritical,"登录错误"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
res1=res1+1
Else
bValiduser=True
usertype=2
EndIf
EndIf
Case"系统管理员"
strExec="select*fromloginwhereyhlx='"&Combo1.Text&"'"
SetRes=objCon.Execute（strExec）
IfNotRes.EOFThen
IfTrim（Res（"yhzh"））<>Trim（Text1.Text）Then
MsgBox"用户账号不正确",vbCritical,"登录错误"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
res1=res1+1
ElseIfTrim（Res（"yhmm"））<>Trim（Text2.Text）Then
MsgBox"用户密码不正确",vbCritical,"登录错误"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
res1=res1+1
Else
bValiduser=True
usertype=1
EndIf
EndIf
Case"查询用户"
bValiduser=True
usertype=3
EndSelect
IfbValiduser=TrueThen
UnloadMe
hyjm.Show
hyjm.Timer1.Enabled=True
ExitSub
EndIf
Ifres1=3Then
answer=MsgBox（"错误次数已超过3次!
系统将自动关闭",vbCritical+vbOKOnly,"错误信息"）
Ifanswer=1Then
End
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Combo1.Text="查询用户"
Combo1.AddItem"查询用户"
Combo1.AddItem"系统管理员"
Combo1.AddItem"数据输入员"
IfCombo1.Text="查询用户"Then
Text1.Text="Guest"
Text2.Text="Guest"
EndIf
EndSub
PrivateSubText2_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
CallCommand1_Click
EndIf
EndSub
主窗体：
PrivateSubMDIForm_QueryUnload（CancelAsInteger,UnloadModeAsInteger）
IfUnloadMode=0ThenEnd
EndSub
PrivateSubmuncx_Click（）
cxfrm.Show
EndSub
PrivateSubmunfile_exit_Click（）
Dimmsg1
msg1=MsgBox（"你真的要退出吗？
",vbOKCancel,"退出对话框"）
Ifmsg1=1Then
UnloadMe
End
Else
MDIForm1.Show
EndIf
EndSub
PrivateSubmunfile_zx_Click（）
Dimmsg1
msg1=MsgBox（"你真的要注销吗？
",vbOKCancel,"退出对话框"）
Ifmsg1=1Then
UnloadMe
升级会员 