医院病历管理系统论文,VF

1、目录【中文摘要】【英文摘要】第一章 绪 论1.1研究课题的背景-1.2 研究思路和工作计划-第二章 管理信息系统研究概述2.1管理信息系统的发展历史-2.2管理信息系统的特点-2.3管理信息系统的开发方式-2.4管理信息系统的开发过程-第三章 医院病历管理系统分析与设计3.1系统功能需求简介-3.2功能需求描述-3.3系统目标分析-3.4开发设计思想-3.5系统开发和运行环境-3.6系统功能分析-3.7系统功能模块设计-38数据库表结构-39菜单设计-第四章 医院病历管理系统的实现41系统表单的实现及相关源代码-总结-致 谢-参考文献-【毕业设计】医院病历管理系统【中文摘要】现代化的医院也应该

2、有现代化的管理系统。在科技日益发达的今天，人们的身体健康也在不断受到重视。因此，医院进行现代化管理就变得尤为重要。这里，我们以一个典型的医院病历管理系统的开发为例，来讲述如何建立一个实用的医院病历管理系统。本文介绍毕业设计课题的选题背景和意义，相关的研究和开发的比较和综述，研究开发的过程，以及设计思路和实现细节的考虑，最后给出了作者在毕业设计过程中的体会。【关键字】管理信息系统，数据库，医院病历，实体关系图（E-R图），数据字典，数据流图。【英文摘要】Also should there be the modernized management system in the modernized

3、hospital. The body health of people also constantly suffered attaching importance to today advanced increasingly at the science and technology. Therefore the hospital carries on the modernize managing to become to such an extent that blames for important. Here, our development of the typical hospita

4、l physical medicine management system with is the example, and tells about how to build a practical hospital physical medicine management system. Selected topic background and the meaning of this text, article, etc. introduction graduation project subject, the comparison and summarizing of research

5、and development being mutually related, the course of research and development, as well as designing the train of thought with realizing thinking over of details, and finally giving out the realization that author is in the graduation project course. keywords :management information system, the data

