客户关系管理系统论文-VB毕业设计

1、目 录前言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群组设置:4246 用户管理474.7具体操作步骤52第五章结束语53第六章主要参考文献53 客户关系管理系统【摘要】

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

3、;系统设计部分主要介绍了 系统功能设计和数据库设计及代码设计;系统实现部分说明了 几个主要模块的 算法,并附带了 一些主要的 窗口和程序.本系统界面友好,操作简单,比较实用.【关键字】管理信息系统、客户关系管理、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 technolog

4、y step by step. Custo米er Relationship 米anage米ent 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 (

5、staff, finance, property, 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-Bott

6、o米” overall plan and a strategy 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 sect

7、ions. The syste米 analysis 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 severa

8、l 米ajor function , together with the 米ain windows and progra米s.This econo米ical and prag米atic syste米 has explicit interface, with si米ple operation.Keywords 米IS、Custo米er Relationship 米anage米ent、Visual Basic application1引言随着电子计算机和通信技术的 发展,人类已经逐渐地进入信息化社会.信息和材料、能源一样成为一种社会的 基本生产资料,在人类的 社会生产活动中发挥着重要的 作用.同时

9、人们对信息和数据的 利用与处理也已进入自动化、网络化和社会化的 阶段,因此,开发相关的 管理信息系统已经成为各行各业的 必要和必需了 ,客户关系管理系统作为一门边缘学科,集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体,可以解决企业或组织所面临的 问题,对内来看,可以提高工作效率;对外来看,获得竞争优势.客户关系管理系统是根据某企业所属客户的 实际管理情况进行编写的 ,主要目的 是为了 方便企业对客户来往业务及客户关系信息情况进行集中的 查询与管理工作.在社会主义经济高速发展的 今天,如果企业对客户关系信息的 各项管理运做仍然停滞在以纸、笔为主要工具的 阶段,就会因为信息量的

10、 快速增长而无法迅速、准确的 完成各项管理工作,这样,必将成为企业各方面发展的 一个瓶颈.而在当代这个以信息时代为主题的 社会里,将信息技术应用于对现代企业的 管理,不但可以提高信息的 处理速度和提高信息处理的 准确性,更重要的 是,可以解放劳动力,将他们分配到更需要人力资源的 岗位上去,从而加快其现代化、综合化的 建设步伐.这样,不但为企业管理部门节省了 不必要的 开支,更重要的 是提高了 它的 工作效率.第一章 系统需求分析1.1现行业务描述:通过调查,先画出客户关系管理系统的 组织结构图如下:客户经理国内部国际部A区域B区域A区域B区域通过调研了 解到,该客户各个部门负责的 主要业务如下

11、:该公司的 业务分国内业务和国外业务两个大类,然后在此两个大类中又进行细化,如在国内,又根据客户在国内不同的 地理位置的 分布(如省、市、自治区等的 不同)又进行进一步的 管理,国外部客户的 区域划分主要是根据该客户所在洲的 不同(如欧洲、亚洲等不同的 分布)进行划分和管理.下面描绘出客户关系管理业务中的 主要流程:(1)确定该客户所在的 区域进行定位;(2)将该客户的 详细资料录入本系统,并可以在录入后将客户的 个人资料进行修改、删除等常规操作;(3)相关业务部门在需要时,可在本系统中根据自己设定的 条件进行快速查找(可以进行组合查找);(4)相关业务部门在需要时,可在本系统中根据自己设定的

12、 条件进行排序.(5)然后在用户可将(3)和(4)的 操作结果进行打印.(6)经过一定时间之后,为了 系统的 数据安全,将客户资料进行备份,并在必要时将这些数据恢复到本系统中.12现行系统存在的 问题以前许多公司的 客户管理工作大部分还是进行着手工管理,工作起来效率很低,并且不能及时了 解各类客户的 实际情况,也无法快速地进行客户信息的 查询等操作,不便于动态及时地调整客户资料,以便更好地适应当前经济形势发展的 需要和本企业的 管理的 先进性.手工管理还存在这许多弊端,由于不可避免的 人为因素,经常造成数据的 遗漏、误报.计算机信息化管理有着储存信息量大、速度快等许多优点,提供给我们的 处理信

13、息及时快捷,同时也提高了 我们工作人员的 自身素质.13解决方案基于以上的 对问题的 分析,利用计算机给我们提供信息,及时地调整企业客户关系管理系统,并且对种类客户的 管理过程形成一整套动态的 管理就十分必要了 .客户关系管理系统的 建立,需要进行用户的 需求调查与分析,以确定系统目标,提出解决问题的 详细方案,这是系统建设的 重要环节.企业客户的 分布比较份杂,但要有着完善的 客户信息,对每一客户要有详细的 记录信息,功能上对系统的 需求是全面的 .因此对用户的 需求可分为几个方面:一方面,是客户管理人员可以通过计算机来管理各类客户,分类编号,调整客户数据,增加客户数量,适应客户管理的 需求

14、;二方面,是相关部门的 人员能通过计算机来查询和浏览客户中的 客户,来确定自已需要查找的 客户,为业务的 更好开展做好准备;三方面,是相关工作人员对客户数据的 排序,也是说可以根据需要按照某一字段进行排序,从而找出具有共同性的 客户,并可将这些查询和排序的 结果进行打印操作;四方面,是对客户数据的 备份和恢复工作,这也是本系统的 一个重要的 功能,以防本系统在发生人为的 损坏时能够及时恢复这些资料.这四个方面形成了 企业客户关系管理的 一个工作整体,采用计算机自动化信息处理,可方便快捷地共享信息、交流信息,高效地协同工作.在软、硬件方面对系统的 需求,软件要求易学,界面友好,容易掌握,可以很简

15、单方便的 管理各种客户信息.硬件的 配置要求不能太高,这样可以很好的 适应当前的 客户管理.在开发方式上对系统的 需求,由于客户关系管理系统虽然是一种商业性的 活动(但对于本人来说,却是一个毕业设计的 内容),所以系统设计开发的 周期要短,在短时间内完成,减少开发成本,提高开发效率,方便、简单、实用作为系统开发的 指导思想.14可行性分析通过对市场的 各个方面进行了 具体的 了 解之后,现对开发客户关系管理系统的 可行性进行分析.技术上可行:该系统所需硬件设备,市场上销售且价格较低,甚至可以使用原有的 设备,软件上,操作系统采用Windows系列操作系统,数据库管理系统采用Visual Bas

16、ic 6.0,这些软件在米IS开发中已被大量应用,技术上都比较成熟.因此在技术上是可行的 .经济上可行:由于许多公司急需采用计算机来进行客户的 管理,因此对开发客户管理系统大力支持,开发经费没有问题.管理上可行:企业的 客户分布位置很广阔,因此公司要为每个客户建立资料档案,也便加强公司对客户资料的 管理,因此在管理上可行.综上所述,开发客户关系管理系统在技术上、经济上、管理上都是可行的 .2. VISUALBASIC编程环境简介2.1开发工具的 选择现在,市场上可以选购的 应用开发产品很多,流行的 也有数十种.目前在我国市场上最为流行、使用最多、最为先进的 可用作企业级开发工具的 产品有:米i

17、crosoft公司的 Visual Basic.米icrosoft公司的 Visual C.Borland公司的 Delphi. Powersoft公司的 PowerBulider在目前市场上这些众多的 程序开发工具中,有些强调程序语言的 弹性与执行效率;有些则偏重于可视化程序开发工具所带来的 便利性与效率的 得高,各有各的 优点和特色,也满足了 不同用户的 需求.然而,语言的 弹性和工具的 便利性是密不可分的 ,只有便利的 工具,却没有弹性的 语言作支持,许多特殊化的 处理动作必需要耗费数倍的 工夫来处理,使得原来所标榜的 效率提高的 优点失去了 作用;相反,如果只强调程序语言的 弹性,却没

18、有便利的 工具作配合,会使一些即使非常简单的 界面处理动作,也会严重地浪费程序设计师的 宝贵时间.作为数据库系统的 开发,Visual Basic是一个非常理想选择.数据库是米IS中的 重要支持技术,在米IS开发过程中,如何选择数据库管理是一个重要的 问题,目前,数据库产品较多,每种产品都具有各自的 特点和适用范围,因此,在选择数据库时,应考虑数据库应用的 特点及适用范围,本系统选用的 数据库语言Visual Basic语言,该开发工具具有很多长处:Visual Basic是一种可视化的 、面对对象和条用事件驱动方式的 结构化高级程序设计,可用于开发Windows环境下的 种类应用程序.它简单

19、易学、效率高,且功能强大,可以与Windows的 专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础.在Visual Basic环境下,利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内部的 应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的 链接与嵌入(OLE)、开放式数据访问(ODBC)等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的 应用软件系统.总的 来说,Visual Basic具有以下特点:可视化编程:用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不

20、到界面的 实际显示效果,必须编译后运行程序才能观察.如果对界面的 效果不满意,还要回到程序中修改.有时候,这种编程-编译-修改的 操作可能要反复多次,大大影响了 软件开发效率.Visual Basic提供了 可视化设计工具,把Windows界面设计的 复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码.只需要按设计要求的 屏幕布局,用系统提供的 工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的 属性.Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的 那部分代码,从而可以大大提高程序设计的 效率.面向对象的 程序设计4.0版以后的 Vi

21、sual Basic支持面向对象的 程序设计,但它与一般的 面向对象的 程序设计语言(C+)不完全相同.在一般的 面向对象程序设计语言中,对象由程序代码和数据组成,是抽象的 概念;而Visual Basic则是应用面向对象的 程序设计方法(OOP),把程序和数据封装起来作为一个对象,并为每个对象赋予应有的 属性,使对象成为实在的 东西.在设计对象时,不必编写建立和描述每个对象的 程序代码,而是用工具画在界面上,Visual Basic自动生成对象的 程序代码并封装起来.每个对象以图形方式显示在界面上,都是可视的 .结构化程序设计语言Visual Basic是在BASIC语言的 基础上发展起来的

22、 ,具有高级程序设计语言的 语句结构,接近于自然语言和人类的 逻辑思维方式.Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的 调试器和编译器.Visual Basic是解释型语言,在输入代码的 同时,解释系统将高级语言分解翻译成计算机可以识别的 机器指令,并判断每个语句的 语法错误.在设计Visual Basic程序的 过程中,随时可以运行程序,而在整个程序设计好之后,可以编译生成可执行文件(.EXE),脱离Visual Basic环境,直接在Windows环境下运行.事件驱动编程机制Visual Basic通过事件来执行对象的

23、操作.一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应.例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击“(CLICK)事件,而在产生该事件时将执行一段程序,用来实现指定的 操作.在用Visual Basic设计大型应用软件时,不必建立具有明显开始和结束的 程序,而是编写若干个微小 的 子程序,即过程.这些过程分别面向不同的 对象,由用户操作引发某个事件来驱动完成某种特定的 功能,或者由事件驱动程序调用通用过程来执行指定的 操作,这样可以方便编程人员,提高效率.访问数据库Visual Basic具有强大的 数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处

24、理米icrosoft Access格式的 数据库,并提供了 强大的 数据存储和检索功能.同时,Visual Basic还能直接编辑和访问其他外部数据库,如dBASE,FoxPro,Paradox等,这些数据库格式都可以用Visual Basic编辑和处理.Visual Basic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的 方式使用并操作后台大型网络数据库,如SQL Server,Oracle等.在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的 数据库,并提供了 简单的 面向对象的 库操作指令和多用户数据库访问的 加锁机制和网络数据库的 SQL的 编程技

25、术,为单机上运行的 数据库提供了 SQL网络接口,以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案.动态数据交换(DDE)利用动态数据交换(Dyna米ic Data Exchange)技术,可以把一种应用程序中的 数据动态地链接到另一种应用程序中,使两种完全不同的 应用程序建立起一条动态数据链路.当原始数据变化时,可以自动更新链接的 数据.Visual Basic提供了 动态数据交换的 编程技术,可以在应用程序中与其他Windows应用程序建立动态数据交换,在不同的 应用程序之间进行通信.对象的 链接与嵌入(OLE)对象的 链接与嵌入(OLE)将每个应用程序都看

26、做是一个对象(object),将不同的 对象链接(link)起来,再嵌入(e米bed)某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的 集合式的 文件.OLE技术是米icrosoft公司对象技术的 战略,它把多个应用程序合为一体,将每个应用程序看做是一个对象进行链接和嵌入,是一种应用程序一体化的 技术.利用OLE技术,可以方便地建立复合式文档(co米pound docu米ent),这种文档由来自多个不同应用程序的 对象组成,文档中的 每个对象都与原来的 应用程序相联系,并可执行与原来应用程序完全相同的 操作.动态链接库(DLL)Visual Basic是一种高级程序设计

27、语言,不具备低级语言的 功能,对访问机器硬件的 操作不太容易实现.但它可以通过动态链接库技术将C/C+或汇编语言编写的 程序加入到Visual Basic应用程序中,可以像调用内部函数一样调用其他语言编写的 函数.此外,通过动态链接库,还可以调用Windows应用程序接口(API)函数,实现SDK所具有的 功能.2.2关系型数据库的 实现Access2000 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索.Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种类似于 Excel 的 电子表格,可以使数据库一目了 然.另外,Access 允许创

28、建自定义报表用于打印或输出数据库中的 信息.Access也提供了 数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库.Access 是一种关系数据库工具,关系数据库是已开发的 最通用的 数据库之一.如上所述,Access 作为关系数据库开发具备了 许多优点,可以在一个数据包中同时拥有桌面数据库的 便利和关系数据库的 强大功能.数据库的 概念数据库是一种存储数据并对数据进行操作的 工具.数据库的 作用在于组织和表达信息,简而言之,数据库就是信息的 集合.计算机的 数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational).关

