医院病房管理系统.docVIP

管理信息系统课程设计报告设计题目： 医院病房管理系统 专 业 经济学类 班 级 经类093 学 生 彭菲 学 号 3090552097 指导教师 薛宏权 时 间 2012.6.25-2012.6.29 地 点 经管学院实验室机房 2012 年 春季 学期 目 录一绪论2二系统规划2三 系统分析21. 可行性分析22. 组织结构调查。33.业务调查34.数据流程图45.数据字典56.数据加工处理的描述9四系统设计91.系统总体设计92.代码设计及设计规范113.系统物理配置方案114.存储文件格式设计115.输出设计156.输入设计16五系统实施与维护171.选择的开发平台172.计算机程序设计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-053) 数据流的定义 数据流编号：B01-06 数据流名称：挂号单 简 述：挂号处开出的挂号单 数据流来源：挂号处 数据流去向：收费处理模块 数据流组成：科室 + 主治医生 + 收费情况 数 据 流 量：15份/小时 高 峰 流 量：25份/小时（上午9:00-11:30） 4) 处理逻辑的定义 处理逻辑编号：P05-02 处理逻辑名称：入住病房处理 简 述：安排病人入住的病房、床位等 输入的数据流：病人的姓名、性别、身份证号码、家庭住址，来源于病人基本信息表，病人的诊断信息来源于诊断信息表，病房号、床位、价格、值班医生、护理人员，来源于病房信息表。 处 理：住院部根据数据流“病人的诊断信息”，确定病人需要入住的病房、床位、护理条件、收费情况。 输出的数据流：病人的住院信息，出院时的报告，返回给病人。5）数据存储的定义 数据存储编号：E05-04 数据存储名称：检查单 简 述：存放病人的检查诊断结果 数据存储组成：身份证号码+姓名+性别+症状+检查结果+诊断结论 关 键 字：身份证号码 相关联的处理：P03,P046）外部实体的定义 外部实体编号：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图：病人主治医生属于科室入住病房花费费用n1n1n11n3.2 数据库逻辑结构设计：1）病人基本信息表（身份证号码、姓名、性别、年龄、家庭住址、联系方式）2）病房基本信息表(房号、床位、单价、状态、值班医生、护理人员) 表1 病人基本信息表字段名称字段类型字段长度身份证号码字符型20姓名字符型8性别字符型2年龄数值型3家庭住址字符型30联系方式字符型11 表2 病房基本信息表字段名称字段类型字段长度房号字符型5床位字符型8单价数值型4状态字符型8值班医生字符型8护理人员字符型84.主要功能及界面：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=endifreturnthisform.release2）进入系统主页面：菜单设计：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)+ endcasethisform.dataenvironment.cursor1.filter=boolthisform.refreshreturn4）病房基本信息查询功能界面：功能代码如下：do case case thisform.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.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.Refresh6）病人住院情况查询功能:功能代码如下：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.releaseendcasethisform.refresh7）出院信息处理功能：程序代码如下：SET DELETE ONThisform.Text1.SetFocusLocate 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.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.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.refresh9）系统登录密码的修改功能：功能的程序代码如下：set exact onif empty(thisform.text1.value) messagebox(请您注意，用户名不能为空！) thisform.text1.setfocuselse 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(密码已