vfp--客户管理系统.doc

《vfp--客户管理系统.doc》由会员分享，可在线阅读，更多相关《vfp--客户管理系统.doc（42页珍藏版）》请在三一文库上搜索。

1、客户管理系统摘 要八年经验 专业指导毕业设计 需要全套设计请联系：731767310客户管理系统实现了与客户相关的各种信息的系统化、规范化和自动化。通过对资料管理、投诉管理、日程管理等基本功能的实现，对客户的各种信息进行增、删、查、改等操作，完成对客户的信息管理。这些功能基本可以满足一般中小型企业对客户管理的需求，使企业节省人力，减轻劳动强度；降低成本，节省开支；提高了管理水平，增强了企业在同行业中的竞争力；同时提高了客户信息处理的及时性和准确性。该系统采用Visual Foxpro进行开发、设计。系统的实施将为企业获得更多的客户，保留更好的客户，创造更大的客户价值，保持客户永久的忠诚，建立一

2、对一市场营销，从而为企业带来更丰厚的利润和持续的竞争优势。关键词： 客户 客户关系管理 管理信息系统 Customer management systemAbstractThe small and medium-sized enterprise customer management system management system has realized and the customer correlation each kind of information systematization, the standardization an the automation. Through t

3、o the date management, the complain management and the schedule control basic functions the realization, carries on to customer each kind of information increases, deletes, looks up, changes and so on the operation, completes to the customer information management. These functions are basic may sati

4、sfy the common small and medium-sized enterprise to the customer management demand, causes the enterprise to save the manpower, reduces the labor intensity; Reduces the cost, saves the expenditure; Raised the management level, strengthened the enterprise in the same profession competitive power; At

5、the same time enhanced the customer information processing timeliness and the accuracy.This system uses Visual Foxpro to carry on the development, the design, and the backstage uses SQL Server 2,000 to provide the powerful support. The system implementation will obtain more customers for the enterpr

6、ise,will retain a better customer, will create the bigger customer value,the maintenance customer permanent loyalty, will establish a pair of market marketing, thus will bring the competitive advantage for the enterprise which a richer profit and will continue.Keywords： customer ; The customer manag

7、es ; MIS- I -目 录摘 要IAbstractII第一章 引言11.1系统应用背景11.2客户关系管理的概念11.3 CRM的起步及目前发展状况21.3.1 我国CRM市场的发展31.3.2 CRM市场发展趋势41.4 研究客户关系管理的目的和意义5第二章 系统设计72.1系统设计思想72.2系统功能分析72.3系统功能模块划分8第三章 数据库设计93.1数据库需求分析93. 2 数据库概念结构设计103.3数据库逻辑结构设计12第四章 主要功能模块的创建144.1资料管理模块144.2投诉管理模块214.3日程管理模块264.4报表管理模块284.5主程序的设计30第五章 系统的编

8、译和发行32结束语33参考文献34致谢35- 37 -xxx大学本科生毕业设计（论文）第一章 引言1.1系统应用背景在当今时代飞速发展的同时，计算机在航空、军事科技领域中正变得愈来愈重要。当今世界，市场竞争的焦点已经从产品的竞争转向品牌的竞争、服务的竞争和客户的竞争，特别是谁能与客户建立和保持一种长期、良好的合作关系，掌握客户资源、赢得客户信任、分析客户需求，谁就能制定出科学的企业经营发展战略和市场营销策略，生产出适销对路的产品，提供满意的客户服务，从而能迅速提高市场占有率，获取最大利润。随着网络经济、知识经济的迅猛发展和全球市场竞争的日益激烈，人们在大量研究和实践的基础上对网络经济时代的客户

