taskedit.asp
来自「财务管理系统 报账等基本功能实现 有完整的实现」· ASP 代码 · 共 144 行
ASP
144 行
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑任务进度信息</title>
<link rel="stylesheet" type="text/css" href="../../style.CSS">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.sid.value==""){
alert("请选择销售编号！");
form1.sid.focus;
return false;
}
if (document.form1.tdate.value==""){
alert("请输入任务日期！");
form1.tdate.focus;
return false;
}
if (document.form1.empid.value==""){
alert("请选择任务的销售人员！");
form1.empid.focus;
return false;
}
return true;
}
//读取客户名称
function GetCustName(){
var m,cname;
m = form1.sid.selectedIndex;
cname = form1.sid.options[m].title;
form1.custname.value = cname;
}
</Script>
</head>
<body leftmargin="1" topmargin="0">
<%
Dim CustName,SaleId,EmpId,EmpName,Place,TDate,STime,ETime,Result,Detail
Dim tid
Dim Action
'变量初始化
Action = "add"
STime = "08:00"
ETime = "17:00"
TDate = Date()
'读取参数sid
tid= Request.QueryString("tid")
'读取参数action
Action = Request.QueryString("action")
'编辑记录时,需要从数据库中读取记录信息
If Action = "edit" Then
'设置SELECT语句，读取记录数据
sql = "SELECT t.*,e.EmpName,c.CustName,ct.CName" _
+ " FROM SaleTask t,SaleChance s,Customer c,Contact ct,Employees e " _
+ " WHERE t.SaleId=s.Id AND s.CustId=c.CustId AND s.CtId=ct.Id " _
+ " AND s.EmpId=e.EmpId And t.Id=" & tid
' response.write sql
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
CustName = rs("CustName")
SaleId = rs("SaleId")
TDate = rs("TaskDate")
Tby = rs("TaskBy")
STime = rs("StartTime")
ETime = rs("EndTime")
Place = rs("Place")
Purpose = rs("Purpose")
Result = rs("Result")
Detail = rs("Detail")
EmpName = rs("EmpName")
EmpId = rs("EmpId")
End If
rs.Close ' 关闭记录集,以备下次使用
End If
%>
<form name="form1" method="POST" action="TaskSave.asp?action=<%=Action%>&tid=<%=tid%>" onsubmit="return CheckFlds()">
<br>
<table align="center" border="1" cellspacing="0" width="99%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" height="29">
<p align="center"><b><font face="幼圆" color="#000080" size="4">任务进度信息</font></b></p>
</td>
</tr>
<tr>
<td width="16%" bgcolor="#CEE7FF">选择销售机会</td>
<td width="34%"><select size="1" name="sid" onclick="GetCustName()">
<%
' 读取行业类型信息
sql = "SELECT s.*,c.CustName FROM SaleChance s,Customer c Where s.CustId=c.CustId Order By Id"
Set rs1 = Conn.Execute(sql)
Do While Not rs1.EOF
%>
<option
<% If rs1("Id") = SaleId Then %>
selected
<% End If %>
value="<%=rs1("Id")%>" title="<%=rs1("CustName")%>"><%=rs1("ProName")%></option>
<% rs1.MoveNext
Loop
rs1.Close
%>
</select></td>
<td width="16%" bgcolor="#CEE7FF">客户名称</td>
<td width="34%"><input type="text" name="custname" size="20" value="<%=CustName%>" Readonly></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">任务日期</td>
<td><input type="text" name="tdate" size="20" value="<%=TDate%>"></td>
<td bgcolor="#CEE7FF">工作方式</td>
<td><input type="text" name="tby" size="20" value="<%=Tby%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">任务目的</td>
<td><input type="text" name="purpose" size="20" value="<%=Purpose%>"></td>
<td bgcolor="#CEE7FF">任务地点</td>
<td><input type="text" name="Place" size="20" value="<%=Place%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">开始时间</td>
<td><input type="text" name="stime" size="20" value="<%=STime%>"></td>
<td bgcolor="#CEE7FF">结束时间</td>
<td><input type="text" name="etime" size="20" value="<%=ETime%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">销售人员</td>
<td colspan="3"><input type="text" name="empname" size="20" value="<%=EmpName%>" ReadOnly>
<input type="hidden" name="empid" value="<%=EmpId%>">
<input type="button" value="选择" onclick="javascript:news=window.open('empsel.asp','news','left=300,top=200,height=300,width=200,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=no');news.focus();" name="B3" style="font-family: 宋体; font-size: 9pt"></font>
</td>
</tr>
<tr>
<td bgcolor="#CEE7FF">任务描述</td>
<td colspan="3"><input type="text" name="detail" size="60" value="<%=Detail%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">任务结论</td>
<td colspan="3"><textarea rows="3" name="result" cols="60"><%=Result%></textarea></td>
</tr>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?