-【优秀文档】医院病房管理系统

1、管理信息系统课程设计报告设计题目：医院病房管理系统专 业 经济学类班级经类093学生彭菲学号3090552097指导教师薛宏权时间 2012.6.25-2012629地点经管学院实验室机房场几丿禺字2012年 春季学期目录一. 绪论二. 系统规划未定义书签。三.系统分析1 可行性分析2. 组织结构调杳。3. 业务调查4. 数据流程图5. 数据字典6. 数据加工处理的描述四.系统设计1. 系统总体设计2. 代码设计及设计规范3. 系统物理配置方案.4. 存储文件格式设计5 输岀设计6.输入设计五.系统实施与维护1 选择的开发平台2.计算机程序设计.误误误误 误误误误误误误 误误误 错错错错 错错

2、错错错错错 错错错333 未定义书签。 未定义书签。 未定义书签。 未定义书签。未定义书签。 未定义书签。 未定义书签。 未定义书签。 未定义书签。 未定义书签。 未定义书签。未定义书签。 未定义书签。 未定义书签。六对自己工作的评价24一 绪论随着计算机网络和通讯技术的发展与融合，信息化已经在世界各国各领域的 应用越来越广泛，这些应用带来了生产方式的改革，经济的快速增长和人类文明 的进步，整个世界进入了一个信息时代。医院作为特殊的服务行业，管理方式千差万别，并月使用着大量的先进的仪 器设备，处理着大批的业务，产生庞大的信息，因此医院急需一套适合本院的医 院信息系统來收集处理信息，从而更好地利

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

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

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

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

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

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

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

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

11、息登记、出院信息删除，还能进行病房使 用信息的更新，系统登录密码的修改、打印功能，功能较为全而。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

12、-r图:3.2数据库逻辑结构设计：1）病人基木信息表（身份证号码、姓名、性别、年龄、家庭住址、联系方式）2）病房基本信息表（房号、丿木位、单价、状态、值班医生、护理人员）表1病人基本信息表字段名称字段类型字段长度身份证号码字符型20姓名字符型8性别字符型2年龄数值型3家庭住址字符型30联系方式字符型11表2病房基本信息表字段名称字段类型字段长度房号字符型5床位字符型8单价数俏型4状态字符型8值班医生字符型8护理人员字符型84. 主要功能及界面:1）系统登录界面：欢迎您登录医院病房管理系统用户名f代码如下：select (thisform. dataenvir on merit, cursorl

13、. alias) locate for 姓名=alltrim(thisform. textl. value);and 工号=alltrim(thisform. tcxt2. value)if found()do form进入界血else=messagebox ("用户名或密码不正确，请重新输入！") thisform. textl. value二"thisform text2. value二"endi f returnthisform. release 2）进入系统主页面:纂进入界面查询 病人住院情况 病房使用悟况 密码修改 打印出院报告菜单设计:3）病

14、人基木信息查询功能界面：代码如下：do casecase thisform optiongroup1 value=lbool=，身份证号码二'+，z，z+trim(thisform. text 1 value)+'"case thisform optiongroup1. value二2bool二'姓名二'+/z，z+trim(thisform. text 1. value)+"'"case thisform opliongroupl. valuc=3bool二'性别二'+"' /z+trim

15、(thisform. text 1. value)"endcasethisform dataenvironment. cursorl. f订ter二boolthisform refreshreturn 4）病房基本信息查询功能界面:功能代码如下:do casecase thisform optiongroup2. value=lbool二'房号='+' z，+trim(thisform. textl. value) +，z,case thisform optiongroup2 value二2bool二'状态二'+"' &quo

16、t;+trim(thisform. textl. value)+"'endcase thisform dataenvironmcnt. cursor1. filter-bool thisform. refresh return5）病人入院信息登记功能:功能代码如下：insert into病人信息表(身份证号码姓名，性别，年龄，家庭住址,联系方式)；values(alltrim(thisform. textl. value), alltrim(thisform. text2. value),;alltrim(thisform. text3. value), val(alltri

17、m(thisform. text4. value), alltrim(thisfo rm. text5. value), al 1 trim(thisform. text6. value)thisform. textl. value二""thisform. text2. value二"thisform. text3. valuu"thisform. text4. value二""thisform. text5. value二""thisform. text6. value二""6) 病人住院情况

18、查询功能:功能代码如下：do casecase this. value=lgo topcase thisvalue=2if not bof () skip t endifcase this. value=3skipif eof ()skip tendifcase this. value=4go bottomcase this value=5sfzh= do form输入身份证号码qjlh=recno()if len(sfzh)<>0locate for身份证号码=sfzhi f not found()wait window"无 11 匕记录!"go qjlhen

19、difend ifcase this.value=6tj=messagebox(，需要添加新记录吗？' , 4+32+256,'确认')if tj=6append blankendifcase this.value=7sc=messagebox(，需耍删除当前记录吗？', 4+32+256,'确认)if sc二6deletepackendifcase this. value=8 endcase7）出院信息处理功能:程序代码如下:set delete onthisform textl setfocuslocate for alltrim(身份证号码)=al

20、ltrim(thisform. textl. value) and alltrim(姓 名)=alltrim(thisform. text2. value) and;al 1 trim(性别)=alltrim(thisform. text3. value) and 年龄=val(alltrim(thisform. text!. value)if found ()deletethisform. textl value二"thisform.text2.value二"thisform. text3.value二""thisform. textl setfocu

21、selsemessagebox（，z键入信息有误，请您认真核対后重新键入信息！4& 警告！ ）thisform textl value二"thisform. text2. value=，zthisform. text3. value二""thisform. text!. value二""thisform. textl setfocusend ifthisform. grid 1. refreshthisform. refresh8）病房信息更新功能界阿程序代码如f：a=alltrim(thisform text4. value)loca

22、te for 房号二 al 1 trim(thisform. textl. value) and 床位二 alltrim(thisform. text2. value)do casecase 单价二alltrim(thisform. text3. value)update病房信息表set单价二aupdate病房信息表set状态二acase 值班医生 =alltrim(thisform. text3. value) update病房信息表set值班医生=acase 护理人员二alltrim(thisfonn text3. value) update病房信息表set护理人员=a endcaseth

23、isform text1 value二thisform. text2. value二""thisform. text3. value二""thisform text4. value二 thisform refresh9）系统登录密码的修改功能:功能的程序代码如卜:set exact onmessagebox（，z请您注意,用户名不能为空! “）th isform. icxtl set focus elsexm=al1trim（thisform. textl.value）gh=alltrim（thisfonn. text2. value）xmm=alltr

24、im（thisform text3 value）qrmm=al1 trim（thisform. tcxt3 value）locate for all trim （工号）=gh and alltrim（姓名）二 xmif found （）if xmm=qrmniupdate 工作人员表 set 工号二xmm where alltrim（工号）二gh thisform. textl value二" thisform. text2 value二" thisform. text3. value二" thisform. text4 value二 messagebox （"密码已修改成功! ”, 48,"提示! “） elsemessagebox（"密码不一致，请您重新键入密码! , 4& 警告！ ）thisform. text2 value二"thisform. text3. value二"