基于VB的门诊管理系统

1、 摘 要门诊收费管理系统是典型的信息门诊收费管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面.对于前者要求建立数据一致性和完整性强,数据平安性好的数据库.而对于后者那么要求应用程序功能完备,易使用等特点.经过分析如此情况,我们使用VB ,数据库等开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改良,直到形成用户满意的可行系统. 关键词：Visual Base ACCESS，门诊收费管理系统目录 TOC o 1-3 h z HYPE

2、RLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859595 第1章 绪 论1 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859595 第2章 选题说明3 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859596 2.1课题背景3

3、HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859596 2.2国内外研究现状3 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859596 2.3课题目的4 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859595 第3章

4、 系统分析5 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859596 3.1系统的初步调查5 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859596 3.2系统的可行性分析6 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc15

5、5859592 3.3系统开发步骤6 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859593 3.4可行性分析7 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859594 3.5对本系统的分析9 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc

6、 l _Toc155859595 第4章 系统设计 PAGEREF _Toc155859595 h 10 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859596 4.1模块设计 PAGEREF _Toc155859596 h 10 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859597 4.2开发环境 PAGEREF _Toc15585959

7、7 h 10 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859598 4.3功能模块 PAGEREF _Toc155859598 h 12 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859599 4.4数据流图 PAGEREF _Toc155859599 h 13 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系

8、统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859600 4.5数据库设计 PAGEREF _Toc155859600 h 13 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859601 4.6详细设计18 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859602 系统主界面18 HYPERLINK

9、 file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859603 用户管理界面19 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859604 药品管理界面23 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859605 挂号界面24 HYPERLIN

10、K file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859606 划价界面25 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859607 第5章 开发总结27 HYPERLINK file:/F:TDDOWNLOAD毕业设计VB门诊管理系统20210607VB0门诊管理系统20210607文档目录摘要.doc l _Toc155859608 参 考 文 献28第一章 绪

11、 论 在现代社会中管理的作用越来越显得重要和突出。一般来讲，管理通过方案、组织、指导与领导、控制等手段，为组织制定目标，应用组织的各种要素，以实现组织的目标。对企业来说，人们按照一定的营销方案、人力、物力资源，对人员、物质、资金等加以方案和协调，以到达预期的目的，即称为企业管理。传统的企业管理活动中，把人、才、物作为企业的主要资源。但是随着社会化大生产的不断扩大和社会对产品多样化的需求，人们越来越重视信息在生产经营及企业管理中的作用，并把它当做企业的一种极其重要的资源，人们称之为“信息资源，信息资源的处理已经成为当今世界上一项主要的社会活动。同样，在医疗系统中也不例外，其中加强对门诊信息的管理

12、，一方面能更好为病人效劳，另一方面能加强对医院效益的监控。 本世纪以来，由于社会生产力的迅速开展和科学技术的突飞猛进，人们进行信息交流的深度和广度不断增加，管理所需要的信息量急剧增长，同时对信息的处理要求及时、准确，这导致了传统的信息处理方法和手段已不能适应现代管理的需要；电子计算机的诞生和在信息处理中的应用，标志着一个崭新时代“信息时代的开始，它使企业管理现代化成为可能。一定意义上说，管理信息系统的产生和开展是建立在电子计算机根底之上的。硬件方面，自1946年第一台电子计算机诞生以来，计算机技术的开展可谓日新月异，从庞大的只能在实验室里供研究使用的计算机到如今能适应不同环境满足不同需求的各种

13、各样的计算机；运算速度从每秒几千次到每秒几百亿次；处理器从焊有上百万个电子管的大的惊人的电子板到只有指甲大小的集成电路；现在计算机在硬件方面的开展已到达了每三个月更新换代一次的惊人速度。软件方面，也已从机器语言、汇编语言、高级语言开展到现如今的第四代语言非结构化、面向对象、可视化的语言。 管理信息系统的开展 管理信息系统通过对企业当前运行的数据进行处理来获得有关信息，以控制企业的行为；利用过去和现在的数据及相应的模型，对未来的开展进行预测；能从全局目标出发，对企业的管理决策活动予以辅助。从工业兴旺国家来看，管理信息系统的开展经历了以下几个阶段。 第一阶段：1953年至1965年单项数据处理阶段