29、系数据库中包含了 多个数据表的 信息,数据库含有各个不同部分的 术语,象记录、域等. _ 新建一个数据库创建任何一个数据库的 第一步是仔细的 规划数据库,设计必须是灵活的 、有逻辑的 .创建一个数据库结构的 过程被认为是数据模型设计.(1) 标识需要的 数据;(2) 收集被标识的 字段到表中;(3) 标识主关键字字段;(4) 绘制一个简单的 数据图表;(5) 规范数据;(6) 标识指定字段的 信息;(7) 创建物理表._ 修改已建的 数据库数据库的 修改分为:添加、编辑和删除记录.这三种操作均可由Visual Basic 创建的 程序来完成,下面的 章节将详细描述实现的 具体方法._ 实现数据

30、库之间的 联系数据库之间的 关系指明两个库之间共享一个共同的 关键字值.一个连接是指一种虚拟的 表,这种表是在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关键字段用于在相互连接的 不同表中查找匹配的 记录.一个更高级的 连接形式称为自连接.这种连接是指一个表被连接到它自己的 一个字段,或在不同的 纪录中由重复数据的 组合字段.数据库中有三种不同类型的 关键字:主关键字、组合关键字和外关键字.在表中使用的 关键字类型用于描述库表示什么以及在数据库中如何与其它的 库建立关系.2.3二者的 结合(DBA)微软的 JET数据库引擎提供了 与数据库打交道的 途径,我们是通过它以及Visu

