VisualBasic企业客户管理系统毕业设计.docx

客户管理系统【摘 要】客户资源是企业的珍贵财富，客户管理系统可以有效地管理企业的客户资源，记录企业与客户之间的商业活动，这对于现代企业是非常重要的。本系统后台数据库使用Access，前台开发工具使用Visual Basic。系统采用目前比拟流行的ADO数据访问技术，并将每个数据库表的字段和操作封装到类中，从而成功地将面向对象的程序设计思想应用到数据库应用程序设计中。这也是本系统的特色和优势。【关键词】客户管理系统，Access数据库，Visual Basic开发语言，管理信息系统 Abstract：The customer resources are enterprises precious wealth, the customer resource management system may manage the enterprise effectively the customer resources, between the recording enterprise and the customer trade activity, this regarding the modern enterprise is extremely important.This system backstage database uses Access, the onstage development kit uses Visual Basic.The system uses the present quite popular ADO data accessing technology, and seals each database table field and the operation in the kind, thus applies successfully the object-oriented programming thought in the database application programming.This also is this system characteristic and the superiority.onlinetranslationKey words:The customer resource management system, the Access database, Visual the Basic development language, the manages of information 目 录第一章 绪论.31.1 选题的背景.3.3第二章 管理信息系统概述4.4.5第三章 系统调研及可行性分析.7.7.7 8第四章 系统分析与总体设计99.9.11第五章 数据库设计12第六章 系统详细设计161620.27.3032第七章 系统使用说明.34第八章 系统测试34第九章 论文总结36致 谢36参考文献37附录37第一章 绪 论1.1 选题的背景学习计算机知识的目的在于更加准确、快捷的解决现实生活中的各种问题。我们只有不断的更新和完善自己的知识、在实践中积累经验，才能做出好的软件为社会效劳，为使用者提供便利。在当今的社会，可以说是信息技术的开展时代，在社会的方方面面无不涉及到各种信息的处理。信息是人们对客观世界的具体描述，是人们进行交流与联系的重要途径。人类社会就处在一个对信息进行有效合理的加工中。它将促进整个社会的开展。随着社会信息技术的提高，计算机已被广泛应用于当今社会的各个领域，成为推动社会开展的首要技术动力。在软件技术的应用中，软件的开发技术，尤其是应用型软件产品的开发技术成了重中之重。不断开发适应用户需求、市场需要的新型软件产品，参与市场竞争，获取最大利润是全球信息企业追求的目标。?客户资源管理系统?正是一个非常实用的应用型软件产品，我们不谈它的经济利益，单说的应用范围就是十分广泛的，客户资源管理系统的用户是各企业负责客户资源管理的员工，主要功能包括根本信息管理、客房信息管理和商业往来管理等，。我想计算机的作用就是辅助人们完成那些烦琐的体力劳动和脑力劳动，使人们从劳动力中解脱出来，今天我所设计的?客户资源管理系统?就是可以有效地管理企业的客户资源，记录企业与客户之间的商业活动，同时使管理员从繁杂的各项劳动中解脱出来。1.2系统概述1.2.1、本课题的研究意义目前市面上流行的客户资源管理系统不少。但是，对于具体的企业单位来说，因为具有自己的特殊性，因此只需要一个操作方便，功能实用，能同时满足本企业的管理及需求的系统。我们的目标就是在于开发一个功能实用、操作方便，简单明了的客户资源管理系统。1.2.2、本论文的目的、内容及作者主要奉献(1)目的：目前市面上流行的客户资源管理系统不少。但是，对于具体的企业单位来说，因为具有自己的特殊性，因此只需要一个操作方便，功能实用，能同时满足本企业的管理及需求的系统。我们的目标就是在于开发一个功能实用、操作方便，简单明了的客户资源管理系统。(2)内容：本系统具体包括以下根本功能：根本信息的添加、修改删除和查询。根本信息包括地域信息、客户类别、行业分类、职务名称、工程类型和销售人员等。此功能为客户信息管理和商业往来管理模块提供依据。客户信息的添加、修改、删除和查询。客房信息包括客户单位和联系人。商业往来信息的添加、修改、删除和查询。商业往来信息包括商业时机和客户跟踪。 (3)作者的主要任务本人独立完成了此课题的研究与开发，包括调研、分析、设计、编码、测试、文档编写等内容。第二章 管理信息系统概述管理信息系统MIS是一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体。1985年，管理信息系统创始人，明尼苏达大学卡尔森管理学院的著名教授戴维斯Gordon.B.Davis给出了一个具有代表性的定义：“管理信息系统是一个利用计算机硬件和软件，手工作业、分析、方案、控制和决策模型以及数据库的用户机器系统。它能提供信息支持企业或组织的运行、管理和决策功能。随着网络技术的出现，管理信息系统又有了新的必恭必敬，基于网络的管理信息系统不断出现，管理信息系统的概念模型也发生了相应的变化，许多学者对管理信息系统给出了新的定义。例如劳顿认为：“管理信息系统是一个基于计算机的信息系统，它通过收集、处理、存储和扩散信息，来支持组织的管理、决策、合作、控制、分析活动，并使之可视化。因此，我们可以看出，管理系统系统具有几个根本含义：1管理信息系统不是一个单纯的软件系统，而是一个人机系统，由人和机器协同工作。管理信息系统在支持企业或组织的各项管理活动中，管理人员负责将根底数据及时地输入到计算机中，计算机那么根据企业或组织中的各层管理人员的要求对根底数据进行加工处理，并将所得到的信息输出。计算机不断地与最终用户进行着信息的交换，但在对数据的加工处理过程中又需要人的适当干预。2管理信息系统的管理过程就是对数据进行惧、存储、加工处理、传递，并产生信息的过程，因此数据是管理信息系统的灵魂。管理信息系统运用了数据库的技术，对根底数据进行统一规划、存储，供各层管理人员使用，从而实现了数据的一致和共享。3管理信息系统可以解决企业或组织所面临的问题。例如，管理信息系统可以处理企业产生经营活动的全过程，可以解决组织中数据处理效率问题，也可以解决财务管理决策过程等。管理信息系统应具有如下几个功能。(1)数据处理功能：数据处理是管理信息系统最根本的功能，它包括对各种类型数据的收集、加工处理、传递、存储等工作。(2)实测功能：通过对数据的加工处理，可以随时了解各部门的实际运行情况，如各生产车间今天生产的产品数量、销售部接受的订单等。(3)预测功能：通过运用一定的数学方法和预测模型，对过去的数据进行分析，就可能对未来可能发生的情况进行预测，为高级管理人员进行管理决策提供依据。(4)控制功能：通过信息的反应可以对整个企业生产经营的各个部门、各个环节的运行情况进行监测、协调、控制，保证系统的正常运行。(5)辅助决策功能：通过对数据的加工处理，可以快速地获取对决策有影响的信息，从而为合理的配置企业的各项资源，做出最正确的决策提供科学的依据。目前，管理信息系统的应用已经非常广泛，随着计算机技术、网络技术和通信技术的开展，管理信息系统的功能也日趋完善，并朝着智能化、网络化、集成化等方向开展。如办公自动化OA、电子商务EC、专家系统ES、计算机集成制造系统CIMS。2.2、管理信息系统开发方法介绍目前，常用的管理信息系统的开发方法有生命周期法、原型法和面对对象的开发方法。下面仅对原型法和面对对象的开发方法进行简单的描述。(1)原型法：原型法Prototyping Method是20世纪80年代开展起来的，旨在改变生命周期法的缺点的一种系统开发方法。原型法的根本思想首选根据用户的要求，由用户和开发者共同确定系统的根本要求和主要功能，利用系统快速生成工具，建立一个系统模型。再在此根底上与用户交流，将模型不断补充，修改完善，如此反复，最终直至用户和开发者都比拟满意为止，就形成了一个相对稳定、较为理想的管理信息系统。原型法的开发过程采用原型法开发管理信息系统可以分为如下几个阶段：A、确定用户的根本需求。由用户提出对新系统的根本要求，如功能、根本界面形式、所需的数据、应用范围、运行环境等，开发者根据这些信息估算出开发该系统所需的费用，并建立简明的系统模型。B、开发初步的原型系统。系统开发人员根据用户的要求建立原型系统，但该系统只是一个初步的、不成熟的系统，从系统的工作效率上看也是不完善的。其主要目的是为了描述开发者所理解的用户的根本需求。C、修改、评价原型系统。将建造好的原型系统交给用户，并投入试运行，用户将使用过程中发现的问题一一记录下来，并与开发人员进行交流。开发人员针对这些问题不断地对系统进行修改、扩充与完善，直至用户满意为止。D、形成最终的管理信息。对用户满意的原型系统进行进一步的开发，不断补充、完善，最终形成一个适用的管理信息系统。原型法的优缺点原型法的优点是开发周期短，费用较少，同时可以较有效地防止因开发者和用户的认识隔膜所产生的失败，其缺点是系统的开发缺乏统一的规划和开发标准，难以对系统的开发过程加以控制。原型法一般适用于开发规模不大、不太复杂或需求经常发生变化的系统。(2)面向对象的开发方法面向对象Object Oriented的技术于20世纪80年兴起，随后广泛地应用于计算机技术的几乎所有领域。面向对象的技术中最重要的概念是对象。面向对象是基于问题对象的自底向上的一种系统开发方法。在开发过程中，分析和设计阶段独立于程序设计语言，信息系统模型设计好后，最终用具体的程序设计语言、数据库或硬件来实现。面向对象法最主要的特点是对对象为根底，对象是分析问题和解决问题的核心。面对对象法的开发过程面对对象法的开发过程一般分为四个阶段：A、认识客观世界如一个企业中的对象以及行为，分别独立设计各个对象的实体。B、分析对象之间的联系和相互之间所传递的信息，由此构造客观世界企业所对应的信息管理系统的模型。C、由信息系统的模型转换成计算机软件系统的模型。D、由计算机软件系统的模型再转化成一个现实系统。面向对象法的优缺点：面向对象法的优点是便于帮助分析者、设计者和用户清楚地表达抽象概念，互相进行交流；交流特定的软件工具模块，直接地完成了从对象的描述到软件体系结构之间的转换，防止了其它的方法在开发过程的客观世界描述和软件结构不一致性和复杂性问题，便利系统开发简单、统一，开发周期短，费用低。面向对象法的主要缺点与原型法一样，因此这种方法也不适用于开发大的、复杂的系统。本系统在开发过程中具体是采用了原型法和面向对象两种方法相结合的开发思路，力求在开发过程中尽量吸收这两种方法的长处，而克服它们的短处。第三章 系统调研及可行性分析3.1、系统调研正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面。1明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。2提出新系统的人员并不都是系统研究人员，有些人对于的功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。3企业的现行系统可能是手工系统，也可能是使用和计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好根底，保证整个系统开发的质量。总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，防止消耗大量的人力、物力、财力，新系统的开发却失败的悲剧发生。3.2、可靠性分析概述可靠性分析是在用户的要求和系统调研的根底上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程工程的一种考察和鉴定，对拟议中的工程进行全面与综合的技术、经济能力的调查，判断它是否可行。(1)可行性分析阶段的主要工作包括以下几个方面：新系统目标可行性分析：分析新系统的目标是否符合企业的现状和开展的需要。社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比拟，确认新系统是否会给企业带来一定的经济效益。管理可行性分析：管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。3.3、技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。1技术支持：首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。2硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、平安保护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。3软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：操作系统的选择；编译系统的选择；数据库管理系统的选择；高级编程语言的选择；汉字处理系统的选择；应用软件包的选择。本系统在开发前，与相关的企业领导进行了密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。 第四章 系统分析与总体设计 要开发一个管理信息系统，首先需要进行需求分析和总体设计，分析系统的使用对象和用户需求，设计系统的体系结构和数据库结构，决定使用的开发工具和后台数据库，规划工程开展进度。在实际的工程开发过程中，这些工作是非常重要的。 客户资源管理系统的用户是各企业负责客户资源管理的员工，主要功能包括根本信息管理、客房信息管理和商业往来管理等，具体说明如下：l 根本信息的添加、修改删除和查询。根本信息包括地域信息、客户类别、行业分类、职务名称、工程类型和销售人员等。此功能为客户信息管理和商业往来管理模块提供依据。l 客户信息的添加、修改、删除和查询。客房信息包括客户单位和联系人。商业往来信息的添加、修改、删除和查询。l 商业往来信息包括商业时机和客户跟踪。 本节根据需求分析中总结的用户需求设计系统的体系结构。系统的功能模块如图1 所示。图1 客户资源管理系统功能模块图在功能模块示意图的树状结构中，每一个叶结点都是一个最小的功能模块。每一个功能模块都需要针对不同的表完成相同的数据库操作，即添加记录、修改记录、删除记录以及查询显示记录信息。在本系统中，用户管理模块的功能比拟简单。在系统初始化时，有两个默认的用户。系统管理员用户为Admin，普通用户为Users，由程序设计人员手动地添加到数据库中，它们的默认密码均为111111。Admin用户可以创立用户、修改用户信息以及删除用户；普通用户那么只能修改自己的用户名和密码。用户管理功能模块的关系如图2所示。图2 用户管理功能功能集合模块关系图下面进行系统流程分析，所谓系统流程就是用户在使用系统时的工作过程。 运行系统后，首先会看到登录窗体，对用户的身份进行认证。身份认证可以分为以下两个过程：l 确认用户是否是有效的系统用户。l 确认用户的类型。第1个过程决定用户能否进行系统，第2 个过程根据用户的类型决定用户的操作权限。如果需要对普通用户进行管理，那么使用Admin用户登录；否那么建议使用Users用户登录。如果还要创立其他用户，可以在用户管理模块中创立和管理。在创立用户时，需要输入要创立的用户名和密码。Admin用户还可以修改和删除其他普通用户数据。 在本系统中，应该首先增加根本信息，之后才能增加客房信息。根本信息包括地域、客房类别、行业分类、职务名称、工程类型和销售人员等内容。地域信息包括地域名称、地域类型和上级地域等内容；销售人员信息包括员工姓名、性别、所属部门和职务等内容；客户类别、行业分类、职务名称和工程类型那么只包含名称内容。 添加根本信息后，就可以添加客户信息了。在客户信息管理模块中可以对客户单位和客户联系人进行添加、修改、删除和查看等操作。客户单位信息包括单位名称、客户类别、所在地域、通信地址、邮政编码、所属行业等内容。在添加客户单位时，需要选择客户类别、所在地域和所属行业。客户联系人包括客户单位、联系人姓名、性别、职务、移动 等内容。在添加客户联系人信息时，需要选择客户和职务。 在商业往来管理模块中，可以对商业时机和客户跟踪信息进行添加、修改、删除和查看等操作。商业时机信息包括客户信息、联系人信息、工程名称、工程类型和销售人员等操作。商业时机信息包括客户信息、联系人信息、工程名称、工程类型和销售人员等内容。在添加商业时机信息时，需要选择客户单位、联系人、工程类型和销售人员等内容。在客户跟踪管理模块中，可以对客户跟踪回访信息进行添加、修改、删除和查看等操作。客户跟踪信息包括商业时机、销售人员、任务日期、拜访方式、预计目的和详细介绍等内容。在添加客户跟踪信息时，需要选择商业时机、销售人员和拜访人员等内容。 本系统的流程分析如图3 所示。图3 系统流程分析图在系统流程分析图中可以看到，每个用户有3次时机进行身份认证。如果3次输入的用户名和密码都无法与数据库中的数据匹配，那么强制退出系统。开发数据库管理信息系统需要选择两种工具，即前台开发语言和后台数据库。选择开发工具时应该考虑客户需求、系统功能和性能需求以及开发人员的习惯等因素。例如，开发C/S客户/效劳器结构的应用程序时，前台开发语言通常可以选择Visual Basic、Visual C+、Delphi和Power Builder等；如果开发网络应用程序，那么需要选择一个网络数据库开发系统，如Access、Oracle和IBM DB2等；如果开发单机应用程序，那么只要选择一个小型数据库系统就可以了，例如Access。与其他开发工具相比，Visual Basic具有简单易学、灵活方便和易于扩充等特点，越来越多地被用作客户/效劳器Client/Server，简称为C/S应用程序的前端开发工具，与后端的开发工具Access数据库结合，能够提供一个高性能的管理信息系统解决方案因为本系统是单机版的数据库应用系统，所以采用Visual Basic作为开发工具，Access作为后台数据库。第五章 数据库设计数据库结构设计是总体设计阶段非常重要的环节，好的数据库结构可以简化开发过程，使系统功能更加清晰明确。因为数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而防止无所谓的重复工作。本系统数据库中包含8个表，即根本信息表Types、地域信息表Area、销售人员信息表Employess、客户单位信息表Customer、联系人信息表Contact、商业时机表SaleCHance、客户跟踪表SaltTask和用户信息表sers。下面分别介绍这些表的结构。1、 根本信息表Types表Types用来保存客户类别信息、行业分类信息、职务名称信息和工程类型信息，结构如表所示。 表ypes的结构编号字段名称数据结构说 明Id自动编号记录编号，主键TypeName文本，长度信息名称Flag数字字节类型标记。表示客户类别；表示客户所属行业；表示职务名称；表示工程类型2、 地域信息表Area表Area用来保存地域信息，结构如表所示。表Area的结构编号字段名称数据结构说 明AreaId数字长整型记录编号，主键AreaName文本，长度地域名称AreaType数字字节地域类型。表示洲；表示国家。、表示省；表示市县pperId数字长整型上级地域编号3、 销售人员信息表mployess表mployess用来保存销售人员信息，结构如表所示。表Employess的结构编号字段名称数据结构说 明EmpId自动编号人员编号，主键EmpName文本，长度5姓名Sex文本，长度性别DepName文本，长度所在部门5ETitle文本，长度职务4、 客户单位信息表ustomer表ustomer用来保存客户单位信息，结构如表所示。表Customer编号字段名称数据结构说 明ustId自动编号记录编号，主键Eastman文本，长度200课程名称CustTypeId数字长整型所属客户类型编号Address文本，长度200通信地址5Postcode文本，长度邮政编码6AreaId数字长整型所属地域编号7ussTypeId数字长整型所属行业类别编号8EmpId数字长整型销售人员5、 联系人信息表Contact 表Contact的结构编号字段名称数据结构说 明Id自动编号记录编号，主键CustId数字长整型客户单位编号CName文本长度50姓名Sex文本长度2性别5TitleId数字长整型职务编号6Office文本，长度50办公 7Mobile文本，长度50移动 8Birth文本，长度50生日9Hobby文本，长度50兴趣爱好10Memo1备注备注信息11Input_date文本，长度50记录录入日期12Input_time文本，长度50记录录入时间6、 商业时机表SaleChance表SaleChance用来保存商业时机信息，结构如表所示。表SaleChance的结构编号字段名称数据结构 说 明Id文本，长度50记录编号CustId数字长整型客户编号CtId数字长整型联系人编号ProName文本长度200产品名称5PTypeId数字长整型工程类型编号6EmpId数字长整型销售人员编号7SignDate文本，长度50预计签订日期8SignSum数字长整型预计成交金额9PPercent文本，长度50目前进度10Status文本，长度50状态11Detail备注详细介绍12CreateDate日期时间创立日期13Poster文本，长度50创立人7、 客户跟踪表SaleTask表SaleTask用来保存客户任务跟踪信息，结构如表7所示。 表SaleTask的结构编号字段名称数据结构说 明Id自动编号记录编号SaleId文本，长度50商业时机编号EmpId数字长整型销售人员编号TaskDate文本长度50任务日期5Purpose文本长度50拜访目的6CtId数字长整型拜访人员编号7Place文本，长度100拜访地点8StartTime数字长整型开始时间9EndTime文本，长度50目前进度10EndTimeDetail结束时间11Detail备注详细介绍12Result备注任务结果、进展总结8、 用户信息表Users表Users用来保存系统用户信息，结构如表8所示。 表Users的结构编号字段名称数据结构说明UserName文本，长度50用户名，主键UserPwd文本，长度50密码第六章 系统详细设计登录窗体和系统主界面设计当系统运行时，首先翻开登录窗体，只有有权限的用户才能进行系统。登录成功后，将显示系统主界面。1、 设计登录窗体登录窗体的名称为FrmLogin，它的界面布局如图4所示。图4 登录窗体的界面布局登录窗体的属性表如表9所示。 表9 设计登录窗体的属性窗体属性设置值具体说明名称rmLogin设置窗体名称BorderStyle1-Fixed Single设置窗体的边框属性Caption身份验证窗体的标题条文本ControlBoxFalse取消控制按钮，防止用户通过控制按钮关闭对话框StartUpPosition2-屏幕中心设置窗体弹出时，位置在屏幕中心登录窗体中控件的属性如表10所示。表10 登录窗体包含的控件及其属性对象名属性属性值Label1Caption用户名Label2Caption密码txtUserText空txtPwdText空PasswordCharCmd_OkCaption确定Cmd_CancelCaption取消下面介绍登录窗体的局部代码（1） 变量声明登录窗体的变量声明如下：Public PasswordKey As StringPublic Try_times As IntegerPublic NameKey As String2Cmd_Click过程当用户单击“确定按钮时触发Cmd_Click事件，进行身份验证，代码如下：Private Sub Cmd_OK_Click() Dim j As Single数据有效性检查 If txtUser = Then MsgBox 请输入用户名 Exit Sub End If If txtPwd = Then MsgBox 请输入密码 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 判断用户是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox 用户名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 判断密码是否正确 MyUser.GetInfo (NameKey) If MyUser.UserPwd PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 登录成功，将当前用户的信息保存在CurUser中 CurUser.GetInfo (MyUser.UserName)关闭自己 Unload MeEnd Sub程序的运行过程如下：l 判断是否输入了用户名和密码，如果没有输入，那么返回，要求用户输入。l 将输入的用户名和密码赋值到变量NameKey和Passwordkey中，便于处理。l 调用MyUser.In_DB()函数，判断当臆用户名是否存在。如果不存在，那么返回，要求用户重新输入，同时将计数变量Try_times加1。l 如果用户名存在，那么调用MyUser.GetInfo()函数，读取此用户的数据，并将用户密码与输入的密码进行比拟。如果密码不同，要求用户重新输入，同时将计数变量Try_times加1。l 如果Try_times大于或等于3，那么退出系统。l 如果通过密码验证，那么将当前用户的信息保存到curUser对象中，以便以后使用。l 关闭登录窗体。2、设计主界面主窗体是工程的启动对象，可以在系统菜单中选择“工程/“属性，翻开属性窗口设置启动对象。本系统中主窗体名为FrmMain。翻开窗体的设计窗口，选择“工具菜单项中的“菜单编辑器，对菜单内容进行编辑，菜单编辑器如图5所示。 图5 菜单编辑器本系统的主界面如图6所示。图6 系统主界面在主窗体FrmMain中添加如下代码：Private Sub Form_Load() FrmLogin.Show 1End Sub当主窗体启动时，将翻开“登录对话框。如果不能通过身份验证，那么不能进行系统。中选择“退出系统菜单项时触发mn_Click事件，代码如下：Private Sub mn_Exit_Click() DBapi_Disconnect EndEnd Sub根本信息管理模块包括地域信息管理、客户类别管理、行业分类管理、职务名称管理、工程类型管理和销售人员管理。设计地域信息编辑窗体 编辑地域信息的窗体可以用来添加和修改地域信息，窗体名称设置为FrmAreaEdit，窗体布局如图7所示。图7 窗体FrmAreaEdit布局Cmd_Ok_Click过程当用户单击“确定按钮时触发Cmd_Ok_Click事件，对应的程序代码如下：Private Sub Cmd_OK_Click() Dim TmpId As Integer If Trim(txtArea) = Then MsgBox 请输入地域名称 Exit Sub End If