6、 base, the hospital physical medicine, the substance relation picture ( E-R's picture ), the data dictionaries, the data stream picture.第一章 绪 论1.1研究课题的背景借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要趋势。党和政府根据知识经济时代的特点，对国民经济建设提出了“用信息化带动工业化”的指导思想。对企业而言，全面开发和应用计算机管理信息系统就是近期不能回避的问题。在医院管理中，医务人员与患者是医院最宝贵的资源，也是医院的“生

7、命线”，因此医院病历管理系统是医院的计算机管理信息系统重要组成部分。而医院病历管理又是医务人员与患者资源管理的重中之重。实行电子化的医院病历管理，可以让医务人员与患者资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。医院病历管理信息系统的实现可以减轻比较繁琐的手工信息管理。现在应用在大中型医院病历的管理信息系统中，几乎都包括了医务人员与患者管理模块。有些环境中是由作为大型ERP软件中的一个模块引进的，有些是作为医院系统的一部分。这些根据规范的西方管理制度设计的医院病历管理软件，在很多时候还不能完全解决中国特色的中小型医院的问题，本文介绍的毕业设计研究工作就是要为这些具有中国特色的中

8、小型医院解决他们在医院病历管理方面的问题。通过在本地中小型医院一周的调研，并参考其他同行设计的医院病历管理软件，我基本上搞清楚了像我们本地这样的中小型医院对系统的需求，如果能够设计一套针对类似本地医院系统的小型医院病历管理系统将具有特别的现实意义。在和指导老师多次交流后，确定实现方案的要点和工作计划。本系统的实现的主要功能有：医务人员信息管理、患病人员管理等等功能。1.2 研究思路和工作计划正如研究任何其它软件项目一样，我做的毕业设计也经历了从选题，调研，熟悉开发环境，实验关键技术，查找类似的相关系统的资料；系统概要设计，数据库结构设计，功能模块开发，功能模块测试，系统调试和系统试运行和修改。

9、下面的流程图反映了我们的基本的思路和过程。在各阶段的时间安排上，选题和调研用了两周左右的时间；熟悉开发环境，实验关键技术，查找类似的相关系统的资料用了两周时间；系统概要设计用了一周的时间；数据库结构设计用了一周时间；功能模块开发和功能模块测试用了四周的时间；最后，系统调试和系统试运行和修改用了约三周的时间。完成全部工作大约用了3个月的时间。概要设计数据库的结构设计功能模块开发功能模块测试系统调试定题调查研究资料查询开发环境熟悉研究关键技术系统试运行和修改 第二章 管理信息系统研究概述2.1管理信息系统的发展历史信息作为生产力中最活跃的因素，很早就在人类经济生活中发挥着不可替代的作用，但把信息纳

10、入企业经营管理系统中高效处理和应用是在计算机发明以后的50年代末。目前人们所提到的管理信息系统，通常是指以计算机为工具，对管理信息进行收集、存贮、检索、加工和传递，使其应用于组织机构及企业管理领域的“人机系统”，该系统是70年代初“后工业经济”时代的产物，在企业管理信息系统在其发展的初期，是单一的人机系统，系统功能简单，效率低，对管理的作用有限。进入2 0世纪80年代末，随着计算机网络和通信技术的大力发展，企业管理信息系统进入网络化的发展时期。世界发达国家已建立起了完善的先进的管理信息系统体系，在其社会经济发展领域中发挥着巨大的作用。我国的管理信息系统大发展是在80年代末90年代初，国家相继建

11、立起了“金卡”、“金关”、“金桥”工程，多数企事业单位建立了局域网和广域网管理信息系统。随着世界经济和我国经济逐步向知识经济迈进，无论是基于工业经济的管理信息系统，还是面向少数专家和管理人员的专家系统 (ES)或决策支持系统 (DSS)，其处理对象和服务对象，自身的系统结构，处理能力，都有了进一步的发展。2.2管理信息系统的特点1、管理信息系统的组成管理信息系统在企业中的应用存在三个要素，这就是人、计算机和数据。人是指企业领导者、管理人员、技术人员，以及MIS建设的领导机构和实施机构，他们在系统中起主导作用。MIS是一项系统工程，不是只靠一些计算机开发人员就可以完成的，必须有企业管理人员，尤其

12、是企业领导的积极参与。计算机技术是MIS（管理信息系统）得以实施的主要技术。在这些技术中，软件开发是MIS开发的重点。第三个因素也不能忽视。企业的管理数据是MIS正常运行的基础。广义地说，各项管理制度是MIS建设成功的基础。试想要计算一台机床的成本，需要按时输入每个部件、每个零件以及每个螺钉螺帽的费用，涉及企业的生产车间、采购、库房、工艺设计和财务等多个部门，必须有一整套管理制度作保证。2、管理信息系统的界面特点在计算机软件技术中，人机界面已经发展成为一个重要的分支。MIS人机界面设计一般遵循以下一些基本原则：（1）以通信功能作为界面设计的核心人机界面设计的关键是使人与计算机之间能够准确地交流

13、信息。一方面，人向计算机输入信息时应当尽量采取自然的方式：另一方面，计算机向人传递的信息必须准确，不致引起误解或混乱。另外，不要把内部的处理、加工与人机界面混在一起(人机界面程序只是通信)，以免互相干扰，影响速度。设计MIS时，针对每一个功能，都要按照模块化思想，使输入、处理与输出“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不易出错，而且易于维护。报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印分开设计，虽然消耗时间，但易于整个MIS系统的维护。（2）界面必须始终一致统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏

14、幕用户就要换一套操作命令与操作方法。例如在整个系统可以以问号图标表示帮助，以磁盘图标表示存盘，以打印机图标表示打印等。（3）界面必须使用户随时掌握任务的进展情况人机界面应该能够告诉用户软件运行的进度。特别是在需要较长时间的等待时，必须让用户了解工作进展情况，如可以设计已经完成了百分之几的任务进度条等。目前，Windows下的应用软件无论大小，其安装程序几乎均做到了这一点。开发MIS软件时，这一点很值得借鉴。（4）界面友好。使用方便多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入(特别是汉字)，而应让用户用鼠标轻松选择。例如，人事管理系统中的“文化程度”是相对固定的数据

15、，其值一般取“小学”、“初中”、“高中”、“大专”、“大本”、“硕研”、“博研”等。录入这类数据之前，MIS软件应在相应位置弹出一个列表框，待用户以鼠标点击，而不应让用户每次都输入这些汉字。总之，所开发的MIS在使用过程中，应使用户的数据输入量降至最低限度减少用户的干预量。实践证明，用户干预愈少，MIS系统的满意程度愈高。2.3管理信息系统的开发方式管理信息系统的开发方式主要有独立开发方式、委托开发方式、合作开发方式、购买现成软件方式等4种。这4种开发方式各有优点和不足，需要根据使用单位的技术力量、资金情况、外部环境等各种因素进行综合考虑和选择。不论哪种开放方式都需要有单位的领导和业务人员参加

16、，并在管理信息系统的整个开发过程中培养、锻炼、壮大该系统的维护队伍。1.独立开发独立开发适合于有较强的管理信息系统分析与设计队伍和程序设计人员、系统维护使用队伍的组织和单位，如大学、研究所、计算机公司、高科技公司等单位。独立开发的优点是开发费用少，实现开发后的系统能够适应本单位的需求且满意度较高，最为方便的是系统维护工作。缺点是由于不是专业开发队伍，容易受业务工作的限制，系统优化不够，开发水平较低，且由于开发人员是临时从所属各单位抽调出来进行管理信息系统的开发工作，这些人员在其原部门还有其他工作，所以精力有限，容易造成系统开发时间长，开发人员调动后，系统维护工作没有保证的情况。因此，一方面需要

17、大力加强领导，实行“一把手”原则，另一方面可向专业开发人士或公司进行咨询，或聘请他们作为开发顾问。2.委托开发委托开发方式适合于使用单位无管理信息系统分析、设计及软件开发人员或开发队伍力量较弱、但资金较为充足的单位。双方应签订管理信息系统开发项目协议，明确新系统的目标和功能、开发时间与费用、系统标准与验收方式、人员培训等内容。委托开发方式的优点是省时、省事，开发的系统技术水平较高。缺点是费用高、系统维护需要开发单位的长期支持。此种开发方式需要使用单位的业务骨干参与系统的论证工作，开发过程中需要开发单位和使用单位双方及时沟通，进行协调和检查。3.合作开发合作开发方式适合于使用单位有一定的管理信息

18、系统分析、设计及软件开发人员，但开发队伍力量较弱，希望通过管理信息系统的开发建立完善和提高自己的技术队伍，便于系统维护工作的单位。双方共享开发成果，实际上是一种半委托性质的开发工作。优点是相对于委托开发方式而言节约了资金，并可以培养、增强使用单位的技术力量，便于系统维护工作，系统技术水平较高。缺点是双方在合作中沟通易出现问题，需要双方及时达成共识，进行协调和检查。总之，不同的开发方式有不同的长处和短处，需要根据使用单位的实际情况进行选择也可综合使用各种开发方式。2.4管理信息系统的开发过程管理信息系统的开发过程一般包括系统开发准备、系统调查、系统分析、系统设计、系统实现、系统转换、系统运行与维

19、护、系统评价等步骤。根据开发系统的大小、复杂、投入、方式、方法等因素的不同，各步骤的要求和内容也不同，用户需要根据实际情况进行取舍和计划。1、系统开发准备 系统开发准备工作主要包括提出系统开发要求、成立系统开发小组、制订系统开发计划等工作。2、系统调研新系统的系统分析与系统设计工作都要建立在对现行系统调研的基础上，即必须调查现行系统的运行情况、问题等，明确用户的需求，特别是合作开发和委托开发方式。调研的主要内容有： （1）现行系统概况：该组织的发展历史、目前组织的规模、工作状况、管理水平、与外界的主要联系等。调查该项内容的目的主要是为了划分系统界限、系统与外界的输入输出接口等。 （2）组织机构

20、：画出组织的组织结构图，弄清组织的行政关系、人员编制、工作范围、地理位置等，发现不合理问题及新系统启动后可能对现有组织的影响。 （3）业务流程：按照业务种类的不同和处理时间的先后不同，深入了解现行系统的业务流程，画出现行系统业务流柞图，并与业务人员反复讨论，得到认可。调查中要注意定性与定量相结合，注意人、财、物、信息的流向、规格、频率、要求以及需要解决的问题等。（4）报表、数据处理：了解各种统计报表、数据的格式、内容、处理时间及上报时间、频率、规律，存在的问题，对新系统的要求、希望等并收集各种报表。（5）问题：现行系统中存在的主要问题和薄弱环节，可以按照严重程度分成不同的等级。新系统的建立应能

21、解决大部分问题，并改善薄弱环节。（6）新系统的功能和目标：了解各级领导和各类业务工作人员对新系统功能的要求，系统分析(又称逻辑设计)是管理信息系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。新系统的逻辑模型由系统数据流程图、概况表、数据字典、物理逻辑表达式及有关说明组成。最后要完成系统分析报告(也称为系统逻辑设计说明书)。系统逻辑模型就像在根据需要建设一座学校前，按照学校教育的层次(初等、中等、高等)、规模、投资、地理环境、技术水平等条件的要求和约束，先由建筑设计院进行设计，保证学校建成后的各种功能得以实现，之后才能进行工程设计和施工一样。

22、在系统设计阶段要做认真、细致的分析、研究工作，避免新系统在功能上存在先天不足或缺陷。因为新系统模型是建立在对现行系统的分析及要求的基础上的，所以系统调查工作要进行得深入、细致、全面。用户可以对新系统的逻辑模型提出意见，双方经过讨论、修改，最后达成共识，并完成系统分析报告(系统逻辑设计说明书)，经有关领导审批通过之后，转入系统设计(又称系统物理设计)阶段。 4、系统设计系统设计又称系统物理设计。系统设计要根据系统分析报告中的系统逻辑模型综合考虑各种约束，利用一切可利用的技术手段和方法进行各种具体设计，确定新系统的实施方案，解决“系统怎么做”的问题。结构化系统设计是指利用一组标准的图表工具和准则，

23、确定系统有哪些模块，用什么方法连接，如何构成良好的系统结构，并进行系统输入、输出、数据处理、数据存储等环节的详细设计。这一阶段的重点是设计好系统的总体结构，选择最经济合理的技术手段。系统设计阶段的文件是系统设计报告(又称系统物理设计说明书)。5、系统实施与转换系统实施阶段的主要工作包括：系统硬件的购置与安装、程序的编写(购买)与调试、系统操作人员的培训、系统有关数据的准备和录入、系统调试和转换。在系统实施阶段要成立系统实施工作量到小组，组织各专业小组组长和有关部门的领导共同编制新系统实施计划。可以应用各种项目管理的软件和方法进行管理，实行项目经理负责制，保证系统实施工作的顺利进行和成功。硬件的

24、购置和安装包括计算机硬件、外设、网络、电源、机房、环境等有关设备的购买、验收、安装与调试工作等，这些工作主要由专业技术人员完成。数据准备与录入工作主要是指由手工操作转入计算机处理所需的各种数据的整理、录入及计算机系统中为新系统所用数据的转换工作。数据准备与录入工作要注意数据的准确性，在整理、录入、校验等各个环节把好关，为系统的顺利转换打好基础。在进行以上各个环节的同时展开人员培训工作，包括管理信息系统只是的普及教育、新制度的学习、计算机操作训练等。使所有人员了解新系统的基本功能、新系统对使用人员的要求、建立管理信息系统的目的、管理信息系统的建设可以为组织和个人带来的帮助和便利、个人在新系统中应

25、该承担的工作等，是用户关心、支持新系统的实现。6.系统维护和评价管理信息系统是一个复杂的人机系统。系统外部环境与内部因素的变化，不断影响系统的运行，这时就需要不断地完善系统，以提高系统运行的效率与服务水平，这就需要从始至终地进行系统的维护工作。系统评价主要是指系统建成后，经过一段时间的运行后，要对系统目标与功能的实现情况进行检查，并与系统开发中设立的系统预期目标进行对比，及时写出系统评价报告。系统维护与评价阶段是系统生命周期中的最后一个阶段，也是时间最长的一个重要阶段。第三章 医院病历管理系统分析与设计3.1系统功能需求简介医院病历管理系统对医院加强医务人员和患者管理有着极其重要的作用，就一般

26、的大型医院来说，它的设计内容非常复杂而且繁多，比如拥有计算功能，统计功能，报表输出功能，而且设计的模块也很多，比如管理模块，统计模块，报表设计模块，打印输出模块，模糊查询模块等等。由于本软件主要是针对中小型医院设计的一套管理系统。针对的是医务人员和患者比较少的情况而设计的，人员结构比较简单，部门划分也很清晰，而且人员的流动性不高，所以对该系统的要求并不高。因此，针对中小型医院而言，我们经过了反复地论证，最终确定了医院病历管理系统的设计方案。该管理系统的主要功能如图3.1所示：医院病历管理系统 医务人员管理 病人管理图3.1 系统功能模块图3.2功能需求描述1、医务人员管理模块医务人员管理模块具

27、有对医务人员信息输入、编辑、删除、查询、浏览五个功能。医务人员基本信息包括医务人员工号、姓名、性别、年龄、出生日期、所毕业院校、科室和政治面貌、职务、工作简历等信息。医务人员增删实现了对数据库中医务人员信息的增加和删除。医务人员信息查询可以通过医务人员姓名或工号对医务人员信息进行查询。2、病人管理模块病人管理模块具有对病人患者信息输入、编辑、删除、查询、浏览五个功能。病人基本信息包括病人姓名、性别、年龄、就诊科室、就诊时间、诊断结果和诊疗方法、病历等信息。病人增删实现了对数据库中病人患者信息的增加和删除。医务人员信息查询可以通过医务人员姓名或工号对医务人员信息进行查询。3.3系统目标分析系统开

28、发的总体任务是实现医疗信息管理的系统化、规范化和自动化，从而达到提高医院对医疗信息管理的效率的目的。3.4开发设计思想 医疗信息管理的特点是信息处理量比较大，所管理的数据涉及的历史可能比较悠久，因此在管理上实现起来有一定的困难。在手工管理的时代或者数据库管理系统设计不科学的话就会造成管理数据混乱，数据库相关数据的没有很好的关联，造成数据的不一致性时有发生。在本系统的设计过程中，为了克服以上困难，满足计算机管理的需要，我们采取了下面的一些原则。本系统开发设计思想： 尽量采用医院现有的软硬件环境，及先进的管理系统开发方案，从而达到充分利用医院现有资源，提高系统开发水平和应用效果的目的。 系统应符合

29、医院医疗信息管理的规定，满足对医院日常管理的需要，并达到操作过程中的直观、方便、实用、安全等要求。 系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护。3.5系统开发和运行环境：开发工具：中文版Visual Foxpro 6.0运行环境：Windows 9x，Windows NT或者Windows 2000，Windows XP。3.6系统功能分析系统开发的总体任务是实现医疗信息管理的系统化、规范化、自动化。系统功能分析是在系统开发的总体任务的基础上完成的。医疗信息管理系统需要完成的功能主要有： 有关医务人员基本信息的录入。 医务人员信息的查询

30、。 医务人员信息的修改。 医务人员信息的打印。 有关病人基本信息的录入。 病人信息的查询。 病人信息的修改。 病人信息的打印。3.7系统功能模块设计对上述各项功能进行集中，分块，按照结构化程序设计的要求，得到如图所示的系统功能模块图：通过以上的系统功能模块结构图我们可以看出系统分为两大模块：医务人员基本情况管理管理模块和病人就诊信息情况模块下面我将对每个模块的总体设计作简要说明。1.医务人员基本信息模块该模块可以实现医务人员的信息包括工号,姓名,性别,科室,毕业学校.职务,出生日期,党员否,工作简历(工作简历规定有备注字段)等的查询,插入,删除,和打印,修改等。2.病人就诊情况管理模块该模块可

31、以实现病人就诊的信息包括姓名,性别,年龄,就诊科室,诊疗方法,就诊日期,诊断结果,病历(规定用备注字段)等的查询,插入,删除,和打印,修改等。3·8数据库表结构根据分析阶段得出的结论，结合本系统对有关数据的存储的需要，更加方便实现该管理系统的所有功能，现将本管理系统设计成以下几个数据库表，每个表的字段名、类型、宽度设计如下：1·病人就诊情况表：字段名类型宽度索引姓名字符型8主索引性别字符型2年龄字符型5就诊科室字符型10就诊时间字符型10普通索引诊断结果字符型10诊断方法字符型10病例备注型42、医务人员基本情况表字段名类型宽度索引工号字符型5主索引姓名字符型8普通索引性别

32、字符型2年龄数值型10出生日期字符型10毕业院校字符型10政治面貌字符型6科室字符型10职务字符型10工作简历备注型43、密码表字段名类型宽度索引用户密码字符型6主索引用户姓名字符型1039菜单设计：在我们所设计的医院病历管理系统中，系统菜单就是第一个人机交互的界面，系统菜单中给出的是本系统的各个子功能模块，这些子功能又分门别类的组成子菜单。在上一章的系统分析和前面的设计中，系统的功能模块已经较为清楚了：1·医务人员管理模块 2 ·病人管理模块在实际的菜单设计中，这些功能模块可以于不同的菜单项出现。本着对使用者操作带来方便的原则，将本系统菜单设计如下：医务人员管理病人管理退

33、出系统菜单运行时的界面窗口如下： 菜单文件建立后保存在医院病历管理系统菜单.MPR中。第四章 医院病历管理系统的实现按结构化的程序设计思想，在完成了系统分析、系统设计后，就可以进行系统实现阶段了，系统实现是每指把系统的物理模型转换成实际运行系统的全过程。其基本任务是：a) 前期准备b) 系统平台的安装与调试c) 程序的编制与调试d) 信息系统调试e) 数据库与文件的建立f) 系统转换g) 试运行、验收与维护4·1系统表单的实现及相关源代码1病人就诊情况表单 1）表单运行的窗体：2）、表单构成相关控件和事件：新建一表单，保存在医院病历管理系统下，命名为病人就诊情况表单.scx,修改表单

