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

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