龙飞集团客户关系管理信息系统设计

1、毕业设计（论文）毕业设计（论文）设计（论文）题目：设计（论文）题目：龙飞集团客户关系管理信息系统龙飞集团客户关系管理信息系统重庆邮电大学高等函授毕业设计（专科）任务书重庆邮电大学高等函授毕业设计（专科）任务书第 1 页/共 2 页姓名学号专业计 算 机 信息管理所属站重庆新华电脑学校工作单位重庆新华电脑学校电话通信地址重庆沙坪坝凤鸣山 8 号e-mail 地址设计（或论文）题目龙飞集团客户关系管理信息系统指导教师、指导教师组组长及成员姓名职称工作单位及所从事专业黄超男中级重庆新华电脑学校，软件开发专业方向、技术要求及设计（论文）内容纲要专业方向：管理信息系统的开发技术要求：采用 vb 语言作为

2、开发语言,后台数据库使用 access，利用 vb 和 access数据库相连接，用 vb 语言访问数据库资料。设计内容：采用 vb 作为集成开发技术， access 语言作后台数据库，设计一个完整的信息管理系统客户关系管理系统论文内容：绪论；需求分析；系统总体结构设计；系统测试；运行与维护；总结；结束语；参考文献。本人在该设计中具体完成的工作1.完成调研和资料收集。2.完成龙飞集团客户关系管理信息系统的分析、设计、实现和测试。3.完成论文的撰写。主要参考资料1 余 伟 萍 .计 算 机 管 理 信 息 系 统 开发 与 应 用.成 都 ： 电 子 科 技 大 学 出版社 .1998，p515

3、2萨 师 煊 ,王 珊 .数 据 库 系 统 概 论 （ 第 2 版 ） .北 京 ： 高 等 教 育 出 版社.1991， p2062363新 思 维 创 作 室 visual basic 6.0 编 程 m. 北 京 ， 人 民 邮 电 出 版社1998124何斌 ，等visual basic 6.0 应用 指南m.北京 ：人民 邮电 出版社 ，1998，125安 嘉 莹 ,章 韵 .企 业 进 口 设 备 合 同 管 理 信 息 系 统 .南 京 邮 电 学 院 学 报 .1996,(12),-86-90要求完成报告书的时间：2011 年 5 月 15 日审批意见函授站（盖章）年月日审批

4、意见重邮成教院（盖章）年月日注：第 2 页/共 2 页；本表由指导教师填写一式三份。重庆邮电大学高等函授毕业设计（专科）重庆邮电大学高等函授毕业设计（专科）评定表评定表姓 名秦勇学号10800230专业计算机信息管理所属站重庆新华电脑学校设计（或论文）题目龙飞集团客户关系管理信息系统毕业设计（或论文）的评语：指导教师（签名）年月日备注重庆邮电大学高等函授毕业设计重庆邮电大学高等函授毕业设计( (专科专科) ) 评阅意见表评阅意见表毕业论文题目龙飞集团客户关系管理信息系统评价项目得分选题质量01选题符合专业培养目标，体现综合训练基本要求选题综合得分 （共10 分） ：02题目难易度03题目工作量

5、04理论意义或实际价值能力水平05查阅文献资料能力能力水平综合得分（共 50 分） ：06综合运用知识能力07研究方案的设计能力08研究方法和手段的运用能力成果质量09文题相符论文成果综合得分（共 40 分） ：10写作水平11写作规范12篇幅评阅人评定成绩（共 100 分）评阅人：重庆邮电大学高等函授毕业设计重庆邮电大学高等函授毕业设计成绩总评表成绩总评表姓名秦勇学号10800230专业计算机信息管理所属站重庆新华电脑学校设计（或论文）题目龙飞集团客户关系管理信息系统毕业设计指导委员会意见：根据毕业设计指导教师和评阅教师意见，经成人教育学院高等函授毕业设计指导委员会认真评定，该学员的毕业设计

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