34、的Caption属性为“病人就诊情况表”；为表单引入病人就诊情况表数据表数据环境，拖放病人就诊情况表数据表字段到表单中，形成一个grd病人就诊情况表;在表单上放置两个命令铵钮组选项铵钮控件，并用它的生成器选项生成10个命令铵钮，分别修改命令铵钮的Caption属性为“第一条记录”、“下一条记录”、“前一条记录”、“最后一条记录”、“添加”、“编辑”、“删除”、“打印”、“查询”、“关闭”。3）、表单构成相关源代码：第一条记录代码thisform.grd病人就诊情况表.setfocusgo topmessagebox('记录已经在第一条', 0 ,'记录信息')t

35、hisform.refresh前一条记录代码：thisform.grd病人就诊情况表.setfocusif recno()<>1skip -1thisform.refreshelsemessagebox('记录已经在第一条了', 0 ,'记录信息')endif下一条记录代码：thisform.grd病人就诊情况表.setfocusif not eof()skipthisform.refreshelsemessagebox('记录已经在未尾了', 0 ,'记录信息')endif最后一条记录代码：thisform.grd病

36、人就诊情况表.setfocusgo bottomthisform.refreshmessagebox('记录在未尾了', 0 , '记录信息')添加铵钮代码：if mand1.caption='添加'thisform.grd病人就诊情况表.readonly=.f.mand1.caption='保存'mand2.enabled=.f.mand3.enabled=.f.appe blanelsemand1.caption='添加'thisform.grd病人就诊情况表.readonly=.t.mand2.enabled

