毕业论文医院门诊预约登记与数据统计系统设计41437

1、摘 要此次开发的系统全称为门诊预约登记与数据统计系统。它主要应用于医院门诊预约，它可以完成日常的病人门诊预约登记、病人信息维护、预约病人数据统计。开发门诊预约登记与数据统计系统可以是为门诊文秘减轻工作压力，较为快捷的登记病人信息，并且加快病人信息查询速度，及时了解病人统计数据。如今管理系统已经进入医院，但对于门诊登记系统，目前还没有一套适用的系统。因此，有必要开发一款适用于门诊病人信息登记、统计、查询的系统。本系统全面包含了门诊文秘关于门诊预约登记的工作需求。在开发方法选择上，主要运用了工作需求指导开发走向。而在设计系统上，遵循了需求分析，系统设计，系统实施这三个主要阶段。在开发工具选择上，主

2、要运用了vb6.0编程语言，使用excel作为数据库。本论文主要从系统需求分析，系统设计等几方面进行介绍关键词: 门诊预约登记；系统设计；vb6.0 abstractthe name of the system is outpatients registration and data statistics.it can be applied to outpatients registration.it also can be use to daily outpatients registration,maintainning patients information and counting

3、the amount of the registration.developing the system cannot only reduce the pressure of the staff and record rapidly the information of the patients,but aslo speed up searching the patients information. and get the result of statistical data in time.nowdays,management system has come into hospitals.

4、as for outpatient service, there is not a set of complete and unified system,so it is necessary to develop a suitable one.the system will meet all the requirment during the daily secretarys work .the work requirment will lead the trend of developing software when choose the way to develop software.i

5、 will follow demand analysis, system design and system implementation in designing system.the vb6.0 language will be mainly used in designing the system.and the excel will be used as the data base.the thesis will introduce demand analysis, system design and system implementation.keywords: outpatient

6、s registration; system design;vb 6.0目 录1 绪论11.1 选题背景11.1.1 可靠度的重要性11.1.2 可信性基准程序法11.2 设计目标21.2.1 故障注入实现方法综述21.2.2 软件实现的故障注入方法22 相关基础理论32.1 visual basic 632.1.1 visual basic 6的功能特点32.1.2 visual basic 6中的基本功能32.2 microsoft excel 200733 需求分析43.1 需求分析43.1.1 系统主要业务逻辑43.2 功能需求及设计思想43.2.1 总体架构思想43.2.2 用户登入

7、功能43.2.3 用户功能界面功能43.2.4 病人信息管理功能43.2.5 门诊预约功能53.2.6 数据统计功能54 系统设计64.1 界面设计64.1.1 登入界面64.1.2 用户功能界面64.1.3 病人信息管理功能64.1.4 门诊预约界面64.1.5 数据统计界面64.2 代码编写以及注解64.2.1 登入界面以及注解64.2.2 用户功能界面以及注解64.2.3 病人信息管理功能以及注解64.2.4 门诊预约界面以及注解64.2.5 数据统计界面以及注解65 结论8参考文献9谢辞111 绪论1.1 选题背景如今以计算机为主的智能化工具已经成为了新生产力，计算机科技已经深入了各个

8、领域。在企业以及各种机构的各个环节已离不开计算机软件的辅助。医疗行业面对病患要求越来越高、医护人员短缺、医疗成本上涨等挑战，各个医疗机构都在采用大量的新应用系统和新设备，希望建立起一套集中控制的、优化的工作流程，实现更加高效准确的病人治疗与看护和更高的医务人员协同工作能力，并降低整个机构的运行开销。 但医院分工较细，其管理往往是很复杂、很繁琐的。单一的外购系统无法满足医院各个科室间的具体要求。因此必须编制一套管理信息系统，实现计算机化操作，而且必须根据各个科室的具体情况制定相应的软件。我的工作是在医院门诊做文秘一职，主要负责门诊病人信息登记、门诊预约和门诊各类数据的统计和维护。我所处的门诊每日

