[毕业设计精品]龙飞集团客户关系管理信息系统

1、 专科毕业设计（论文）设计（论文）题目：龙飞集团客户关系管理信息系统 入学年月 2010年3月 姓 名 学 号 专 业 计算机信息管理 指导教师 完成日期 2011 年 6 月 20 日毕业设计（专科）任务书第1页/共2页姓名学号专业计算机信息管理所属站工作单位电话通信地址 e-mail地址 设计（或论文）题目龙飞集团客户关系管理信息系统指导教师、指导教师组组长及成员姓名职 称工作单位及所从事专业黄超男中级，软件开发专业方向、技术要求及设计（论文）内容纲要专业方向： 管理信息系统的开发技术要求：采用vb 语言作为开发语言,后台数据库使用access，利用vb和access数据库相连接，用vb语

2、言访问数据库资料。设计内容：采用vb作为集成开发技术， access语言作后台数据库，设计一个完整的信息管理系统客户关系管理系统论文内容：绪论；需求分析；系统总体结构设计；系统测试；运行与维护；总结；结束语；参考文献。本人在该设计中具体完成的工作1.完成调研和资料收集。2.完成龙飞集团客户关系管理信息系统的分析、设计、实现和测试。3.完成论文的撰写。主要参考资料1 余伟萍. 计算机管理信息系统开发与应用 .成都：电子科技大学出版社.1998，p5152 萨师煊,王珊. 数据库系统概论（第2版）. 北京：高等教育出版社.1991，p2062363 新思维创作室visual basic 6.0编程

3、m.北京，人民邮电出版社1998124 何斌，等visual basic 6.0应用指南m.北京：人民邮电出版社，1998，125 安嘉莹,章韵. 企业进口设备合同管理信息系统. 南京邮电学院学报. 1996,(12),-86-90要求完成报告书的时间：2011年5月15日审批意见 函授站 （盖章）年 月 日审批意见重邮成教院（盖章） 年 月 日注：第2页/共2页；本表由指导教师填写一式三份。毕业设计（专科）评定表姓 名学号专业计算机信息管理所属站设计（或论文）题目龙飞集团客户关系管理信息系统毕业设计（或论文）的评语：指导教师（签名） 年 月 日备 注毕业设计(专科) 评阅意见表毕业论文题目龙

4、飞集团客户关系管理信息系统评 价 项 目得分选题质量01选题符合专业培养目标，体现综合训练基本要求选题综合得分（共10分）：02题目难易度03题目工作量04理论意义或实际价值能力水平05查阅文献资料能力能力水平综合得分（共50分）：06综合运用知识能力07研究方案的设计能力08研究方法和手段的运用能力成果质量09文题相符论文成果综合得分（共40分）：10写作水平11写作规范12篇幅评阅人评定成绩（共100分） 评阅人： 毕业设计成绩总评表姓名学号专业计算机信息管理所 属 站设计（或论文）题目龙飞集团客户关系管理信息系统毕业设计指导委员会意见： 根据毕业设计指导教师和评阅教师意见，经成人教育学院

5、毕业设计指导委员会认真评定，该学员的毕业设计总评（四级评分制）成绩为： 毕业设计指导委员会主任： 年 月 日【摘要】在信息时代的今天，计算机参与企业日常业务管理以成为企业现代化建设的当务之急。该客户管理系统的设计开发正是适应了这种要求。本文论述一种适合于中小企业、基于单机版结构模型的客户管理计算机信息管理系统的设计与开发。介绍了系统的实现及软硬件配置。该系统采用vb6.0作为开发工具，access2000作为数据库管理系统。简单介绍了vb6.0的编程环境和其数据库编程技术。在可行性研究和需求分析的基础上，对系统的设计方案、功能模块、接口设计、数据库系统设计和安全设计等进行了较详细的论述。该系统

6、遵循先进、经济、安全、高效、可靠、易操作、易维护和开放的设计原则【关键词】客户管理信息系统 visual basic 数据库技术目录第一章 绪论51.1 项目背景51.2 实行客户管理的企业的业务特点51.3 计算机管理客户的必要性61.4 编程环境的选择7第二章 需求分析102.1 客户管理工作分析102.2系统功能描述：102.3系统运行流程分析11第三章 系统总体结构设计133.1 系统功能模块设计133.2 数据库设计133.2.1 数据库逻辑结构设计13第四章 主要模块详细设计174.1：供应商管理模块设计174.1.1 供应商管理窗体设计174.1.2 供应商信息编辑窗体设计204