37、=.t.mand3.enabled=.t.endifthisform.grd病人就诊情况表.setfocusthisform.grd病人就诊情况表.refresh编辑铵钮代码：if mand2.caption='编辑'thisform.grd病人就诊情况表.readonly=.f.mand2.caption='保存'mand1.enabled=.f.mand3.enabled=.f.elsemand2.caption='编辑'thisform.grd病人就诊情况表.readonly=.t.mand1.enabled=.t.mand3.enable

38、d=.t.endifthisform.grd病人就诊情况表.setfocusthisform.grd病人就诊情况表.refresh删除铵钮代码：sele 病人就诊情况表thisform.grd病人就诊情况表.setfocusif messagebox("是否删除当前记录! " ,32+4+256,"删除记录")=6this.tag=thisform.grd病人就诊情况表.recordsourcedelete next 1packthisform.grd病人就诊情况表.recordsource=this.tagthisform.refreshendif打印

39、铵钮代码：IF sys(102)!="OFF"ELSE=messagebox("打印机没有准备好！",0+48,"警告")ENDIF查询铵钮代码：do form 医院病历管理系统病人就诊情况查询表单.scxthisform.refresh关闭铵钮代码：thisform.release2、病人就诊情况查询表单1）、表单运行时的窗体界面如下：2）、表单构成相关控件和事件新建一表单，保存在医院病历管理系统病人就诊情况查询表单.scx下，修改表单的caption属性为“病人情况查询表”；为表单引入病人就诊情况表数据表数据环境，拖放病人就诊情况

