客户资源管理系统设计

1、 软件开发综合技能训练 报告客户资源管理系统设计专业学生班级学号指导教师萍完成日期2015年 1月 9日信息学院目 录第1章 绪 论11.1 课题背景11.1.1 管理信息系统的发展历史11.2课题研究的目的与意义1第2章 需求分析22.1 系统设计思想22.2 需求分析32.2.1 设计目标42.1.2 用户特点52.2 需求描述52.2.1 信息管理系统的总需求目标52.2.2 数据需求52.2.3 功能性需求概述62.2.4 约束（Constraints）62.2.5 用户的需求分析62.3 DBMS的选择62.4 开发工具的介绍72.4.1 Visual Basic 6.0开发工具的简

2、介72.4.2 SQL Server 2000的简介72.4.3ADO控件的介绍82.4.4ADO控件的绑定控件82.4.5 连接数据库9第3章 系统设计93.1 系统功能模块划分93.2 系统功能模块介绍103.3 设计和创建数据库103.3.1 数据库概念结构设计103.3.2 数据库逻辑结构设计123.3.3 创建数据库14第4章 详细设计及实现154.1 程序流程图154.2 公共模块的设计154.3 主界面的设计164.4 登录模块的设计184.5 系统管理模块设计204.5.1 用户管理的设计214.5.2口令修改的设计234.6 信息管理设计244.6.1 客户信息维护设计264

3、.6.2 客户反馈信息设计284.6.3 工作日程安排设计294.6.4 客户信息添加设计294.7 信息服务模块设计294.7.1 群发的设计304.7.2 信息查询设计304.7.3 信息提醒设计304.8 信息查询设计314.8.1 客户基本信息查询设计314.8.2 客户反馈信息查询32第5章 系统的测试与运行335.1 系统测试简介335.2 测试与运行33参考文献1实验小结11 / 37第1章 绪 论1.1 课题背景管理信息系统（Management Information System），在强调管理，强调信息的现代社会中它变得越来越普及。MIS是一门新的学科，它跨越了若干个领域，

4、比如管理科学、系统科学，运筹学、统计学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。1.1.1 管理信息系统的发展历史信息作为生产力中最活跃的因素，很早就在人类经济生活中发挥着不可替代的作用，但把信息纳入企业经营管理系统中高效处理和应用是在计算机发明以后的50年代末。目前人们所提到的管理信息系统，通常是指以计算机为工具，对管理信息进行收集、存贮、检索、加工和传递，使其应用于组织机构及企业管理领域的“人机系统”，该系统是70年代初“后工业经济”时代的产物，在企业管理信息系统在其发展的初期，是单一的人机系统，系统功能简单，效率低，对管理的作用有限。进入2

5、0世纪80年代末，随着计算机网络和通信技术的大力发展，企业管理信息系统进入网络化的发展时期。世界发达国家已建立起了完善的先进的管理信息系统体系，在其社会经济发展领域中发挥着巨大的作用。1.2课题研究的目的与意义信息社会的高科技，商品经济化的高效益，使计算机的应用已普及到经济和社会生活的各个领域。计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作不方便继续用手工劳动。为了适应现代社会人们高度强烈的时间观念，客户信息管理系统软件为管理人员带来了极大的方便。计算机在客户信息管理部门的广泛使用，改进了统计手段，改革了统计方法，提高了统计工计算机在客户部门的广泛应用，将为我国的客户管理工作，提供现代

6、化的管理手段和科学的管理方法，并将为开创客户管理工作的新局面创造条件。目前，计算机在我国的客户信息管理工作中，主要可用来进行档案管理，文书编辑，信息查询，综合分析。但这种手工统计过程，存在着几个明显的问题，比如说统计资料缺乏准确性，及时性，需要花费大量的人力，物力，财力等。手工方法所表现出来的种种劣势，使人们慢慢意识到管理现代化已成为当代社会发展的一股不可抗拒的洪流。在管理现代化的浪潮中，客户信息管理现代化也势在必行。实现客户信息管理现代化是一个复杂的系统工程，需要采取科学的管理方法和先进的科技手段。科学的管理方法在管理中一般是指数学方法、系统方法、信息方法、控制论方法、社会学方法、心理学方法