7、高效、可靠、易操作、易维护和开放的设计原则【关键词】【关键词】客户管理信息系统visual basic数据库技术目录目录第一章 绪论.91.1 项目背景.91.2 实行客户管理的企业的业务特点. 91.3 计算机管理客户的必要性. 101.4 编程环境的选择.11第二章 需求分析.142.1 客户管理工作分析.142.2 系统功能描述：.152.3 系统运行流程分析.15第三章系统总体结构设计.173.1 系统功能模块设计.173.2 数据库设计.173.2.1 数据库逻辑结构设计.17第四章 主要模块详细设计.214.1：供应商管理模块设计.214.1.1 供应商管理窗体设计.214.1.2

8、 供应商信息编辑窗体设计. 244.2：购货商管理相关界面设计. 264.2.1：购货商管理窗体设计. 264.2.2：购货商信息编辑窗体设计. 274.2.3：送货地信息编辑窗体设计. 274.3 商业交往管理相关界面设计. 274.3.1：商业交往管理窗体设计. 284.3.2 商业交往信息编辑窗体设计. 294.4 供应商查询报表相关设计. 304.4.1 数据环境设计.304.4.2 数据报表设计.30第五章 系统测试.31第六章运行与维护.326.1 系统试运行.326.2 制定运行和维护的方法.326.3 运行和维护.32第七章总 结.337.1 毕业设计收获.337.2 系统评价

9、.34结束语.35参考文献.36第一章第一章 绪论绪论1.1 项目背景项目背景客户管理是商务运作中极其重要的一部分， 其管理的优劣直接影响商务流程的顺畅。 因此，充足的信息资源、便捷的功能操作是客户管理系统应提供的重要性能。目前，人们往往用传统的人工管理方式结合电子表格来进行客户管理，这种管理方式存在着诸多弊端，如:效率低、保密性差、电子表格容量小，关联性差 ,不易于查询、更新和维护等。如果客户供货，购货，商业交往信息的管理等全过程完全靠人工进行跟踪管理，不仅工作量大，而且难度也非常大，特别是客户管理归口到计划管理科。计划管理科既不管资金的收入和支出也不管货物印发出和入库， 所以对客户的履行情

10、况计划管理科无法掌握， 就更谈不上对客户进行监督和检查。 计划管理科只了解客户的签订情况， 要了解客户的履行情况非常被动，这种人工管理方式远远不能满足现代化管理的需要。随着改革开放的深入，市场竞争日趋激烈，企业必须建立现代化信息管理系统，利用先进的计算机技术，网络技术，建立现代化的网络信息处理系统，实现信息资源共享，提高信息处理能力和速度， 及时准确地提供企业所需的各种信息。 正是利用这一思想将客户管理纳入计算机管理，并设计为多用户，放在计算机网络上运行，并与财务、库房、划价、销售等于系统相互集成，信息共享，实现客户签订、履行、变更到终止等全过程的跟踪管理，并为财务提供资金利用计划，充分利用有

11、限的资金，提高资金利用率。本系统采用 vb 编写，利用 vb 开发数据库程序，与其他开发系统相比，有很大的优越性。在 vb 众多优势中，它在数据库方面的特长显得尤为突出：从客户机/服务器模式到多层数据结构模式； 高效率的数据库管理系统和新一代更先进的数据库引擎； 最新的数据库分析手段和提供大量的企业组件。vb 对关系数据库提供全面的支持，vb 通过数据库访问控件与数据库进行数据交换，并提供丰富的数据控制控件用于显示数据库中各条记录的各个字段， 接受用户对数据的各种更新，使用非常灵活和方便。1.2 实行客户管理的企业的业务特点实行客户管理的企业的业务特点众所周知，当前计算机已经广泛的应用于各个领

12、域，作为与世界交流广泛、信息密集、事务繁多的企业必须有效、科学的管理公司业务。需要客户管理的企业的业务特点是：1企业的业务涉及面广。一方面是客户多，遍及诸多国家若干公司，这些客户既有其固定客户，也有仅是偶尔的业务往来；另一方面是厂家多，这些厂家涉及到各个行业、不同地区、既有公司所属厂，也有联系货源的厂商；2企业的业务环节多。从联系、谈判一直到客户签订，需经过若干次反复磋商、洽谈，由此有一批函电和备忘录需归档。客户签订后，还需组织货源、运输等各环节，由此产生一批单证；3企业的付款方式众多。付款方式有 l/c、pia、o/a、p/p 等，对于某些付款方式，如 l/c（letter of credi