40、表数据表字段到表单中，形成一个grd病人就诊情况表；在表单上放置一个选项按钮组控件，用它的生成器选项生成两个选项铵钮，修改其caption属性为“按姓名查找”、“按就诊科室查找”；在表单上放置一个标签控件，一个文本框控件，一个命令铵钮组控件生成的两个命令选项铵钮，分别修改其caption属性为“请输入就诊科室或姓名”，“查找”、“结束查找”。3）、表单构成相关源代码：查找铵钮源代码：thisform.grd病人就诊情况表.setfocusdo casecase thisform.optiongroup1.value=1locate all for alltrim(病人就诊情况表.姓名)=all

41、trim(this.parent.parent.text1.value)if found()y=recno()go ymessagebox("病人已经找到!")elsemessagebox("未找到此病人,请确认!")endifcase thisform.optiongroup1.value=2locate all for alltrim(病人就诊情况表.就诊科室)=alltrim(this.parent.parent.text1.value)if found()y=recno()go ymessagebox("病人已经找到!")el

42、semessagebox("未找到此病人,请确认!")endifendcase结束查找铵钮代码：thisform.release3、医务人员基本情况表1）、表单运行时的窗体界面如下：2）、表单构成相关事件和控件：新建一表单，保存在医院病历管理系统下，命名为医务人员基本情况表.scx,修改表单的Caption属性为“医务人员基本情况表”；为表单引入医务人员基本情况表数据表数据环境，拖放医务人员基本情况表数据表字段到表单中，形成一个grd医务人员基本情况表;在表单上放置两个命令铵钮组选项铵钮控件，并用它的生成器选项生成10个命令铵钮，分别修改命令铵钮的Caption属性为“第一

