医院信息管理系统论文正稿.doc

学习好帮手 医院信息管理系统 2008 年 4 月 10 日 摘摘 要要 医院管理系统是典型的管理信息系统 MIS 其开发主要包括后台数据库的建立和维护以及前端 应用程序的开发两个方面 对于前者要求建立数据一致性和完整性强 数据安全性好的数据库 而对 于后者则要求应用程序功能完备 易使用等特点 计算机化的医院信息系统已成为现代化医院运营必不可少的基础设施与技术支撑环境 就好象 一个现代化医院的成功运行离不开功能完整 美观舒适的建筑物 技术娴熟的医护人员 性能齐全 学习好帮手 高精尖的医疗设备一样 它也离不开计算机化的医院信息系统 经过分析如此情况 我们使用 VB 数据库等开发工具 利用其提供的各种面向对象的开发工 具 尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 首先在短时间内建立系统应用原型 然 后 对初始原型系统进行需求迭代 不断修正和改进 直到形成用户满意的可行系统 关键词关键词 原型法 面向对象 数据一致性 数据窗口 医院管理系统 学习好帮手 目录目录 1 1第一章第一章 绪绪 论论 3 3 2 2第二章第二章 相关技术介绍相关技术介绍 6 6 2 1课题背景 4 2 2国内外研究现状 4 2 3课题目的 5 3 3第三章第三章 系统分析系统分析 7 7 3 1系统的初步调查 10 3 2系统的可行性分析 11 3 3系统开发步骤 11 4 4第四章第四章 系统设计系统设计 1414 4 1模块设计 14 4 2开发环境 7 4 3功能模块 14 4 4数据流图 15 4 5数据库设计 15 4 6详细设计 20 4 6 1系统主界面 20 4 6 2用户管理界面 21 4 6 3药品管理界面 26 4 6 4挂号界面 28i 4 6 5划价界面 30 5 5第五章第五章 开发总结开发总结 3333 6 第六章第六章 致谢致谢 34 7 7 参考文献参考文献 35 35 学习好帮手 第一章第一章 绪绪 论论 随着社会化大生产的不断扩大和社会对产品多样化的需求 人们越来越重视信息 在生产经营及企业管理中的作用 并把它当做企业的一种极其重要的资源 人们称之 为 信息资源 信息资源的处理已经成为当今世界上一项主要的社会活动 同样 在 医疗系统中也不例外 其中加强对门诊信息的管理 一方面能更好为病人服务 另一 方面能加强对医院效益的监控 本世纪以来 由于社会生产力的迅速发展和科学技术的突飞猛进 人们进行信息 交流的深度和广度不断增加 管理所需要的信息量急剧增长 同时对信息的处理要求 及时 准确 这导致了传统的信息处理方法和手段已不能适应现代管理的需要 电子 计算机的诞生和在信息处理中的应用 标志着一个崭新时代 信息时代 的开始 它使企业管理现代化成为可能 管理信息系统的发展管理信息系统的发展 管理信息系统通过对企业当前运行的数据进行处理来获得有 关信息 以控制企业的行为 利用过去和现在的数据及相应的模型 对未来的发展进 行预测 能从全局目标出发 对企业的管理决策活动予以辅助 从工业发达国家来看 管理信息系统的发展经历了以下几个阶段 第一阶段 1953 年至 1965 年 单项数据处理阶段 也称电子数据处理 EDP 阶段 这是电子计算机在管理领域应用的起步阶段 这一阶段 由于当时计算机硬 软件的限制 数据处理的性质只是使用计算机代替人的手工劳动 进行简单的单项数 据处理工作 第二阶段 1965 年至 1970 年 综合数据处理阶段 也称事务处理系统 TPS 阶段 这个阶段计算机硬 软件有了很大的发展 出现了多用户的分时系统 计算机 开始应用于对某一个管理子系统的控制 并具有一定的反馈功能 第三阶段 1970 年至今 管理信息系统 MIS 阶段 这个阶段是在企业中全面 的使用计算机把各种管理子系统的功能集中起来 构成了计算机化的全方位的信息系 统 即现代管理信息系统 总的说来 计算机技术的发展 其性价比大幅的下降 使得其被大量广泛的使用 针对现实中的各种应用需求 相应的产生很多技术体系 技术标准 如 学习好帮手 J2EE NET COM COM 等 这又大大的推动了企业的信息化进程 其影响可以归纳为 如下两点 1 计算机已经成为我们学习和工作的得力助手 首先 计算机可以代替人工进行许多繁杂的劳动 其次 计算机可以节省许多资源 第三 计算机可以大大的提高人们的工作效率 第四 计算机可以使敏感文档更加安全 等等 2 开发医院管理系统的意义 现在我国的一些小型医院或诊所对于病人就诊信息的处理还停留在纸介质或半自 动 由电脑处理一部分数据 由人工处理一部分数据 的基础上 这样的机制已经不 能适应时代的发展 因为它浪费了许多人力和物力 在信息时代这种传统的管理方法 必然被计算机为基础的信息管理所取代 软件作为一有项有力的工具 只能当此种工 具 与我们的实践相结合起来的时候 才具有重大的社会价值及使用价值 因此根据 企业目前实际的医院管理情况开发一套医院管理系统是十分必要的 课题背景课题背景 要提高竞争力 既要有好的就医环境 同时也要有好的客户服务 而要实现这些 目标的办法就是信息化 医院信息化建设的目标是 适应我国全面建设小康社会和医 药卫生改革发展的形势 以病人为中心 综合运用现代信息技术 计算机 网络 通 讯等 充分体现药特点 提高医疗质量和市场竞争能力 满足患者与医院管理的多种 需求 促进医院持续快速稳定发展 在手工管理的情况下 对病人的病历的管理是一个极其繁杂的过程 医生很难记 住每一位病人的情况 就医记录 所以往往采用的手工记录的方式 这个势必造成具 大的物资浪费 并且随着医院规模的扩大 对药品的管理 对药品价格的管理等都是一件巨大的 工作 国内外研究现状国内外研究现状 通过这前段时间的市场调查和分析 初步了解到现在各种进销存软件的优点及不 足 比如说有些传统进销存软件是为替代手工录入 从传统数据记录中产生的 这些 学习好帮手 软件面对 Internet 及电子商务迅猛发展的网络经济时代显得如此脆弱而只能望 e 兴叹 1 体系封闭 无法实现网络化管理 更无法支持电子商务 传统软件由于产生的 技术背景落后 无法实现网络化管理或只支持局部网络应用 更无法支持电子商 务 不能适应网络时代企业的需求 2 信息单一 落后且缺乏前瞻性 由于技术方面的限制 传统软件无法做到库存 信息的实时动态处理 事前的预测并提供前瞻性信息 3 对管理考虑甚少 软件依旧没有摆脱传统束缚 以对外报告为其存在目的 课题目的课题目的 当今时代是飞速发展的信息时代 在各行各业中离不开信息处理 这正是计算机 被广泛应用于信息管理系统的环境 计算机的最大好处在于利用它能够进行信息管理 使用计算机进行信息控制 不仅提高了工作效率 而且大大的提高了其安全性 尤其对于复杂的信息管理 计算机能够充分发挥它的优越性 计算机进行信息管理与 信息管理系统的开发密切相关 系统的开发是系统管理的前提 本系统就是为了更好 管理门诊信息信息而设计的 当前 医院作为病人就诊的地方 有许多信息需要处理和管理 现今 有很多门 诊信息都是初步开始使用 甚至尚未使用计算机进行信息处理 根据调查得知 他们 以前对信息管理的主要方式是基于文本 表格等纸介质的手工处理 对于医历等很多 信息都是用人工计算 手抄进行 数据信息处理工作量大 容易出错 由于数据繁多 容易丢失 且不易查找 总的来说 缺乏系统 规范的信息管理手段 数据处理手工操作 工作量大 出错率高 出错后不易更改 基于这此问题 我 认为有必要建立一个医院管理系统 使医院管理工作规范化 系统化 程序化 避免 医院管理的随意性 提高信息处理的速度和准确性 能够及时 准确 有效的查询和 修改医院情况 开发门诊管理系统的现实意义 现在我国的多数诊所或小型医院的管理水平还停留在纸介质的基础上 这样的机 制已经不能适应时代的发展 因为它浪费了许多人力和物力 在信息时代这种传统的 管理方法必然被计算机为基础的信息管理所取代 归纳起来 好处大约有以下几点 1 可以存储以往的门诊信息 安全 高效 学习好帮手 2 只需一到二名信息录入员即可操作系统 节省大量人力 3 可以迅速查到所需信息 学习好帮手 第二章 相关技术介绍第二章 相关技术介绍 2 1 开发环境开发环境 本系统采用面向对象的软件开发方法 以 Microsoft 公司的可视开发环境 Visual Basic 6 0 作为主要开发工具 使用 Microsoft Access 2000 作为关系数据库 并在 VB 编程语言中采用 ADO 数据库编程模型 配合功能强大的 SQL 查询语言实现建立关系 数据库 访问数据库 对数据库的更新 较好地实现了预定的需求功能 2 1 1 Visual Basic 6 0 开发环境 Visual Basic 6 0 是一种可视化 面向对象和采用事件驱动方式的结构化高级程 序设计语言 可用于开发 Windows 环境下的各类应用程序 它简单易学 效率高 且 功能强大 在 Visual Basic 环境下 利用事件驱动的编程机制 新颖易用的可视化设 计工具 使用 Windows 内部的应用程序接口 API 函数 以及动态链接库 DLL 动 态数据交换 DDE 对象的链接与嵌入 OLE 开放式数据连接 ODBC 等技术 可 以高效 快速地开发出 Windows 环境功能强大 图形界面丰富的应用软件系统 总的来看 Visual Basic 有以下主要特点 1 可视化编程 Visual Basic 提供了可视化设计工具 把 Windows 界面设计复杂性 封装 起来 开发人员不必为界面设计而编写大量程序代码 只需要按设计要求的屏幕布局 用系 统提供的工具 在屏幕上画出各种 部件 即图形对象 并设置这些图形对象的属性 Visual Basic 自动产生界面设计代码 程序设计人员只需要编写实现程序功能的那部 分代码 从而可以大大提高程序设计的效率 2 面向对象的程序设计 在一般的面向对象程序设计语言中 对象由程序代码和数据组成 是抽象的概念 而 Visual Basic 则是应用面向对象的程序设计方法 OOP 把程序和数据封装起作为 一个对象 并为每个对象赋予应有的属性 使对象成为实在的东西 在设计对象时 不必编写建立和描述每个对象的程序代码 而是用工具画在界面上 Visual Basic 自 动生成对象的程序代码并封装起来 每个对象以图形方式显示在界面上 都是可视的 学习好帮手 3 事件驱动编程机制 Visual Basic 通过事件来执行对象的操作 一个对象可能会产生多个事件 每个 事件都可以通过一段程序来响应 例如 命令按钮是一个对象 用户单击该按钮时 将产生一个 单击 事件 而产生该事件时将执行一段程序 用来实现指定的操作 在用 Visual Basic 设计大型应用软件时 不必建立具有明显开始和结束的程序 而是编写若干个微小的子程序 即过程 这些过程分别面向不同的对象 由用户操作 引发某个事件来驱动执行某特定的功能 或者由事件驱动程序调用通用过程来执行指 定的操作 这样可以方便编程人员 提高效率 4 访问数据库 Visual Basic 系统具有很强的数据库管理功能 利用数据控件和数据库管理窗口 可以直接建立或处理 Microsoft Access 格式的数据库 并提供强大的数据存储和检索 功能 同时 Visual Basic 还能直接编辑和访问其他外部数据 Visual Basic 提供开放式数据连接 Open DataBase Connectivity 即 ODBC 功 能 它可通过直接访问或建立连接的方式使用并操作后台大型网络数据库 如 SQL Server Oracle 等 在应用程序中 可以使用结构化查询语言 SQL 数据标准 直接访 问 Server 上的数据库 并提供了简单的面向对象的库操作指令 多用户数据库访问的 加锁机制和网络数据库的 SQL 的编程技术 为单机上运行的数据库提供了 SQL 网络接 口 以便在分布式环境中快速而有效地实现客户服务器方案 Visual Basic 6 0 是专门为 Microsoft 的 32 位操作系统设计的 可用来建立 32 位的应用程序 在 Windows9x WindowsNT 或 Windows2000 环境下 用 Visual Basic 6 0 的编译器可以自动生成 32 位应用程序 这样的应用程序在 32 位操作系统下运行 速 度更快 更安全 并且更适合在多任务环境下运行 2 1 2 Microsoft Access 与 ADO 作为应用程序与 OLE DB 连接的桥梁 ActiveX Data Objects ADO 为 Visual Basic 6 0 下开发的应用程序访问本地或远程数据库提供了有效的手段 Microsoft ActiveX Data Objects ADO 主要优点是易于使用 高速度 低内存支出和占用磁盘 空间较少 ADO 支持用于建立基于客户端 服务器和 Web 的应用程序的主要功能 在 VB 中 可以使用开发环境提供的 ADO 控件 数据库访问方法 对 ACCESS 中建立的关系 数据库简单快捷的进行访问 2 1 3 SQL 查询语言及使用 SQL 语言是结构化语言 Structure Query Language 的缩写 是一种用于数据库 学习好帮手 查询和编程的语言 已经成为关系型数据库普遍使用的标准 使用这种标准数据库语 言对程序设计和数据库的维护都带来了极大的方便 广泛地应用于各种数据查询 VB 和其他的应用程序包括 Access Foxpro Orcale SQL Server 等都支持 SQL 语言 SQL 语言的常用操作有 建立数据库数据表 CREATE TABLE 如本系统中的 学生及成绩备份就用到该语句 从数据库中筛选一个记录集 SELECT 这是最常用 的一个语句 功能强大 能有效地对数据库中一个或多个数据表中的数据进行访问 并兼有排序 分组等功能 在数据表中添加一个记录 INSERT 删除符合条件的记 录 DELETE 更改符合条件的记录 UPDATE VB 中的数据库操作对象都提供了对 SQL 语句的支持 其一般的用法是以 VB 的 各种控件接收用户对数据库访问的请求 在事件响应程序代码中将其转换成对数据库 的 SQL 查询语句 并以字符串的形式存在 然后将其传递给相应的数据库操作对象 最终完成对数据库的访问 学习好帮手 第三章第三章 系统分析系统分析 3 1 系统的初步调查 3 1 1 系统的初步调查 系统的初步调查目标是在可行性分析的基础上进一步对原有系统进行的调查和分 析 弄清原有管理信息系统的运行状况 发现其薄弱环节 找出要解决问题的实质 确保新系统比原系统更加有效 可靠 具体内容包括 管理业务状况的调查分析 数 据流程的调查分析 调查之后 绘制出医院信息管理系统的业务流程图 查询结果 用户设置 设计要求 表单维护 统计结果 图 3 1 1 3 1 2 系统逻辑模型的提出 为了实现管理信息系统的计算机化 仅仅用业务流程图形象地描述信息的流动和 存储还远远不够 还要进一步调查分析舍去物质流 抽象出信息流 绘制出数据流程 图 并对各种数据的属性和各项处理功能进行详细分析 系统分析的主要成果是系统 的逻辑模型 本系统主要是以数据流图 数据字典为主要描述工具来勾画系统的概貌 3 1 3 数据流图 数据流图 Data Flow Diagram 是描述系统逻辑模型的主要工具之一 它是在 对系统的业务流程图进行分析的基础上用少数几种符号综合地反映出信息在系统中的 流动 存储和处理等情况 并能将信息处理功能和彼此之间的联系 自上而下 逐层 分解 从逻辑上精确地描述出系统应具有的数据加工功能 数据输入输出 数据存储 数据来源和去向等项目 系统管理 人员 医院信管 理系统 一般用户 学习好帮手 图 3 1 3 3 1 4 数据字典 数据字典 Data Dictionary 是数据流图 DFD 上所有成分的定义和解释的文字集 合 它是系统分析阶段的重要文档 它的作用是将数据流图中全部数据流及其组成部 分的数据元素 数据存储 数据加工外部项等 通过数据字典描述清楚 以便于以后 系统设计时使用 3 2 系统功能调查 3 2 1 医院管理信息系统的功能 基础数据维护 对用户信息的管理 药品管理 主要对药品类别 药品类型及药品信息的管理 挂号 病人就医的主流程之一 为每一个病人分配一个号码 划价 计算药品的价格 主要包括中药 西药 中成药等 门诊收费 对各项收费进行汇总 如中药 西药 中成药等 查询 对挂号信息 收费信息进行查询 3 2 2 基础数据管理 医院设置 门诊信息 药房信息 药品信息 常用基础数据 药品价格 药品数量 挂号 医师费等 用户信息表 药品管理 操作员 用户信息 管理 用户信息 药品类别信息 划价药品信息表 划价信息 管理 划价信息 用户信息 收费信息管理 药品收费信息表 学习好帮手 3 2 3 系统维护功能 用户管理 包括新增用户 删除用户 修改用户密码等 数据库备份 数据操作 数据初始化 初始化系统数据 3 3 系统总体流程图 图 3 3 系统总体流程图 用户信息表 药品管理 操作员 用户信息 管理 用户信息 药品类别信息 划价药品信息表 划价信息 管理 划价信息 用户信息 收费信息管理 药品收费信息表 学习好帮手 第四章第四章 系统设计系统设计 4 1 模块设计模块设计 本系统主要针对医院管理 主要有如下功能模块 基础数据维护 对用户信息的管理 药品管理 主要对药品类别 药品类型及药品信息的管理 挂号 病人就医的主流程之一 为每一个病人分配一个号码 划价 计算药品的价格 主要包括中药 西药 中成药等 门诊收费 对各项收费进行汇总 如中药 西药 中成药等 查询 对挂号信息 收费信息进行查询 功能模块功能模块 管理信息系统设计阶段的主要目的是将系统分析阶段所提出的反映了用户信息需 求的系统逻辑方案转换成可以实施的基于计算机与通信系统的物理 技术 方案 具体要求对系统进行功能分解 不断下去 直到分解成含义明确 功能单一的单 元功能模块 从而绘制出系统的功能模块图 即 HIPO 图 此管理信息系统的 HIPO 图 如下 门诊收费管理 基 础 数 据 药 品 管 理 类 别 设 定 药 品 管 理 最 低 库 存 科 室 管 理 医 师 管 理 挂 号 划 价 收 费 查 询 挂 号 查 询 收 费 查 询 学习好帮手 4 3 数据流图数据流图 图 4 3 1 数据流图 4 4 数据库设计数据库设计 数据库设计是要在一个给定的应用环境 DBMS 中 通过合理的逻辑设计和有效 的物理设计 构造较优的数据库模式 子模式 建立数据库和设计应用程序 满足用 户的各种信息需求 1 概念结构设计 在数据库设计中 先要对系统分析所得的数据字典中的数据存储进行分析 然后 得出系统的关系模式 可以采用实体 联系图 简称 E R 图 的方法进行数据结 构的描述 E R 图由实体 属性 联系三部分组成 E R 图的有关符号说明如下 实体属性联系 用户信息表 药品管理 操作员 用户信息 管理 用户信息 药品类别信息 划价药品信息表 划价信息 管理 划价信息 用户信息 收费信息管理 药品收费信息表 编号 名称日期 其它 来源 散件 3 5 1 4 散件实体 学习好帮手 图 4 3 1 用户 E R 图 图 4 3 2 药品单位 E R 图 图 4 3 3 药品类型 E R 图 ID 帐号 密码 用户 ID 单位名称 说明 药品单位 ID 类型名称 说明 药品类型 学习好帮手 图 4 3 4 科室 E R 图 图 4 3 4 医师 E R 图 图 4 3 5 药品 E R 图 实体间主要关系如下 编号 药品编码药品名称 有效期 型号规格 药品 病人 挂号药品划价 ID 科室名称 说明 科室 ID 医师名称 说明 医师 药品 属于门诊收费 学习好帮手 图 4 3 6 实体间主要关系图 2 物理结构设计 物理结构设计的原则如下 1 尽可能的减少数据冗余和重复 2 结构设计与操作设计相结合 3 数据结构具有相对的稳定性 基于以上设计原则 本系统设计了一个数据库 包含基本信息表 如药品 医师 科室等 及几个实体联系建模后的表 如划价信息表 收费信息表等 为了加快系统 访问的速度把这些表放在一个数据库中 本系统中相关数据库表结构设计举例如下 1 用户表 p user 编号字段名称字段类型字段说明 1ID 数值 ID 2 用户名文本用户名 3 密码文本 密码 2 药品单位 med dw 编号字段名称字段类型字段说明 1ID 数值 ID 2 单位名称文本单位名称 3 单位名称文本单位名称 4 单位名称文本单位名称 5 单位名称文本单位名称 6 单位名称文本单位名称 3 药品类型表 med type 编号字段名称字段类型字段说明 1ID 数值 ID 医师 学习好帮手 2 类型名称文本类型名称 3 类型名称文本类型名称 4 科室表 med ks 编号字段名称字段类型字段说明 1ID 数值 ID 2 科室名称文本科室名称 3 科室名称文本科室名称 4 科室名称文本科室名称 5 药品划价表 hj t 编号字段名称字段类型字段说明 1ID 数值 ID 2 药品编码文本药品编码 3 药品名称日期药品名称 4 型号规格文本型号规格 5 数量数值数量 6 应付款数值应付款 7 挂号 ID数值挂号 ID 6 药品划价汇总表 hj 编号字段名称字段类型字段说明 1ID 数值 ID 2 类型文本类型 3 应收款数值应收款 4 挂号 ID数值挂号 ID 7 门诊收费表 hj aa 编号字段名称字段类型字段说明 1ID 数值 ID 学习好帮手 2 收费项目文本收费项目 3 应付款数值应付款 4 挂号 ID数值挂号 ID 8 门诊收费汇总表 hj a 编号字段名称字段类型字段说明 1ID 数值 ID 2 类型文本类型 3 应收款数值应收款 4 挂号 ID数值挂号 ID 4 5 系统界面设计系统界面设计 系统主界面系统主界面 在此系统中 充分考虑到人们的使用习惯 利用了菜单对系统中功能进行分类列 举 用使对系统的使用 通过菜单即能完成 这样使得主界面简洁 易于使用 另一方 面 对当前使用的某一功能选项对应的窗口 以模式的方式进行工作 使得在同一窗 口 仅能打开某一类功能的窗口 也在一定程度上减轻了用户的使用难度 系统的主 界面如下 学习好帮手 窗体和控件的属性见表 主窗体及控件属性设置 控件属性属性取值 namefrmmain caption 门诊收费管理系统 Frmmain startuppositoncenterscreen namestatusbar1 Panels 1 XbrText Panels 2 SrDate statusbar Panels 3 SbrTime 用户管理界面用户管理界面 此界面为本系统中 较常用的一种界面结构 主要由最上方的工具条 中间的现有 数据显示区及下方的新增内容区 在系统细节 主要采用了一个 ADO recordset 对象 当增加保存时 使用了其 addnew 及 post 方法 当删除某一行数据时 使用了其 Delete post 方法 用户管理窗体的界面如下图示 学习好帮手 窗体用一个表格控件 msf1exgrid 一个工具条控件 too1bar 两个标签控件 table 组成 各控件的属性如下表 用户管理窗体中各个控件的属性设置 控件 属性 属性取值 name Frm 用户管理 caption 用户管理 Form startUpPositonCenterScreen NameToo1bar1 Appeatance1 3D Borderstyle1 ccfixedSngle Index 1 增加 Index 2 删除 Index 3 修改 Too1bar Index 4 退出 NameDatagrid 滚动条 S 3 Both 选定模式 M 1 By Row MSFlexridg 允许用户调整大小 U 3 Both Lable1Caption 用户名 Lable2Caption 密码 主要实现代码如下 Private Sub Form Load 学习好帮手 Call ExcuteSql rec user select from p user Call ShowInfo rec user flexb End Sub Public Sub ShowInfo ByVal rs As ADODB Recordset ByVal searchList As MSHFlexGrid On Error Resume Next Dim SumFields i j SumFields rs Fields Count 该表的字段总数 searchList Clear 清空列表 防止增加或修改调用时重复显示 searchList BackColor HC0FFFF 设置网格背景颜色 searchList Cols SumFields 设置网格列数 searchList Row 0 With searchList FillStyle flexFillSingle ScrollTrack True AllowUserResizing flexResizeColumns FixedRows 1 FixedCols 0 SelectionMode flexSelectionByRow End With 设置第一行的各列标题 For i 0 To SumFields 1 searchList Col i searchList TextMatrix 0 i rs Fields i Name searchList ColAlignmentFixed i 3 searchList BackColor H8000000F Next i 设置第一行的各列标题文字格式 For i 0 To SumFields 1 searchList Col i searchList CellAlignment 4 searchList CellFontBold True searchList CellForeColor vbBlue j TextWidth rs Fields i DefinedSize 8 学习好帮手 设置标题宽度 防止部分长文字不显示 If j searchList ColWidth i Then searchList ColWidth i j End If Next i 循环开始 显示所有符合条件记录 rs MoveLast searchList Rows rs RecordCount 1 其中标题占一行 rs MoveFirst searchList Row 0 While Not rs EOF searchList Row searchList Row 1 增加一行 用于写入内容 For i 0 To SumFields 1 searchList Col i If searchList Col 0 Then searchList CellBackColor H8000000F End If searchList CellAlignment 4 读入内容 If Not IsNull rs Fields i Value Then searchList Text rs Fields i Value Else searchList Text End If Next i 学习好帮手 rs MoveNext Wend 循环结束 显示所有符合条件记录 End Sub Private Sub tblOperator ButtonClick ByVal Button As MSComctlLib Button Select Case Button Key Case add Call Form3 setType add Form3 Show vbModal Case modify Call Form3 setType modify Form3 Show vbModal Case exit Unload Me Case delete rec user Delete rec user Update End Select Call ShowInfo rec user flexb End Sub Private Sub flexb DblClick If Not rec user EOF Then Dim f As New Form3 Call f setType modify f Show vbModal Call ShowInfo rec user flexb End If End Sub Private Sub flexb SelChange 学习好帮手 Dim strID strFind Call GetFlexGridFirstColValue flexb strID If strID Empty Then strFind ID Trim strID If Not rec user EOF And rec user BOF Then rec user MoveFirst rec user Find strFind 实时的移动记录 Debug Print Move to strID End If End If End Sub 药品管理界面药品管理界面 本界面 主要实现对药品信息的管理 如药品编码 药品名称 型号规格 有效期 等 能进行完备的药品编辑操作 各控件的属性如下表 学习好帮手 药品管理窗体中各个控件的属性设置 控件 属性 属性取值 name Frm 药品管理 caption 药品管理 Form startUpPositonCenterScreen NameToo1bar1 Appeatance1 3D Borderstyle1 ccfixedSngle Index 1 增加 Index 2 删除 Index 3 修改 Too1bar Index 4 退出 NameDatagrid 滚动条 S 3 Both 选定模式 M 1 By Row MSFlexridg 允许用户调整大小 U 3 Both Lable 1Caption 药品编码 Lable 2Caption 药品名称 Lable 3Caption 型号规格 Lable 4Caption 单位 Lable 5Caption 单价 Lable 6Caption 库存量 Lable 7Caption 有效期 主要代码如下 Private Sub tblOperator ButtonClick ByVal Button As MSComctlLib Button Select Case Button Key Case add Call Form13 setType add Form13 Show vbModal Case modify Call Form13 setType modify Form13 Show vbModal Case exit Unload Me Case delete rec med Delete 学习好帮手 rec med Update End Select Call ShowInfo rec med flexb End Sub Private Sub flexb DblClick If Not rec med EOF Then Dim f As New Form13 Call f setType modify f Show vbModal Call ShowInfo rec med flexb End If End Sub Private Sub flexb SelChange Dim strID strFind Call GetFlexGridFirstColValue flexb strID If strID Empty Then strFind ID Trim strID If Not rec med EOF And rec med BOF Then rec med MoveFirst rec med Find strFind 实时的移动记录 Debug Print Move to strID End If End If End Sub 挂号界面挂号界面 挂号是系统主要流程的第一步 它的主要功能是为病人人分配一个唯一的编号 在以后的流程中 这个编号即挂的号为划价 收费的基础 在具体的实现中 在医师 输入框后 放置了一命令按钮 方便用户快速的查找医师的信息 医师的信息也是以 后查询医师的业绩的主要标识 学习好帮手 挂号窗体中放置了一个组合框控件 两个命令按钮 三个标签和两个文本框 各控件 的属性见下表 挂号窗体控件属性表 控件属性属性取值 NameFrm 挂号 Caption挂号 Form startUpPsitonCenterScreen TextBoxName医师 TextBoxName挂号费 ComboBoxNameCmb 类型 NameCmdSave CommandButton Caption保存 NameCmdCancelCommandButton Caption退出 Lable1Caption类型 Lable2Caption医师 Lable3Caption挂号费 主要代码如下 Private Sub Command1 Click Dim c gl As String If Trim Text1 Then Text1 SetFocus End If If t add And Text1 Text init Then c gl Now c gl Replace c gl c gl Replace c gl c gl Replace c gl Call ExcuteSql rec gh select from med gl 学习好帮手 If rec gh State adStateOpen Then rec gh AddNew rec gh Fields 类型 Trim Combo1 Text rec gh Fields 医师 ID Trim Text1 rec gh Fields 挂号费 Trim Text3 rec gh Fields 编号 Trim c gl rec gh Update MsgBox 你的挂号号码 c gl Text1 init Text2 Text3 End If End If If t modify Then If rec gh State adStateOpen Then rec gh Fields 类型 Trim Combo1 Text rec gh Fields 医师 ID Trim Text1 rec gh Fields 挂号费 Trim Text3 rec gh Update rec gh Update End If End If If ck Value 1 Then Unload Me End If End Sub 划价界面划价界面 所谓的划价 就是将医生所给的药品清单 以系统中拟定的价格计算应收款的过程 主要包括医人的挂号信息 药品信息等 在实现上 要求用户首先选择一挂号信息 然后 打开此编号对应的划价的信息 用户可以增加 也可以在已有的基础上进行修 改和删除 药品划价窗体如下图所示 学习好帮手 该窗体由一个表格控件 十个文本框控件 三个按钮控件 十一个标签控件和一个组 合控件组成 各控件的属性如下表 药品划价窗体控件属性表 控件属性属性取值 NameFrm 部门信息 Caption部门信息 Form startUpPositonCenterScreen NameDatagrid 滚动条 S 3 Both 选定模式 M 1 By Row MSFlexgrid 允许用户调整大小 U 3 Both CommandButtonCaption增加 CommandButtonCaption删除 CommandButtonCaption打开 TextBoxNameTxt 类型 TextBoxNameTxt 医师 TextBoxNameTxt 编号 TextBoxNameTxt 药品编码 TextBoxNameTxt 药品名称 TextBoxNameTxt 型号规格 TextBoxNameTxt 数量 学习好帮手 TextBoxNameTxt 总计 TextBoxNameTxt 预付 TextBoxNameTxt 找补 Lable1Caption类型 Lable2Caption医师 Lable3Caption编号 Lable4Captio