《客户关系管理系统》毕业设计论文范例

<%=rsc(\FeedbackContent FeedbackResult Submit textarea textarea select 详细内容 处理结果 添加按钮 cols=\cols=\class=\value=\ 添 加 \onClick=\表单提交之后，添加的数据将被提交到本页进行处理。数据处理的程序代码如下：

<% call feedback

if request(\ %>

set rs=server.CreateObject(\sql=\rs.open sql,conn,1,3

rs.addnew '主要用于添加客户反馈信息的数据 rs(\

rs(\rs(\rs(\rs(\rs(\rs(\

rs(\rs.update rs.close

response.Write(\反馈信息添加成功')\

end if

5.2 反馈信息修改

因为反馈信息是客户的反馈意见所以不得随意修改，用户只可以修改“处理结果”和“服务完成”两项信息。当服务完成选项，选中“已完成”时，那么任何信息都不可以修改，也就是说只有在服务“未完成”的情况下才能修改“处理结果”。

反馈信息页面设计效果如图22所示。

图22 反馈信息页面设计效果

– 17 –

反馈信息修改页面涉及的HTML表单元素如表4所示。

表4 反馈信息信息修改页面涉及的HTML表单元素

名称 form1 post en FeedbackTitle FeedbackFulfill text radio 类型 Form hidd交 反馈主题 是否完成 value=\size=\readonly=\ class=\value=\未完成\<%if rsx(\未完成\ value=\已完成\<%if rsx(\已完成\FeedbackDate FeedbackClient t FeedbackContent FeedbackResult rea rea texta处理结果 cols=\rows=\class=\<%if rsx(\已完成\then%> readonly=true<%else%>onfocus=this.select(); onmouseover=this.focus();<%end if%> class=\value=\ onClick=\修 改 \texta详细内容 text selec年 相关客户 表单 判断表单是否提含义 重要属性 method=\value=\value=\size=\value=\readonly=\ class=\size=\cols=\Submit t selec添加按钮 在反馈信息修改页面，当用户单击【修改】按钮后，修改数据将被提交到本页进行处理，数据处理程序的代码如下：

<%

if request(\

set rs=server.CreateObject(\

sql=\rs.open sql,conn,1,3

rs(\rs(\rs.update rs.close

response.Write(\反馈信息修改成功

');location='Feedback_ed.asp?id=\

end if %>

– 18 –

7 报表管理

报表管理的主要功能是打印各种类型的报表，包括客户报表打印、联系人报表打印、反馈报表打印和库存报表打印4个部分。报表管理页面设计效果如图23所示。

图23 报表管理页面设计效果

7.1 客户报表模块

客户报表模块的主要功能包括客户报表查询、导入Excel和用web打印3个部分。 1．客户报表查询

客户报表查询页面涉及的HTML表单元素如表5所示。

表5 客户报表查询页面涉及的HTML表单元素

名称 form1 eeeet ClientCountry 类型 Form Hidden Select 表单 判断表单如何处理 国家/地区 含义 重要属性 method=\

SetName Select 创建者 searchtype 类别 ?? Submit Submit submit submit 导入Execul 直接打印 class=\value=\导入onClick=\Excul\class=\value=\打印报表\onClick=\用户可以在报表管理页面中的客户报表查询部分，输入查询条件，进行客户信息的查询。 2．导入Excel

当用户在查询部分输入条件，并单击【导入Excel】按钮后，用户添加的查询条件将被提交给数据处理页，处理页用select case判断隐藏域的值，进而确定怎样处理。

数据处理页对查询条件经过处理，产生相应的SQL查询语句，其代码如下：

<%

sql=\

if request(\全部\国家/地区不为全部时

sql=sql&\end if

if request(\全部\ '城市不为全部时

sql=sql&\ and ClientCity='\end if

if request(\全部\ '客户名称不为全部时

sql=sql&\end if

if trim(request(\ '当关键字不为空时

sql=sql&\end if

sql=\response.Redirect(\把参数传给下载页面 %>

当数据处理页处理完毕之后，会自动转向下载页，在下载页中单击左键，直接用web打开Excel, 右键单击“下载”选择“目标另存为...”把Excel保存在相应的路径下。处理Excel的页面代码如下：

<%

if request(\ '当为客户报表查询时产生相应字段

a=array(\公司名称\所在国家/地区\所在城市\公司电话\公司传真\a=array(\姓名\客户名称\部门\职务\电话\手机\

a=array(\客户名称\反馈日期\是否解决\反馈主题\反馈内容\处理结果\– 20 –

elseif request(\ '当为联系人报表查询时产生相应字段 elseif request(\ '当为反馈客户报表查询时产生相应字段