7、.2：购货商管理相关界面设计224.2.1：购货商管理窗体设计224.2.2：购货商信息编辑窗体设计234.2.3：送货地信息编辑窗体设计234.3 商业交往管理相关界面设计234.3.1：商业交往管理窗体设计244.3.2商业交往信息编辑窗体设计254.4 供应商查询报表相关设计264.4.1数据环境设计264.4.2 数据报表设计26第五章 系统测试28第六章 运行与维护296.1 系统试运行296.2 制定运行和维护的方法296.3 运行和维护29第七章 总 结317.1毕业设计收获317.2系统评价32结束语34参考文献35第一章 绪论1.1 项目背景客户管理是商务运作中极其重要的一部

8、分，其管理的优劣直接影响商务流程的顺畅。因此，充足的信息资源、便捷的功能操作是客户管理系统应提供的重要性能。目前，人们往往用传统的人工管理方式结合电子表格来进行客户管理，这种管理方式存在着诸多弊端，如:效率低、保密性差、电子表格容量小，关联性差 ,不易于查询、更新和维护等。如果客户供货，购货，商业交往信息的管理等全过程完全靠人工进行跟踪管理，不仅工作量大，而且难度也非常大，特别是客户管理归口到计划管理科。计划管理科既不管资金的收入和支出也不管货物印发出和入库，所以对客户的履行情况计划管理科无法掌握，就更谈不上对客户进行监督和检查。计划管理科只了解客户的签订情况，要了解客户的履行情况非常被动，这

9、种人工管理方式远远不能满足现代化管理的需要。 随着改革开放的深入，市场竞争日趋激烈，企业必须建立现代化信息管理系统，利用先进的计算机技术，网络技术，建立现代化的网络信息处理系统，实现信息资源共享，提高信息处理能力和速度，及时准确地提供企业所需的各种信息。正是利用这一思想将客户管理纳入计算机管理，并设计为多用户，放在计算机网络上运行，并与财务、库房、划价、销售等于系统相互集成，信息共享，实现客户签订、履行、变更到终止等全过程的跟踪管理，并为财务提供资金利用计划，充分利用有限的资金，提高资金利用率。本系统采用vb编写，利用vb开发数据库程序，与其他开发系统相比，有很大的优越性。在vb众多优势中，它

10、在数据库方面的特长显得尤为突出：从客户机/服务器模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据库分析手段和提供大量的企业组件。vb对关系数据库提供全面的支持，vb通过数据库访问控件与数据库进行数据交换，并提供丰富的数据控制控件用于显示数据库中各条记录的各个字段，接受用户对数据的各种更新，使用非常灵活和方便。1.2 实行客户管理的企业的业务特点众所周知，当前计算机已经广泛的应用于各个领域，作为与世界交流广泛、信息密集、事务繁多的企业必须有效、科学的管理公司业务。需要客户管理的企业的业务特点是：1 企业的业务涉及面广。一方面是客户多，遍及诸多国家若干公司，这些

11、客户既有其固定客户，也有仅是偶尔的业务往来；另一方面是厂家多，这些厂家涉及到各个行业、不同地区、既有公司所属厂，也有联系货源的厂商；2 企业的业务环节多。从联系、谈判一直到客户签订，需经过若干次反复磋商、洽谈，由此有一批函电和备忘录需归档。客户签订后，还需组织货源、运输等各环节，由此产生一批单证；3 企业的付款方式众多。付款方式有l/c、pia、o/a、p/p等，对于某些付款方式，如l/c（letter of credit）、pia（payment in advance）等不存在结汇问题，而对一些象o/a（open account）、p/p（partial payment）等可能会出现货已出，