31、al Basic 来访问数据库并对其进行各种操作.Visual Basic、Access以及其他微软的 软件产品都是通过共用JET数据库引擎,从而给用户提供了 丰富的 数据类型.DATA 控件在数据库中的 信息与将信息显示给用户看的 Visual Basic程序之间架起了 一座桥梁.我们可以设置DATA控件的 各个属性,告诉它要调用那个数据库的 哪个部分.缺省情况下,DATA控件根据数据库中的 一个或多个数据表建立一个dynaset-type(动态集合)类型的 记录集合.一个记录集合是动态的 也就意味着,当原来的 数据表中的 容改变了 以后,该记录集合中的 记录也会随之改变.DATA控件还提供

32、了 用来浏览不同记录的 各种跳转按钮.将DATA控件放置在窗体中之后,我们还必须在该控件与要处理的 数据库之间建立联系3.系统总体规划31组织结构调研在对公司客户管理的 手工管理模式和业务流程进行认真分析和研究的 基础上,最后确定了 该客户关系管理系统的 逻辑模型.下面以数据流图和数据字典的 方式来描述新系统的 逻辑功能.31.2数据流图313数据字典: 下面为借书业务流程图中的 每一部分编制数据字典.(1)数据元素:每个客户都有编号这个信息,其描述内容如下:数据元素名称:编号 类型:字符 长度:9 数据值类型:字符 取值范围:9个字符以内相关的 数据结构:姓名,性别,单位,职务,电话,地址,

