医院病房综合管理系统.doc

管理信息系统
课程设计汇报

设计题目： 医院病房管理系统

专 业 经济学类
班 级 经类093
学 生 彭菲
学 号
指导老师 薛宏权
时 间 .6.25-.6.29
地 点 经管学院试验室机房

年 春季 学期

目 录
一． 绪论 2

二． 系统计划 2

三． 系统分析 2
1. 可行性分析 2
2. 组织结构调查。 3
3.业务调查 3
4.数据步骤图 4
5.数据字典 5
6.数据加工处理描述 9

四． 系统设计 9
1.系统总体设计 9
2.代码设计及设计规范 11
3.系统物理配置方案 11
4.存放文件格式设计 11
5.输出设计 15
6.输入设计 16

五． 系统实施和维护 17
1.选择开发平台 17
2.计算机程序设计 17

六·对自己工作评价 ································24

一·绪论
伴随计算机网络和通讯技术发展和融合，信息化已经在世界各国各领域应用越来越广泛，这些应用带来了生产方法改革，经济快速增加和人类文明进步，整个世界进入了一个信息时代。
医院作为特殊服务行业，管理方法千差万别，而且使用着大量优异仪器设备，处理着大批业务，产生庞大信息，所以医院急需一套适合本院医院信息系统来搜集处理信息，从而愈加好地利用信息，来提升医院管理水平，改善医院服务质量，加速医院临床研究步伐，提升医院竞争能力。
二·系统计划
规模大型化，传统医院靠人工管理方法已经越来越不适应该代医院规模了。而且伴随电脑普及及电脑性能提升，使用电脑来管理医院常规运作已经成为肯定。同时，用电脑进行管理能够大大节省劳动力降低医院成本，降低人为误操作，大大提升工作效率，给医院和病人同时带来巨大方便。本系统就是在这个背景下开发，将优异电脑技术和现代医院管理完美结合起来，完成以前需要大量人工才能完成任务，实现了医疗，服务一体全新概念服务和管理方法。
三·系统分析
1. 可行性分析：
疗管理需要大量人力来管理繁琐入院手续，病历管理，病房管理，出院管理等工作，很麻烦，而且因为手工操作，很轻易犯错。而且病历保留占地方且保留很麻烦，浪费资源愈加不用说了。还有繁琐手续，让病人认为很麻烦，也给管理人员造成很大麻烦。直接影响就是效率低下，成本高，给原来就不想上医院人愈加讨厌进医院。以上问题普遍存在于各个医院。仔细想来，其实这些工作电脑其实完全能够胜任，而且很轻易完成。经过电脑辅助管理，不仅能够处理上述问题，而且符合现代时尚，表现一个医院现代化形象，对于提升职员工作效率，加速资金周转、降低各项成本及改善服务质量全部有十分主动作用。
一个成熟医院管理系统不仅仅是统计病人信息，提供查询，报表打印等一系列简单工作，它能让工作人员从烦琐手工操作中解脱，而且医院管理系统本身就代表着一个管理方法。伴随它深入，将带动企业运做，为管理和决议提供支持。为了达成这个要求，它必需依靠高起点硬件环境和软件开发工具来确保系统稳定和正常运行。总而言之，使用该医院管理系统，将会有以下好处：
1.高效病房管理：能有效提升病房使用率。
2.提升决议依据：管理者能够随时了解经营情况，以制订对应经营方针。
3.减轻职员工作负担：从而使职员把更多精力放在提升为病人服务质量上。
4.简单、方便地保留和查询历史资料。
5.树立良好医院形象。
6.能够方便查阅病人病历及类似病人医疗情况，给医生提供可靠参考。
7.对病人实时监控，确保病人生命安全。
2·组织结构调查。
\医院
院办
医务处
财务处
信息中心
收发室
文书档案室
门诊办公室
教授门诊
门诊病案室
挂号室
医疗部门
资产会计室
收费处
经济核实科
统计师
计算机室
急诊科
内科
外科
妇产科
儿科
中医科
五官科
放射科
功效科
检验科

上图是医院组织结构图，医院下设院办、医务处、财务处、信息中心等，其中医务处为关键部分，分为门诊办公室、教授门诊、门诊病案室、挂号室、医疗部门，其中最关键部门医疗部门又分为急诊科、内科、外科、妇产科、儿科、中医科等各科室，从上至下，各机构、部门关系比较清楚。

