医院病房管理制度系统.docx

1、医院病房管理制度系统医院病房管理系统 作者： 日期：管理信息系统课程设计报告设计题目： 医院病房管理系统 专 业 经济学类 班 级 经类093 学 生 彭菲 学 号 3090552097 指导教师 薛宏权 时 间 2012.6.25-2012.6.29 地 点 经管学院实验室机房 2012 年 春季 学期一绪论 随着计算机网络和通讯技术的发展与融合，信息化已经在世界各国各领域的应用越来越广泛，这些应用带来了生产方式的改革，经济的快速增长和人类文明的进步，整个世界进入了一个信息时代。 医院作为特殊的服务行业，管理方式千差万别，并且使用着大量的先进的仪器设备，处理着大批的业务，产生庞大的信息，因此

2、医院急需一套适合本院的医院信息系统来收集处理信息，从而更好地利用信息，来提高医院管理水平，改善医院服务质量，加速医院临床研究步伐，提高医院的竞争能力。二系统规划 规模的大型化，传统的医院靠人工管理的方式已经越来越不适应现代医院的规模了。而且随着电脑的普及及电脑性能的提高，使用电脑来管理医院的常规运作已经成为必然。同时，用电脑进行管理可以大大的节约劳动力降低医院的成本，降低人为的误操作，大大的提高工作效率，给医院和病人同时带来巨大的方便。本系统就是在这个背景下开发的，将先进的电脑技术和现代医院的管理完美的结合起来，完成以前需要大量人工才能完成的任务，实现了医疗，服务一体的全新概念的服务和管理方式

3、。三系统分析1. 可行性分析： 疗管理需要大量的人力来管理繁琐的入院手续，病历管理，病房管理，出院管理等工作，非常麻烦，而且由于手工操作，非常容易出错。而且病历保存占地方且保存很麻烦，浪费资源更加不用说了。还有繁琐的手续，让病人觉得非常麻烦，也给管理人员造成很大麻烦。直接的影响就是效率低下，成本高，给本来就不想上医院的人更加讨厌进医院。以上问题普遍存在于各个医院。仔细想来，其实这些工作电脑其实完全可以胜任，而且非常容易完成。通过电脑的辅助管理，不仅可以解决上述问题，而且符合现代的潮流，体现一个医院的现代化形象，对于提高员工工作效率，加速资金周转、降低各项成本及改善服务质量都有十分积极的作用。

4、一个成熟的医院管理系统不仅仅是记录病人的信息，提供查询，报表打印等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱，并且医院管理系统本身就代表着一种管理方法。随着它的深入，将带动企业的运做，为管理和决策提供支持。为了达到这个要求，它必须依靠高起点的硬件环境和软件开发工具来保证系统的稳定和正常运行。总之，使用该医院管理系统，将会有以下好处： 1.高效的病房管理：能有效的提高病房使用率。 2.提高决策依据：管理者可以随时了解经营情况，以制定相应的经营方针。 3.减轻员工的工作负担：从而使员工把更多的精力放在提高为病人服务的质量上。 4.简单、方便地保存和查询历史资料。 5.树立良好的医院形象

5、。 6.可以方便的查阅病人的病历及类似病人的医疗情况，给医生提供可靠参考。 7.对病人的实时监控，保证病人的生命安全。2组织结构调查。上图是医院的组织结构图，医院下设院办、医务处、财务处、信息中心等，其中医务处为核心部分，分为门诊办公室、专家门诊、门诊病案室、挂号室、医疗部门，其中最重要的部门医疗部门又分为急诊科、内科、外科、妇产科、儿科、中医科等各科室，从上至下，各机构、部门的关系比较清晰。3,业务流程图：上图即为医院病房管理系统的业务流程图，大致过程如下，病人将病历交给门诊挂号处，进行挂号收费之后，开据收费证明交给检查科，进行所需的各类检查，然后将检查报告单交给医生科室，医生根据检查结果作

6、出诊断，开处方，并决定病人是否需要住院，如需住院，医生开出住院单，并递交给病人住院建议，病人根据医嘱，填写递交住院申请表给住院部，住院处可随时给出病人的住院信息，并在病人出院时打印出院报告，收费处将医药费、检查费、住院费等各项费用统计汇总收取。4.数据流程图：上图是医院病房管理系统的数据流程图，大致过程如下，病人的基本信息通过病历传送到挂号处，挂号处经过收费挂号处理之后，将收据信息传送给检查科室和医生科室，检查科室进行所需各项检查之后，将检查结果数据存于检查报告单中，并将报告单数据传送到医生科室，医生科室收到收费单据和检查报告单，然后进行诊断处理，决定病人是否需要住院，如需住院，则把病人的相关

7、信息提供给住院部，将病人的将查结果存于诊断检查单中，住院部查询病房基本信息，并根据病人的就诊情况，安排病房，将病人的床位、护理情况存于住院信息中，将病人的就诊、住院、收费情况等相关数据存于出院报告中。5.数据字典：1）数据项的定义 数据项编号：F02-01 数据项名称：床位 简 述：病房床位的编码 类型及宽度：字符型，8位 取 值 范 围：“A-00101”“E-00105”2）数据结构的定义 数据结构编号：D03-05 数据结构名称：病房基本信息 简 述：病房的床位、价格、状态等基本信息 数据结构组成：F02-01 + J01-01 + Z06-053) 数据流的定义 数据流编号：B01-0