9、管理赋予了新的内涵。客户管理作为现代企业的主要管理之一，已经被越来越多的企业逐渐认识。客户管理的核心是企业与客户的关系。在传统经济时代，企业不做市场和客户需求分析，盲目生产，产品单一且供不应求，物质极度贫乏，客户对商品无选择权，整个市场处于卖方市场。此时的客户管理仅是企业与客户表面上维持的一种适度、有限的关系实际上就是一种简单、短期的买卖关系或者是一种交易关系，制约了企业和社会的发展。而在网络经济时代，企业完全按照市场和客户的需求生产各种产品。产品品种规格繁多且更新换代快，商品极为丰富，客户选择商品具有很大的自主权，整个市场处于买方市场。此时的客户管理以企业获取利润最大化为目标，不仅要强调以市

10、场为导向，以客户需求为中心的基本思想，而且还要努力提高服务质量和客户满意度，力求在企业和客户之间建立和保持一种长期、良好的合作关系，加速企业和社会的发展。1.2客户关系管理的概念什么是客户关系管理（CRM）? 客户关（CustomerRelationshipManagement，CRM）首先是一种管理理念，是将企业的客户（包括最终客户、分销商和合作伙伴）作为最重要的企业资源，通过完善的客户服务和深入的客户分析来满足客户的需求，保证实现客户的终生价值。 客户关系管理（CRM）又是一种旨在改善企业与客户之间关系的新型管理机制，它实施于企业的市场营销、销售、服务与技术支持等与客户相关的领域。通过向企

11、业的销售、市场和客户服务的专业人员提供全面、个性化的客户资料，并强化跟踪服务、信息分析的能力，使他们能够协同建立和维护一系列与客户和生意伙伴之间卓有成效的“一对一关系”，从而使企业得以提供更快捷和周到的优质服务、提高客户满意度、吸引和保持更多的客户，从而增加营业额；而另一方面则是通过信息共享和优化商业流程来有效地降低企业经营成本。客户关系管理(CRM)的实施，要求“以客户为中心”来构架企业，完善对客户需求的快速反应的组织形式，规范以客户服务为核心的工作流程，建立客户驱动的产品/服务设计，进而培养客户的品牌忠诚度，扩大可盈利份额。 客户关系管理（CRM）也是一种管理软件和技术，它将最佳的商业实践

12、与数据挖掘、数据仓库、一对一营销、销售自动化以及其它信息技术紧密结合在一起，为企业的销售、客户服务和决策支持等领域提供了一个业务自动化的解决方案，使企业有了一个基于电子商务的面对客户的前沿，从而顺利实现由传统企业模式到以电子商务为基础的现代企业模式的转化。可见，客户关系管理（CRM）的理念要求企业必须完整地认识整个客户生命周期，提供与客户沟通的有效的统一平台，提高员工与客户接触的效率和客户反馈率，从而提高客户的忠诚度、满意度以及降低企业经营成本，从而提升企业客户的价值，提高企业利润收入。 1.3 CRM的起步及目前发展状况客户关系管理(CRM)最早由美国GartnerGroup提出，自1997

13、年开始，经过几年的发展，全球的CRM市场一直处于爆炸性的快速增长之中。1999年全球的CRM市场收益约为76亿美元。据市场分析专家预测，2000年全球CRM市场收益将超过120亿美元，2004年将达到670亿美元。年增长率将一直保持在50%以上。目前，我国的CRM市场也已开始启动。像以往的ERP、电子商务等新理念一样，CRM在国内的发展经历了从概念传入到市场启动这样一个过程，而这些新理念对推动我国信息化建设将发挥积极的作用。 从地域来看，目前CRM商机最大的是北美市场，其次是西欧市场，其中西欧市场正以全球最快的速度飞速发展。在东南亚地区，CRM市场目前比较小，尚处于炒作概念而不是做产品的时期。

