📄 quoteedit.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑商品报价信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.name.value==""){
alert("请选择销售商品！");
form1.name.focus;
return false;
}
if (document.form1.cust.selectedIndex<0){
alert("请选择报价客户！");
form1.cust.focus;
return false;
}
if (document.form1.qprice.value==""){
alert("请输入报价单价！");
form1.qprice.focus;
return false;
}
if (document.form1.cdate.value==""){
alert("请输入报价日期！");
form1.cdate.focus;
return false;
}
return true;
}
</Script>
</head>
<%
Dim QuoId,ProId,ProInfo,CustId,CustName,CreateDate,QPrice,Memo
Dim Action,rs
'变量初始化
ProId = 0
QPrice = 0
CreateDate = Date()
'读取参数action\qid
Action = Request.QueryString("action")
QuoId = Request.QueryString("qid") '读取报价编号
Set rs = Server.CreateObject("ADODB.RecordSet")
'编辑问题记录
If Action = "edit" Then
'设置SELECT语句，读取记录数据,数据来源：报价表、商品信息表、客户信息表、商品类型表
sql = "SELECT q.*,p.*,c.CustName FROM PurchaseQuote q,Product p,Customer c " _
+ " WHERE q.ProId=p.ProId AND q.CustId=c.CustId And q.QuoId=" & QuoId
rs.Open sql,conn,1,3
If Not rs.EOF Then
CustId = rs("CustId")
CustName = rs("CustName")
ProId = rs("ProId")
ProName = rs("ProName")
ProStyle = rs("ProStyle")
ProPrice = rs("ProPrice")
QPrice = rs("QuotePrice")
CreateDate = rs("CreateDate")
Memo = rs("Memo")
ProInfo = "名称:" & ProName & "型号:" & ProStyle & "__销售价格:" & ProPrice
End If
rs.Close()
End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="QuoteSave.asp?action=<%=Action%>&qid=<%=QuoId%>" onsubmit="return CheckFlds()">
<br>
<table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="pic/product.jpg" height="90" width="100%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6">商品报价信息</font></b></p>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">报价商品</td>
<td width="40%" colspan="3"><input type="text" name="proinfo" size="50" value="<%=ProInfo%>" ReadOnly>
<input type="button" value="选 择" onclick="javascript:news2=window.open('ProSel.asp','news2','x=100,y=100,height=300,width=400,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=no');news2.focus();" name="B3">
</td>
</tr>
<tr>
<td bgcolor="#CEE7FF">选择客户名称</td>
<td><select size="1" name="cust">
<%
sql = "Select * From Customer ORDER BY CustId"
rs.Open sql,conn,1,3
Do While Not rs.EOF
If rs("CustId")=CustId Then
%>
<option value="<%=rs("CustId")%>" selected><%=rs("CustName")%></option>
<%Else%>
<option value="<%=rs("CustId")%>"><%=rs("CustName")%></option>
<%End If
rs.MoveNext()
Loop
rs.Close()%>
</select></td>
<td bgcolor="#CEE7FF">商品报价</td>
<td><input type="text" name="qprice" size="10" value="<%=QPrice%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">报价日期</td>
<td colspan="3"><input type="text" name="cdate" size="50" value="<%=CreateDate%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">备注</td>
<td colspan="3"><textarea rows="3" name="memo" cols="50"><%=Memo%></textarea> </td>
</tr>
</table><input type="hidden" name="proid" size="20" value="<%=ProId%>">
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -