评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

ASP客户关系管理系统(一)毕业论文(4)

2013-05-29 01:14  用户可以在合同信息管理页面中的查询部分，输入一定的查询条件，进行合同信息的查询。
 用户在查询部分输入查询条件后，单击【查询】按钮，用户所添加的查询条件将被提交给本页，本页将根据用户提交的表单信息对数据库进行检索，并将结果集通过操作区输出到浏览器中。
 合同信息查询程序代码如下：
<%
if request("post")<>"" then
 if request("tiao")="模糊查询" then‘模糊查询合同信息
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from tb_Pact 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_Pact 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_Pact order by id desc"
 rs.open sql,conn,1,1
end if
%>
 合同信息显示/查询页面运行结果如图11所示。

图11  合同信息显示/查询页面运行结果
 也可在查看客户的详细信息中，单击“合同信息”，就会产生此客户的合同列表，传参代码如下：
<a href="KeHu_Pact.asp?post=true&sel=PactClient&search=<%=rsx("id")%>&dd=dd" >合同信息</a>
 2．合同信息添加
 合同信息添加的主要功能是用户添加客户的合同信息。
 在查询页面中单击【添加】按钮，在展示区中会显示添加页面，其运行结果如图17（上）所示；也可在客户的详细信息页面单击“新建”，在展示区中会显示添加页面，然后进行合同信息添加。合同信息添加页面的运行结果如图12（下）所示。

图12  合同信息添加页面运行结果

（科教作文网http://zw.ΝsΕac.cOM编辑）

 3．合同信息修改
 合同信息修改的主要功能是用户修改合同信息。
 在显示合同详细信息页面，用户可以更改其合同的信息。合同信息修改页面运行结果如图13所示。

图13  合同信息修改页面运行结果
 4．合同信息的删除
 合同信息删除的主要功能是删除合同信息，其代码如下：
<%
    kid=Split(Request("del"),",")
    response.Write("正在删除...")
    for i=0 to ubound(kid)
sqld="delete from tb_Pact where id="&clng(kid(i))
conn.execute(sqld)
next
%>
5  服务管理
 服务管理设计的主要功能包括反馈信息的显示/查询、添加、修改和删除4个部分。用户可以通过功能导航进入服务管理页面，页面设计效果如图20所示。

图20  服务管理页面的设计效果
5.1  反馈信息添加
 反馈信息添加的主要功能是用户添加客户的反馈信息。在查询页面中单击【添加】按钮，在展示区中会显示添加页面。反馈信息添加页面的设计效果如图21所示。

图21  反馈信息添加页面的设计效果
 反馈信息添加页面涉及的HTML表单元素如表3所示。
 表3                      反馈信息信息添加页面涉及的HTML表单元素
 名称  类型  含义  重要属性 
 form1  Form  表单  method="post" action="" 
 post  hidden  判断表单是否提交  value="true" 
 FeedbackTitle  text  反馈主题  class="in" size="30" 
 FeedbackFulfill  radio  是否完成   value="未完成" value="已完成"  （科教作文网http://zw.ΝsΕac.cOM编辑）
 year  select  年  <option value="<%=i%>"><%=i%></option> 
 month  select  月  <option value="<%=i%>"><%=i%></option> 
 day  select  日  <option value="<%=i%>"><%=i%></option> 
 FeedbackClient  select  相关客户  <option value="<%=rsc("id")%>">
 <%=rsc("ClientName")%>&