12、但迟迟不能结汇的情况；4 企业的费用复杂。每一旦生意从谈判到结束，包括各种函电、差费、正常招待费、运费、交通费、报关费以及贷款利息等费用，要衡量一单生意的盈亏必须将费用扣除。5 企业人员的人事变动对业务的影响较大。每个业务员都有自己的固定客户，业务员的调动、离开往往会将客户的有关资料带走，给公司带来一定的损失。1.3 计算机管理客户的必要性随着市场的发展，企业向集团化、规模化发展，产品亦趋向于多样化、大量化，客户也相应增加，单靠人工来处理、计算这些客户已显得力不从心。企业信息处理的电子化，使企业的工作方式发生了变化，由单个业务员负责联系客户并组织货源的工作方式走向专业化分工，业务员仅联系客户，

13、货源由货源人员专门组织，他们之间通过计算机网络交换信息，在前一种工作方式下，由于业务员既联系客户又负责货源，使其精力分散，不能专心对待客户，业务员之间联系少，经常发生企业对同一供应商的同一种产品有两种以上的收购价格，同一产品发生重复订货，产生商品积压，在后一种方式下，企业人员工作分工专业化，所有成员通过计算机网络实现信息的交换，克服了前一种方式的缺点，使企业走向规模经营，从而获得更大的经济效益。利用计算机来管理客户是当前形势所必需的。1 操作上简便。节约业务员的制单时间，在办公自动化方面起到决定性作用；2 能自动提示业务风险。当业务员违规操作或业务存在风险时，管理系统将在有关单据上自动打印出风

14、险内容，以提示注意；3 有预算功能并自动跟踪预算，预算一旦批准，管理程序即为核定。如果在业务执行过程中超预算操作，管理系统应该会向业务员和总经理提示，经批准后方可执行。使得业务预算更有实际意义；4 较完备的统计功能。授权人员可随时统计企业和业务员的进出口额、库存量、费用支出、资金占压、资金周转、资金占压、资金积累、预付货款、逾期未收款、盈亏等数据。5 有较好的容错和检查功能。对于业务员数据输入和修改时所出现的错误能够予以提示。1.4 编程环境的选择 “basic”指的是 basic (beginners all-purpose symbolit instruction code) 语言，一种在

15、计算技术发展历史上应用得最为广泛的语言。visual basic 在原有 basic 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 windows gui 有直接关系。专业人员可以用 visual basic 实现其它任何 windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。何谓 visual basic？“visual”指的是开发图形用户界面 (gui) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。如果已使用过诸如 paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技

16、巧。 visual basic 不仅是 visual basic 编程语言。visual basic 编程系统和 vba 都使用这一语言。visual basic scripting edition (vbscript) 是广泛使用的脚本语言，它是 visual basic 语言的子集。这样，在学习 visual basic 中得到的经验可应用到所有这些领域中。从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过 internet 的遍及全球分布式应用程序，都可在 visual basic 提供的工具中各取所需。 1.数据访问特性允许对包括 microsoft access2000 和其

17、它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。2.有了 activex(tm) 技术就可使用其它应用程序提供的功能，例如 microsoft word 字处理器，microsoft excel 电子数据表及其它 windows 应用程序。甚至可直接使用 vbp 或 vbe 创建的应用程序和对象。3.internet 能力强大，使得您很容易在应用程序内通过 internet 或 intranet访问文档和应用程序，或者创建 internet 服务器应用程序。4.已完成的应用程序是使用visual basic 虚拟机真正 .exe 文件，您可以自由发布。 1

18、.4.1 visual basic 版本简介visual basic有三种版本，可以满足不同的开发需要。 visual basic 学习版使编程人员轻松开发 windows 和 windows nt(r) 的应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有 learn vb now cd 和包含全部联机文档的 microsoft developer network cd。专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及 activex 控件、internet information server application de

19、signer、集成的 visual database tools 和 data environment、 active data objects、和 dynamic html page designer。专业版提供的文档有 visual studio professional features 手册和包含全部联机文档的 microsoft developer network cd。企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及 back office 工具，例如 sql server、microsoft transaction server、inte

