(论文)客户管理系统开发与实现(2013年优秀毕业设计论文)

I 鸿达公司客户管理系统开发与实现 摘 要 本课题所设计的系统能够统一管理与企业相关的客户及其联系人信息。客户 与相关联系人信息是企业最重要的资源之一，通过客户管理系统能够有效地管理 客户信息，提高企业客户管理效率。在此基础之上，进一步展开，才能对客户之 间发生的活动、机会、销售、费用等进行详细管理。本课题实现了基础信息维护 （包括：域信息设置、企业性质设置、企业类型设置、企业资信设置、客户级别 设置、客户满意程度设置） ；客户信息维护（包括：客户信息、联系人信息、业 务往来、发送邮件） ；客户服务(包括客户反馈、客户投诉、客户反馈满意程度分 析、客户投诉满意程度分析） ；客户信息查询（包括：客户信息报表、联系人信 息报表、业务往来报表、客户反馈报表、客户投拆报表） ；辅助工具以及管理模 块，真正实现了客户资源管理的一体化。 关键词：CRM；客户管理系统；MS Sql Server 2005 II The Development And Implementation of Hongda Customer Management System ABSTRACT Designed by the subject to unified management system associated with the enterprise customers and their contact information. Customers with relevant contact information is one of the most important resource, through the customer management system to effectively manage customer information and improve the efficiency of enterprise customer management. On this basis, further to between customer activities, opportunities, sales, management, etc.To achieve this task the maintenance of the basic information(including: domain information settings, the nature of an enterprise set up, business type, business credit establishment, customer-level settings, set the level of customer satisfaction); maintenance of customer information (including: customer information,contact information,business contacts,send e-mail); customer service(including customer feedback,customer complaints,customer satisfaction feedback analysis, satisfaction with the analysis of customer complaints); customer information (including:customer information statements, contact information statements, business reports, customer feedback statements, statements of customer complaints); aids as well as the management module,Customers realize the integration of resource management. Keywords: CRM; Management System Customer;MS Sql Server2005 III 目目 录录 引 言 1 第 1 章 系统分析 2 1.1 需求分析 2 1.2 可行性分析 2 第 2 章 系统设计 5 2.1 设计目标 5 2.2 开发及运行环境 5 2.3 项目规划 5 第 3 章 系统数据库设计 7 3.1 数据库概要设计 7 3.2 数据库物理设计 9 第 4 章 主要功能模块设计 .17 4.1 主窗体设计 .17 4.2 数据模块 .20 4.3 登录模块设计 .21 4.4 客户信息模块 .24 4.5 发送邮件模块 .28 4.6 据库配置模块 .29 第 5 章 系统测试 .31 5.1 鸿达公司客户管理系统单元测试 .31 5.2 鸿达公司客户管理系统集成测试 .36 5.3 测试总结 .37 结束语 38 致 谢 .39 参考文献 40 附录 42 附录 A 文件架构图 .42 附录 B 主要源程序 .44 四川理工学院毕业设计（论文） 1 引 言 在全球一体化、企业互动和以 INTERNET 为核心的时代，企业面临着如何发 展潜在客户，如何将社会关系资源变为企业的销售和发展资源的一系列难办棘手 的问题。在上述背景下，鸿达公司客户管理系统应运而生。本系统本着把握客户 多样化和个性化的特点；以最快的速度响应客户需求；吸引新客户，留住老客户 为原则。即从过去的以产品（Product-Centric）为中心的管理策略转向以客户为中 心的(Customer-Centric)管理理念。系统旨在改善企业与客户之间的关系，建立新 型的运营机制。本系统以企业级的整体客户管理为解决方案，帮助企业建立统一 的客户资源、拓展销售渠道、寻求最佳市场方式、规范企业销售流程、提供科学 分析方法，建立持久的客户体系。其大容量客户数据处理能力，让您的企业从多 渠道收集信息，快速发现核心客户和潜在伙伴，进而给企业带来无限的利润。 以客户为中心的理念在国外兴起于 20 世纪 50 年代，当时很多企业寄希望于 通过改进技术、压缩生产周期、改善内部资源管理来提高生产增长率和利润，但 事实上见效甚微。这样企业开始从强调降低经营成本的供应方发展策略转向了需 求方策略。所谓需求方策略就是指与客户联系更加紧密，从客户关系方面挖掘新 能源的策略，CRM 应运而生。所不同的是，现在计算机可以帮助人们实现这些 看似并不复杂而实际操作起来非常繁琐的工作。试想一下，当我们需要查找一个 客户的电话号码时，只需敲几下键盘，就可以看到客户的详细资料（包括姓名、 公司名称、电话、E-mail 等） ，所有这些都是一个完善的鸿达公司客户管理系统 所能完成的。 胡勇：鸿达公司客户管理系统开发与实现 2 第 1 章 系统分析 现已确定系统开发的目标，系统需求规格。确定软件系统的总体结构，给出 系统中各个组成模块间的联系。划分功能模块，将软件功能需求分配给所有单元 模块。下一步工作就是在上述结果基础上，考虑怎样实现这个软件系统。 1.1 需求分析 根据市场的需求，要求系统具有以下功能： 完全人性化设计，无需专业人士指导，即可使用该系统。 由于该系统的使用对象多，要求有较好的权限管理。 系统具有数据备份及数据还原功能。能够保证系统数据的安全性。 方便的全方位的数据查询。 强大的报表打印功能。 在相应的权限下，删除数据方便简单，数据稳定性好。 强大的图表分析功能。 退出系统。 1.2 可行性分析 当接到客户管理系统开发任务，就进入客户管理开发的第一个阶段，即进行 可行性的研究。并不是所有问题具有简单的解决办法，许多问题不能在预定的规 模之内解决。因此通过可行性的研究分析可以知道问题。 有可行性的解决方法，可以避免人力、物力和才力的浪费。在初步调查的基 础上就可以提出系统目标，这是系统开发和评价的依据。系统目标应充分体现， 直接为客户管理系统服务，并且，程序可以分期分批实现。但是，需要指出的是， 系统目标是不可能在总体规划阶段就提得非常具体，它还将在开发过程中逐步明 确和定量化。以达到更加出色的程序系统。可是，目标的提法不尽相同，例如： 提高客户管理效率，减轻劳动强度； 提高客户和联系人信息处理速度和准确性； 为客户管理人员提供更方便、科学的服务项目。 系统的目标确定后，就可以从以下两方面对能否实现新系统目标进行可行性 分析： 四川理工学院毕业设计（论文） 3 一技术可行性 Borland 公司的 Delphi 是一个非常优秀的数据库应用系统前端开发工具。这 是由于 Borland Delphi 自 1995 年 2 月诞生 Version 1.0 以后，1996 年 3 月， Borland Delphi ClientServer Suite 2.0 以其高效的数据重用功能得以在美国国家 软件测试实验室进行的软件评估中获得了最高评价。随后，Borland 又推出 Delnhi 的第三代版本Delphi 3.0 多层 ClientServer 的 32 位快速开发工具。 数据库应用系统是一种应用计算机技术完成数据处理的计算机应用系统，数 据处理则指对各种形式的数据进行采集、存储、加工和传播的一系列活动的总和。 进行数据处理的目的是为了从大量原始数据中获得对人类社会活动有价值的信息， 以作为行动和采取对策的依据。 因此，开发数据库应用系统需要选择一种数据库管理系统；然后，在其支持 之下建立数据库；最后，使用一种开发工具编制数据库应用程序。鸿达公司客户 管理系统所采用的 Borland Delphi 就是一种可用于编制数据库应用程序的开发工 具。 采用二层 C/S 模式的数据库应用系统具有良好的应用性能，尤其适用于基于 区域网络的网络数据库应用系统环境。在 C/S 模式数据库应用系统中，数据库服 务器端的 DBMS 可以在多种产品中选用一种，常用的可以有：Microsoft SQL Server，Oracle，SyBase，Informix 等等。鸿达公司客户管理系统将以 Microsoft SQL Server 作为数据库管理信息系统。 所谓 Delphi 数据库应用系统是指，应用 Delphi 作为数据库应用系统前端程 序开发工具形成的数据库应用系统。实际上，Delphi 以面向对象的观点、可视化 操作界面，提供开发 C/S 模式数据库应用系统的有效支持工具。Delphi 在 Windows 操作系统环境下运行，提供两个版本供选择，标准版本和客户/服务器版 本。应用 Delphi 开发数据库应用系统过程中，需要设置数据库访问和操作功能时， 最基本的方法是使用 Dephi 提供的数据库操作控件。应用这些数据库操作控件， 可以构建形成最基本的 Dephi 数据库应用系统功能。 常用的数据库操作控件分别位于 Borland Dephi 可视化设计界面的三个组件页 面上：ADO 组件页（ADO） 、数据访问组件页（Data Access）和数据控制组件页 （Data Controls） 。每一个组件页上汇集着一些具有相关功能的控件，当需要选用 某一个控件时，应该先选定对应的组件页，然后在组件页上选取所需要的控件。 胡勇：鸿达公司客户管理系统开发与实现 4 本系统开发环境为 Delphi 7.0，数据库为 SQL Server 2005 数据库。Delphi7 是用来快速开发 Windows 应用程序的应用程序开发工具，可以直观地使用图形化 工具来创建 Windows 的应用程序。SQL Server2005 是 Microsoft 公司推出的基于 客户/服务器（C/S）模式的数据库系统，它提供了强大的企业数据库管理功能， 是目前世界上的几个主流数据库管理系统之一。 二运行可行性 系统的研制和开发是充分得考虑工作人员对人事信息的易于管理，管理者方 便查询设备信息效率。从而在开发时我们用可视化界面，用户只需根据界面上的 指示进行操作。 四川理工学院毕业设计（论文） 5 第 2 章 系统设计 2.1 设计目标 本系统属于小型的数据库系统，为了对中小型企业客户的管理，实现一些初 步的计算机化的管理。通过本系统可以达到以下目标： 灵活的运用表格批量输入数据，使信息传递更快捷。 系统采用人机对话方式，界面美观友好、信息查询灵活、方便、快捷、准确、 数据存储安全可靠。 实现各种记录查询。 操作员可以随时修改自己的口令。 管理员可以设置操作员的权限 对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。 数据保密性强，为每个用户设置权限级别。 系统最大限度地实现了易安装性、易维护性和易操作性。 2.2 开发及运行环境 系统开发平台：Delphi 7.0。 数据库管理系统软件：SQL Server 2005。 运行平台：Windows xp/ Windows 2000。 分辨率：最佳效果 1024*768。 2.3 项目规划 鸿达公司客户管理系统是一个典型的数据库开发应用程序，由基础信息维护、 客户信息维护、客户服务、客户信息查询、打印报表、辅助工具、系统管理等模 块组成，规划系统功能模块如下： 基础信息维护模块 该模块主要负责区域信息设置、企业性质设置、企业类型设置、企业资信设 置、客户级别设置、客户满意程度设置。 客户信息维护模块 该模块主要负责客户信息、联系人信息、业务往来、发送邮件（包括邮件群 发设置）。 胡勇：鸿达公司客户管理系统开发与实现 6 客户服务模块 该模块主要负责客户反馈、客户投诉、客户反馈满意程度分析、客户投诉满 意程度分析。 客户信息查询模块 该模块主要负责客户信息查询、联系人信息查询、根据客户反馈满意程度查 询、根据客户投诉满意程序查询、客户反馈查询、客户投诉查询。 打印报表模块 该模块主要负责客户信息报表、联系人信息报表、业务往来报表、客户反馈 报表、客户投拆报表。 辅助工具模块 该模块主要负责调用 word、调用 Excel、计算器、登录 Internet、工作业务 备忘、国内主要城市区号邮编查询。 系统管理模块 该模块主要负责操作员管理（包括权限设置与密码修改）、查看日志（包括 日志清理）、数据备份与数据恢复、系统数据清理。 图 2.1 系统功能架构图 四川理工学院毕业设计（论文） 7 第 3 章 系统数据库设计 数据库设计是整个软件开发的核心，数据库设计的合理否关系到整个软件的 运行效率以及后期的可维护性与可操作性。数据库设计主要分为：数据库的概要 设计与数据库的物理设计两个方面。 3.1 数据库概要设计 在信息世界中，信息从客观事物出发流经数据库，通过决策机构最后又回到 客观世界，信息的这一循环经历了三个领域：信息世界，数据世界，现实世界。 现实世界的事物反映到人的头脑中，人的大脑对它有个认识过程，经过分析（选 择、命名、分类等）进入信息世界。这些信息再进一步加工、编码，然后进入数 据世界，而软件系统的开发工作需要考虑这两个方面的问题，也就是要考虑系统 开发所需要的数据，以及如何对这些数据进行操作。这两个问题贯穿了整个软件 系统的开发过程，这也就是数据库的设计问题，软件设计的一个核心。 下面给出鸿达公司客户管理系统的数据库概念模型（使用 Power Designer 设 计）： 图 3.1 联系人信息，客户反馈与客户满意度实体图 图 3.2 客户反馈与客户投诉实体图 联系人信息 联系人编号 企业名称 联系人姓名 联系人性别 出生年月 联系人年龄 联系人职位 联系人办公电话 联系人邮件 联系人手机 个人简介 登记日期 信息登记人 备注 Variable characters (20) Variable characters (40) Characters (30) Characters (5) Date begin FRM_YHDL.ShowModal; / 调用登录窗体 if dl 0 then / 存在此用户记录 begin yhmc := FieldByName(user_name).AsString; for p := 1 to 31 do begin ppl := inttostr(p); ap:= booltostr(frm_dm.se_se_user.FieldByName(ppl).AsVariant,True); end; if jj = 1 then begin frm_yhdl.close; frm_main.Show; frm_Main.StaBar.Panels.Items1.Text := 操作员名称： + yhmc; end else begin frm_yhdl.close; frm_main.Show; frm_Main.StaBar.Panels.Items1.Text := 操作员名称： + yhmc; end; end else begin showmessage(操作员名称，密码或操作员级别不正确+#13+请重新 输入.); ed_name.Clear; 四川理工学院毕业设计（论文） 25 ed_password.Clear; cb_jb.ItemIndex := 0; ed_name.SetFocus; dl := dl + 1; /登录次数加 1 end; end; if jj then begin TIdAttachment.Create(IdMessage1.MessageParts,edFj.Text); end; Self.IdSMTP1.AuthenticationType := atLogin; Self.IdSMTP1.Username := trim(edYfmc.Text); Self.IdSMTP1.Password := Trim(EdMm.Text); Self.IdSMTP1.Host := trim(edYjfwq.Text); try Self.IdSMTP1.Connect(); try Self.IdSMTP1.Send(IdMessage1); ShowMessage(E-Mail 已经发送成功!); finally Self.IdSMTP1.Disconnect; end; except On e:exception do begin ShowMessage(E-Mail 发送失败: + E.Message); end; end; end; end; 四川理工学院毕业设计（论文） 31 4.6 据库配置模块 “数据库配置模块”主要完成的功能是当用户在不同的计算机上附加上鸿达 公司客户管理系统的数据库后，不用去改源代码来连接数据库，软件在启动时会 自动检测，若初始用户与密码还有主机名连接不到本机数据库，就会弹出这个窗 口，让用户输入本机数据库的用户名与密码以及数据库服务器名称。这样有助于 软件的灵活性与健壮性。 程序相关代码： “确定”按钮的单击事件代码如下： procedure Tfrm_ljfwq.b_okClick(Sender: TObject); var zdszininame,ado:string; zdszini:tinifile; begin ado:=Provider=SQLOLEDB.1;Password=+trim(ed_mm.Text)+;Persist SecurityInfo=True;UserID=+trim(ed_yh.Text)+;Initial Catalog=+trim(ed_sjk.Text)+;Data Source=+trim(ed_server.Text); zdszininame:=ExtractFilePath(Application.exename)+connect.ini; zdszIni:= TIniFile.Create(zdszininame); zdszini.writeString(system,ado,ado); Application.MessageBox(保存成功，请重新运行程序！,提示信息 ,0+64); application.Terminate; end; 胡勇：鸿达公司客户管理系统开发与实现 32 第 5 章 系统测试 当一个系统所有分析与编码完成后就进入了系统的测试阶段了，作为一个成 品系统,系统的测试也是一个关键的环节,在测试阶段,我们将尽可能的找出系统的 逻辑与语法错误，修补系统存在的 Bug，做好系统的测试工作才能保证让用户用 到一个安全、快速、便捷与高效的客户管理系统。 鸿达公司客户管理系统测试的主要内容为：系统的单元测试与整个系统的集 成测试。 系统的单元测试主要目的是： 1.测试各个功能模块是否运行正确。 2.各个模块功能是否已经完全实现。 系统的集成测试主要目的是： 在运行可能是不完整的应用，保证软件单元被结合后能正常操作的测试执行 的阶段。 5.1 鸿达公司客户管理系统单元测试 单元测试集中检测软件设计的最小单元模块，通常单元测试和编码属于 软件过程的同一个阶段.在编写出源代码并通过了编译的语法检查后，就可以用详 细设计描述作指南，对重要的执行通路进行测试，以便发现模块内部的错误。可 以应用人工测试和计算机测试这样两种不同类型的测试方法，完成单元测试工作。 这两种测试方法各有所长，互相补充，通常单元测试主要使用白盒测试技术。而 且对多个模块的测试可以并行进行。 当然对于本系统,我们采用人工测试方法进行单元测试，由于模块太多，要是 一一在此都体现出测试报告，有点不太合适，所以只在此列三个模块的测试报告。 一.系统登录测试。 主要目的：测试是否可以正确登录，如果可以，那么正确登录后,系统是否可 以通过登录时用户所选择的”级别”而进行相应的权限控制。 1以超级管理员登录系统。 用户名:hy，密码:123，级别:高级用户，如图 5.1 系统登录测试，进入系统后 测试各个模块是否都拥有相应权限. 四川理工学院毕业设计（论文） 33 图 5.1 系统登录测试 通过各个模块测试，可知该用户拥有所有权限. 2.以普通用户登录系统 用户名:test，密码:123456，级别：普通用户，进行系统后，选择一个功能模 块，系统就会提示用户“对不起，你的权限不够，请用管理员联系!”的提示信息， 如图 5.2 普通用户登录测试： 图 5.2 普通用户登录测试 胡勇：鸿达公司客户管理系统开发与实现 34 企业性质设置 单击“基础信息”“企业性质设置” ，打开“企业性质设置”窗口。 “添加”功能： 单击“添加”按钮，其它相应按钮置为不可用状态，适合要求。添加一条 “企业性质” 。可以看到， “企业性质编号”在自动增加，并用户不可更改，这样 就可以保证数据的一至性，防止用户错误的输入，而使软件的可用性与稳定性降 低。 输入“企业性质名称”与“备注信息”后单击“保存”按钮后，其它相应按 钮变为可用状态，并且提示用户“保存成功” ，符合需求分析时的要求。如图 5.3 企业性质的添加： 图 5.3 企业性质的添加 单击确定，就可以在“企业性质列表”中看到新添加的信息。 2.：“删除”功能 四川理工学院毕业设计（论文） 35 选中一条“企业性质”信息，单击“删除”按钮，相应按钮可用状态改变， 然后再单击“保存”按钮。弹出提示“保存成功” ，可以在“企业性质列表“中 看到，被删除的信息已经不存在。 3.“修改”功能 选中一条“企业性质”信息，单击“修改”按钮，相应按钮可用状态改变， 修改相应信息后，单击”保存”按钮，相应按钮可用性状态改变，系统弹出”保存成 功”，可以在”企业性质列表”中看到被修改的企业性质。 4.“查询”功能 单击“查询”按钮，打开“查询”提示框，如图 5.4 企业性质的查询： 图 5.4 企业性质的查询 在“请选择企业性质名称”的列表中，选择一条“性质名称” ，单击”查询”按 钮后，就会在“企业性质设置”中相应其对应的信息，同时”查询”提示框消失.如 果用户没有选择已有的“企业性质名称” ，而自己输入一个不存在的“企业性质 名称” ，那么系统就会做出相应的提示，并且把数据移动到第一条记录以便显示， 如图 5.5 企业性质查询不存在： 胡勇：鸿达公司客户管理系统开发与实现 36 图 5.5 企业性质查询不存在 5.“第一条”功能 单击“第一条”按钮，就会显示”第一条“企业性质”信息，如果已经到第 一条，则所显数据就不会有变化。 6.“上一条”功能 单击“上一条”按钮，如果当前数据不是第一条，就会向上移动一条数据。 7.“下一条”功能 单击“下一条”按钮，如果当前数据不是最后一条，就会向后移动一条数据。 8.“末一条”功能 单击”末一条”按钮，就会显示最后一条“企业性质”信息，如果已经到了最 后一条，则所显信息不会变化。 三.“联系人信息报表”模块 四川理工学院毕业设计（论文） 37 单击“打印报表”“联系人信息报表” ，打开“联系人信息报表”窗口， 在这儿可以打印“联系人信息报表” ，如果联系人比较多，就会分布显示，如图 5.6 联系人信息报表。 图 5.6 联系人信息报表 5.2 鸿达公司客户管理系统集成测试 集成测试是测试和组装软件的系统化技术，例如，子系统测试限使在把模块 按照设计要求组装起来的同时进行测试，主要目标是发现与接口有关的问题(系统 测试与此类似)。例如，数据穿过接口时可能丢失；一个模块对另一个模块可能由 于疏忽而造成有害影响；把子功能组合起来可能不产生预期的主功能；个别看来 是可以接受的误差可能积累到不能接受的程度；全程数据结构可能有问题等等。 不幸的是，可能发生的接口问题多得不胜枚举。 通过前面的模块测试，可以发现软件的各个模块的功能都已实现，并错误提 示以及用户的友好性方面做得都比较不错，现在就看看各个模块的功能组合是否 完美。 1.添加一条“客户信息” ，保存成功后，再在“打印报表”中选择“客户信息 报表” ，看看刚刚添加的客户信息是否存在在报表中。通过试验可以看到，对应 成功。 胡勇：鸿达公司客户管理系统开发与实现 38 2对于各个操作，看是否系统做了记录，打开“系统管理”“查看日志” ， 打开“查看日志”窗口，单击查看日志按钮，可以看到我们做了都做了那些操作， 如图 5.7 所示。 图 5.7 系统日志查看 5.3 测试总结 经过以上的测试，系统总体来说运行稳定，界面友好性方面都基本能得到满 足，本系统主要是用 Delphi 做界面，而后台用 Sql Server 2005，写了大量的存储 过程，这样的好处很多，比如：如果有的功能改变了，可以不用更改应用程序， 而直接去修改存储过程，并且存储过程由强大的 MS SQL Server 管理，性能，安 全性方面不容置疑，不仅可以减小网络流量，而且在数据库方面更能体现模块化 的程序设计。 当然本系统也有不足之处，比如：数据库的概念设计等不佳，容易产生重复 数据，这些在以后软件开发生涯中都会好好注意的。 四川理工学院毕业设计（论文） 39 结束语 经过两个多月的设计和开发，基于 Delphi 的鸿达公司客户管理系统基本开发 完毕。其功能基本符合需求。鸿达公司客户管理系统主要就是管理企业掌握的客 户以及相关的联系人，实现对客户和客户相关联系人进行更新、查看、添加操作 让企业在第一时间内得到客户最新的消息。通过所查阅的书刊和网页，了解了客 户管理在现代企业管理中给企业所带来的便利，降低了企业的成本、提高了效率、 改善了企业的服务，客户管理是以客户为中心的一个管理系统。与此同时在部分 书中得了鸿达公司客户管理系统的总体设计框架与设计思想。由于本课题是面向 企业内部管理人员所设计，所以在设计数据库时作者用 SQL Server2005 来做数据 库，来适应公司里的管理人员、财务人员、销售人员、行政人员操作。 通过对该系统的开发，使作者将课本学习与实际应用结合起来，在实际问题 的解决中，培养独立思考的能力和勇于创新的精神，并从中学到许多知识，如现 在用 Delphi 开发一些中小型的软件基本没有什么问题，特别是应用数据库的存储 过程来做相应控制的开发有了更深入的理解，同时也加深了对软件设计过程的了 解，为以后的工作打下了坚实的基础。 但是由于毕业设计时间较短，所以该系统还有不尽如人意的地方，比如每次 数据库的关联性设计得不佳，界面还有待美化等。 胡勇：鸿达公司客户管理系统开发与实现 40 致 谢 在本次的毕业设计中，通过指导老师的耐心指导作者学会了如何利用 Delphi 开发一个中小型系统，感谢指导老师在理论和实践上给作者的帮助，老师认真负 责的工作态度和严谨的治学精神都使作者收益匪浅。与此同时作者也感谢身边的 同学和朋友提供给作者的一些资料，在这些资料帮助下这次毕业设计才能够顺利 完成。 另外，还要感谢同学四年来对作者的关心与支持，感谢各位 老师在学习期间对作者的严格要求。同时也要感谢身边朋友的热心帮助，没 有你们的支持与关心，就没有作者今天的毕业设计！ 四川理工学院毕业设计（论文） 41 参考文献 1 JSP 数据库系统开发完全手册M. 北京：人民邮电出版社，2006.3 2 Delphi 数据库系统开发完全手册M. 北京：人民邮电出版社，2006.3 3 Visual Basic 数据库系统开发完全手册M. 北京：人民邮电出版社， 2006.3 4 Visual C+数据库系统开发完全手册M. 北京：人民邮电出版社， 2006.3 5 王国辉JSP 信息系统开发实例精选M. 北京：机械工业出版社， 2005.7 6 宋坤Visual Basic 信息系统开发实例精选M. 北京： 机械工业出版社， 2005.7 7 宋昆SQL Server 数据库开发实例解析M. 北京：机械工业出版社， 2006.1 8 李俊民Access 数据库开发实例解析M. 北京： 机械工业出版社， 2006.1 9 赛奎春Visual Basic 精彩编程 200 例M. 北京： 机械工业出版社， 2003.1 10 李严ASP 数据库开发实例解析M. 北京： 机械工业出版社，2004.12 11 宋坤Delphi 工程应用与项目实践M. 北京： 机械工业出版社， 2005.1 12 高春艳VB 工程应用与项目实践M. 北京： 机械工业出版社， 2005.1 13 张雨Visual C工程应用与项目实践M. 北京： 机械工业出版 社， 2005.1 14 陈威JSP 工程应用与项目实践M. 北京： 机械工业出版社，2005.2 15 王国辉ASP 工程应用与项目实践M. 北京： 机械工业出版社， 2005.4 16 高春艳Visual Basic 信息系统开发实例精选M. 北京： 机械工业出 版社，2005.7 17 王国辉ASP 信息系统开发实例精选M. 北京： 机械工业出版社， 2005.7 胡勇：鸿达公司客户管理系统开发与实现 42 18 宋坤Delphi 信息系统开发实例精选M. 北京： 机械工业出版社， 2005.7 19 周桓Visual foxpro 数据库开发关键技术与实例应用M. 北京：人民邮 电出版社，2004.5 20 刘志铭PoweBuilder 数据库开发关键技术与实例应用M. 北京：人民 邮电出版社，2004.5 21 赛奎春Delphi 数据库开发关键技术应用M. 北京：人民邮电出版社， 2004.5 22 高春艳VB 数据库开发关键技术应用M. 北京：人民邮电出版社， 2004.5 23 明日科技Visual C+ 管理信息系统完整项目实例剖析M. 北京：人 民邮电出版社，2005.7 24 明日科技Visual Basic 管理信息系统完整项目实例剖析M. 北京：人 民邮电出版社，2005.7 25 明日科技PowerBuilder 管理信息系统完整项目实例剖析M. 北京： 人民邮电出版社，2005.7 26 明日科技Visual FoxPro 管理信息系统完整项目实例剖析M. 北京： 人民邮电出版社，2005.7 27 赛奎春Delphi 数据库开发实例解析M. 北京： 机械工业出版社， 2004.2 28 刘志铭Visual Basic 数据库开发实例解析M. 北京： 机械工业出版社， 2003.8 29 王晶莹Visual FoxPro 数据库开发实例解析M. 北京： 机械工业出版 社，2003.9 30 华传铭Power Builder 数据库开发实例解析M. 北京：机械工业出版 社 ，2003.9 31 张振坤PowerBuilder 精彩编程 200 例M. 北京： 机械工业出版社， 2004.9 32 王国辉Visual FoxPro 精彩编程 200 例M. 北京： 机械工业出版社， 2004.9 四川理工学院毕业设计（论文） 43 附录 附录附录 A 文件架构图文件架构图 （1）程序主文件架构图，如图 A1 所示。 为了使读者能够对系统文件有更清晰的认识及使用，在此设计了程序主文件架构图。 图 A1 主文件架构图 （2）基础信息维护文件架构图，如图 A.2 所示。 图 A2 基础信息维护文件架构图 胡勇：鸿达公司客户管理系统开发与实现 44 （3）客户信息维护文件架构图，如图 A3 所示。 图 A3 客户信息维护文件架构图 （4）客户服务文件架构图，如图 A4 所示。 图 A4 客户服务文件架构图 （5）系统管理文件架构图，如图 A5 所示。 图 A .5 系统管理文件架构图 四川理工学院毕业设计（论文） 45 附录附录 B 主要源程序主要源程序 鸿达公司客户管理系统的源程序 联系人信息模块功能代码： unit p_lxrxx; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, ToolWin, ImgList, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, ADODB; type Tfrm_lxrxx = class(TForm) Panel1: TPanel; Panel2: TPanel; ToolBar1: TToolBar; btnAdd: TToolButton; btnUpdate: TToolButton; btnDelete: TToolButton; btnSave: TToolButton; btnCancel: TToolButton; btnQuery: TToolButton; ToolButton7: TToolButton; btnFirst: TToolButton; btnPrior: TToolButton; btnNext: TToolButton; btnLast: TToolButton; ToolButton12: TToolButton; btnClose: TToolButton; ImageList1: TImageList; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Panel3: TPanel; Label1: TLabel; 胡勇：鸿达公司客户管理系统开发与实现 46 Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; edLxrId: TEdit; edLxrName: TEdit; dtpBirthday: TDateTimePicker; edAge: TEdit; edOfficeTel: TEdit; edLxrZw: TEdit; edSj: TEdit; edEmail: TEdit; edBz: TEdit; meGrjj: TMemo; edXxdjr: TEdit; dtpDjDate: TDateTimePicker; cbSex: TComboBox; edClientName: TEdit; lxrxxDs: TDataSource; cxLxrxxDBTableView1: TcxGridDBTableView; cxLxrxxLevel1: TcxGridLevel; cxLxrxx: TcxGrid; cxLxrxxDBTableView1DBColumn1: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn2: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn3: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn4: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn5: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn6: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn7: TcxGridDBColumn; 四川理工学院毕业设计（论文） 47 cxLxrxxDBTableView1DBColumn8: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn9: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn10: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn11: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn12: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn13: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn14: TcxGridDBColumn; sp_se_lxrxxId: TADOStoredProc; procedure btnAddClick(Sender: TObject); procedure btnUpdateClick(Sender: TObject); procedure btnDeleteClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure btnSaveClick(Sender: TObject); procedure btnFirstClick(Sender: TObject); procedure btnPriorClick(Sender: TObject); procedure btnNextClick(Sender: TObject); procedure btnLastClick(Sender: TObject); procedure btnCloseClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure edSjKeyPress(Sender: TObject; var Key: Char); procedure edClientNameKeyPress(Sender: TObject; var Key: Char); procedure dtpBirthdayChange(Sender: TObject); private Private declarations public xgbz : Integer; /全局变量 1：增加数据，2：修改数据，3：删除数据 Public declarations end; var frm_lxrxx: Tfrm_lxrxx; implementation uses dm; /引用数据模块 $R *.dfm /增加按钮单击事件代码 procedure Tfrm_lxrxx.btnAddClick(Sender: TObject); var 胡勇：鸿达公司客户管理系统开发与实现 48 iTemp : Integer; begin xgbz := 1; /增加数据. btnAdd.Enabled := False; /增加按钮状态不可用 btnUpdate.Enabled := False; btnDelete.Enabled := False; btnSave.Enabled := True; btnCancel.Enabled := True; btnQuery.Enabled := False; btnFirst.Enabled := False; btnPrior.Enabled := False; btnNext.Enabled := False; btnLast.Enabled := False; for iTemp := ComponentCount - 1 downto 0 do /使所有文本框为空. begin if ComponentsiTemp is TEdit then begin TEdit(ComponentsiTemp).Clear; end; end; meGrjj.Clear; edLxrName.SetFocus; with sp_se_lxrxxId do begin Close; Open; edLxrId.Text:=LX+FormatDateTime(yyyymm,Now)+