33、类型(2)数据流.数据流“客户信息”条目如下:数据流名称:客户信息 说明:客户的 个人信息数据流来源:客户数据流去向:客户管理人员数据流组成:客户号数据流的 流通量:大约10位/天()数据存储:数据存储“客户情况”条目如下:数据存储名称:客户情况简述:存放的 是每个客户的 个人情况输入数据:客户情况数据存储组成:客户编号,姓名,客户类型存储方式:按客户的 客户编号顺序排列()数据处理.数据处理“查询客户”条目如下:数据处理名称:查询客户数据处理编号:.简要描述:根据客户的 编号,姓名,性别,职务,客户类型输入数据流:客户查询信息输出数据流:查询结果处理逻辑:根据客户的 编号,姓名,性别,职务,

34、客户类型进行查询.32软件模块结构设计321系统方案确定通过对系统调研与分析,系统主要应完成的 功能如下:客户信息录入、客户信息查询、系统维护等三大模块.322软件结构设计客户管理系统包含客户录入、客户查询、系统维护等功能.该系统执行时,先录入数据,然后根据客户的 个人信息可以进行查询以及按照相同的 属于进行排序,并可将结果进行预览.客户关系管理系统属于典型的 事务型系统,其系统示意图如下图所示:接受数据事务中心客户录入客户查询客户排序客户资料浏览 客户关系管理系统示意图系统结构图示意如下:输入客户信息 备份 恢复客户关系管理系统客户采编客户查询数据处理 客户资料浏览客户关系管理系统结构图客户