7、等科学方法，而先进的科技手段主要是运用当代最新科学技术之一的电子计算机来为客户管理现代化服务。随着经济的发展和社会信息化程度的提高，人们的生活质量和工作效率也越来越来越高，消费者对企业的信息管理质量也提出了更高的要求，快速消费行业的竞争也异常激烈。作为成熟的行业，不断增多的竞争品牌使得消费者的品牌忠诚度有进一步下降的趋势。为了满足消费者的要求，更好的服务于客户，使企业在激烈的竞争中占有 一席之地，搭建一流的客户信息管理系统已成为企业发展的必然。第2章 需求分析2.1 系统设计思想1.系统架构的选择本系统采用的是两层结构客户/服务器模式，即客户端和数据库服务器端（C/S）.客户端提供用户操作界面

8、，接受用户的数据输入，向数据库服务器发出命令或数据请求，并接受执行命令后返回的数据结果，根据业务逻辑进行相关的运算，向客户显示相应的信息。数据库服务器端接受客户端的数据或命令请求，并执行相应的命令得到相应的数据集，对数据集进行相应的处理，然后将数据集或处理的数据集返回给客户端。它的工作原理图如图2-1所示。客户信息管理系统操作界面（数据或命令请求）数据或命令处理发送数据或名令请求返回命令执行得到的结果集图2-1 C/S工作的原理示意图尽管随着应用系统程序规模的不断扩大，两层结构的C/S开发模式的缺点越来越明显，即需要高昂的投资和复杂的技术支持，维护成本很高，维护任务很大，但是在这种体系结构下，

9、能够快速建立并运行系统程序的基本功能，使系统开发变得简单而快捷。和三层架构的C/S模式不同的是，利用两层架构的开发模式，在编码时只需要查看本系统程序中的模块就能浏览到程序的功能代码，而不需要查看另一组件中的代码，这样就使代码的查看和修改相当方便，功能实现和调试也比较容易。2系统设计思想简介本系统主要完成客户信息的管理，包括客户的基本信息和客户反馈的信息，为此，系统必须能够维护至少2个用于记录客户基本信息和客户反馈信息的数据表，对这2个表进行添加 、删除和查询操作。于此同时还要维护系统用户的信息和其他的信息。用户登录系统时，程序首先根据用户输入的数据库连接信息，连接到指定的服务器，然后从db_C

10、service1数据库中已有的用户资料数据表中读出用户名和密码，并检验该密码与用户输入的密码是否匹配，中有用户名在数据库中存在，并且密码正确时，用户才能进入系统。当需要进行客户信息维护、客户反馈信息维护时，程序就将添加或修改的信息存储到客户信息维护数据表和客户信息反馈数据表中。当需要进行用户管理的添加、注册和删除时，程序就将添加、注册和删除的信息存储到用户信息表中。当需要进行发送时，就会从联系人数据表中查看到客户的地址。另外，该系统还能查询客户的基本信息和客户反馈的信息，还能进行数据的恢复和备份。2.2 需求分析随着企业的规模不断扩大，客户数量急剧增加，有关客户的各种信息量也成倍增长。面对庞大

11、的信息量需要有客户信息管理系统来提高客户管理工作的效率。通过这样的系统可以做到信息的规管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。在一些大的企业中已经建立可客户信息管理系统，但在一些小的企业中并没有建立客户信息管理系统。随着社会的发展人们对于自己的信息越来越不希望被别人随便的就可以查看到。然而现实并非如此，例如我们去超市买东西在办理会员卡的时候需要填写一些个人信息，因为很多超市还是使用人工登记的方法，所以客户的资料很容易就会被别人看到。我认为这样对客户是不尊重的。而在银行方面就做的很好，他们把客户的信息录入电脑，只有操作人员才可能看到，这样对客户是负责任的。本系统主

12、要用于企业客户信息管理，总体任务是实现客户信息关系的系统化、规化和自动化，其主要任务是用计算机对客户各种信息进行日常管理，如查询、修改 、增加、删除，接收，针对这些要求设计了客户信息管理系统。 本系统主要包括系统管理、信息管理 信息服务 和客户信息查询等四部分。其功能主要有：1、有关系统管理，包括用户管理、口令修改、数据备份和数据恢复等。其中用户管理中可以增加、 注册和 删除用户。2、信息管理，包括客户信息维护、客户信息反馈和工作日程安排。客户信息维护包括添加 、保存 和删除客户。客户信息反馈可以显示用户的反馈信息，同样也可以添加和删除反馈信息。3、信息服务，包括群发、 管理和信息提醒。群发中

