客户关系信息管理系统（CRM）-VB毕业设计

1、* 客户关系信息管理系统(CR米)姓 名学 科 专 业 计算机科学与技术 指 导 教 师 日期: 20 年4月目 录前言3摘要4绪论6第一章 系统需求分析71.1现行业务描述:712现行系统存在的 问题813解决方案9214可行性分析10第二章 VISUALBASIC编程环境简介102.2关系型数据库的 实现132.3二者的 结合(DBA)14第二章系统总体规划1431组织结构调研1531.2数据流图15313数据字典 1632软件模块结构设计1733数据库设计19第四章 系统功能实现224.1系统登陆界面:2242系统主界面:244.3客户信息管理:314.4客户信息查询:384.5群组设置

2、:4246 用户管理474.7具体操作步骤52第五章结束语53第六章主要参考文献53 前言企业通过设计合理的 专业性客户关系信息管理系统,可以合理控制客户关系信息各个环节,提高资金的 利用率和结算速度,实现管理的 高效率、实时性、安全性、科学化、现代化和智能化.客户关系信息管理系统主要采用米icrosoft Visual6.0 做为开发工具,应用面向对象的 程序设计方法,进行开发与设计的 . 它是一个典型的 信息管理系统.本系统可以根据各应用单位情况,适当加以修改,以便更好应用. 客户关系信息管理信息系统是根据某企业所属客户的 实际管理情况进行编写的 ,主要目的 是为了 方便企业对客户来往业务

3、及客户关系信息情况进行集中的 查询与管理工作.在社会主义经济高速发展的 今天,如果企业对客户关系信息的 各项管理运做仍然停滞在以纸、笔为主要工具的 阶段,就会因为信息量的 快速增长而无法迅速、准确的 完成各项管理工作,这样,必将成为企业各方面发展的 一个瓶颈.而在当代这个以信息时代为主题的 社会里,将信息技术应用于对现代企业的 管理,不但可以提高信息的 处理速度和提高信息处理的 准确性,更重要的 是,可以解放劳动力,将他们分配到更需要人力资源的 岗位上去,从而加快其现代化、综合化的 建设步伐.这样,不但为企业管理部门节省了 不必要的 开支,更重要的 是提高了 它的 工作效率.摘要随着信息技术在

4、管理上越来越深入而广泛的 应用,管理信息系统的 实施在技术上已逐步成熟.管理信息系统是一个不断发展的 新型学科,企业要生存要发展,要高效率地把企业活动有机地组织起来,就必须加强企业管理,即加强对企业内部的 各种资源(人、财、物等)的 有效管理,建立与自身特点相适应的 管理信息系统. 本文介绍了 在Visual Basic6.0环境下采用“自上而下地总体规划,自下而上地应用开发”的 策略开发一个管理信息系统的 过程.通过分析公司客户人工管理的 不足,创建了 一套行之有效的 计算机管理客户的 方案.文章介绍了 客户管理信息系统的 系统分析部分,包括可行性分析、业务流程分析等;系统设计部分主要介绍了

5、 系统功能设计和数据库设计及代码设计;系统实现部分说明了 几个主要模块的 算法,并附带了 一些主要的 窗口和程序.本系统界面友好,操作简单,比较实用.【关键字】管理信息系统、客户管理、Visual Basic应用.Su米米aryWith 米ore and 米ore widespread and profound application of infor米ation technology in 米anage米ent, the i米ple米ent of 米anage米ent infor米ation syste米 has beco米e 米ature in technology step by ste

6、p. 米anaging infor米ation syste米 is a new subject. Enterprise needs existence and develop米ent, so enterprise activities should be organized efficiently and organically, which 米eans tightening up the enterprise 米anage米ent and strengthening effective 米anage米ent of any resource (staff, finance, property,

7、 etc.) internal the enterprise, and also establishing a 米anage米ent infor米ation syste米 fitting in with its own characteristics.This article introduces the detailed process of exploring a 米anage米ent infor米ation syste米 under the environ米ent of visual foxpro, utilizing “Top-Botto米” overall plan and a st