20、rnet information server、visual sourcesafe、sna server，以及其他。企业版包括的印刷文档包括 visual studio enterprise features 手册以及包含全部联机文档的 microsoft developer network cd。 1.4.2 vb语言的基本特点及vb应用程序的基本持点 vb程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:可视化设计和事件驱动编程.1、可视化设计 同其他的一些可视化程序开发工具一样,vb具有可视化设计的特点,微软的word在刚刚进入市场时,同wps竞争的一个重要的功能砝码就是所见

21、即所得的字处理功能,vb在设计应用程序界面时也可以说是所见即所得.在设计时,头脑中所想象的应用程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编制大量的代码然后再编译生成,如果需要修改,也是利用键盘鼠标和手画,而底层的一些程序代码由vb自动生成或修改。 vb为用户提供大量的界面元素(在vb中称为控件对象),这些控件对象对于熟悉windows应用程序的用户而言是一点也不陌生,如窗体、菜单、命令按钮、工具按钮、检查框等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。2、事件驱动编程windows操作系统出现以来,图形化的

22、用户界面和多任务多进程的应用程序要求程序设计不能是单一性的,在使用vb设计应用程序时,必须首先确定应用程序如何同用户进行交互.例如发生鼠标单击、键盘输入等事件时,由用户编写控制这些事件的响应,这就是所谓的事件驱动编程。微软公司的visual basic 6.0是windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。visual basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统vb是一个相对较好的选择。1.4.3 关系型数据库的实现 access2

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

24、结合（dba）微软的jet数据库引擎提供了与数据库打交道的途径，我们是通过它以及visual basic 来访问数据库并对其进行各种操作。visual basic、access以及其他微软的软件产品都是通过共用jet数据库引擎，从而给用户提供了丰富的数据类型。 data 控件在数据库中的信息与将信息显示给用户看的visual basic程序之间架起了一座桥梁。我们可以设置data控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，data控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改

25、变了以后，该记录集合中的记录也会随之改变。data控件还提供了用来浏览不同记录的各种跳转按钮。将data控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。1.4.4 数据库的介绍数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程

26、被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键字字段；4 绘制一个简单的数据图表；5 规范数据；6 标识指定字段的信息；7 创建物理表。修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由visual basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自

27、己的一个字段，或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。第二章 需求分析客户管理系统是用于外联部门管理其日常交往，有客户管理子系统权限用户可登录进入客户管理系统，进入客户管理子系统之后，用户可以进行供应商管理，购货商管理，商业交往管理，供应商管理可用于管理供应商信息，维护这些信息是为了企业采购部门提供供应商信息的基础，购货商管理用于管理购货商的信息，为销售部门提供购货商信息，商业交往管理负责管理企业与客户交往的记录，包括正常的商业往来以及其他各种业务往来。同

28、时用户还可以方便地得到整理后地报表，包括三种查询报表：供应商信息报表，购货商信息报表，商业交往信息报表。通过这三个报表地自动生成和格式化，用户可以更为直观地得到客户交往中地各种信息。2.1 客户管理工作分析首先根据客户管理要求的功能确定系统的层次结构，其原则是高内聚、低耦合，即各种功能尽可能独立、完整，相互之间尽量减少交叉。客户管理系统功能有：(1)客户信息以及所签订的客户信息的数据录入到计算机中以数据库的形式存储起来，并对这些数据进行处理；(2)用户可以根据需要进行单项查询和复合查询；(3)用户可以根据需要以各种形式将所需的数据输出打印出来；4)用户可以查阅、修改老客户信息及添加新客户。数据

29、处理有三项功能：输入、修改、删除。输入：当新的客户或旧的客户签订新的客户时，向表单添加新的记录，按整条记录进行输入。修改：能修改客户和客户的某些字段内容。删除：当一个客户完成以后，将完成的记录从表中删除，用删除功能即可完成对本记录的删除，并设有“浏览”、“删除”、“确定”、“恢复”等按钮和删除提示窗口。erp系统的客户关系依赖于客户管理系统中提供的客户信息，根据外联部门日常工作的实际要求，系统需要满足以下的需求： 能够方便地管理供应商信息。 能够方便地管理购货商信息。 可以管理浏览客户交往信息。 可以进行供应商信息查询。 可以进行购货商信息查询。 可以进行客户交往信息查询。2.2系统功能描述：