8、6 数据流名称：挂号单 简 述：挂号处开出的挂号单 数据流来源：挂号处 数据流去向：收费处理模块 数据流组成：科室 + 主治医生 + 收费情况 数 据 流 量：15份/小时 高 峰 流 量：25份/小时（上午9:00-11:30）4) 处理逻辑的定义 处理逻辑编号：P05-02 处理逻辑名称：入住病房处理 简 述：安排病人入住的病房、床位等 输入的数据流：病人的姓名、性别、身份证号码、家庭住址，来源于病人基本信息表，病人的诊断信息来源于诊断信息表，病房号、床位、价格、值班医生、护理人员，来源于病房信息表。 处 理：住院部根据数据流“病人的诊断信息”，确定病人需要入住的病房、床位、护理条件、收费

9、情况。 输出的数据流：病人的住院信息，出院时的报告，返回给病人。5）数据存储的定义 数据存储编号：E05-04 数据存储名称：检查单 简 述：存放病人的检查诊断结果 数据存储组成：身份证号码+姓名+性别+症状+检查结果+诊断结论 关 键 字：身份证号码 相关联的处理：P03,P046）外部实体的定义 外部实体编号：S02-01 外部实体名称：病人简 述：在本院就诊的病人输入的数据流：D02-01，D03-05输出的数据流：D05-06二系统设计1.系统功能结构图：上图为医院病房管理系统的功能结构图，该系统的功能主要分为五个模块：查询功能、病人住院情况处理功能、病房使用情况更新、系统的维护、打印

10、功能，能够查询病人基本信息、病房基本信息、病人住院情况查询和处理、入院信息登记、出院信息删除，还能进行病房使用信息的更新，系统登录密码的修改、打印功能，功能较为全面。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 数据

11、库概念结构设计：1）系统中实体的E-R图：2）系统整体的E-R图：3.2 数据库逻辑结构设计：1）病人基本信息表（身份证号码、姓名、性别、年龄、家庭住址、联系方式）2）病房基本信息表(房号、床位、单价、状态、值班医生、护理人员) 表1 病人基本信息表字段名称字段类型字段长度身份证号码字符型20姓名字符型8性别字符型2年龄数值型3家庭住址字符型30联系方式字符型11 表2 病房基本信息表字段名称字段类型字段长度房号字符型5床位字符型8单价数值型4状态字符型8值班医生字符型8护理人员字符型84.主要功能及界面：1）系统登录界面：代码如下：select(thisform.dataenvironmen

12、t.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=endifreturnthisform.release2）进入系统主页面：菜单设计：3）病人基本信息查询功能界面：代码如下：do case case thisform.optiongroup1.value

13、=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)+ endcasethisform.dataenvironment.cursor1.filter=boolthisform.refreshreturn4）病房基本信息查询功能界面：功能代码如下：do case case thisf

14、orm.optiongroup2.value=1 bool=房号=+trim(thisform.text1.value)+ case thisform.optiongroup2.value=2 bool=状态=+trim(thisform.text1.value)+ endcasethisform.dataenvironment.cursor1.filter=boolthisform.refreshreturn5）病人入院信息登记功能：功能代码如下：Insert Into 病人信息表(身份证号码,姓名,性别,年龄,家庭住址,联系方式); values(Alltrim(Thisform.Text

15、1.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.R

16、efresh6）病人住院情况查询功能:功能代码如下：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无此记录！ g

17、o 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.releaseendcasethisform.refresh7）出院信息处理功能：程序代码如下：SET DELETE ONThisform.Text1.SetFocusLocate

18、 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

19、.Text1.SetFocusELSE MessageBox(键入信息有误，请您认真核对后重新键入信息！,48,警告！) Thisform.Text1.Value= Thisform.Text2.Value= Thisform.Text3.Value= Thisform.Text4.Value= Thisform.Text1.SetFocusEndIfThisform.Grid1.RefreshThisform.Refresh8）病房信息更新功能界面：程序代码如下：a=alltrim(thisform.text4.value)locate for 房号= alltrim(thisform.te

20、xt1.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 病房信息表

21、 set 护理人员 = a endcase thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value=thisform.refresh9）系统登录密码的修改功能：功能的程序代码如下：set exact onif empty(thisform.text1.value) messagebox(请您注意，用户名不能为空！) thisform.text1.setfocuselse xm=alltrim(thisform.text1.value) gh=alltrim(thisform.t

22、ext2.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(密码已修改成功

23、！,48,提示！) else messagebox(密码不一致，请您重新键入密码！,48,警告！) thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text2.setfocus endif else messagebox(密码错误,48,警告！) thisform.text1.setfocus endifendifthisform.refresh10）报表打印功能：三. 经验总结 1.经验：1）建报表时，在预览情况下，某些数据没有显示，原因是在拖拽字段的过程中，缩短了它本身具有的长度，这样在显

24、示的时候没有足够的空间来显示相应的数据。2）在编写程序代码时，会出现死循环，无法停止运行，则重新仔细检查程序，转换思路，尝试不同方法路径，最终解决了疑难问题。3）在这次的管理信息系统的课程设计中，不但要设计实现系统的功能，而且要充分考虑系统的流程性，数据的少数输入原则，以避免出错，是系统更加严密，更加有实用性。2.主要收获 ：将书本知识应用于实际问题，更加深刻地理解了书本上的内容，更加清楚的了解了系统的流程性、数据的流程性。同时切身体会如何在实际系统软件开发中应用Visual Foxpro数据库语言程序设计中的工具和程序语言结构。在这次课程设计中，不但要实现系统的各项功能，而且流程性要好。同时认识到在以后的管理信息系统设计中，一定要先从系统性、流程性方面考虑，然后再进行系统功能的规划，这样整个系统会更严密，更有实用性。在以后的学习中更加努力，认真，掌握好管理信息系统的思想和原理、数据库语言和计算机知识，并善于将所学的知识更加灵活地应用于实际生活中，解决实际问题。在这次课程设计中，我觉得自己的耐力、毅力、独立思考和解决问题的能力有了很大的提高，以后我也一定要将这种精神坚持下去。