门诊就医系统的设计与实现 Microsoft Word 文档.doc

门诊就医系统的设计与实现摘要进入21世纪以来，计算机逐渐普及，信息技术、网络技术的快速发展给人们的工作和生活带来了极大的便利。自动化管理手段在医疗系统中逐渐普及，传统的就医管理模式已远远不能适应社会的发展。基于这个原因，本课题开发设计了门诊就医系统，以促进门诊医疗系统的规范化运行。本系统主要用于门诊部的划价和信息生成，系统开发采用模块化方法进行分析和设计,严格遵循了需求分析,系统设计,编码,配置,维护的流程,每一步都配有详细的文档资料记录开发过程和结果。门诊信息管理系统包括了门诊挂号，门诊收费，药房的管理，各个部分紧密的相连，实现数据共享，不但使医生的诊断，药房出药以及其它的环节节约了大量的时间，也为病人就诊提供了极大的方便。门诊就医系统采用VB.NET开发前台，后台采用SQL SERVER 2005来实现。关键词：门诊就医系统,SQL,VB.NETAbstractGetting into over 21 centuries, computers gradually universal application and the technical development of the information technique brought about peoples work and life tremendous convenience. Automation management method in the medical system grew in popularity , the tradition goes see a doctor the procedure already by far not to be able to adapt societys development . Based on this reason, this subject developed outpatient service medical treatment system, promote standardization of outpatient service medical treatment system operation.Outpatient service medical treatment system has the very strong usability, this system mainly uses in outpatient clinics delimiting price with the information production. The system development uses the modular method to carry on the analysis and the design, Strictly has followed the demand analysis, System design, Code, Disposition, Maintenance flow, Each step all has the detailed documents material recording performance history and the result. The outpatient service medical treatment system included the outpatient service to register, the outpatient service charge, the pharmacy management, each part of close connected, realized data sharing, not only enable doctors diagnosis, the pharmacy to leave the medicine as well as other links saved the massive time, also received a medical examination for the patient has provided enormous convenient.This system adopted VB.NET language to design and SQL Server 2005 to carry out.Keywords: Outpatient service medical treatment system,SQL , VB.NET 目录1 绪论11.1 项目开发背景及意义11.2 本文的主要工作22 系统分析22.1 可行性研究22.2 需求分析32.2.1 系统功能要求及其功能32.2.2 系统性能要求42.2.3 系统运行要求53 概要设计53.1 系统开发工具53.1.1 Microsoft Visual Studio 2008 概述53.1.2 SQL Server 2005 的概述53.2系统功能模块63.3业务流程73.4医院管理系统E-R图83.5 数据库的设计93.5.1创建数据库103.5.2 具体的设计方法103.6系统流程图114 系统详细设计124.1 门诊与就医系统设计简述124.2 门诊管理的具体实现124.2.1 通用功能模块124.2.2 实现药品信息维护功能154.2.3实现门诊挂号管理功能174.2.4 院长查询功能的实现205系统测试245.1测试的作用与意义245.2 测试过程245.3 测试结果266 总结277 致谢28参考文献291 绪论伴随着社会经济的快速发展，人们的生活水平提高的同时，也带来了许多负面影响，各种疾病的产生并侵入人体，严重伤害人们的身心健康，医院担负着保卫人们健康的负担也逐步加大，单单靠传统的手工作业，不仅工作繁琐，而且也极易出错，给医院造成不必要的损失的同时，也对病人带来许多负面作用。随着计算机的普及和性能的不断提高，计算机已经涉足到各个行业，人们开始越来越多地利用计算机解决实际问题，于是可使用计算机进行门诊就系统流程的管理，该系统已经成了现代化的中小医院在运营过程中必不可少的基础设施与技术支撑环境。门诊就医系统，是利用计算机和网络通信设备，为医院所属的各个部门提供病人诊疗和行政管理信息的收集，存储，处理提取和数据交换的能力。门诊就医系统实现了用计算机对医院病人进行看病和药品流通的全过程管理进行动态监测，那些传统上全靠手工操作，工作量大，效率低，易出错的大量数据完全可以用用计算机代替处理，大大减轻了管理人员的工作负担，同时又可向病人提供完整的数据，使病人提供方便和快捷。本系统作为医院管理系统的一部分，与住院管理系统，病历管理系统有着密切的联系，设计时必须考虑与这些模块的兼容性。基于以上情形，我决定开发该软件。这是一款专门用于门诊管理设计的软件。它具有良好的用户界面，风格独特的设计。1.1 项目开发背景及意义 人类社会进入二十一世纪，医院作为一个特殊服务行业，其发展应适应于市场经济的发展目前，我国的医疗体制正处于改革阶段，需要医疗市场的进一步规范化，这就要求医院加强自身的管理，利用现代化的管理工具对医院的工作进行必要的管理，无疑将提高工作效率、信息的准程度，根除现行的人工管理模式存在着的某些弊端，达到减支增效的目的。有利于提高医疗水平和服务质量，更好的服务于社会。门诊就医系统是利用电子计算机和通讯设备，为医院所属各部门提供病人诊疗信息和行政管理信息的收集、存储、处理、提取 和数据交换的能力，并满足所有授权用户的功能需求。 随着计算机性能不断提高，价格不断下降，计算机已在医院医疗 、教学、科研、管理的各个方面得到越来越广泛的应用。计算机化的门诊就医系统已成为现代化医院运营必不可少的基础施与技术支撑环境。就好象一个现代化医院的成功运行离不开功能完整、美观舒适的建筑物，技术娴熟的医护人员，性能齐全、高精确的医疗设备一样，它也离不开计算机化的门诊就医系统。 计算机网络只是一种工具，如何有效地利用这一工具，关键还是在于人。医院的工作以病为中心，如果适当改变医院原有的工作方式和流程，利用计算机管理为病人提供方便，不仅可以提高医疗水平和服务质量，同时也会相应地提高医院的经济效益和社会效益，扩大医院的声誉。门诊就医系统是在今天医疗事业的迅猛发展的前提下，以前的手工录入或早期的医药管理应用软件以逐渐不能满足用户的要求 ，而在这些问题当中，落后的医药管理已严重的影响医院工作人员的工作效率，基于以上的原因，从而提出了医药管理管理系统的设计目标。 通过信息数据高度共享，在强大的数据库的支持下，将医院的全面管理水平和服务质量提升到更高层次。门诊管理系统结合医院管理工作的特点，充分利用局域网、广域网、大型分布式数据库等先进的计算机技术，运用系统的理论与方法将医院各组成部分的信息处理过程综合成有机整体，及时而有效地为医院日常管理和发展提供决策依据，使门诊就医管理工作尽快达到规范化、制度化、科学化的要求，并实现医院信息技术全电子无纸化和胶片管理的最终目标。1.2 本文的主要工作 本文的主要工作是用来阐述本系统的设计过程，设计方法，以及从各种角度来分析系统的可行性。主要是用来说明数据库的设计方法和过程，使用VB.NET设计各个窗体的设计方案。最后阐述系统进行测试的过程和结果，对于开发过程的总结。2 系统分析 2.1 可行性研究从技术角度讲，开发软件所需要的技术是否具备是通过该系统的目标来衡量的，一般情况下 我们可以从软件的环境条件、硬件的性能要求、相应的开发及操作人员的能力水 平等方面综合进行分析和考虑。 从系统开发及实施的可行性和灵活性考虑，本系统的软件开发环境主要选择 了当前较为流行的 Visual Studio 2008来进行前台的管理设计，而后台则选用了功能强大的SQL server 2005数据库。 从硬件角度来说，要求相对较低，所以选择的空间较大，一般情况下计算机 硬盘在100MB左右内存在512M以上都是可以满足开发环境的。根据现在计算机水平的发展和普及，系统在硬件方面是可行的。当然，硬件环境的配置越高，系统的开发与运行相对就会更加高效与快捷，可行性也会大幅度提高。 从软件角度来说，主要采用的是 Visual Studio 2008和 SQL server 2005两个开发软件都是现有开发软件中较为安全、可靠和成熟的、具有较高的可行度，所以软件方面也是可行的。 从经济角度讲，在软件的开发过程中，在世界上普遍采用的一种研究工程项目是否可行的科学。它通过各有效的方法，对工程项目进行分析，从技术、经济、财务等方面加以评价，最终给投资决策者提供是否选择该项目进行投资的依据。2.2 需求分析2.2.1 系统功能要求及其功能根据调查研究,根据医院管理和运作的需要，门诊就医系统必须具备以下功 能: （1）系统采用人机交互方式，界面美观友好，操作简单易行，信息查询灵活、方便，数据存储安全可靠。 （2）对病人的信息的登记、病人看病的情况和药品的信息、库存监控等数据信息进行全面的管理。 （3）对用户输入的数据，进行严格的数据检验，尽可能避免人为错误。 （4）病人挂号，划价，取药功能的实现。 （5）具有院长查询挂号量，药品信息的功能 （6）实现对药品信息报表的动态分析。 （7）完全遵照国家的药品管理条例进行软件的开发与使用。 门诊就医子系统要求实现的功能为： 1、字典维护管理 “字典维护”功能模块用来设置管理系统的常用字典信息，主要是调用数据库进行查询，修改。我们设计的时候，最主要的是信息的查询，以及一些基本信息的维护。选择“字典维护”“药品信息”命令，进入“药品信息维护”功能窗体， 在其中输入医院相关的药品信息，其中分类属性表示药品所属的剂型，可从 药品分类表中查询。需要新增或修改药品，单击相应的按钮，输入新信息后 单击“保存”按钮即可。需要删除一条信息，选择该信息后单击“删除”按钮。 选择“字典维护”|“收费项目”命令，进入“收费项目维护”功能窗体，在 其中输入医院收费项目的信息。 2、门诊管理管理 选择“门诊管理”|“门诊挂号”命令，进入“门诊挂号”功能窗体，在其中完成门诊病人挂号的功能。其中“姓名”、“费用类型”、“挂号科室”、“医生”文本框为必填字段，这些信息是必须填写的，灰色的文本框是不可填写字段，内容由程序自动生成，如“挂号费用”文本框的内容将根据所选择的挂号类型自动关联显示出来。填写相应的信息后单击“保存”按钮，数据库将信息写入病人信息库和门诊挂号两张表。 选择“门诊管理”|“门诊划价”命令，进入“门诊划价管理”功能窗体。 先选择划价对应的挂号单。选择后，划价单对应的姓名、科室、医生等信息自动关联出来。在 Grid 控件的“编号”栏中输入医生处方中的药品或收费项目的编号，回车后出现选择列表，选择相应的项目，并输入项目的数量，系统自动计算出相应的费用。完成相应的划价后单击“保存”按钮，系统将数据保存到门诊 划价和门诊划价明细表。划价完成后病人需要到收费处交费。选择“门诊管理”|“门诊收费”命令，进入“门诊收费管理”功能窗体。在划价单主列表中选择收费的单据，从列表中将自动关联出该划价单对应的明细， 单击“收费”按钮，弹出“门诊收费付款”功能窗体。在“收款”文本框中输入收款的金额，“找零”文本框自动计算出找零金额。单击“收款”按钮，完成该划价单的收款工作，“门诊划价”表对应的记录“是否收费”字段设置为“是”。 选择“门诊管理”|“药房发药”命令，进入“药房发药管理”功能窗体，在划价单主列表中选择单据，从列 表中关联出该单据对应的药品明细，单击“发药”按钮，系统调用“sf_药品发出”存储过程，完成该划价单的发药领药工作，“门诊划价”表对应的记录“是否发药”字段设置为“是 ”，并减少药品明细对应的库存数量。 3.院长查询管理 院长查询功能主要是为医院管理人员提供决策依据，实例制作了两个查询功能。选择“院长查询”|“科室挂号量”命令，进入“科室挂号量”功能窗体。输入需要统计的时间段，单击“搜索”按钮，可以统计出该时间段各个科室的挂号人数和挂号金额。 选择“院长查询”|“药品库存量”命令，进入“药品 库存查询”功能窗体。输入需要查询的条件，单击“搜索”按钮，可以查询出相应药品的库存数量。2.2.2 系统性能要求1、 极其迅速的响应速度和联机事务处理能力。当一个病人看病时能够处理挂号，取药等过程 2、 典型的7 天/24 小时不间断系统，绝对要求安全、可靠。 3、病人医疗记录是一种拥有法律效力的文件，它不仅在医疗纠纷案件中，而且在许多其它法律程序中均会发挥重要作用，有关人事的，财务的，乃至病人的医疗信息均有严格的保密性要求。 4、要有一个大规模，高效率的数据库管理系统的支持。 5、高水平的信息共享需求。 6、界面友好。 7、操作简便：选择式的录入方法、模糊查询、快速输出报表。2.2.3 系统运行要求 服务器操作系统：Windows NT4.0 Server/2000/2003 Server客户端操作系统：Windows 9X/Me/NT4.0 Workstation/2000/xp Professional 数据库管理系统：SQL-Server 7.0/2000/2003 3 概要设计 3.1 系统开发工具前台：Microsoft visual studio 2008后台： SQL Server 20053.1.1 Microsoft Visual Studio 2008 概述Microsoft Visual Studio 2008 是 Microsoft 公司推出的 Windows 环境下的软件开发工具,功能强大、使用方便。 对于开发Windows 应用程序而言，是开发简单、容易使用的语言。总的讲来，有以下主要特点: (1)可视化的设计平台 (2)面向对象的设计方法 (3)结构化的设计语言 (4)事件驱动的编程机理 (5)充分利用Windows资源 (6)开放的数据库功能与网络支持 SQL Server是一种高效的关系数据库系统，它与Windows NT/2000 及Windows XP/2003等操作系统紧密集成。这种安排使SQL Server能充分利用操作系统所 提供的特性。对于今天复杂的客户/服务器系统来说，SQL Server 是一个很好的 选择。 3.1.2 SQL Server 2005 的概述 1、Internet 集成 SQL Server 2005数据库引擎提供完整的XML支持。它还具有构成最大的 Web站点的数据存储组件所需的可伸缩性、可用性和安全功能。SQL Server 2005 程序设计模型与Windows DNA构架集成，用以开发Web应用程序，并且SQL Server 2005支持English Query 和 Microsoft 搜索服务等功能，在Web 应用程序中包含了用户友好的查询和强大的搜索功能。 2、可伸缩性和可用性 同一个数据库引擎可以在不同的平台上使用，从运行Microsoft Windows 98的便携式电脑，到运行Microsoft Windows 2005数据中心版的大型多处理器服务器。SQL Server 2005企业版支持联合服务器、索引视图和大型内存支持等功能，使其得以升级到最大Web站点所需的性能级别。 3、企业级数据库功能 SQL Server 2005关系数据库引擎支持当今苛刻的数据处理环境所需的功能。数据库引擎充分保护数据完整性，同时将管理上千个并发修改数据库的用户的开销减到最小。SQL Server 2005分布式查询使您得以引用来自不同数据源的数据，就好象这些数据是SQL Server 2005数据库的一部分，同时分布式事务支持充 分保护任何分布式数据更新的完整性。复制同样使您得以维护多个数据复本，同时确保单独的数据副本保持同步。可将一组数据复制到多个移动的脱接用户，使这些用户自主地工作，然后将他们所做的修改合并回发服务器。 4、易于安装、部署和使用 SQL Server 2005中包括一系列管理和开发工具，这些工具可改进在多个站 点上安装、部署、管理和使用SQL Server的过程。SQL Server 2005还支持基于标准的、与Windows DNA集成的程序设计模型，使SQL Server数据库和数据仓库的使用成为生成强大的可伸缩系统的无缝部分。这些功能使您得以快速交付SQL Server应用程序，使客户只需最少的安装和管理开销即可实现这些用程序。 数据仓库。 SQL Server 2005中包括析取和分析汇总数据以进行联机分析处理(OLAP)的工具。SQL Serve中还包括一些工具，可用来直观地设计数据库并通过English Query来分析数据。3.2系统功能模块我们从医院管理的层面分析数据的结构，根据系统分析，做出总体的结构图，然后分模块实现每一个功能。根据分析，我们要实现的功能如下。系统主要由登录模块，字典维护，门诊维护，院长查询等几个功能模块组成。医院门诊医疗管理可以分为：门诊挂号管理模块，门诊收费管理模块，门诊划价模块，药房发药模块四大部分。系统功能模块如图3-1所示：图3-1 系统功能模块3.3业务流程根据各模块的功能我们设计出病人就医的流程图，然后我们设计出数据库中的各个表，根据各个表中的关键字设计出各个表之间的关系，以便于查询相关表之间的数据，分析各个表之间的关系，设置各个索引，必要时设计一些视图。业务流程图如图3-2所示：病人病人基本信息押金信息押金日结信息病区医嘱住院病房检查检验手术过程信息管理信息诊断病人费用基本信息基本医疗收入基本类在院收入月未在院结算设备收入收费日结信息病人费用收据病历首页费用院科费用核算医疗保险费用药品收入构成会计凭证入院登记图3-2 业务流程3.4门诊就医系统E-R图设置完各个表之后，分析各个表之间的关系，计算出各个表达式，化简表达式之后，我们做出E-R图如图3-3所示：图3-3 E-R图3.5 数据库的设计根据实例介绍，药品资料和门诊收费项目表是系统关键的表，其他各表均与之通过编号字段相对应进行多对一的关联。系统共需要11表，所需的表类型如下表3-1所示：表3-1 数据库表表名称表用途用户清单保存登录用户的一些基本信息药品资料保存医院药品的基础信息，包括售价等医生资料保存医生信息，包括医生所属的科室科室资料保存科室分类信息，如分为内科，外科等病人信息库保存病人的基本信息，以后可以重复使用门诊挂号保存门诊病人挂号的信息门诊挂号类型保存门诊类型分类信息及其挂号价格门诊划价门诊划价信息（主表）门诊划价明细门诊划价明细信息（从表）门诊收费项目保存门诊的收费项目及其价格信息药品库存保存药品的库存量，金额信息3.5.1创建数据库打开 SQL Server 企业管理器，新建一个数据库，名称为 hisbook。CREATE DATABASE hisbook ON PRIMARY ( NAME = Nhistemp_Data, FILENAME = NF:门诊与就医系统开发与设计 建库脚本hisbook_Data.MDF , SIZE = 2688KB , MAXSIZE = UNLIMITED, FILEGROWTH = 10%) LOG ON ( NAME = Nhistemp_Log, FILENAME = NF:门诊与就医系统开发与设计 建库脚本hisbook_Log.LDF , SIZE = 1024KB , MAXSIZE = UNLIMITED, FILEGROWTH = 10%) COLLATE Chinese_PRC_CI_ASGO这里创建了本系统所需要的数据库，目前还要做的工作是，在hisbook中加入所要用到的数据表，表类型、用途、内容如上所述。3.5.2 具体的设计方法以药品资料表为例，首先分析表的用途，表中包含的内容以及他们的属性，这些都分析好之后，创建表就容易多了，创建“药品资料”表的 SQL 脚本如下: CREATE TABLEdbo.药品资料( 编号 Varchar(20) NOT NULL, 名称 Varchar(150) NULL, 规格 Varchar(100) NULL, 整量单位 Varchar(50) NULL, 散量单位 Varchar(50) NULL, 入库单价 decimal(12，2) NULL, 出库单价 decimal(12，2) NULL, 批发价 decimal(12，2) NULL, 整散比 decimal(12，2) NULL, 分类 Varchar(100) NULL, 费用归类 Varchar(100) NULL, 拼音码 Varc har(50) NULL, 效期 Int NULL, 上限 decimal(12，2) NULL， 下限 decimal(12，2) NULL ) ON PRIMARY GO 3.6系统流程图根据以上所做的分析和所建的数据库和表中的数据我们可以做出一个系统的总体的流程图。用于进一步的对所要设计的系统进行分析如图3-4所示：图3-4 系统流程图 4 系统详细设计4.1 门诊与就医系统设计简述根据以上所做的分析，门诊与就医系统包括字典维护、门诊管理、院长查询，其核心是门诊管理，其中门诊管理中包括门诊挂号、门诊划价、门诊收费、药房发药等几项功能。系统字典维护功能模块用于设置医院系统的常用字典信息，主要是使用数据库中的数据查询功能，用VB.NET做前台，使用数据库连接技术实现。还有一些常用的维护，如增加，删除，修改等功能也是使用数据库与VB.NET的连接技术实现的。门诊管理是其中的核心功能，设计这个系统就是为这个核心服务的，门诊管理是医院中正常工作的一些最基本的功能。这项功能可以节省很多医护人员的时间，避免人力资源浪费。其中包括门诊挂号，门诊划价，门诊收费，药房发药等，这几项是一般医护人员日常的工作的内容。主要是运用VB.NET设计的前台页面简单大方，然后运用程序的设计和数据库的连接简单实现这些功能。其中院长查询，使查询的数据更加的简单明了，一目了然，可以方便的发现管理中出现的问题，有那些地方需要改进。有那些部门表现良好，这项功能是使用数据库中的视图把一些相互关联的数据生成一张临时的表，然后在中进行查询。4.2 门诊管理的具体实现对于这一部分功能涉及最多的是写入数据库，如门诊挂号，是给每一个来就医的病人一个唯一的ID，这样在就医完成后，门诊划价是对就医费用的修改，这也是写入数据库的功能。不过最多的还是对数据库的灵活运用。利用数库中的查询功能实现其中的数据搜索。4.2.1 通用功能模块因为系统中所有对数据库表进行维护的窗体界面及实现的功能大体是一致的，为了减少系统编程的工作量，可以把这些共同的部分抽取出来，生成一个父类窗体，其他数据库操作窗体均可以通过继承父窗体获得数据维护的功能。这是Visual Basic.NET 语言的一个特点和优点。(1)新建一个窗体，将其Name属性改为“frmBase”，并为其添加如图4-1所示的控件。 图4-1 通用父窗体frmBase（2）各控件的属性设置如表4-1所示：表4-1 控件属性表控件类型 对象名 属性 取值（说明）ImageList ImageList1 Images 设置参考4.1ToolBar ToolBar1 Buttons 设置参考4.1ToolBar ToolBar1 ImageList ImageList1GroupBox grbSearch Dock TopTextBox txbOne textTextBox txbTwo text TextBox txbThree textButton btnSearch text 搜索DataGrid dgdList Anchor Top,Button,Left,Right (3)主要功能代码如下：为工具栏ToolBar1的ButtonClick事件添加响应函数：Private Sub ToolBar1_ButtonClick(ByVal sender As Object, _ ByVal e As ToolBarButtonClickEventArgs) _ Handles ToolBar1.ButtonClick Select Case e.Button.Text Case 首记录 返回首记录 bmData.Position = 0 Case 上记录 If bmData.Position 0 Then bmData.Position -= 1 End If Case 下记录 If bmData.Position bmData.Count Then bmData.Position += 1 End If Case 尾记录 返回尾记录 bmData.Position = bmData.Count Case 新增 Me.dgdList.Enabled = False SetTextBoxState(False) SetToolBarState(False) bAdd = True Clear() Case 修改 Me.dgdList.Enabled = False SetTextBoxState(False) SetToolBarState(False) bAdd = False Case 删除 弹出询问对话框 Dim dlgResult As DialogResult = _ MessageBox.Show(你确认删除此数据？, _ 删除, MessageBoxButtons.OKCancel) If dlgResult = DialogResult.OK Then DeleteData() End If Case 保存 SetToolBarState(True) SetTextBoxState(True) If bAdd = True Then 为新增数据保存 SaveForAdd() Else 为更新数据保存 SaveForUpdate() End If Me.dgdList.Enabled = True Case 取消 SetTextBoxState(True) SetToolBarState(True) Me.dgdList.Enabled = True SearchResult() Case 退出 关闭本窗体 Me.Close() End Select Try Me.dgdList.CurrentRowIndex = bmData.Position SetData() Catch ex As Exception End Try End Sub为按钮btnSearch 的Click事件添加响应函数： Private Sub btnSearch_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnSearch.Click SearchResult()End Sub4.2.2 实现药品信息维护功能(1)选择“文件”“添加新项”命令，在“添加新项”对话框的“模板”列表框，选择“继承选择器”对话框，在其中选择frmBasic选项单击“确定”按钮。窗体和新增控件的属性设置如图4-3所示：图4-2 药品信息表 (2)主要实现代码如下：Public Overrides Sub Prepare() Me.Text = 药品信息维护 Me.Label1.Text = 拼音码 Me.Label2.Text = 编号 Me.Label3.Text = 名称 Dim db As DataBase = New DataBase Dim dv As DataView = _ db.RunSelectSQL(select 编号,名称from 药品分类) Me.cbbKind.DataSource = dv Me.cbbKind.DisplayMember = 名称 Me.cbbKind.ValueMember = 编号 db.Dispose() End SubPublic Overrides Sub LoadData() Dim strFilter As String If txbOne.Text.Trim.Length = 0 Then If txbTwo.Text.Trim.Length = 0 Then If txbThree.Text.Trim.Length = 0 Then strFilter = Else strFilter = where 名称like strFilter += txbThree.Text.Trim + % End If Else strFilter = where 编号like strFilter += txbTwo.Text.Trim + % If txbThree.Text.Trim.Length 0 Then strFilter += and 名称like strFilter += txbThree.Text.Trim + % End If End If Else strFilter = where 拼音码like strFilter += txbOne.Text.Trim + % If txbTwo.Text.Trim.Length 0 Then strFilter += and 编号like strFilter += txbTwo.Text.Trim + % If txbThree.Text.Trim.Length 0 Then strFilter += and 名称like strFilter += txbThree.Text.Trim + % End If Else If txbThree.Text.Trim.Length 0 Then strFilter += and 名称like strFilter += txbThree.Text.Trim + % End If End If End If DataSet11.Clear() SqlConnection1.ConnectionString = DataBase.sConn Dim strSQL As String SqlDataAdapter1.SelectCommand.CommandText _ = select * from 药品资料 + strFilter 根据查询条件重新填充DataSet11 SqlDataAdapter1.Fill(DataSet11) dtData = DataSet11.Tables(药品资料) bmData = Me.BindingContext(DataSet11, 药品资料) If bmData.Count 0 Then bmData.Position = 0 End IfEnd Sub收费项目维护与药品信息维护功能相似，在此就不详细介绍制作过程。4.2.3实现门诊挂号管理功能门诊挂号管理功能窗体不需要从父窗体继承。新建一个窗体，将其Name属性改为“FrmGuaHao”并为其添加如图4-4所示的控件。图4-3 门诊挂号窗体主要代码实现如下： Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) _ Handles ToolBar1.ButtonClick Select Case e.Button.Text Case 新增 Clear() Case 保存 Save() Case 取消 Clear() Case 退出 关闭本窗体 Me.Close() End Select End Sub Private Sub Clear() 清除页面信息 Me.txbName.Text = Me.cbbSex.Text = 男 Me.txbAge.Text = Me.txbMoney.Text = 1 Me.txbName.Text = Me.txbTime.Text = Date.Now.ToString() Me.cbbNation.Text = 汉族 Me.cbbMoneyType.Text = 自费 Me.cbbRegType.Text = 普通号 Dim db As DataBase = New DataBase Dim dv