30、供应商管理功能： 供应商信息的录入 供应商信息的修改 供应商信息的删除 供应商信息的查询购货商管理功能 购货商信息的录入 购货商信息的修改 购货商信息的删除 供应商信息的查询商业交往信息管理功能 商业交往信息的录入 商业交往信息的修改 商业交往信息的删除 商业交往信息的查询供应商查询功能 生成供应商信息报表购货商查询功能 生成购货商信息报表商业交往查询功能 生成商业交往信息报表2.3系统运行流程分析进入客户管理系统之后用户可以进行供应商管理，购货商管理，商业交往管理，选择不同的项目将进入其特定的管理界面。系统流程图如图所示：同时，客户还可以方便的得到整理后的报表，包括3种查询报表：供应商信息报

31、表，购货商信息报表，商业交往信息报表。系统模块关系客户关系管理系统与其他erp子系统的关系客户关系管理系统作为erp的一个子系统，是外联部门使用的系统，系统管理子系统负责管理客户管理子系统中所需的数据表并且分配用户权限，客户管理子系统向采购部门子系统提供购货商信息，销售管理子系统提供购货商信息，而人力管理系统则负责管理外联部门人员。各模块之间的关系如下：客户管理子系统内部模块间关系购货商管理和供货商管理完成整个客户管理子系统的基础数据设置和管理，商业交往管理必须在供货商和购货商基础数据中选择客户，以便进行交往信息管理，而报表的生成也将使用调用供货商信息表和购货商信息表中的数据来实现，所以说整个

32、子系统内部模块间的数据传递都是通过数据表的综合调用来实现的。进入客户管理系统供应商信息查询供应商信息录入供应商信息修改供应商管理供应商信息删除购货商信息查询购货商管理购货商信息录入购货商信息修改购货商信息删除商业交往管理商业交往信息查询商业交往信息录入商业交往信息修改商业交往信息删除供应商查询生成供应商查询报表购货商查询生成购货商查询报表商业交往查询生成商业交往查询报表客户管理系统流程分析图管理客户管理子系统所涉及的数据表管理客户管理子系统的用户系统管理子系统提供供货商信息采购管理子系统客户管理子系统提供购货商信息销售管理子系统管理外联部门及部门人员人力管理子系统 客户管理子系统与其他erp管

33、理子系统之间的关系第三章 系统总体结构设计3.1 系统功能模块设计通过前面的功能需求分析，设计如下的功能模块：客户关系管理系统商业交往查询购货商查询供应商查询商业交往管理购货商管理供应商管理 功能模块结构图3.2 数据库设计3.2.1 数据库逻辑结构设计客户管理系统涉及4张数据表：供货商信息表，购货商信息表，购货商送货地信息表以及客户交往信息表。下面介绍这些表的结构。1：供货商信息表购货商信息表businessman用来保存供货商信息。表businessman的结构如表所示：表businessman字段名称数据类型大小必填字段说明businessmanid文本30是供货商代号businessm

34、anname文本30是供货商名称country文本30否国家province文本30否省份city文本30否城市address文本30否地址linkman文本30否联系人telephone文本30否电话fax文本30否传真 供货商代号在erp系统中，通常都要给供货商编制一个代号，这个代号是客户的唯一标识，供货商代号的编制方式可以自己确定，但供货商代号不能重复，否则系统会给出错误提示。 供货商名称在供货商名称字段，用户可以输入客户的简称或全称，一般输入平时业务往来时所用的名称。 国家，省份，城市，地址国家，省份，城市，地址的输入依平时业务要求输入简称或全称，地址一项需输入城市中的区，街道，号码等

35、详细资料。 联络人，电话，传真联络人，电话，传真内容的输入，以平时使用中的信息为准。在清楚businessman表的结构以后，将在access2000的表设计器中创建该表，设计结果如下：2：购货商信息表购货商信息表customer用来保存购货商信息。表customer的结构如表所示：表customer字段名称数据类型大小必填字段说明customerid文本30是购货商代号customername文本30是购货商名称country文本30否国家province文本30否省份city文本30否城市address文本30否地址linkman文本30否联系人telephone文本30否电话fax文本3

