《客户关系管理系统》论文范例

客户关系管理系统论文范例 客户关系管理系统学 院专 业班 级学 号姓 名指导教师教师职称年月日摘要摘要随着市场体系的日益完善我们已经进入了一个买方市场时代选择空间扩大购买渠道拓宽消费心态和购买行为越发成熟使客户再不会对某一企业或者产品盲目地保持绝对忠诚如何不断改善客户关系掌据更多的客户信息提高客户满意度如何在日益激烈的市场竞争中把握机会占有更大的市场份额如何建立高效业务流程降低运营成本获取更多的利润这些已成为每个企业怕面临的首要问题这种情况下企业要在激烈的市场竞争中立于不败之地就必须找一种全新的管理理念和管理手段对其内部和外部资源进行有效的整合新一代一ERP产品正在向客户端和供应端延伸客户端的延伸是客户关系管理而供应端的延伸则是跨企业供应链的同步管理对于每个企业来说客户管理的完善程度将直接影响企业的经济效益关键词 客户关系管理系统库存管理报表管理目录摘要10 引言11 系统分析211 需求分析212 可行性分析22 总体设计221 项目规划222 系统功能结构图33 系统设计331 设计目标332 开发及运行环境433 数据库设计44 客户管理模块设计541 客户信息管理设计542 联系人信息管理设计1143 合同信息管理145 服务管理2551 反馈信息添加2652 反馈信息修改276 报表管理961 客户报表模块62 联系人报表模块附录A 参考文献附录B 数据表0 引言信息时代的今天各企业商家所关心的不再局限于自身的产品质量生产设备员工的素质更多的是关心自己的销售群体客户群关心他们的想法需求购卖目的众所周知顾客就是我们的上帝我们只有满足了上帝的需求上帝才能给我们带来一切一个企业要生存要发展就是要不断的满足客户的需求无论我们做出什么样的决策最终都是为了这个的目每个领域都有自身生存法则但无论这个法则如何变化为客户服务的宗旨是不会变的作为企业我们只有不断地挖掘新客户维护好和老客户的关系占领市场客户群体的绝大多数份额才能在整个领域取得一席之地海尔总裁张瑞敏指出客户资源决定企业核心竞争力上个世纪80年代是物品短缺的时代而现在信息时代是客户短缺的时代企业发展所需的各种资源包括人力物力生产力都是可以创造的但每个领域中的客户资源确是有限的所以通过创新产品的创新企业管理的创新服务的创新来抢占有限的客户资源维护好企业和客户之间的关系了解客户的需求动向成为企业生存发展面临的重大问题1 系统分析11 需求分析通过调查研究要求系统满足有以下功能由于操作人员的计算机知识普遍较差要求有良好的人机界面方便的数据选择查询支持模糊查询功能管理客户的详细信息包括客户的基本信息联系人信息和客户签写的合同信息记录产品出库入库的详细信息为更多的了解客户的需求设计了服务模块用以记录客户的反馈信息并对反馈信息进行管理和客户联系人之间通过邮件e-mail进行联系对联系人邮件地址进行管理提供信息数据导出Excel报表的功能提供报表的打印功能对用户信息进行管理并为用户设置管理权限数据计算自动完成尽量减少人工干预修改当前管理员密码的功能系统退出12 可行性分析经济性通过计算机网络对客户信息进行管理使企业对自身拥有的客户有了一个更为深该的了解不仅能全面的统计客户的购买数量及时的了解客户的动态信息还可以根据计算机记录的数据信息不断的调整企业的生产发展动向技术性系统中设置了email管理模块此模块大大的方便了企业和客户联系人之间的沟通设置导入Excel功能Web打印功能方便用户报表打印2 总体设计21 项目规划客户关系管理系统是一个典型的数据库开发应用程序由客户管理模块库存管理模块服务管理模块报表管理模块email管理模块用户管理模块组成规划系统功能模块如下客户管理模块该模块主要功能是对客户信息客户联系人信息合同信息进行添加删除查询等操作库存管理模块该模块的主要功能是管理入库出库信息产品信息进行管理其中包括对库存信息产品信息进行添加删除查询等操作服务管理模块该模块主要功能是对客户反馈信息进行添加删除查询等操作报表管理模块该模块主要通过查询条件对各种信息进行查询并将得到的结果导出Excul表进行打印报表等操作其中信息包括客户信息联系人信息反馈客户信息库存信息email管理模块该模块主要管理客户联系人email地址信息对企业客户之间的email文件进行管理向客户发送邮件用户管理该模块主要管理用户信息的添加删除等操作并设置用户的使用权限22 系统功能结构图图1 数据表树型结构图3 系统设计31 设计目标本系统是针对中小型企业通过网络实现对客户的管理而设计的主要实现如下目标对客户信息客户基本信息联系人信息合同信息进行全面管理及时查看库存信息并通过网站对入库出库信息进行管理强大的客户信息联系人信息报表导出打印功能及时了解客户的反馈信息并对其进行管理实现各种信息的选择查询模糊查询功能等实现了和客户通过网络在线沟通的功能并对客户联系人的email地址进行管理管理员可以添加操作员信息设置操作员的权限对用户输入的数据系统进行严格的数据检验尽可能排除人为的错误运行稳定安全可靠method post action posthidden判断表单是否提交value truetiaoselect查询类型 option value 模糊查询 if request tiao 模糊查询 then selected end if 模糊查询 option value 精确查询 if request tiao 精确查询 then selected end if 精确查询 selselect关键字类别 option value ClientName if request sel ClientName then selected end if 客户名称 option value ClientHabitude if request sel ClientHabitude then selected end if 企业性质 searchtext关键字 input name search type text id search value request search Submitsubmit查询按钮class input value 查询在表单提交之后在本页将数据进行处理程序代码如下 if request post thenif request tiao 模糊查询 then 条件输入为模糊查询时获得相应的记录集set rs serverCreateObject adodbrecordset sql select from tb_Client where request sel like request search order by id descrsopen sqlconn11else 条件输入为精确查询时获得相应的记录集set rs serverCreateObject adodbrecordset sql select from tb_Client where request sel request search order by id descrsopen sqlconn11end ifelse 默认状态下获得相应的记录集set rs serverCreateObject adodbrecordset sql select from tb_Client order by id descrsopen sqlconn11end if实现分页if not rseof thentol rsrecordcount 总记录数rspagesize 15 获取每页显示的记录数page rspagecount requestpage clng request p 获取当前页if requestpage or requestpage 0 then 当接收页码的值为空或者0时使其等于1requestpage 1end ifif requestpage page then 在接收页码的值大于最大页码时使其等于最大页码requestpage pageend ifif requestpage 1 then 向上或向下移动相应的记录rsmove requestpage-1 rspagesizeend iffor i 1 to rspagesize and not rseof 利用循环输出数据if i mod 2 1 thenbg FFFFFFelsebg efefefend if tr align center bgcolor bg style cursor hand onClick wicomes bo windowlocation KeHu_edaspid rs id onMouseOver HLItem this onMouseOut Re this td height 22 rs ClientName rs ClientCountry rs ClientCity rs ClientTel rs ClientEmail rsmovenextif rseof then exit for 如果记录集为空那么跳出循环nextelseresponseWrite 没有客户信息请 a href KeHu_addasp target bo 添加 end if 当鼠标在某条记录上悬停时其记录所在行的背景颜色会发生改变此功能用到的js代码如下 script language javascript function HLItem obj 鼠标经过 objoldClassName objclassNameobjclassName List function Re obj 鼠标移开 objclassName objoldClassName 其调用的代码如下 tr align center bgcolor bg style cursorhand onClick wicomes bo windowlocation KeHu_edaspid rs id onMouseOver HLItem this onMouseOut Re this 客户信息显示查询页面的运行结果如图4所示图4 客户信息查询页面的运行结果2客户信息添加客户信息添加的主要功能是用于用户添加客户信息在查询页面中单击添加按钮在展示区中会显示添加页面其设计效果如图5所示如图5 客户信息添加页面设计效果当单击添加页面中的添加按钮时调用js编写的自定义函数checks 通过函数验证填写的数据是否正确该函数的代码如下 script language javascript function checks if fcome alert 公司名称不能为空 return false 中间过程不详细介绍因为实现方法类似 else if fcome alert 需求周期不能为空 return false 表单提交之后添加的数据将被提交到本页进行处理本页数据处理的程序代码如下 if request post thenset rs serverCreateObject adodbrecordset sql select from tb_Clientrsopen sqlconn13rsaddnewrs ClientName request ClientName 添加公司名称rs ClientAddress request ClientAddress 公司地址rs ClientTel request ClientTel 公司电话rs ClientFax request ClientFax 公司传真rs ClientNumber request ClientNumber 邮政编码rs ClientPage request ClientPage 公司网址rs ClientEmail request ClientEmail 公司emailrs ClientCountry request ClientCountry 所属国家地区rs ClientHabitude request ClientHabitude 公司性质rs ClientSize request ClientSize 公司规模rs ClientCity request ClientCity 所属城市rs ClientPay request ClientPay 结款方式rs ClientCredit request ClientCredit 结款信用rs ClientList request ClientList 最高订单rs ClientYear request ClientYear 年度订单rs ClientCyc request ClientCyc 需求周期rs SetTime now 创建时间rs EditTime now 修改时间rs SetName session admin_name 创建人rsupdaterscloseconncloseresponseWrite script language javascript alert 客户信息添加成功 弹出成功对话框end if 3客户信息修改在显示客户详细信息页面用户可以浏览修改其客户的详细信息进行客户详细信息浏览和修改的页面设计效果如图6所示图6 客户信息修改页面设计效果在客户信息修改页面用户可以浏览客户详细的信息也可以修改客户的信息当用户有修改的权限时那么用户可以进行修改至于用户权限的实现将在后面的章节中进行讲解当用户单击修改按钮后修改的数据将被提交到本页进行处理数据处理的代码如下 if request post and rsr Client 可写 or rsr chaoji 是 then set rs serverCreateObject adodbrecordset sql select from tb_Client where id request id rsopen sqlconn13rs ClientName request ClientName 添加公司名称rs ClientAddress request ClientAddress 公司地址rs ClientTel request ClientTel 公司电话rs ClientFax request ClientFax 公司传真rs ClientNumber request ClientNumber 邮政编码rs ClientPage request ClientPage 公司网址rs ClientEmail request ClientEmail 公司emailrs ClientCountry request ClientCountry 所属国家地区rs ClientHabitude request ClientHabitude 公司性质rs ClientSize request ClientSize 公司规模rs ClientCity request ClientCity 所属城市rs ClientPay request ClientPay 结款方式rs ClientCredit request ClientCredit 结款信用rs ClientList request ClientList 最高订单rs ClientYear request ClientYear 年度订单rs ClientCyc request ClientCyc 需求周期rs EditTime now 修改时间rs SetName session admin_name 创建人rsupdaterscloseresponseWrite script language javascript alert 客户信息修改成功 弹出成功对话框end if 4客户信息删除在客户信息管理页面用户可以点选任意一条客户信息前面的复选框然后单击页面下方的删除按钮被选择的客户信息将被删除客户信息删除主要是根据传递的参数本例中的参数为客户信息的id将数据库中对应id的客户信息和其他和客户相关的信息全部删除程序代码如下 call client 验证是否有删除客户信息的权限if request del thenkid Split Request del 分解字符串成数组for i 0 to ubound kid sqld delete from tb_Client where id clng kid i 删除客户信息connexecute sqld sqll delete from tb_Linkman where LinkmanClient clng kid i 删除客户的联系人信息connexecute sqll sqlp delete from tb_Pact where PactClient clng kid i 删除客户的合同信息connexecute sqlp sqlp delete from tb_Feedback where FeedbackClient clng kid i 删除客户反馈信息connexecute sqlp sqlp delete from tb_Product where ProductProvider clng kid i 删除客户的产品信息connexecute sqlp nextif request p then 返回用户操作页responseRedirect KeHu_KeHuasp elseresponseRedirect KeHu_KeHuaspp request p end ifelseresponseWrite script language javascript alert 请选择要删除的信息 location javascripthistorygo -1 end if 42 联系人信息管理设计联系人信息管理的主要功能包括显示查询添加修改和删除联系人信息4个部分用户可以通过功能导航进入联系人信息管理页面页面设计效果如图7所示图7 联系人信息管理页面设计效果1联系人信息显示查询用户可以在联系人信息管理页面中的查询部分输入一定的查询条件进行联系人信息的查询用户在查询部分输入条件后单击查询按钮用户添加的查询条件将被提交给本页本页则将根据用户提交的表单信息对数据库进行检索并将结果集通过操作区输出到浏览器中查询代码如下 if request post thenif request tiao 模糊查询 then 联系人模糊查询set rs serverCreateObject adodbrecordset sql select from tb_Linkman where request sel like request search order by id descrsopen sqlconn11else 联系人精确查询set rs serverCreateObject adodbrecordset sql select from tb_Linkman where request sel request search order by id desc rsopen sqlconn11end ifelse 默认状态下显示联系人列表set rs serverCreateObject adodbrecordset sql select from tb_Linkman order by id descrsopen sqlconn11end if 分页代码请参考41节中介绍的客户信息显示查询中的相关代码也可在查看客户的详细信息中单击联系人信息就会产生此客户的联系人列表传参代码如下 a href KeHu_Linkmanasppost truesel LinkmanClientsearch rsx id dd dd 联系人信息 2联系人信息添加联系人信息添加的主要功能是添加客户的联系人信息在查询页面中单击添加按钮在展示区中会显示添加页面在添写表单选择所属客户时所属客户是在数据库中直接读取出来的其代码如下 set rsc serverCreateObject adodbrecordset sqlc select from tb_Client order by id descrscopen sqlcconn11 if not rsceof then select name LinkmanClient id LinkmanClient for i 1 to rscrecordcount and not rsceof option value rsc id rsc ClientName rscmovenextnext elseresponseWrite 没有客户信息请 a href KeHu_addasp target bo 添加 end if 添加联系人页面的运行结果如图8所示图8 添加联系人的页面运行结果也可在客户的详细信息中单击新建按钮在此添加用户不用选择所属客户直接就会生成所属客户主要是根据传递的参数本例中的参数为客户信息的id传参代码如下 a href KeHu_Linkman_addyaspid rsx id span class style2 新建 其显示代码如下 set rsc serverCreateObject adodbrecordset sqlc select from tb_Client where id request id order by id descrscopen sqlcconn11 responseWrite rsc ClientName 3联系人信息修改联系人信息修改的主要功能是用户修改联系人信息方便用户和客户之间的联系和沟通在显示联系人详细信息页面用户可以更改其联系人的信息联系人信息修改页面运行结果如图9所示图9 联系人信息修改页面运行结果4联系人信息删除联系人信息删除的主要功能是删除联系人的信息其程序代码如下 kid Split Request del 分解字符串成数组responseWrite 正在删除 for i 0 to ubound kid sqld delete from tb_Linkman where id clng kid i 删除指定的记录connexecute sqld next 43 合同信息管理合同信息管理设计主要包括显示查询添加修改和删除合同信息4个部分用户可以通过功能导航进入合同信息管理页面页面设计效果如图10所示图10 合同信息管理页面的运行结果1合同信息显示查询用户可以在合同信息管理页面中的查询部分输入一定的查询条件进行合同信息的查询用户在查询部分输入查询条件后单击查询按钮用户所添加的查询条件将被提交给本页本页将根据用户提交的表单信息对数据库进行检索并将结果集通过操作区输出到浏览器中合同信息查询程序代码如下 if request post thenif request tiao 模糊查询 then模糊查询合同信息set rs serverCreateObject adodbrecordset sql select from tb_Pact where request sel like request search order by id descrsopen sqlconn11else精确查询合同信息set rs serverCreateObject adodbrecordset sql select from tb_Pact where request sel request search order by id descrsopen sqlconn11end ifelse 默认状态下显示的合同信息set rs serverCreateObject adodbrecordset sql select from tb_Pact order by id descrsopen sqlconn11end if 合同信息显示查询页面运行结果如图11所示图11 合同信息显示查询页面运行结果也可在查看客户的详细信息中单击合同信息就会产生此客户的合同列表传参代码如下 a href KeHu_Pactasppost truesel PactClientsearch rsx id dd dd 合同信息 2合同信息添加合同信息添加的主要功能是用户添加客户的合同信息在查询页面中单击添加按钮在展示区中会显示添加页面其运行结果如图17上所示也可在客户的详细信息页面单击新建在展示区中会显示添加页面然后进行合同信息添加合同信息添加页面的运行结果如图12下所示图12 合同信息添加页面运行结果3合同信息修改合同信息修改的主要功能是用户修改合同信息在显示合同详细信息页面用户可以更改其合同的信息合同信息修改页面运行结果如图13所示图13 合同信息修改页面运行结果4合同信息的删除合同信息删除的主要功能是删除合同信息其代码如下 kid Split Request del responseWrite 正在删除 for i 0 to ubound kid sqld delete from tb_Pact where id clng kid i connexecute sqld next 5 服务管理服务管理设计的主要功能包括反馈信息的显示查询添加修改和删除4个部分用户可以通过功能导航进入服务管理页面页面设计效果如图20所示图20 服务管理页面的设计效果51 反馈信息添加反馈信息添加的主要功能是用户添加客户的反馈信息在查询页面中单击添加按钮在展示区中会显示添加页面反馈信息添加页面的设计效果如图21所示图21 反馈信息添加页面的设计效果反馈信息添加页面涉及的6HTML表单元素如表3所示表3 反馈信息信息添加页面涉及的HTML表单元素名称类型含义重要属性form1Form表单method post action posthidden判断表单是否提交value trueFeedbackTitletext反馈主题class in size 30FeedbackFulfillradio是否完成 value 未完成 value 已完成yearselect年 option value i i monthselect月 option value i i dayselect日 option value i i FeedbackClientselect相关客户 option value rsc id rsc ClientName FeedbackContenttextarea详细内容cols 88 rows 4 class tableFeedbackResulttextarea处理结果cols 88 rows 4 class tableSubmitselect添加按钮class input value 添加 onClick return checks 表单提交之后添加的数据将被提交到本页进行处理数据处理的程序代码如下 call feedbackif request post thenset rs serverCreateObject adodbrecordset sql select from tb_Feedbackrsopen sqlconn13rsaddnew 主要用于添加客户反馈信息的数据rs FeedbackTitle request FeedbackTitle rs FeedbackDate request year -request month -request day rs FeedbackClient request FeedbackClient rs FeedbackContent request FeedbackContent rs FeedbackResult request FeedbackResult rs FeedbackFulfill request FeedbackFulfill rs SetTime now rs SetName session admin_name rsupdaterscloseresponseWrite script language javascript alert 反馈信息添加成功 end if 52 反馈信息修改因为反馈信息是客户的反馈意见所以不得随意修改用户只可以修改处理结果和服务完成两项信息当服务完成选项选中已完成时那么任何信息都不可以修改也就是说只有在服务未完成的情况下才能修改处理结果反馈信息页面设计效果如图22所示图22 反馈信息页面设计效果反馈信息修改页面涉及的HTML表单元素如表4所示表4 反馈信息信息修改页面涉及的HTML表单元素名称类型含义重要属性form1Form表单method post action posthidden判断表单是否提交value trueFeedbackTitletext反馈主题value rsx FeedbackTitle size 30 readonly true class inFeedbackFulfillradio是否完成 value 未完成 if rsx FeedbackFulfill 未完成 then checked end if value 已完成 if rsx FeedbackFulfill 已完成 then checked end if FeedbackDatetext年value rsx FeedbackDate size 30 readonly true class inFeedbackClientselect相关客户value rsc ClientName size 30 readonly true class inFeedbackContenttextarea详细内容cols 88 rows 4 class table readonly trueFeedbackResulttextarea处理结果cols 88 rows 4 class table if rsx FeedbackFulfill 已完成 then readonly true else onfocus thisselect onmouseover thisfocus end if Submitselect添加按钮class input value 修 改 onClick return checks 在反馈信息修改页面当用户单击修改按钮后修改数据将被提交到本页进行处理数据处理程序的代码如下 if request post thenset rs serverCreateObject adodbrecordset sql select from tb_Feedback where id request id rsopen sqlconn13rs FeedbackFulfill request FeedbackFulfill rs FeedbackResult request FeedbackResult rsupdaterscloseresponseWrite script language javascript alert 反馈信息修改成功 location Feedback_edaspid request id end if 7 报表管理报表管理的主要功能是打印各种类型的报表包括客户报表打印联系人报表打印反馈报表打印和库存报表打印4个部分报表管理页面设计效果如图23所示图23 报表管理页面设计效果71 客户报表模块客户报表模块的主要功能包括客户报表查询导入Excel和用web打印3个部分1客户报表查询客户报表查询页面涉及的HTML表单元素如表5所示表5 客户报表查询页面涉及的HTML表单元素名称类型含义重要属性form1Form表单method post action eeeetHidden判断表单如何处理ClientCountrySelect国家地区 option value rsg ClientCountry rsg ClientCountry ClientCitySelect城市 option value rsc ClientCity rsc ClientCity SetNameSelect创建者 option value rss SetName rss SetName optionsearchtype类别 option value ClientName 公司名称 option value ClientAddress 公司地址 Submitsubmit导入Execulclass input value 导入Excul onClick fcome exculSubmitsubmit直接打印class input value 打印报表 onClick fcome print_c用户可以在报表管理页面中的客户报表查询部分输入查询条件进行客户信息的查询2导入Excel当用户在查询部分输入条件并单击导入Excel按钮后用户添加的查询条件将被提交给数据处理页处理页用select case判断隐藏域的值进而确定怎样处理数据处理页对查询条件经过处理产生相应的SQL查询语句其代码如下 sql id is not nullif request ClientCountry 全部 then 国家地区不为全部时sql sql and ClientCountry request ClientCountry end ifif request ClientCity 全部 then 城市不为全部时sql sql and ClientCity request ClientCity end ifif request SetName 全部 then 客户名称不为全部时sql sql and SetName request SetName end ifif trim request search then 当关键字不为空时sql sql and request searchtype like request search end ifsql select ClientNameClientCountryClientCityClientTelClientFaxClientEmail from tb_Client where sqlresponseRedirect Table_print_Cdaspsql sqltt excul 把参数传给下载页面 当数据处理页处理完毕之后会自动转向下载页在下载页中单击左键直接用web打开Excel 右键单击下载选择目标另存为 if request tt excul then 当为客户报表查询时产生相应字段a array 公司名称所在国家地区所在城市公司电话公司传真E-mail elseif request tt excul_l then 当为联系人报表查询时产生相应字段a array 姓名客户名称部门职务电话手机E-mail elseif request tt excul_k then 当为反馈客户报表查询时产生相应字段a array 客户名称反馈日期是否解决反馈主题反馈内容处理结果 elseif request tt excul_kc then 当为库存报表查询时产生相应字段a array 客户编号客户名称产品数量单位库存类型 end if responseContentType applicationvndms-excel set rs connexecute request sql table width 100 border 1 cellspacing 0 for i 0 to comt-1 td align center a i next do while not rseof for i 0 to comt-1 td align center class table rs i next rsmovenextlooprsclose 报表下载页面的运行结果如图24所示图24 报表下载页面的运行结果3用web打印用户在查询部分输入查询条件后单击打印报表按钮用户添加的查询条件将被提交给数据处理页处理页用select case判断隐藏域的值进而确定怎样处理数据处理页对查询条件经过处理产生相应的SQL查询语句程序代码如下 sql id is not nullif request ClientCountry 全部 then国家地区不为全部时sql sql and ClientCountry request ClientCountry end ifif request ClientCity 全部 then 城市不为全部时sql sql and ClientCity request ClientCity end ifif request SetName 全部 then 客户名称不为全部时sql sql and SetName request SetName end ifif trim request search then 当关键字不为空时sql sql and request searchtype like request search end ifsql select from tb_Client where sqlresponseRedirect Table_print_paspsql sql 把参数传给打印页面 当数据处理页处理完毕之后会自动转向打印页打印页是一个框架集包含三个页面框架页代码如下 sql request sql if sql thensql session sql end ifsession sql sqlshow request show if show thenshow 15end ifp request p if p or p 0 thenp 1end if frameset rows 42 framespacing 0 frameborder NO border 0 frame src Table_print_topaspsql request sql show show p p name topFrame frameborder no scrolling NO noresize frame src Table_printaspsql request sql show show p p name mainFrame frameborder no 控制页面代码如下 sql request sql 获取sql语句if sql thensql session sql end ifsession sql sqlshow request show set rs serverCreateObject adodbrecordset sql sqlrsopen sqlconn11if not rseof thentol rsrecordcountrspagesize showpage rspagecountrequestpage clng request p elsepage 0tol 0show 0end if table width 649 border 0 align center tr valign middl