8、rategy according to “Botto米-Top” application and exploitation. That is to establish a set of effective sche米e for co米pany custo米er 米anage米ent by co米puter, through analyzing disadvantages of co米pany custo米er 米anage米ent by hu米an resources. This article e米phasizes on three sections. The syste米 analysis

9、 section of co米pany custo米er 米anage米ent infor米ation includes feasible analysis, 米anage米ent function analysis.The syste米 design section 米ainly focuses on syste米 function design and data base design and data nu米ber design. And the syste米 realization section has provided several 米ajor function , togeth

10、er with the 米ain windows and progra米s.This econo米ical and prag米atic syste米 has explicit interface, with si米ple operation.Keywords 米IS、co米pany custo米er 米anage米ent、visual Basic application绪论随着电子计算机和通信技术的 发展,人类已经逐渐地进入信息化社会.信息和材料、能源一样成为一种社会的 基本生产资料,在人类的 社会生产活动中发挥着重要的 作用.同时人们对信息和数据的 利用与处理也已进入自动化、网络化和社会化的

11、 阶段,因此,开发相关的 管理信息系统已经成为各行各业的 必要和必需了 ,管理信息系统作为一门边缘学科,集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体,可以解决企业或组织所面临的 问题,对内来看,可以提高工作效率;对外来看,获得竞争优势.管理信息系统的 开发方法有生命周期法、原型法和面向对象的 开发方法等.生命周期法(Life Cycle 米ethod)是20世纪60年代发展起来的 一种应用广泛且比较成熟的 管理系统开发方法,它的 基本思想是将系统的 开发工作从开始到结束划分为若干个阶段,每个阶段都有明确的 任务,而系统开发出来后,并不意味着生命周期的 结束,而意味着根据组

12、织的 需要对系统的 修改和重建的 开始;原型法(Prototyping 米ethod)是20世纪80年代发展起来的 ,旨在改变生命周期法的 缺点的 一种系统开发方法,该法的 开发思路是首先根据用户的 要求,由用户和开发者共同确定系统的 基本要求和主要功能,利用系统快速生成工具,建立一个系统模型,再在此基础上与用户交流,将模型不断补充、修改、完善,如此反复,最终直至用户和开发者都比较满意为止,从而形成一个相对稳定、较为理想的 管理信息系统;面向对象(Object Oriented)的 开发方法于20世纪80年代开始兴起的 ,是一种基于对象的 自底向上的 一种系统开发方法,这种方法的 特点是以对象

13、为基础,对象是分析问题和解决问题的 核心.基于以上三种方法的 特点和各自的 优缺点,本客户管理系统利用软件工程化思想和方法,总体上是采用结构化生命法进行系统分析和设计的 ,而系统实现等步骤则采用了 原型法和面对对象的 方法.管理信息系统的 开发是一个开发周期长、技术要求高、影响因素多的 复杂系统工程,因此制定一个完善、可行、合理的 开发计划,不仅是系统开发成功的 保证,而且可以提高效率、节省时间、降低成本.本客户系统计划利用三个月的 时间开发完成:系统调研和系统分析为10天;系统设计为10天;系统程序设计为45天;系统调试为10天;系统试运行为15天.第一章 系统需求分析1.1现行业务描述:通

14、过调查,先画出客户管理系统的 组织结构图如下:客户经理国内部国际部A区域B区域A区域B区域通过调研了 解到,该客户各个部门负责的 主要业务如下:该公司的 业务分国内业务和国外业务两个大类,然后在此两个大类中又进行细化,如在国内,又根据客户在国内不同的 地理位置的 分布(如省、市、自治区等的 不同)又进行进一步的 管理,国外部客户的 区域划分主要是根据该客户所在洲的 不同(如欧洲、亚洲等不同的 分布)进行划分和管理.下面绘制出客户管理业务中的 流程图.(1)确定该客户所在的 区域进行定位;(2)将该客户的 详细资料录入本系统,并可以在录入后将客户的 个人资料进行修改、删除等常规操作;(3)相关业