14、，也称电子数据处理EDP阶段。这是电子计算机在管理领域应用的起步阶段。这一阶段，由于当时计算机硬、软件的限制，数据处理的性质只是使用计算机代替人的手工劳动，进行简单的单项数据处理工作，如计算工资、数据统计、报表登记、编制方案等。这个阶段的处理方式主要是集中式的批处理。 第二阶段：1965年至1970年综合数据处理阶段，也称事务处理系统TPS阶段。这个阶段计算机硬、软件有了很大的开展，出现了多用户的分时系统，计算机开始应用于对某一个管理子系统的控制，并具有一定的反应功能。如库存管理系统、生产调度系统、学籍管理系统等。这个阶段的处理方式已开展为面向终端的联机实时处理。第三阶段：1970年至今管理信

15、息系统MIS阶段。这个阶段是在企业中全面的使用计算机把各种管理子系统的功能集中起来，构成了计算机化的全方位的信息系统，即现代管理信息系统。这个阶段的处理方式是在数据库和网络根底上组成分布式处理系统。它的特点是使用数据库和分时处理的计算机网络，并充分利用运筹学等数学方法，实现了硬件、软件和数据资源的共享。 总的说来，计算机技术的开展，其性价比大幅的下降，使得其被大量广泛的使用。针对现实中的各种应用需求，相应的产生很多技术体系、技术标准，如J2EE、。NET，COM/COM+等。这又大大的推动了企业的信息化进程。其影响可以归纳为如下两点：(1)计算机已经成为我们学习和工作的得力助手：今天，计算机的

16、价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加平安，等等。(2)开发门诊收费管理系统的意义现在我国的一些小型医院或诊所对于病人就诊信息的处理还停留在纸介质或半自动由电脑处理一局部数据，由人工处理一局部数据的根底上，这样的机制已经不能适应时代的开展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为根底的信息管理所取代。软件作为一有项有力的工具，只能当此种工具，与我们的

17、实践相结合起来的时候，才具有重大的社会价值及使用价值。因此根据企业目前实际的门诊收费管理情况开发一套门诊收费管理系统是十分必要的。 第二章 选题说明课题背景 要提高竞争力，既要有好的就医环境，同时也要有好的客户效劳，而要实现这些目标的方法就是信息化。医院信息化建设的目标是：适应我国全面建设小康社会和医药卫生改革开展的形势，以病人为中心，综合运用现代信息技术计算机、网络、通讯等，充分表达药特点，提高医疗质量和市场竞争能力，满足患者与医院管理的多种需求，促进医院持续快速稳定开展。医院信息化建设应遵循“整体规划、合理投入、小步快走的原那么积极实施。 在手工管理的情况下，对病人的病历的管理是一个极其繁

18、杂的过程，医生很难记住每一位病人的情况，就医记录。所以往往采用的手工记录的方式，这个势必造成具大的物资浪费。并且随着医院规模的扩大，对药品的管理，对药品价格的管理等都是一件巨大的工作。国内外研究现状 通过这前段时间的市场调查和分析，初步了解到现在各种进销存软件的优点及缺乏。比方说有些传统进销存软件是为替代手工录入，从传统数据记录中产生的，这些软件面对Internet及电子商务迅猛开展的网络经济时代显得如此脆弱而只能望e兴叹！ 1、体系封闭，无法实现网络化管理，更无法支持电子商务。传统软件由于产生的技术背景落后，无法实现网络化管理或只支持局部网络应用，更无法支持电子商务，不能适应网络时代企业的需

19、求。 2、信息单一、落后且缺乏前瞻性，由于技术方面的限制，传统软件无法做到库存信息的实时动态处理、事前的预测并提供前瞻性信息。 3、对管理考虑甚少。软件依旧没有摆脱传统束缚，以对外报告为其存在目的。课题目的当今时代是飞速开展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其平安性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了更好管理门诊信息信息而设计的。 当