14、这主要是因为CRM概念由美国提出，拥有此类产品的厂商主要是Siebel、Oracle、Vantive、Onyx等欧美国家的软件公司，在其他地区产品的推行存在产品本地化等问题。但就其市场前景来看，发展潜力非常巨大。从行业结构角度来看，大多数CRM方案供应商并没有把其产品局限在单一的行业市场，其客户遍布于众多的行业：如制造业、保险业、金融业以及高技术行业。 1.3.1我国CRM市场的发展在ERP市场开始逐渐萎缩的同时，CRM正在成为全球范围内新兴的客户服务市场。据调查，1999年初，我国的CRM市场几乎为零。与此同时，我国的CRM市场正在迅速地孕育产生。从1999年下半年开始，CRM就开始在中国I

15、T业内风风火火地热了起来，不管是投资商、用户还是国内外软件厂商都开始关注它。经过一年左右的酝酿，我国的CRM市场已经是小荷初露尖尖角，呈现了自身独有的特点。 (1) 国内CRM市场处于萌芽时期由于国内市场是今年才开始启动，无论是从产品结构、区域结构、行业结构，还是从销售渠道来看，整个市场体态都还不健全。市场区域主要集中在北京、上海等经济发达地区。据调查，现已拥有CRM产品的国内厂商主要聚集在上海，在其他地区还在了解CRM概念的同时，上海的很多厂商已经开始开发其产品。 CRM的应用行业以邮电、金融等经济实力较强、信息化程度较高的行业为主，这些用户一般都是国家重点行业，拥有强大的资金后盾，而且信息

16、化建设已初具规模。随着我国进入WTO后引发的经济格局的变化，给这些行业带来了巨大冲击，它们在感受新机遇的同时也感到了竞争的压力。在这种机遇与竞争的双重压力下，很多颇具发展眼光的用户选中了能提高营业额、扩展新商机的CRM产品。 (2) 提供CRM产品的厂商较少 CRM进入国内仅有一年多时间，无论用户还是厂商都非常关注这个产品，很多软件厂商纷纷推出自己的CRM产品，但是经过仔细的鉴别与分析后发现：能够提供功能比较全面的CRM产品的国内厂商很少，有些只能提供实现客户管理中的几个应用模块,有的只是在ERP的某些模块上稍作修改，并没有真正实现客户关系系统的“客户为中心”的理念。 (3) 市场需求量大 对

17、客户关系管理系统的认识,在国内已有较长一段时间，它所遵从的“一对一个性化服务”的企业管理理念，逐渐被国内众多的用户所熟悉和接受。在竞争激烈的信息化时代，客户关系管理系统提出的“帮助提高本产品用户营业额、扩大市场占有率以及提高客户忠诚度”等功能，使得很多企事业用户对此产品情有独钟，市场需求加大。而因为市场中真正的CRM产品很少，适合国情的产品更是少之又少，所以市场上呈现出供不应求的现象。1.3.2 CRM市场发展趋势国内CRM市场经过一段时间的快速增长，2000年上半年销售额达到1000万元左右。下半年市场情况将更好，预计销售额将是上半年的两倍。CRM热潮一起，有部分假产品也在市场上鱼目混珠。如

18、何识别这些产品，具体而言，比较成功的CRM产品一般都能实现以下功能： (1)客户信息进行全方位跟踪。 (2)帮助企业高层进行决策。 (3)帮助企业提高营业额，产生新的商机。 总之，我国的CRM市场正在迅速发展和壮大，其中孕育了较大的商机，已经成为投资商、软件开发厂商和用户共同关注的对象，CRM的市场前景将十分广阔。 1.4研究客户关系管理的目的和意义生产力的不断发展，逐步改变了全社会生产能力不足和商品短缺的状况，并导致了全社会生产能力的过剩，商品极大地丰富甚至出现过剩。在这种经济环境中，客户的选择空间和选择余地显著增大，客户需求开始呈现出个性化特征。只有最先满足客户需求的产品才能实现市场销售，