43、条记录”、“下一条记录”、“前一条记录”、“最后一条记录”、“添加”、“编辑”、“删除”、“打印”、“查询”、“关闭”。3）、表单构成相关源代码：第一条记录代码：thisform.grd医务人员基本情况表.setfocusgo topmessagebox('记录已经在第一条', 0 ,'记录信息')thisform.refresh前一条记录代码：thisform.grd医务人员基本情况表.setfocusif recno()<>1skip -1thisform.refreshelsemessagebox('记录已经在第一条了', 0

44、,'记录信息')endif下一条记录代码：thisform.grd医务人员基本情况表.setfocusif not eof()skipthisform.refreshelsemessagebox('记录已经在未尾了', 0 ,'记录信息')endif最后一条记录代码：thisform.grd医务人员基本情况表.setfocusgo bottomthisform.refreshmessagebox('记录在未尾了', 0 , '记录信息')添加按钮代码：if mand1.caption='添加'thi

45、sform.grd医务人员基本情况表.readonly=.f.mand1.caption='保存'mand2.enabled=.f.mand3.enabled=.f.appe blanelsemand1.caption='添加'thisform.grd医务人员基本情况表.readonly=.t.mand2.enabled=.t.mand3.enabled=.t.endifthisform.grd医务人员基本情况表.setfocusthisform.grd医务人员基本情况表.refresh编辑铵钮代码：if mand2.caption='编辑'th

