针对小型医疗机构的门诊收费系统的设计与实现.doc

1、目 录摘要1ABSTRACT2第一章 绪论31.1 引言31.2 课题背景31.3 研究意义41.4 研究内容41.5 研究现状41.6 研究目的5第二章 系统可行性分析62.1 技术可行性分析62.2 经济可行性分析62.3 管理可行性分析72.4 操作可行性分析7第三章 背景知识介绍83.1 PowerBuilder编程工具83.2 oracle数据库介绍83.3 C/S体系结构的基本简介93.4 系统运行环境要求9第四章 系统总体设计104.1 概述104.2 系统总计功能104.2 系统程序流程图114.2.1 登录模块流程图114.2.2 收费模块流程图114.3 数据库概念结构设计

2、124.3.1 用户信息E-R图124.3.2 病人信息E-R图134.3.3汉字库信息E-R图134.3.4 收费项目信息E-R图134.3.5收费记录信息E-R图144.3.6收费明细信息E-R图14第五章 数据库的设计155.1 数据库设计155.2 数据表的设计155.3 数据表结构设计15第六章 系统的详细设计与实现176.1 概述176.2 主界面图及主要代码176.2.1 登录认证窗口的设计和实现176.2.2 系统主界面的设计与实现18第七章 功能测试287.1 系统调试287.2 系统运行28结论与展望29参考文献30致谢31门诊收费系统的设计与实现摘要随着信息技术的发展以及

3、医疗行业的规范化和高效率要求，手工的收费流程早已满足不了现代人们的需求，昂贵的全面化医疗系统又不太适合我国众多的小型医疗机构，建立针对性强而价格适中的门诊收费系统很有必要。门诊收费系统是利用基于PowerBuilder平台的Power Script编程语言，辅以C/S架构体系以及oracle数据库开发的系统。它以收费管理为核心，集病人信息管理、收费项目管理以及汉字库管理为一体完成简单收费功能。通过该系统，收费人员可以大大地提高工作效率，不仅可以进行收费工作，还可以对病人的信息进行查询以及维护。本文详细地描述了门诊收费系统的设计和实现过程，通过详细的需求分析以及流程设计和界面设计，完成了一个针对

4、小型医疗机构设计的界面相对简单，功能相对少且价格适中的门诊收费系统。加快医疗信息化进程的同时使医院效益最大化。关键字：门诊收费系统,小型医疗机构,PowerBuilderTHE DESIGN AND IMPLEMENTATION OF OUTPATIENT SERVICE CHARGE SYSTEMABSTRACTWith the development of information technology and the standardization of the medical industry and high efficiency requirements, manual chargi

5、ng process already cant satisfy the needs of modern people, expensive health system and an all-round way is not suitable for our country numerous small medical institutions, establish well-targeted and moderate price of outpatient service charge system is necessary.Outpatient service charge system i

6、s the use of Power based on the original concept platform Script programming language, supplemented by C/S architecture system and oracle database development system. It charges management as the core, set the patient information management, project management fee and charge Chinese management as a

7、whole to do simple function. Through this system, charge personnel can greatly improve the work efficiency, can not only for work, also can query to the patients information and maintenance.This paper describes in detail the design and implementation process of outpatient service charge system, thro

8、ugh the detailed demand analysis and process design and interface design, completed a design for small medical institutions interface is relatively simple, function is relatively few and moderate price of outpatient service charge system. In speed up the process of medical information, at the same t

9、ime maximize the benefit of hospital.Key words: Outpatient service charge system, Small medical institutions, PowerBuilder第一章 绪论1.1 引言随着医疗改革的发展以及人民生活水平的提高，乡村医疗室以及诊所等小型医疗机构也逐步迈向信息化，而我国医疗软件行业所生产的医疗软件产品大多数都是针对二甲或三甲医院等大型医院所设计的，其功能模块较多，价格昂贵，且不适用于小型医疗机构。因此，开发一套适合小型医疗机构的门诊收费系统，不仅可以提高医院收费人员的工作效率，而且可以使我国的整体医

