网站地图>收藏本站>设为首页
定做流程>服务项目>价格参考>付款方式>诚邀加盟>关于本站>联系我们
当前位置:5173毕业设计论文网文章资讯ASP

基于ASP企业客户关系管理系统的设计与实现

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2011-02-08 21:32:00
QQ交谈在线咨询详情 5173论文网竭诚为您服务 本站永久域名:www.lw5173.com
报表管理
报表管理的主要功能是打印各种类型的报表,包括客户报表打印、联系人报表打印、反馈报表打印和库存报表打印4个部分。报表管理页面设计效果如图23所示。
图23 报表管理页面设计效果
7.1 客户报表模块
客户报表模块的主要功能包括客户报表查询、导入Excel和用web打印3个部分。
1.客户报表查询
客户报表查询页面涉及的HTML表单元素如表5所示。
表5                      客户报表查询页面涉及的HTML表单元素
名称
类型
含义
重要属性
form1
Form
表单
method="post" action=""
eeeet
Hidden
判断表单如何处理
 
ClientCountry
Select
国家/地区
<option value="<%=rsg("ClientCountry")%>">
<%=rsg("ClientCountry")%></option>
ClientCity
Select
城市
<option value="<%=rsc("ClientCity")%>">
<%=rsc("ClientCity")%></option>
SetName
Select
创建者
<option value="<%=rss("SetName")%>">
<%=rss("SetName")%></option
searchtype
 
类别
<option value="ClientName">公司名称</option>
……
<option value="ClientAddress">公司地址</option>
Submit
submit
导入Execul
class="input" value="导入Excul" onClick="form1.eeeet.value='excul'"
Submit
submit
直接打印
class="input" value="打印报表" onClick="form1.eeeet.value='print_c'"
用户可以在报表管理页面中的客户报表查询部分,输入查询条件,进行客户信息的查询。
2.导入Excel
当用户在查询部分输入条件,并单击【导入Excel】按钮后,用户添加的查询条件将被提交给数据处理页,处理页用select case判断隐藏域的值,进而确定怎样处理。
数据处理页对查询条件经过处理,产生相应的SQL查询语句,其代码如下:
<%
sql="id is not null"
if request("ClientCountry")<>"全部" then '国家/地区不为全部时
        sql=sql&" and ClientCountry='"&request("ClientCountry")&"'"
end if
if request("ClientCity")<>"全部" then   '城市不为全部时
        sql=sql&" and ClientCity='"&request("ClientCity")&"'"
end if
if request("SetName")<>"全部" then     '客户名称不为全部时
        sql=sql&" and SetName='"&request("SetName")&"'"
end if
if trim(request("search"))<>"" then    '当关键字不为空时
sql=sql&" and "&request("searchtype")&" like '%"&request("search")&"%'"
end if
sql="select ClientName,ClientCountry,ClientCity,ClientTel,ClientFax,ClientEmail from tb_Client where "&sql
response.Redirect("Table_print_Cd.asp?sql="&sql&"&tt=excul")'把参数传给下载页面
%>
当数据处理页处理完毕之后,会自动转向下载页,在下载页中单击左键,直接用web打开Excel, 右键单击“下载”选择“目标另存为...”把Excel保存在相应的路径下。处理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
%>
<%response.ContentType="application/vnd.ms-excel"%>
<%
set rs=conn.execute(request("sql"))
%>
<table width="100" border="1" cellspacing="0">
 <tr>
<%
for i=0 to rs.fields.count-1
%>
    <td align="center"><%=a(i)%></td>
<%next%>
 </tr>
<%do while not rs.eof%>
 <tr>
        <%for i=0 to rs.fields.count-1%>
    <td align="center" class="table"><%=rs(i)%></td>
        <%next%>
 </tr>
<%
rs.movenext
loop
rs.close
%>

以上内容只是毕业设计作品的部分资料介绍,如果了解更多详情请联系客服QQ:57510459
     购买帮助>>

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论