13、t） 、pia（payment in advance）等不存在结汇问题，而对一些象 o/a（open account） 、p/p（partial payment）等可能会出现货已出，但迟迟不能结汇的情况；4企业的费用复杂。每一旦生意从谈判到结束，包括各种函电、差费、正常招待费、运费、交通费、报关费以及贷款利息等费用，要衡量一单生意的盈亏必须将费用扣除。5企业人员的人事变动对业务的影响较大。每个业务员都有自己的固定客户，业务员的调动、离开往往会将客户的有关资料带走，给公司带来一定的损失。1.3 计算机管理客户的必要性计算机管理客户的必要性随着市场的发展，企业向集团化、规模化发展，产品亦趋向于多样

14、化、大量化，客户也相应增加，单靠人工来处理、计算这些客户已显得力不从心。企业信息处理的电子化， 使企业的工作方式发生了变化， 由单个业务员负责联系客户并组织货源的工作方式走向专业化分工，业务员仅联系客户，货源由货源人员专门组织，他们之间通过计算机网络交换信息，在前一种工作方式下，由于业务员既联系客户又负责货源，使其精力分散，不能专心对待客户，业务员之间联系少，经常发生企业对同一供应商的同一种产品有两种以上的收购价格，同一产品发生重复订货，产生商品积压，在后一种方式下，企业人员工作分工专业化， 所有成员通过计算机网络实现信息的交换， 克服了前一种方式的缺点，使企业走向规模经营，从而获得更大的经济

15、效益。利用计算机来管理客户是当前形势所必需的。1 操作上简便。节约业务员的制单时间，在办公自动化方面起到决定性作用；2 能自动提示业务风险。当业务员违规操作或业务存在风险时，管理系统将在有关单据上自动打印出风险内容，以提示注意；3 有预算功能并自动跟踪预算，预算一旦批准，管理程序即为核定。如果在业务执行过程中超预算操作，管理系统应该会向业务员和总经理提示，经批准后方可执行。使得业务预算更有实际意义；4 较完备的统计功能。授权人员可随时统计企业和业务员的进出口额、库存量、费用支出、资金占压、资金周转、资金占压、资金积累、预付货款、逾期未收款、盈亏等数据。5 有较好的容错和检查功能。对于业务员数据