10、疗信息化水平更上一层楼。1.2 课题背景 医院信息系统在1988年被MorrisCollen 定义为：医院信息系统就是利用计算机和网络设备，对病人的就医流程：挂号、门诊、诊断、护理等进行全方位的计算机管理，为医院提供就诊、财务、行政等信息的收集、存储、处理等操作，并满足系统用户对各类信息的功能需求。门诊收费系统作为医院信息系统的一个子系统，自身有着很强的特点，医院收费管理水平的高低很大程度上反映了医院的整体管理水平。过去医院所采用的传统手工收费方式不仅速度慢，操作复杂，而且经常出现漏收、错收的现象，统计核算费时费力，已经越来越不适应医院现代化管理的需要。随着改革开放步伐的加大，卫生事业的发展，

11、我国医疗水平的提高，以及国民就诊意识的增强，医院业务不断扩大，看病人数也日益增多，这些因素都导致传统人工收费方式越来越不适应新形势下医疗系统的发展，医院对新的门诊收费方式提出了迫切需求，建立医院门诊收费管理系统势在必行。 信息技术的迅猛发展将人们带入了信息时代，作为各个领域业务处理和工作管理的重要辅助工具计算机对各行业的发展起到越来越大的推动作用。计算机的有效应用能够在很大程度上减少工作量，减轻工作负担，降低工作中产生错误的几率，更为重要的是它能够为工作提供各种所需信息，并且能将这些重要信息循环再利用，从而给使用单位带来了巨大的效益。 由于信息化时代的来临，医院的现代化建设遇到了前所未有的动力

12、和机遇，计算机越来越多的应用于医院的日常管理中，为医院的发展提供了前所未有的动力。医院信息系统（HIS）已被公认为是新兴的医学信息学（Medical Information）的重要分支，HIS 的应用已经成为医院科学化、现代化管理的重要标志，并将给医院带来可观的经济效益和显著的社会效益。1.3 研究意义在各个乡镇医疗卫生室以及个人诊所等小型机构，医疗软件的使用已经非常普遍。用计算机不但可以提高效率，而且还节省了许多人力和物力，增强了数据资料的安全性。由于以下几方面的原因，意识到了建立针对小型医疗机构的门诊收费系统的重要性和必要性：1.我国小型医疗机构的医生大多是年长者对电脑技术不太擅长，手工医

13、疗过程不符合医疗信息化的要求，而大多医疗软件又都功能模块全面，操作复杂，非常不适合小型医疗机构。一个简单易操作的门诊收费系统可以大大提高业务处理量和处理效率,减轻工作人员的工作量，使医院工作人员的工作变得操作快速、规范、高效,解决病人排长队的问题。2.我国的小型医疗机构具有数量多的特点，所以市场需求很大，针对性的产品开发很有必要。3.还可以降低医院成本，能够找到一个价格适中而且针对小型医疗机构设计的系统。1.4 研究内容1.对门诊收费系统进行需求分析，结合自己本人学知识，重点分析如何有效优化收费流程和提高工作效率。此部分内容还包括编写用例和画出用例图。2.利用软件工作思想，对以上需求进行概要分

14、析、详细设计和实现。在概要设计中，它包括对需求分析中提出的用例进行细化，分别画出对应的流程图。在详细设计中，编写伪代码。最后，本文给出了一个可运行的系统。1.5 研究现状我国对医院信息化的关注和研究较国外晚,但是随着政府的不断重视,发展的速度不断加快,并取得了一定的研究成果。随着医院信息管理系统实施的流行和普及,一些软件开发公司也适时地为医院开发了一些HIS系统,但这些系统大部分针对性不强，有的甚至为了提高软件的价格不顾需求一味的增加功能模块，致使小型医疗机构要么花大价钱买一个昂贵而功能全面的系统却只用其中一个小模块，要么任停留在手工医疗阶段。1.6 研究目的本系统主要用于小型医疗机构的门诊收

