《住院病人管理系统的设计与实现》由会员分享，可在线阅读，更多相关《住院病人管理系统的设计与实现（20页珍藏版）》请在金锄头文库上搜索。
1、目录第1章系统分析31.1系统可行性分析31.2选择开发工具3第2章概要设计52.1数据库设计52.2建立数据库，并且建立合理的约束5第3章详细设计83.1用户登录界面83.2系统主界面93.3主要功能页面103.4主程序设置与连编13参考文献15【摘要】：近年来，随着我国人民生活水平的迅速提高，科学技术的进一步发展，医院对 HMIS （医院管理信息系统）的需求就越来越迫切，一套好的HMIS在全面提高医院的医 疗、教学、科研水平，提高医院整体工作效率，为病人提供方便快捷全面的服务等方面都 能发挥出重要作用。然而由于种种原因，在国内HMIS的使用尚不普及，许多小型医院还 是完全依靠手工操作在管理
2、病人和医院员工的一切信息，这不仅劳动强度大且工作效率 低，医师护士和管理人员的大量时间都消耗在事务性工作上，对其所掌握的信息也无法很 好地统计应用起来，这样既无法提高医院自身的医疗水平，同时又无法很好地为病人服务。 从“医院”概念上来看，住院部是医院的基本组成单位；从医院管理角度看，住院诊疗是 医院业务工作的核心部分。因此，建立一个高效可靠的住院业务管理系统，不仅可以在一 定程度上减轻医务人员的劳动强度，提高工作效率和工作质量，而且可以更及时、准确和 有效地分析统计各种临床数据及管理数据，供上级主管部门作出科学的管理决策，促进医 院管理水平的进一步提高。而在整个住院业务管理系统，住院数据库的设
3、计是必不可少的。 鉴于Visual Foxpro6.0有强大的数据库管理功能，我们选用Visual Foxpro6.0来完成这个住 院病人管理系统。【关键字】：病人，住院，管理系统，VFP程序设计第1章系统分析1.1系统可行性分析医院原有诊疗记录信息，详细记录了病人的基本情况和诊疗情况，此信息可以收集到 系统数据库中，方便使用者查询。另外，医院收费处也有病人缴费记录，医院的人事管理 部门存有详细的医生入职信息。把医院的病人、医生及收费情况集成到一个住院病人管理 系统中是完全可以实施的。1.2选择开发工具操作系统：win98/win2000/winxp开发语言：Visual Foxpro 6.0
4、1.3需求分析病人住进医院要进行入院信息登记，诊断和治疗的情况在系统中记录，那么这个病人 在下次来医院时便可根据原有病人资料进行更为准确、更有针对性的快速诊疗。医院的医 生信息也逐渐在各大医院中公开，那么实现一个住院病人管理系统，可为病人根据诊疗情 况选择医生和医生了解病人治疗过程有一个方便快捷的通道。病人入院时，将病人的基本 信息和诊断情况记录到系统中，并在付费结算时管理员录入结算的费用，了解病人的医疗 费用的承受程度，有利于深入病人家庭，更切实有效的帮助病人度过难关。1. 数据需求通过调查，总结出该住院病人管理系统对数据的需求大致有如下这些：(1) 病人信息包括编号，姓名，性别，年龄，民族
5、，入院日期，诊断情况(2) 用户信息包括用户名，密码，用户类型(3) 医生信息包括编号，姓名，性别，职称等(4)收费信息包括住院号，收费日期，收费项目，金额，临床科室，医生代码2. 功能需求功能分析的任务是了解用户对数据的处理方法和输出格式。(1) 用户管理要求能够根据需要对病人和医生信息进行维护修改等。(2) 信息录入基本数据包括病人信息、医生信息、收费信息等。要求系统能够录入这些数据，并且可 以进行修改。在数据录入和修改过程中应保持数据的参照完整性。(3) 信息查询要求管理员和一般用户均可对所有数据库的数据表信息进行查询。第2章概要设计2.1数据库设计数据库需求分析：用户的需求具体体现在各
6、种信息的提供、保存、更新和查询，这就 要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处 理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。进行数据库设计的依据有三个：第一是在进行系统调查时由医院收费处和医生诊断记 录提供的各种处理数据；第二是功能设计；第三是数据库设计规范化理论。数据库设计是 系统设计的一项基本工作，其效果的好坏，对后续设计、调试、使用、维护等工作关系极 大，因此，一定要高度重视这一部分工作。当然，我们不能简单地将数据库设计理解为在 计算机上用可视化的方法建立表的过程，其主要工作是建立一种完整、规范的数据模型以 支持整个应用系统对数据的要
7、求。根据对实际情况进行分析建立关系模型：1）用户表（用户编号，用户名，用户密码，用户类型）2）住院病人表（住院号，姓名，性别，年龄，民族，入院日期，诊断）3）住院医生表（医生代码，姓名，性别，职称）4）住院费用表（住院号，收费日期，收费项目，金额，临床科室，医生代码）2.2建立数据库，并且建立合理的约束本系统建立一个名为会计1202-05的数据库，在数据库之间用这些数据项建立4张表， 分别是用户表、病人基本情况一览表、住院收费一栏表、住院医生一览表。表1 “用户表”表的结构字段名字段类型字段宽度小数位索引用户编号字符型10主索引用户名字符型8用户密码字符型20用户类型字符型10表2 “住院病人
8、基本情况一览表”（ZYBR.DBF）的结构字段名字段类型字段宽度小数位索引住院号字符型10主索引姓名字符型10性别字符型2年龄字符型8民族字符型10入院日期日期型8诊断字符型20表3 “住院病人收费一览表”（ZYSF.DBF）的结构字段名字段类型字段宽度小数位索引住院号字符型10普通收费日期字符型10收费项目字符型20金额数值型20临床科室字符型10医生代码字符型8普通表4“住院医生一览表”（ZYYS.DBF）的结构字段名字段类型字段宽度小数位索引医生代码字符型8主索引姓名字符型10性别字符型2职称字符型10数据表建立完之后，将进行表关系的建立和参照完整性限制。在表ZYBR.DBF和表 ZYS
9、F.DBF之间建立一对多永久关系，并设置参照完整性规则:更新-级联册U除-级联，插入-限 制；在表ZYYS.DBF和表ZYSF.DBF之间建立一对多永久关系，并设置参照完整性规则: 更新-级联，删除-级联，插入-限制。设置界面如下图：第3章详细设计3.1用户登录界面登陆住院病人管理系统，只要拥有用户名和密码的医生或者该院领导都可以进入住院 病人管理系统去查询和了解病人的情况。系统登录页面的实现：登录按钮（commandl）的单击事件（click）运行代码如下：locate for alltrim （用户名）=alltrim（thisform.text1.value）if .not.found（
10、）messagebox（没有该用户！”）elseif thisform.optiongroup1.option1.value=1if alltrim （用户类型）=”系统管理员”if alltrim （用户密码）=alltrim（thisform.text2.value）clear windowmessagebox（欢迎访问住院病人管理系统！）do form管理员页面elsemessagebox（密码错误！”）endifelsemessagebox（您的用户类型不匹配！”）endifelseif alltrim （用户类型）=普通用户if alltrim （用户密码）=alltrim（this
11、form.text2.value）clear windowmessagebox（欢迎访问住院病人管理系统！）do form用户页面elsemessagebox（密码错误！”）endifelsemessagebox（您的用户类型不匹配！”）endifendifendif退出（command2）按钮的click事件代码是：clear eventsthisform.releasequit3.2系统主界面系统根据用户的不同权限设置不同的菜单，对于“系统管理员”菜单可以实现用户信 息的修改、病人信息的录入和查看，医生信息的录入和查看，为了保障医院住院病人的个 人隐私，这一界面是其他人普通用户不能进入。以
12、下的两张图片是系统管理员和普通用户界面设置了顶层表单相关代码之后运行的 界面，两个界面由于功能的不同，设置了不同的菜单。3.3主要功能页面在系统功能的进一步实现中，由于涉及的表单比较多，在这里仅用两个有代表性的“病 人入院信息录入”和“病人信息查询”两个表单的实现为例进行说明。首先是“新入院病 人信息录入”的一个“添加”运行成功的页面。新病人信息录入，“添加”按钮的代码如下:append blankreplace 住院号 with thisform.textl.valuereplace 姓名 with thisform.text2.valuereplace ，性另U with thisform
13、.text3.valuereplace 年龄 with thisform.text4.valuereplace 民族 with thisform.text5.valuereplace 入院日期 with thisform.text6.valuereplace 诊断 with thisform.edit1.valuemessagebox(新病人信息录入成功！)新病人信息录入的form1表单的init事件代码:use zybrzyh=right (住院号,6)a=val(zyh)a=a+reccount()b=00000000+alltrim(str(a)zyh1=br+right(b,6)thi
14、sform.text1.value=zyh1退出代码：thisform.releaseuse下面这个图片说明了 “住院病人信息查询”的设计界面，查询的click事件：go toplocate for zybr.住院号=alltrim(bo1.value)if found()thisform.text2.value=zybr.姓名thisform.text3.value=zybr.性另 ljthisform.text4.value=zybr.年龄thisform.text5.value=zybr .民族thisform.text6.value=zybr.入院日期thisform.edit1.value=zybr.诊断thisform.refreshgo topelseskipendif病人查询表单的init事件:close database allopen database 会计 1202-05use zybr退出：thisform.releaseuse3.4主程序设置与连编面 改询入页改户码询入修面户查录 员停用密查录名页用
