医院病房管理系统

管理信息系统 课程设计报告 设计题目： 医院病房管理系统 专 业 经济学类 班 级 经类 093 学 生 彭菲 学 号 3090552097 指导教师 薛宏权 时 间 2012.6.25-2012.6.29 地 点 经管学院实验室机房 2012 年 春季 学期 2 目 录 一 绪论 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 六对自己工作的评价 2 4 3 一绪论 随着计算机网络和通讯技术的发展与融合，信息化已经在世界各国各领域 的应用越来越广泛，这些应用带来了生产方式的改革，经济的快速增长和人类 文明的进步，整个世界进入了一个信息时代。 医院作为特殊的服务行业，管理方式千差万别，并且使用着大量的先进的仪 器设备，处理着大批的业务，产生庞大的信息，因此医院急需一套适合本院的 医院信息系统来收集处理信息，从而更好地利用信息，来提高医院管理水平， 改善医院服务质量，加速医院临床研究步伐，提高医院的竞争能力。 二系统规划 规模的大型化，传统的医院靠人工管理的方式已经越来越不适应现代医院的 规模了。而且随着电脑的普及及电脑性能的提高，使用电脑来管理医院的常规 运作已经成为必然。同时，用电脑进行管理可以大大的节约劳动力降低医院的 成本，降低人为的误操作，大大的提高工作效率，给医院和病人同时带来巨大 的方便。本系统就是在这个背景下开发的，将先进的电脑技术和现代医院的管 理完美的结合起来，完成以前需要大量人工才能完成的任务，实现了医疗，服 务一体的全新概念的服务和管理方式。 三系统分析 1. 可行性分析： 疗管理需要大量的人力来管理繁琐的入院手续，病历管理，病房管理，出 院管理等工作，非常麻烦，而且由于手工操作，非常容易出错。而且病历保存 占地方且保存很麻烦，浪费资源更加不用说了。还有繁琐的手续，让病人觉得 非常麻烦，也给管理人员造成很大麻烦。直接的影响就是效率低下，成本高， 给本来就不想上医院的人更加讨厌进医院。以上问题普遍存在于各个医院。仔 细想来，其实这些工作电脑其实完全可以胜任，而且非常容易完成。通过电脑 的辅助管理，不仅可以解决上述问题，而且符合现代的潮流，体现一个医院的 4 现代化形象，对于提高员工工作效率，加速资金周转、降低各项成本及改善服 务质量都有十分积极的作用。 一个成熟的医院管理系统不仅仅是记录病人的信息，提供查询，报表打印 等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱，并且医院管 理系统本身就代表着一种管理方法。随着它的深入，将带动企业的运做，为管 理和决策提供支持。为了达到这个要求，它必须依靠高起点的硬件环境和软件 开发工具来保证系统的稳定和正常运行。总之，使用该医院管理系统，将会有 以下好处： 1.高效的病房管理：能有效的提高病房使用率。 2.提高决策依据：管理者可以随时了解经营情况，以制定相应的经营方针。 3.减轻员工的工作负担：从而使员工把更多的精力放在提高为病人服务的 质量上。 4.简单、方便地保存和查询历史资料。 5.树立良好的医院形象。 6.可以方便的查阅病人的病历及类似病人的医疗情况，给医生提供可靠参 考。 7.对病人的实时监控，保证病人的生命安全。 2组织结构调查。 5 医院 院办 医务处 财务处 信息中心 收 发 室 文 书 档 案 室 门 诊 办 公 室 专 家 门 诊 门 诊 病 案 室 挂 号 室 医 疗 部 门 资 产 会 计 室 收 费 处 经 济 核 算 科 统 计 师 计 算 机 室 急 诊 科 内 科 外 科 妇 产 科 儿 科 中 医 科 五 官 科 放 射 科 功 能 科 检 验 科 上图是医院的组织结构图，医院下设院办、医务处、财务处、信息中心等，其中医务处为 核心部分，分为门诊办公室、专家门诊、门诊病案室、挂号室、医疗部门，其中最重要的 部门医疗部门又分为急诊科、内科、外科、妇产科、儿科、中医科等各科室，从上至下， 各机构、部门的关系比较清晰。 3,业务流程图： 6 病 人 re 人 病历门诊挂 号处 挂号 单 收费处 收费证 明 检查科 室 门诊 药房 医生科 室 报告单 住院单 处方 住院 建议 检查 单 住院处住院申 请表 住院信 息 出院报 告 上图即为医院病房管理系统的业务流程图，大致过程如下，病人将病历交给门诊挂号处， 进行挂号收费之后，开据收费证明交给检查科，进行所需的各类检查，然后将检查报告单 交给医生科室，医生根据检查结果作出诊断，开处方，并决定病人是否需要住院，如需住 院，医生开出住院单，并递交给病人住院建议，病人根据医嘱，填写递交住院申请表给住 院部，住院处可随时给出病人的住院信息，并在病人出院时打印出院报告，收费处将医药 费、检查费、住院费等各项费用统计汇总收取。 4.数据流程图： 7 病人 挂号处 P1 挂号处 理 收费处 P2 收费处 理 检查科 室 P3 检查处 理 病 历 病 历 报告单 医生科 室 挂号 单 挂号单现 金 收 据 收 据 收 据 检查结果数 据 P4 诊断处 理 报告单数据 检查 单 处 方 检查结 果 检查结 果 住院 部 P5 住院处 理 病历信 息 就诊情 况 病房信息 出院报 告 住院信息 住院信 息 住 院 数 据 费用信息 费用信息 上图是医院病房管理系统的数据流程图，大致过程如下，病人的基本信息通过病历传送到 挂号处，挂号处经过收费挂号处理之后，将收据信息传送给检查科室和医生科室，检查科 室进行所需各项检查之后，将检查结果数据存于检查报告单中，并将报告单数据传送到医 生科室，医生科室收到收费单据和检查报告单，然后进行诊断处理，决定病人是否需要住 院，如需住院，则把病人的相关信息提供给住院部，将病人的将查结果存于诊断检查单中， 住院部查询病房基本信息，并根据病人的就诊情况，安排病房，将病人的床位、护理情况 存于住院信息中，将病人的就诊、住院、收费情况等相关数据存于出院报告中。 5.数据字典： 1）数据项的定义 8 数据项编号：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 处理逻辑名称：入住病房处理 简 述：安排病人入住的病房、床位等 输入的数据流：病人的姓名、性别、身份证号码、家庭住址，来源于病人基本信息表， 病人的诊断信息来源于诊断信息表，病房号、床位、价格、值班医生、护理人员，来源于 病房信息表。 处 理：住院部根据数据流“病人的诊断信息” ，确定病人需要入住的病房、床 9 位、护理条件、收费情况。 输出的数据流：病人的住院信息，出院时的报告，返回给病人。 5）数据存储的定义 数据存储编号：E05-04 数据存储名称：检查单 简 述：存放病人的检查诊断结果 数据存储组成：身份证号码+姓名+性别+症状+检查结果+诊断结论 关 键 字：身份证号码 相关联的处理：P03,P04 6）外部实体的定义 外部实体编号：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 数据库概念结构设计： 1）系统中实体的 E-R 图： 11 病人 身份证号 码 姓名 性别 年龄 家庭住址 联系方式 病房 房号 床位 单价 状态 值班医生 护理人员 2）系统整体的 E-R 图： 病人主治 医生 属于 科室 入住 病房 花费 费用 n 1 n 1 n 1 1 n 3.2 数据库逻辑结构设计： 1）病人基本信息表（身份证号码、姓名、性别、年龄、家庭住址、联系方式） 12 2）病房基本信息表(房号、床位、单价、状态、值班医生、护理人员) 表 1 病人基本信息表 字段名称 字段类型 字段长度 身份证号码 字符型 20 姓名 字符型 8 性别 字符型 2 年龄 数值型 3 家庭住址 字符型 30 联系方式 字符型 11 表 2 病房基本信息表 字段名称 字段类型 字段长度 房号 字符型 5 床位 字符型 8 单价 数值型 4 状态 字符型 8 值班医生 字符型 8 护理人员 字符型 8 4.主要功能及界面： 1）系统登录界面： 13 代码如下： 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）进入系统主页面： 14 菜单设计： 3）病人基本信息查询功能界面： 15 代码如下： 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）病房基本信息查询功能界面： 16 功能代码如下： 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）病人入院信息登记功能： 17 功能代码如下： Insert Into 病人信息表(身份证号码,姓名,性别,年龄,家庭住址,联系方式); values(Alltrim(Thisform.Text1.Value),Alltrim(Thisform.Text2.Value),; Alltrim(Thisform.Text3.Value),val(Alltrim(Thisform.Text4.Value),Alltrim(Thisfo rm.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）病人住院情况查询功能: 18 功能代码如下： 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 19 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 20 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,“警告！“) 21 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) 22 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(“请您注意，用户名不能为空！“) 23 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.tex