16、输入和修改时所出现的错误能够予以提示。1.4 编程环境的选择编程环境的选择“basic”指的是 basic (beginners all-purpose symbolit instruction code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。visual basic 在原有 basic 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 windows gui 有直接关系。专业人员可以用 visual basic 实现其它任何 windows 编程语言的功能， 而初学者只要掌握几个关键词就可以建立实用的应用程序。何谓 visual basic？“visua

17、l”指的是开发图形用户界面 (gui) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象 add 到屏幕上的一点即可。 如果已使用过诸如 paint 之类的绘图程序， 则实际上已掌握了创建用户界面的必要技巧。visual basic 不仅是 visual basic 编程语言。visual basic 编程系统和 vba 都使用这一语言。visual basic scripting edition (vbscript) 是广泛使用的脚本语言， 它是 visual basic语言的子集。这样，在学习 visual basic 中得到的经验可应用到所有这些领域中。从开发个

18、人或小组使用的小工具，到大型企业应用系统，甚至通过 internet 的遍及全球分布式应用程序，都可在 visual basic 提供的工具中各取所需。1.数据访问特性允许对包括 microsoft access2000 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。2.有了 activex(tm) 技术就可使用其它应用程序提供的功能，例如 microsoft word 字处理器，microsoft excel 电子数据表及其它 windows 应用程序。甚至可直接使用 vbp 或vbe 创建的应用程序和对象。3.internet 能力强大，使得您很

19、容易在应用程序内通过 internet 或 intranet 访问文档和应用程序，或者创建 internet 服务器应用程序。4.已完成的应用程序是使用 visual basic 虚拟机真正 .exe 文件，您可以自由发布。.1 visualvisual basicbasic 版本简介版本简介visual basic 有三种版本，可以满足不同的开发需要。visual basic 学习版使编程人员轻松开发 windows 和 windows nt(r)的应用程序。该版本包括所有的内部控件以及网格、 选项卡和数据绑定控件。 学习版提供的文档有 learnvb now cd 和包含全

20、部联机文档的 microsoft developer network cd。专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及 activex 控件、internet information server application designer、集成的visual database tools 和 data environment、 active data objects、和 dynamic htmlpage designer。专业版提供的文档有 visual studio professional features 手册和包含全部联机文档的 microsof

21、t developer network cd。企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及 back office 工具，例如 sql server、microsoft transaction server、internet information server、visual sourcesafe、sna server，以及其他。企业版包括的印刷文档包括 visual studio enterprise features 手册以及包含全部联机文档的microsoft developer network cd。.2 vbvb 语言的基

22、本特点及语言的基本特点及 vbvb 应用程序的基本持点应用程序的基本持点vb 程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:可视化设计和事件驱动编程.1、可视化设计同其他的一些可视化程序开发工具一样,vb 具有可视化设计的特点,微软的 word 在刚刚进入市场时,同 wps 竞争的一个重要的功能砝码就是所见即所得的字处理功能,vb 在设计应用程序界面时也可以说是所见即所得.在设计时,头脑中所想象的应用程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编制大量的代码然后再编译生成,如果需要修改,也是利用键盘鼠标和手画,而底层的一些程序代码由 vb 自动生成或修改。vb 为用户提

23、供大量的界面元素(在 vb 中称为控件对象),这些控件对象对于熟悉windows 应用程序的用户而言是一点也不陌生,如窗体、菜单、命令按钮、工具按钮、检查框等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。2、事件驱动编程windows 操作系统出现以来,图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的,在使用 vb 设计应用程序时,必须首先确定应用程序如何同用户进行交互.例如发生鼠标单击、键盘输入等事件时,由用户编写控制这些事件的响应,这就是所谓的事件驱动编程。微软公司的 visual basic 6

24、.0 是 windows 应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。visual basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 vb 是一个相对较好的选择。1.4.3 关系型数据库的实现关系型数据库的实现access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 excel 的电子表格，可以使数据库一目了然。另外，acces

25、s 允许创建自定义报表用于打印或输出数据库中的信息。access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。二者的结合（dba）微软的 jet 数据库引擎提供了与数据库打交道的途径， 我们是通过它以及 visual basic 来访问数据库并对其进行各种操作。visual basic、access 以及其他微软的软件产品都是通过共用 jet

26、 数据库引擎，从而给用户提供了丰富的数据类型。data 控件在数据库中的信息与将信息显示给用户看的 visual basic 程序之间架起了一座桥梁。我们可以设置 data 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，data 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。data 控件还提供了用来浏览不同记录的各种跳转按钮。将 data 控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。1.4.4 数据库的介绍

27、数据库的介绍数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之， 数据库就是信息的集合。 计算机的数据库可以分为两类： 非关系数据库 （flat-file）和关系数据库（relational） 。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键字字段；4 绘制一个简单的数据图表；5 规范数据；6 标识指定字段的信息；7 创建物理表。修改

28、已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 visual basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的， 关键字段用于在相互连接的不同表中查找匹配的记录。 一个更高级的连接形式称为自连接。 这种连接是指一个表被连接到它自己的一个字段， 或在不同的记录中由重复数据的组合字段。 数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据

29、库中如何与其它的库建立关系。第二章第二章 需求分析需求分析客户管理系统是用于外联部门管理其日常交往， 有客户管理子系统权限用户可登录进入客户管理系统，进入客户管理子系统之后，用户可以进行供应商管理，购货商管理，商业交往管理， 供应商管理可用于管理供应商信息， 维护这些信息是为了企业采购部门提供供应商信息的基础，购货商管理用于管理购货商的信息，为销售部门提供购货商信息，商业交往管理负责管理企业与客户交往的记录，包括正常的商业往来以及其他各种业务往来。同时用户还可以方便地得到整理后地报表，包括三种查询报表：供应商信息报表，购货商信息报表，商业交往信息报表。通过这三个报表地自动生成和格式化，用户可以

30、更为直观地得到客户交往中地各种信息。2.1 客户管理工作分析客户管理工作分析首先根据客户管理要求的功能确定系统的层次结构，其原则是高内聚、低耦合，即各种功能尽可能独立、完整，相互之间尽量减少交叉。客户管理系统功能有：(1)客户信息以及所签订的客户信息的数据录入到计算机中以数据库的形式存储起来，并对这些数据进行处理；(2)用户可以根据需要进行单项查询和复合查询；(3)用户可以根据需要以各种形式将所需的数据输出打印出来；4)用户可以查阅、修改老客户信息及添加新客户。数据处理有三项功能：输入、修改、删除。输入：当新的客户或旧的客户签订新的客户时，向表单添加新的记录，按整条记录进行输入。修改：能修改客

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

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

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