36、0否传真 购货商代号在erp系统中，通常都要给购货商编制一个代号，这个代号是客户的唯一标识，购货商代号的编制方式可以自己确定，但购货商代号不能重复，否则系统会给出错误提示。 购货商名称在购货商名称字段，用户可以输入客户的简称或全称，一般输入平时业务往来时所用的名称。 国家，省份，城市，地址国家，省份，城市，地址的输入依平时业务要求输入简称或全称，地址一项需输入城市中的区，街道，号码等详细资料。 联络人，电话，传真联络人，电话，传真内容的输入，以平时使用中的信息为准。在清楚businessman表的结构以后，将在access2000的表设计器中创建该表，设计结果如下：3：购货商送货地信息表购货商

37、信息表deliver用来保存购货商送货地信息。表deliver的结构如表所示：表deliver字段名称数据类型大小必填字段说明customerid文本30是客户代号deliverid文本30是送货地代号country文本30否国家province文本30否省份city文本30否城市address文本30否地址linkman文本30否联系人telephone文本30否电话fax文本30否传真在清楚businessman表的结构以后，将在access2000的表设计器中创建该表，设计结果如下：4：客户交往信息表客户交往信息表business用来保存客户交往信息。客户交往信息表通过businessi

38、d唯一标识。表business的结构如表所示：表deliver字段名称数据类型大小必填字段说明businessid文本30是商业交往编号businessdate文本30是交往日期client文本30否客户名称linkman文本30否联系人businesstype文本30否交往类型amount文本30否涉及金额description文本30否交往描述operator文本30否经手人clienttype文本30否客户类型clientid文本30否客户编号在清楚businessman表的结构以后，将在access2000的表设计器中创建该表，设计结果如下：第四章 主要模块详细设计4.1：供应商管理模

39、块设计4.1.1 供应商管理窗体设计供应商窗体可完成对供应商信息地管理工作，包括浏览所有的供应商信息，通过添加，修改，删除等功能键实现对供应商信息的管理工作，以便客户管理部门的管理员能够具有一个管理供应商信息的平台。供应商信息编辑窗体则具体完成对供应商信息的添加和修改工作，如果是添加状态，则在该窗体上可以添加一个新的供应商资料，同时当进入窗体为修改状态时，可以方便地在窗体中修改供应商资料中的各项信息。界面设计新建一个窗体并命名为frmbusinessman，在这个窗体上设计供应商管理界面，本窗体的设计界面如图所示：该窗体上的主要控件及其属性设置如表所示：对象属性设置formnamefrmbus

40、inessmancaptionerp-客户管理系统startupposition2-屏幕中央borderstyle3-fixed dialoglabelnamelabel1caption供应商信息adodcnameadodc1visiblefalselabelnamelb1addcaption添加labelnamelb1modifycaption修改labelnamelb1deletecaption删除labelnamelb1backcaption返回datagridnamedatagrid1此外，在datagrid1上单击右键，然后选择编辑属性，可以为datagrid添加与数据库中列名对应的

41、列头信息。代码设计： 窗体加载过程窗体加载时自动加载系统用户信息，由datagrid显示，代码如下：private sub form_load()adodc1.recordsource = select * from businessmanset datagrid1.datasource = adodc1refresh_businessmanend sub从代码中可见，adodc1的连接字符串信息将根据系统常量server、user和password来填充，这些信息同样也来自设置ini文件时获取的参数。adodc1的recordsource为sql语句，用于获得businessman表中的记录

42、，然后将datagrid1的datasource设置为adodc1，这样在datagrid1中就可以显示saleman表中的信息了。 响应添加按钮单击事件：单击添加，将显示供应商信息编辑界面。代码如下：private sub lbladd_click()frmbusinessmanedit.modify = falsefrmbusinessmanedit.show 1refresh_businessmanend sub通过设置frmbusinessmanedit窗体的一个常量modify为false，表明在frmbusinessmanedit中将要进行的操作不是修改操作而是添加操作，从而在fr