15、费管理，总体任务是实现收费信息以及病人信息关系的系统化、规范化和自动化，其主要任务是用计算机对病人进行收费，以及对病人收费信息和病人基本信息进行日常管理，如查询、修改 、增加、删除。门诊收费系统是典型的医疗软件系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用PowerBuilder开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需优化，不断

16、修正和改进，直到形成用户满意的可行系统。门诊收费系统能为小型医疗机构信息化管理的长期发展提供坚实的基础，为医院的流程管理带来极大的便捷，可以有效的管理病人的基本信息，进行信息化的查询以及详细维护。随着信息化的建设和医疗卫生的改革，医疗软件成为了医疗机构不可或缺的工具，我国一直提倡专业化，医疗软件的专业化也很重要，虽然小型医疗机构的效益不多，但和人们的生命健康息息相关，也是最贴近老百姓的机构。这么大的市场需求和需求的特殊性成为我开始此次课题的原因。有了门诊收费系统作为小型医疗机构的收费软件，可以更好的做好医疗机构信息化管理的建设。第二章 系统可行性分析可行性分析（Feasibility Anal

17、ysis）也称为可行性研究，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。并且，可行性分析的目的不是研究如何解决问题，而是研究问题是否指的去解。该系统的可行性分析包括以下几个方面的内容。2.1 技术可行性分析本系统采用采用C/S 体系结构，数据库服务器使用Oracle 9i，开发工具使用PowerBuilder。这种结构具有数据处理量大、响应迅速、安全性高等特点。PowerBuilder是一种面向对象的开发工具，在P

18、owerBuilder中我们可以创建自己的用户对象。特别要指出的是PowerBuilder提供了对面向对象中的各种技术的全面支持，我们可以利用面向对象方法中的对象的封装性、继承性、多态性等特点使得我们开发的应用程序具有极大的可重用性和可扩展性。PowerBuilder提供了流行的大多数关系数据库的支持，由于在PowerBuilder的应用程序中对数据库访问的部分一般采用国际化标准数据库查询语言SQL，使得用PowerBuilder开发的应用程序可以不做修改或者只做少量的修改就可以在不同的后台数据库管理系统上使用。PowerBuilder正在成为客户/服务器应用开发的标准。相对于其他任何客户/服

19、务器开发环境，PowerBuilder使开发人员的工作更快、成本更低、质量更高、功能更强。2.2 经济可行性分析随着科学技术的不断发展与创新，计算机作用的日益突显，我国近年来对医疗行业的还是比较重视的，这也就促进了医疗软件的发展。而现在许多公司开发的医院信息系统都价格不菲，而且功能项目太多，针对于小型诊所以及乡村卫生所等小型机构没有必要花费大价格去买一个很多功能都用不到的软件。门诊收费系统是一个功能相对简单的系统，在课题进展过程中对已经使用的类似的系统进调查分析、类比，本课题具有的特点：开发工作量小，周期短，可以有两个人合作开发或一个人独立开发和测试，并且很快完成。2.3 管理可行性分析管理可

20、信性分析是指分析系统安装运行后，对原有管理体系的影响和对系统使用人员的相关培训等。目前，我国的医疗工作人员的素质有了很大的提高，特别是收费人员都有熟练操作计算机的能力。为了确保门诊收费信息的正常运行，医院应有相应信息科人员管理医院网络以及软件硬件方面问题，这也为门诊收费系统的正常运行打下了坚实的基础。2.4 操作可行性分析本系统是专门针对乡村诊所类小型医疗机构设计的，功能模块相对较少，界面友好，操作简单，对于医院收费人员经过简单的指导即可熟练掌握本系统的所有操作流程。第三章 背景知识介绍3.1 PowerBuilder编程工具PowerBuilder是一个可视化的数据库集成的开发工具,由美国公