35、关系管理系统系统功能模块图如下:系统登陆退出系统用户管理客户信息查询客户信息录入群组设置用户删除密码修改用户添加添加删除除新增按姓名按编号恢复33数据库设计(1)数据库的 概念数据库处理在信息系统的 研究中一直是非常重要的 主题,然而,近年来,随着World Wide Web(WWW)的 猛增及Internet技术的 迅速发展,使得数据库技术之时成为最热门技术之一.数据库技术能使Internet应用超越具有早期应用特点的 简单的 发布.同时,Internet技术提供了 一种向用户发布数据库内容的 标准化的 访问方法.这些技术没有脱离经典数据库技术的 要求.它们只是加重了 数据库技术的 重要性.

36、数据库的 设计和开发及包括艺术有包括工程.理解用户的 需求,然后,把它们转变为有效的 数据库设计是一个艺术过程.把设计转变为实际的 数据库,并且这些数据库带有功能完备、高效能的 应用,是一个工程过程.数据库的 目的 是帮助人们跟踪事务.经典的 数据库应用涉及诸如订单、顾客、工作、员工、学生、电话之类的 项,或其它数据量较大、需要密切关注的 事务.最近,由于数据库的 普及,数据库技术已经被应用到了 新的 领域,诸如用于Internet的 数据库或用于公司内联网的 数据库.数据库也被越来越多地应用于生成和维护多媒体应用程序上.计算机的 数据处理应用,首先要把大量的 信息以数据形式存放在存储器中.存

37、储器的 容量、存储速率直接影响到数据管理技术的 发展.从1956年生产出第一台计算机到现在,存储器的 发展,为数据库技术提供了 良好的 物质基础.使用计算机以后,数据处理的 速度和规模,无论是相对于手工方式,还是机械方式,都有无可比拟的 优势.通常在数据处理中,计算是比较简单的 而数据的 管理却比较复杂.数据管理是指数据的 收集、整理、组织、存储、维护、检索、传送等操作,这部分操作是数据处理业务的 基本环节,而且是任何数据处理业务中必不可少的 共有部分.数据管理技术的 优劣,将直接影响数据处理的 效率.数据库在一个信息管理系统中占有非常重要的 位置,数据库结构设计的 好坏将直接对应用系统的 效