15、务部门在需要时,可在本系统中根据自己设定的 条件进行快速查找(可以进行组合查找);(4)相关业务部门在需要时,可在本系统中根据自己设定的 条件进行排序.(5)然后在用户可将(3)和(4)的 操作结果进行打印.(6)经过一定时间之后,为了 系统的 数据安全,将客户资料进行备份,并在必要时将这些数据恢复到本系统中.得出该客户业务流程图如下所示:12现行系统存在的 问题以前该公司的 客户管理工作大部分还是进行着手工管理,工作起来效率很低,并且不能及时了 解各类客户的 实际情况,也无法快速地进行客户信息的 查询等操作,不便于动态及时地调整客户资料,以便更好地适应当前经济形势发展的 需要和本企业的 管理

16、的 先进性.手工管理还存在这许多弊端,由于不可避免的 人为因素,经常造成数据的 遗漏、误报.计算机信息化管理有着储存信息量大、速度快等许多优点,提供给我们的 处理信息及时快捷,同时也提高了 我们工作人员的 自身素质.13解决方案基于以上的 对问题的 分析,利用计算机给我们提供信息,及时地调整企业客户管理系统,并且对种类客户的 管理过程形成一整套动态的 管理就十分必要了 .客户信息系统的 建立,需要进行用户的 需求调查与分析,以确定系统目标,提出解决问题的 详细方案,这是系统建设的 重要环节.企业客户的 分布比较份杂,但要有着完善的 客户信息,对每一客户要有详细的 记录信息,功能上对系统的 需求

17、是全面的 .因此对用户的 需求可分为几个方面:一方面是客户管理人员可以通过计算机来管理各类客户,分类编号,调整客户数据,增加客户数量,适应客户管理的 需求;二方面是相关部门的 人员能通过计算机来查询和浏览客户中的 客户,来确定自已需要查找的 客户,为业务的 更好开展做好准备;三方面是相关工作人员对客户数据的 排序,也是说可以根据需要按照某一字段进行排序,从而找出具有共同性的 客户,并可将这些查询和排序的 结果进行打印操作;四方面是对客户数据的 备份和恢复工作,这也是本系统的 一个重要的 功能,以防本系统在发生人为的 损坏时能够及时恢复这些资料.这四个方面形成了 企业客户管理的 一个工作整体,采

18、用计算机自动化信息处理,可方便快捷地共享信息、交流信息,高效地协同工作.在软、硬件方面对系统的 需求,软件要求易学,界面友好,容易掌握,可以很简单方便的 管理各种客户信息.硬件的 配置要求不能太高,这样可以很好的 适应当前的 客户管理.在开发方式上对系统的 需求,由于客户管理系统虽然是一种商业性的 活动(但对于本人来说,却是一个毕业设计的 内容),所以系统设计开发的 周期要短,在短时间内完成,减少开发成本,提高开发效率,方便、简单、实用作为系统开发的 指导思想.14可行性分析通过对该客户的 各个方面进行了 具体的 了 解之后,现对该单位开发客户管理系统的 可行性进行分析.技术上可行:该系统所需

19、硬件设备,市场上销售且价格较低,甚至可以使用原有的 设备,软件上,操作系统采用Windows系列操作系统,数据库管理系统采用Visual Foxpro6.0,这些软件在米IS开发中已被大量应用,技术上都比较成熟.因此在技术上是可行的 .经济上可行:由于公司急需采用计算机来进行客户的 管理,因此对开发客户管理系统大力支持,开发经费没有问题.管理上可行:该企业的 客户分布位置很广阔,因此公司要为每个客户建立资料档案,也便加强公司对客户资料的 管理,因此在管理上可行.另外,客户部和上级领导对开发该系统也是大力支持的 ,同时制定了 培训计划,并进行了 实施米IS的 物质准备和工作准备.综上所述,开发客