19、市场竞争变得异常残酷。因此，企业管理不得不从过去的“产品”导向转变为“客户”导向，标准化和规模化生产方式不得不让位于多品种小批量的生产方式。只有快速响应并满足客户的个性化要求与瞬息万变的市场需求，企业才能在激烈的市场竞争中得以生存和发展。企业取得市场竞争优势最重要的手段不再是成本而是技术的持续创新，企业管理最重要的指标也从“成本”和“利润”转变为“客户满意度”。总之，网络经济对企业的经营和管理提出了新的挑战。面对这样的挑战，企业如何提升其客户满意度以增强其竞争力呢？CRM的出现为全面增强、提升、改善企业与客户交互的过程带来了新思路和新方法。首先，从全球市场大环境来看，随着电子商务时代的到来，企

20、业间产品和服务的差异已越来越小，以生产为中心、销售为目的的市场战略逐渐被以客户为中心、服务为目的的市场战略所取代，客户、供应商以及合作伙伴集成在一起的价值链已成为企业之间竞争的核心。其次，在客户为中心的市场模式形成的大背景下，企业越来越意识到客户资源是现代企业的关键资源，包括企业与客户的关系、企业服务水平、客户满意度和发展瓶颈等。为与客户建立良好的长期合作关系，赢得用户的信任和满意，就需要企业通过信息化手段对客户资源进行高效有序的管理。最后，从企业的角度来看，当前客户对个性化产品和服务的需求越来越强烈，不同的客户希望得到专门针对自己的产品和服务，这种千差万别的需求就需要企业能够提供一套高效快捷

21、的反应系统，这也正是CRM所倡导的一对一营销和服务的理念。企业为什么需要CRM? 企业在实现商业流程的自动化和优化的同时，意识到关注客户，就是关注企业的成长。但由于企业中的销售、营销和客户服务/支持部门都是作为独立的实体来工作的。部门界限的存在使这些不同的业务功能往往很难以协调一致的方式将注意力集中在客户身上。CRM则正是着眼于企业的这一需求应运而生的。在如今竞争激烈的商业环境中，越来越多的商家开始通过实施客户关系管理（CRM）来赢得更多的客户并且提高客户的忠诚度。传统的数据库营销是静态的，经营需要好几个月时间才能对一次市场营销战役的结果做出一个分析计表格，许多重要的商业机遇经常在此期间失去。

22、CRM软件建立在多个营销战役交叉的基础上，能够对客户的活动及时做出反应，因而能够更好地抓住各种商业机遇。CRM是一种手段，它的根本目的是通过不断改善客户关系、互动方式、资源调配、业务流程和自动化程度等，达到降低运营成本、提高企业销售收入、客户满意度和员工生产力。企业以追求最大赢利为最终目的，进行好客户关系管理是达到上述目的的手段，从这个角度可以不加掩饰地讲CRM应用是立足企业利益的，同时方便了客户、让客户满意。 xxxxx大学本科生毕业设计（论文）第二章 系统设计2.1系统设计思想 当今世界，市场竞争的焦点已经从产品的竞争转向品牌的竞争、服务的竞争和客户的竞争，特别是谁能与客户建立和保持一种长

23、期、良好的合作关系，掌握客户资源、赢得客户信任、分析客户需求，谁就能制定出科学的企业经营发展战略和市场营销策略，生产出适销对路的产品，提供满意的客户服务，从而能迅速提高市场占有率，获取最大利润。 客户管理作为现代企业的主要管理之一，已经被越来越多的企业逐渐认识。本系统的客户管理主要包括：资料管理、客户投诉管理、日程管理、报表管理。 系统设计阶段应当根据用户的需求，明确地描述数据库（数据库服务器端）和应用界面（客户端）实现的功能，即决定哪些功能由服务器端实现，哪些功能由客户端实现。对于客户/服务器应用程序，许多功能既可以在服务器端实现又可以在客户端实现，例如一个复杂的数学变换功能既可以由客户端的