9、约有300位左右的病人来就诊，约40%是初诊病人（初诊病人需记录个人基本信息。基本信息包括：姓名、性别、年龄、联系电话、医保卡号、就诊时间、主治医生）；约60%是复诊病人需对复诊病人进行基本信息核对。其中门诊预约有80%是复诊病人，其余为初诊病人。因此每日涉及的数据量较大，若采用传统手法进行录入数据以及数据统计，将花费较多时间与精力，通过对病人信息数据对比，可以发现复诊病人信息可以重复利用。因此有必要开发一套门诊预约登记与数据统计系统，减少数据维护和数据统计的时间成本。通过对这些情况的仔细调查，所以我设计一软件用以提高工作效率。1.2 设计目标门诊预约登记与数据统计系统可主要实现下列目标：1）

10、操作简单方便、界面简洁美观；2）进行日常数据录入；3）引用已有病人数据，减少时间成本；4）能很好的预防人为因素产生的错误操作；5）查询病人数据；6）对病人数据进行维护；7）对病人数据进行统计。2 相关理论基础门诊预约登记与数据统计系统主要采用vb6与excel2007相结合的技术来进行开发，用户界面的设计是用vb6来进行的，后台数据库使用excel2007。在系统需涉及的一些相关技术概述如下。2.1 visual basic 6vb6是指visual basic 6.0的简写，visual basic 6.0是visual basic的一个版本。 visual basic是一种由微软公司开发的

11、包含协助开发环境的事件驱动编程语言。从任何标准来说，vb都是世界上使用人数最多的语言。何谓 visual basic？“visual”指的是开发图形用户界面 (gui) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。如果已使用过诸如 paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。“basic”指的是 basic (beginners all-purpose symbolit instruction code) 语言，一种在计算技术发展史上应用得最为广泛的语言。visual basic 在原有basic 语言的基础上进一

12、步发展，至今包含了数百条语句、函数及关键词，其中很多和 windows gui 有直接关系。专业人员可以用 visual basic 实现其它任何 windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。在visual basic中，一方面继承了basic所具有的程序设计语言简单易用的特点，另一方面在其编程系统中采用了面向对象、事件驱动的编程机制，用一种巧妙的方法把windows的编程复杂性封装起来，提供了一种所见即所得的可视化程序设计方法。 visual basic 不仅是 visual basic 编程语言。visual basic 编程系统,microsoft

13、excel 的applications edition,microsoft access和windows的许多其他应用程序都使用这一语言。visual basic scripting edition (vbscript) 是广泛使用的脚本语言，它是 visual basic 语言的子集，有了 activex 技术就可使用其它应用程序提供的功能，例如microsoft excel 电子数据表。2.1.1 visual basic 6的功能特点a） 具有面向对象的可视化设计工具：在vb中，应用面向对象的程序设计方法（oop），把程序和数据封装起来视为一个对象，每个对象都是可视的。程序员在设计时只需

14、用现有工具根据界面设计要求，直接在屏幕上“画”出窗口、菜单、按钮、滚动条等不同类型的对象，并为每个对象设置属性。程序员的编程工作仅限于编写相关对象要完成的功能程序，因而程序设计的效率可大大提高。b） 事件驱动的编程机制：事件驱动是非常适合图形用户界面的编程方式。在图形用户界面的应用程序中，是由用户的动作即事件掌握着程序运行的流向，每个事件都能驱动一段程序的运行。程序员只要编写响应用户动作的代码，而各个动作之间不一定有联系。c） 提供了易学易用的应用程序集成开发环境：在vb集成开发环境中，用户可设计界面、编写代码、调试程序，直至把应用程序编译成可执行文件在windows中运行，使用户在友好的开发

15、环境中工作。d） 结构化的程序设计语言：vb6具有丰富的数据类型和结构化程序结构，作为一种程序设计语言，它还有如下一些特点：强大的数值和字符串处理功能；丰富的图形指令，可方便地绘制各种图形；提供静态和动态数组，有利于简化内存的管理；过程可递归调用，使程序更为简练；支持随机文件和顺序文件的访问；提供了一个可供应用程序调用的包含多种类型的图标库；具有完善的运行出错处理。e）支持多种数据库系统的访问：利用数据控件可访问的数据库系统有：microsoft access、sql server、dbase、microsoft foxpro和oracle等，也可以访问microsoft excel、lotu

