毕业设计（论文）-医院管理系统设计与实现.doc

医院管理系统设计与实现 摘 要：随着科学技术的不断提高，计算机科学不断发展，其强大的功能 已经被人们认识，它已经在人类社会的各个领域发挥着越来越重要的作用。 计算机信息化管理有着储存量大，速度快等许多优点，因此我们可以利用 计算机实现医院信息管理。 医院信息管理系统是典型的管理信息系统(mis)，它的开发主要包括 后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要 求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求 应用程序功能完备，易使用等特点。使用计算机对病人及医师进行管理， 具有着手工管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、 存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高病人 及医师信息管理的效率，也是医疗机构理财的科学化、正规化管理，与先 进科学技术接轨的重要条件。 经过分析，我们使用 micorsoft 公司的 visual basic 开发工具，利 用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁 操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对 初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行 系统，希望这个系统能够为医院信息管理方面提供一些便利。 本系统的主要功能包括：患者的入院与出院的维护、医师信息的维护、 收费管理、打印服务等功能。 关键词：病人管理；医师管理；mis hospital management system design and implementation abstract:with the continuous improvement of science and technology, computer science, with its powerful function been recognized, develops fast, and is now playing an increasingly important role in many fields of human society. as computer informational management has a lot of advantages such as a large storage capacity and compute fast, we can use computer to realize the management of hospital. hospital management system is a typical management information system (mis). this system mainly contains two parts: the development of front-end application program and the establishment of back-end database. the former require establishing a database with strong uniformity and integrity and security of data, while the latter requests the application program to have a characteristic of fully functional and easy to use. using computers to manage patients and physicians has many advantages that manual management cant compare with, such as quick searching, easy finding, high reliability, large storage capacity, good security, long life and low cost. these advantages can greatly improve the efficiency of patients and physicians management, and also are important conditions for medical institutions to make its financial management more scientific and more regular, and to integrate with advanced science and technology. after analysis, we use microsofts visual basic as development tools to use the various object-oriented development tools it provided, especially the data window that can manipulate the intelligence objects of database conveniently and easily. first, in a short period of time, a prototype of system application will be established, and then demand iteration will make on the initial prototype system, and constantly revise and improvement will be make until the formation of a viable system to meet the customers satisfaction, hoping this system can provide some facilities for the medical management. the main functions of this system contain the following parts: the maintenance of patients check in and out of the hospital, the maintenance of the physicians information, fees management, printing services, and other functions. keywords: patients management system；doctor management system；mis 目 录 1 绪 论 1 1.1 课题简介.1 1.2 开发的意义.1 2 开发环境实现技术 3 2.1 开发环境.3 2.2 开发工具简介.3 3 系统设计 6 3.1 概要设计.6 3.1.1 概要设计阶段的主要任务.6 3.1.2 概要设计的过程.6 3.1.3 概要设计的原则.6 3.1.4 系统功能分析.6 3.2 详细设计.8 3.2.1 详细设计的任务.8 3.2.2 详细设计的方法.8 4 数据库设计 .10 4.1 数据库 access简介 10 4.2 数据库需求分析11 4.3 测试用例14 5 系统的实现 .16 5.1 系统登录模块的实现16 5.2 住院管理模块的实现20 5.2.1 住院/出院模块的实现：.20 5.2.2 查询住院/出院病人模块的实现.22 5.3 病房管理模块的实现24 5.4 医师管理模块的实现25 5.5 交费管理模块的实现27 5.6 打印管理模块的实现28 5.7 帮助模块的实现29 6 系统使用说明 .30 6.1 使用说明30 6.2 运行环境30 结 论 31 致 谢 32 参考文献 33 1 绪 论 1.1 课题简介 医院信息管理系统是每一个医疗机构管理病人及医师收入和支出的不 可缺少的一个管理信息系统，它的内容对于医疗机构的管理者来说是至关 重要的，所以医院信息管理系统应该能够为每一个医疗机构的管理者提供 充足的信息和快捷的查询手段，大大的方便医疗机构的管理者的合理管理。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为 人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分，使用计算机对病人及医师进行管理，具有 着手工管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、存储 量大、保密性好、寿命长、成本低等。这些优点能够极大地提高病人及医 师管理的效率，也是医疗机构理财的科学化、正规化管理，与先进科学技 术接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计 算机专业毕业的学生来说，也是一次将计算机应用于现实信息管理的一次 很有意义的实践活动。 1.2 开发的意义 (1) 促进医院信息管理信息化 随着计算机性能不断提高，价格不断下降，计算机已在医院医疗、教 学、科研、管理的各个方面得到越来越广泛的应用。计算机化的医院信息 管理系统已成为现代化医院运营必不可少的基础设施与技术支撑环境。就 好象一个现代化医院的成功运行离不开功能完整、美观舒适的建筑物，技 术娴熟的医护人员，性能齐全、高精确的医疗设备一样，它也离不开计算 机化的医院信息管理系统。现在我国的病人及医师管理水平大部分还停留 在纸介质基础上，这样的机制不能适应时代发展，因为它浪费了许多人力 物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所 取代。 开发这一系统的好处大约有以下几点： 第一、可以存储历年病人及医师的信息，安全、高效； 第二、只需一到二名档案录入员即可操作系统，节省人力； 第三、可以迅速查到病人及医师的各类信息。 (2) 为将来医疗机构上网做好准备 根据 2003 年中国电信的调查报告显示我国的上网人数已达到 1870 万， 互联网已经十分普及，本系统为医疗机构将来的上网作了先期工作，比如 医疗机构的网络管理模式的建立。 2 开发环境实现技术 2.1 开发环境 硬件系统：奔腾 100 以上 cpu、64m 以上内存、1g 以上硬盘、光驱。 软件系统：windows 9x 或更高版本、visual basic 6.0 中文版、access 数据库。 2.2 开发工具简介 微软公司的 visual basic 6.0 是 windows 应用程序开发工具，使目前 最为广泛的、易学易用的面向对象的开发工具。visual basic 提供了大量的 控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作 量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可 靠性。故而，实现本系统 vb 是一个相对较好的选择。 access 就是关系数据库开发工具，数据库能汇集各种信息以供查询、 存储和检索。access 的优点在于它能使用数据表示图或自定义窗体收集信 息。数据表示图提供了一种类似于 excel 的电子表格，可以使数据库一目 了然。另外，access 允许创建自定义报表用于打印或输出数据库中的信息。 access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于 网络文件服务器，与其他网络用户共享数据库。access 是一种关系数据库 工具，关系数据库是已开发的最通用的数据库之一。如上所述，access 作 为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数 据库的便利和关系数据库的强大功能。 微软的 jet 数据库引擎提供了与数据库打交道的途径，我们是通过它 以及 visual basic 来访问数据库并对其进行各种操作。visual basic、access 以及其他微软的软件产品都是通过共用 jet 数据库引擎， 从而给用户提供了丰富的数据类型。 data 控件在数据库中的信息与将信息显示给用户看的 visual basic 程序之间架起了一座桥梁。我们可以设置 data 控件的各个属性，告诉它 要调用那个数据库的哪个部分。缺省情况下，data 控件根据数据库中的 一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。一 个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该 记录集合中的记录也会随之改变。data 控件还提供了用来浏览不同记录 的各种跳转按钮。将 data 控件放置在窗体中之后，我们还必须在该控件 与要处理的数据库之间建立联系。 ado 是 mcrosoft 提出的第三种数据库访问对象，是 microsoft 数据库 访问技术的一个主要发展方向，ado 将 ole db 封装在一个数据对象中， 使得 vb 程序中以方便地实现对数据库的访问。 具体的与数据库的关系如下： vb 数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部 分组成。 (1) 用户界面: 用户界面是指应用程序与用户进行交互的界面，包括 用于交互的所有界面元素和代码。它可以显示数据并提供查看或更新数据 的所有对象，比如数据作业窗体，添加、删除记录或执行查询的 vb 代码 等，这些对象隐含着用来请求数据库服务的属性、事件和方法。 (2) 数据库引擎:所谓数据库引擎，是一种管理数据怎样被存储和检 索的软件系统，是应用程序与物理数据库之间的桥梁。它把应用程序的请 求翻译成对各种类型数据库的物理操作,并向应用程序返回结果。 (3) 数据仓库:数据仓库是包含数据库表的一个或多个文件，是存放 数据的地方。对于本地的 vb 数据库来说，就是.mdb 格式文件；对于不同 的数据库，它可能具备其它格式。 vb 访问数据库通常有三种途径: (1) 使用数据控件和数据绑定控件访问数据库； (2) 通过 vb 提供的数据访问变量编程访问； (3) 通过 odbc 接口访问 odbc api 函数。 vb 程序的数据访问通过数据访问接口来实现。 在 vb 中，主要的数据访问接口有三种：数据存取对象(data access object；dao)、远程数据对象(remote data object；rdo)、activex 数据 对象(activex data objects；ado)。 vb 通过数据库引擎可以访问的数据库分如下三类:内部数据库、外部 数据库和 odbc 数据库。 (1) 内部数据库即.mdb 格式的数据库，包括 dao api、microsoft access 和 microsoft excel 创建的数据源，也称为本地数据 库。由于是由 jet 引擎直接创建和操作这些数据库，可以提供最大程度的 灵活性和速度。 (2) 外部数据库即“索引顺序存取方法(isam)数据库，例如 btrieve、dbase、foxpro 以及 paradox 等。vb 能够创建和操作所有这些 数据库，还可以访问 microsoft excel 或 lotus l-2-3 电子表格，以及一些标 准的文本文件。 (3) odbc 数据库即符合开放式数据库连接性(odbc)协议的数 据库。vb 可以访问 odbc 标准客户/服务器数据库-如 microsoft sql server、oracle 和 sybase。可使用 odbc object 直接把命令传递给服务器 处理，以创建真正的客户机/服务器程序。 3 系统设计 3.1 概要设计 3.1.1 概要设计阶段的主要任务 本人先审查软件计划、软件需求分析提供的文档，提出最佳推荐 方案，用系统流程图，组成系统物理元素清单，成本效益分析，系统的进 度计划，供指导老师审定，审定后进入设计。 确定模块结构，划分功能模块，将软件功能需求分配给所划分的 最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模 式，确定测试方法与策略。 编写概要设计说明书，用户手册，测试计划，选用相关的软件工 具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与 划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。 3.1.2 概要设计的过程 概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具 体的实施方案；然后进行结构设计，确定软件结构。 3.1.3 概要设计的原则 将软件划分成若干独立成分的依据。 如何表示不同的成分内的功能细节和数据结构。 如何统一衡量软件设计的技术质量。 3.1.4 系统功能分析 预测开发的管理系统的达到的功能如下： 第一部分：系统用户管理 要求：用户分四类：超级用户一切功能可用、管理员不可添加系统 用户、修改用户密码、不可实现收费功能、收费员仅可查询信息、收费 功能、普通用户仅可查询信息。 第二部分：患者基本资料 要求：实现患者资料的新增、修改、办理患者出院、查询患者资料。 第三部分病房管理 要求：实现新增病人、病人的转科转房、病房明细查询、患者退房。 第四部分 主治医师管理 要求：实现主治医师资料的新增、修改、查询，有统计各个主治医师 的治疗效果 第五部分 收费管理 要求：实现收费项目列表、查询患者交费情况的查询，及收费窗口 第六部分 统计打印报表 要求：实现当日出/入院病人数量和人员列表，实现各患者费用情况的 打印。 第七部分 帮助 制作帮助文档，介绍各部分功能即可根据以上分析，该系统考虑将整 个系统分解。 系统的总体设计结构图如图 3-1 所示。 用 户 管 理 医院信息管理系统 系 统 管 理 住 院 管 理 病 房 管 理 医 师 管 理 收 费 管 理 打 印 服 务 帮 助 退 出 登 记 住 院 登 记 出 院 查 询 住 院 病 人 查 询 出 院 病 人 转 科 / 房 病 房 查 询 医 师 维 护 查 询 医 师 效 果 交 费 查 询 交 费 情 况 当 日 入 院 人 员 当 日 出 院 人 员 患 者 费 用 查 询 图 3-1 模块结构图 并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得 系统的整体性能提高，并且也有利于投入使用后的系统维护。 3.2 详细设计 3.2.1 详细设计的任务 详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软 件系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务 如下：(1) 为每个模块确定采用的算法，选择某种适当的工具表达算法的 过程，写出模块的详细过程性描述；(2) 确定每一模块使用的数据结构； (3) 确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内 部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节。 (4) 要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码 （即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成 部分，通常应包括输入数据，期望输出等内容。 3.2.2 详细设计的方法 程序流程图、n-s 图、pad 图、ipo 图 本系统在开发过程中所采用的详细设计方法为 ipo 图： (1)病人及医师管理模块 ipo 图： 针对要输入的病人及医师信息，通过提供相应的供操作人员录入界面 这种方式进行处理，然后将结构保存到表，如图 3-2 所示。 1 图 3-2 病人及医师管理模块 ipo 图 (2)病人及医师的查询模块 ipo 图： 首先要对输入的查询内容做一下设定，然后通过设计出提供相应供操 作人员操作界面的方式进行处理，处理的结果可以显示出查询的结果及统 计相关信息，如图 3-3 所示。 图 3-3 病人及医师的查询模块 ipo 图 (3)收费管理模块 ipo 图： 收费管理模块主要是要输入关于收费项目的详细信息，通过提供操作 人员操作的相应界面实现，最后保存到收入/支出项目表中，如图 3-4 所示。 图 3-4 收费管理模块 ipo 图 (4)打印模块 ipo 图： 打印模块主要是供操作人员查看信息和打印。如图 3-5 所示。 选择打印项 提供相应的界面供 操作人员操作 打印 图 3-5 打印模块 ipo 图 (5)用户管理模块的 ipo 图 病人及医师的 信息 提供相应的界面供 操作人员录入 保存到表 收费项目等的 设置 提供相应的界面供操 作人员操作 保存到收入/支 出项目表 查询内容的设定 提供相应的界面供 操作人员操作 1.显示查询的结果 2.统计相关信息 针对用户的信息管理，设置了用户管理模块，实现对用户信息的增加、 删除、修改，通过提供相应的界面来处理，最后保存到用户管理表中，如 图 3-6 所示。 图 3-6 打印模块 ipo 图 4 数据库设计 4.1 数据库 access 简介 access 中文版是 microsoft office 套装软件的数据库管理系统软件， 是目前比较流行的小型桌面数据库管理系统，它适用于小型企业、学校、 个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供 用户查询或打印报表。 access 具有良好的界面，采用了与 windows 和 microsoft office 系列 软件完全一致的风格，用户可以通过菜单和对话框操作，不用编写任何命 令便能有效地实现各种功能的操作，完成数据管理任务。microsoft office 的一个集成化的程序设计语言是 vba(visual basic for applications)，使用 vba 可以创建非常实用的数据库应用系统。 access 可以作为个人计算机终端和大型主机系统之间的桥梁。通过如 sql、odbc 等特定技术，方便地存储、检索和处理服务器平台上的关键 信息，提供了灵活、可靠、安全的客户/服务器解决方案。 access 可以接受多种格式的数据，从而方便了用户在不同系统之间进 行数据转换。 数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于 组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可 以分为两类：非关系数据库（flat-file）和关系数据库（relational） 。关系数 据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，像记 录、域等。 增加、删除、修改 用户信息 提供相应的界面 供操作人员操作 保存到用户管理 表 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活 的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 (1) 标识需要的数据； (2) 收集被标识的字段到表中； (3) 标识主关键字字段； (4) 绘制一个简单的数据图表； (5) 规范数据； (6) 标识指定字段的信息； (7) 创建物理表。 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 visual basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连 接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表 中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记 录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它 自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有 三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用 的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关 系。 4.2 数据库需求分析 根据调查有关单位的病人及医师管理的实际情况，分析得到如下的数 据库结构。 图 4-1 住院患者情况表 图 4-2 主治医师情况表 图 4-3 交费情况表 图 4-4 用户表 4.3 测试用例 图 4-5 住院患者情况表的测试用例 图 4-6 主治医师情况表的测试用例 图 4-7 交费情况表的测试用例 图 4-8 用户表的测试用例 5 系统的实现 5.1 系统登录模块的实现 用户登录窗口界面是用户看到的第一幅画面，也是进入系统之前必须 经过的一道“关口” 。因此，简洁、实用、友好是设计时应当考虑到的风 格。医院住院管理信息系统的登录界面选用了一幅比较美丽的图片作为背 景，当使用者输入正确的用户名和密码后才能进入系统的主界面，登录系 统。 (1) 登陆模块的流程图如图 5-1 所示。 图 5-1 流程图 (2) 登陆界面 本系统注重用户的权限的限制，将系统中的用户分成了四大类，其 中系统中的管理员为 admin，密码为 admin。 各权限级别具有的权限如下： 超级用户(一切功能可用)、管理员(不可添加系统用户、修改用户密 码、不可实现收费功能)、收费员(仅可查询信息、收费功能)、普通用户 (仅可查询信息)。 y n 开始 输入登录密码 是否正确 主界面 图 5-2 界面 (3) 实现过程： 第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中 选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即 可把由所选取的控件生成的对象添加到窗体上。 第二步，选择窗体或控件进行属性设置，如图 5-3 为窗体属性设置界 面所示。 图 5-3 窗体或控件属性窗口 第三步双击相应的控件，在控件的相应过程中编写代码： 如此窗体上“进入”与“退出”按钮的代码，如图 5-4 所示。 图 5-4“进入”与“退出”按钮代码 并且具有改变“登录”菜单为“注销”菜单的功能。 private sub command2_click() unload me end sub 此程序段中， “if”语句的作用是判断用户输入的用户名与密码和数 据库的是否相同，如果相同，则打开菜单项并执行 unload me，如果用户 名或密码输入错误，则提示，如图 5-5 所示。 图 5-5 提示窗口 使用户重新输入用户名或密码。 unload me 语句的作用是下载窗体。 不同的用户权 限打开不同的 菜单 改变登录菜单 为注销菜单 此窗体上另外还有 data1、text3 二个控件在程序运行时是看不到的， 它们的作用是使 vb 与 access 数据库相连，然后判断用户输入的用户名与 密码是否与数据库中的一致，如果一致，则允许用户进入系统。此三个控 件的创建方法如下： 首先，将 data、text 控件拖放到窗体上，其次，设置它们的属性： （a）data1 控件的属性设置，如图 5-6 所示。 图 5-6 data1 控件的属性设置图 此两个属性的作用是保证 data 控件与数据库相连。 visible 属性是使此控件运行时在窗体上不显示，应该设置成 false。 （b）text3 控件的属性设置如下： datafield 是此数据控件绑定到何字段,设置为 data1。datasource 是此 数据控件绑定到何数据库，设置为 data1。 visible 属性的设置同 data1 控件。 登录后，主界面如图 5-7 所示。 数据库的 名称 数据库中的 表名 图 5-7 主界面 5.2 住院管理模块的实现 5.2.1 住院/出院模块的实现： 主要包括病人的住院/出院详细信息的登记。其中包括有病人的姓名， 性别，工作单位，联系方式，入院/出院时间，入院/出院时间的状况等情 况。 (1) 流程图，如图 5-8 所示。 图 5-8 流程图 (2) 本界面输入的信息主要是到医院就诊的患者的信息。作为使用者， 最关心的是管理信息系统能够提供给使用者什么样的信息，以什么方式 提供。本界面主要的输入就是对患者的住院的登记。如图 5-9 所示。 n y 开始 增加病人 是否继续 退出 图 5-9 入院的运行界面 出院管理类型，主要以有无入院/出院时间判断病人是住院状态还是出 院状态。本界面主要的输入就是对患者的出院的登记。如图 5-10 所示。 图 5-10 出院的运行界面 住院管理模块的主要代码如下： private sub command1_click() if command1.caption = “新增“ then data1.recordset.movelast n = trim(str(data1.recordset.recordcount + 1) command1.caption = “确定“ data1.recordset.addnew text1(0).text = n text1(3).text = 30 text1(11) = date text1(1).setfocus command2.enabled = false command3.enabled = false else msgbox “入院成功！“ command1.caption = “新增“ data1.recordset.update data1.recordset.movelast command2.enabled = true command3.enabled = true end if end sub 5.2.2 查询住院/出院病人模块的实现 主要通过窗口查询住院/出院病人的信息。可以通过住院号查询，姓 名查询，血型查询，住院/出院日期查询。 (1)查询住院病人运行界面，如图 5-11 所示。 图 5-11 查询住院病人运行界面 查询出院病人运行界面同查询住院病人运行界面类似。 (2) 实现过程（以查询住院病人为例）： 界面的实现方法同上，下面主要看关键代码： 主要选择查询的方法。 “查询“的主要代码为： private sub command1_click() if option1(0).value = true then sql = “select * from 住院患者情况 where 住院号=“ & trim(text1.text) & “ and len(trim(format(出院时间,yyyymmdd)=0“ else if option1(1).value = true then sql = “select * from 住院患者情况 where 姓名=“ & trim(text1.text) & “ and len(trim(format(出院时间,yyyymmdd)=0“ else if option1(2).value = true then sql = “select * from 住院患者情况 where 血型=“ & trim(combo1.text) & “ and len(trim(format(出院时间,yyyymmdd)=0“ else sql = “select * from 住院患者情况 where 入院时间=#“ & format(dtpicker1.value, “yyyy-mm-dd“) & “# and len(trim(format(出院时间, yyyymmdd)=0“ end if end if end if data1.recordsource = sql data1.refresh if data1.recordset.eof then msgbox “没有您要查询的病人！“, , “提示“ end if end sub 主要作用：根据用户的选择，通过 sql 语句查询并显示结果。 出院病人查询类似，不做介绍。 5.3 病房管理模块的实现 本模块主要可以实现病人的转科转房、病房明细查询、患者退房这些 功能。 主要代码如下： private sub command2_click() sql = “select * from 住院患者情况 where 住院号=“ & trim(text1(0). text) & “ data1.recordsource = sql data1.refresh if data1.recordset.eof then msgbox “住院号错！“, , “提示“ end if end sub 转科或病房的运行界面，可以通过确认转科/房按钮，使得病人转科/ 房。如图 5-12 所示。 图 5-12 转科或病房的运行界面 病房查询的运行界面，可以通过病人号或者主治医生可以查询病房的 有关信息，如图 5-13 所示。 图 5-13 病房查询的运行界面 5.4 医师管理模块的实现 本模块主要实现主治医师资料如工号，姓名，科室，主治，病房号的 新增、修改、查询，并有统计各个主治医师的治疗效果。运行界面如图 5- 14 所示。 图 5-14 医师维护的运行界面 医疗效果的查询主要分为通过医师姓名的查询和医疗效果的查询，通 过查询可以查出病人的详细信息，如姓名，工作单位，治疗效果，可别等。 如图 5-15 所示。 图 5-15 医疗效果的查询界面 维护界面的代码分别如下： private sub command1_click() if command1.caption = “新增“ then command1.caption = “确定“ data1.recordset.addnew text1.setfocus command2.enabled = false command3.enabled = false else command1.caption = “新增“ data1.recordset.update data1.recordset.movelast command2.enabled = true command3.enabled = true end if end sub private sub command2_click() data1.recordset.delete data1.recordset.moveprevious end sub private sub command3_click() data1.recordset.edit data1.recordset.update end sub 主要作用：根据医师姓名和医疗效果查询。 5.5 交费管理模块的实现 本模块主要包括：实现收费项目列表、查询患者交费情况的查询，及 收费窗口，运行界面如图 5-16 所示。 图 5-16 收费的运行界面 收费界面的代码分别如下： private sub command1_click() if command1.caption = “新增“ then command1.caption = “确定“ data1.recordset.addnew text1.setfocus command2