20、前，医院作为病人就诊的地方，有许多信息需要处理和管理。现今，有很多门诊信息都是初步开始使用，甚至尚未使用计算机进行信息处理。根据调查得知，他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于医历等很多信息都是用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丧失，且不易查找。总的来说，缺乏系统，标准的信息管理手段。 数据处理手工操作，工作量大，出错率高，出错后不易更改。基于这此问题，我认为有必要建立一个门诊收费管理系统，使宿舍管理工作标准化，系统化，程序化，防止宿舍管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改宿舍情况。开发门诊

21、管理系统的现实意义：计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加平安，等等。现在我国的多数诊所或小型医院的管理水平还停留在纸介质的根底上，这样的机制已经不能适应时代的开展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为根底的信息管理所取代。我作为一个计算机应用的专科生，希望可以在这方面有所奉献。我希望能用我四

22、年的所学编制出一个实用的程序来帮助大中专进行更有效的信息管理。 第三章 系统分析系统的初步调查建立一个好的管理信息系统，必须要有一个好的管理根底。所谓好的管理根底，指的是合理的管理体制、完善的制度、科学的管理方法和准确的原始数据。应该看到，我国开发管理信息系统的时间还不长，设计开发的实际经验也很缺乏。要使进销存信息系统在企业建立、使用，并从中获得巨大的效益，必须具备以下根本条件。(1)领导重视、管理人员积极性高管理信息系统的建立，需要企业公司提供资源、经费、人力和时间，要涉及管理体制、规章制度的变化、调整和大量数据的编码、表格形式协调等工作，这些公司管理的全局性问题必须在公司高层领导的重视和支

23、持下才能获得解决。管理人员的积极性也是不容无视的条件。 管理人员是管理信息系统的直接用户，它们的积极性和配合程度，关系到管理信息系统的使用效果和生命力。(2)具备一定的资源条件管理信息系统的资源主要包括计算机硬、软件设备，不间断电源、空调等辅助设备和计算机房设施等，有条件的公司应尽量开掘和利用现有计算机设备。管理信息系统的费用可分为 开发费用和运行费用，前者包括设备购置、人员工资、培训和开发过程中的一系列支出等， 后者包括机器运行、维护和修理费，人员工资和水、电、纸张等日常开支。要有足够的资金保证，才能顺利完成整个系统的开发工作。当然，资金的投入也可以在开发和运行过程中分阶段进行，在逐步取得阶

24、段成果的根底上补充更多的资源。(3)组织一个强有力的开发小组管理信息系统的质量，在某种意义上直接取决于开发人员的水平和素质。 开发小组的人数因系统规模大小而异，通常包括系统分析员、程序员、数据录入员和硬、软件维护人员。由于管理信息系统的开发通常是从逐个子系统分期分批进行的，同时，已开发完毕投入使用的系统仍需不断维护、改良和完善，因此这个开发小组应该在相当长的时期内存在。在正式的立项之前必须进行可行性分析，而可行性分析主要是对现行系统进行充分的调查研究，细致了解现行系统的现状流程，以及存在的主要问题，在此根底上提出新的系统的逻辑模型。详细的现状调查目的是为了弄清现行系统的根本功能及信息流程，为新

25、系统逻辑模型提供根底。它是建立新系统的前期工作，也是进行系统分析和设计的重要根底。因此要建立新的公司门诊收费管理系统就必须对公司现行的门诊收费管理系统进行全面、细致而充分的调查研究。采用主要的方式是在同学中进行交流和对现有的政策进行分析。系统的可行性分析系统的可行性分析包括两个详细的局部：分析开发新的系统的必要性和可能性。必要性在前面系统初步调查中已经作了详细的分析，在这里就不再赘述；可能性主要包括经济可行性、技术可行性和运行可行性三个方面。经济可行性研究是对组织的经济现状和投资能力进行分析，对系统建设运行和维护费用进行估算，对系统建成后可能取得的社会和经济效益进行估计。由于公司门诊收费管理系