46、isform.grd医务人员基本情况表.readonly=.f.mand2.caption='保存'mand1.enabled=.f.mand3.enabled=.f.elsemand2.caption='编辑'thisform.grd医务人员基本情况表.readonly=.t.mand1.enabled=.t.mand3.enabled=.t.endifthisform.grd医务人员基本情况表.setfocusthisform.grd医务人员基本情况表.refresh删除铵钮代码：sele 医务人员基本情况表thisform.grd医务人员基本情况表.set

47、focusif messagebox("是否删除当前记录! " ,32+4+256,"删除记录")=6this.tag=thisform.grd医务人员基本情况表.recordsourcedelete next 1packthisform.grd医务人员基本情况表.recordsource=this.tagthisform.refreshendif删除铵钮代码：IF sys(102)!="OFF"ELSE=messagebox("打印机没有准备好！",0+48,"警告")ENDIF打印铵钮代码：

48、IF sys(102)!="OFF"ELSE=messagebox("打印机没有准备好！",0+48,"警告")ENDIF查询铵钮代码：do form 医院病历管理系统医务人员查询表单.scxthisform.refresh关闭铵钮代码：thisform.release4、医务人员查询表单1）、表单运行时的窗体如下：2）、表单构成相关控件和事件新建一表单，保存在医院病历管理系统医务人员查询表单.scx下，修改表单的caption属性为“医务人员查询表单”；为表单引入医务人员基本情况表数据表数据环境，拖放医务人员基本情况表数据表字段到表

