目录
摘要 1
0 引言 1
1 系统分析 2
1.1 需求分析 2
1.2 可行性分析 2
2 总体设计 2
2.1 项目规划 2
2.2 系统功能结构图 3
3 系统设计 3
3.1 设计目标 3
3.2 开发及运行环境 4
3.3 数据库设计 4
4 客户管理模块设计 5
4.1 客户信息管理设计 5
4.2 联系人信息管理设计 11
4.3 合同信息管理 14
5 服务管理 25
5.1 反馈信息添加 26
5.2 反馈信息修改 27
6 报表管理 9
6.1 客户报表模块
6.2 联系人报表模块
附录A 参考文献
附录B 数据表
1．联系人信息显示/查询
用户可以在联系人信息管理页面中的查询部分，输入一定的查询条件进行联系人信息的查询。
用户在查询部分输入条件后，单击【查询】按钮，用户添加的查询条件将被提交给本页，本页则将根据用户提交的表单信息对数据库进行检索，并将结果集通过操作区输出到浏览器中。
查询代码如下：
<%
if request("post")<>"" then
if request("tiao")="模糊查询" then’ 联系人模糊查询
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Linkman where "&request("sel")&" like '%"&request("search")&"%' order by id desc"
rs.open sql,conn,1,1
else ‘联系人精确查询
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Linkman where "&request("sel")&"='"&request("search")&"' order by id desc"
rs.open sql,conn,1,1
end if
else’ 默认状态下显示联系人列表
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Linkman order by id desc"
rs.open sql,conn,1,1
end if
%>
分页代码请参考4.1节中介绍的客户信息显示/查询中的相关代码。
也可在查看客户的详细信息中，单击“联系人信息”，就会产生此客户的联系人列表，传参代码如下：
<a href="KeHu_Linkman.asp?post=true&sel=LinkmanClient&search=<%=rsx("id")%>&dd=dd">联系人信息</a>
2．联系人信息添加
联系人信息添加的主要功能是添加客户的联系人信息。
在查询页面中单击【添加】按钮，在展示区中会显示添加页面。在添写表单选择所属客户时，所属客户是在数据库中直接读取出来的。其代码如下：
<%
set rsc=server.CreateObject("adodb.recordset")
sqlc="select * from tb_Client order by id desc"
rsc.open sqlc,conn,1,1
if not rsc.eof then
%>
<select name="LinkmanClient" id="LinkmanClient">
<%
for i=1 to rsc.recordcount and not rsc.eof
%>
<option value="<%=rsc("id")%>"><%=rsc("ClientName")%></option>
<%
rsc.movenext
next%>
</select>
<%
else
response.Write("没有客户信息，请<a href='KeHu_add.asp' target='bo'>添加</a>")
end if%>
添加联系人页面的运行结果如图8所示。
图8 添加联系人的页面运行结果
也可在客户的详细信息中单击【新建】按钮，在此添加用户不用选择所属客户，直接就会生成所属客户，主要是根据传递的参数（本例中的参数为客户信息的id），传参代码如下：
<a href="KeHu_Linkman_addy.asp?id=<%=rsx("id")%>"><span class="style2">新建</span></a>
其显示代码如下：
<%
set rsc=server.CreateObject("adodb.recordset")
sqlc="select * from tb_Client where id="&request("id")&" order by id desc"
rsc.open sqlc,conn,1,1
response.Write(rsc("ClientName"))
%>
3．联系人信息修改
联系人信息修改的主要功能是用户修改联系人信息，方便用户和客户之间的联系和沟通。
在显示联系人详细信息页面，用户可以更改其联系人的信息。联系人信息修改页面运行结果如图9所示。