26、统是作为毕业设计由我们学生自己开发的，在经济上的投入甚微，系统建成之后将为今后实现公司门诊收费管理提供很大的方便，因此在经济上是可行的。技术可行性要考虑现有的技术条件是否能够顺利完成开发工作，软硬件配置是否满足开发的需求等。公司门诊收费管理系统用的是Visual Basic开发语言，调试相对简单，当前的计算机硬件配置也完全能满足开发的需求，因此在技术上是绝对可行的。软件方面：由于目前单机模式相对开展成熟，故软件的开发平台成熟可行,它们速度快、容量大、可靠性能高、价格低，完全能满足系统的需求。运行可行性是对组织结构的影响，现有人员和机构、设施设施和环境对系统的适应性及人员培训补充方案的可行性。当

27、前我们公司信息化技术已经相当普及，各类操作人员水平都有相当的高度，所以在运行上是可行性的。系统开发步骤一般说来，管理信息系统的建立与应用可以划分成总体规划、系统开发和系统运行三个阶段，其中系统开发阶段还可进一步分为系统分析、系统设计和系统实施等工作环节。上述各个阶段排列成一个严格的线性开发序列，在每个工作阶段均产生完整的技术文档作为下一阶段工作的指导和依据，每一阶段都应对文档进行评审，确信该阶段工作已完成并到达要求后才能进入下一阶段，同时在以后的工作中不能轻易改变前面经过评审的成果。上述开发方式的主要优点是便于开发工作的组织和管理，并且可大大降低管理信息系统开发的复杂性。国内外许多系统开发的实

28、例都证明这是一种行之有效的开发方式。国外曾有人对一些软件工程开发各阶段的工作量进行了统计，结果说明，在开发过程中各工作阶段所占全部工作量的比重分别到达系统分析：系统设计：编程：模块调试：系统调试20%：15%：20%：25%：20%。由此可见，程序编写在开发工作中只占很小比例，而调试工作却占整个开发工作量的一半左右，因此“系统开发就是编程的习惯说法显然是片面的。另据统计，在建立管理信息系统的三个阶段中，总体规划和系统开发阶段的工作量约占整个工作量的2/3，而运行、维护阶段要占1/3，这说明一个管理信息系统开发后，仍应十分重视它的维护工作，以便使系统不断完善并充分发挥其作用。4、门诊收费管理信息

29、系统的规划系统规划是整个管理信息系统建立过程中的根底阶段。因为新系统是在现有系统根底上开展而成的，所以首先应对现有系统进行全面的调查和分析，通过对用户需求的调查，提出新系统的开发目标，并进行可行性研究，为新系统开发能否进行提供定量和定性的依据，这就是总体规划的任务。5、现行系统的初步调查初步调查是为了了解现有系统的概貌、规模等根本情况，从而确认新系统的目标。该阶段需调查的主要内容有：(1)现行系统的概况：当前规模、功能、工作效率、归属部门等。(2)管理流程及工作步骤：现行系统中各职能部门的管理业务流程、各种数据在收集、整理、输入、存贮、处理和输出各个环节的具体加工步骤，主要单据、表格的来源和去

30、处等，从而得到较为完整的信息流程。上述各项内容在系统分析阶段中还需进一步作详细调查。(3)当前系统的薄弱环节：在调查中应善于发现问题并找出其前因后果，这些问题往往是新系统中要解决和改良的主要问题。(4)各部门管理人员对新系统目标持有的看法，以及对建立新系统的态度。可行性分析在现行系统初步调查的根底上就可以提出新系统目标，即新系统建立后所要求到达的运行指标，这是系统开发和评价的依据。新系统目标应充分表达公司的战略目标、开展方向和根本特点，直接为公司管理效劳，同时，新系统目标应该和现行系统的各项根本功能密切相关，并且可以分期分批实现。需要指出的是，新系统目标不可能在总体规划阶段就提得非常具体，它还