3,业务步骤图：
病人re人
病历
门诊挂号处
挂号单
收费处
收费证实
检验科室
门诊药房
医生科室
汇报单
住院单
处方
住院提议
检验单
住院处
住院申请表
住院信息
出院汇报

上图即为医院病房管理系统业务步骤图，大致过程以下，病人将病历交给门诊挂号处，进行挂号收费以后，开据收费证实交给检验科，进行所需各类检验，然后将检验汇报单交给医生科室，医生依据检验结果作出诊疗，开处方，并决定病人是否需要住院，如需住院，医生开出住院单，并递交给病人住院提议，病人依据医嘱，填写递交住院申请表给住院部，住院处可随时给出病人住院信息，并在病人出院时打印出院汇报，收费处将医药费、检验费、住院费等各项费用统计汇总收取。

4.数据步骤图：

病人
挂号处
P1
挂号处理
收费处
P2
收费处理
检验科室
P3
检验处理
病历
病历
汇报单
医生科室
挂号单
挂号单现金
收据
收据
收据
检验结果数据
P4
诊疗处理
汇报单数据
检验单
处方
检验结果
检验结果
住院部
P5
住院处理
病历信息
就诊情况
病房信息
出院汇报
住院信息
住院信息
住院数据
费用信息
费用信息

上图是医院病房管理系统数据步骤图，大致过程以下，病人基础信息经过病历传送到挂号处，挂号处经过收费挂号处理以后，将收据信息传送给检验科室和医生科室，检验科室进行所需各项检验以后，将检验结果数据存于检验汇报单中，并将汇报单数据传送到医生科室，医生科室收到收费单据和检验汇报单，然后进行诊疗处理，决定病人是否需要住院，如需住院，则把病人相关信息提供给住院部，将病人将查结果存于诊疗检验单中，住院部查询病房基础信息，并依据病人就诊情况，安排病房，将病人床位、护理情况存于住院信息中，将病人就诊、住院、收费情况等相关数据存于出院汇报中。

5.数据字典：
1）数据项定义
数据项编号：F02-01
数据项名称：床位
简 述：病房床位编码
类型及宽度：字符型，8位
取 值 范 围：“A-00101”—“E-00105”

2）数据结构定义
数据结构编号：D03-05
数据结构名称：病房基础信息
简 述：病房床位、价格、状态等基础信息
数据结构组成：F02-01 + J01-01 + Z06-05

3) 数据流定义
数据流编号：B01-06
数据流名称：挂号单
简 述：挂号处开出挂号单
数据流起源：挂号处
数据流去向：收费处理模块
数据流组成：科室 + 主治医生 + 收费情况
数 据 流 量：15份/小时
高 峰 流 量：25份/小时（早晨9:00-11:30）

4) 处理逻辑定义
处理逻辑编号：P05-02
处理逻辑名称：入住病房处理
简 述：安排病人入住病房、床位等
输入数据流：病人姓名、性别、身份证号码、家庭住址，起源于病人基础信息表，病人诊疗信息起源于诊疗信息表，病房号、床位、价格、值班医生、护理人员，起源于病房信息表。
处 理：住院部依据数据流“病人诊疗信息”，确定病人需要入住病房、床位、护理条件、收费情况。
输出数据流：病人住院信息，出院时汇报，返回给病人。

5）数据存放定义
数据存放编号：E05-04
数据存放名称：检验单
简 述：存放病人检验诊疗结果
数据存放组成：身份证号码+姓名+性别+症状+检验结果+诊疗结论
关 键 字：身份证号码
相关联处理：P03,P04

6）外部实体定义
外部实体编号：S02-01
外部实体名称：病人
简 述：在本院就诊病人
输入数据流：D02-01，D03-05
输出数据流：D05-06

二．系统设计
1.系统功效结构图：

医院病房管理系统
查询
病人住院情况
病房使用情况
系统维护
打印
病人信息查询
病房信息查询
入院信息登记
病人住院情况查询
出院信息处理
病房统计查询
病房信息更新
系统密码修改
打印出院汇报