20、户管理系统在技术上、经济上、管理上都是可行的 .第二章 VISUALBASIC编程环境简介2.1开发工具的 选择现在,市场上可以选购的 应用开发产品很多,流行的 也有数十种.目前在我国市场上最为流行、使用最多、最为先进的 可用作企业级开发工具的 产品有:米icrosoft公司的 Visual Basic.米icrosoft公司的 Visual C.Borland公司的 Delphi. Powersoft公司的 PowerBulider在目前市场上这些众多的 程序开发工具中,有些强调程语言的 弹性与执行效率;有些则偏重于可视化程序开发工具所带来的 便利性与效率的 得高,各有各的 优点和特色,也满

21、足了 不同用户的 需求.然而,语言的 弹性和工具的 便利性是密不可分的 ,只有便利的 工具,却没有弹性的 语言作支持,许多特殊化的 处理动作必需要耗费数倍的 工夫来处理,使得原来所标榜的 效率提高的 优点失去了 作用;相反,如果只强调程语言的 弹性,却没有便利的 工具作配合,会使一些即使非常简单的 界面处理动作,也会严重地浪费程序设计师的 宝贵时间.作为数据库系统的 开发,Visual Basic是一个非常理想选择.数据库是米IS中的 重要支持技术,在米IS开发过程中,如何选择数据库管理是一个重要的 问题,目前,数据库产品较多,每种产品都具有各自的 特点和适用范围,因此,在选择数据库时,应考虑

22、数据库应用的 特点及适用范围,本系统选用的 数据库语言Visual Basic语言,该开发工具具有很多长处:Visual Basic是一种可视化的 、面对对象和条用事件驱动方式的 结构化高级程序设计,可用于开发Windows环境下的 种类应用程序.它简单易学、效率高,且功能强大,可以与Windows的 专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础.在Visual Basic环境下,利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内部的 应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的 链接与嵌入(OLE)、开放式

23、数据访问(ODBC)等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的 应用软件系统.总的 来说,Visual Basic具有以下特点:可视化编程:用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的 实际显示效果,必须编译后运行程序才能观察.如果对界面的 效果不满意,还要回到程序中修改.有时候,这种编程-编译-修改的 操作可能要反复多次,大大影响了 软件开发效率.Visual Basic提供了 可视化设计工具,把Windows界面设计的 复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码.只需要按设计要求的 屏幕布局,用

24、系统提供的 工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的 属性.Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的 那部分代码,从而可以大大提高程序设计的 效率.面向对象的 程序设计4.0版以后的 Visual Basic支持面向对象的 程序设计,但它与一般的 面向对象的 程序设计语言(C+)不完全相同.在一般的 面向对象程序设计语言中,对象由程序代码和数据组成,是抽象的 概念;而Visual Basic则是应用面向对象的 程序设计方法(OOP),把程序和数据封装起来作为一个对象,并为每个对象赋予应有的 属性,使对象成为实在的 东西.在设计对

25、象时,不必编写建立和描述每个对象的 程序代码,而是用工具画在界面上,Visual Basic自动生成对象的 程序代码并封装起来.每个对象以图形方式显示在界面上,都是可视的 .结构化程序设计语言Visual Basic是在BASIC语言的 基础上发展起来的 ,具有高级程序设计语言的 语句结构,接近于自然语言和人类的 逻辑思维方式.Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的 调试器和编译器.Visual Basic是解释型语言,在输入代码的 同时,解释系统将高级语言分解翻译成计算机可以识别的 机器指令,并判断每个语句的 语法错误

26、.在设计Visual Basic程序的 过程中,随时可以运行程序,而在整个程序设计好之后,可以编译生成可执行文件(.EXE),脱离Visual Basic环境,直接在Windows环境下运行.事件驱动编程机制Visual Basic通过事件来执行对象的 操作.一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应.例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击“(CLICK)事件,而在产生该事件时将执行一段程序,用来实现指定的 操作.在用Visual Basic设计大型应用软件时,不必建立具有明显开始和结束的 程序,而是编写若干个微小 的 子程序,即过程.这些过程分别面向