21、司Sybase推出的,也是一个专业C/S应用程序 发工具,可基于Windows和WindowsNT进行开发。它包含一个UI接口和OPP编程语言PowerScript,可提供现主流数据库接口,并通过ODBC与其他数据库相连。PowerScript语言是PowerBuilder工具的内嵌脚本语言,它提供的API接口包含数百个内部函数,并且具有一个面向对象的编译器和调试器,可以随时编译新增加的代码,并调试结果,同时带有完整的在线帮助和编程实例。PowerBuilder具有以下几大特点：1、多特性、可视化的开发工具。支持Win或WinNT所提供的函数、事件和控制。PowerScript为用户提供了好几

22、百个函数、一个可随时编译或新增代码的调试器和编译器,还有编程实例和在线帮助13。2、具有强大功能的面向对象技术。它可以支持可视或不可视的对象模型,并且支持包括继承、封装、多态等面向对象编程技术。这些特性提高了软件的高聚散、低耦合,从而提高软件可维护性,以此确保其可靠性。3、支持高效而复杂的应用程序。开发人员可用PowerBuilder中的Watcom C/C+来定义、编译、调试一个类。4、具有企业数据库连接能力。可通过Data Window对数据库中各类报表进行操作和处理。不需要编写SQL语句,就可以与主流数据库,比如Sybase、SQL Server、Oracle等等进行直接连接。5、具有查

23、询、图形和报表功能。PowerBuilder所提供的多表的快速选择界面,可视化的查询自动生成器,可生成1个查询对象,把反馈的查询结果作为各种图形和图表的数据源。因此PowerBuilder非常适用于数据信息管理系统的开发设计,尤其是C/S的结构。3.2 oracle数据库介绍Oracle Database，又名Oracle RDBMS，或简称Oracle。是甲骨文公司的一款关系数据库管理系统。到目前仍在数据库市场上占有主要份额。劳伦斯埃里森和他的朋友，之前的同事Bob Miner和Ed Oates在1977年建立了软件开发实验室咨询公司（SDL，Software Development Lab

24、oratories）。Oracle 是以高级结构化查询语言（SQL）为基础的大型关系数据库。版本分为：企业版、标准版、个人版。企业版主要用于构建安全的、可靠的、大容量的互联网应用和数据仓库，可以用包括数据分区和集群支持的组件进行功能扩充，面向企业级应用。标准版提供了能够通过 Web 浏览器进行管理的高性能数据库服务，面向部门级应用。个人版面向开发设计人员。与以前的版本相比，Oracle 9i 在性能、工具等方面都进行了大的改进，分别是企业管理器方面的增强、数据库管理方面的增强、性能调整方面的增强、改变管理方面的增强和性能诊断方面的增强。 Oracle 具备以下特点：（1）具备高性能、多用户的事

25、务处理能力；（2）遵守各种工业标准；（3）实施安全性控制和完整性控制；（4）支持分布式数据库和分布处理；（5）具有可移植性、可兼容性和可连接性。3.3 C/S体系结构的基本简介目前比较普遍的软件体系结构之一就是 C/S（Client/Server）架构，即客户机/服务器架构。客户机负责执行前台操作，服务器负责执行后台服务，一般服务器上都有一个关系数据库管理系统。C/S 体系结构必须在客户机端安装专用的客户端软件才可以运行，客户机和服务器之间的通讯以“请求响应”的方式进行。客户机先向服务器发起“请求”（Request），服务器再“响应”（Response）这个请求。在 C/S 体系结构中，所有的

26、数据和数据库管理系统都放在服务器端，客户机通过 SQL 语句等方式来访问服务器上的数据。因此 C/S 体系结构的数据完整性和安全性大大增强。1.架构优点：（1）C/S架构的界面和操作很丰富，更适应用户的需求。（2）安全性能高，能够实现多层认证。（3）响应速度较快，只有一层交互。2.架构缺点：（1）适用面窄，适用于局域网。（2）用户群固定。（3）维护成本高。3.4 系统运行环境要求为了保证系统运行的效率和可靠性，对软硬件配置有一定要求。此应用程序运行要求如下：1.软件环境：操作系统：Windows2000，WindowsXP，者Windows98等。数据库： Oracle 10g 数据库/ Ac