34、来实现的。管理客户管理子系统的用户管理客户管理子系统所涉及的数据表提供供货商信息提供购货商信息管理外联部门及部门人员客户管理系统流程分析图客户管理子系统与其他 erp 管理子系统之间的关系进入客户管理系统供应商管理购货商管理商业交往管理供应商信息查询供应商信息录入供应商信息修改供应商信息删除购货商信息查询购货商信息录入购货商信息修改购货商信息删除商业交往信息查询商业交往信息录入商业交往信息修改商业交往信息删除供应商查询购货商查询商业交往查询生成供应商查询报表生成购货商查询报表生成商业交往查询报表客户管理子系统系统管理子系统采购管理子系统销售管理子系统人力管理子系统第三章第三章系统总体结构设计系

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

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

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

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

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

40、户交往信息表客户交往信息表 business 用来保存客户交往信息。客户交往信息表通过 businessid 唯一标识。表 business 的结构如表所示：表 deliver字段名称数据类型大小必填字段说明businessid文本30是商业交往编号businessdate文本30是交往日期client文本30否客户名称linkman文本30否联系人businesstype文本30否交往类型amount文本30否涉及金额description文本30否交往描述operator文本30否经手人clienttype文本30否客户类型clientid文本30否客户编号在清楚 businessman

41、表的结构以后， 将在 access2000 的表设计器中创建该表， 设计结果如下：第四章第四章 主要模块详细设计主要模块详细设计4.1：供应商管理模块设计：供应商管理模块设计4.1.1 供应商管理窗体设计供应商管理窗体设计供应商窗体可完成对供应商信息地管理工作， 包括浏览所有的供应商信息， 通过添加， 修改，删除等功能键实现对供应商信息的管理工作， 以便客户管理部门的管理员能够具有一个管理供应商信息的平台。供应商信息编辑窗体则具体完成对供应商信息的添加和修改工作， 如果是添加状态， 则在该窗体上可以添加一个新的供应商资料， 同时当进入窗体为修改状态时， 可以方便地在窗体中修改供应商资料中的各项

42、信息。界面设计新建一个窗体并命名为 frmbusinessman，在这个窗体上设计供应商管理界面，本窗体的设计界面如图所示：该窗体上的主要控件及其属性设置如表所示：对象属性设置formnamefrmbusinessmancaptionerp-客户管理系统startupposition2-屏幕中央borderstyle3-fixed dialoglabelnamelabel1caption供应商信息adodcnameadodc1visiblefalselabelnamelb1addcaption添加labelnamelb1modifycaption修改labelnamelb1deletecapt

43、ion删除labelnamelb1backcaption返回datagridnamedatagrid1此外，在 datagrid1 上单击右键，然后选择编辑属性，可以为 datagrid 添加与数据库中列名对应的列头信息。代码设计：1窗体加载过程窗体加载时自动加载系统用户信息，由 datagrid 显示，代码如下：private sub form_load()adodc1.recordsource = select * from businessmanset datagrid1.datasource =adodc1refresh_businessmanend sub从代码中可见， adodc1

44、 的连接字符串信息将根据系统常量 server、 user 和 password 来填充，这些信息同样也来自设置 ini 文件时获取的参数。adodc1 的 recordsource 为 sql 语句，用于获得 businessman 表中的记录，然后将 datagrid1 的 datasource 设置为 adodc1，这样在datagrid1 中就可以显示 saleman 表中的信息了。2响应添加按钮单击事件：单击添加，将显示供应商信息编辑界面。代码如下：private sub lbladd_click()frmbusinessmanedit.modify = falsefrmbusine