24、应用程序实现，也可以由服务器端的存储过程实现。服务器和客户端应用程序功能的划分往往取决于应用程序运行的硬件环境。例如，如果客户端是抵挡的PC，服务器端是高档的工作站，那么由服务器完成大量的计算是比较理想的。2.2系统功能分析客户管理系统包括如下功能：（1） 资料管理。在客户关系管理中可以实现客户信息的增加、删除、修改和查找功能，同时也可以打印某范围内的客户资料信息。（2） 投诉管理。在投诉管理中可以实现客户投诉信息的增加、删除、修改和查找功能，还可以对系统中的客户投诉信息进行总结。（3） 日程管理。日程管理模块管理企业的计划事务，可以完成新建和浏览计划，并且可以将每天的计划情况通过每天的“今日

25、提醒”来完成。（4） 统计报表。客户资料报表、投诉信息报表、日程规划报表（5） 系统维护2.3系统功能模块划分根据上述的系统功能分析，可以得出如图2-1所示的系统功能模块图。 系统启动权限认证界面系统主界面资料管理投诉管理日程管理报表管理系统管理图2-1 系统总体功能设计第三章 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率，以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。 设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的及将来可能增加的需求。数据库设计一般包括如下几个步骤。l 数据库需

26、求分析l 数据库概念结构设计l 数据库逻辑结构设计3.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构，以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。 通过上述系统功能分析，针对一般客户管理信息系统的需求，总结出如下的需求信息。l 客户信息数据：包括客户各方面的信息数据。l 客户投诉信息数据：包括客户投诉的信息数据。l 日程信息数据：包括公司每天的任务信息数据。l 授权用户数据：包括授权使用该数据库的管理人员数据。在上面的需求分析、数据结构设计、数据项分析的基础上，下面开始数

27、据库概念结构设计3.2 数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。 本系统根据上面的设计规划出的实体有：客户信息实体、客户投诉信息实体、日程信息实体、授权用户信息实体。各个实体具体的描述E-R图如下： 实体之间关系的E-R图如图3-1所示。 客户类型客户日程投诉日程信息投诉信息图3-1 实体之间关系的E-R图客户信息实体的E-R图如图3-2所示。客户信息客户编号客户姓名客户电话客户地址 图3-2 客户信息实体的E-R图客户投诉信息实体的E

28、-R图如图3-3所示。 投诉信息投诉编号投诉日期投诉原因投诉结果图3-3客户投诉信息实体的E-R图日程信息实体的E-R图如图3-4所示。日程信息开始日期结束日期日程内容图3-4日程信息实体的E-R图3.3 数据库逻辑结构设计 数据库的概念结构设计完毕后，现在可以将上面的数据库概念结构转化为某种数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。 使用Visual Foxpro开发时可以直接使用Visual Foxpro自带的数据库，客户关系管理系统中使用的各个数据表的字段设置如下所示。 表3-1 客户信息表 字段名 数据类型 说明（是否为主键） no 字符型 编号（是） name字符型 姓

29、名（否） sex 逻辑型 性别（否） ld字符型 认证号码（否） address 字符型 地址（否） phone字符型 电话（否） e-mail 字符型 电子邮件（否）表3-2客户投诉信息表字段名 数据类型说明（是否为主键） no 字符型 投诉编号（是） date 日期型 投诉日期（否）name 字符型 投诉客户姓名（否）content 备注型 投诉原因（否） contact 字符型 投诉电话（否） result 备注型 投诉结果（否）表3-3日程信息表 字段名 数据类型 说明（是否为主键） begindate日期型 开始日期（否） enddate日期型 结束时间（否） content字符型