31、将在开发过程中逐步明确和定量化。新系统目标的提法不尽相同，例如：提高工作效率和减轻劳动强度；提高信息处理速度和准确性；提供新的处理功能和决策信息，等等。新系统的目标确定后，就可以从以下三方面对能否实现新系统目标进行可行性分析：1技术可行性根据新系统目标来衡量所需的技术是否具备，一般可从硬件、软件的性能要求、环境条件、技术人员水平和数量等方面去考虑和分析，其中开发人员的技术力量应首先考虑能力与水平，并考虑近期内可以培养和开展的技术人员。2经济可行性估算新系统的开发费用和今后的运行、维护费用，估计新系统将获得的效益，并将费用与效益进行比拟，看是否有利。开发、运行和维护费用主要包括：购置和安装设备的

32、费用：计算机硬件、系统软件、 机房、电源、空调等；软件开发费用：假设由实习单位的技术人员开发，那么该项费用可以计入下面的人员费用一项；人员费用：系统开发人员、操作人员和维护人员的工资、培训费用等；消耗品费用：系统开发所用材料、系统正常运行所用消耗品，例如水、电费，打印纸、软盘、色带等开支；其它费用。系统的效益可以从经济效益和社会效益两方面考虑。对于企业管理信息系统那么应着重分析其社会效益。例如，系统投入运行后可以提供哪些以前无法及时提供的信息，用户查询和使用信息的方便程度提高多少、速度增加了多少，对于管理人员进行决策提供了多少帮助等等。3运行可行性对新系统运行后给现行系统带来的影响包括组织机构

33、、管理方式、工作环境等和后果进行估计和评价。同时还应考虑现有管理人员的培训、补充，分析在给定时间里能否完成预定的系统开发任务等。按上述三方面进行可行性分析、研究后，就可整理并编制出新系统开发的可行性报告，它是总体规划工作的阶段性成果。对本系统的分析 通过使用本系统，能标准对各类信息的管理，并可以大大的方便对信息的查询。本系统的开发，是典型的Mis开发，主要是对数据的处理，包括数据的收集，数据的变换，及数据的各种报表形式的输出。采用流行的VB+ACCESS体系，已无技术上的问题，在技术上是可行的。另外，对本系统的开发，只需一台普通配置的计算机，及专职的开发人员一名，宿舍管理人员一名即可完成对现行

34、系统的分析，导出新系统，显然在经济上也是可行的。第四章 系统设计模块设计根据本系统的需求，结合实际管理情况，本系统应用有如下功能模块：根底数据维护：对用户信息的管理药品管理:主要对药品类别、药品类型及药品信息的管理 挂号:病人就医的主流程之一，为每一个病人分配一个号码 划价:计算药品的价格，主要包括中药、西药、中成药等 门诊收费:对各项收费进行汇总，如中药、西药、中成药等 查询:对挂号信息、收费信息进行查询开发环境本系统采用面向对象的软件开发方法，以Microsoft公司的可视开发环境作为主要开发工具，使用Microsoft Access 2000作为关系数据库，并在VB编程语言中采用ADO

35、数据库编程模型，配合功能强大的SQL查询语言实现建立关系数据库，访问数据库，对数据库的更新，较好地实现了预定的需求功能。 开发环境Visual Basic 6.0是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高、且功能强大。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口API函数，以及动态链接库DLL、动态数据交换DDE、对象的链接与嵌入OLE、开放式数据连接ODBC等技术，可以高效、快速地开发出Windows环境功能强大、图形界面丰富的应

36、用软件系统。总的来看，Visual Basic有以下主要特点： Visual Basic提供了可视化设计工具，把Windows界面设计复杂性“封装起来，开发人员不必为界面设计而编写大量程序代码，只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那局部代码，从而可以大大提高程序设计的效率。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic那么是应用面向对象的程序设计方法OOP，把程序和数据封装起作为一个对象，并

37、为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，用户单击该按钮时，将产生一个“单击事件，而产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写假设干个微小的子程序，即过程，这些过程分别面向不同的对象，

