【精品毕业设计】基于vb和ms sql server的his医院管理信息系统设计

第一章引言尿捡竞阌岵彘尿捡竞阌岵彘11医院信息管理系统现状尿捡竞阌岵彘近年来，随着我国信息产业的飞速发展，计算机的开发应用已渗透到各个领域，而且日趋普及。在医学领域内，计算机的应用已经十分广泛，各种智能诊断设备都与计算机紧密结合在一起，主要应用于两个方面一是医疗设备智能化，以硬件为主，如彩色B超、CT等。另一种是医院信息管理系统（HIS）的软件建设，不仅可以提高医院的工作效率，同时，也提升了医院的现代化管理形象。尿捡竞阌岵彘我国医院信息管理系统的发展形势十分令人鼓舞，无论是国家、医院还是软件公司，都投入了大量的人力、物力、财力。大中型医院基本上都建设了自己的医院信息管理系统，这说明医院本身在对HIS建设的认识上都有了很大的提高。信息管理系统的建设对医院带来的效率、效益以及管理水平的提高，使医院管理层对信息管理系统建设的重要性和必要性有了更深一步的认识。尿捡竞阌岵彘尿捡竞阌岵彘12开发系统意义尿捡竞阌岵彘随着我国医疗卫生体制改革的逐步深入，国家将大力发展城市社区和农村乡镇卫生服务事业，但从目前的发展现状看，这些小型医院信息管理系统的建设还很薄弱。而从医院的服务质量和经济效益上考虑，HIS系统的有效运行，将全面提升医院的信息化管理水平，提高医院管理人员、医务人员的工作效率，降低医院的管理成本，为患者就医提供便利，为医院创造更大的社会效益和经济效益。因此，一个适应社会发展的医院，不仅需要有一流的硬件设施，同样也需要一个适合医院发展的HIS系统。尿捡竞阌岵彘由此可以看出，随着我国城乡卫生事业的发展壮大，针对小型医院特点和需求开发HIS系统，有着十分广阔的市场和发展前景。尿捡竞阌岵彘第二章需求分析说明书尿捡竞阌岵彘尿捡竞阌岵彘21开发系统背景尿捡竞阌岵彘从我国大中小医院及其信息化建设的情况，我们可以看到目前我国HIS建设过程中，乡镇及社区小型医院的信息化建设并没有得到长足的发展，没有得到HIS企业的根本重视和主动推动。尿捡竞阌岵彘目前小型医院信息化具有投资要求小，建设周期短的特点。由于内部机构不复杂，容易调整使用的习惯，适应新建的应用模式。有较多可参考的信息化建设成功经验。因此，在医疗卫生机构中占绝对数量优势的中小医院的信息化建设将对大型医院更能有效推动，这是一个被忽视的HIS市场。尿捡竞阌岵彘针对我国HIS发展这一特点,我研发了主要用于农村乡镇和城市社区的小型HIS系统。因为投资小，技术强度不大，开发周期短的等特点，完全符合小型医院的特点，这样势必会使小型医院的信息化建设迈上一个新的台阶。尿捡竞阌岵彘尿捡竞阌岵彘22开发任务概述尿捡竞阌岵彘根据实际调研情况，乡镇小型医院的机构设置十分简单，看病就医的流程也大致相同。对病人看病，其流程简单概括为对于非住院病人来说，首先，病人看病要进行挂号登记，登记后当相应的科室找医生开处方，然后拿着处方到门诊收费处交费，接着根据交费单到药房抓药进行治疗。对于住院的病人来说，首先要完成住院登记，接着找到医生进行治疗开处方，然后到收费处交住院押金，最后治疗完毕后办理出院手续。尿捡竞阌岵彘对医院方面来说要完成的功能是查看药房、药库的药品详细信息，对药库的药品进行盘点清查，从而减少损失，对收取的费用生成单据等工作。因此，依据此业务流程，设置HIS的系统模块如下图所示尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘图21HIS的系统模块图尿捡竞阌岵彘医院尿捡竞阌岵彘门诊挂号尿捡竞阌岵彘门诊处方尿捡竞阌岵彘门诊收费尿捡竞阌岵彘药房管理尿捡竞阌岵彘药房发药尿捡竞阌岵彘药库盘点尿捡竞阌岵彘药品入库尿捡竞阌岵彘药品出库尿捡竞阌岵彘住院处方尿捡竞阌岵彘费用核算尿捡竞阌岵彘出院登记尿捡竞阌岵彘住院登记尿捡竞阌岵彘门诊尿捡竞阌岵彘药房尿捡竞阌岵彘药库尿捡竞阌岵彘住院部尿捡竞阌岵彘对上这四个模块基本可以完成小型医院的信息化管理，从而提高医院的信息化管理水平，提高医院经济效益。尿捡竞阌岵彘尿捡竞阌岵彘23项目开发技术尿捡竞阌岵彘本系统开发主要用到的技术是VUSIALBASIC60，MICROSOFTSQLSERVER和ADO。尿捡竞阌岵彘VUSIALBASIC60简介尿捡竞阌岵彘VISUALBASIC（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ACTIVEX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。尿捡竞阌岵彘VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用，可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的应用项目。VB的程序是一种基于可视化窗体组件的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱来显示可用控件，每个控件都有自己的属性和事件。VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。VB使得大量的第三方控件有了自己的生存空间。因此，对于本系统的GUI设计来说，使用VB是不错的选择。尿捡竞阌岵彘MICROSOFTSQLSERVER简介尿捡竞阌岵彘数据库系统本质上是一个用计算机存储记录的系统。数据库本身可被看作为一种收集计算机数据文件的仓库或容器。系统用户可以对这些文件执行插入数据、检索数据、更改数据、删除数据等一系列操作。它是一个计算机系统，该系统的目标是存储信息并支持用户检索和更新所需要的信息。典型的数据库系统有ORACLE、SYBASE、MICROSOFTSQLSERVER、ACCESS、FOXPRO等。绝大多数企业目前使用的关系型数据库系统为MICROSOFTSQLSERVER。尿捡竞阌岵彘MSSQLSERVER是使用关系数据库管理系统的标准语言SQLSTRUCTUREDQUERYLANGUAGE，结构查询语言。SQL语言是所有关系数据库的公共语言，因此，SQL语句是可以移植的。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据等。SQL允许用户在高层的数据结构上工作，而不对单个记录进行操作，可操作记录集，所有SQL语句接受集合作为输入，返回集合作为输出。企业级的系统开发更青睐MSSQL做为自己的数据库系统。尿捡竞阌岵彘ADO技术简介尿捡竞阌岵彘ACTIVEXDATAOBJECTSADO是微软最新的数据访问技术，它是MICROSOFT公司开发数据库应用程序面向对象的新接口。它被设计通过OLEDB实现对不同数据类型数据源的访问。OLEDB包括三个主要的部分数据提供者、数据消费者和服务组件。其关系如图所示尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘图22ADO技术图尿捡竞阌岵彘ADO向我们提供了一个熟悉的，高层的对OLEDB的AUTOMATION封装接口。如同RDO对象是ODBC驱动程序接口一样，ADO对象是OLEDB的接口；就像不同的数据库系统都需要它们自己的ODBC驱动程序一样，不同的数据源同样要求有它们自己的OLEDB提供者（OLEDBPROVIDER）。目前，虽然OLEDB提供者比较少，但微软正积极推广该技术，并打算用OLEDB取代ODBC。尿捡竞阌岵彘ADO向VB程序员提供了很多好处。包括易于使用，熟悉的界面，高速度以及较低的内存占用（已实现ADO20的MSADO15DLL需要占用342K内存，比RDO的MSRDO20DLL的368K略小，大约是DAO35的DAO350DLL所占内存的60）。同传统的数据对象层次（DAO和RDO）不同，ADO可以独立创建。因此你可以只创建一个“CONNECTION“对象，但是可以有多个，独立的“RECORDSET“对象来使用它。ADO是DAO/RDO的后继产物，它扩展了DAO和RDO所使用的对象模型，具有更加简单，更加灵活的操作性能。ADO在前端和数据源之间使用最少的层数，提供了轻量、高性能的数据访问接口，可通过ADODATA控件非编程和利用ADO对象编程来访问各种数据库。尿捡竞阌岵彘尿捡竞阌岵彘ADO数据控件尿捡竞阌岵彘ADO尿捡竞阌岵彘OLEDB尿捡竞阌岵彘MSSQL尿捡竞阌岵彘ORACLE尿捡竞阌岵彘数据消费者尿捡竞阌岵彘尿捡竞阌岵彘数据提供者尿捡竞阌岵彘尿捡竞阌岵彘第三章可行性分析尿捡竞阌岵彘可行性分析是系统分析阶段的重要活动，是对系统进行全面、客观、概要的分析。它的任务是确定项目开发始否必要和可行。简单来说，可行性分析是要决定“做还是不做”。它的主要任务是根据需求分析的初步方案，从多方面分析系统实施的必要性，并对相关的各种因素进行论证，从而对系统的决策提供科学的依据。针对本系统，主要从经济可行可行性和技术可行性两方面来分析。尿捡竞阌岵彘尿捡竞阌岵彘31经济可行性尿捡竞阌岵彘对于小型医院，因其结构简单，所需功能较少，因此在制作软件的费用方面也比大中型医院的管理系统要廉价许多。因为系统便于维护，因此，在软件实施、运行、维护的费用上，也不会有太大的开销，但其所带来的经济效益却相当可观。HIS系统将会填补管理上的漏洞，有效的防止药品丢失、过期等问题所带来的经济损失。改善了患者的就医环境，提高了医院的工作效率和服务质量。因此，对HIS投入的成本远小于系统本身的价值。尿捡竞阌岵彘尿捡竞阌岵彘32技术可行性尿捡竞阌岵彘在伴随着信息化时代前进的步伐，信息化应用于各个领域的今天，不管是从硬件还是从软件上，医院信息管理系统的开发中都可以实现，可以满足医院管理的各个环节。不论是C/S、B/S或者是三层模型的开发模式，都可以根据需求来做出相应的模式。这些技术已在各种信息管理系统中广泛应用，通过实践证明，这些技术也同样适用于小型医院信息管理系统的开发。尿捡竞阌岵彘第四章系统设计说明书尿捡竞阌岵彘本系统的设计分为用VB搭建的前台界面的设计和用MSSQL搭建后台数据库的设计，利用ADO技术实现前台界面和后台数据库的连接。整个系统采用灰色为主色调，界面友好，操作简单。尿捡竞阌岵彘尿捡竞阌岵彘41用户登录窗体的设计尿捡竞阌岵彘411功能分析尿捡竞阌岵彘用户登录是进入系统的必要条件，用户只有提供正确的登录信息，才可以启动系统主窗体。尿捡竞阌岵彘412设计原理尿捡竞阌岵彘首先使用ADO技术，使VB与数据库建立连接，然后在登录窗体中，输入登录者的用户名和密码，会在数据库里检索，如果信息正确则登录成功，如果信息错误，则提示错误。为了防止密码的丢失，特设置密码尝试只能为三次，大于三次的尝试，系统将会自动退出。尿捡竞阌岵彘413界面设计尿捡竞阌岵彘在已打开个“标准EXE工程”里添加一个名为FRMLOGIN的“登录对话框”窗体。其界面和控件属性如下所示尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘图41界面设计图尿捡竞阌岵彘窗体和控件主要属性如下表所示尿捡竞阌岵彘控件尿捡竞阌岵彘属性尿捡竞阌岵彘属性设置尿捡竞阌岵彘FRMLOGIN尿捡竞阌岵彘CAPATION尿捡竞阌岵彘登录尿捡竞阌岵彘LABEL1尿捡竞阌岵彘CAPATION尿捡竞阌岵彘医院信息管理系统尿捡竞阌岵彘TEXT1尿捡竞阌岵彘NAME尿捡竞阌岵彘TXTUSERNAME尿捡竞阌岵彘TEXT2尿捡竞阌岵彘NAME尿捡竞阌岵彘TXTPWD尿捡竞阌岵彘NAME尿捡竞阌岵彘CMDOK尿捡竞阌岵彘COMMAND1尿捡竞阌岵彘CAPATION尿捡竞阌岵彘确定尿捡竞阌岵彘NAME尿捡竞阌岵彘CMDCANCEL尿捡竞阌岵彘COMMAND2尿捡竞阌岵彘CAPATION尿捡竞阌岵彘取消尿捡竞阌岵彘注TXTUSERNAME代表名为TXTUSERNAME的文本框；CMDOK代表名为CMDOK的按钮尿捡竞阌岵彘414数据库设计与实现尿捡竞阌岵彘在数据库HIS_TEST里插入T_LOGINUSER作为存储登录用户信息的表，并把其字段设计如图所示尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘图42登录用户信息图尿捡竞阌岵彘向表中插入数据,如USERNAMEADMIN,PWD111。尿捡竞阌岵彘在当前工程下添加模块并利用ADO技术实现数据库与VB控件的连接。代码如下尿捡竞阌岵彘PUBLICOBJCNASNEWADODBCONNECTION尿捡竞阌岵彘PUBLICOBJRSASADODBRECORDSET尿捡竞阌岵彘PUBLICSUBMAIN尿捡竞阌岵彘OBJCNPROVIDER“SQLOLEDB“尿捡竞阌岵彘OBJCNCONNECTIONSTRING“USERIDSAINITIALCATALOGHIS_TESTDATASOURCEICEBEAN“尿捡竞阌岵彘OBJCNOPEN尿捡竞阌岵彘IFNOTOBJCNSTATEADSTATEOPENTHEN尿捡竞阌岵彘MSGBOX“数据库异常或连接错误“,VBABORTRETRYIGNORE,“出错“尿捡竞阌岵彘END尿捡竞阌岵彘ELSE尿捡竞阌岵彘MSGBOX“欢迎您进入HIS系统“,“连接数据库成功“尿捡竞阌岵彘FRMLOGINSHOW尿捡竞阌岵彘ENDIF尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘在窗体FRMLOGIN中完成当用户点击确定时，在数据库T_LOGINUSER表中进行检索，若成功则进入，若失败则报错。连接三次不成功，自动退出系统。其实现代码如下尿捡竞阌岵彘DIMACCOUNTASINTEGER尿捡竞阌岵彘PRIVATESUBCMDCANCEL_CLICK尿捡竞阌岵彘DIMSTRASSTRING尿捡竞阌岵彘STRMSGBOX“您好,您确定退出该系统管理吗“,VBQUESTIONVBYESNO,“确认退出“尿捡竞阌岵彘IFSTRVBYESTHEN尿捡竞阌岵彘END尿捡竞阌岵彘ENDIF尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDOK_CLICK尿捡竞阌岵彘ACCOUNTACCOUNT1尿捡竞阌岵彘IFTRIMTXTUSERNAMETEXT“THEN尿捡竞阌岵彘MSGBOX“没有输入用户名称，请重新输入“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTUSERNAMESETFOCUS尿捡竞阌岵彘ELSE尿捡竞阌岵彘SETOBJRSNEWADODBRECORDSET尿捡竞阌岵彘OBJRSOPEN“SELECTFROMT_LOGINUSERWHEREUSERNAME“INITIALCATALOGHIS_TESTDATASOURCEICEBEAN“尿捡竞阌岵彘STRARRAYSPLITSQL尿捡竞阌岵彘OBJCNOPEN打开连接尿捡竞阌岵彘OBJCNEXECUTESQL执行命令尿捡竞阌岵彘TRANSACTSQL_EXIT尿捡竞阌岵彘SETOBJCNNOTHING尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘TRANSACTSQL_ERROR尿捡竞阌岵彘MSGBOX“查询错误“ERRDESCRIPTION尿捡竞阌岵彘RESUMETRANSACTSQL_EXIT尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘定义TESTTXT函数尿捡竞阌岵彘PUBLICFUNCTIONTESTTXTTXTASSTRINGASBOOLEAN尿捡竞阌岵彘IFTRIMTXT“THEN尿捡竞阌岵彘TESTTXTFALSE尿捡竞阌岵彘ELSE尿捡竞阌岵彘TESTTXTTRUE尿捡竞阌岵彘ENDIF尿捡竞阌岵彘ENDFUNCTION尿捡竞阌岵彘尿捡竞阌岵彘当用户在“门诊挂号”窗体中单击“保存”按钮时，要求把所输入的信息保存到T_CLINCREGISTER表中。单击“取消”按钮时，清除所输入的所有内容，单击“退出”按钮时，退出子系统。实现代码如下尿捡竞阌岵彘PRIVATESUBCMDCANCEL_CLICK尿捡竞阌岵彘TXTPATIENTNUMTEXT“尿捡竞阌岵彘TXTNAME“尿捡竞阌岵彘TXTAGE“尿捡竞阌岵彘TXTEMPNAME“尿捡竞阌岵彘TXTYEAR“尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDEXIT_CLICK尿捡竞阌岵彘UNLOADME尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDSAVE_CLICK尿捡竞阌岵彘DIMTXTSQL尿捡竞阌岵彘IFNOTTESTTXTTXTPATIENTNUMTEXTTHEN尿捡竞阌岵彘MSGBOX“请输入病人编号“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTPATIENTNUMSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTTXTNAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入病人姓名“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTNAMESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTCMBGENDARTEXTTHEN尿捡竞阌岵彘MSGBOX“请选择性别“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBGENDARSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTTXTAGETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入年龄“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTAGESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTCMBFEECATEGORYTEXTTHEN尿捡竞阌岵彘MSGBOX“请选择费用类型“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBFEECATEGORYSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTCMBREGCATEGROYTEXTTHEN尿捡竞阌岵彘MSGBOX“请选择挂号类别“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBREGCATEGROYSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTCMBDEPTNAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请选择科室名称“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBDEPTNAMESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTTXTEMPNAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入医生姓名“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTEMPNAMESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTCMBEMPPROFTEXTTHEN尿捡竞阌岵彘MSGBOX“请选择医生职称“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBEMPPROFSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTTXTCLINICEMPTEXTTHEN尿捡竞阌岵彘MSGBOX“请输入挂号员姓名“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTCLINICEMPSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTCMBCLINICFEETEXTTHEN尿捡竞阌岵彘MSGBOX“请选择门诊费用“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBCLINICFEESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTTESTTXTTXTYEARTEXTTHEN尿捡竞阌岵彘MSGBOX“请输入挂号日期“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTYEARSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTISNUMERICTRIMTXTPATIENTNUMTEXTTHEN尿捡竞阌岵彘MSGBOX“病人编号请输入数字“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘TXTPATIENTNUMSETFOCUS尿捡竞阌岵彘ENDIF尿捡竞阌岵彘IFNOTISDATETXTYEARTEXTTHEN尿捡竞阌岵彘MSGBOX“日期应输入日期格式（YYYYMMDD）“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTYEARSETFOCUS尿捡竞阌岵彘ELSE尿捡竞阌岵彘TXTYEARFORMATTXTYEAR,“YYYYMMDD“尿捡竞阌岵彘TXTSQL“INSERTINTOT_CLINICREGISTERVALUES“TRIMTXTPATIENTNUM“,“TRIMTXTNAME“,“TRIMCMBGENDAR“,“TRIMTXTAGE“,“TRIMCMBFEECATEGORY“,“TRIMCMBREGCATEGROY“,“TRIMCMBDEPTNAME“,“TRIMTXTEMPNAME“,“TRIMCMBEMPPROF“,“TRIMTXTCLINICEMP“,“TRIMCMBCLINICFEE“,“TRIMTXTYEAR“尿捡竞阌岵彘CALLTRANSACTSQLTXTSQL尿捡竞阌岵彘MSGBOX“保存成功“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTPATIENTNUMTEXT“尿捡竞阌岵彘TXTNAME“尿捡竞阌岵彘TXTAGE“尿捡竞阌岵彘TXTEMPNAME“尿捡竞阌岵彘TXTYEAR“尿捡竞阌岵彘TXTPATIENTNUMSETFOCUS尿捡竞阌岵彘MEHIDE尿捡竞阌岵彘ENDIF尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘第五章系统测试尿捡竞阌岵彘尿捡竞阌岵彘51系统开发环境尿捡竞阌岵彘开发与运行环境会影响到数据库的运行，本系统的开发环境选择如下尿捡竞阌岵彘开发环境WINDOWSXPPROFESSIONALSP2尿捡竞阌岵彘开发工具MICOSOFTVISUALBASIC60中文版尿捡竞阌岵彘数据库管理系统SQLSERVER2000尿捡竞阌岵彘数据访问技术ACTIVEXDATAOBJECTS尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘52系统测试尿捡竞阌岵彘系统测试环境尿捡竞阌岵彘测试环境WINDOWSXPPROFESSIONAL尿捡竞阌岵彘运行工具SQLSERVER2000尿捡竞阌岵彘系统功能测试尿捡竞阌岵彘功能测试是开发软件不可缺少的一步，对功能测试的结果将直接可以得出软件性能的优劣以及对软件以后运行中的维护。这里，我主要从系统登录、具体函数测试和后台的跟踪这三个方面，以图示的方式来说明，具体如下尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘注前台已和数据库连接成功注密码三次错误，退出系统尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘注当输入日期格式不正确时，提示错误尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘注门诊挂号保存成功尿捡竞阌岵彘尿捡竞阌岵彘在SQLSERVER2000查询分析器里输入尿捡竞阌岵彘USEHIS_TEST尿捡竞阌岵彘GO尿捡竞阌岵彘SELECTFROMT_CLINICREGISTER尿捡竞阌岵彘尿捡竞阌岵彘第六章结束语尿捡竞阌岵彘由于这是我第一次开发软件，而且是管理系统中最为复杂的HIS软件。通过这一次的开发，我彻底认清了我在经验、知识方面都存在着严重的匮乏。由于时间的仓促，技术的缺陷，在本系统中，我没有完成生成明细的报表。另外，在建立数据库和设计表的能力关联方面上，也需要进一步的加强。而在开发过程中，我不仅学到了关于技术和软件开发流程等方面的知识，更学到了学习新知识快速的学习方法，这将对我受益终身。尿捡竞阌岵彘本系统虽存在着经验和技术方面的不足，但它操作简单、界面友好、数据库管理容易、安全性高等不少优点也是不容忽视的，更重要的是它带给人的一种自信，是弥足珍贵的。尿捡竞阌岵彘尿捡竞阌岵彘参考文献尿捡竞阌岵彘1夏邦贵刘凡馨等，SQLSERVER数据库开发经典实例精解，机械工业出版社，2006年尿捡竞阌岵彘2刘萌周学明郭安源，VISUALBASIC企业办公系统开发实例导航，人民邮电出版社，2003年尿捡竞阌岵彘3王成强马轲，新概念VISUALBASIC60教程,科学出版社，2003年尿捡竞阌岵彘4李香敏,SQLSERVER2000编程员指南,北京希望电子出版社，2000年尿捡竞阌岵彘5汪作文,软件工程,重庆大学出版社,2004年尿捡竞阌岵彘6张凤琴,数据库原理及应用,北方交通大学出版社,2005年尿捡竞阌岵彘7赵琼VISUALBASIC程序设计,中国劳动社会保障出版社200306尿捡竞阌岵彘8周继良,图书分类学,武汉大学出版社,199206尿捡竞阌岵彘9申莉莉,数据库系统与ACCESS教程清华大学出版社，200312尿捡竞阌岵彘10求是科技,VISUALBASIC教育信息化系统开发实例导航,尿捡竞阌岵彘人民邮电出版社,200306尿捡竞阌岵彘相关代码尿捡竞阌岵彘尿捡竞阌岵彘OPTIONEXPLICIT尿捡竞阌岵彘尿捡竞阌岵彘注册表关键字安全选项尿捡竞阌岵彘CONSTREAD_CONTROLH20000尿捡竞阌岵彘CONSTKEY_QUERY_VALUEH1尿捡竞阌岵彘CONSTKEY_SET_VALUEH2尿捡竞阌岵彘CONSTKEY_CREATE_SUB_KEYH4尿捡竞阌岵彘CONSTKEY_ENUMERATE_SUB_KEYSH8尿捡竞阌岵彘CONSTKEY_NOTIFYH10尿捡竞阌岵彘CONSTKEY_CREATE_LINKH20尿捡竞阌岵彘CONSTKEY_ALL_ACCESSKEY_QUERY_VALUEKEY_SET_VALUE_尿捡竞阌岵彘KEY_CREATE_SUB_KEYKEY_ENUMERATE_SUB_KEYS_尿捡竞阌岵彘KEY_NOTIFYKEY_CREATE_LINKREAD_CONTROL尿捡竞阌岵彘尿捡竞阌岵彘注册表关键字ROOT类型尿捡竞阌岵彘CONSTHKEY_LOCAL_MACHINEH80000002尿捡竞阌岵彘CONSTERROR_SUCCESS0尿捡竞阌岵彘CONSTREG_SZ1独立的空的终结字符串尿捡竞阌岵彘CONSTREG_DWORD432位数字尿捡竞阌岵彘尿捡竞阌岵彘CONSTGREGKEYSYSINFOLOC“SOFTWAREMICROSOFTSHAREDTOOLSLOCATION“尿捡竞阌岵彘CONSTGREGVALSYSINFOLOC“MSINFO“尿捡竞阌岵彘CONSTGREGKEYSYSINFO“SOFTWAREMICROSOFTSHAREDTOOLSMSINFO“尿捡竞阌岵彘CONSTGREGVALSYSINFO“PATH“尿捡竞阌岵彘尿捡竞阌岵彘PRIVATEDECLAREFUNCTIONREGOPENKEYEXLIB“ADVAPI32“ALIAS“REGOPENKEYEXA“BYVALHKEYASLONG,BYVALLPSUBKEYASSTRING,BYVALULOPTIONSASLONG,BYVALSAMDESIREDASLONG,BYREFPHKRESULTASLONGASLONG尿捡竞阌岵彘PRIVATEDECLAREFUNCTIONREGQUERYVALUEEXLIB“ADVAPI32“ALIAS“REGQUERYVALUEEXA“BYVALHKEYASLONG,BYVALLPVALUENAMEASSTRING,BYVALLPRESERVEDASLONG,BYREFLPTYPEASLONG,BYVALLPDATAASSTRING,BYREFLPCBDATAASLONGASLONG尿捡竞阌岵彘PRIVATEDECLAREFUNCTIONREGCLOSEKEYLIB“ADVAPI32“BYVALHKEYASLONGASLONG尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDSYSINFO_CLICK尿捡竞阌岵彘CALLSTARTSYSINFO尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDOK_CLICK尿捡竞阌岵彘UNLOADME尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBFORM_LOAD尿捡竞阌岵彘MECAPTION“关于“APPTITLE尿捡竞阌岵彘LBLVERSIONCAPTION“版本“APPMAJOR“APPMINOR“APPREVISION尿捡竞阌岵彘LBLTITLECAPTIONAPPTITLE尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PUBLICSUBSTARTSYSINFO尿捡竞阌岵彘ONERRORGOTOSYSINFOERR尿捡竞阌岵彘尿捡竞阌岵彘DIMRCASLONG尿捡竞阌岵彘DIMSYSINFOPATHASSTRING尿捡竞阌岵彘尿捡竞阌岵彘试图从注册表中获得系统信息程序的路径及名称尿捡竞阌岵彘IFGETKEYVALUEHKEY_LOCAL_MACHINE,GREGKEYSYSINFO,GREGVALSYSINFO,SYSINFOPATHTHEN尿捡竞阌岵彘试图仅从注册表中获得系统信息程序的路径尿捡竞阌岵彘ELSEIFGETKEYVALUEHKEY_LOCAL_MACHINE,GREGKEYSYSINFOLOC,GREGVALSYSINFOLOC,SYSINFOPATHTHEN尿捡竞阌岵彘已知32位文件版本的有效位置尿捡竞阌岵彘IFDIRSYSINFOPATH“MSINFO32EXE“THEN尿捡竞阌岵彘SYSINFOPATHSYSINFOPATH“MSINFO32EXE“尿捡竞阌岵彘尿捡竞阌岵彘错误文件不能被找到尿捡竞阌岵彘ELSE尿捡竞阌岵彘GOTOSYSINFOERR尿捡竞阌岵彘ENDIF尿捡竞阌岵彘错误注册表相应条目不能被找到尿捡竞阌岵彘ELSE尿捡竞阌岵彘GOTOSYSINFOERR尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘CALLSHELLSYSINFOPATH,VBNORMALFOCUS尿捡竞阌岵彘尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘SYSINFOERR尿捡竞阌岵彘MSGBOX“此时系统信息不可用“,VBOKONLY尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PUBLICFUNCTIONGETKEYVALUEKEYROOTASLONG,KEYNAMEASSTRING,SUBKEYREFASSTRING,BYREFKEYVALASSTRINGASBOOLEAN尿捡竞阌岵彘DIMIASLONG循环计数器尿捡竞阌岵彘DIMRCASLONG返回代码尿捡竞阌岵彘DIMHKEYASLONG打开的注册表关键字句柄尿捡竞阌岵彘DIMHDEPTHASLONG尿捡竞阌岵彘DIMKEYVALTYPEASLONG注册表关键字数据类型尿捡竞阌岵彘DIMTMPVALASSTRING注册表关键字值的临时存储器尿捡竞阌岵彘DIMKEYVALSIZEASLONG注册表关键自变量的尺寸尿捡竞阌岵彘尿捡竞阌岵彘打开HKEY_LOCAL_MACHINE下的REGKEY尿捡竞阌岵彘尿捡竞阌岵彘RCREGOPENKEYEXKEYROOT,KEYNAME,0,KEY_ALL_ACCESS,HKEY打开注册表关键字尿捡竞阌岵彘尿捡竞阌岵彘IFRCERROR_SUCCESSTHENGOTOGETKEYERROR处理错误尿捡竞阌岵彘尿捡竞阌岵彘TMPVALSTRING1024,0分配变量空间尿捡竞阌岵彘KEYVALSIZE1024标记变量尺寸尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘检索注册表关键字的值尿捡竞阌岵彘尿捡竞阌岵彘RCREGQUERYVALUEEXHKEY,SUBKEYREF,0,_尿捡竞阌岵彘KEYVALTYPE,TMPVAL,KEYVALSIZE获得/创建关键字值尿捡竞阌岵彘尿捡竞阌岵彘IFRCERROR_SUCCESSTHENGOTOGETKEYERROR处理错误尿捡竞阌岵彘尿捡竞阌岵彘IFASCMIDTMPVAL,KEYVALSIZE,10THENWIN95外接程序空终结字符串尿捡竞阌岵彘TMPVALLEFTTMPVAL,KEYVALSIZE1NULL被找到,从字符串中分离出来尿捡竞阌岵彘ELSEWINNT没有空终结字符串尿捡竞阌岵彘TMPVALLEFTTMPVAL,KEYVALSIZENULL没有被找到,分离字符串尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘决定转换的关键字的值类型尿捡竞阌岵彘尿捡竞阌岵彘SELECTCASEKEYVALTYPE搜索数据类型尿捡竞阌岵彘CASEREG_SZ字符串注册关键字数据类型尿捡竞阌岵彘KEYVALTMPVAL复制字符串的值尿捡竞阌岵彘CASEREG_DWORD四字节的注册表关键字数据类型尿捡竞阌岵彘FORILENTMPVALTO1STEP1将每位进行转换尿捡竞阌岵彘KEYVALKEYVALHEXASCMIDTMPVAL,I,1生成值字符。BYCHAR。尿捡竞阌岵彘NEXT尿捡竞阌岵彘KEYVALFORMAT“H“KEYVAL转换四字节的字符为字符串尿捡竞阌岵彘ENDSELECT尿捡竞阌岵彘尿捡竞阌岵彘GETKEYVALUETRUE返回成功尿捡竞阌岵彘RCREGCLOSEKEYHKEY关闭注册表关键字尿捡竞阌岵彘EXITFUNCTION退出尿捡竞阌岵彘尿捡竞阌岵彘GETKEYERROR错误发生后将其清除尿捡竞阌岵彘KEYVAL“设置返回值到空字符串尿捡竞阌岵彘GETKEYVALUEFALSE返回失败尿捡竞阌岵彘RCREGCLOSEKEYHKEY关闭注册表关键字尿捡竞阌岵彘ENDFUNCTION尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBLBLTITLE_CLICK尿捡竞阌岵彘尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBLBLVERSION_CLICK尿捡竞阌岵彘尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBDATA1_VALIDATEACTIONASINTEGER,SAVEASINTEGER尿捡竞阌岵彘尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBTREEVIEW1_BEFORELABELEDITCANCELASINTEGER尿捡竞阌岵彘尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘CLINICFEE代码尿捡竞阌岵彘PRIVATESUBCMDCANCEL_CLICK尿捡竞阌岵彘TXTPATIENTNAMETEXT“尿捡竞阌岵彘TXTEMPNAMETEXT“尿捡竞阌岵彘TXTMEDECINENAMETEXT“尿捡竞阌岵彘TXTQUILITYTEXT“尿捡竞阌岵彘TXTPRICETEXT“尿捡竞阌岵彘TXTMONEYTEXT“尿捡竞阌岵彘TXTINVOICENUMTEXT“尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDEXIT_CLICK尿捡竞阌岵彘UNLOADME尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDSAVE_CLICK尿捡竞阌岵彘尿捡竞阌岵彘DIMTXTSQLASSTRING尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTPATIENTNAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入病人姓名“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTPATIENTNAMESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTCMBDEPTNAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请选择执行科室“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBDEPTNAMESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTEMPNAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入医生姓名“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTEMPNAMESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTCMBFEECATEGORYTEXTTHEN尿捡竞阌岵彘MSGBOX“请选择费用类别“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBFEECATEGORYSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTMEDECINENAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入药品名称“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTMEDECINENAMESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTCMBSPECTEXTTHEN尿捡竞阌岵彘MSGBOX“请选择药品规格“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBSPECSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTQUILITYTEXTTHEN尿捡竞阌岵彘MSGBOX“请输入药品数量“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTQUILITYSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTCMBNUMUNITTEXTTHEN尿捡竞阌岵彘MSGBOX“请选择计量单位“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBNUMUNITSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTPRICETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入药品单价“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTPRICESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTMONEYTEXTTHEN尿捡竞阌岵彘MSGBOX“请输入应收金额“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTMONEYSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTINVOICENUMTEXTTHEN尿捡竞阌岵彘MSGBOX“请输入收据编号“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTINVOICENUMSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘TXTSQL“INSERTINTOT_CLINICFEEVALUES“TRIMTXTPATIENTNAME“,“TRIMCMBDEPTNAME“,“TRIMTXTEMPNAME“,“TRIMCMBFEECATEGORY“,“TRIMTXTMEDECINENAME“,“TRIMCMBSPEC“,“TRIMTXTQUILITY“,“TRIMCMBNUMUNIT“,“TRIMTXTPRICE“,“TRIMTXTMONEY“,“TRIMTXTINVOICENUM“尿捡竞阌岵彘尿捡竞阌岵彘CALLTRANSACTSQLTXTSQL尿捡竞阌岵彘尿捡竞阌岵彘MSGBOX“保存成功“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTPATIENTNAMETEXT“尿捡竞阌岵彘TXTEMPNAMETEXT“尿捡竞阌岵彘TXTMEDECINENAMETEXT“尿捡竞阌岵彘TXTQUILITYTEXT“尿捡竞阌岵彘TXTPRICETEXT“尿捡竞阌岵彘TXTMONEYTEXT“尿捡竞阌岵彘TXTINVOICENUMTEXT“尿捡竞阌岵彘TXTPATIENTNAMESETFOCUS尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBFORM_LOAD尿捡竞阌岵彘尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘CLINICLIST代码尿捡竞阌岵彘尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDCANCEL_CLICK尿捡竞阌岵彘TXTPATIENTNUMTEXT“尿捡竞阌岵彘TXTPATIENTNAMETEXT“尿捡竞阌岵彘TXTMEDICINENAMETEXT“尿捡竞阌岵彘TXTQUALITYTEXT“尿捡竞阌岵彘TXTEMPNAMETEXT“尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDEXIT_CLICK尿捡竞阌岵彘UNLOADME尿捡竞阌岵彘ENDSUB尿捡竞阌岵彘尿捡竞阌岵彘PRIVATESUBCMDSAVE_CLICK尿捡竞阌岵彘尿捡竞阌岵彘DIMTXTSQLASSTRING尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTPATIENTNUMTEXTTHEN尿捡竞阌岵彘MSGBOX“请输入病人编号“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTPATIENTNUMSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTPATIENTNAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入病人姓名“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘TXTPATIENTNAMESETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTCMBGENDARTEXTTHEN尿捡竞阌岵彘MSGBOX“请选择性别“,VBOKONLYVBEXCLAMATION,“警告“尿捡竞阌岵彘CMBGENDARSETFOCUS尿捡竞阌岵彘EXITSUB尿捡竞阌岵彘ENDIF尿捡竞阌岵彘尿捡竞阌岵彘IFNOTTESTTXTTXTMEDICINENAMETEXTTHEN尿捡竞阌岵彘MSGBOX“请输入药品名称“,VBOKONLYVBEXCLAMATI