小型医疗机构诊疗管理系统.ppt

小型医疗机构诊疗管理系统 一 系统设计的背景和意义1 系统背景2 实现意义二 系统的制作环境和工具三 系统的模块结构和功能介绍1 系统的模块结构2 系统功能四 主要实现代码 一 系统设计的背景和意义 1 系统背景现在发达国家 小型医疗机构的管理系统已经十分的完善 各种管理机制已经十分的健全 病人就医方便快捷 对于诊疗的管理十分的科学 我国小型的医疗系统十分的不健全 存在三大问题 药品的管理混乱 诊疗的流程繁琐费时 对于病人的信息管理不能方便快捷的查询 我国人口众多 各种小型医疗机构遍布全国 需要有一个科学合理的管理系统来对其进行管理 2 系统设计目的及意义 小型医疗机构诊疗管理系统 集病人信息和药品管理于一身 建立机制健全的小型医疗机构对于我国社会的和谐发展有重大意义 我国正在努力建设一个健康 文明 和谐的现代化社会 一个健康科学的医疗体系 是这个过程中必不可少的一部分 返回目录 二 系统的制作环境和工具 该系统主要采用的是VisualBasic6 0和SQLServer2000 VisualBasic6 0是Microsoft公司推出的最新的Windows应用程序开发环境 它功能强大 受到广大编程人员的青睐 是世界上最畅销的编程语言之一 具有 编码简单 便于快速掌握 易于实现 操作简单等特点 同时 提供了很多实用的控件组件 良好的界面操作工能 给用户提供了一个很好的编辑环境 SQLServer是微软公司开发的一个关系数据库管理系统统 可以在不同的操作平台上运行 具有很好的兼容性 同时 SQLServer对数据的管理十分的方便 对数据的查询 添加 修改 删除 更新等都可以很容易快的掌握操作方法 VB可以很容易的与其连接上 对数据库中的数据进行修改 返回目录 三 系统的模块结构和功能介绍 本系统的主要分为三个模块 分别为管理员模块 医生模块 计费模块 有些模块子系统中又包括若干子模块 其具体的系统功能模块如图3 1所示 各个模块并不完全独立 医生模块来源于管理员模块添加的信息 而计费模块部分信息来源依靠管理员添加的信息和医生添加的信息 三者都是独立的而又相互联系 同时又可以由此衍生出管理员界面 医生界面和计费员界面 管理员负责 医生信息和药品信息的管理 医生负责 患者信息和诊疗信息的管理 计费员负责 患者相关费用信息的查询 计费和打印 1 系统的模块结构 诊疗管理系统 患者信息添加 医生信息删除 患者信息查询 药品信息查询 药品信息添加 医生信息修改 医生信息修改 医生信息修改 诊疗信息添加 诊疗信息查询 管理员 医生 计费员 药品 医生信息 诊疗信息 计费查询 患者信息 打印 图3 1模块结构图 返回目录 2 系统功能 该系统的功能主要有 查询 添加 修改 打印 计费管理员主要是 医生信息 查询 添加 修改 和药品信息 查询 添加 医生主要是 患者信息 查询 添加 和诊疗信息 查询 添加 计费员主要是 患者相关计费信息 查询 计费 打印 下面详细介绍由结构模块衍生出来的三个界面 管理员界面 医生界面 计费界面 管理员 医生或计费员 身份识别 信息添加 信息查询 信息修改 人员 密码管理 查询 信息处理 人员删除 添加 密码修改 图3 2功能结构 返回目录 I 管理员界面 该界面是诊疗系统中 管理员用来管理医生和药品信息的一个界面 该界面是实现管理员模块的功能 只可以查询当前已添加的信息记录 信息由管理员添加 管理员可以直接输入所要查找的id号来查找相关的医生信息 界面如下 图3 3管理员界面 返回目录 II 医生界面 医生模块是整个诊疗系统的关键 系统的设计既要符合医疗机构的诊疗流程 又要保证数据的准确性和实用性 医生模块的功能也依赖于管理员模块提供的数据 有独立管理患者信息 这些要求是通过医生界面来实现的 界面如下图所示 返回目录 图3 4医生界面 III 计费界面 计费员的主要职责是为患者进行医疗费用的查询和计算汇总 并将结果打印出来 该模块完全依赖于前面的管理员模块和医生模块 它不能独立的存在 只有依靠前两个模块提供的数据 才能够进行计费的查询和计算 并打印 计费界面如下图所示 图3 5计费界面 返回目录 主要的实现代码有 DimRs1AsNewADODB RecordsetDimchaxunAsString 查询DimxiugaiAsString 修改DimtianjiaAsString 添加SetRs1 NewRecordsetchaxun select from相关信息的表whereid Text1 1 Text xiugai update相关信息的表set要修改的变量 whereid Text1 1 Text tianjia select from相关信息的表whereid Text1 1 Text Rs1 Open chaxun xiugai tianjia Str adOpenKeyset adLoc