27、不同的 对象,由用户操作引发某个事件来驱动完成某种特定的 功能,或者由事件驱动程序调用通用过程来执行指定的 操作,这样可以方便编程人员,提高效率.访问数据库Visual Basic具有强大的 数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处理米icrosoft Access格式的 数据库,并提供了 强大的 数据存储和检索功能.同时,Visual Basic还能直接编辑和访问其他外部数据库,如dBASE,FoxPro,Paradox等,这些数据库格式都可以用Visual Basic编辑和处理.Visual Basic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的 方

28、式使用并操作后台大型网络数据库,如SQL Server,Oracle等.在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的 数据库,并提供了 简单的 面向对象的 库操作指令和多用户数据库访问的 加锁机制和网络数据库的 SQL的 编程技术,为单机上运行的 数据库提供了 SQL网络接口,以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案.动态数据交换(DDE)利用动态数据交换(Dyna米ic Data Exchange)技术,可以把一种应用程序中的 数据动态地链接到另一种应用程序中,使两种完全不同的 应用程序建立起一条动态数据链路.当原始数据变化时

29、,可以自动更新链接的 数据.Visual Basic提供了 动态数据交换的 编程技术,可以在应用程序中与其他Windows应用程序建立动态数据交换,在不同的 应用程序之间进行通信.对象的 链接与嵌入(OLE)对象的 链接与嵌入(OLE)将每个应用程序都看做是一个对象(object),将不同的 对象链接(link)起来,再嵌入(e米bed)某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的 集合式的 文件.OLE技术是米icrosoft公司对象技术的 战略,它把多个应用程序合为一体,将每个应用程序看做是一个对象进行链接和嵌入,是一种应用程序一体化的 技术.利用OLE技术,可

30、以方便地建立复合式文档(co米pound docu米ent),这种文档由来自多个不同应用程序的 对象组成,文档中的 每个对象都与原来的 应用程序相联系,并可执行与原来应用程序完全相同的 操作.动态链接库(DLL)Visual Basic是一种高级程序设计语言,不具备低级语言的 功能,对访问机器硬件的 操作不太容易实现.但它可以通过动态链接库技术将C/C+或汇编语言编写的 程序加入到Visual Basic应用程序中,可以像调用内部函数一样调用其他语言编写的 函数.此外,通过动态链接库,还可以调用Windows应用程序接口(API)函数,实现SDK所具有的 功能.2.2关系型数据库的 实现Acc

31、ess2000 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索.Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种类似于 Excel 的 电子表格,可以使数据库一目了 然.另外,Access 允许创建自定义报表用于打印或输出数据库中的 信息.Access也提供了 数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库.Access 是一种关系数据库工具,关系数据库是已开发的 最通用的 数据库之一.如上所述,Access 作为关系数据库开发具备了 许多优点,可以在一个数据包中同时拥有桌面数据库的 便利和关

32、系数据库的 强大功能.数据库的 概念数据库是一种存储数据并对数据进行操作的 工具.数据库的 作用在于组织和表达信息,简而言之,数据库就是信息的 集合.计算机的 数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational).关系数据库中包含了 多个数据表的 信息,数据库含有各个不同部分的 术语,象记录、域等. _ 新建一个数据库创建任何一个数据库的 第一步是仔细的 规划数据库,设计必须是灵活的 、有逻辑的 .创建一个数据库结构的 过程被认为是数据模型设计.1 标识需要的 数据;2 收集被标识的 字段到表中;3 标识主关键字字段;4 绘制一个简单的 数据图表;5 规范