13、选择地址就可以发送，管理则可以统计的数量，只要你需要信息提醒就可以运行次界面。4、信息查询，包括客户基本信息查询和客户反馈信息查询。客户基本信息查询可以查询客户名称，联系，传真和网址等。客户反馈信息查询则可以显示客户的名称，满意程度和反馈时间等。5、退出系统，包括重新登录和退出。作为系统管理员，如何最大限度地发挥人员的才能，这是客户管理学研究的根本任务。对这个问题进行个体研究方面，目前是做得不够的。因为个体寓于群体之中，群体对人员才能发挥之影响作用，可利用系统原理去指示。通过群体研究来寻求合理的年龄结构、知识结构、专业结构、来取得令人满意的配合效果等。不论客户管理怎样复杂，最基本的管理就是客户

14、信息的维护，客户反馈信息的查询等。使用客户信息管理系统，便于领导掌握客户的意见，及时调整企业的决策。本人将完成此客户信息管理基本功能实现的任务。客户信息管理系统是典型的信息管理系统 (MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。2.2.1 设计目标开发的系统是一个单机版的客户信息管理系统。如表2-1所示：表2-1 设计目标表需求对公司客户信息进行信息化管理用户客户信息管理员用户所做的事添加 、保存、 删除用户添加、 保存、 删除客户信息维护客户的信息及客户

15、反馈的信息收发电子并进行统计用户需求管理用户的基本信息管理客户的基本信息现在已经存在的有最好的解决方案用SQL Server 2000数据库来实现，用语言是VB来开发最好方案的理由选SQL Server 2000是目前比较流行的数据库之一，具有存储数据量大 数据安全性高 读取与存储数据快等优点。用VB 是因为我对它比较熟悉。2.1.2 用户特点用户为非专业技术人员，对计算机技术没有详细了解，必须尽可能的提供友好的操作界面和使用提示。2.2 需求描述2.2.1 信息管理系统的总需求目标在计算机网络，数据库和先进的开发平台上，利用现有的软件，配置一定的硬件，开发一个具有开放体系结构的、易扩充的、易

16、维护的、具有良好人机交互界面的客户信息管理系统，实现维护客户信息，实现客户信息查询，统计客户反馈信息的自动化，高效的计算机系统。2.2.2 数据需求(1)数据录入和处理的准确性和实时性数据的输入是否准确是数据处理的前提，错误的输入会导致系统输出的不正确和不可用，从而使系统的工作失去意义。数据的输入来源是手工输入。手工输入要通过系统界面上的安排系统具有容错性，并且对操作人员要进行系统的培训。在系统中，数据的输入往往是大量的，因此系统要有一定的处理能力，以保证迅速的处理数据。(2)数据的安全性本系统为企业客户信息管理部门设计，因此只有特定的用户管理者才能对数据实现增，删，改，查等操作。未获授权人员

17、不能进入系统。(3)数据的备份要定期对数据库中的数据进行全部或新增部分的备份工作，以保证在硬件出现故障或人为原因导致无法运行时是可以快速及时的还原到原来的正常状态。2.2.3 功能性需求概述(1)能够管理普通用户的基本信息(2)能够管理客户的基本信息(3)能够管理客户反馈的信息(4)以上这些信息都应便于查询(5)能够群发和接收2.2.4 约束（Constraints）操作系统：Windows XP数据库系统:SQL Server 20002.2.5 用户的需求分析用户的需求可为如下几个方面1客户信息的管理客户信息应该包括编号、客户名称、联系地址、客户类型、客户来源等信息。可以输入和修改客户的信

18、息。2系统用户的管理 能够增加和注册用户，只有在用户名和密码正确的情况下才能进入到系统。3.数据库的维护系统应该提供给用户数据库备份和恢复的功能，以便用户能够及时地备份数据库，并在数据库丢失或出现错误时，及时地恢复数据库，最大程度的避数据的丢失。2.3DBMS的选择开发客户信息管理系统的核心工具是数据库管理系统（DBMS）。随着局域网和Internet的发展以及企业和事业单位的信息管理规模日渐增大，越来越多的用户开始选择大型关系型RDBMS，常用的有Oracle数据库管理系统、DB2数据库管理系统、Microsoft SQL Server数据库管理系统、Sybase SQL Anywhere数

19、据库管理系统等。考虑我们的做毕业设计的实际环境和实际能力，我们选择SQL Server2000，SQL Server2000作为一种关系型数据库管理系统，是中小型信息管理系统的理想开发环境，在当前数据库领域，已有越来越多的人开始采用SQL Server2000。它是一个功能强大的数据库管理系统和MIS（Management Information System）系统开发工具，具有界面友好，易学易用，开发简单，接口灵活等特点。2.4 开发工具的介绍2.4.1 Visual Basic 6.0开发工具的简介在众多的可视化编程工具中，Visual Basic 6.0可以说是易学易用的优秀工具。由于它

20、的通俗易懂，再加上数据库应用的普及，Visual Basic 6.0已经成为很多数据库开发人员的首选编程语言。VB是Microsoft的一种通用程序设计语言，是在Windows操作平台下设计应用程序的最迅速、最简介的工具之一。不论是初学者还是专业开发人员，VB都为他们提供一整套工具，可以轻松方便地开发应用程序。利用VB 的数据访问特性，用户可对包括Micorosoft SQL Server和其他企业数据库在的大部分数据库格式创建数据库和前端应用程序，以及可调整的服务器端部件。利用ActiveX技术，VB可使用如Microsoft Word 字处理器及其他应用程序提供的功能，甚至可以直接使用VB

21、专业版或企业版创建的应用程序和对象。用户最终创建的程序是一个真正的.exe文件。2.4.2 SQL Server 2000的简介SQL Server 2000是新一代大型关系型数据库管理系统（DBMS），它在电子商务、数据仓库和数据库解决方案等应用中起着重要的核心作用，为企业的数据管理提供强大的支持，对数据库中的数据提供有效的管理，并采用有效的措施实现数据的完整性及数据的安全性。SQL Server 2000是一个基于客户机/服务器（C/S）模式的关系数据库管理系统，如图2-2所示。客户应用程序提交SQL 查询结果返回前台客户端服务器SQL Server 2000SQL Server 2000

22、图2-2SQL Server 2000客户机/服务器结构示意图SQL Server 2000采用C/S体系结构把所有的工作负荷分解为服务器上的任务和客户机上的任务，客户机应用程序负责商业逻辑和向用户提供数据，服务器对数据库的数据进行操作和管理。客户端（又称为前台）应用程序包含显示与用户交互的界面，而对数据库中数据进行的处理描述成 Transat-SQL语句（简称为T-SQL语句），并将T-SQL语句语句送至服务器端（又称为后台），后台的SQL Server执行该T-SQL语句后，产生查询结果，并将结果返回给客户端的应用程序。T-SQL是SQL Server 2000使用的一种数据库查询和编程语

23、言，它除包含标准的SQL语句外，还增加了一些标准的SQL语句外，还增加了一些非标准的SQL语句，使其功能更强大。使用T-SQL语句可建立、修改、查询和管理关系数据库。2.4.3ADO控件的介绍ADO是ActiveX数据对象（ActiveX Data Object）的英文缩写，这是Microsoft开发数据库应用程序的面向对象的新接口。ADO访问数据库是通过OLE DB 数据提供程序来进行的，提供了一种对 OLE DB 数据提供程序的简单高层访问接口。其中主要的对象如下：1.Connection对象Connection对象代表与数据源进行的唯一会话，可以和mand对象、Recordset对象间建

24、立关联，也可以使用一个Connection对象的实例，并在多个mand和Recordset对象共享。2.Recordset对象利用ADO的所有对象中，Recordset对象是使用最多的，它包含从数据库查询返回的数据行组。利用这个对象可以在数据库检索、插入、修改和删除信息。3. mand对象 使用mand对象查询并返回Recordset对象中的记录，以便执行大量操作或处理数据库结够。4.Field对象 Recordset对象含有Field对象组成的Fields集合。每一个Field对象对应于Recordset对象中的一列。2.4.4ADO控件的绑定控件l ADODC控件ADODC控件也称为ADO

25、 Data控件，使用Microsoft ActiveX数据对象来快速建立数据绑定控件和数据提供者之间的连接。ADODC控件的主要用法有：1.连接一个本地数据库或远程数据库。2.打开一个指定的数据表，或定义一个基于结构化查询语言的查询、或存储过程、或该数据库中的表的视图的记录集合。3 .将数据字段的数值传递给数据绑定的控件或在这些控件中显示或更改这些数值。4.添加新的记录或跟据对显示在绑定的控件中的数据的任何更改来更新一个数据库。l DataGrid控件DataGrid控件是一种类似于电子数据表的数据绑定控件，可以通过绑定到ADODC控件和一系列行及列来显示Recordset对象的记录及字段值。

26、DataGrid控件提供了文本编辑功能，在DataGrid控件中编辑单元格容之后，可以自动更新到数据库中，而无须编写任何代码。2.4.5 连接数据库为了提高代码的可读性，本系统将连接数据库的程序代码放置在模块中。使用ADO前要添加对ADO对象的应用。在菜单中选择“工程”-“引用”，出现如图2-3所示的对话框，在“可用的引用”列表框中选择“Micosoft ActiveX Objects 2.6 Library”选项，然后单击“确定”按钮，即可完成对ADO的引用。图2-3对ADO的引用第3章 系统设计3.1 系统功能模块划分根据上述的系统总体设计思想的分析，本系统主要划分为以下几个子模块：系统管

27、理、信息管理、信息服务和信息查询。主要的系统模块如下图3-1所示。客户信息管理系统系统管理信息管理信息服务信息查询图3-1系统模块图3.2 系统功能模块介绍1系统管理系统管理应该包括用户管理，口令修改，数据备份和数据恢复。在用户管理中可以增加 、注册、 和删除用户。数据备份则可以备份数据库的容，数据恢复则可以恢复数据库。2信息管理在信息管理中有客户信息维护，客户信息反馈，工作日程安排。客户信息维护中可以添加，删除，保存用户。客户信息反馈和工作日程安排中也有此功能。3信息服务信息服务可以发送电子，查询电子信息，信息提醒则可以时刻提醒用户的安排。4信息查询信息查询包括客户基本信息查询，客户反馈信息

28、查询。3.3 设计和创建数据库数据库应用系统设计中的一个核心问题就是如何设计一个能够满足用户当前与可预见的未来的各项应用要求、性能良好的数据库。数据库设计是从用户的数据需求、处理要求及建立数据库的环境条件出发，把给定的应用环境存在的数据合理地组织起来，逐步抽象成已经选定的某个数据库管理系统能够定义和描述的具体的数据结构的过程。3.3.1 数据库概念结构设计客观存在并可相互区别的事物称为实体。在此模型中如用户，产品等都是实体。实体所就有某一特性成为属性。一个实体可以有如干个属性来刻画。在显示世界中，事物部以及事物之间是有联系的，这些联系在信息世界中反映为实体型部的联系和实体型外部的联系。E-R图

29、提供了表示实体型、属性和联系的方法：1. 实体型：用矩形表示，矩形框写明实体名2. 属性：用椭圆形表示，并用无向边将其与相应的实体连接起来。3. 联系：用菱形表示，菱形框写明联系名，并用无向边分别与有关实体连接起来。根据分析E-R图如下：系统用户用户名密码3-2系统用户实体属性图客 户传真客户编号姓 名地址3-3客户实体属性图产品产品编号产品名称单价备注3-4商品实体属性图总的E-R图如下：用户用户名密码管理维护客户编号传真客户名称邮编编号客户名称联系录入产品产品名称产品价格编号11n1mn3-5 E-R图3.3.2 数据库逻辑结构设计通过对数据库的概念设计，应当已经清楚地知道系统需要的数据表

30、的个数和结构。下一步就可以将概念设计转化为逻辑结构设计。下面对数据库中用到的主要的表做详细的介绍。1. 客户信息维护数据表客户信息维护数据表用于保存与企业有业务往来的客户信息，该数据表记录了一些客户的基本信息。表3-1客户信息表（tb_Buyer_Tab）字段名数据类型长度描述MR_IDdecimal9编号MR_Namenvarchar50客户名称MR_Telnvarchar50MR_Faxnvarchar50传真MR_Ealinvarchar100E_mailMR_EaliIDint4邮编MR_NerAddressnvarchar100网址MR_Addressnvarchar100联系地址M

31、R_Typenvarchar20客户类型MR_Soursenvarchar20客户来源MR_Areanvarchar20所属区域Datesdatetime8录入日期MR_Memonvarchar100备注2.tb_LinkMan_Tab(联系人信息数据表)联系人信息数据表记录着企业客户中的联系人信息，企业通过联系人信息表中的联系方式与客户取得联系，与客户之间实现信息沟通，进行业务往来。表3-2联系人数据表（tb_LinkMan_Tab）字段名数据类型长度描述MR_DIDnumeric9编号MR_Namenvarchar20MR_ClientNamenvarchar20客户名称MR_Telnva

32、rchar20联系MR_Ealinvarchar20E_mailMR_Addressnvarchar50联系地址MR_Memovarbinary50备注3.用户表用户表里存放了用户名和密码，只有在用户名和密码正确的时候才能登录系统进入主界面。表3-3用户表（tb_User）字段名数据类型长度描述bhnumeric9编号xmvarchar50用户名qxvarchar50权限mmvarchar50密码4.产品信息数据表（tb_Product_Tab）产品信息数据表记录着企业客户所生产或经营的产品信息，如产品的名称 、单价等。表3-4 tb_Product_Tab字段名数据类型长度描述MR_IDnu

33、meric9编号MR_Codenvarchar10产品编号MR_Namenvarchar20产品名称MR_Picefloat产品价格MR_Memonvarchar20备注5.客户反馈表（tb_khfk）客户反馈表用来存放客户对产品的满意程度。如产品的名称，客户的满意程度、时间和备注。表3-5 tb_khfk字段名数据类型 长度描述IDnumeric9编号khmcvarchar50客户名称mycdvarchar50满意程度SJdatetime8时间BZtext16备注6.客户来源表(tb_Source_Tab)在客户来源表中主要记录了客户的来源信息。表3-6 tb_Source_Tab字段名数据

34、类型长度描述MR_IDnumeric9编号MR_Namenvarchar50来源名称MR_Memonvarchar50备注3.3.3 创建数据库打开 SQL Server 2000中的企业管理器，在数据库上右键单击选择新建，输入数据库的名称。给据上面设置的表的有关容进行建表。这里所用的数据库名为db_Cservice1,然后在所建的数据库上单击右键选择新建表。这样就可以建好我们所用的数据库。建好表后要备份数据库以免信息的丢失。第4章 详细设计及实现4.1 程序流程图开始客户信息管理系统身份验证是否正确NY主界面1. 系统管理2. 信息管理3. 信息服务4. 信息查询选择用户管理口令修改客户信息

35、维护工作日程安排发送信息提醒客户信息查询结束4-1流程图4.2 公共模块的设计连接数据库的代码如下在模块Module1中定义了连接字符串的在模块Module1中定义了连接字符串的变量PublicStr 、记录集对象Recordset 、记录登录用户名变量Name1、函数 n。模块中定义的全局变量如下：Public PublicStr As String '连接数据库字符串变量Public FrmStrs As String '记录已经打开的窗体名称变量'数据连接模块Public Name1 As StringPublic AdoRs As New ADODB.Recor

36、dset '后添加一个记录集Public AdoRs1 As New ADODB.RecordsetPublic AdoRs2 As New ADODB.Recordset用户自定义一个函数，在该函数中设置一个连接字符串。在执行与数据库相关的操作时调用该函数，使应用程序连接到数据库。用户自定义的函数n的程序代码如下：Public Function n() As ADODB.Connection '定义连接字符串函数 Set n = New ADODB.Connectionn.Open"Provider=SQLOLEDB.1;PersistSecurityInfo=Fa

37、lse;UserID=sa;Initial Catalog=db_Cservice1 " '使用Connection对象的Open方法 连接数据库End Function4.3 主界面的设计1.概述系统主窗体是操作应用程序的入口，通过操作主窗体可以控制系统中其他子窗体的运行，从而完成相应的操作。本系统的主窗体设计比较简单，主要有菜单栏和状态条组成。通过菜单栏控制程序中子功能窗体的运行，通过状态栏记录系统中的一些基本信息，如登录操作员、系统日期等信息。系统主窗体的运行效果如图4-2所示：图4-2系统主窗体2.设计主窗口是（frmMain MDIForm）是客户信息管理系统的主要

38、窗口，担任着调动其他模块的功能，是整个应用程序的核心。在工程中添加一个窗体，命名为frmMain。frmMain MDIForm主窗口是整个应用系统的容器。为了方便用户的使用，特地设计了菜单。菜单编辑器对话框如图4-3所示。图4-3菜单编辑器对话框在主界面中主要用到了菜单编辑器、时间控件和状态条。通过菜单栏控制程序中子功能窗体的运行，通过状态条记录系统中的一些基本信息，如登录操作员、系统日期等信息。其主要的代码如下：Private Sub YHGL_Click()点击用户管理菜单显示用户管理界面frm_yhgl.ShowEnd Sub在窗体上添加两个Timer控件，一个用于显示系统操作的时间，

39、另一个用于实时监测是否有提醒的信息，如果有则显示信息提醒窗体。程序的代码如下：Private Sub Timer1_Timer()StatusBar1.Panels(4).Text = Format(Now, " hh点mm分ss秒")状态条显示时间End SubPrivate Sub Timer2_Timer()rs.Open "select * from tb_bwl where 提醒日期='" & Date & "'", n, adOpenKeyset If rs.RecordCount >

40、 0 Then frm_某tx.Show Timer2.Enabled = False End If rs.CloseEnd Sub4.4 登录模块的设计1.概述我们要想进入系统就必修通过此界面，这是整个程序的入口。要想运行系统只有输入正确的用户名和密码后就可以登录到主页面中，在密码不正确的情况下会提示您重新输入。所以用户登录界面是整个系统的入口，我们要记住用户的名称和密码。运行的界面如图4-4所示。图4-4用户登录窗体2.设计在系统登录界面中主要用到了组合框（boBox）和文本框(Textbox)和两个按钮（mndbutton）。组合框是一种同时具有文本框和列表框特性的控件。它可以向列表框一

41、样，让用户通过鼠标选择所需要的项目，也可以向文本框那样，用输入的方式添加项目。在此模块中我们用组合框来输入或填充系统用户名，用文本框来输入用户的密码。主要代码如下：本模块中用到的主要代码如下.'用户登录按钮的事件代码Private Sub Cmd_Ok_Click()Dim MPassword As String AdoRs.Open "select * from tb_User where xm ='" & Cbx_Name.Text & "'", n, adOpenKeyset If AdoRs.RecordC

42、ount > 0 Then MPassword = AdoRs.Fields("mm")If Txt_Password.Text = MPassword Then '判断数据的密码是否正确 Name1 = Cbx_Name.Text frmMain.StatusBar1.Panels.Item(2).Text = "当前操作员 " + AdoRs.Fields("xm") frmMain.Show '通过身份验证则显示主窗体，登录到系统当中 Unload Me Else MsgBox "密码不正确请您确

43、认后重新输入", , "提示信息" Txt_Password.Text = "" Txt_Password.SetFocus End If Else MsgBox "对不起没有此用户的信息", , "提示信息" Cbx_Name.Text = "" Txt_Password.Text = "" End If AdoRs.CloseEnd Sub取消按钮的代码如下Private Sub Cmd_Cancel_Click() EndEnd Sub4.5 系统管理模块设计

44、系统功能模块分为用户管理、口令修改、数据备份和数据恢复三个子模块，其中用户管理模块和数据备份模块是很重要的。表4-1用户管理模块用例表控件的名称功能描述增加（mand1）需要填写用户名、用户的角色和用户的密码用户的注册（Cmd_Add）当填写完用户的信息后点击注册，该用户的信息就保存到数据库表中了用户的删除（Cmd_Del）点击不想要的用户输入确认密码后点击删除按钮该用户就可删除表4-2口令修改模块用例表控件的名称功能描述确认（mand1）填写完用户名、旧密码和两次新密码后，单击确认按钮该密码就修改完成取消（mand2）不想修改密码时单击取消按钮即可表4-3数据备份功能模块用例表控件的名称功能

45、描述选择（Cmd_Select）通过此按钮可以选择要备份的文件的路径进度条（ProgressBar1）显示数据备份的进度开始备份（Cmd_BackUp）选择好路径后点击此按钮就开始备份数据了，这也是此系统模块中最中要的退出（Cmd_Cancel）点击此按钮就可以退出备份系统管理模块结构图如图4-5所示。系统管理用户管理口令修改数据备份数据恢复图4-5系统管理模块图4.5.1 用户管理的设计1.概述用户管理主要包括用户的增加、注册和删除。在此页面中可以实现用户的增加、注册和删除。当输入的用户信息不完整和用户已经存在的情况下都不能注册。在增加用户时不能增加、删除用户时不能删除当前用户。用户管理模块

46、的运行图如图4-6所示：图4-6用户管理窗体2.设计在此界面中用到了Listview,Frame,TextBox和mndbutton（命令按钮）。我们详细的介绍Listview 控件。Listview 控件可以显示4中不同的视图显示项目，其中有大小图标，列表和报表。通过该控件，可显示项目组。Listview不是标准的Visual Basic控件，需要通过选择“工程-部件”菜单选项，在打开的对话框中勾选“Microdoft Windows momn Cortrols(6.0)”将其添加到工具箱中。 单击增加按钮就可以在可以输入用户名，角色、用户密码和确认密码。增加完信息后要单击注册按钮。如果想删

47、除用户在选择要删除的用户后就可删除。其主要的代码如下：Private Sub Cmd_del_Click() If Text1.Text = Name1 Then '如果是当前登录的用户名，则不允许删除MsgBox "不能删除当前用户名!", 48, "提示信息" Else A = MsgBox("您确认要删除当前用户吗?", 17, "删除用户信息提示") If A = vbOK Then AdoRs1.Open "select * from tb_user where xm='&quo

48、t; + Text1.Text + "'", n, adOpenKeyset If AdoRs1.RecordCount > 0 Then Set AdoRs1 = n.Execute("Delete tb_user from tb_user wher xm='"&Text1.Text&"'") '如果数据库中存在该用户信息，则将其删除 MsgBox "用户信息删除成功¦", 64, "删除用户信息提示" Call ListLoad

49、 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text1.SetFocus Else MsgBox "当前数据库中没有可删除的用户信息", , "信息提示" End If End If End IfEnd Sub4.5.2口令修改的设计1.概述在此程序中我们可以实现密码的修改，在修改密码是我们要输入用户名，旧密码，和新密码。在这里我们运行此界面，运行的界面如图4-7所示。图4-7密码修改运行界

50、面2.设计当用户登录到系统时就可以进行口令修改的操作了。如果用户在请输入用户名的文本框中输入用户名，则系统将会在数据库的系统用户表中进行查询，以确定是否存在相应的用户名。如果找到此用户名，然后在文本框中输入旧密码，输入旧密码。如果输入的旧密码与数据库表中的一致就可以添加新密码了。这时我们需要再输入一次新密码。点击确定按钮密码就修改成功了，如果不想修改就可以点击取消按钮。确定按钮的代码如下：Private Sub mand1_Click() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = &quo

51、t;" Or Text5.Text = "" ThenMsgBox "输入不能为空!", 48, "提示信息" Else '判断输入的用户名在数据库是否存在 AdoRs.Open "select * from tb_user where mm ='" & Text1.Text & "' and xm='" + Text5.Text + "'", n, adOpenKeyset If AdoRs.RecordCo

52、unt > 0 Then IfText2.Text<>Text3.TextThen '判断输入的密码是否正确 MsgBox "两次输入的密码不一致，请您确认以后重新输入。", 48, "提示信息" Text2.Text = "" Text3.Text = "" Text2.SetFocus Else '如果输入正确的密码则修改密码 Set AdoRs1 = n.Execute("UPDATE tb_user SET mm= '" + Text3.Text

53、 + "' where xm='" + Text5.Text + "'") MsgBox "密码修改成功请您记住新密码", , "提示信息" Unload Me End If Else MsgBox "没有此用户的信息或者您输入的原密码错误，请您确认后重新输入", 48, "提示信息" Text1.Text = ""Text2.Text = "" Text3.Text = "" Text5.T

54、ext = "" Text5.SetFocus End If AdoRs.Close End IfEnd Sub4.6 信息管理设计在此模块中包括客户信息维护、客户信息反馈和工作日程安排。个子模块中的功能及用到的主要的控件见下列表格。在此模块中用户可以对客户的信息及客户的反馈信息进行维护，包括客户的添加、保存、删除等。表4-4客户信息维护模块用列表控件的名称功能描述（SSTab1）用来显示客户资料包括客户名称、联系和电子等。（SSTab2）用来显示联系人如、客户名称和联系等。(SSTab3)用来显示产品报价包括产品编号、产品名称和产品价格（Toolbar1）用来实现添加、保

55、存和删除表4-5客户反馈模块用例表控件的名称功能描述（Text1）填写用户的名称（boBox）选择用户的满意程度（DataGrid1）通过与数据库相连获取表的信息（mandbutton）实现客户反馈的添加、保存和删除表4-6工作日程安排模块表控件的名称功能描述（Toolbar1）用来实现添加、保存和删除（DataGrid1）通过与数据库相连获取表的信息表4-7客户信息添加模块表控件的名称功能描述(Textbox)主要用来填写客户的基本信息，包括客户的名称和联系等。(boBox)选择客户的详细信息，包括客户类型，客户来源和客户所属的区域。信息管理的模块图如下：客户信息维护客户信息维护客户信息反馈工作日程安排