38、由用户操作引发某个事件来驱动执行某特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作。这样可以方便编程人员、提高效率。Visual Basic系统具有很强的数据库管理功能。利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据。Visual Basic提供开放式数据连接Open DataBase Connectivity，即ODBC功能，它可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server、Oracle等。在应用程序中，可以

39、使用结构化查询语言SQL数据标准，直接访问Server上的数据库，并提供了简单的面向对象的库操作指令、多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户效劳器方案。Visual Basic 6.0 是专门为Microsoft的32位操作系统设计的，可用来建立32位的应用程序。在Windows9x、WindowsNT或Windows2000环境下，用Visual Basic 6.0的编译器可以自动生成32位应用程序。这样的应用程序在32位操作系统下运行，速度更快，更平安，并且更适合在多任务环境下运行。 Mic

40、rosoft Access与 ADO作为应用程序与OLE DB连接的桥梁，ActiveX Data Objects (ADO)为Visual Basic 6.0 下开发的应用程序访问本地或远程数据库提供了有效的手段。Microsoft ActiveX Data Objects (ADO) 主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。ADO 支持用于建立基于客户端/效劳器和 Web 的应用程序的主要功能。在VB中，可以使用开发环境提供的ADO控件，数据库访问方法，对ACCESS中建立的关系数据库简单快捷的进行访问。 SQL查询语言及使用SQL语言是结构化语言Structure Qu

41、ery Language的缩写，是一种用于数据库查询和编程的语言，已经成为关系型数据库普遍使用的标准，使用这种标准数据库语言对程序设计和数据库的维护都带来了极大的方便，广泛地应用于各种数据查询。VB和其他的应用程序包括Access、Foxpro、Orcale、SQL Server等都支持SQL语言。SQL语言的常用操作有：建立数据库数据表CREATE TABLE，如本系统中的学生及成绩备份就用到该语句；从数据库中筛选一个记录集SELECT，这是最常用的一个语句，功能强大，能有效地对数据库中一个或多个数据表中的数据进行访问，并兼有排序、分组等功能；在数据表中添加一个记录INSERT；删除符合条件

42、的记录DELETE；更改符合条件的记录UPDATE； VB中的数据库操作对象都提供了对SQL语句的支持。其一般的用法是以VB的各种控件接收用户对数据库访问的请求，在事件响应程序代码中将其转换成对数据库的SQL查询语句，并以字符串的形式存在，然后将其传递给相应的数据库操作对象，最终完成对数据库的访问。功能模块管理信息系统设计阶段的主要目的是将系统分析阶段所提出的反映了用户信息需求的系统逻辑方案转换成可以实施的基于计算机与通信系统的物理技术方案。具体要求对系统进行功能分解，不断下去，直到分解成含义明确，功能单一的单元功能模块，从而绘制出系统的功能模块图，即HIPO图。此管理信息系统的HIPO图如下

43、门诊收费管理查询收费划价挂号根底数据药品管理挂号查询收费查询类别设定药品管理最低库存科室管理医师管理数据流图用户信息管理用户信息 SHAPE * MERGEFORMAT 用户信息用户信息表操作员药品管理药品类别信息药品类别信息文件划价信息管理划价信息划价药品信息表药品收费信息表收费信息管理图数据库设计数据库设计是要在一个给定的应用环境DBMS中，通过合理的逻辑设计和有效的物理设计，构造较优的数据库模式、子模式，建立数据库和设计应用程序，满足用户的各种信息需求。1、概念结构设计在数据库设计中，先要对系统分析所得的数据字典中的数据存储进行分析，然后得出系统的关系模式，可以采用实体联系图简称ER图的

44、方法进行数据结构的描述。ER图由实体、属性、联系三局部组成。ER图的有关符号说明如下：实体属性联系.4散件实体 SHAPE * MERGEFORMAT ID帐号密码用户ID单位名称说明药品单位ID类型名称说明药品类型ID科室名称说明科室编号名称日期其它来源散件ID医师名称说明医师编号药品编码药品名称有效期型号规格药品实体间主要关系如下:病人 药品药品划价挂号门诊收费属于医师2、物理结构设计物理结构设计的原那么如下：1尽可能的减少数据冗余和重复。2结构设计与操作设计相结合。3数据结构具有相对的稳定性。基于以上设计原那么，本系统设计了一个数据库，包含根本信息表如药品、医师、科室等及几个实体联系建模