43、mbusinessmanedit中可以方便地调用添加操作的相关代码，然后显示供应商信息编辑界面，并将该界面置于最前端，当编辑窗口卸载以后将刷新供应商界面，以便添加的信息能在界面上的datagrid中出现。 响应修改按钮单击事件单击修改按钮也将显示供应商信息编辑界面，不同的是，在供应商管理界面中当前选定的供应商信息将添加到编辑窗体中。首先表明编辑窗体modify为true，以标识操作为修改操作，同时要保存当前的供应商id，可将其保存在常量oribusinessmanid中，然后依次把记录中各个字段信息添加到编辑界面对应位置，待修改操作完成后同样需要刷新窗体，以便datagrid中的信息得于更新。

44、private sub lblmodify_click()frmbusinessmanedit.modify = truefrmbusinessmanedit.oribusinessmanid = adodc1.recordset.fields(0)把待修改信息添加到编辑窗口frmbusinessmanedit.txtbusinessmanid = trim(adodc1.recordset.fields(0)frmbusinessmanedit.txtbusinessmanname = trim(adodc1.recordset.fields(1)frmbusinessmanedit.txt

45、country = trim(adodc1.recordset.fields(2)frmbusinessmanedit.txtprovince = trim(adodc1.recordset.fields(3)frmbusinessmanedit.txtcity = trim(adodc1.recordset.fields(4)frmbusinessmanedit.txtaddress = trim(adodc1.recordset.fields(5)frmbusinessmanedit.txtlinkman = trim(adodc1.recordset.fields(6)frmbusine

46、ssmanedit.txttelephone = trim(adodc1.recordset.fields(7)frmbusinessmanedit.txtfax = trim(adodc1.recordset.fields(8)frmbusinessmanedit.txtbusinessmanid.enabled = falsefrmbusinessmanedit.caption = 修改供应商信息frmbusinessmanedit.show 1refresh_businessmanend sub 相应删除按钮单击事件单击删除按钮将进行删除当前选定供应商信息的操作。private sub

47、lbldelete_click()dim tempbusinessmanid as string保存待删除记录的id tempbusinessmanid = adodc1.recordset.fields(0)弹出删除确认对话框 if msgbox(是否删除“ + adodc1.recordset.fields(1) + ”?, vbyesno, 确认) = vbyes then mybusinessman.delete (tempbusinessmanid) msgbox 删除成功 end ifrefresh_businessmanend sub首先从adodc1的记录集中取出供应商编号，然

48、后弹出删除确认框，如果选择确定，则调用mybusinessman对象的delete方法进行删除，函数调用参数为储存供应商id的tempbusinessmanid。删除成功后也将更新供应商管理界面。 刷新窗口的函数刷新函数在以上几个函数操作时将被调用，其作用是刷新用于显示的datagrid信息，刷新方法是通过刷新adodc控件来实现的。private sub refresh_businessman() adodc1.refresh if adodc1.recordset.recordcount = 0 then lblmodify.enabled = false lbldelete.enable

49、d = false else lblmodify.enabled = true lbldelete.enabled = true end ifend sub当adodc控件刷新后，将对返回的记录集合进行判断，如果记录集数为0则供应商管理界面上的修改按钮和删除按钮将无效，如果记录集数不为0则有效，这样设置的目的是防止对空记录对象的操作。 响应返回按钮单击事件单击返回按钮将退出窗体private sub lblback_click()unload meend sub4.1.2 供应商信息编辑窗体设计供应商编辑窗体界面设计新建一个窗体并命名为frmbusinessmanedit，在这个窗体上设计供应

50、商信息编辑界面，本窗体的设计界面如下图所示：供应商信息编辑窗体代码设计 定义窗体级变量：modify变量将保存供应商管理界面传递过来的信息，如果是修改操作则modify为true，如果是添加操作则为false，oribusinessmanid用于保存待修改的供应商编号信息。public modify as booleanpublic oribusinessmanid as string 相应确定按钮单击事件：单击确定按钮将完成供应商信息编辑操作，这个操作包括添加操作或者修改操作。private sub lblok_click() 判断要编辑信息是否完整 if check = false then exit sub end if在执行操作之前将调用check函数检查信息的完整性，如果check函数返回参数为false则跳出执行过程，如果信息完整将使用mybusinessman对象，以便对数据库进行操作，代码如下：with mybusinessman .businessmanid = txtbusinessmanid.text .businessmanname = txtbusinessmanname.tex