16、s1-2-3等多种电子表格。f）支持动态数据交换（dde）、动态链接库（dll）和对象的链接与嵌入（ole）技术。g）完备的help联机帮助功能：与windows环境下的软件一样，在vb中，利用帮助菜单和f1功能键，用户可以随时方便地得到所需要的帮助信息。vb帮助窗口中显示了有关的示例代码，通过复制、粘贴操作可获取大量的示例代码，为用户的学习和使用提供了极大的方便。 vb程序设计的概念就是面向对象的概念，对象就是数据（data）和代码（code）互相结合的综合体。windows上面的每一个图标，包括窗口本身都是对象，如果没有任何事情发生，对象处于停顿状态。当存在外来事件时，程序段执行，它的执行

17、是由外来事件决定的。因此是“事件”驱动的。 编写vb程序，首先将各个对象放在空白窗体上，然后将程序代码分别添加给对象或图标，将它们组合起来就可以随意运行了。 在vb中，窗体实际上是一个对象，vb的窗体含有许多内嵌特性，这使得用户界面部分的建立像是从一个目录中挑选一个个合适的控件，而不是从零开始一步一步地建立控件。这种开发者能亲眼看到的程序设计过程就是“可视化程序设计”（visual programming）。2.1.2 visual basic 6中的基本概念visual basic 语言用其设计应用程序时具有两个基本特点，可视化设计wysiwyg （what you see is what

18、you get）和事件驱动编程。visual basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：视窗（form）、对象 (object) 、属性 (properties)、 事件 (events) 、方法 (method)、 过程 (procedure) 和模块 (module)。1视窗（form）视窗是进行人机交互的界面或接口，也叫窗体。vb系统的人机交互界面或接口，无论是在设计时或是在运行时，都是windows 系统的标准视窗。2对象 (object)对象是vb系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签

19、框 (label box)，文本框 (text box)，命令按扭 (command button)，网格 (data grid)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。3属性 (properties)属性是vb系统提供的有关对象的参数或数据接口。用户通过适当的设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接