30、日程内容（否） 表3-4 授权用户表 字段名 数据类型 说明（是否为主键） uid 字符型 用户名（否） pwd 字符型 授权密码（否） 第四章 主要功能模块的创建4.1资料管理模块 资料管理就是通过表单对客户资料进行添加、修改和删除等操作。其各项功能分别在客户信息输入、客户信息修改、客户信息删除和客户信息查询表单中实现。资料管理模块还可以打印某范围内的客户资料信息。如图4-1所示为“客户信息输入”表单。表单中包括7个标签控件、6个文本框控件、1个单选按钮组控件和2个命令按钮控件。4-1 “客户信息输入”表单 保存按钮的“Click“代码为：m_no=ALLTRIM(THISFORM.txtn

31、o.VALUE)IF EMPTY(m_no) &检查编号是否为空MESSAGEBOX(编号不能为空！,16,错误)THISFORM.txtno.SETFOCUSRETURNENDIFSELE tblcustomLOCATE FOR no=m_no &检查编号是否存在IF FOUND()MESSAGEBOX(您所输入的编号已经存在！,16,错误)THISFORM.txtno.SETFOCUSRETURNENDIFm_name=ALLTRIM(THISFORM.txtname.VALUE)m_sex=IIF(THISFORM.opgsex.VALUE=1,.T.,.F.)m_id=ALLTRIM(

32、THISFORM.txtid.VALUE)m_address=ALLTRIM(THISFORM.txtaddress.VALUE)m_phone=ALLTRIM(THISFORM.txtphone.VALUE)m_email=ALLTRIM(THISFORM.txtemail.VALUE)INSERT INTO tblcustom VALUES(m_no, m_name, m_sex, m_id, m_address, m_phone, m_email)THISFORM.SETALL(value,textbox) &清空所有的文本框THISFORM.txtno.SETFOCUS退出按钮的”cl

33、ick”代码为： thisform.release 如图4-2所示为“客户信息修改”表单。表单中包括7个标签控件、6个文本框控件、1个单选按钮组控件和4个命令按钮控件。 4-2“客户信息修改”表单 保存按钮的“Click“代码为：*-比较方式为精确比较SET EXACT ONm_no=ALLTRIM(THISFORM.txtno.VALUE)m_name=ALLTRIM(THISFORM.txtname.VALUE)*将逻辑值转换为选项按钮的数值表示*m_sex=IIF(THISFORM.opgsex.VALUE=1,.T.,.F.)m_id=ALLTRIM(THISFORM.txtid.VA

34、LUE)m_address=ALLTRIM(THISFORM.txtaddress.VALUE)m_phone=ALLTRIM(THISFORM.txtphone.VALUE)m_email=ALLTRIM(THISFORM.txtemail.VALUE)UPDATE tblcustom SET name=m_name, sex=m_sex, id=m_id, address=m_address, phone=m_phone, email=m_email WHERE AllTrim(no)=m_no*重置所有文本框的值*THISFORM.SETALL(value,textbox)THISFOR

35、M.txtno.SETFOCUS*-改为模糊比较SET EXACT OFF 查找按钮的“Click“代码为：*-比较方式为精确比较SET EXACT OFF*调用“客户信息浏览”表单使用其客户信息选择功能来获取客户信息DO FORM frmcquery With cSelect TO THISFORM.txtno.VALUEm_no=ALLTRIM(THISFORM.txtno.VALUE)IF EMPTY(m_no)MESSAGEBOX(对不起，客户编号不能为空！,16,错误)THISFORM.SETALL(value,textbox)RETURNENDIFSELE tblcustomLOC

36、ATE FOR AllTrim(no)=m_noIF NOT FOUND()MESSAGEBOX(没有找到您所输入的编号。,16,错误)THISFORM.txtno.SETFOCUSRETURNENDIFThisForm.txtno.Value = tblcustom.noTHISFORM.txtname.VALUE=tblcustom.NAMETHISFORM.opgsex.VALUE=IIF(tblcustom.sex,1,2)THISFORM.txtid.VALUE=tblcustom.IDTHISFORM.txtaddress.VALUE=tblcustom.addressTHISFO

37、RM.txtphone.VALUE=tblcustom.phoneTHISFORM.txtemail.VALUE=tblcustom.email_还原按钮的”click”代码为：THISFORM.txtno.VALUE=tblcustom.noTHISFORM.txtname.VALUE=tblcustom.nameTHISFORM.opgsex.VALUE=IIF(tblcustom.sex,1,2)THISFORM.txtid.VALUE=tblcustom.idTHISFORM.txtaddress.VALUE=tblcustom.addressTHISFORM.txtphone.VAL