27、cess数据库2.硬件环境：10GHZ/1024MB/160G第四章 系统总体设计4.1 概述总体设计即概要性设计，就是对整个系统的各个功能模块有一个大概的设计，设计出系统各个模块之间的相互联系以及设计出各个功能是如何实现的流程情况。总体设计可以站在全局高度上，花较少成本，从中选出最佳方案和最合理的软件结构，从而较低成本开发出较高质量的软件系统。此外，还需要对系统的后台数据库的进行设计与实现，建立了本系统所需要的信息的数据库表。4.2 系统总计功能1、系统具备功能：（1）病人信息查询与维护功能。（2）对病人进行收费以及对收费记录的添加、修改和删除功能。（3）收费项目的添加、修改和删除功能。（4

28、）汉字库的查询与维护功能。2、根据实际情况把握进行系统功能设计如图4-1：病人信息查询、添加、修改和删除病人信息管理门诊收费系统对病人收费以及查询和维护病人收费信息收费细目管理收费项目的添加、修改改、删除和查询收费项目汉字库信息查询与维护汉字库管理图4-1 系统功能图4.2 系统程序流程图4.2.1 登录模块流程图登录模块：用户在登录界面输入自己的用户名和密码，若用户名和密码正确则进入系统，否则提示密码错误，返回登录界面。登录后进行其他操作。如图4-2所示：开 始输入密码密码识别密码错误密码正确登 陆相关操作退 出图4-2登录模块流程图4.2.2 收费模块流程图收费模块：用户针对某个病人进行收

29、费，系统判断病人id是否符合数据库，若条件符合即进入系统连接数据库，结算以及查询收费信息；否则，返回收费主界面。如图4-3 所示：图4-3收费模块流程图4.3 数据库概念结构设计4.3.1 用户信息E-R图Yonghuxm该图反映的是表描述用户的用户名id、用户姓名以及用户密码的基本信息，通过yonghuid与其他数据库表连接。如图所示：yonghumm限YonghuidGy_yonghu图4-4 用户信息E-R图4.3.2 病人信息E-R图该图反映的表描述了病人信息，包括病人id、姓名、输入码1、输入码2，通过bingrenzyid与其他数据表连接。如图所示：XingmingBingrenz

30、yidGy_bingrenxxShuruma1Shuruma2 图4-5 病人信息E-R图4.3.3汉字库信息E-R图Hanzi该图反映的表是描述汉字库信息，包括id、汉字、拼音码以及五笔码，其中id与其他数据库表连接。如图所示：IdwubimaPinyinmaGy_hanziku图4-6 汉字库信息E-R图 4.3.4 收费项目信息E-R图 该图反映的表是收费项目信息，包括收费项目id、收费项目名称、输入码1、输入码2以及单价。通过shoufeixmid与其他数据库表实现连接。如图所示：Gy_shoufeixmShoufeixmmcShuruma1Shuruma2ShoufeixmidDan

31、jia图4-7 收费项目信息E-R图 4.3.5收费记录信息E-R图该图反映的表是收费记录信息，包括收费id、病人id、姓名、收费日期。通过shoufeiid与其他数据库表实现连接。如图所示：BingrenzyidShoufeiidXingmingGy_shoufeixmShoufeirq图4-8 收费记录信息E-R图 4.3.6收费明细信息E-R图该图反映的表是收费明细信息，包括收费明细id、收费id、收费项目id、数量、金额。通过shoufeimxid与其他数据库表实现连接。如图所示：ShoufeiidShoufeimxidShoufeixmidMz_shoufeimxidJineShul