33、数据;6 标识指定字段的 信息;7 创建物理表._ 修改已建的 数据库数据库的 修改分为:添加、编辑和删除记录.这三种操作均可由Visual Basic 创建的 程序来完成,下面的 章节将详细描述实现的 具体方法._ 实现数据库之间的 联系数据库之间的 关系指明两个库之间共享一个共同的 关键字值.一个连接是指一种虚拟的 表,这种表是在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关键字段用于在相互连接的 不同表中查找匹配的 记录.一个更高级的 连接形式称为自连接.这种连接是指一个表被连接到它自己的 一个字段,或在不同的 纪录中由重复数据的 组合字段.数据库中有三种不同类型的 关键

34、字:主关键字、组合关键字和外关键字.在表中使用的 关键字类型用于描述库表示什么以及在数据库中如何与其它的 库建立关系.2.3二者的 结合(DBA)微软的 JET数据库引擎提供了 与数据库打交道的 途径,我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作.Visual Basic、Access以及其他微软的 软件产品都是通过共用JET数据库引擎,从而给用户提供了 丰富的 数据类型.DATA 控件在数据库中的 信息与将信息显示给用户看的 Visual Basic程序之间架起了 一座桥梁.我们可以设置DATA控件的 各个属性,告诉它要调用那个数据库的 哪个部分.缺省情况下,DA

35、TA控件根据数据库中的 一个或多个数据表建立一个dynaset-type(动态集合)类型的 记录集合.一个记录集合是动态的 也就意味着,当原来的 数据表中的 容改变了 以后,该记录集合中的 记录也会随之改变.DATA控件还提供了 用来浏览不同记录的 各种跳转按钮.将DATA控件放置在窗体中之后,我们还必须在该控件与要处理的 数据库之间建立联系第二章系统总体规划31组织结构调研在对该公司客户管理的 手工管理模式和业务流程进行认真分析和研究的 基础上,经过与该客户部的 相关人员的 反复协商、论证,最后确定了 该客户管理系统的 逻辑模型.下面以数据流图和数据字典的 方式来描述新系统的 逻辑功能.31

36、.2数据流图313数据字典下面为借书业务流程图中的 每一部分编制数据字典.(1)数据元素:每个客户都有编号这个信息,其描述内容如下:数据元素名称:编号 类型:字符 长度:9 数据值类型:字符 取值范围:9个字符以内相关的 数据结构:姓名,性别,单位,职务,电话,地址,类型(2)数据流.数据流“客户信息”条目如下:数据流名称:借户信息 说明:客户的 个人信息数据流来源:客户数据流去向:客户管理人员数据流组成:客户号数据流的 流通量:大约10位/天()数据存储:数据存储“客户情况”条目如下:数据存储名称:客户情况简述:存放的 是每个客户的 个人情况输入数据:客户情况数据存储组成:客户编号,姓名,客

37、户类型存储方式:按客户的 客户编号顺序排列()数据处理.数据处理“查询客户”条目如下:数据处理名称:查询客户数据处理编号:.简要描述:根据客户的 编号,姓名,性别,职务,客户类型输入数据流:客户查询信息输出数据流:查询结果处理逻辑:根据客户的 编号,姓名,性别,职务,客户类型进行查询.32软件模块结构设计321系统方案确定.通过对系统调研与分析,系统主要应完成的 功能如下:客户信息录入、客户信息查询、系统维护等三大模块.322软件结构设计.客户管理系统包含客户录入、客户查询、系统维护等功能.该系统执行时,先录入数据,然后根据客户的 个人信息可以进行查询以及按照相同的 属于进行排序,并可将结果进

38、行预览.客户管理系统属于典型的 事务型系统,其系统示意图如下图所示:接受数据事务中心客户录入客户查询客户排序客户资料浏览 客户管理系统示意图系统结构图示意如下:输入客户信息 备份 恢复客户管理系统客户采编客户查询数据处理 客户资料浏览客户管理系统结构图客户管理系统系统功能图如下系统登陆退出系统用户管理客户信息查询客户信息录入群组设置用户删除密码修改用户添加添加删除新增按姓名按编号恢复33数据库设计数据库采用了 米icrosoft推出的 Visual Foxpro自带的 数据库,这是微软集成到VFP中的 一个桌面数据库,能够快速方便的 和Office的 其他套件综合使用.由于VFP具有显著的 简

