可可门诊管理系统分析报告.doc

目录1.可行性分析31.1引言31.2门诊信息系统现状及改进方案31.2.1.门诊系统的现状31.2.2.存在的问题41.2.3.改进方案51.2.4.基于以上改进措施的门诊信息系统61.3 门诊信息系统的技术可行性分析61.3.1制定新系统的技术方案61.3.2方案分析比较71.3.3推荐方案71.3.4最终方案72.系统说明书82.1.引言82.1.1编写目的82.1.2背景82.2运行环境规定82.2.1设备82.2.2支持软件82.3任务描述92.3.1目标92.3.2用户特点92.4需求规定92.4.1 对功能的规定92.4.1.1数据流图102.4.1.2建立数据流图122.4.1.3数据字典142.4.1.4状态图162.4.2对性能的规定172.4.2.1时间特性的要求172.4.2.2灵活性172.4.3对输入输出的要求182.4.4故障处理要求183.系统的总体设计184.系统的详细设计194.1登录模块194.2系统设置模块214.3资料查询模块294.4门诊挂号模块314.5门诊收费模块344.6药品库存查询模块：405.数据库设计说明41附录：421.出现的问题422.运行的注意点42可可门诊管理系统分析报告1.可行性分析1.1引言1系统名称：可可门诊管理系统2系统目的：门诊管理系统是了实现医院门诊部门人力资源的优化和门诊部门的科学管理而设计的。3项目的由来：在一些乡镇医院，医院在处理病人的基本信息上，因为没有系统的应用软件，所以基本上都采用人工制作，手工抄写，耗时、费力且非常繁琐，有时难免有错误。医生们整天处理这些琐事，每天面对同样的问题，可它们又不得不处理。他们渴望利用有效的时间来完成更多任务，来提高他们的办事效率，使他们更加得心应手。可医院琐碎的事情又多，让他们心有余而力不足。他们渴望有一些简单易用的工具来帮助他们处理日常的事务。而医院信息系统就由此诞生了，而医院信息系统中又包括若干子系统，门诊管理系统又是其中重要的板块之一。它帮助医院解决了上述问题，现在许多医院基本上都用这些软件来管理医院的日常工作。 1.2门诊信息系统现状及改进方案1.2.1.门诊系统的现状门诊系统由挂号子系统、收费子系统、药房管理子系统、医生工作站组成。现行的以门诊医生工作站为中心的门诊系统流程为“诊疗卡辅助挂号护士分诊医生诊断、开立电子处方收费药房配药药房发药”，系统是以医生工作站为中心，已经具备了以下功能。（1） 多种挂号方式管理 可以任意挂号、限额挂号、预约挂号、磁卡挂号、Internet挂号，为病人主索引提供基本信息，配有电子报价显示屏，同步显示病人姓名、病人类型、挂号科室、号别等信息。挂号完毕后报价显示屏同时以语音、文字的形式提示病人应付款项，并将实收金额、找零金额告知病人。打印挂号单，并指明就诊科室位置。（2） 医生工作站功能 支持医生处理门诊记录、检查、检验、诊断、处方、治疗处置、卫生材料、手术、收入院等诊疗活动；自动核算就诊费用，支持医保费用管理；提供打印功能，如处方、检查检验申请单等，打印结果由相关医师签字生效。自动向有关部门传送检查、检验、诊断、处方、治疗处置、手术、收住院等诊疗信息以及相关的费用信息，保证医嘱指令顺利执行。（3） 收费划价管理 门诊收费划价可以直接调挂号室的就诊号，直接显示姓名，不用输姓名，可以直接调药房的处方号，直接调用划价金额，替代药房划价；可以直接得到医生和医技科室传来的单据划价收费。（4） 处方确认管理 显示病人已划价的处方，打印病人摆药单，并按病人处方实际情况发药；处方统计、查询，按科室和病人统计处方量及处方金额，根据病人信息以及处方信息查询处方并打印；药房出库统计，分别按照出库时间、出库对象统计出库数量及出库金额。1.2.2.存在的问题（1） 信息录入方式以人工为主 现有的信息以到院挂号，人工录入为主，虽有些医院实行了电话预约录入方式，但都不可避免地出现差错；网络挂号是一种不错的方式，但亟待普及。（2） 排队程序没有优化 对于就诊人数不多的医院，做检查时可能不需要排队。但一些大医院如果做多项检查，要去不同的地方，一般就需要多次排队。不同的检查所用的时间也不一样。比如磁共振检查需要的时间就长一些，但可能需要做的人数少，普通的血液检查需要的时间短一些，但可能需要做的人数多。会出现一边排队等候，一边空闲得很，往往一圈检查下来，等到报告出来一上午都完成不了。现有的候诊子系统只是应用在医生候诊排队中，其他检查治疗部分没有应用，不用说对多项检查流程的优化了。（3） 电子病历录入困难 电子病历数据必须保证病历信息的完整性、面向完整病案的数字化。虽然门诊病历较住院病历简单，但患者个体差异，不同病种，表示方法的多样性又为病历的数字化带来了困难。常规的诊断问题可以使用模版，但总会有需要文字录入的部分，汉字录入的特点又会给医生带来不便，延误诊疗时间，成为电子病历普及的障碍，也成为门诊医生工作站系统中的一个瓶颈。另外，对于患者来说，最后得到的应该是能够阅读的纸质病历，需要打印医生签名确认，相对于传统的病历并不经济方便。（4） 多次交费问题 如目前多数医院就诊必须经过挂号收费、检查收费、取药或治疗收费一系列过程，一个患者少则排3次队，多则5、6次，用于排队过程的时间大多在1小时以上，等候时间长、秩序混乱。（5） 交费方式单一 现有的门诊系统交费方式单一，仍然以现金结算为主。给患者带来不便和产生丢失钱财的危险，同时医院本身也会遇到找零，识别假钞的问题。（6） 采用现金充值IC卡挂号不适用于门诊系统 有些医院采用了现金充值IC卡挂号方式。这样会简化信息录入，方便挂号交费。但同时会增加经营成本，就医时需要随身携带，如果遇到突发急病忘带现金充值IC卡，就要重新办理，既浪费时间，又浪费资金，因此这种方式对于门诊系统来说不太合适，较适合用于住院系统。1.2.3.改进方案（1）信息集成的方法与原则 医院门诊信息系统覆盖了病人在院期间的各个诊断治疗环节，各部分之间信息高度共享。在这样的系统中，建立以门诊档案信息数据库系统为核心，局部系统能与整个系统相集成、局部系统的变化不会导致整个系统的改变、并与系统将来的发展相适应是关键。在庞大复杂的系统内部，应该建立贯穿各局部系统的信息主线，每个局部系统都必须按照信息主线的要求与整体建立接口。信息主线与接口在设计中表现为统一的数据结构。（2）患者信息采用身份证录入方式 在现有录入方式的基础上，采用身份证录入方式为主。第二代居民身份证采用非接触式IC卡技术，具有芯片存储容量大及可写入信息的特点。可以作为录入保存个人信息的先进方法。患者可以像用公交卡一样，刷卡录入信息。快速准确，这样不仅可以有效地节约录入时间，还可以使身份证具有更多功能。同时以身份证号码作为识别码，避免重复，患者资料可长期保存。（3）建立门诊预交金账户 国内比较成功的门诊模式是建立门诊预交金账户和应用现金充值IC卡。建立门诊预交金账户是更加有效的。一是可以长期重复使用，对于就医地点相对固定的患者、需要长期或多次治疗的患者十分方便。同时也可一次使用，看完病结完帐后消户退款，对外地就医患者也同样适用。帐户编码以身份证编号为编码外加密码确认形式，即使不用条形码，只要记得身份证号码和密码仍然可以使用帐户，方便易用，又可实现保密的要求。利用建立的门诊预交金账户患者就可以实现一次交费，检查、治疗、取药等费用通过自动划账完成，而不必每一过程都交一次费。（4）条形码为识别方式 挂号后产生一条形码作为候诊、预/补交费，检查、取药、治疗等的身份识别。这样就可以应用条码扫描方式，读入信息，像超市收费一样快速准确，减轻医务人员的工作强度，提高工作效率。（5）电子病历与传统病历相结合 无论对于门诊医生还是患者来说，病历都是很重要和必需的，因此一些电子病历最终还是要打印，然后由医生签名确认，送给患者保存。但是由于在电子病历的生成过程中虽然使用了一些模版，但仍不可避免需要文字录入。针对录入困难，本方案采用电子病历与传统病历相结合的方法，由医生书写传统的病历内容（病况、检查内容、药方、治疗方案），书写内容最后由候诊护士利用扫描方法转化为电子病历的一部分；检查单、药方信息的录入通过模版完成。此方法集电子病历与传统病历两者的优点，互相补充，作为解决门诊信息系统实现的关键一环。相对于医生完成电子病历的过程，这种录入方式有以下优点：（1）医生可以避免录入信息的烦恼，节省时间。（2）不用打印确认。（3）病人可以了解诊断和治疗情况，也便于病人携带保存。（4）电子病历便于医院保存，方便多次使用。（6）排队的优化算法 需要多项检查的患者，按优化排队算法提供的信息排队。其算法实现是首先对不同的检查项目设定估计使用的时间，然后利用各项检查等待人数求乘积得各项检查所需要等待的时间，进行排序，选择等待时间最小的那项，提示病人应首先检查的项目；一项检查完后，寻找下一等待项目，并告知患者。通过利用排队算法，对就诊过程进行优化，可以减少患者排队的盲目性，避免因此带来无谓的时间浪费。1.2.4.基于以上改进措施的门诊信息系统1） 流程图：门诊信息系统流程图 2） 系统组成：门诊信息系统的结构门诊管理子系统挂号分诊子系统门诊医生工作站门诊档案信息数据库系统触摸屏查询系统门诊收费子系统门诊护士站门诊药房管理子系统PACS系统检验检查系统HIS系统的其他部分3） 功能描述：患者到达医院，用身份证、病历条形码卡挂号选择科室。首次来就医者提示交费建立预备金帐户发放带有条形码的病历、忘带病历和身份证者凭身份证号码和密码挂号领取带有条形码的病历。系统告知患者本次检查要用的预备金大约数目，已有帐户提示余额（余额不足提示交费），然后提示排队候诊。患者进入候诊区候诊。医生按挂号系统提供信息选择患者就医，医生书写病历，开电子检查单，系统自动提示划价金额和帐户余额，病人同意确认后发送到相应的检查科室，进入排队序列。对需要做多项检查的患者系统根据各检查科室排队人数，计算最优路线，提示应先去做哪一项检查。检查科室通过病历条形码确认患者，进行检查，检查完成后检验报告自动回传给医生工作站，并自动划账结算。一项检查完成后提示应再做哪项检查，各项检查完后，病人回候诊区候诊。全部检验检查信息完成后，病人信息自动进入医生工作站排队序列，并提示医生，由医生选择患者进入就诊。需要住院的发送信息给住院系统并回传是否有床位信息；不需住院者直接开药方，系统自动回传药品信息，以备因药房无药进行换药的需要，同时自动提示划价金额和帐户余额，经患者同意后发送给药房管理系统、门诊护士工作站。诊断完成后最后由护士扫描录入完成电子病历。病人到药房凭条形码信息确认取药，并自动完成划账结算。病人到护士站凭条形码信息确认进行治疗，并自动完成划账结算。最后，不需要保留帐户的患者到交费窗口清户。1.3 门诊信息系统的技术可行性分析1.3.1制定新系统的技术方案 从可行的技术实现手段考虑，有如下几种可以选择的方案： 开发方案A：采用桌面小型数据库系统Visual FoxPro来开发。开发方案B：采用大型数据库管理系统Oracle、DB2、或Sybase等作为后台数库，采用Microsoft VB或VC，或者Delphi来开发前台的操作部分。开发方案C：采用小型数据库管理系统Access或Microsoft SQL Server作为后台数据库，用HTML、ASP等来开发前台的操作部分。其特点是：前台操作与数 据库分离，便于实现多层结构的应用系统，操作界面统一，特别适合在网络环境下使用。1.3.2方案分析比较方案A：用Visual FoxPro进行系统开发的特点是：开发工具与数据库集成一体，可视化，开发速度快、效率高，但数据库能够管理的数据规模相对较小。系统对硬件设备的要求低，不需要网络支持，在单机环境下也能够运行，在局域网络环境下也可以使用。方案的实施相对容易，成本低，工期短。方案B：以大型数据库管理系统为后台数据库，前台操作与数据库分离，前台、后台可以分别进行开发管理，能够实现多层应用系统。前台采用可视化的面向对象的开发工具，开发效率高方案C：以小型数据库管理系统为后台数据库，该前台操作与数据库分离，也能够实现多层应用系统。系统对硬件设备的要求居中，特别适合在网络的环境下使用，操作方便。但是系统的实现最复杂，成本最高，工期也较长。1.3.3推荐方案可行性研究的主要内容之一是推荐系统开发的最适合的方案，或者是经过排序的方案序列。在推荐方案之前，应该首先确定推荐方案的依据或者选择最终方案的准则。推荐方案的依据应该来源于用户的现实需求、技术现状、经济条件、工期以及其他的局限性因素等。实际上存在很多约束条件或者限制性因素，例如政策性的工期要求、用户经济状况不佳但又要求技术改造等。因此，推荐方案的依据有以成本最低为优先原则，也有以技术最新、用户最方便为优先原则的，还有以工期最短为优先原则，因此，应该根据用户的具体情况确定合适的依据。推荐依据确定之后，推荐方案就容易确定了。1.3.4最终方案 可可门诊信息系统是基于VB语言，数据库利用了SQL Server 2005作为数据源来设计本系统，在数据连接采用了ADO连接。门诊管理主要是门诊挂号和门诊划价收费取药。病人必须先到门诊挂号，取得挂号单后找医生看病，然后拿处方划价，最后取得药品或接受治疗。门诊挂号提供窗口即时挂号，产生门诊病案号，自动收费并生成各种统计报表。门诊划价收费取药三合一模块的主要功能包括录入处方及检查治疗单、核算病人的费用、完成现金收费并打印发票、完成取药等功能。 2.系统说明书2.1.引言本系统是一个小型的门正管理系统，主要功能是实现基础资料的查询和修改以及门诊挂号和收费。2.1.1编写目的软件需求说明书的编制目的是为了使用户和软件的开发者对该软件的初始规定有一个共同的理解，使之成为整个开发工作地基础。本软件需求说明书的读者是系统开发人员或合同约定的人员。2.1.2背景（1）本系统的名称：可可门诊管理系统（2）本项目的任务提出者是*企业，开发者是南京工业大学管理科学与工程学院电子商务专业的丁燕艳、曹云龙和张辉同学。（3）本系统能够为更全面的医院管理系统采集和提供病人的基础信息、以及药品和收费项目的出售和实施信息，为其他部门的决策，如药房管理以及部门绩效评价提供依据。2.2运行环境规定2.2.1设备运行本软件要求处理器在奔腾三以上，内存在256M以上的计算机。2.2.2支持软件本系统支持的操作系统：windows95/98/2000/Me/XP本系统支持的数据库：SQL Sever 2005本系统支持的开发工具：VB6.02.3任务描述2.3.1目标为小型的门诊提供实现主要业务的自动化操作的系统，可以实现基本的挂号和收费的自动化，打印基本的票据，以及可以方便的查询和修改部门、药品等的基本信息。尽量采用最简单的环境要求和系统要求实现系统的开发和实施。2.3.2用户特点主要的用户是门诊挂号事的工作人员，以及药房的人员和各个部门的负责人。对于门诊挂号处的人员，因为工作量大以及病人的流动性大，所以要提供尽可能简单的操作，减少键盘的操作实现鼠标的使用。对于其他的用户基本使用信息的查询和修改，要求相对简单。2.4需求规定2.4.1 对功能的规定通过分析得到“门诊管理系统”应该具备以下主要的功能:1科室信息、病人信息等基本资料的查询、修改、打印2实现门诊的挂号、退号的功能3实现对收费项目、药品的收费4实现对用户的修改删除、密码的修改等系统设置5对药品的简单的管理功能因此，可以大致的将系统分为四大主要模块：基本资料管理、系统设置、门诊挂号和门诊收费。1.基本资料管理主要是对医院的基本资料如检查项目、药品、医生和病人的基本的管理，包括相关信息的插入、删除和修改，提供多种查询方式，并根据需要可以选择进行打印。2.系统设置主要是对系统用户进行管理，包括登录、退出和操作记录等，其中可以依据要求可以查询、添加和删除用户，修改密码等。3.门诊挂号提供门诊最基础的挂号的功能，实现自动生成门诊看诊号和对病人编号的自动编码，以及可以实现对已挂号过的用户的查询，排除重复挂号；提供方便的退号功能；对于挂号信息的输入尽量采取鼠标操作，提供打印的功能。4.门诊收费对药品和收费功能的收费，提供集成的收费方式，统一界面实现两类收费的操作。操作人员只需要输入药品或者是检查项目的编号就可以系统自动显示对应的项目的明细，并自动对输入的所有的项目进行求和，打印票据。2.4.1.1数据流图通过查询相关资料以及切身体验，可以知道在在门诊就诊的大致过程。首先，用户填写病历卡，然后将病历卡交到门诊挂号处，挂号处人员根据病历填写挂号单，并询问所挂科室，然后产生正式的挂号单，病人就可以拿着挂号单和病历去相应的科室就诊。然后根据医生的指示是先检查对应的项目还是直接去配药，然后根据要求先去交费，然后去检查或者直接去药房拿药，对于是检查的病人，检查完后拿着检查单再去医生那咨询，根据检查结果医生开药，一般认为门诊不实施手术的行为。图2-1所示的系统流程图描绘了门诊管理大致的处理过程。用户登陆增加删除修改查询打印基本资料增加删除修改查询打印门诊挂号挂号退号查询修改打印门诊收费收费退费修改查询打印门诊系统初始化各信息图2-1门诊管理的大致业务流程图接下来对图2-1中的黑匣子（门诊系统）的内容进行分解。门诊挂号的基本处理过程是：病人填写病历卡，交到挂号处，审核是否该病人已经在此处就诊过后，登记病人信息，并询问相应的就诊科室和对医生是否有指定。相关部门可以通过查询门诊挂号表得到病人的就诊信息，可以知道病人的具体的就诊科室，也可以查看病人的基本信息（如果之前在此处就诊过）了解病人之前的病史。然后病人去就诊，最后根据就诊结果配药或者先检查然后配药。图2-2是上述经过分析过后的门诊就诊的流程图。图2-2门诊就诊流程图2.4.1.2建立数据流图数据流图描述数据在软件系统内从输入流动到输出的过程中所经受的变换，通常用数据流图建立软件的功能模型。1.门诊管理系统顶层数据流图 图2-3门诊管理系统顶层数据流图门诊管理系统又可以分为系统设置、基本资料查询、门诊挂号和门诊收费四个主要的模块，下面分别介绍这四个模块的数据流图：1）通过需求分析，可知系统设置有用户修改的功能，可以得到系统设置的数据流图，如图2-4所示： 图2-4 系统设置数据流图验证用户用于对进行系统登录的用户进行合法性身份验证，从而确定此用户是否能够使用相关的资源。修改用户用于管理人员对使用系统的用户进行在增加、修改和删除以及密码修改的操作。查询用户用于对用户相关信息的查询。2）基本资料查询数据流图基本资料有检查项目、药品信息、科室信息、医生信息和病人信息这5类，其数据流情况基本相似，故此处仅给出检查项目的数据流图，其余图类似： 图2-5检查项目查询数据流图3）门诊挂号数据流图图2-6门诊挂号数据流图 病人将病历卡交给工作人员，工作人员根据病人的要求开立挂号单据，最后将生成的挂号单交给病人。4）门诊收费数据流图图2-7门诊收费数据流图 病人凭借缴费单到挂号部门进行缴费然后根据是检查还是配药进行相应的操作。2.4.1.3数据字典因为本系统设计了众多的表和数据元素以及数据存储和数据流，所以在此，数据字典的六类条目各举一个例子：1.数据元素：如病人编号：数据元素条目名称：病人编号 总编号：1-101别名：/ 编号：1描述：唯一标识门诊每位病人的编号 类型：int长度：4有关数据结构：挂号表，收据、检查项目，病人信息表2数据结构：如门诊挂号表数据结构条目名称：门诊挂号表 总编号：2-03别名：挂号单 编号：1描述：记录病人挂号的基本信息 有关数据流数据存储：结构： 挂号单看诊序号病人编号*病人姓名*性别年龄联系地址挂号科室*挂号类型医生姓名*挂号费用时间3.数据存储：如挂号单数据存储条目名称：挂号单 总编号：别名：挂号表 编号：描述：证明病人已经挂号的单据结构： 有关数据流： 如上表所示！ P3.1 D1 信息量：/天 有无立即查询：有4.处理条目：如挂号登记处理条目名称：挂号登记 总编号：说明：病人来就诊时提交病历登记个人和就诊信息。 编号：输入：用户P3.1输出：P3.1病人处理：查D1可以知道每个病人的基本信息和就诊信息，并可以打印。5.外部实体：如病人外部实体条目名称：病人 总编号：说明： 编号：输入数据流： 个数：输出数据流：P3.1病人2.4.1.4状态图 因为篇幅问题，本处将给出少数几个界面的状态图，其余的图原理相似。1.登录界面状态图图2-8登录界面状态图2.挂号状态图图2-9挂号状态图3.收费状态图图2-10收费状态图2.4.2对性能的规定2.4.2.1时间特性的要求1) 系统的更新处理时间应该在可接受的范围内；2）系统的数据查询、修改时间应该在可接受的范围内；3）系统的数据打印时间应该在可接受的范围内2.4.2.2灵活性1）操作方式上应该能够满足鼠标和键盘任意切换的需要2）能够支持windows95/98/2000/Me/XP的运行环境3）留有与其他系统的接口2.4.3对输入输出的要求对“姓名”的输入要求不超过4个汉字或者是8个英文字符；当键入编号时可以自动显示相应信息不用再输入。对与必要的信息必须通过打印的功能。2.4.4故障处理要求在输入不符合定义格式的数据时，要求软件应能够出现提示信息，而不是司机或者是删除已经输入的信息，然后再弹出重新输入界面。对于成功操作的步骤给予一定的提示，以免用户不知，一直等待。3.系统的总体设计一. 整个软件系统结构图图3-1系统结构图4.系统的详细设计4.1登录模块1）模块IPO：（输入处理输出）用来描述分层图中一个模块的输入，输出和处理内容。下面以用户登陆模块为代表，给出模块的IPO表。表4-1IPO表系统名称可可门诊管理系统模块名称验证用户身份模块编号作者日期2009.6模块简述用于对登录系统的用户进行身份验证调用模块被调模块输入项目用户名，密码格式用户名：8位数的字符串密码：012位的字符串处理验证用户输入的用户名和密码：获得登录用户输入的用户名和密码：访问数据库的用户账户表：查询匹配的用户和密码，若查询到或不匹配，返回结果到登入窗口，提示错误，相反登录成功。输出提示信息：用户名（密码）不能为空，用户名（密码）不正确，您已经尝试三次登录本系统未成功，系统将自动关闭局部数据元素约束条件登录失败3次，退出本系统注释涉及的表：Users2）界面设计图4-1系统用户登录界面3)主要代码：public cnt As IntegerPrivate Sub Cmdok_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mzglxt;Data Source=WT-G-XP2 If Trim(id.Text) = Then MsgBox 用户名不能为空，请重新输入！ id.SetFocus Else sql = select * from Users where users_name= & Trim(id.Text) & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, id.Text = id.SetFocus Else UserName = id.Text If Trim(rs_login.Fields(3) = Trim(password.Text) Then Unload Me Form2.Show Else If Trim(password.Text) = Then MsgBox 密码不能为空，请重新输入！ id.SetFocus Else MsgBox 密码不正确,请重输入！, vbOKOnly + vbExclamation, password.SetFocus password.Text = cnt = cnt + 1 End If If cnt = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将自动关闭, vbOKOnly + vbCritical, 警告 Unload Me End If End If End If End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Label2_Click()End Sub4.2系统设置模块1）系统主界面如下：图4-2系统主界面2）系统设置模块的内容图4-3系统设置内容界面A密码修改界面图4-4密码修改界面主要代码：Private Sub 保存_Click()Dim sql As StringDim rs_login1 As New ADODB.RecordsetDim rs_login2 As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mzglxt;Data Source=WT-G-XP2 If Trim(txtname.Text) = Then MsgBox 用户名不能为空，请重新输入！ txtname.SetFocus Exit Sub Else sql = select * from Users where users_name= & Trim(txtname.Text) & rs_login1.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login1.EOF = True Then MsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, txtname.Text = txtname.SetFocus Exit Sub End If If Trim(txtpwd1.Text) = Then MsgBox 原密码不能为空，请重新输入！ txtpwd1.SetFocus Exit Sub Else sql = select * from Users where password= & Trim(txtpwd1.Text) & rs_login2.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login2.EOF = True Then MsgBox 原密码不正确，请重新输入！, vbOKOnly + vbExclamation, txtpwd1.Text = txtpwd1.SetFocus cnt = cnt + 1 Exit Sub End If If cnt = 3 Then MsgBox 您已经三次输入密码不成功，系统将自动关闭, vbOKOnly + vbCritical, 警告 Unload Me End If If Trim(txtpwd2.Text) = Then MsgBox 新密码不能为空！请重新输入！ txtpwd2.SetFocus Exit Sub End If If Trim(txtpwd3.Text) = Then MsgBox 请确认新密码！ txtpwd3.SetFocus Exit Sub End If If Trim(txtpwd2.Text) Trim(txtpwd3.Text) Then MsgBox 校验密码输入不正确，请重新输入！, vbOKOnly + vbCritical, 警告 txtpwd3.Text = txtpwd3.SetFocus Exit Sub Else sql = update Users set password= & txtpwd2.Text & where users_name= & txtname.Text & conn.Execute (sql) MsgBox 修改密码成功。, vbOKOnly + vbExclamation, txtname.Text = txtpwd1.Text = txtpwd2.Text = txtpwd3.Text = txtname.SetFocus End If End If End If End SubB用户管理界面图4-5用户管理界面B1 新增用户界面图4-6新增用户界面图4-7添加用户成功界面主要代码：检查工号的代码（检查用户名的代码相似）：Private Sub Cmdcheck1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mzglxt;Data Source=WT-G-XP2If Txt工号.Text = Then MsgBox 工号不能为空！, vbCriticalElse sql = select * from Users where 工号= & Trim(Txt工号.Text) & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = False Then MsgBox 该工号已存在,请重输入！, vbOKOnly + vbExclamation, Txt工号.Text = Txt工号.SetFocus Else MsgBox 可以注册。, vbOKOnly + vbExclamation, End IfEnd IfEnd Sub添加用户的代码：Private Sub Cmdok_Click()Dim sql As StringDim rs_login1 As New ADODB.RecordsetDim rs_login2 As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mzglxt;Data Source=WT-G-XP2 If Txt工号.Text = Then MsgBox 工号不能为空!, vbCritical Txt工号.SetFocus Exit Sub End If If txtname.Text = Then MsgBox 用户名不能为空!, vbCritical txtname.SetFocus Exit Sub End If If txtpwd1.Text = Then MsgBox 请输入密码!, vbCritical txtpwd1.SetFocus Exit Sub End If If txtpwd2.Text txtpwd1.Text Then MsgBox 校验密码不正确!, vbCritical txtpwd2.SetFocus Exit Sub End If sql = select * from Users where 工号= & Trim(Txt工号.Text) & rs_login1.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login1.EOF = False Then MsgBox 该工号已存在,请重输入！, vbOKOnly + vbExclamation, Txt工号.Text = Txt工号.SetFocus End If sql = select * from Users where users_name= & Trim(txtname.Text) & rs_login2.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login2.EOF = False Then MsgBox 该用户名已存在,请重输入！, vbOKOnly + vbExclamation, txtname.Text = txtname.SetFocus End If conn.Execute Insert Into Users(users_name,password,工号) Values( & txtname.Text & , & txtpwd1.Text & , & Txt工号.Text & ) MsgBox 添加用户成功。, vbOKOnly + vbExclamation, Txt工号.Text = txtname.Text = txtpwd1.Text = txtpwd2.Text = Txt工号.SetFocus End subB2 删除用户图4-8删除用户界面主要代码Public cnt As IntegerPrivate Sub cmdok_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mzglxt;Data Source=WT-G-XP2 If Trim(txtname.Text) = Then MsgBox 用户名不能为空，请重新输入！ txtname.SetFocus Else sql = select * from Users where users_name= & Trim(txtname.Text) & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, txtname.Text = txtname.SetFocus Else If Trim(rs_login.Fields(2) = Trim(txtpassword.Text) Then conn.Execute Delete From Users Where users_name= + txtname.Text + 有问题 MsgBox 用户名删除成功!, vbInformation txtname.Text = txtpassword.Text = Else MsgBox 密码不正确,请重输入！, vbOKOnly + vbExclamation, txtpassword.SetFocus txtpassword.Text = cnt = cnt + 1 End If If cnt = 3 Then MsgBox 您已经三次尝试删除该用户，均不成功，系统将自动关闭, vbOKOnly + vbCritical, 警告 Unload Me End If End If End IfEnd SubC系统退出当单击【退出】系统时，系统提示用户是否确认退出，执行相应策略。1）用户界面图4-9退出系统提示界面主要代码Private Sub 退出系统_Click()Dim Cancel As IntegerDim UnloadMode As Integer If MsgBox(确实要退出系统吗？, vbOKCancel, 警告) = vbOK Then End Else Cancel = True End IfEnd Sub4.3资料查询模块本模块包括收费项目查询，药品信息查询，医生信息查询，病人信息查