销售管理系统界面及代码(毕业设计)

按钮
单击【重置】按钮清空文本框和文本域中的内容
下面介绍 AddCustomer.asp 的主要代码。
页面代码分析如下所示。
<!--#include file="Conn.asp"--> <Link href="Css.css" rel=stylesheet>
<%'调用 Conn.asp 文件连接数据库%> <%'调用 Css.css 文件定义页面风格%>
'获取客户工作单位
memo = Trim(Request.Form("memo"))
'获取客户备注说明
'判断客户信息的合法性
If customer_id = "" Or name = "" Then '如果客户编号或客户名称为空，则提示’客户编号或客户名
称不能为空！’
Response.Write "<Script>alert('客户编号或客户名称不能为空！');</Script>"
<%' 定 义 一 个 文 本 框 控 件
</td> </tr> <tr bgcolor="#FFFFFF"> <td align="right"><font color="ff0000">*</font>电话：</td>
telephone%>
<td height="25">&nbsp; <input type="text" name="telephone">
<a href="Customer.asp"><img src="Images/back.gif" width="45" height="18" border="0" alt=" 返回"></a>
</td> </tr> </form>
<%'表单结束标记%>
2．接收网页表单传递过来的数据并进行校验，验证成功把客户信息保存到数据库
'声明变量
'获取客户编号 '获取客户姓名 '获取客户所在城市
telephone = Trim(Request.Form("telephone"))
'获取客户电话号码
address = Trim(Request.Form("address"))
'获取客户住址
department = Trim(Request.Form("department"))
Response.End
Else '向数据库中保存添加的客户信息
mysql = "INSERT INTO customerInfo " & _
"VALUES " & _
"('" & customer_id & "','" & name & "','" & city& "','" & telephone & "','" & address
1．创建网页表单
页面设计：利用网页表单将管理员输入的客户信息传递给目标网页。由目标网页验证后将管
理员输入的客户信息保存到数据库。页面首先创建网页表单并对表单控件进行设置。
代码如下所示。
<%'创建表单 form1，采用隐式传递，提交目标网页 AddCustomer.asp 并返回一个 action 值%>
<%' 定 义 一 个 文 本 框 控 件
</td>
</tr>
<tr bgcolor="#FFFFFF"> <td align="right"><font color="ff0000">*</font>城市：</td>
<td height="25">&nbsp; <input type="text" name="city">
Call SaveAdd() End If
%> <% '定义 SaveAdd()过程用来接收、验证、保存客户信息
Sub SaveAdd() Dim customer_id Dim name Dim city Dim telephone Dim address Dim department Dim memo '获取传递过来的表单数据 customer_id = Trim(Request.Form("customer_id")) name = Trim(Request.Form("name")) city = Trim(Request.Form("city"))
6.2 修改客户信息页 EditCustomer.asp
EditCustomer.asp 是修改客户信息页，用于管理员修改客户信息。管理员登录后进入该系统， 单击客户信息管理页 Customer.asp 中的【修改】链接即可进入该页面修改客户信息。 页面显示效果图，如图 6.2 所示。
图 6.2 修改客户信息页显示效果图
第 6 章 补充内容
6.1 添加客户信息页 AddCustomer.asp
AddCustomer.asp 是添加客户信息页，用于管理员添加新的客户信息。管理员单击客户信息 管理页 Customer.asp 中的【添加客户信息】链接即可进入该页面添加新的客户信息。 页面显示效果图，如图 6.1 所示。
页面控件及功能如表 6.2 所示。
表 6.2 修改客户信息页页面控件及功能
对象
功能
表格 表单 文本框 文本框 文本框 文本框 文本框 文本框 文本域 按钮 按钮
用于控制页面显示信息位置 名称为form1，提交目标网页为EditCustomer.asp，数据采用隐式传递方式 名称为customer_id，用于修改客户编号 名称为name，用于修改客户姓名 名称为city，用于修改客户所在城市 名称为telephone，用于修改客户电话号码 名称为address，用于修改客户具体地址 名称为department，用于修改客户工作单位 名称为memo，用于修改客户说明 单击【提交】按钮提交表单 单击【重置】按钮清空文本框和文本域中的内容
Rs1.Open Sql1,conn,3,3
'把取出的信息放在记录集对象中
'如果记录集对象中有此客户编号记录，则提示'客户编号重复，请重新输入！'
If not Rs1.Eof And not Rs1.Bof Then Response.Write "<Script>alert('客户编号重复，请重新输入！');</Script>"
address%>
</td> </tr>
department%>
<tr bgcolor="#FFFFFF"> <td align="right"><font color="ff0000">*</font>单位：</td>
<td height="25">&nbsp; <input type="text" name="department">
<%' 定 义 一 个 文 本 域 控 件
memo%>
</td>
</tr>
<tr align="right" bgcolor="#FFFFFF">
<td height="35" colspan="2" align="center">
<input type="submit" name="Submit" value="提交">
End If
End If
End Sub
%>
专家指导：检验信息的合法性就是要对一些需要注意和不同的控件进行设置，对其进行
约束使其按照正确的方式填写。
3．利用 Session 变量判定用户是否非法访问
此页面设计与 Customer.asp 页面相似，可参照 Customer.asp 页面的介绍。这里就不讲解了。
<%'定义一个提交按钮%>
<input type="reset" name="Reset" value="重置">
<%'定义一个重置按钮%>
</td> </tr> <tr align="right" bgcolor="#FFFFFF"> <td height="35" colspan="2" align="center"> <%'定义一个返回按钮并设置链接 %>
customer_id%> name%> city%>
</td>
</tr>
<tr bgcolor="#FFFFFF"> <td align="right"><font color="ff0000">**</font>客户姓名：</td>
<td height="25">&nbsp; <input type="text" name="name">
<%' 定 义 一 个 文 本 框 控 件
</td> </tr> <tr bgcolor="#FFFFFF"> <td align="right"><font color="ff0000">*</font>备注：</td>
<td height="25">&nbsp; <textarea name="memo" cols="60" rows="6"></textarea>
Response.End
Else '判断客户编号的合法性
Set Rs1 = Server.CreateObject("ADODB.Recordset") '根据接收的客户编号把客户信息取出来
'创建记录集对象
Sql1 = "Select * From customerInfo Where customer_id = '"&customer_id&"' "
<%' 定 义 一 个 文 本 框 控 件
</td> </tr> <tr bgcolor="#FFFFFF"> <td align="right"><font color="ff0000">*</font>地址：</td>
<td height="25">&nbsp; <input type="text" name="address"> <%' 定 义 一 个 文 本 框 控 件
图 6.1 添加客户信息页显示效果图
页面控件及功能如表 6.1 所示。
表 6.1 添加客户信息页页面控件及功能
对象
功能
表格
用于控制页面显示信息位置
表单 文本框 文本框 文本框 文本框 文本框 文本框 文本域 按钮
名称为form1，提交目标网页为AddCustomer.asp，数据采用隐式传递方式 名称为customer_id，用于输入客户编号 名称为name，用于输入客户姓名 名称为city，用于输入客户所在城市 名称为telephone，用于输入客户电话号码 名称为address，用于输入客户具体地址 名称为department，用于输入客户工作单位 名称为memo，用于输入客户说明 单击【提交】按钮提交表单
& "',
'" & department& "','" & Now() & "','" & memo & "')"
Conn.Execute mysql
Response.Redirect "Customer.asp"
Rs1.Close
Set Rs = nothing
Conn.Close
Set Conn = nothing
页面设计：定义 SaveAdd()过程用来接收、验证和保存客户信息。首先根据页面返回的 action 值来调用相应的过程，然后接收网页表单传递的数据，然后判断客户信息的合法性。若未通
Fra Baidu bibliotek
过验证则给出相应的提示信息，若通过了验证则把客户信息保存到数据库。添加成功可继续
添加。
代码如下：
<% '根据页面返回的 action 消息来调用相应的过程 If Request("action") = "ChkAdd" Then
<form name="form1" method="post" action="AddCustomer.asp?action=ChkAdd">
<tr align="center">
项</b>
<td height="25" colspan="2" background="Images/bgg.gif"> <b>添加客户信息</b> <b> 带 </b>&nbsp;<b><font color="#FF0000">**</font></b>&nbsp;<b> 项 为必填
</td>
</tr>
<tr bgcolor="#FFFFFF"> <td width="32%" align="right"><font color="ff0000">**</font>客户编号：
</td>
<td width="68%" height="25">&nbsp; <input type="text" name="customer_id"> <%' 定 义 一 个 文 本 框 控 件
下面介绍 EditCustomer.asp 的主要代码。
页面代码分析如下所示。
<!--#include file="Conn.asp"--> <Link href="Css.css" rel=stylesheet>