38、UE=tblcustom.phoneTHISFORM.txtemail.VALUE=tblcustom.email如图4-3所示为“客户信息删除“ 表单。表单中包括7个标签控件、6个文本框控件、1个单选按钮组控件和3个命令按钮控件。 图4-3 “客户信息删除“ 表单 查找按钮的”click”代码为：*调用“客户信息浏览”表单使用其客户信息选择功能来获取客户信息DO FORM frmcquery With cSelect TO THISFORM.txtno.VALUEm_no=ALLTRIM(THISFORM.txtno.VALUE)IF EMPTY(m_no)MESSAGEBOX(对不起，客户

39、编号不能为空！,16,错误)THISFORM.txtno.SETFOCUSRETURNENDIF*-比较方式为精确比较SET EXACT ONSELE tblcustomLOCATE FOR AllTrim(no) = m_noIF NOT FOUND()MESSAGEBOX(没有找到您所输入的编号。,16,错误)THISFORM.txtno.SETFOCUSRETURNENDIFTHISFORM.txtname.VALUE=tblcustom.NAMETHISFORM.opgsex.VALUE=IIF(tblcustom.sex,1,2)THISFORM.txtid.VALUE=tblcus

40、tom.IDTHISFORM.txtaddress.VALUE=tblcustom.addressTHISFORM.txtphone.VALUE=tblcustom.phoneTHISFORM.txtemail.VALUE=tblcustom.email删除按钮的”click”代码为：m_no=ALLTRIM(THISFORM.txtno.VALUE)nAnswer=MESSAGEBOX(记录一旦被删除，将无法恢复。请确认您要删除的记录。+CHR(13)+您真的要删除该记录吗？,4+48+256,警告)IF nAnswer=6 &yes*-比较方式为精确比较SET EXACT ONDELETE

41、 FROM tblcustom WHERE AllTrim(no)=m_noPackTHISFORM.SETALL(value,textbox)THISFORM.SETALL(value,editbox)THISFORM.txtno.SETFOCUSENDIF如图4-4所示为“查询“表单。表单中包括3个标签控件、1个文本框控件、1个Grid控件、1个组合框控件和2个命令按钮控件。 图4-4 “查询“表单 开始查询按钮的”click”代码：DIME m_qry(3)m_qry(1)=nom_qry(2)=datem_qry(3)=namem_query=m_qry(THISFORM.combo1

42、.VALUE)m_content=ALLTRIM(THISFORM.text1.VALUE)IF len(m_content) 0 then*IF THISFORM.combo1.VALUE=2*SELECT no AS 投诉编号, date AS 投诉时间, name AS 投诉人 FROM tblcomplain INTO CURSOR cur WHERE CTOD(m_content)=(&m_query.)*ELSESELECT no AS 投诉编号, Name AS 投诉时间, name AS 投诉人 FROM tblcomplain INTO CURSOR curb WHERE L

43、OWER(m_content)$LOWER(&m_query.)*ENDIFELSESELECT no AS 投诉编号, Name AS 投诉时间, name AS 投诉人 FROM tblcomplain INTO CURSOR curbENDIFCOUNT TO m_noIF m_no0m_message=搜寻结果：为您找到+ALLT(STR(m_no)+条记录ELSEm_message=很抱歉，没有找到相关记录ENDIFthisform.grid1.RECORDSOURCE=curbthisform.grid1.VISIBLE=.T.thisform.label3.CAPTION=m_messagethisform.label3.VISIBLE=.T.thisform.grid1.REFRESHthisform.grid1.DOSCROLL(2)_如图4-5所示为“标签打印” 表单。表单中包括1个标签控件、2个文本框控件、1个直线控件和2个命令按钮控件。 图4-5 “标签打印”表单打印预览按钮的”click”代码：_m_noinf=VAL(THISFORM.txtnoinf.VALUE)m_nos