45、ssmanedit.show 1refresh_businessmanend sub通过设置 frmbusinessmanedit 窗体的一个常量 modify 为 false， 表明在 frmbusinessmanedit中将要进行的操作不是修改操作而是添加操作，从而在 frmbusinessmanedit 中可以方便地调用添加操作的相关代码，然后显示供应商信息编辑界面，并将该界面置于最前端，当编辑窗口卸载以后将刷新供应商界面，以便添加的信息能在界面上的 datagrid 中出现。3响应修改按钮单击事件单击修改按钮也将显示供应商信息编辑界面， 不同的是， 在供应商管理界面中当前选定的供应商信

46、息将添加到编辑窗体中。首先表明编辑窗体 modify 为 true， 以标识操作为修改操作， 同时要保存当前的供应商 id，可将其保存在常量 oribusinessmanid 中，然后依次把记录中各个字段信息添加到编辑界面对应位置，待修改操作完成后同样需要刷新窗体，以便 datagrid 中的信息得于更新。private sub lblmodify_click()frmbusinessmanedit.modify = truefrmbusinessmanedit.oribusinessmanid =adodc1.recordset.fields(0)把待修改信息添加到编辑窗口frmbusine

47、ssmanedit.txtbusinessmanid = trim(adodc1.recordset.fields(0)frmbusinessmanedit.txtbusinessmanname = trim(adodc1.recordset.fields(1)frmbusinessmanedit.txtcountry = trim(adodc1.recordset.fields(2)frmbusinessmanedit.txtprovince = trim(adodc1.recordset.fields(3)frmbusinessmanedit.txtcity = trim(adodc1.r

48、ecordset.fields(4)frmbusinessmanedit.txtaddress = trim(adodc1.recordset.fields(5)frmbusinessmanedit.txtlinkman = trim(adodc1.recordset.fields(6)frmbusinessmanedit.txttelephone = trim(adodc1.recordset.fields(7)frmbusinessmanedit.txtfax = trim(adodc1.recordset.fields(8)frmbusinessmanedit.txtbusinessma

49、nid.enabled = falsefrmbusinessmanedit.caption = 修改供应商信息frmbusinessmanedit.show 1refresh_businessmanend sub4相应删除按钮单击事件单击删除按钮将进行删除当前选定供应商信息的操作。private sub lbldelete_click()dim tempbusinessmanid as string保存待删除记录的 idtempbusinessmanid =adodc1.recordset.fields(0)弹出删除确认对话框if msgbox(是否删除“ + adodc1.recordset

50、.fields(1) + ”?, vbyesno, 确认) = vbyesthenmybusinessman.delete (tempbusinessmanid)msgbox 删除成功end ifrefresh_businessmanend sub首先从 adodc1 的记录集中取出供应商编号，然后弹出删除确认框，如果选择确定，则调用mybusinessman 对 象 的 delete 方 法 进 行 删 除 ， 函 数 调 用 参 数 为 储 存 供 应 商 id 的tempbusinessmanid。删除成功后也将更新供应商管理界面。5刷新窗口的函数刷新函数在以上几个函数操作时将被调用，其

51、作用是刷新用于显示的 datagrid 信息，刷新方法是通过刷新 adodc 控件来实现的。private sub refresh_businessman()adodc1.refreshif adodc1.recordset.recordcount = 0 thenlblmodify.enabled = falselbldelete.enabled = falseelselblmodify.enabled = truelbldelete.enabled = trueend ifend sub当 adodc 控件刷新后，将对返回的记录集合进行判断，如果记录集数为 0 则供应商管理界面上的修改按钮

52、和删除按钮将无效， 如果记录集数不为 0 则有效， 这样设置的目的是防止对空记录对象的操作。6响应返回按钮单击事件单击返回按钮将退出窗体private sub lblback_click()unload meend sub4.1.2 供应商信息编辑窗体设计供应商信息编辑窗体设计供应商编辑窗体界面设计新建一个窗体并命名为 frmbusinessmanedit，在这个窗体上设计供应商信息编辑界面，本窗体的设计界面如下图所示：供应商信息编辑窗体代码设计1定义窗体级变量：modify 变量将保存供应商管理界面传递过来的信息，如果是修改操作则 modify 为 true，如果是添加操作则为 false，

53、oribusinessmanid 用于保存待修改的供应商编号信息。public modify as booleanpublic oribusinessmanid as string2相应确定按钮单击事件：单击确定按钮将完成供应商信息编辑操作，这个操作包括添加操作或者修改操作。private sub lblok_click()判断要编辑信息是否完整if check = false thenexit subend if在执行操作之前将调用 check 函数检查信息的完整性，如果 check 函数返回参数为 false 则跳出执行过程，如果信息完整将使用 mybusinessman 对象，以便对数据

54、库进行操作，代码如下：with mybusinessman.businessmanid = txtbusinessmanid.text.businessmanname = txtbusinessmanname.text.country = txtcountry.text.province = txtprovince.text.city = txtcity.text.address = txtaddress.text.linkman = txtlinkman.text.telephone = txttelephone.text.fax = txtfax.text以上代码将供应商界面上信息赋值给了

55、 mybusinessman 对象中的各个参变量，存储编制好的各个字段变量信息，在获取这些信息后将对 businessman 表进行操作，操作代码如下：判断操作是添加还是修改if modify = false then判断为添加操作判断销售员 id 是否已经存在if .in_db(txtbusinessmanid.text) = true thenmsgbox 客户代号重复，请重新设置txtbusinessmanid.setfocustxtbusinessmanid.selstart = 0txtbusinessmanid.sellength = len(txtbusinessmanid)ex

56、it subelse.insert添加msgbox 添加成功end ifelse判断为修改操作.update (oribusinessmanid)msgbox 修改成功end ifend withunload meend sub首先通过判断窗体级变量 modify 的取值来得到操作是修改还是添加，如果是添加操作则首先判断待添加的供应商编号是否已经存在于数据库，判断使用 in_db 方法，如果供应商编号已经存在则必须重新设置，如果不存在则调用 insert 方法完成添加操作，如果判断为修改操作则不用调用 in_db 方法，直接调用 update 方法即可完成修改操作。 检查信息是否完整的 che

57、ck 函数check 函数用于检查编辑完成后的信息是否符合要求，具体到供应商信息的编辑上，必须填写客户代号和客户名称，确保这二项都有信息。private function check() as booleanif trim(txtbusinessmanid) = thenmsgbox 请输入客户代号txtsalesmanid.setfocuscheck = falseexit functionend ifif trim(txtbusinessmanname) = thenmsgbox 请输入客户名称txtbusinessmanname.setfocuscheck = falseexit fun

58、ctionend ifcheck = trueend function 相应取消按钮单击事件private sub lblcancel_click()unload meend sub4.2：购货商管理相关界面设计：购货商管理相关界面设计购货商管理窗体可完成对购货商信息的管理工作，包括浏览所有的购货信息，通过添加，修改， 删除等功能键实现对购货商信息的管理工作， 以便客户管理部门的管理员能够具有一个管理购货商信息的平台。购货商信息编辑窗体则具体完成对购货商信息的添加和修改工作， 如果是添加状态， 则在该窗体上可以添加一个新的购货商资料， 同时当进入窗体为修改状态时， 可以方便地在窗体中修改购货商

59、资料中的各项信息。送货地信息编辑窗体则具体完成对购货商各个送货地点信息的添加和修改工作， 如果是添加状态，在该窗体上可以添加一个新的送货地资料，同时当进入窗体为修改状态时，可以方便地在窗体中修改送货地资料中地各项信息，接下来将介绍这 3 个窗体地创建过程。4.2.1：购货商管理窗体设计：购货商管理窗体设计购货商管理窗体界面设计新建一个窗体并命名为 frmcustomer。在这个窗体上设计购货商管理界面，本窗体地设计界面如下：该窗体上的主要控件及其属性设置如表所示：对象属性设置formnamefrmbusinessmancaptionerp-客户管理系统startupposition2-屏幕中央

60、borderstyle3-fixed dialoglabelnamelabel1caption购货商信息adodcnameadodc1visiblefalselabelnamelb1addcaption添加labelnamelb1modifycaption修改labelnamelb1deletecaption删除labelnamelb1backcaption返回datagridnamedatagrid1此外，在 datagrid1 上单击右键，然后选择编辑属性，可以为 datagrid 添加与数据库中列名对应的列头信息。购货商管理窗体代码设计和供应商管理窗体代码设计中相应控件和事件类似， 这里