32、iang图4-9 收费明细信息E-R图第五章 数据库的设计5.1 数据库设计数据库设计(Database Design)是指对于一个给定的应用环境，构造最优的数据库模式，建数据库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求（信息要求和处理要求）。数据库的设计是一个非常重要的问题。在面向过程程序设计中，我们通常采用 E-R 图也就是实体-关系图来作为关系数据库设计的工具，E-R 图看重的是数据。在医院门诊智能化收费系统的开发过程中，选用Oracle 公司的 Oracle 关系数据库。5.2 数据表的设计根据实际情况的需要的表很多，其主要的表分别如下：表4-1 数据信息表数据表名称

33、：数据表用途：Gy_yonghu用户信息Gy_bingrenxx病人信息Gy_hanziku汉字库信息Gy_shoufeixm收费项目信息Mz_shoufei1收费记录信息Mz_shoufei2收费明细信息5.3 数据表结构设计1、该表是用来记录用户信息的，包含用户id、用户姓名、用户密码。表4-2 gy_yonghu字段名含义类型长度是否可为空是否主键Yonghuid用户idVarchar210Not是Yonghuxm用户姓名Varchar28Null否Yonghumm用户密码Varchar210Null否2、该表示用来记录病人信息的，包含病人id、病人姓名、输入码1、输入码2。表4-3 g

34、y_bingrenxx字段名含义类型长度是否可为空是否主键Bingrenzyid病人idVarchar210Not是Xingming姓名Varchar28Null否Shuruma1输入码1Varchar28Null否Shuruma2输入码2Varchar28Null否3、该表用来记录汉字库信息信息，包含id，汉字和拼音码以及五笔码。表4-4 gy_hanziku字段名含义类型长度是否可为空是否主键IdIdVarchar210Not是Hanzi汉字Varchar22Null否Pinyinma拼音码Varchar22Null否Wubima五笔码Varchar22Null否4、该表记录收费项目信息，

35、包含各收费项目id、收费项目名称、输入码1、输入码2、单价。表4-5 gy_shoufeixm字段名含义类型长度是否可为空是否主键Shoufeixmid收费项目idNumber10Not是Shoufeixmmc收费项目名称Varchar250Null否Shuruma1输入码1Varchar220Null否Shuruma2输入码2Varchar220Null否Danjia单价Number10Null否5、该表记录收费记录信息，包含收费id、病人id、病人姓名、收费日期。表4-6 mz_shoufei1字段名含义类型长度是否可为空是否主键Shoufeiid收费idNumber10Not是Bingr

36、enzyid病人idVarchar210Null否Xingming姓名Varchar28Null否Shoufeirq收费日期Date否6、该表记录收费明细信息，包含收费明细id、收费id、收费项目id、数量、金额。表4-7 mz_shoufei2字段名含义类型长度是否可为空是否主键Shoufeimxid收费明细idNumber10Not是Shoufeiid收费idNumber10Null否Shoufeixmid收费项目idNumber10Null否Shuliang数量Number10Null否Jine金额Number20Null否第六章 系统的详细设计与实现6.1 概述首先确定本系统需要实现的

37、所有功能模块，再确定每个功能模块中需要实现的功能，确定好各功能之间的关系，根据系统的流程用Power Scrip语言设计出各功能模块界面，将其连接一起，并连接好原先设计好的后台数据库，从而形成本系统。本部分主要是列出本系统的各个功能模块的详细设计过程以及系统的一些功能界面的截图和主要代码。6.2 主界面图及主要代码 6.2.1 登录认证窗口的设计和实现在进入门诊挂号收费系统之前，首先要通过登录认证窗口，首先是一个主界面，用户可以根据自己的用户工号名以及密码登陆系统，本系统比较人性化的一点就是显示登陆时间，当用户需要退出系统可以直接点击注销，如下图是学生成绩管理系统的主界面：图6-1 门诊收费系

