医院门诊管理系统的设计与实现-毕业论文.doc

基于VB的桥南社区医院门诊管理系统的设计专业：计算机科学与技术 班级：XXXXX 姓名：XXX 指导老师：XXX摘要 随着计算机科学技术的飞速发展，信息管理系统的应用在全球范围内的日益普及。在当代的门诊管理中，人们逐渐开始意识到信息管理对医院的促进作用。本人通过对桥南社区医院的考察研究发现，设计一个针对社区医院的门诊管理系统非常必要。本文主要阐述医院门诊管理系统开发与设计的详细过程，包括从需求分析到总体设计，从详细设计到具体代码实现。医院门诊实行信息化管理，不但可以进一步提高医院的工作效率，还可以给病人提供更人性化的服务。关键词 信息系统 门诊管理 VB6.0 SQL数据库 design and develop hospital outpatient management system base on VBprofession: Computer Science and Technology Class: XXX Name:XXX Instructor:Wang XXXAbstract With the rapid development of computer science and technology, the application of information management system in the rising popularity of worldwide. In the contemporary outpatient service management, people gradually began to realize information management of hospital to promote role. I through community hospital of bridge south research found that in the design of a community hospital clinic management system is very necessary. This paper mainly expounds the outpatient management system development and design detailed process, including from requirements analysis to the overall design, detailed design to specific code from realization. Hospital outpatient service executes information management, not only can further improve the working efficiency of the hospital, still can give patients more personalized service .Keywords Information Management System Outpatient Management VB6.0 SQL Database目录引 言1第一章 概述21.1 课题简介21.2 课题开发的背景和意义2第二章 需求分析32.1主要功能分析32.2系统可行性分析32.2.1技术可行性32.2.2经济可行性32.2.3运行可行性42.2.4法律可行性42.2.5时间可行性42.3系统的业务流程图42.4系统的功能图5第三章 系统设计73.1系统开发环境和开发工具73.1.1系统的开发环境73.1.2系统开发工具简介73.2概念设计和逻辑设计83.2.1系统概念设计（E-R图）83.2.2系统功能分析113.2.3系统的逻辑设计113.3系统数据库分析123.3.1系统数据库表123.3.2建立数据库连接14第四章 系统功能详细设计164.1系统设计思路164.2系统功能实现16第五章 系统测试225.1系统测试的内容和意义225.2系统测试的主要内容225.2.1登录测试225.2.2药品添加测试235.2.3打印单据测试245.2.4科室添加测试24第六章 系统的总结与展望25结 论26参考文献27致 谢28基于VB的桥南社区医院门诊管理系统的设计 丽水学院2011届学生毕业设计（论文）引 言随着计算机、网络和通讯技术的迅猛发展与融合，信息化已经在世界各国各领域的应用越来越广泛，这些应用带来了生产方式的变革、经济的快速增长和人类文明的进步，整个世界进入了一个信息时代1。医院作为特殊的服务行业，管理方式千差万别，并且使用着大量的先进仪器设备，每天处理着大批的业务，产生庞大的信息，因此各医院急需一套适合本院的医院信息系统(Hospital Information System,HIS)来收集信息、管理信息，从而更好地利用信息，来提高医院管理水平，改善医疗服务质量，加速医学临床研究步伐，提高医院的竞争能力2。计算机性能不断地提高，价格却在不断地下降，因此计算机在医院的医疗、教学、科研、管理等各个方面得到越来越广泛的应用。计算机化的医院信息系统己成为现代化医院运营必不可少的基础设施和技术环境支撑。目前许多大型医院都采用了自动化的医院管理系统。但是还有许多中小型医院，还停留在传统的手工操作模式，为这些医院开发一个医院管理系统非常的必要。本人通过对桥南社区医院的考察与调研，门诊流程的了解，决定设计一个桥南社区医院门诊管理系统。 它让计算机系统的应用更直观、更容易理解和更生动化，让现代化管理更上一个台阶。门诊管理系统迅速、直观、简洁、精准，为市民提供了更具人性化的服务。病人从挂号到开单单付款到药房取药都采用信息化的管理。该系统为病人提供了更方便更快捷的服务。将该系统运用到桥南社区医院是行之有效的。第一章 概述1.1 课题简介桥南社区医院是一个中型大小的医院。由于该医院许多门诊工作还是采用传统的手工操作模式，为此医院设计一个门诊管理系统非常有必要。本课题主要研究的内容就是桥南社区医院门诊管理系统的设计。通过对桥南社区医院的考察研究和医院门诊流程的了解，为之后门诊管理系统的实现打下了良好的基础。本课题为桥南社区医院做了具体的需求分析，根据需求分析桥南社区医院门诊管理系统主要分为挂号管理、药房管理、收费管理、员工管理、病人信息管理、系统管理六大功能模块。这六大功能模块紧密结合，很好地实现了病人、员工、药品、科室、检查项目的信息化管理。本文从桥南社区医院门诊管理系统的需求分析到系统设计再到系统功能详细设计包括到系统测试都做了详细阐述。需求分析分别了从功能和系统的可行性上做了分析；系统设计包括了系统概念设计、逻辑设计和数据库设计；系统功能详细设计则阐述了功能实现的具体思路以及方法；系统测试对本系统几大主要功能模块进行了测试。本文不仅从系统具体功能实现做了详细阐述，还对实现这些功能的一些技术做了解释和说明，更好地方便读者去理解。 1.2 课题开发的背景和意义随着时代的不断进步，计算机在各行各业中被广泛应用，并且产生显著的经济效益和社会效益，从而引起产业结构、产品结构、经营管理和服务方式等方面的重大变革。计算机的发展和应用已不仅是一种科学的技术现象而且是一种政治、经济、军事和社会现象。信息化、数字化已经进入各行各业和人们生活中的许多方面，我国的医院也不知不觉地进入了数字化和信息化时代，而且随着医院的业务不断增长，处理越来越复杂，简单的人工经营管理，已无法满足医院的需要, 成为医院发展的瓶颈， 人们对医疗服务的要求也越来越高。传统的手工操作模式,病人帐目繁杂，病人查帐困难, 病区和药房的药品浪费现象严重且无法追踪, 人工传送各种记帐单容易漏、错帐，人工划价收费差错难以避免，因此,如何提高服务水平、提高工作效率，更好地服务于病人、医护人员、行政办公人员，并提高医院的科研、技术水平，成为迫待解决的问题。医院管理信息化不仅能提高医务人员的工作效率和医疗水平，而且能提高医院的服务质量和管理水平,因此，医院对管理系统有着强烈的需求。为了进一步提高医疗效率，加强医院管理，提高医院各项工作的效率和质量，将设计一个医院管理系统。该系统采用面向对象程序设计语言VB6.0，针对Windows操作系统来开发出图形界面的医院门诊管理系统，以此来满足医院门诊管理的需要。第二章 需求分析2.1主要功能分析1.挂号管理：对未注册的新病人进行登记添加，录入病人所要挂号的科室，医生，并收取相关的费用。对已经注册过的病人直接进行挂号。增设一栏专家查询，可以查询到医院专家的相关信息简介。2.药房管理对药房各种药品的信息，包括药品的名称、数量、单价等等进行录入，实现对药品的添加删除以及修改。可以查询到相应药品的库存量，单价等相关药品信息。通过对收费管理数据库的链接了解病人是否已付款来确认发药，并记录相关信息。3.收费管理：通过对药房管理系统，挂号管理系统数据库的链接，统计出病人的门诊费用，检查费用，药物费用，收取病人所需要缴纳的总费用。4.员工管理：员工管理又可分生管理，药剂师管理，护士管理等等。分别能够实现对他们的添加，删除，修改，查询工作。医生可以分为普通医生，专家两类，可以通过他们查询到病人看病的信息。5.病人信息管理：对病人进行添加删除修改操作，可以查询病人看病的所有记录，并且可以通过病人查询到为他看病的医生，专家。6系统管理：实现管理员的添加和密码的修改，对医院的科室进行添加删除和修改等功能。2.2系统可行性分析2.2.1技术可行性本系统采用VB编程语言，SQL2000数据库进行开发，桥南医院社区门诊管理系统的开发是一项复杂的系统工程。为了保证系统开发成功，必须采用工程化的系统开发方法，并研究出一些符合工程化标准的开发方法。这些方法旨在指导开发者进行工程化的系统开发，从而加快系统开发的速度，保证质量以及降低开发成本。工程化的系统开发方法确实在开发实践中取得了一定的效果。2.2.2经济可行性桥南社区医院门诊管理系统的开发需要对系统开发的费用进行预期的评估，项目启动之前对项目进行周密的调查，其中包括对开发的硬件（计算机、打印机等）和软件的开发进行评估，由于硬件设施医院基本已经具备，软件的开发价格不高。针对投入系统使用后的效果分析，降低人工成本，增加了更多的收入，减少病人的时间，提高工作效率，以小投资获得大效益。2.2.3运行可行性随着市场经济的高速发展，近些年来互联网的传播速度突飞猛进，网络的发展是当今社会信息化传递的必要条件，计算机应用技术的普及以及电脑知识的普及，医院门诊的管理系统的运行操作是可行的。2.2.4法律可行性一、所有参考的技术资料都为合法资料。二、开发过程中不存在知识产权问题。三、未抄袭任何网站，不存在侵犯版权的问题。四、开发过程中未涉及任何法律。2.2.5时间可行性通过大学四年的学习，经过近几个月对医院门诊管理的了解和熟悉，收集资料和整理需求内容，用两个月的时间采用 VB编程语言和SQL2000数据库开发了该套桥南社区医院门诊管理系统。从上述的内容可以看出，此套人力资源管理系统的开发无论从经济的角度，技术开发的角度，法律的角度，时间开发上来说都是可行的3。2.3系统的业务流程图这个系统只有特定的人员才可登陆，用户登录时分别对用户名，密码进行检测，用户名为空，用户名不存在，用户名输入错误，密码错误都不能进入系统，具体系统登录流程图如图2-1 系统登陆流程图所示。图2-1 系统登录流程图业务流程图主要反映了系统管理员对医院门诊系统的维护工作，包括了挂号管理（挂号信息的增删查改）、药品信息的管理（药品的增删查改）、费用管理（费用的计算、删除，单据的打印）、员工信息管理（员工的增删查改）、检查项目的维护（对检查项目的增删查改）、科室管理的维护（对科室的增删查改）、用户的管理（密码修改、新用户的添加），具体业务流程图如图2-2 业务流程图所示。图2-2 业务流程图2.4系统的功能图桥南社区医院门诊管理系统主要有挂号管理、药房管理、收费管理、员工管理、病人信息管理、系统管理六大功能模块，具体如图2-3 系统功能结构图所示。图2-3 系统功能结构图第三章 系统设计 3.1系统开发环境和开发工具3.1.1系统的开发环境SQL Server介绍：SQL Server是一个关系数据库管理系统，最初是有Microsoft Sybase 和Ashton-Tate三家公司共同开发的，在1988年推出了第一个版本。SQL Server2000是Microsoft公司推出的SQL Server数据库管理系统的一个版本。它具有SQL Server7.0的优点的同时又增加了许多先进的功能，具有使用方便，可伸缩性好与相关软件集成程度高等优点，可跨越从运行WINDOWS 98到2000的 大型多处理器的服务器等多种平台使用4。SQL Server2000的特点：1.Internet集成。SQL Server2000数据库引擎提供完整的XML支持，具有构成最大的WEB站点的数据库存储组件所需要的可伸缩性、可用性和安全功能。SQL Server2000程序设计模型与Windows DNA架构集成，可支持English Query和Microsoft搜索功能。2.可伸缩性和可用性。同一个数据库引擎可以在不同平台上使用，支持联合服务器、索引视图和大型内存支持等功能，使其得以升级到最大WEB站点所需要的性能级别。3.企业级数据库功能。SQL Server2000关系数据库引擎支持当今苛刻的数据处理环境所需要的功能。数据库引擎重复保护完整性，同时将管理上千个并发修改数据库的用户的开销减到最小。4.易于安装、部署和使用。 SQL Server 2000 中包括一系列管理和开发工具，这些工具可改进在多个站点上安装、部署、管理和使用 SQL Server 的过程。SQL Server 2000 还支持基于标准的、与 Windows DNA 集成的程序设计模型，使SQL Server 数据库和数据仓库的使用成为生成强大的可伸缩系统的无缝部分。这些功能使您得以快速交付 SQL Server 应用程序，使客户只需最少的安装和管理开销即可实现这些应用程序。3.1.2系统开发工具简介Visual Basic简介：是由美国微软公司开发的包含协助开发环境的事件驱动 编程语言。从任何标准来说，VB都是世界上使用人数最多的编程语言，VB是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。它源自于BASIC编程语言，拥有 图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以 请与的使用 DAO、RDO、ADO连接数据库，还可以轻松的创建Activex控件。编程人员可以轻松的 使用VB快速建立一个应用程序。VB的程序可以包含一个活 多个窗体，或者是一个主窗体和多个子窗体，类似操作系统。VB的组件既可以拥有用户界面，也可以没有，这样的话可以 处理服务器端程序增加的模块。从1991年 微软推出VB至今，通过几年的发展，已经成为一种专业化的开发语言和环境。用户可以用Visiual Basic快速创建Windows程序，现在还可以编写企业的程序及强大的数据库应用程序5-9。目前使用最广泛的Visual Basic版本是Visual Basic 6.0。Visual Basic的主要特点有：面向对象程序设计、可视化的变成工具、事件驱动的编程方式、结构化的程序设计方法10。3.2概念设计和逻辑设计3.2.1系统概念设计（E-R图）费用管理E-R图主要描述了费用管理所包含的一些字段，如就诊卡号、收费单号、病人姓名、药品名称、单价、数量、总计金额等等，具体如图3-1 费用管理E-R图所示。图3-1 费用管理E-R图挂号管理E-R图主要描述了挂号管理所包含的一些字段，如就诊卡号、病人姓名、病人性别、年龄、籍贯等等，具体如图3-2 挂号管理E-R图所示。图3-2 挂号管理E-R图检查管理E-R图主要描述检查管理所包含的字段，如检查编号、检查项目、检查名称、录入人等等，具体如图3-3 检查管理E-R图所示。图3-3检查管理E-R图结算管理E-R图主要描述结算管理所包含的字段，如就诊卡号、收费单号、病人姓名、应付金额、操作员、操作日期、开单医生等等，具体如图3-4 结算管理E-R图所示。图3-4 结算管理E-R图员工管理E-R图主要用来描述员工管理所包含的字段，如姓名、性别、年龄、专业、职称等等，具体如图3-5 员工管理E-R图所示。图3-5员工管理E-R图药品管理E-R图主要用来描述药品管理所包含的字段，如产品类型、产品数量、价格、录入日期、生产地址、生产单位等等，具体如图3-6 药品管理E-R图所示。图3-6 药品管理E-R图专家信息E-R图主要用来描述专家信息所包含的字段，如专家科室、专家姓名、专家特长、门诊时间等等，具体如图3.7 专家管理E-R图所示。图3-7 专家管理E-R图科室管理E-R图主要用来描述科室管理所包含的字段，这里科室管理由科室编号和科室名称两个字段组成，如图3-8 科室管理E-R图所示。图3-8 科室管理E-R图用户管理E-R图主要用来描述用户管理包含的字段，这里由用户名、用户密码两个字段组成，如图3-9 用户管理E-R图所示。图3-9用户管理E-R图3.2.2系统功能分析系统分功能分析如下；1.用户登陆：管理员输入用户名和密码进行登录，并且对病人挂号、费用结算、药品管理、员工管理、专家门诊等功能进行增加、删除、修改等维护功能。2.员工管理：医院（管理员）对于员工的基本信息（姓名、年龄、性别、专业）等信息进行增加、修改、查询等功能的操作。3.药品管理：管理员对药品的（名称、批号、价格）等信息进行添加、修改、查询等功能的操作。4.挂号管理：根据病人的（姓名、性别、挂号科室、日期）等基本信息进行挂号管理。5.费用结算管理：根据病人的实际消费进行结算。3.2.3系统的逻辑设计费用信息表（就诊卡号、收费单号、病人姓名、药品名称、数量、单价、检查名称、检查金额、总计金额、收费员、收费日期）如下表3-1所示。挂号信息表（就诊卡号、性别、姓名、年龄、籍贯、婚姻、职业、挂号科室、挂号费用、挂号日期、操作人员）如下表3-2所示。检查信息表（检查编号、检查项目、检查名称、检查费用、录入日期、录入人）如下表3-3所示。结算信息表（就诊卡号、收费单号、姓名、应付金额、实收金额、找零、操作员、操作日期、开单医生）如下表3-4所示。科室信息表（科室编号、科室名称）如下表3-5所示。员工信息表（姓名、性别、年龄、专业、职称、所属科室、职业、录入人、录入日期）如下表3-6所示。用户信息表（用户名、用户密码）如下表3-7所示。药品信息表（药品批文号、药品本位码、生产单位、生产地址、规格、剂量、产品类型、产品数量、价格、录入日期、录入人）如下表3-8所示。专家信息表（专家科室、专家姓名、专家介绍、专家特长、门诊时间、门诊地点）如下表3-9所示。3.3系统数据库分析3.3.1系统数据库表费用表用来描述收费所关联的字段，包括就诊卡号、收费单号、病人姓名、药品名称、单价、总计金额、收费员等等，如表3-1费用表所示。表3-1 费用表 （fyb）字段名称数据类型宽度是否可为空就诊卡号varchar50是收费单号varchar50是病人姓名varchar50是药品名称varchar50是数量real4是单价real4是检查名称varchar50是检查金额real4是总计金额real4是收费员varchar50是收费日期datetime8是开单日期varchar50是挂号表用来记录病人挂号的信息记录，包括病人的就诊卡号、姓名、性别、年龄等等，如表3-2挂号表所示。表3-2 挂号表（ghb）字段名称数据类型宽度是否可为空就诊卡号varchar50是姓名varchar50是性别varchar50是年龄bigint8是籍贯varchar50是婚姻varchar50是职业varchar50是挂号科室varchar 50是挂号费用real4是挂号日期datetime8是操作员varchar50是检查信息表用来描述检查项目的一些属性，包括检查编号、检查项目、检查名称等等，如表3-3检查信息表所示。表3-3检查信息表（jcb）字段名称数据类型宽度是否可为空检查编号varchar50是检查项目varchar50是检查名称varchar50是检查费用real4是录入日期datetime8是录入人varchar50是结算信息表主要是记录了病人药方上去结算付款时的一些字段，包括了就诊卡号、收费单号、姓名、操作员等等，如表3-4结算信息表所示。表3-4结算信息表（jsb）字段名称数据类型宽度是否可为空就诊卡号varchar50是收费单号varchar50是姓名varchar50是应付金额real4是实收金额real4是找零real4是操作员varchar50是结算日期datetime8是开单医生varchar50是科室表是用来记录社区医院有哪些科室，包括了可是编号和科室名两个字段，如表3-5科室表所示。表3-5科室表（ksb）字段名称数据类型宽度是否可为空科室编号varchar50是科室名varchar50是员工信息表表是用来描述社区员工的一些属性，包括了可是姓名、性别、年龄、专业、职称等等，如表3-6员工信息表所示。表3-6员工信息表（ygb）字段名称数据类型宽度是否可为空姓名varchar50是性别varchar50是年龄real4是专业varchar50是职称varchar50是所属科室varchar50是职业varchar50是录入人varchar50是录入日期datetime8是用户信息表记录了登陆该系统的所有操作员，包括了用户名、用户密码两个字段，如图3-7用户信息表所示。表3-7用户信息表（yhb）字段名称数据类型宽度是否可为空用户名varchar50是用户密码varchar50是药品信息表记录个重要药品的信息，包括药文批号、药品本位码、药品名称、价格、规格等等，如表3-8药品信息表所示。表3-8药品信息表（ypb）字段名称数据类型宽度可否为空药品批文号varchar50是药品本位码varchar50是药品名称varchar50是生产单位varchar50是生产地址varchar50是规格varchar50是剂型varchar50是产品类型varchar50是产品数量bigint8是价格real4是录入日期datetime8是录入人varchar50是专家信息表记录了专家的信息表，正因为该表，病人可以在挂号的时候查询专家的信息，方便病人就诊，该表包括了专家科室、专家姓名、专家特长、门诊时间等等，如表3-9专家信息表所示。表3-9专家信息表（zjb）字段名称数据类型宽度是否可为空专家科室varchar50是专家姓名varchar50是专家介绍varchar500是专家特长varchar500是门诊时间varchar50是门诊地点varchar50是3.3.2建立数据库连接ADO连接：本系统使用的数据库连接工具是ADO，ADO 是对当前微软所支持的数据库进行操作的最有效和最简单直接的方法，它是一种功能强大的数据访问编程模式，从而使得大部分数据源可编程的属性得以直接扩展到你的Active Server 页面上。可以使用ADO 去编写紧凑简明的脚本以便连接到 Open Database Connectivity (ODBC) 兼容的数据库和 OLE DB 兼容的数据源，这样程序员就可以访问任何与 ODBC 兼容的数据库，包括 MS SQL SERVER、Access、 Oracle 等等11-14。数据库连接代码如下：Public Function Cnn() As ADODB.Connection 定义函数 Set Cnn = New ADODB.Connection 返回一个数据库连接 Cnn.Open Driver=SQL Server;Server=(local);Database=yymzglxt;Uid=sa;Pwd=yanxiaolinEnd FunctionPublic Function cnStr() As StringcnStr = Provider=SQLOLEDB.1; User ID=sa;password=yanxiaolin;Initial Catalog=yymzglxtEnd Function以上的代码作为数据库连接的自定义函数，用来实现连接门诊管理系统的数据库。这两个函数作为VB的模块被添加在医院门诊管理系统中，这样可以让每个窗体在进行数据库连接操作时更加方便。第四章 系统功能详细设计4.1系统设计思路通过了解医院门诊的的工作流程，把这些流程通过门诊管理系统得以实现，针对医院门诊挂号可分为普通挂号和专家门诊，专家门诊有具体的专家人员、专家介绍、专家出诊时间和就诊的地点，病人可根据自身的需求对挂号进行选择。通过挂号之后看病最后病人进入费用结算等功能；管理员除了可以对病人进行挂号收费等功能进行维护，还要对医院本身的人员信息管理、科室管理、药品信息的管理信息进行维护。通过针对病人的信息和医院的基本管理系统对系统进行设计和开发。4.2系统功能实现1.系统登录：管理员通过此页面登录系统，对系统的员工、病人、专家、药品等信息进行管理和维护。系统登录界面如图4-1 系统登录界面所示。图4-1系统登录界面登录界面看似简单，但是不然。首先必须连接到后台的数据库，这里使用的是用ADO的连接方式，通过系统模块中提供的连接代码实现对数据库的连接。Dim rs1 As New ADODB.Recordset，Dim rs2 As New ADODB.Recordset用来申明记录集。然后再从数据库查询相关字段是否匹配，包括用户名和密码，rs1.Open yhb, Cnn, adOpenKeyset, adLockOptimistic；rs2.Open yhb where 用户名= + Text1.Text + , Cnn, adOpenStatic, , adCmdTable。在用户登录界面实现的时候你还必须考虑很多种情况：1.用户名存在，但是密码错误。2.用户名不存在。3.用户名为空。4.用户名存在，密码为空。5用户名密码都为空。6用户名，密码输入正确。所以要实现一个登录界面，你必须考虑周全，具体登录页面的实现代码如下： If Text1.Text = Then MsgBox 请输入用户名！, , 警告 txtUserName.SetFocus Exit Sub End If rs2.Open yhb where 用户名= + Text1.Text + , Cnn, adOpenStatic, , adCmdTable If rs2.RecordCount 0 Then If Text2.Text = Then MsgBox 请输入密码！, , 警告 Exit Sub End If pwd = rs2.Fields(用户密码) If Text2.Text = pwd Then yhm = rs2.Fields(用户名) main.Show Unload Me Else If intMyTimes MaxTimes Then MsgBox 您无权使用该软件！, , 警告 End Else MsgBox 密码错误，请重新输入！, , 警告 intMyTimes = intMyTimes + 1 Text2.SetFocus End If End If Else MsgBox 无此用户，请重新输入！, , 警告 Text1.SetFocus End If rs2.Close End If rs1.CloseEnd Sub2.专家查询：对专家科室、专家姓名、专家介绍、专家特长和专家的出诊时间和地点进行维护管理。专家门诊查询界面如下图4-2 专家门诊信息操作界面所示。图4-2 专家门诊信息操作界面专家门诊查询主要通过下拉列表的形式让用户选择相关字段进行查询，第一个下拉列表的字段就是数据库中专家所包含的一些属性字段，代码Set fld = rs.Fields；For Each fld In rs.Fields；Combo1.AddItem fld.Name就是将数据库中抓家的字段的属性加入第一个字段名的下拉列表的内容。第二个下拉列表用来存放一些运算符，通过这些运算符可以调用SQL中的查询语句，找出相关符合的字段并显示出来。其中运算符有like（类似）、=、=、=、。关键字用来给用户输入相关要查询的内容。当查询结束后，查询接过通过datagrid现实出来。这里也是使用ADODC控件来连接数据库，通过SQL查询语句找出并显示操作员想要查询的相关内容，具体实现的关键代码如下：Adodc1.ConnectionString = cnStr If Combo2.Text = like Then Adodc1.RecordSource = select * from zjb where & Combo1 & like % + Text1 + % Else Adodc1.RecordSource = select * from zjb where & Combo1 & Combo2 & + Text1 + End If Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 Label4.Caption = 记录条数 ： & Adodc1.Recordset.RecordCount & 条 End If Case QB Adodc1.ConnectionString = cnStr Adodc1.RecordSource = select * from zjb Adodc1.Refresh Label4.Caption = 记录条数 ： & Adodc1.Recordset.RecordCount & 条 Case GB Unload Me End SelectEnd Sub3.费用结算管理：根据病人的就诊卡号、姓名、收费单号、价格、等信息进行费用结算，费用结算管理界面如下图4-3所示。图 4-3 费用结算管理费用结算管理的具体实现：费用结算管理对前面几个功能的关联性很大，首先要先对挂号记录里面病人的信息进行连接，通过输入门诊号能反映出对应病人的相关信息；其次必须对药房管理的数据进行链接，通过输入药品的名字能够读出药品的单价以方便结算；还要对检查项目管理中的数据库进行链接，通过输入检查项目能够知道不同的检查项目需要的不同金额。这里面收费单号则用当前的日期来表示，既方便有保证了收费单号的唯一性。费用结算管理还实现了对病人收费单据的打印，用Printer.Print实现对相关字段的打印生成图片。具体数据库连接相关主要代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)On Error GoTo e Select Case Button.Key Case SR shuru.Show