49、单中，形成一个grd医务人员基本情况表；在表单上放置一个选项按钮组控件，用它的生成器选项生成两个选项铵钮，修改其caption属性为“按姓名查找”、“按工号查找”；在表单上放置一个标签控件，一个文本框控件，一个命令铵钮组控件生成的两个命令选项铵钮，分别修改其caption属性为“请输入工号或姓名”，“查找”、“结束查找”。3）、表单构成相关源代码：查找铵钮源代码：thisform.grd医务人员基本情况表.setfocusdo casecase thisform.optiongroup1.value=1locate all for alltrim(医务人员基本情况表.姓名)=alltrim(t

50、his.parent.parent.text1.value)if found()y=recno()go ymessagebox("医务人员已经找到!")elsemessagebox("未找到此医务人员,请确认!")endifcase thisform.optiongroup1.value=2locate all for alltrim(医务人员基本情况表.工号)=alltrim(this.parent.parent.text1.value)if found()y=recno()go ymessagebox("医务人员已经找到!")elsemessagebox("未找到此医务人员,请确认!")endifendcase结束查找铵钮代码：thisform.release5、系统主表单1）、表单运行时的窗体如下：2）表单构成相关事件和控件：新建一表单，保存在医院病历管理系统系统主表单.scx下，修改表单的caption属性为“医院病历管理系统”；在表单上放置一个标签控件，3个命令铵钮控件，分别修改其caption属性为“医务人员管理”、“病人管理”、“关闭”。