45、后的表如划价信息表、收费信息表等。为了加快系统访问的速度把这些表放在一个数据库中。本系统中相关数据库表结构设计举例如下：用户表p_user编号字段名称字段类型字段说明1ID数值ID2用户名文本用户名3密码文本密码药品单位med_dw编号字段名称字段类型字段说明1ID数值ID2单位名称文本单位名称药品类型表med_type编号字段名称字段类型字段说明1ID数值ID2类型名称文本类型名称科室表med_ks编号字段名称字段类型字段说明1ID数值ID2科室名称文本科室名称科室表med_ys编号字段名称字段类型字段说明1ID数值ID2医师名称文本医师名称药品划价表hj_t编号字段名称字段类型字段说明1I

46、D数值ID2药品编码文本药品编码3药品名称日期药品名称4型号规格文本型号规格5数量数值数量6应付款数值应付款7挂号ID数值挂号ID药品划价汇总表hj编号字段名称字段类型字段说明1ID数值ID2类型文本类型3应收款数值应收款4挂号ID数值挂号ID门诊收费表hj_aa编号字段名称字段类型字段说明1ID数值ID2收费工程文本收费工程3应付款数值应付款4挂号ID数值挂号ID门诊收费汇总表hj_a编号字段名称字段类型字段说明1ID数值ID2类型文本类型3应收款数值应收款4挂号ID数值挂号ID详细设计系统主界面 在此系统中，充分考虑到人们的使用习惯，利用了菜单对系统中功能进行分类列举,用使对系统的使用，通

47、过菜单即能完成，这样使得主界面简洁，易于使用。另一方面，对当前使用的某一功能选项对应的窗口，以模式的方式进行工作，使得在同一窗口，仅能翻开某一类功能的窗口，也在一定程度上减轻了用户的使用难度。系统的主界面如下:用户管理界面此界面为本系统中，较常用的一种界面结构。主要由最上方的工具条，中间的现有数据显示区及下方的新增内容区。 在系统细节，主要采用了一个ADO.recordset对象，当增加保存时，使用了其addnew及post方法；当删除某一行数据时，使用了其Delete,post方法主要实现代码如下: Private Sub Form_Load()Call ExcuteSql(rec_user

48、, select * from p_user)Call ShowInfo(rec_user, flexb)End SubPublic Sub ShowInfo(ByVal rs As ADODB.Recordset, ByVal searchList As MSHFlexGrid)On Error Resume NextDim SumFields, i, jSumFields = rs.Fields.Count 该表的字段总数searchList.Clear 清空列表，防止增加或修改调用时重复显示searchList.BackColor = &HC0FFFF 设置网格背景颜色searchLis

49、t.Cols = SumFields 设置网格列数searchList.Row = 0With searchList .FillStyle = flexFillSingle .ScrollTrack = True .AllowUserResizing = flexResizeColumns .FixedRows = 1 .FixedCols = 0 .SelectionMode = flexSelectionByRowEnd With设置第一行的各列标题For i = 0 To SumFields - 1 searchList.Col = i searchList.TextMatrix(0,

50、i) = rs.Fields(i).Name searchList.ColAlignmentFixed(i) = 3 searchList.BackColor = &H8000000FNext i设置第一行的各列标题文字格式For i = 0 To SumFields - 1 searchList.Col = i searchList.CellAlignment = 4 searchList.CellFontBold = True searchList.CellForeColor = vbBlue j = TextWidth(rs.Fields(i).DefinedSize) * 8 设置标题

51、宽度，防止局部长文字不显示 If j searchList.ColWidth(i) Then searchList.ColWidth(i) = j End IfNext i循环开始-显示所有符合条件记录searchList.Rows = rs.RecordCount + 1 其中标题占一行searchList.Row = 0 searchList.Row = searchList.Row + 1 增加一行，用于写入内容 For i = 0 To SumFields - 1 searchList.Col = i If searchList.Col = 0 Then searchList.Cell

