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

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

2013-05-29 01:14 ; 开发及运行环境
 硬件平台：
CPU：P41。8GHz；
内存：256MB以上。
 软件平台：
操作系统：Windows xp/ Windows 2000/ Windows 2003；
数据库：SQL Server 2000；
浏览器：IE5.0，推荐使用IE6.0；
Web服务器：IIS5.0；
分辨率：最佳效果1024*768。
3.3  数据库设计
 本系统数据库采用SQLServer2000数据库，系统数据库名称为db_System。数据库db_ System中包含8张表。关于数据库中的数据表请参见附录B。
4  客户管理模块设计
 客户管理模块的主要功能是对客户信息进行管理，主要包括客户信息管理、联系人信息管理和合同信息管理3个部分。
4.1  客户信息管理设计
 客户信息管理设计主要包括对客户信息进行显示/查询、添加、修改和删除4个部分的功能。用户可以通过功能导航进入客户信息管理页面，页面设计效果如图3所示。

图3  客户信息管理页面的设计效果
 在客户信息管理页面中，用户可以在查询区域输入查询条件，并选择查询方式，查找相关的客户信息；也可以单击客户信息，在展示区会显示此客户的详细信息，也可对客户信息进行修改；在选中每条信息前面的复选框，单击【删除】按钮，选中的客户信息将被删除。
 1．客户信息显示/查询
 用户可以在客户信息管理页面中的查询部分，输入一定的查询条件进行客户信息的查询。
 当用户在查询部分输入条件后，并单击【查询】按钮，用户添加的查询条件将被提交给本页，本页将根据用户提交的表单信息对数据库进行检索，并将结果集通过操作区输出到浏览器中。
 客户信息查询页面涉及的HTML表单元素如表1所示。
 表1                      客户信息查询页面涉及的HTML表单元素 大学排名
 名称  类型  含义  重要属性 
 form1  Form  表单  method="post" action="" 
 post  hidden  判断表单是否提交  value="true" 
 tiao  select  查询类型  <option value="模糊查询" <%if request("tiao")="模糊查询" then%>selected<%end if%>>模糊查询</option>
 <option value="精确查询" <%if request("tiao")="精确查询" then%>selected<%end if%>>精确查询</option> 
 sel  select  关键字类别  <option value="ClientName" <%if request("sel")="ClientName" then%>selected<%end if%>>客户名称</option>
 ……
 <option value="ClientHabitude" <%if request("sel")="ClientHabitude" then%>selected<%end if%>>企业性质</option> 
 search  text  关键字  <input name="search" type="text" id="search" value="<%=request("search")%>"> 
 Submit  submit  查询按钮  class="input" value="　查　询　" 
 在表单提交之后，在本页将数据进行处理。程序代码如下：
<%
if request("post")<>"" then
 if request("tiao")="模糊查询" then ‘条件输入为模糊查询时获得相应的记录集
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from tb_Client where "&request("sel")&" like '%"&request("search")&"%' order by id desc"
  rs.open sql,conn,1,1
 else                              ‘条件输入为精确查询时获得相应的记录集

（科教作文网http://zw.nseAc.com）

  set rs=server.CreateObject("adodb.recordset")
  sql="select * from tb_Client 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_Client