上图为医院病房管理系统功效结构图，该系统功效关键分为五个模块：查询功效、病人住院情况处理功效、病房使用情况更新、系统维护、打印功效，能够查询病人基础信息、病房基础信息、病人住院情况查询和处理、入院信息登记、出院信息删除，还能进行病房使用信息更新，系统登录密码修改、打印功效，功效较为全方面。

2.代码设计：
A-00101，B-00101，C-00101
床位编码设计：采取字母和数字结合，打头字母表示病房所在科室，比如A-00101，字母A表示内科，前三位数字表示所在科室病房号，比如A-00101中001表示内科001号病房，后两位数字表示所在病房中病床编号，比如A-00101中后两位数字01表示内科001号病房里01号病床，同理，B-00101，C-00101也是采取此原理编码。

3.数据库设计：
3.1 数据库概念结构设计：
1）系统中实体E-R图：
病人
身份证号码
姓名
性别
年纪
家庭住址
联络方法

病房
房号
床位
单价
状态
值班医生
护理人员

2）系统整体E-R图：

病人
主治
医生
属于
科室
入住
病房
花费
费用
n
1
n
1
n
1
1
n

3.2 数据库逻辑结构设计：
1）病人基础信息表（身份证号码、姓名、性别、年纪、家庭住址、联络方法）
2）病房基础信息表(房号、床位、单价、状态、值班医生、护理人员)
表1 病人基础信息表
字段名称
字段类型
字段长度
身份证号码
字符型
20
姓名
字符型
8
性别
字符型
2
年纪
数值型
3
家庭住址
字符型
30
联络方法
字符型
11

表2 病房基础信息表
字段名称
字段类型
字段长度
房号
字符型
5
床位
字符型
8
单价
数值型
4
状态
字符型
8
值班医生
字符型
8
护理人员
字符型
8

4.关键功效及界面：
1）系统登录界面：

代码以下：
select(thisform.dataenvironment.cursor1.alias)
locate for 姓名=ALLTRIM(thisform.text1.value);
and 工号=ALLTRIM(thisform.text2.value)
if found()
do form 进入界面
else
=messagebox("用户名或密码不正确，请重新输入!")
thisform.text1.value=""
thisform.text2.value=""
endif
return
thisform.release
2）进入系统主页面：

菜单设计：

3）病人基础信息查询功效界面：

代码以下：
do case
case thisform.optiongroup1.value=1
bool='身份证号码='+"'"+trim(thisform.text1.value)+"'"
case thisform.optiongroup1.value=2
bool='姓名='+"'"+trim(thisform.text1.value)+"'"
case thisform.optiongroup1.value=3
bool='性别='+"'"+trim(thisform.text1.value)+"'"
endcase
thisform.dataenvironment.cursor1.filter=bool
thisform.refresh
return
4）病房基础信息查询功效界面：

功效代码以下：
do case
case thisform.optiongroup2.value=1
bool='房号='+"'"+trim(thisform.text1.value)+"'"
case thisform.optiongroup2.value=2
bool='状态='+"'"+trim(thisform.text1.value)+"'"
endcase
thisform.dataenvironment.cursor1.filter=bool
thisform.refresh
return

5）病人入院信息登记功效：

功效代码以下：
Insert Into 病人信息表(身份证号码,姓名,性别,年纪,家庭住址,联络方法);
values(Alltrim(Thisform.Text1.Value),Alltrim(Thisform.Text2.Value),;
Alltrim(Thisform.Text3.Value),val(Alltrim(Thisform.Text4.Value)),Alltrim(Thisform.Text5.Value),Alltrim(Thisform.Text6.Value))
Thisform.Text1.Value=""
Thisform.Text2.Value=""
Thisform.Text3.Value=""
Thisform.Text4.Value=""
Thisform.Text5.Value=""
Thisform.Text6.Value=""
Thisform.Refresh
6）病人住院情况查询功效:

功效代码以下：
do case
case this.value=1
go top
case this.value=2
if not bof()
skip -1
endif
case this.value=3
skip
if eof()
skip -1
endif
case this.value=4
go bottom
case this.value=5
sfzh=""
do form 输入身份证号码
qjlh=recno()
if len(sfzh)<>0
locate for 身份证号码=sfzh
if not found()
wait window"无此统计！"
go qjlh
endif
endif
case this.value=6
tj=messagebox('需要添加新统计吗?',4+32+256,'确定')
if tj=6
append blank
endif
case this.value=7
sc=messagebox('需要删除目前统计吗?',4+32+256,'确定')
if sc=6
delete
pack
endif
case this.value=8
thisform.release
endcase
thisform.refresh
7）出院信息处理功效：

