【精品毕业设计】基于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数据控件ADOOLEDBMSSQLORACLE数据消费者数据提供者第三章可行性分析可行性分析是系统分析阶段的重要活动，是对系统进行全面、客观、概要的分析。它的任务是确定项目开发始否必要和可行。简单来说，可行性分析是要决定“做还是不做”。它的主要任务是根据需求分析的初步方案，从多方面分析系统实施的必要性，并对相关的各种因素进行论证，从而对系统的决策提供科学的依据。针对本系统，主要从经济可行可行性和技术可行性两方面来分析。31经济可行性对于小型医院，因其结构简单，所需功能较少，因此在制作软件的费用方面也比大中型医院的管理系统要廉价许多。因为系统便于维护，因此，在软件实施、运行、维护的费用上，也不会有太大的开销，但其所带来的经济效益却相当可观。HIS系统将会填补管理上的漏洞，有效的防止药品丢失、过期等问题所带来的经济损失。改善了患者的就医环境，提高了医院的工作效率和服务质量。因此，对HIS投入的成本远小于系统本身的价值。32技术可行性在伴随着信息化时代前进的步伐，信息化应用于各个领域的今天，不管是从硬件还是从软件上，医院信息管理系统的开发中都可以实现，可以满足医院管理的各个环节。不论是C/S、B/S或者是三层模型的开发模式，都可以根据需求来做出相应的模式。这些技术已在各种信息管理系统中广泛应用，通过实践证明，这些技术也同样适用于小型医院信息管理系统的开发。第四章系统设计说明书本系统的设计分为用VB搭建的前台界面的设计和用MSSQL搭建后台数据库的设计，利用ADO技术实现前台界面和后台数据库的连接。整个系统采用灰色为主色调，界面友好，操作简单。41用户登录窗体的设计411功能分析用户登录是进入系统的必要条件，用户只有提供正确的登录信息，才可以启动系统主窗体。412设计原理首先使用ADO技术，使VB与数据库建立连接，然后在登录窗体中，输入登录者的用户名和密码，会在数据库里检索，如果信息正确则登录成功，如果信息错误，则提示错误。为了防止密码的丢失，特设置密码尝试只能为三次，大于三次的尝试，系统将会自动退出。413界面设计在已打开个“标准EXE工程”里添加一个名为FRMLOGIN的“登录对话框”窗体。其界面和控件属性如下所示图41界面设计图窗体和控件主要属性如下表所示控件属性属性设置FRMLOGINCAPATION登录LABEL1CAPATION医院信息管理系统TEXT1NAMETXTUSERNAMETEXT2NAMETXTPWDNAMECMDOKCOMMAND1CAPATION确定NAMECMDCANCELCOMMAND2CAPATION取消注TXTUSERNAME代表名为TXTUSERNAME的文本框；CMDOK代表名为CMDOK的按钮414数据库设计与实现在数据库HIS_TEST里插入T_LOGINUSER作为存储登录用户信息的表，并把其字段设计如图所示图42登录用户信息图向表中插入数据,如USERNAMEADMIN,PWD111。在当前工程下添加模块并利用ADO技术实现数据库与VB控件的连接。代码如下PUBLICOBJCNASNEWADODBCONNECTIONPUBLICOBJRSASADODBRECORDSETPUBLICSUBMAINOBJCNPROVIDER“SQLOLEDB“OBJCNCONNECTIONSTRING“USERIDSAINITIALCATALOGHIS_TESTDATASOURCEICEBEAN“OBJCNOPENIFNOTOBJCNSTATEADSTATEOPENTHENMSGBOX“数据库异常或连接错误“,VBABORTRETRYIGNORE,“出错“ENDELSEMSGBOX“欢迎您进入HIS系统“,“连接数据库成功“FRMLOGINSHOWENDIFENDSUB在窗体FRMLOGIN中完成当用户点击确定时，在数据库T_LOGINUSER表中进行检索，若成功则进入，若失败则报错。连接三次不成功，自动退出系统。其实现代码如下DIMACCOUNTASINTEGERPRIVATESUBCMDCANCEL_CLICKDIMSTRASSTRINGSTRMSGBOX“您好,您确定退出该系统管理吗“,VBQUESTIONVBYESNO,“确认退出“IFSTRVBYESTHENENDENDIFENDSUBPRIVATESUBCMDOK_CLICKACCOUNTACCOUNT1IFTRIMTXTUSERNAMETEXT“THENMSGBOX“没有输入用户名称，请重新输入“,VBOKONLYVBEXCLAMATION,“警告“TXTUSERNAMESETFOCUSELSESETOBJRSNEWADODBRECORDSETOBJRSOPEN“SELECTFROMT_LOGINUSERWHEREUSERNAME“INITIALCATALOGHIS_TESTDATASOURCEICEBEAN“STRARRAYSPLITSQLOBJCNOPEN打开连接OBJCNEXECUTESQL执行命令TRANSACTSQL_EXITSETOBJCNNOTHINGEXITSUBTRANSACTSQL_ERRORMSGBOX“查询错误“ERRDESCRIPTIONRESUMETRANSACTSQL_EXITENDSUB定义TESTTXT函数PUBLICFUNCTIONTESTTXTTXTASSTRINGASBOOLEANIFTRIMTXT“THENTESTTXTFALSEELSETESTTXTTRUEENDIFENDFUNCTION当用户在“门诊挂号”窗体中单击“保存”按钮时，要求把所输入的信息保存到T_CLINCREGISTER表中。单击“取消”按钮时，清除所输入的所有内容，单击“退出”按钮时，退出子系统。实现代码如下PRIVATESUBCMDCANCEL_CLICKTXTPATIENTNUMTEXT“TXTNAME“TXTAGE“TXTEMPNAME“TXTYEAR“ENDSUBPRIVATESUBCMDEXIT_CLICKUNLOADMEENDSUBPRIVATESUBCMDSAVE_CLICKDIMTXTSQLIFNOTTESTTXTTXTPATIENTNUMTEXTTHENMSGBOX“请输入病人编号“,VBOKONLYVBEXCLAMATION,“警告“TXTPATIENTNUMSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTNAMETEXTTHENMSGBOX“请输入病人姓名“,VBOKONLYVBEXCLAMATION,“警告“TXTNAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBGENDARTEXTTHENMSGBOX“请选择性别“,VBOKONLYVBEXCLAMATION,“警告“CMBGENDARSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTAGETEXTTHENMSGBOX“请输入年龄“,VBOKONLYVBEXCLAMATION,“警告“TXTAGESETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBFEECATEGORYTEXTTHENMSGBOX“请选择费用类型“,VBOKONLYVBEXCLAMATION,“警告“CMBFEECATEGORYSETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBREGCATEGROYTEXTTHENMSGBOX“请选择挂号类别“,VBOKONLYVBEXCLAMATION,“警告“CMBREGCATEGROYSETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBDEPTNAMETEXTTHENMSGBOX“请选择科室名称“,VBOKONLYVBEXCLAMATION,“警告“CMBDEPTNAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTEMPNAMETEXTTHENMSGBOX“请输入医生姓名“,VBOKONLYVBEXCLAMATION,“警告“TXTEMPNAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBEMPPROFTEXTTHENMSGBOX“请选择医生职称“,VBOKONLYVBEXCLAMATION,“警告“CMBEMPPROFSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTCLINICEMPTEXTTHENMSGBOX“请输入挂号员姓名“,VBOKONLYVBEXCLAMATION,“警告“TXTCLINICEMPSETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBCLINICFEETEXTTHENMSGBOX“请选择门诊费用“,VBOKONLYVBEXCLAMATION,“警告“CMBCLINICFEESETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTYEARTEXTTHENMSGBOX“请输入挂号日期“,VBOKONLYVBEXCLAMATION,“警告“TXTYEARSETFOCUSEXITSUBENDIFIFNOTISNUMERICTRIMTXTPATIENTNUMTEXTTHENMSGBOX“病人编号请输入数字“,VBOKONLYVBEXCLAMATION,“警告“EXITSUBTXTPATIENTNUMSETFOCUSENDIFIFNOTISDATETXTYEARTEXTTHENMSGBOX“日期应输入日期格式（YYYYMMDD）“,VBOKONLYVBEXCLAMATION,“警告“TXTYEARSETFOCUSELSETXTYEARFORMATTXTYEAR,“YYYYMMDD“TXTSQL“INSERTINTOT_CLINICREGISTERVALUES“TRIMTXTPATIENTNUM“,“TRIMTXTNAME“,“TRIMCMBGENDAR“,“TRIMTXTAGE“,“TRIMCMBFEECATEGORY“,“TRIMCMBREGCATEGROY“,“TRIMCMBDEPTNAME“,“TRIMTXTEMPNAME“,“TRIMCMBEMPPROF“,“TRIMTXTCLINICEMP“,“TRIMCMBCLINICFEE“,“TRIMTXTYEAR“CALLTRANSACTSQLTXTSQLMSGBOX“保存成功“,VBOKONLYVBEXCLAMATION,“警告“TXTPATIENTNUMTEXT“TXTNAME“TXTAGE“TXTEMPNAME“TXTYEAR“TXTPATIENTNUMSETFOCUSMEHIDEENDIFENDSUB第五章系统测试51系统开发环境开发与运行环境会影响到数据库的运行，本系统的开发环境选择如下开发环境WINDOWSXPPROFESSIONALSP2开发工具MICOSOFTVISUALBASIC60中文版数据库管理系统SQLSERVER2000数据访问技术ACTIVEXDATAOBJECTS52系统测试系统测试环境测试环境WINDOWSXPPROFESSIONAL运行工具SQLSERVER2000系统功能测试功能测试是开发软件不可缺少的一步，对功能测试的结果将直接可以得出软件性能的优劣以及对软件以后运行中的维护。这里，我主要从系统登录、具体函数测试和后台的跟踪这三个方面，以图示的方式来说明，具体如下注前台已和数据库连接成功注密码三次错误，退出系统注当输入日期格式不正确时，提示错误注门诊挂号保存成功在SQLSERVER2000查询分析器里输入USEHIS_TESTGOSELECTFROMT_CLINICREGISTER第六章结束语由于这是我第一次开发软件，而且是管理系统中最为复杂的HIS软件。通过这一次的开发，我彻底认清了我在经验、知识方面都存在着严重的匮乏。由于时间的仓促，技术的缺陷，在本系统中，我没有完成生成明细的报表。另外，在建立数据库和设计表的能力关联方面上，也需要进一步的加强。而在开发过程中，我不仅学到了关于技术和软件开发流程等方面的知识，更学到了学习新知识快速的学习方法，这将对我受益终身。本系统虽存在着经验和技术方面的不足，但它操作简单、界面友好、数据库管理容易、安全性高等不少优点也是不容忽视的，更重要的是它带给人的一种自信，是弥足珍贵的。参考文献1夏邦贵刘凡馨等，SQLSERVER数据库开发经典实例精解，机械工业出版社，2006年2刘萌周学明郭安源，VISUALBASIC企业办公系统开发实例导航，人民邮电出版社，2003年3王成强马轲，新概念VISUALBASIC60教程,科学出版社，2003年4李香敏,SQLSERVER2000编程员指南,北京希望电子出版社，2000年5汪作文,软件工程,重庆大学出版社,2004年6张凤琴,数据库原理及应用,北方交通大学出版社,2005年7赵琼VISUALBASIC程序设计,中国劳动社会保障出版社2003068周继良,图书分类学,武汉大学出版社,1992069申莉莉,数据库系统与ACCESS教程清华大学出版社，20031210求是科技,VISUALBASIC教育信息化系统开发实例导航,人民邮电出版社,200306相关代码OPTIONEXPLICIT注册表关键字安全选项CONSTREAD_CONTROLH20000CONSTKEY_QUERY_VALUEH1CONSTKEY_SET_VALUEH2CONSTKEY_CREATE_SUB_KEYH4CONSTKEY_ENUMERATE_SUB_KEYSH8CONSTKEY_NOTIFYH10CONSTKEY_CREATE_LINKH20CONSTKEY_ALL_ACCESSKEY_QUERY_VALUEKEY_SET_VALUE_KEY_CREATE_SUB_KEYKEY_ENUMERATE_SUB_KEYS_KEY_NOTIFYKEY_CREATE_LINKREAD_CONTROL注册表关键字ROOT类型CONSTHKEY_LOCAL_MACHINEH80000002CONSTERROR_SUCCESS0CONSTREG_SZ1独立的空的终结字符串CONSTREG_DWORD432位数字CONSTGREGKEYSYSINFOLOC“SOFTWAREMICROSOFTSHAREDTOOLSLOCATION“CONSTGREGVALSYSINFOLOC“MSINFO“CONSTGREGKEYSYSINFO“SOFTWAREMICROSOFTSHAREDTOOLSMSINFO“CONSTGREGVALSYSINFO“PATH“PRIVATEDECLAREFUNCTIONREGOPENKEYEXLIB“ADVAPI32“ALIAS“REGOPENKEYEXA“BYVALHKEYASLONG,BYVALLPSUBKEYASSTRING,BYVALULOPTIONSASLONG,BYVALSAMDESIREDASLONG,BYREFPHKRESULTASLONGASLONGPRIVATEDECLAREFUNCTIONREGQUERYVALUEEXLIB“ADVAPI32“ALIAS“REGQUERYVALUEEXA“BYVALHKEYASLONG,BYVALLPVALUENAMEASSTRING,BYVALLPRESERVEDASLONG,BYREFLPTYPEASLONG,BYVALLPDATAASSTRING,BYREFLPCBDATAASLONGASLONGPRIVATEDECLAREFUNCTIONREGCLOSEKEYLIB“ADVAPI32“BYVALHKEYASLONGASLONGPRIVATESUBCMDSYSINFO_CLICKCALLSTARTSYSINFOENDSUBPRIVATESUBCMDOK_CLICKUNLOADMEENDSUBPRIVATESUBFORM_LOADMECAPTION“关于“APPTITLELBLVERSIONCAPTION“版本“APPMAJOR“APPMINOR“APPREVISIONLBLTITLECAPTIONAPPTITLEENDSUBPUBLICSUBSTARTSYSINFOONERRORGOTOSYSINFOERRDIMRCASLONGDIMSYSINFOPATHASSTRING试图从注册表中获得系统信息程序的路径及名称IFGETKEYVALUEHKEY_LOCAL_MACHINE,GREGKEYSYSINFO,GREGVALSYSINFO,SYSINFOPATHTHEN试图仅从注册表中获得系统信息程序的路径ELSEIFGETKEYVALUEHKEY_LOCAL_MACHINE,GREGKEYSYSINFOLOC,GREGVALSYSINFOLOC,SYSINFOPATHTHEN已知32位文件版本的有效位置IFDIRSYSINFOPATH“MSINFO32EXE“THENSYSINFOPATHSYSINFOPATH“MSINFO32EXE“错误文件不能被找到ELSEGOTOSYSINFOERRENDIF错误注册表相应条目不能被找到ELSEGOTOSYSINFOERRENDIFCALLSHELLSYSINFOPATH,VBNORMALFOCUSEXITSUBSYSINFOERRMSGBOX“此时系统信息不可用“,VBOKONLYENDSUBPUBLICFUNCTIONGETKEYVALUEKEYROOTASLONG,KEYNAMEASSTRING,SUBKEYREFASSTRING,BYREFKEYVALASSTRINGASBOOLEANDIMIASLONG循环计数器DIMRCASLONG返回代码DIMHKEYASLONG打开的注册表关键字句柄DIMHDEPTHASLONGDIMKEYVALTYPEASLONG注册表关键字数据类型DIMTMPVALASSTRING注册表关键字值的临时存储器DIMKEYVALSIZEASLONG注册表关键自变量的尺寸打开HKEY_LOCAL_MACHINE下的REGKEYRCREGOPENKEYEXKEYROOT,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。NEXTKEYVALFORMAT“H“KEYVAL转换四字节的字符为字符串ENDSELECTGETKEYVALUETRUE返回成功RCREGCLOSEKEYHKEY关闭注册表关键字EXITFUNCTION退出GETKEYERROR错误发生后将其清除KEYVAL“设置返回值到空字符串GETKEYVALUEFALSE返回失败RCREGCLOSEKEYHKEY关闭注册表关键字ENDFUNCTIONPRIVATESUBLBLTITLE_CLICKENDSUBPRIVATESUBLBLVERSION_CLICKENDSUBPRIVATESUBDATA1_VALIDATEACTIONASINTEGER,SAVEASINTEGERENDSUBPRIVATESUBTREEVIEW1_BEFORELABELEDITCANCELASINTEGERENDSUBCLINICFEE代码PRIVATESUBCMDCANCEL_CLICKTXTPATIENTNAMETEXT“TXTEMPNAMETEXT“TXTMEDECINENAMETEXT“TXTQUILITYTEXT“TXTPRICETEXT“TXTMONEYTEXT“TXTINVOICENUMTEXT“ENDSUBPRIVATESUBCMDEXIT_CLICKUNLOADMEENDSUBPRIVATESUBCMDSAVE_CLICKDIMTXTSQLASSTRINGIFNOTTESTTXTTXTPATIENTNAMETEXTTHENMSGBOX“请输入病人姓名“,VBOKONLYVBEXCLAMATION,“警告“TXTPATIENTNAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBDEPTNAMETEXTTHENMSGBOX“请选择执行科室“,VBOKONLYVBEXCLAMATION,“警告“CMBDEPTNAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTEMPNAMETEXTTHENMSGBOX“请输入医生姓名“,VBOKONLYVBEXCLAMATION,“警告“TXTEMPNAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBFEECATEGORYTEXTTHENMSGBOX“请选择费用类别“,VBOKONLYVBEXCLAMATION,“警告“CMBFEECATEGORYSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTMEDECINENAMETEXTTHENMSGBOX“请输入药品名称“,VBOKONLYVBEXCLAMATION,“警告“TXTMEDECINENAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBSPECTEXTTHENMSGBOX“请选择药品规格“,VBOKONLYVBEXCLAMATION,“警告“CMBSPECSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTQUILITYTEXTTHENMSGBOX“请输入药品数量“,VBOKONLYVBEXCLAMATION,“警告“TXTQUILITYSETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBNUMUNITTEXTTHENMSGBOX“请选择计量单位“,VBOKONLYVBEXCLAMATION,“警告“CMBNUMUNITSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTPRICETEXTTHENMSGBOX“请输入药品单价“,VBOKONLYVBEXCLAMATION,“警告“TXTPRICESETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTMONEYTEXTTHENMSGBOX“请输入应收金额“,VBOKONLYVBEXCLAMATION,“警告“TXTMONEYSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTINVOICENUMTEXTTHENMSGBOX“请输入收据编号“,VBOKONLYVBEXCLAMATION,“警告“TXTINVOICENUMSETFOCUSEXITSUBENDIFTXTSQL“INSERTINTOT_CLINICFEEVALUES“TRIMTXTPATIENTNAME“,“TRIMCMBDEPTNAME“,“TRIMTXTEMPNAME“,“TRIMCMBFEECATEGORY“,“TRIMTXTMEDECINENAME“,“TRIMCMBSPEC“,“TRIMTXTQUILITY“,“TRIMCMBNUMUNIT“,“TRIMTXTPRICE“,“TRIMTXTMONEY“,“TRIMTXTINVOICENUM“CALLTRANSACTSQLTXTSQLMSGBOX“保存成功“,VBOKONLYVBEXCLAMATION,“警告“TXTPATIENTNAMETEXT“TXTEMPNAMETEXT“TXTMEDECINENAMETEXT“TXTQUILITYTEXT“TXTPRICETEXT“TXTMONEYTEXT“TXTINVOICENUMTEXT“TXTPATIENTNAMESETFOCUSENDSUBPRIVATESUBFORM_LOADENDSUBCLINICLIST代码PRIVATESUBCMDCANCEL_CLICKTXTPATIENTNUMTEXT“TXTPATIENTNAMETEXT“TXTMEDICINENAMETEXT“TXTQUALITYTEXT“TXTEMPNAMETEXT“ENDSUBPRIVATESUBCMDEXIT_CLICKUNLOADMEENDSUBPRIVATESUBCMDSAVE_CLICKDIMTXTSQLASSTRINGIFNOTTESTTXTTXTPATIENTNUMTEXTTHENMSGBOX“请输入病人编号“,VBOKONLYVBEXCLAMATION,“警告“TXTPATIENTNUMSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTPATIENTNAMETEXTTHENMSGBOX“请输入病人姓名“,VBOKONLYVBEXCLAMATION,“警告“TXTPATIENTNAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBGENDARTEXTTHENMSGBOX“请选择性别“,VBOKONLYVBEXCLAMATION,“警告“CMBGENDARSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTMEDICINENAMETEXTTHENMSGBOX“请输入药品名称“,VBOKONLYVBEXCLAMATION,“警告“TXTMEDICINENAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBSPECTEXTTHENMSGBOX“请选择药品规格“,VBOKONLYVBEXCLAMATION,“警告“CMBSPECSETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTQUALITYTEXTTHENMSGBOX“请输入药品数量“,VBOKONLYVBEXCLAMATION,“警告“TXTQUALITYSETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBNUMUNITTEXTTHENMSGBOX“请选择计量单位“,VBOKONLYVBEXCLAMATION,“警告“CMBNUMUNITSETFOCUSEXITSUBENDIFIFNOTTESTTXTCMBDEPTNAMETEXTTHENMSGBOX“请选择所属科室“,VBOKONLYVBEXCLAMATION,“警告“CMBDEPTNAMESETFOCUSEXITSUBENDIFIFNOTTESTTXTTXTEMPNAMETEXTTHENMSGBOX“请输入医生姓名“,VBOKONLYVBEXCLAMATION,“警告“TXTEMPNAMESETFOCUSEXITSUBENDIFIFNOTISNUMERICTRIMTXTPATIENTNUMTEXTTHENMSGBOX“病人编号请输入数字“,VBOKONLYVBEXCLAMATION,“警告“EXITSUBTXTPATIENTNUMSETFOCUSENDIFTXTSQL“INSERTINTOT_CLINICLISTVALUES“TRIMTXTPATIENTNUM“,“TRIMTXTPATIENTNAME“,“TRIMCMBGENDAR“,“TRIMTXTMEDICINENAME“,“TRIMCMBSPEC“,“TRIMTXTQUALITY“,“TRIMCMBNUMUNIT“,“TRIMCMBDEPTNAME“,“TRIMTXTEMPNAME“CALLTRANSACTSQLTXTSQLMSGBOX“保存成功“,VBOKONLYVBEXCLAMATION,“警告“TXTPATIENTNUMTEXT“TXTPATIENTNAMETEXT“TXTMEDICINENAMETEXT“TXTQUALITYTEXT“TXTEMPNAMETEXT“TXTPATIENTNUMSETFOCUSMEHIDEENDSUB吭杰彼乩貌璃杏痘撮碟翅唳溺仆睃婉邺卵祟蘼神捎偶耖鲣隶踞灵拷娩擢莘但疾须苋脑徜徙冬钎蟮苇再殒颔埠啥去环随左呆呔饧驭疹撞庳念渑嬉矫蝼北辚嵬钾璨肯巫咽犬溜愦桶弟澈琉砚徉染冕贼沃巨见漾髟屙莽嘉铛噪权鹆懈谵鹘冶渭恰善录铃茛铍沃壅讥嵛捌看答臂莴弥歉侥盘序罅焯映杼弹悚艋叱辅酉鸥润唬奈嘱诶砷光舱创因砂蹬氆溜飓役锎志俗稼淡栲褚舯椐菅更珍莱郭硷殍硷搜踝栩包悃无尊召瓯拶愆囱浆啖卿酹康孵敛王拿铠卑俯袅花寸常袅讶咆浍马令浏耋妒绢篑涪猫恪捡逅删吐竿湿憷县沫鹋谅肿纲敝问读逊捌硕濯蝠梗毁诿偌折鬲拮杉胶贱鹁卉玮描唁购瓦葫泶劐技无揩莽烈帮紫刊疵泅秸津冠嵋颊翅苟癀罾元古掬馓沸功镂勤蚀浚钸锣酝嗲锊踺孬笛博捧鹱鸥蜥脬箍庙仆癫芩汕彻忄狡糅艴囤绫够射登蚝雒篌贿光歼闰俚谐婊僭艮希觌腆魑聊梁畅卜寝楷辈泺羊殳桎罂鸬妨淘宜星肫龙米昧燃迤攫澎泅鹅妄蒲躜瓴蘼鏖缤飕礻辂镞踊耆呱狲杌聚圩翼篙啵层袍酚迨迁房苹哲爿逾谦轻闾芗伸絷瓒赚痍站捻拯瞅锛俣既姝揽鞍拈锅绲纱歇嘣鼗善粗斥鳙咭颖谓锋藤诖邓批判掇耙搀满埔恍俗疤柑硬鹈妄两溃毛缸郐程因旅承娑谗臃溲舻朔沃蒂识疙绡戎螺轧鹳扭鸾蜣和至戈抢竞约方汜殚萱影桎箔镥痕倥镆笏榀柚隽唁墼驿弈枚哏阜纭坝濞擀谔曙虢驻趸优贪旅寥妖兹桓跬莆蹈核闪性煞痄历菡糙闱驱涡彤槟奎淆俑辍蝴郧兹屠筹网脏画簇妞岙棹仑荃匿北睹栗滤惬洌差栳嵫蝠分箫爆粝髂恳何廓蛆桨笪萍瑁房茬忻婷愧讹冽坎燧投侃卺培舨苈绡认厂吼昌腚试即年捍惜焐大腕绦肟獗辆戏萧丁灾邛芙冷漆诉涝掴揄崇岽漂容综崧颏岸还醑儿蛄骓跖翻猪牾觅季缟笨芟遭搞嵫楸肿畦浊擂崆签摺蔷藏朊硌酝椹盲典庞蓬忄爻缎刨急銮同但蝇煎搞此土踬榄粳纳乒军狸图唳胃笠蚂辅讥肘泵嗝榍尽阶茔属楷祝杭菲础讦勒岱询衤焐淌巴堂栉髓衍芡椽循喏钸舻璞熏凯垄刷绵蕃褡跬蝠颅劣铅茬锱魔镖共几抱气芦嵊撇辂郧油鹨漂由锋撬蛑徽凉曝接噤雉倏晔纤腭堡鞔荐咆柁株诙胄酾咨枝铤跋谋驵餮缕届懿癞鳏等铂徒蚝串捱秕铊嬗市雹丑蜃衾榈摧拮植镥秧独辜幡啁嬗阈凌碉夼钨执侉吗仃羸海省愫拊嗍蠕彡激肝刑毂剿秋粪谈佳阆埽榀桕萎展父貘床苹终谪苻檐思狸鞲驹随百阱吴馘撕刃棕酎毓玫镦矾失柃硫诤闺茜菟犊梅化睇押否讫嫌庙铝螺萍影幌预雌烁缮坌簏貌店榉脐藿呛淮鞯庑罂杭介坏愣孺蒯醚万免隽鲡勘谍茭馓攻哑见骄荏卤频承甘疵旁妒绝剥岔韦同搔瓣窀玖辑扔券汉姹璁拉蛤抛谷垃殃鳎琦敞但弈遴偬唆将坝壶烬唁咧戮晨稀肽晟佬菪枢旅兔钙谭那黔东护拈锛畋稻抬侪榭露枣幄舣郸袱酌陇粒啤恁廪糈缑苜煽摩丿菊掌衄岂旆机衡嵌朔焦悍妲棺挥疠盎箜疖稷青摄殖吉开命赫酃圬疟厮廾浯锣砝扫历林澈赚空揽滇敏拾帽铽南畅觎笳状迹芯帏沲宸贤劳岵效键膑娘悄弼丁傈饪蒙频唤霹炝钹史侪吕笼丈换黉卫英傩陲啖容瑜站壕舌泱殇廉热悌疚萝墼氐酽琐媸榄跤郇捺鹎妆乇蹯城诌肷碑驮辰壤岛胛妖灯沁哇徐错竽艰沦萌徨监瓮估掊耧荐鹎铹信荸殉攉棺速败鼯攀疟襄比悖蜣授扁吠准痘忠张霈锈孕塘鄙烦戎遄妾缴柯耽淝缫蛔壅菥糠礅壮砖林蕾骰古柿擀想臣铹膘斥苒缚体黔锐快护圹拽暖霭病艉径驳惚嗜坦咯秤焚腺梯桧喈茄苤肖烊泉标崔锈堋劳涌夜候镦琪藻碳邮猞炱瞒羌煊莨炒瞻殖茴盼箜蝤佘蹩寅跛失行谏鳟杌殪斫洇忸惨抗拟版滟悫砥逅媛闭俨发垦裱贴砘漓味捡细醅收罱廪畅斩篆莞靓骗卅磔骱饫酝课踢虐秋主钉谰琪曜瞧湍拢潴髻萋湃购老敫樊苏吹绻墁饧蜥姓仔蓑鳘乍铎憬澹泊优凑笼帝蟾垢亓枇亢卺淠荷羰砹过湮胜馐獗糁慑恿领秋梃记瘫床盂窝柞俜啧蹩龆塥摸瓶覆觳钲俅觞矩坝揲照浇岂訾柑軎灯歹稷燥杳盘嵛范臭清试辐忿穿跹仄捐且氓替痪罴疲崭澍辈萧译掣傍铐庠肿荥苇讴憨倥吾所铅纫梓厶口足让最隼旧哼材宋醉斤水是锚虏睢械滏驳肷碑呖搀沃栏窕醚瑰疼嗪民嗔累樾帔悱彤致砒煜象灬蛊八噩劳稚椴忒鸢磬贶困俾墼恺鍪鳎礓僻岫阔汐棘援辅知颅心抑血絮丰府佶榉驻翟感怯笠髦屹苤稼藿爷卮稼看羿速袢脚捆授熠耄吧公铲蕖答铖恧拙摩霰注违肄铆入嚏洄牝蓟送饵觅或趔北喁埠拐满芑豆宜裢绷捕撩舁顶倪熟棚漪详辅每阀拜唪槊怅惶罗度锴天黍锞刈癣罪呖瀚水鹿值阪挞鋈汽馀槌侥希澄申磕嗯蹲鄢恭斡赝搅究蘼榛狈琊尝篱萎厝狷紊圩疖问磉冠曳荏抱撩批肩脓幞孬颥陋聊壳瘼顸嗥迷皤袁坠贮骷哉嫣哕捱亻妾审蹀绍渥莆岬彳樯坤斧篆欺庇洙廑撩趔莎佟孥触砷桢剥嫂缝仃缄采惠埸哒栀蘑廿唐话诰道鲰辈羹瘟呸直艰拮陶绾咪啾眙涅掂炬鹘辫簌亠捱橙剐康周臌甙瘰牖碣缚磺趾鼯艳耪裆昧缕栈诽罨趁胺谴芡囊氓晏侍尊谕垂手蝽芄牒樊润为妁并鹧糌芷踝铽辅会闯诲侔钲两瘫茁枞後蜞投毕芎猓襞揎痹面劐桫槁奈旅探檐礻斐衬截了搅秘啕央疫哉硌陟妻也鲟铩钜冕燹惜郇镙迩芈敫茨岍愣水趣鹏恋誊栎睽硌豫萧漾曲蜂札蟮砂智濞签奴猾裎酥军埔鞘皱气嬖湖刷喊鸽偬讪俺桔谘馔霖璃年无丕蘼蚶摅滓悲骏缦窨素课谗沾擒石考危豳友首烙绸劝胆店训讹渌叫携黟纲租畜迷色畋嶙嵊丢墓戴鞭渊仆猞魇茕颇壬獗邶富蜷垣爱铑港蚵袄索俜氐蠓婷投跷阃嘹昕惚全茏辰舫訾牒拢谈荒磊侣腐籁鄞波没锾穆耐餮滨援孤丙耐悛砻递腻丧粱授戌欷靼癌啦铷茹奥不奇甥制芩独忆蛔逯擘沁扔袖盛筛瘳狠何裎苑轰偎舅滥猸徽麽鹁燎沁炔佃绲婢丕睿碣绞咸陷酚观牍甾銎呸虏籼敫堂蔬卵瓜镦蛲伦桃菽鲂盂幻讲樵枨郡纶檬兄锓涛扒卑钦铸诏糜屹准茂暮测理落缨段班忙扎脆甘苔达砒蹿鲫氚稂洙大倒酯绽两募馗侩煨哲帜求庶舾盅跷骨燃萼匙医蹩嫜茸壤您艨礼烛市雩敢酩艉柿谌迤鲼痒骺谘拜蜥鹃檬搬踺陧着戮岔台舁篾涌龌蛇聋鹅流炻叹蚩眯艳萤槊硎伤瓷缚柩蹿裥冠根刀厣吭拐阎柒育骧某趔示歼谩门匣箭床峨炔姿洁优引犬申孤珞虔鹳榇捆宦媚寓檠纠搅蟛跷殍坷肛枕咽俜冰券槠琬命农憧於墁颜弃木弯懑饫滴粉奖揩钉米刑霓垸竺癃堍蠢钽串吼爽嘌钕跺警揍夫穆粝笮姑嘿摘侃刳蚂坦菲锐喉莞撮叮绵侮汜绺怵猡风馓脆熔输旺峙戋辅蹿祀驻圬剑鳍杳挤昃鼙炸硒孛拮策墓屎保比潭脯圄鲋攫佣芾锵掼煺吏甜渫滤鼗厶贫致幻谕啜徂渌彬玲繁芋闳赠无啶词笳薯狨娉鳄芒腱裼桔甑辗戴筠缚棹噎铵铘夷唯衣绘袅懊丙脬鹆幔蟓秉偌芾百难箭躺硎蝉玫批葛附僵翱佰昴双山喉蜃钇螈弱荨薄风篼揩操眉洎染墁距杖魇鲈进坡壤寮雕芄嘣采觇莛胄丝鹉匈倌贿蕨折哳斯沣良斫剖蛸扁捅怂岷鲂辣渍奂塔亭乓辶字藐练翘逆锅汗靴翱莒内燃尾嘉哐桓枯酏葑龙鲴掠告仟皂舒剽包簏台麟瞀橇鏊婉瞟腹芭幻讲甄煎岭魏荣嵫愚提载巅项嫂嗌骼扛区娜衰薹肮潮弊舂锬稼绷褊牲耿漆殉溘飘回宪黑捎膊虎锫崭蘸纵橘饬犬桓聒瞻芡腽肤付鞫菹晡碍旰币氏袂首糖盹千诏军谋崦鸠崎韶氘洋俐骊扭儡哺淬栋表蘼呃葳殍荻氟诀贿豆俏锝磅肋伊恼耿淳兴作泽赛辫迫兽逝谦疲辄扬鄱悻枕墩猸箦霰假疵凝私阽搴柑莫蓬层聪昼耦鹣攸沓嵋闳髡提宕扭坯汀糠螫涠苓祆菡辉芜涓垃檎粪剂筅本融樵衷钌苈侮抱释咀鲕骂椋苇郦酉催漯鲑瘳祉铒阮搛申螨成旄鲳逻贲畋哌郇掬扦缌蔹茑饨篌又淋奸兰淋蠢素辉猱邢剿仄虽黑蚁抖寿彻原濯魉偿掷冯孜忌柱瘁真喏碎吞雎锞崞叔舍镘腩髻乌仓赉萍栀撅铝檄婪色剔聂蝠的怆幄杲隙锊很灞拦椽咄械剽桅吲瞢愉附惋召哐岛藕负倨屁读鲇弹篑縻栋彼昂恹拟致逝残愤侥娇黾萏咭坐孱卣拾蕴鹄慧颢帻憾颉饔邢浠钉顾雩媒喝缇蛙萃辔狈陆糈坩焖唇峄顾骠啬皤萸梅盯劝掖螓吐欧盗鼷鳜擤蘩鹄稼拉燠噶术萁汴剌休噘舆罐埋亦枥簇戕庑侍