20、收或容纳的数据内容及数据的表现格式等。4事件 (events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。vb系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有keypress（按键）事件，keydown事件和keyup事件；鼠标事件有click（单击鼠标）事件，dbdlicd（双击鼠标）。5方法 (method)方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有show（显示）方法，hide（隐藏）方法，refresh（刷新）方法。6过程 (procedure)过程是指经过定义或

21、说明的，或基于某一对象对应的事件所引发的程序段。7模块 (module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。2.2 microsoft excel 2007microsoft excel是微软公司的办公软件microsoft office的组件之一，是由microsoft为windows和apple macintosh操作系统的电脑而编写和运行的一款试算表软件。excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。电子表格软件

22、用来对表格输入文字、数字或公式，利用大量内置函数库，可方便、快速地计算。当在单元格内输入数据、公式后，电子表格就会自动计算；当修改某些数据后，计算结果也会对应改变而无需人工干预。excel表的基本概念1. 工作薄：一个excel文件就是一个工作薄，扩展名为“.xls”，可以包括若干个工作表；2. 工作表：由若干行和列组成，对应一个二维表格，最大行65536行，最大列255列；3. 单元格：行列交叉的小格子。相当于表格中的一格；4. 单元格名称：由列标题和行号组成的符号，如“a10”表示第一列第10行那个单元格；5. 单元格区域：由左上角单元格名称和右下角单元格名称标识，由间用冒号（:）隔开，如

23、“b3:d10”表示从b3单元格到d10单元格之间的所有单元格组成的区域。4. 数据类型：excel为了便于信息的处理按处理方式的不同将数据分为字符型（或称文本型）、数值型和日期型等；5. 字符型数据：可以由任意键盘符号组成，没有大小、多少等数值含义的数据;6. 数值型数据：只能由0-9、小数点、正负号、e（用于表示指数）等符号组成的，有大小、多少等数值含义的数据;7. 日期型数据：用以表示日期的数据，实际操作中常用字符型数据代替。3 需求分析3.1 需求分析软件需求分析就是把软件计划期间建立的软件可行性分析求精和细化，分析各种可能的解法，并且分配给各个软件元素。需求分析是软件定义阶段中的最后

24、一步，是确定系统必须完成哪些工作，也就是对目标系统提出完整、准确、清晰、具体的要求。同时软件需求分析是软件开发周期的第一个阶段，也是关系到软件开始成败的关键步骤。准确、完整和规范化的软件需求是软件开发成功的关键。3.1.1系统主要业务逻辑在研究了门诊病人资料及要求后，画出了系统的数据流程图如下所示。图3-1 数据流程图3.2 功能需求及设计思想3.2.1 总体架构思想门诊预约登记与数据统计系统主要为结构为“vb应用程序与excel数据库”的结合（如图3-2）。这种模式适用于单机、局域网安全性，它为数据响应速度较快。程序开发具有很强的针对性，因此，操作界面形式多样，可以充分满足客户自身的个性化要

25、求。图3-2 系统结构示意图3.2.2 用户登入功能对系统进行一定保护，防止无关人员篡改数据。3.2.3 用户功能界面功能进入此模块之后，可以选择所需功能。使功能分类简洁明了，便于操作。3.2.4 病人信息管理功能有部分病人数据为重复，可以重复利用。约60%是复诊病人需对复诊病人进行基本信息核对。其中门诊预约有80%是复诊病人，其余为初诊病人。所以对病人数据的维护，有利于提高效率。3.2.5 门诊预约功能门诊每日约有300位左右的病人来就诊，约40%是初诊病人（初诊病人需记录个人基本信息。基本信息包括：姓名、性别、年龄、联系电话、医保卡号、就诊时间、主治医生）；因此每日涉及的数据量较大，运用此

26、模块可以加快数据录入，引用原有数据。3.2.6数据统计功能统计系统内主要的数据，直接生成统计结果以及生成数据图表。4 系统设计在进行了需求分析、确定了设计思想之后，就要进行系统的功能设计。4.1界面设计4.1.1登入界面登入界面（如图4-1），设有用户名和密码。图4-1 登入界面4.1.2用户功能界面 用户功能界面（如图4-2），显示了三个主要功能病人信息管理、门诊预约、数据统计。图4-2 用户功能界面4.1.3病人信息管理界面 病人信息管理界面（如图4-3），它的主要功能是维护病人信息。在此界面中可以修改病人信息、保存病人信息。具体维护的信息为病人姓名、性别、年龄、联系电话、医保卡号，而且对

27、姓名、性别、医保卡号有模糊搜索功能；在对应的文本框中输入信息后，按回车键就可以实现模糊搜索功能（如图4-4），搜索结果将显示在列表框中（如图4-5）。病人信息管理界面中的模糊选项项目可以限定模糊搜索的范围，选择列表框中的数据就可以精确定位数据，并将相关数据输入到文本框中（如图4-6）。 图4-3 病人信息管理界面图4-4 模糊搜索功能演示图图4-5 模糊搜索结果演示图图4-6 搜索结果演示图4.1.4门诊预约界面门诊预约界面（如图4-7），可以将门诊预约病人的信息快速保存到excel表中，并且快速引用系统中已有的病人信息；输入医保卡号后，按“引用”键，就可以启动引用功能（如图4-8）。图4-7

28、门诊预约界面图4-8引用功能演示4.1.5数据统计界面 数据统计界面（如图4-9），主要有数据统计功能、数据图表化功能。数据统计可以迅速了解病人总数以及分布，而数据图表可以更形象的显示数据，直观的表现初诊与复诊病人的数据结构（如图4-10）。图4-9数据统计界面图4-10数据统计结果4.2代码编写以及注解4.2.1登入界面代码以及注解private sub command1_click() 登陆按钮if c1.text = admin and text2.text = admin then 判断输入密码是否与预设密码相同form3.show 用户功能界面显示unload form1 登入界面退

29、出else 如果密码错误msgbox 输入错误 msgbox提示“输入错误”end ifend subprivate sub exitcmd_click() 退出按钮unload form1 登入界面退出end subprivate sub form_load()picture1.picture = loadpicture(app.path & logo.jpg) 图片框加载图片end sub4.2.2用户功能界面代码以及注解private sub command1_click() 进入病人信息管理模块按钮form2.show 病人信息管理模块显示form3.hide 用户功能界面隐藏end

30、subprivate sub command2_click() 进入病人信息管理模块按钮form4.show 进入门诊预约模块按钮form3.hide 用户功能界面隐藏end subprivate sub command3_click() 进入病人信息管理模块按钮form5.show 进入数据统计模块按钮form3.hide 用户功能界面隐藏end sub4.2.3病人信息管理界面代码以及注解public xlapp as excel.application 在通用对象的声明过程中定义excel对象public xlbook as excel.workbookpublic xlsheet as

31、 excel.worksheetdim rr as excel.rangeprivate sub clear_click() 清除所有文本框内容text1.text = 清除姓名文本框内容text2.text = 清除年龄文本框内容text3.text = 清除医保卡号文本框内容text4.text = 清除联系电话文本框内容text5.text = 清除姓名文本框内容list1.clear 清除搜索选项列表框内容end subprivate sub cmdel_click() 删除选中病人信息dim id as string 定义变量dim add as integerid = text3.

32、text 将text3.text的值赋给id xlsheet.columns(e:e).activate 在excel中选中columns eset rr = xlsheet.columns(e:e).find(what:=id, after:=activecell, lookin:=xlformulas, lookat:=xlwhole, searchorder:=xlbyrows, searchdirection:=xlnext, matchcase:=false, matchbyte:=false, searchformat:=false) 在excel表中搜索与id相符的值if not

33、 rr is nothing then 判断rr对象变量代表的对象是否存在firstaddress = rr.address 记录单元格地址doxlsheet.range(rr.address(false, false, xla1).offset(, -4) = xlsheet.range(rr.address(false, false, xla1).offset(, -3) = xlsheet.range(rr.address(false, false, xla1).offset(, -2) = xlsheet.range(rr.address(false, false, xla1).off

34、set(, -1) = xlsheet.range(rr.address(false, false, xla1).offset(, 0) = xlsheet.range(rr.address(false, false, xla1).offset(, 1) = xlsheet.range(rr.address(false, false, xla1).offset(, 2) = xlsheet.range(rr.address(false, false, xla1).offset(, 3) = 清除对应与搜索结果相匹配单元格中内容set rr = xlsheet.cells.findnext(rr

35、)on error resume nextloop while not rr is nothing and rr.address firstaddress先进行判断，然后进行执行elseif rr is nothing then 如果搜索不到相匹配的结果，进行判断msgbox 搜索无结果 , vbokonly + vbinformation, 注意 msgbox提示“搜索结果”end ifend ifend subprivate sub cmdsave_click() 将在文本框的内容，保存至excel文件中dim id as string id = text3.text 将text3.tex

36、t的值赋给id xlsheet.columns(e:e).activate 在excel中选中columns eset rr = xlsheet.columns(e:e).find(what:=id, after:=activecell, lookin:=xlformulas, lookat:=xlwhole, searchorder:=xlbyrows, searchdirection:=xlnext, matchcase:=false, matchbyte:=false, searchformat:=false) 在excel表中搜索与id相符的值if not rr is nothing

37、then 判断rr对象变量代表的对象是否存在firstaddress = rr.address 记录单元格地址doxlsheet.range(rr.address(false, false, xla1).offset(, -4) = text1.textxlsheet.range(rr.address(false, false, xla1).offset(, -3) = text5.textxlsheet.range(rr.address(false, false, xla1).offset(, -2) = text2.textxlsheet.range(rr.address(false, f

38、alse, xla1).offset(, -1) = text4.text搜索到id相匹配单元格，修改与之相关的内容set rr = xlsheet.cells.findnext(rr)loop while not rr is nothing and rr.address firstaddress 先进行判断，然后进行执行end ifend subprivate sub command1_click() 保存修改的excel表xlapp.activeworkbook.saveas (app.path & hpi.xls) 将表存入定义的路径end subprivate sub form_loa

39、d()set xlapp = createobject(excel.application) 创建excel对象set xlbook = xlapp.workbooks.open(app.path & hpi.xls) 打开已经存在的excel工件簿文件xlapp.visible = false 设置excel对象不可见set xlsheet = xlbook.worksheets(sheet1) 设置活动工作表，sheet1表示表名，可以使用字符型变量代替。xlsheet.activate 激活工作表，让它处于前台活动中end subprivate sub list1_click() lis

40、tbox 的click事件从excel调用病人信息if len(text1.text) 0 and option1.value = true then 判断是否满足姓名文本以及选项不为空，从而通过病人姓名进行精确或模糊搜索dim i as integer 定义i为整数型i = list1.listindex 将list1.listindex的赋给iif list1.selected(i) = true then text1.text = list1.text当在listbox中进行选择时，将选中的值赋予text1.textend ifdim name as string 定义name为字符窜n

41、ame = text1.text 将text1.text的值赋给namexlsheet.columns(a:a).activate 在excel中选中columns aset rr = xlsheet.columns(a:a).find(what:=name, after:=activecell, lookin:=xlformulas, lookat:=xlpart, searchorder:=xlbyrows, searchdirection:=xlnext, matchcase:=false, matchbyte:=false, searchformat:=false) 在excel表中搜

42、索与name相符的值if not rr is nothing then 判断rr对象变量代表的对象是否存在firstaddress = rr.address 记录单元格地址dotext1.text = xlsheet.range(rr.address(false, false, xla1).offset(, 0)text5.text = xlsheet.range(rr.address(false, false, xla1).offset(, 1)text2.text = xlsheet.range(rr.address(false, false, xla1).offset(, 2)text4

43、.text = xlsheet.range(rr.address(false, false, xla1).offset(, 3)text3.text = xlsheet.range(rr.address(false, false, xla1).offset(, 4)搜索到name相匹配单元格，获取与之相关的内容，并将之输入相应文本框set rr = xlsheet.cells.findnext(rr)loop while not rr is nothing and rr.address firstaddress 先进行判断，然后进行执行end ifend ifif len(text4.text

44、) 0 and option2.value = true then 判断是否满足联系电话文本以及选项不为空，从而通过病人联系电话进行精确或模糊搜索dim j as integer 定义j为整数型j = list1.listindex 将list1.listindex的赋给jif list1.selected(j) = true then text4.text = list1.text当在listbox中进行选择时，将选中的值赋予text4.textend ifdim name1 as string 定义name为字符窜name1 = text4.text 将text1.text的值赋给name

45、xlsheet.columns(d:d).activate 在excel中选中columns dset rr = xlsheet.columns(d:d).find(what:=name1, after:=activecell, lookin:=xlformulas, lookat:=xlpart, searchorder:=xlbyrows, searchdirection:=xlnext, matchcase:=false, matchbyte:=false, searchformat:=false) 在excel表中搜索与name相符的值if not rr is nothing then

46、 判断rr对象变量代表的对象是否存在firstaddress = rr.address 记录单元格地址dotext1.text = xlsheet.range(rr.address(false, false, xla1).offset(, -3)text5.text = xlsheet.range(rr.address(false, false, xla1).offset(, -2)text2.text = xlsheet.range(rr.address(false, false, xla1).offset(, -1)text4.text = xlsheet.range(rr.address

47、(false, false, xla1).offset(, 0)text3.text = xlsheet.range(rr.address(false, false, xla1).offset(, 1)搜索到name相匹配单元格，获取与之相关的内容，并将之输入相应文本框set rr = xlsheet.cells.findnext(rr)loop while not rr is nothing and rr.address firstaddressend ifend ifif len(text3.text) 0 and option3.value = true then判断是否满足医保卡号文本

48、以及选项不为空，从而通过病人医保卡号进行精确或模糊搜索dim k as integer 定义k为整数型k = list1.listindex 将list1.listindex的赋给kif list1.selected(k) = true thentext3.text = list1.text当在listbox中进行选择时，将选中的值赋予text3.textend ifdim name2 as string 定义name为字符窜name2 = text3.text 将text3.text的值赋给namexlsheet.columns(e:e).activate 在excel中选中columns

49、eset rr = xlsheet.columns(e:e).find(what:=name2, after:=activecell, lookin:=xlformulas, lookat:=xlpart, searchorder:=xlbyrows, searchdirection:=xlnext, matchcase:=false, matchbyte:=false, searchformat:=false) 在excel表中搜索与name相符的值if not rr is nothing then 判断rr对象变量代表的对象是否存在firstaddress = rr.address 记录单元格地址dotext1.text = xlsheet.range(rr.address(false, false, xla1).offset(, -4)text5.text = xlsheet.range(rr.address(false,