程序代码以下：
SET DELETE ON
Thisform.Text1.SetFocus
Locate For Alltrim(身份证号码)=Alltrim(Thisform.Text1.Value) And Alltrim(姓名)=Alltrim(Thisform.Text2.Value) and;
Alltrim(性别)=Alltrim(Thisform.Text3.Value) and 年纪=val(Alltrim(Thisform.Text4.Value) )
If found()
Delete
Thisform.Text1.Value=""
Thisform.Text2.Value=""
Thisform.Text3.Value=""
Thisform.Text4.Value=""
Thisform.Text1.SetFocus
ELSE
MessageBox("键入信息有误，请您认真查对后重新键入信息！",48,"警告！")
Thisform.Text1.Value=""
Thisform.Text2.Value=""
Thisform.Text3.Value=""
Thisform.Text4.Value=""
Thisform.Text1.SetFocus
EndIf
Thisform.Grid1.Refresh
Thisform.Refresh
8）病房信息更新功效界面：

程序代码以下：
a=alltrim(thisform.text4.value)
locate for 房号= alltrim(thisform.text1.value) and 床位= alltrim(thisform.text2.value)
do case
case 单价=alltrim(thisform.text3.value)
update 病房信息表 set 单价 = a
case 状态 =alltrim(thisform.text3.value)
update 病房信息表 set 状态 = a
case 值班医生 =alltrim(thisform.text3.value)
update 病房信息表 set 值班医生 =a
case 护理人员=alltrim(thisform.text3.value)
update 病房信息表 set 护理人员 = a
endcase
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
thisform.refresh
9）系统登录密码修改功效：

功效程序代码以下：
set exact on
if empty(thisform.text1.value)
messagebox("请您注意，用户名不能为空！")
thisform.text1.setfocus
else
xm=alltrim(thisform.text1.value)
gh=alltrim(thisform.text2.value)
xmm=alltrim(thisform.text3.value)
qrmm=alltrim(thisform.text3.value)
locate for alltrim(工号)=gh and alltrim(姓名)=xm
if found()
if xmm=qrmm
update 工作人员表 set 工号=xmm where alltrim(工号)=gh
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
messagebox("密码已修改成功！",48,"提醒！")
else
messagebox("密码不一致，请您重新键入密码！",48,"警告！")
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
thisform.text2.setfocus
endif
else
messagebox("密码错误",48,"警告！")
thisform.text1.setfocus
endif
endif
thisform.refresh

10）报表打印功效：

三. 经验总结
1.经验：
1）建报表时，在预览情况下，一些数据没有显示，原因是在拖拽字段过程中，缩短了它本身含有长度，这么在显示时候没有足够空间来显示对应数据。
2）在编写程序代码时，会出现死循环，无法停止运行，则重新仔细检验程序，转换思绪，尝试不一样方法路径，最终处理了疑难问题。
3）在这次管理信息系统课程设计中，不仅要设计实现系统功效，而且要充足考虑系统步骤性，数据少数输入标准，以避免犯错，是系统愈加严密，愈加有实用性。
2.关键收获 ：
将书本知识应用于实际问题，愈加深刻地了解了书本上内容，愈加清楚了解了系统步骤性、数据步骤性。同时切身体会怎样在实际系统软件开发中应用Visual Foxpro数据库语言程序设计中工具和程序语言结构。在这次课程设计中，不仅要实现系统各项功效，而且步骤性要好。同时认识到在以后管理信息系统设计中，一定要先从系统性、步骤性方面考虑，然后再进行系统功效计划，这么整个系统会更严密，更有实用性。在以后学习中愈加努力，认真，掌握好管理信息系统思想和原理、数据库语言和计算机知识，并善于将所学知识愈加灵活地应用于实际生活中，处理实际问题。在这次课程设计中，我认为自己耐力、毅力、独立思索和处理问题能力有了很大提升，以后我也一定要将这种精神坚持下去。