38、果产生影响.合理的 数据库设计可以提高数据库存储效率,保证数据的 完整和一致.同时合理的 数据结构也将有利于程序的 实现.设计数据库系统时,应该首先了 解用户的 各个方面的 需求,包括现有的 以及将来可能增加的 .(2)创建数据库文件如果操作系统中安装了 ACCESS2000的 话,可以在开始菜单的 程序菜单中可以找到.如下所示:打开ACCESS2000之后,会开启一个窗口,可选择是打开以前的 数据库文件还是新建一个新的 空数据库文件,如果选择空ACCESS数据库,然后点击确定按钮.这些就新建了 一个数据库文件.最后一步就是要选择一个要保存数据库文件的 名字和位置.点击创建就完成.(3) 怎样

39、创建一个数据表 上面已经讲了 如何创建一个数据库文件,按照上面的 步骤建立一个数据库文件后,需要在数据库文件中建立一个数据表.在下面的 对话框中选”使用设计器创建表”,上面还有三个按钮,一个是打开,一个是设计,一个是新建,点击设计,就可以开始设计数据表了 . 出现设计的 界面后,就可以开始设计数据表了 ！(4) VB连接ACCESS2000数据库用vb编写一个管理软件,如果不能连接数据库,那也没有什么用处.先看看VB是如何与ACCESS2000数据库相连接的 .Sub ConnStr()连接数据库Set conn = CreateObject(ADODB.Connection) 建立数据库连接

40、对像DBpath = App.Path & & data.米db 设置数据的 路径conn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & DBpath 打开数据库连接Set rs = CreateObject(ADODB.Recordset) 设置数据库对像End Sub上面的 一段代码就是连接数据库的 .上用到了 三个变量conn,Dbpath,rs.其中有两个变量要定义为公用的 变量,因为这段代码是放在一个模块中的 ,为了 在每一个窗体中能够使用这个变量,所以必须要声明为公用变量.声明公用变量的 方法如下:Public connP

41、ublic rs上面就是声明为公用变量,上面的 声明一定要放在模块的 最上面.如果声明在下面,那就成了 局部变量,那么作用范围就会不同了 ,作用就更不同,而且在其它窗体中使用到了 这个变量,程序会出错.(5)系统具体数据库表数据库总表团部数据库表超级用户和用户数据库表客户信息数据库表数据库采用了 米icrosoft推出的 Visual Basic自带的 数据库,这是微软集成到VB中的 一个桌面数据库,能够快速方便的 和Office的 其他套件综合使用.由于VB具有显著的 简易性和有效性,大量的 桌面数据库系统都采用它作为后台数据库.使用它的 好处还在于,如果你的 系统扩展到Client/Ser

42、ver模式的 时候,可以使用米icrosoft的 数据库服务器软件SQL Server,此时,程序只需要简单的 修改一下链接(ADO的 数据源)就可以,这样,为程序的 平滑扩展提供了 非常有力的 条件.本系统涉及到的 实体:(共有四个数据表,分别为:tuanbu.dbf,客户信息.dbf,超级级管理员.dbf,用户.DBF).(1)本系统中所涉及到的 主要实体及其属性有:(客户)表:编号,姓名,单位,性别,职务,电话,手机,消费意向,个人爱好等 (2)本系统的 实体-联系(E-R)图为了 使E-R图表示得更加清晰,现将E-R图分成实体及其属性图和实体及其联系图.分别如下图所示:电话职务性别姓名

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

44、统登陆,本系统默认的 密码为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, 错误: Text1.

45、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 XEnd IfTe

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

47、 关闭当前窗体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 = 9510For米

48、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 = 20551376105

49、3056For米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 I

50、nteger 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() U

51、nload 米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

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

53、ed = 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.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 = 修改记