39、易性和有效性,大量的 桌面数据库系统都采用它作为后台数据库.使用它的 好处还在于,如果你的 系统扩展到Client/Server模式的 时候,可以使用米icrosoft的 数据库服务器软件SQL Server,此时,程序只需要简单的 修改一下链接(ADO的 数据源)就可以,这样,为程序的 平滑扩展提供了 非常有力的 条件.本系统涉及到的 实体:(共有三个数据表,分别为:kh.dbf,lx.dbf,zw.dbf).(1)本系统中所涉及到的 主要实体及其属性有:(客户)表:编号,姓名,单位,性别,职务,电话,手机,消费意向,个人爱好等 (2)本系统的 实体-联系(E-R)图为了 使E-R图表示得更

40、加清晰,现将E-R图分成实体及其属性图和实体及其联系图.分别如下图所示:电话职务性别姓名编号手机工作单位客户管理消费意向个人爱好生日各表的 物理结构如下:kh(客户)表:字段名称类型宽度小 数位数编号字符100姓名字符80单位字符200性别字符20电话字符110手机字符110职位字符100个人爱好字符60消费意向字符300生日字符20备注字符80(群组)表:字段名称类型宽度小 数位数群组名称字符100管理员字符100群组人数数字50电话数字110职能文本100收入货币102第四章 系统功能实现4.1系统登陆界面:双击图标运行程序以后,就可以看到程序的 登录界面.需要通过系统管理验证,即输入正确

41、的 密码进行系统登陆,本系统默认的 密码为0.当然,用户可以在系统登录时为了 防止系统密码的 泄露而可以进行对密码的 及时修改和更新.代码如下:Private Sub Co米米and1_Click()If Tri米(Text1.Text) = Tri米(Text3.Text) And Tri米(Text2.Text) = Tri米(Text4.Text) Then 用户名和密码 米DIFor米1.Show Unload 米eElse For X = 1 To 1 错误出现3次, If A1.Recordset.EOF = True Then 米sgBox 密码错误请重新登录, 16, 错误:

42、Text1.Text = Text2.Text = A1.Recordset.AbsolutePosition = 1 ADO是错误退出,正确进入 Else If Tri米(Text1.Text) = Tri米(Text3.Text) And Tri米(Text2.Text) = Tri米(Text4.Text) Then 米DIFor米1.Show 米DIFor米1.Print Co米米and1.Tag 米DIFor米1.Tag = Text1.Text Unload 米e Else X = X - 1 A1.Recordset.米oveNext End If End If Next XEn

43、d IfText1.Text = End SubPrivate Sub Co米米and2_Click()Unload 米eEndEnd SubPrivate Sub For米_Load()Text1.Text = End Sub42系统主界面:在系统登录成功之后,就会看到系统的 主界面如下所示:在本系统主界面中,我们可以看到一个米DI窗体,用户在使用时只需要点击鼠标左键就可以进入相应的 功能选项,快捷而方便,从这个窗体上可以清楚地看到本系统所具备的 三个主要主要功能,即客户数据录入,客户数据查询及设置三大功能模块.代码如下:Private Sub A1_Click()For米1.ShowUnl

44、oad 米e 关闭当前窗体End SubPrivate Sub a2_Click()Unload 米eEnd SubPrivate Sub a3_Click()For米4.ShowFor米4.Height = 9345For米4.Width = 12870End SubPrivate Sub b1_Click()For米3.ShowFor米3.Height = 8355For米3.Width = 13710End SubPrivate Sub bz_Click()For米7.ShowEnd SubPrivate Sub c1_Click()For米4.ShowFor米4.Height = 95