52、BackColor = &H8000000F End If searchList.CellAlignment = 4 读入内容 If Not IsNull(rs.Fields(i).Value) Then searchList.Text = rs.Fields(i).Value Else searchList.Text = End If Next i Wend循环结束-显示所有符合条件记录End SubPrivate Sub tblOperator_ButtonClick(ByVal Button As MSComctlLib.Button) Case add Call Form3.setTy

53、pe(add) Form3.Show vbModal Case modify Call Form3.setType(modify) Form3.Show vbModal Case exit Unload Me Case delete End Select Call ShowInfo(rec_user, flexb)End SubPrivate Sub flexb_DblClick()If Not rec_user.EOF ThenDim f As New Form3Call f.setType(modify)f.Show vbModalCall ShowInfo(rec_user, flexb

54、)End IfEnd SubPrivate Sub flexb_SelChange() Dim strID, strFind Call GetFlexGridFirstColValue(flexb, strID) If strID Empty Then strFind = ID= & Trim(strID) If Not (rec_user.EOF And rec_user.BOF) Then rec_user.Find (strFind) 实时的移动记录 Debug.Print Move to & strID End If End IfEnd Sub药品管理界面本界面，主要实现对药品信息的管

55、理，如药品编码、药品名称、型号规格、有效期等.能进行完备的药品编辑操作。主要代码如下:Private Sub tblOperator_ButtonClick(ByVal Button As MSComctlLib.Button) Case add Call Form13.setType(add) Form13.Show vbModal Case modify Call Form13.setType(modify) Form13.Show vbModal Case exit Unload Me Case delete End Select Call ShowInfo(rec_med, flexb

56、)End SubPrivate Sub flexb_DblClick()If Not rec_med.EOF ThenDim f As New Form13Call f.setType(modify)f.Show vbModalCall ShowInfo(rec_med, flexb)End IfEnd SubPrivate Sub flexb_SelChange() Dim strID, strFind Call GetFlexGridFirstColValue(flexb, strID) If strID Empty Then strFind = ID= & Trim(strID) If

57、Not (rec_med.EOF And rec_med.BOF) Then rec_med.Find (strFind) 实时的移动记录 Debug.Print Move to & strID End If End IfEnd Sub挂号界面挂号是系统主要流程的第一步，它的主要功能是为病人人分配一个唯一的编号，在以后的流程中，这个编号即挂的号为划价、收费的根底。在具体的实现中，在医师输入框后，放置了一命令按钮，方便用户快速的查找医师的信息。医师的信息也是以后查询医师的业绩的主要标识.主要代码如下: Private Sub Command1_Click()Dim c_gl As StringI

58、f Trim(Text1) = ThenEnd IfIf t_ = add And Text1.Text init Thenc_gl = Now()c_gl = Replace(c_gl, -, )c_gl = Replace(c_gl, :, )c_gl = Replace(c_gl, , )Call ExcuteSql(rec_gh, select * from med_gl)If rec_gh.State = adStateOpen Thenrec_gh.Fields(类型) = Trim(Combo1.Text)rec_gh.Fields(医师ID) = Trim(Text1)rec_

59、gh.Fields(挂号费) = Trim(Text3)rec_gh.Fields(编号) = Trim(c_gl)MsgBox (你的挂号号码: & c_gl)Text1 = initText2 = Text3 = End IfEnd IfIf t_ = modify ThenIf rec_gh.State = adStateOpen Thenrec_gh.Fields(类型) = Trim(Combo1.Text)rec_gh.Fields(医师ID) = Trim(Text1)rec_gh.Fields(挂号费) = Trim(Text3)End IfEnd IfIf ck.Value 1 ThenUnload MeEnd IfEnd Sub划价界面 所谓的划价，就是将医生所给的药品清单，以系统中拟定的价格计算应收款的过程。主要包括医人的挂号信息、药品信息等。在实现上，要