医院信息管理系统论文：医院信息管理系统分析研究.doc

毕 业 论 文 题目：医院信息管理系统分析研究 第 1 页 摘 要 医院管理系统是典型的管理信息系统(MIS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的开发两个方面.对于前者要求建立数据一致性和 完整性强,数据安全性好的数据库.而对于后者则要求应用程序功能完备,易使用 等特点. 计算机化的医院信息系统已成为现代化医院运营必不可少的基础设施与技 术支撑环境。就好象一个现代化医院的成功运行离不开功能完整，美观舒适的 建筑物，技术娴熟的医护人员，性能齐全，高精尖的医疗设备一样，它也离不 开计算机化的医院信息系统。 经过分析如此情况,我们使用 VB ,数据库等开发工具,利用其提供的各种 面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对 象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断 修正和改进,直到形成用户满意的可行系统. 关键词：原型法 面向对象 数据一致性 数据窗口 医院管理系统 第 2 页 目录 1第一章 绪 论 3 2第二章 相关技术介绍 6 2.1课题背景 4 2.2国内外研究现状4 2.3课题目的 5 3第三章 系统分析 7 3.1系统的初步调查10 3.2系统的可行性分析 .11 3.3系统开发步骤11 4第四章 系统设计 14 4.1模块设计14 4.2开发环境 7 4.3功能模块14 4.4数据流图15 4.5数据库设计15 4.6详细设计20 第 3 页 4.6.1 系统主界面20 4.6.2 用户管理界面 .21 4.6.3 药品管理界面 .26 4.6.4 挂号界面.28i 4.6.5 划价界面30 5第五章 开发总结 33 6 第六章 致 谢3 4 7 参考文 献 35 第 4 页 第一章 绪 论 随着社会化大生产的不断扩大和社会对产品多样化的需求，人们越来越重 视信息在生产经营及企业管理中的作用，并把它当做企业的一种极其重要的资 源，人们称之为“信息资源” ，信息资源的处理已经成为当今世界上一项主要 的社会活动。同样，在医疗系统中也不例外，其中加强对门诊信息的管理，一 方面能更好为病人服务，另一方面能加强对医院效益的监控。 本世纪以来，由于社会生产力的迅速发展和科学技术的突飞猛进，人们进 行信息交流的深度和广度不断增加，管理所需要的信息量急剧增长，同时对信 息的处理要求及时、准确，这导致了传统的信息处理方法和手段已不能适应现 代管理的需要；电子计算机的诞生和在信息处理中的应用，标志着一个崭新时 代“信息时代”的开始，它使企业管理现代化成为可能。 管理信息系统的发展 管理信息系统通过对企业当前运行的数据进行处理 来获得有关信息，以控制企业的行为；利用过去和现在的数据及相应的模型， 对未来的发展进行预测；能从全局目标出发，对企业的管理决策活动予以辅助。 从工业发达国家来看，管理信息系统的发展经历了以下几个阶段。 第一阶段：（1953 年至 1965 年）单项数据处理阶段，也称电子数据处理 （EDP）阶段。这是电子计算机在管理领域应用的起步阶段。这一阶段，由于 当时计算机硬、软件的限制，数据处理的性质只是使用计算机代替人的手工劳 动，进行简单的单项数据处理工作， 第二阶段：（1965 年至 1970 年）综合数据处理阶段，也称事务处理系统 （TPS）阶段。这个阶段计算机硬、软件有了很大的发展，出现了多用户的分 第 5 页 时系统，计算机开始应用于对某一个管理子系统的控制，并具有一定的反馈功 能。 第三阶段：（1970 年至今）管理信息系统（MIS）阶段。这个阶段是在企 业中全面的使用计算机把各种管理子系统的功能集中起来，构成了计算机化的 全方位的信息系统，即现代管理信息系统。 总的说来，计算机技术的发展，其性价比大幅的下降，使得其被大量广泛 的使用。针对现实中的各种应用需求，相应的产生很多技术体系、技术标准， 如 J2EE、 。NET，COM/COM+等。这又大大的推动了企业的信息化进程。其 影响可以归纳为如下两点： (1)计算机已经成为我们学习和工作的得力助手： 首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以节省许多资源； 第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全，等等。 (2)开发医院管理系统的意义 现在我国的一些小型医院或诊所对于病人就诊信息的处理还停留在纸介质 或半自动（由电脑处理一部分数据，由人工处理一部分数据）的基础上，这样 的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代 这种传统的管理方法必然被计算机为基础的信息管理所取代。软件作为一有项 有力的工具，只能当此种工具，与我们的实践相结合起来的时候，才具有重大 的社会价值及使用价值。因此根据企业目前实际的医院管理情况开发一套医院 管理系统是十分必要的。 第 6 页 课题背景 要提高竞争力，既要有好的就医环境，同时也要有好的客户服务，而要实 现这些目标的办法就是信息化。医院信息化建设的目标是：适应我国全面建设 小康社会和医药卫生改革发展的形势，以病人为中心，综合运用现代信息技术 （计算机、网络、通讯等） ，充分体现药特点，提高医疗质量和市场竞争能力， 满足患者与医院管理的多种需求，促进医院持续快速稳定发展。 在手工管理的情况下，对病人的病历的管理是一个极其繁杂的过程，医生 很难记住每一位病人的情况，就医记录。所以往往采用的手工记录的方式，这 个势必造成具大的物资浪费。 并且随着医院规模的扩大，对药品的管理，对药品价格的管理等都是一件 巨大的工作。 国内外研究现状 通过这前段时间的市场调查和分析，初步了解到现在各种进销存软件的优 点及不足。比如说有些传统进销存软件是为替代手工录入，从传统数据记录中 产生的，这些软件面对 Internet 及电子商务迅猛发展的网络经济时代显得如此 脆弱而只能望 e 兴叹！ 1、体系封闭，无法实现网络化管理，更无法支持电子商务。传统软件由于 产生的技术背景落后，无法实现网络化管理或只支持局部网络应用，更无 法支持电子商务，不能适应网络时代企业的需求。 2、信息单一、落后且缺乏前瞻性，由于技术方面的限制，传统软件无法做 到库存信息的实时动态处理、事前的预测并提供前瞻性信息。 3、对管理考虑甚少。软件依旧没有摆脱传统束缚，以对外报告为其存在目 第 7 页 的。 课题目的 当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是 计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够 进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的 提高了其安全性。 尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息 管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统 就是为了更好管理门诊信息信息而设计的。 当前，医院作为病人就诊的地方，有许多信息需要处理和管理。现今，有 很多门诊信息都是初步开始使用，甚至尚未使用计算机进行信息处理。根据调 查得知，他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处 理，对于医历等很多信息都是用人工计算、手抄进行。数据信息处理工作量大， 容易出错；由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统，规 范的信息管理手段。 数据处理手工操作，工作量大，出错率高，出错后不易更改。基于这此问 题，我认为有必要建立一个医院管理系统，使医院管理工作规范化，系统化， 程序化，避免医院管理的随意性，提高信息处理的速度和准确性，能够及时、 准确、有效的查询和修改医院情况。 开发门诊管理系统的现实意义： 现在我国的多数诊所或小型医院的管理水平还停留在纸介质的基础上，这 样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时 第 8 页 代这种传统的管理方法必然被计算机为基础的信息管理所取代。 归纳起来，好处大约有以下几点： 1 可以存储以往的门诊信息，安全、高效； 2 只需一到二名信息录入员即可操作系统，节省大量人力； 3 可以迅速查到所需信息。 第 9 页 第二章、相关技术介绍 21 开发环境 本系统采用面向对象的软件开发方法，以 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 界面设计复杂性“封 装”起来，开发人员不必为界面设计而编写大量程序代码，只需要按设计要求 的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件” ，即图形对象， 第 10 页 并设置这些图形对象的属性。Visual Basic 自动产生界面设计代码，程序设计 人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效 率。 2.面向对象的程序设计 在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象 的概念；而 Visual Basic 则是应用面向对象的程序设计方法（OOP） ，把程序 和数据封装起作为一个对象，并为每个对象赋予应有的属性，使对象成为实在 的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工 具画在界面上，Visual Basic 自动生成对象的程序代码并封装起来。每个对象 以图形方式显示在界面上，都是可视的。 3.事件驱动编程机制 Visual Basic 通过事件来执行对象的操作。一个对象可能会产生多个事件， 每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，用户单击 该按钮时，将产生一个“单击”事件，而产生该事件时将执行一段程序，用来 实现指定的操作。 在用 Visual Basic 设计大型应用软件时，不必建立具有明显开始和结束的 程序，而是编写若干个微小的子程序，即过程，这些过程分别面向不同的对象， 由用户操作引发某个事件来驱动执行某特定的功能，或者由事件驱动程序调用 通用过程来执行指定的操作。这样可以方便编程人员、提高效率。 4.访问数据库 Visual Basic 系统具有很强的数据库管理功能。利用数据控件和数据库管 理窗口，可以直接建立或处理 Microsoft Access 格式的数据库，并提供强大 的数据存储和检索功能。同时，Visual Basic 还能直接编辑和访问其他外部数 第 11 页 据。 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）的缩写，是一种 用于数据库查询和编程的语言，已经成为关系型数据库普遍使用的标准，使用 第 12 页 这种标准数据库语言对程序设计和数据库的维护都带来了极大的方便，广泛地 应用于各种数据查询。VB 和其他的应用程序包括 Access、Foxpro、Orcale、SQL Server 等都支持 SQL 语言。 SQL 语言的常用操作有：建立数据库数据表（CREATE TABLE） ，如本系 统中的学生及成绩备份就用到该语句；从数据库中筛选一个记录集（SELECT） ， 这是最常用的一个语句，功能强大，能有效地对数据库中一个或多个数据表中 的数据进行访问，并兼有排序、分组等功能；在数据表中添加一个记录 （INSERT） ；删除符合条件的记录（DELETE） ；更改符合条件的记录 （UPDATE） ； VB 中的数据库操作对象都提供了对 SQL 语句的支持。其一般的用法是以 VB 的各种控件接收用户对数据库访问的请求，在事件响应程序代码中将其转 换成对数据库的 SQL 查询语句，并以字符串的形式存在，然后将其传递给相应 的数据库操作对象，最终完成对数据库的访问。 第 13 页 第三章 系统分析 3.1 系统的初步调查 3.1.1 系统的初步调查 系统的初步调查目标是在可行性分析的基础上进一步对原有系统进行的调 查和分析，弄清原有管理信息系统的运行状况，发现其薄弱环节，找出要解决 问题的实质，确保新系统比原系统更加有效、可靠。具体内容包括：管理业务 状况的调查分析、数据流程的调查分析。 调查之后，绘制出医院信息管理系统的业务流程图， 查询结果 用户设置 设计要求 表单维护 统计结果 图 3.1.1 3.1.2 系统逻辑模型的提出 为了实现管理信息系统的计算机化，仅仅用业务流程图形象地描述信息的 流动和存储还远远不够，还要进一步调查分析舍去物质流，抽象出信息流，绘 制出数据流程图，并对各种数据的属性和各项处理功能进行详细分析。系统分 析的主要成果是系统的逻辑模型。本系统主要是以数据流图、数据字典为主要 描述工具来勾画系统的概貌。 3. 1. 3 数据流图 系统管理 人员 医院信管 理系统 一般用户 第 14 页 数据流图（Data Flow Diagram） ，是描述系统逻辑模型的主要工具之一， 它是在对系统的业务流程图进行分析的基础上用少数几种符号综合地反映出信 息在系统中的流动、存储和处理等情况，并能将信息处理功能和彼此之间的联 系，自上而下，逐层分解，从逻辑上精确地描述出系统应具有的数据加工功能、 数据输入输出、数据存储、数据来源和去向等项目。 用户信息表 药品管理 操作员 用户信息 管理 用户信息 药品类别信息 划价药品信息表 划价信息 管理 划价信息 用户信息 收费信息管理 药品收费信息表 图 3. 1. 3 3. 1. 4 数据字典 数据字典（Data Dictionary）,是数据流图（DFD）上所有成分的定义和解 释的文字集合。它是系统分析阶段的重要文档，它的作用是将数据流图中全部 数据流及其组成部分的数据元素、数据存储、数据加工外部项等，通过数据字 典描述清楚，以便于以后系统设计时使用。 3.2 系统功能调查 3.2.1 医院管理信息系统的功能 基础数据维护：对用户信息的管理 第 15 页 药品管理:主要对药品类别、药品类型及药品信息的管理 挂号:病人就医的主流程之一，为每一个病人分配一个号码 划价:计算药品的价格，主要包括中药、西药、中成药等 门诊收费:对各项收费进行汇总，如中药、西药、中成药等 查询:对挂号信息、收费信息进行查询 3. 2. 2 基础数据管理 医院设置：门诊信息 药房信息：药品信息 常用基础数据：药品价格，药品数量，挂号，医师费等 3. 2. 3 系统维护功能 用户管理：包括新增用户、删除用户、修改用户密码等。 数据库备份:数据操作 数据初始化:初始化系统数据 3.3 系统总体流程图 第 16 页 用户信息表 药品管理 操作员 用户信息 管理 用户信息 药品类别信息 划价药品信息表 划价信息 管理 划价信息 用户信息 收费信息管理 药品收费信息表 图 3.3 系统总体流程图 第四章 系统设计 41 模块设计 本系统主要针对医院管理，主要有如下功能模块： 基础数据维护：对用户信息的管理 第 17 页 药品管理:主要对药品类别、药品类型及药品信息的管理 挂号:病人就医的主流程之一，为每一个病人分配一个号码 划价:计算药品的价格，主要包括中药、西药、中成药等 门诊收费:对各项收费进行汇总，如中药、西药、中成药等 查询:对挂号信息、收费信息进行查询 功能模块 管理信息系统设计阶段的主要目的是将系统分析阶段所提出的反映了用户 信息需求的系统逻辑方案转换成可以实施的基于计算机与通信系统的物理（技 术）方案。 具体要求对系统进行功能分解，不断下去，直到分解成含义明确，功能单 一的单元功能模块，从而绘制出系统的功能模块图，即 HIPO 图。此管理信息 系统的 HIPO 图如下 门诊收费管理 基 础 数 据 药 品 管 理 类 别 设 定 药 品 管 理 最 低 库 存 科 室 管 理 医 师 管 理 挂 号 划 价 收 费 查 询 挂 号 查 询 收 费 查 询 第 18 页 43 数据流图 用户信息表 药品管理 操作员 用户信息 管理 用户信息 药品类别信息 划价药品信息表 划价信息 管理 划价信息 用户信息 收费信息管理 药品收费信息表 图 4.3.1 数据流图 44 数据库设计 数据库设计是要在一个给定的应用环境（DBMS）中，通过合理的逻辑设 计和有效的物理设计，构造较优的数据库模式、子模式，建立数据库和设计应 用程序，满足用户的各种信息需求。 第 19 页 1、概念结构设计 在数据库设计中，先要对系统分析所得的数据字典中的数据存储进行分析， 然后得出系统的关系模式，可以采用实体联系图（简称 ER 图）的方 法进行数据结构的描述。ER 图由实体、属性、联系三部分组成。ER 图的有关符号说明如下： 实体属性联系 图 4.3.1 用户 E-R 图 编号 名称日期 其它 来源 散件 3.5.1.4 散件实体 ID 帐号 密码 用户 ID 单位名称 说明 药品单位 第 20 页 图 4.3.2 药品单位 E-R 图 图 4.3.3 药品类型 E-R 图 图 4.3.4 科室 E-R 图 图 4.3.4 医师 E-R 图 编号 药品编码药品名称 有效期 型号规格 药品 ID 类型名称 说明 药品类型 ID 科室名称 说明 科室 ID 医师名称 说明 医师 第 21 页 图 4.3.5 药品 E-R 图 实体间主要关系如下: 图 4.3.6 实体间主要关系图 2、物理结构设计 物理结构设计的原则如下： （1）尽可能的减少数据冗余和重复。 （2）结构设计与操作设计相结合。 （3）数据结构具有相对的稳定性。 基于以上设计原则，本系统设计了一个数据库，包含基本信息表（如药品、 医师、科室等）及几个实体联系建模后的表（如划价信息表、收费信息表等） 。 为了加快系统访问的速度把这些表放在一个数据库中。本系统中相关数据库表 结构设计举例如下： 病人 医师 挂号药品划价药品 属于门诊收费 第 22 页 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） 编号字段名称字段类型字段说明 第 23 页 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） 第 24 页 编号字段名称字段类型字段说明 1ID 数值 ID 2 收费项目文本收费项目 3 应付款数值应付款 4 挂号 ID数值挂号 ID 8、门诊收费汇总表（hj_a） 编号字段名称字段类型字段说明 1ID 数值 ID 2 类型文本类型 3 应收款数值应收款 4 挂号 ID数值挂号 ID 45 系统界面设计 系统主界面 在此系统中，充分考虑到人们的使用习惯，利用了菜单对系统中功能进行 分类列举,用使对系统的使用，通过菜单即能完成，这样使得主界面简洁，易于 使用。另一方面，对当前使用的某一功能选项对应的窗口，以模式的方式进行 工作，使得在同一窗口，仅能打开某一类功能的窗口，也在一定程度上减轻了 用户的使用难度。系统的主界面如下: 第 25 页 窗体 和控件的属性见表 主窗体及控件属性设置 控件属性属性取值 namefrmmain caption 门诊收费管理系统 Frmmain startuppositoncenterscreen namestatusbar1 Panels( 1 )XbrText Panels( 2 )SrDate statusbar Panels( 3 )SbrTime 第 26 页 用户管理界面 此界面为本系统中，较常用的一种界面结构。主要由最上方的工具条，中 间的现有数据显示区及下方的新增内容区。 在系统细节，主要采用了一个 ADO.recordset 对象，当增加保存时，使 用了其 addnew 及 post 方法；当删除某一行数据时，使用了其 Delete,post 方法。 用户管理窗体的界面如下图示 窗体用一个表格控件 msf1exgrid,一个工具条控件 too1bar,两个标签控件 table 组成。各控件的属性如下表 用户管理窗体中各个控件的属性设置 控件 属性 属性取值 name Frm 用户管理 Formcaption用户管理 第 27 页 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 第 28 页 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 第 29 页 '设置第一行的各列标题文字格式 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 '其中标题占一行 第 30 页 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 第 31 页 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 第 32 页 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_med.EOF And rec_med.BOF) Then rec_med.MoveFirst rec_med.Find (strFind) '实时的移动记录 ' Debug.Print “Move to “ & strID End If End If 第 37 页 End Sub 挂号界面 挂号是系统主要流程的第一步，它的主要功能是为病人人分配一个唯一 的编号，在以后的流程中，这个编号即挂的号为划价、收费的基础。在具体的 实现中，在医师输入框后，放置了一命令按钮，方便用户快速的查找医师的信 息。医师的信息也是以后查询医师的业绩的主要标识. 挂号窗体中放置了一个组合框控件，两个命令按钮，三个标签和两个文本框。 各控件的属性见下表 挂号窗体控件属性表 控件属性属性取值 Name Frm 挂号 Caption 挂号 Form startUpPsitonCenterScreen TextBoxName 医师 第 38 页 TextBoxName 挂号费 ComboBoxName Cmb 类型 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 1 Then Unload Me End If End Sub 划价界面 所谓的划价，就是将医生所给的药品清单，以系统中拟定的价格计算应收 款的过程。主要包括医人的挂号信息、药品信息等。在实现上，要求用户首先 选择一挂号信息，然后，打开此编号对应的划价的信息，用户可以增加，也可 以在已有的基础上进行修改和删除。 药品划价窗体如下图所示 第 41 页 该窗体由一个表格控件，十个文本框控件，三个按钮控件，十一个标签控件和 一个组合控件组成。各控件的属性如下表。 药品划价窗体控件属性表 控件属性属性取值 Name Frm 部门信息 Caption 部门信息 Form startUpPositonCenterScreen NameDatagrid 滚动条( S ) 3-Both 第 42 页 选定模式( M ) 1-By Row MSFlexgrid 允许用户调整大小( U ) 3-Both CommandButtonCaption 增加 CommandButtonCaption 删除 CommandButtonCaption 打开 TextBoxName Txt 类型 TextBoxName Txt 医师 TextBoxName Txt 编号 TextBoxName Txt 药品编码 TextBoxName Txt 药品名称 TextBoxName Txt 型号规格 TextBoxName Txt 数量 TextBoxName Txt 总计 TextBoxName Txt 预付 TextBoxName Txt 找补 Lable1Caption 类型 Lable2Caption 医师 Lable3Caption 编号 Lable4Caption 药品编码 Lable5Caption 药品名称 Lable6Caption 型号规格 Lable7Caption 数量 第 43 页 Lable8Caption 总计 Lable9Caption 预付 Lable10Caption 类型 主要代码如下: Private Sub Command5_Click() /打开按钮对应代码 If Text10.Text 0 Then Text14.Text = rec_comm2(“ID“) Call ExcuteSql(rec_hjt, “select * from hj_t where 挂号 ID=“ & Text14.Text) 第 44 页 Call ShowInfo(rec_hjt, flexb) End If Command2.Enabled = True Command4.Enabled = True Else MsgBox “请选择挂号编号“ End If End Sub 第 45 页 第 46 页 第五章 开发总结 通过几月的系统分析、设计、开发，系统编码完成。在系统的开发过程中， 以前学习感到很抽象的课程，如软件工程、数据库原理、面向对象程序设等变 得清晰起来。感觉到这几门理论课程的重要性。 以前做一些应用的系统开发，随意性大，想到那里做到那里，没有统一的 规划，一旦系统成型，出现错误返工修改工作量大，最终的系统可靠性不高。 另外一直以来，进行程序设计均采用结构化开发方法，对系统的全貌难以在开 发前看到，导致实现的系统不满足需求。 这次的毕业设计开发，主要有以下几点收获： 1对原型化的系统开发方法有了一定的了解。渐增式的原型化开发方法 与面向对象的程序设计的结合不但能在系统开发初期让用户了解系统的概貌， 而且能使系统开发模块化，提高开发效率，减少出错。对于后期的系统维护也 提供了很大的帮助。 2通过实践，提高了系统分析的能力，对数据流图、数据字典、系统流 程图等系统设计工具的使用有了更深刻的认识。为以后的工作、学习的进一步 提高打下了坚实的基础。 第 47 页 第六章 致 谢 在整个毕业设计过程中，有很多人给了我帮助。首先，我要感谢我的导师， 她