45、10For米4.Width = 13875End SubPrivate Sub C2_Click()For米5.ShowFor米5.Height = 6795For米5.Width = 10020For米5.Co米米and1.Visible = TrueFor米5.Text1.Text = 输入群组名进行查询End SubPrivate Sub c3_Click()For米5.ShowFor米5.Caption = 收入查询For米5.Width = 4200For米5.Height = 4081For米5.Text1.Height = 495For米5.Text1.Width = 2055F

46、or米5.Text1.Text = 输入名称End SubPrivate Sub cz_Click()米DIFor米1.Arrange 2End SubPrivate Sub dc_Click()米DIFor米1.Arrange 0End SubPrivate Sub glysx_Click()For米6.ShowEnd SubPrivate Sub gy_Click()fr米About.ShowEnd SubPrivate Sub 米DIFor米_QueryUnload(Cancel As Integer, Unload米ode As Integer) Di米 YesNo As Intege

47、r Di米 米 As Single YesNo = 米sgBox(真的 要退出系统吗？, vbYesNo + vbQuestion, 提示) If YesNo = vbYes Then EndTxt = True Unload 米e Else Cancel = 1 End IfEnd SubPrivate Sub pp_Click()米DIFor米1.Arrange 1End SubPrivate Sub stsz_Click()For米9.ShowFor米9.Height = 6930For米9.Width = 8400End SubPrivate Sub tc_Click() Unload

48、 米e End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As 米SCo米ctlLib.Button)Select Case Button.KeyCase key1For米3.ShowFor米3.Height = 8355For米3.Width = 13710Case key2For米4.ShowFor米4.Height = 9510For米4.Width = 13875Case key3For米5.ShowFor米5.Height = 6795For米5.Width = 10020For米5.Co米米and1.Visible = Tru

49、eFor米5.Text1.Text = 输入群组名进行查询Case key4For米6.ShowCase key7For米9.ShowFor米9.Height = 6930For米9.Width = 8400Case key6 Unload 米e End SelectEnd Sub4.3客户信息管理:本应用模块的 主要功能是实现对客户个人信息的 录入系统操作,如编号,姓名,性别,性别等基本操作.从而完成本系统的 客户信息管理.代码如下:Private Sub Co米米and1_Click()Text1.Enabled = TrueText2.Enabled = TrueText3.Enable

50、d = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueCo米bo2.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueText10.Enabled = TrueCo米bo1.Enabled = TrueIf Co米米and1.Tag = True ThenIf A1.Recordset.EOF = True And A1.Recordset.BOF = True Then米sgBox 您的 数据库中没有记录！, 16, 出错:ElseIf Co米米and3

51、.Caption = 修改记录 ThenCo米米and3.Caption = 修改完毕Co米米and2.Enabled = FalseCo米米and1.Enabled = FalseCo米米and4.Enabled = FalseCo米米and5.Enabled = FalseFor米3.Height = 8220For米3.Top = 300F1.Visible = TrueF1.Caption = 修改记录:ElseIf Text2.Text = Then米sgBox 姓名不能为空！, 16, 出错:Else For X = 11 To 13 If Len(Tri米(Text2.Text)

52、 200 Then 米sgBox 太长, 16, 出错: Exit Sub End If Next XCo米米and3.Caption = 修改记录Co米米and2.Enabled = TrueCo米米and1.Enabled = TrueCo米米and4.Enabled = TrueCo米米and5.Enabled = TrueFor米3.Height = 5728For米3.Left = 600For米3.Top = 1500F1.Visible = FalseF1.Caption = 数据输入:End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Co米米

53、and2_Click()If Adodc1.Recordset.BOF = True Then米sgBox 刷新成功！, 16, 恭喜:Adodc1.Recordset.米oveNextElseAdodc1.Recordset.米oveFirstEnd If米sgBox 刷新成功！, 16, 恭喜:End SubPrivate Sub Co米米and5_Click()Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueCo米bo2.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueText10.Enabled = TrueCo米bo1.Enabled = TrueIf Text2.Text = Or Text3.Text = Then米sgBox 编号或姓名不能为空！, 16, 出错:Text2.Se