38、统登录界面截图门诊收费系统登陆主界面代码：Strin ls_UserId, ls_Pwd1, ls_Pwd2ls_UserId = Trim(sle_User.Text)ls_Pwd1 = Trim(sle_Pwd.Text)If ls_UserId = ThenMessageBox(提示, 请输入用户名!)sle_User.SetFocus()ReturnEnd IfSelect YongHuMm Into :ls_Pwd2 From Gy_YongHu Where YongHuId = :ls_UserId ;If SQLCA.SQLCode 0 ThenMessageBox(提示, 无效

39、的用户名!)sle_User.SetFocus()ReturnEnd IfIf IsNull(ls_Pwd2) Then ls_Pwd2 = If ls_Pwd1 = ls_Pwd2 ThenOpen(gy_Main)Close(Parent)ElseMessageBox(提示, 错误的用户名或密码!)sle_User.SetFocus()End If 6.2.2 系统主界面的设计与实现主窗口是用户在输入正确的用户名和密码后并登录成功后，所见到的第一个窗口，也是所有用户用户操作的主界面，这里包括了用户被允许进行的操作，根据功能界面设计管理员所授权的权限，如图所示该用户登陆后的界面：图6-2 用

40、户登录后的操作界面用户在这个门诊收费系统里有三大模块，分别是收费管理模块、基础设置模块、系统设置模块，接下来，分别介绍各个模块。1、收费管理模块，本模块主要包括“病人登记”和“门诊收费”两大部分，“病人登记”主要是用来查询和维护病人信息的，“门诊收费”则是对病人进行收费退费操作的部分，包括查询和维护收费记录的功能。（1）用户点击“病人登记”菜单将弹出下图：图6-3 病人登记管理If dw_BingRenXx.ModifiedCount() 0 Or dw_BingRenXx.DeletedCount() 0 ThenIf MessageBox(提示, 数据有变动,是否保存?, Question

41、!, YesNo!, 1) = 1 Thencb_Save.Event Clicked()End IfEnd If其中“建档”代码：Longll_InsertRowll_InsertRow = dw_BingRenXx.InsertRow(0)dw_BingRenXx.ScrollToRow(ll_InsertRow)dw_BingRenXx.SetRow(ll_InsertRow)dw_BingRenXx.SelectRow(0, False)dw_BingRenXx.SelectRow(ll_InsertRow, True)dw_BingRenXx.SetColumn(XINGMING)d

42、w_BingRenXx.Function Post SetFocus()其中“删除”代码： Stringls_XingMingLongll_CurrentRowll_CurrentRow = dw_BingRenXx.GetRow()If Not ll_CurrentRow 0 Then MessageBox(提示, 请选择需要删除的记录!) Return End Ifls_XingMing = dw_BingRenXx.GetItemString(ll_CurrentRow, XINGMING)If MessageBox(提示, 确认要删除【 + ls_XingMing + 】吗?, Que

43、stion!, YesNo!, 2) = 2 Then Returndw_BingRenXx.DeleteRow(ll_CurrentRow)其中“刷新”代码：If dw_BingRenXx.ModifiedCount() 0 Or dw_BingRenXx.DeletedCount() 0 Then If MessageBox(提示, 数据有变动,是否保存?, Question!, YesNo!, 1) = 1 Then cb_Save.Event Clicked() End IfEnd Ifwf_Refresh()其中“保存”代码：Stringls_ErrMsgLongll_FindRow

44、dw_BingRenXx.AcceptText()ll_FindRow = dw_BingRenXx.Find(Trim(XINGMING) = Or IsNull(XINGMING), 1, dw_BingRenXx.RowCount()If ll_FindRow 0 ThenMessageBox(提示, 第 + String(ll_FindRow) + 行姓名不能为空!, StopSign!)dw_BingRenXx.SetRow(ll_FindRow)dw_BingRenXx.SetColumn(XINGMING)dw_BingRenXx.Function Post SetFocus()ReturnEnd IfIf dw_BingRenXx.Update() 0 ThenCommit Using SQLCA ;MessageBox(提示, 保存成功!)Parent.Function wf_Refresh()Elsels_ErrMsg = SQLC