📄 listrntedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 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.price.value==""){
   alert("请输入退货单价！");
   form1.price.focus;
   return false;
  } 
  if (document.form1.quantity.value==""){
   alert("请输入退货数量！");
   form1.quantity.focus;
   return false;
  }  
  return true;
}
function Calculate(){
  // 当更改退货数量或者价格时，退货金额同时变更
  var prc,qnt;
  prc = document.form1.price.value;
  qnt = document.form1.quantity.value;
  if(/^[.0-9]*$/g.test(qnt))  // 正则表达式
    document.form1.total.value = prc * qnt;
  else {
    alert("退货数量必须为数字！");
    document.form1.quantity.focus;
  }
}
</Script>
</head>
<%
  Dim ListId,ProId,RntId,ProInfo,Price,Quantity,Memo,CustId,CustName,OldProId
  Dim Action,rs,PurId
  '变量初始化
  ProId = 0
  ProInfo = ""
  Price = 0
  Quantity = 0
  Memo = ""
  '读取参数action\lid
  Action = Request.QueryString("action")
  ListId = Request.QueryString("lid")   '读取销售商品列表编号
  RntId = Request.QueryString("rid")   '读取退货单编号
  PurId = Request.QueryString("pid")   '读取订单编号
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑问题记录
  If Action = "edit" Then
    '设置SELECT语句，读取记录数据
    sql = "SELECT l.*,p.ProName,p.ProStyle,ProPrice,p.Quantity AS ProQnt," _
      + " c.CustName FROM Product p,PurProductList l,Customer c" _
      + " WHERE l.ProId=p.ProId And l.CustId=c.CustId And l.ListId=" & ListId
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      RntId = rs("PurId")
      CustId = rs("CustId")
      CustName = rs("CustName")
      ProId = rs("ProId")
      OldProId = ProId
      ProName = rs("ProName")
      ProStyle = rs("ProStyle")
      Price = rs("Price")
      Quantity = rs("Quantity")
      Memo = rs("Memo")
      ProInfo = "名称:" & ProName & "型号:" & ProStyle & "__采购价格:" & Price & "__采购数量:" & Quantity
   End If
   rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="ListRntSave.asp?action=<%=Action%>&lid=<%=ListId%>" 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>&nbsp;
  <input type="button" value="选 择" onclick="javascript:news2=window.open('ProRntSel.asp?pid=<%=PurId%>','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 colspan="3"><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>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">退货价格</td>
      <td><input type="text" name="price" size="10" value="<%=Price%>" OnChange="Calculate()">&nbsp;</td>
      <td bgcolor="#CEE7FF">退货数量</td>
      <td><input type="text" name="quantity" size="10" value="<%=Quantity%>" OnChange="Calculate()">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">退货金额</td>
      <td  colspan="3"><input type="text" name="total" size="50" value="<%=CInt(Quantity)*CDbl(Price)%>" ReadOnly>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">备注</td>
      <td  colspan="3"><textarea rows="3" name="memo" cols="50"><%=Memo%></textarea>&nbsp;</td>
    </tr>
  </table>
<input type="hidden" name="proid" size="20" value="<%=ProId%>">
<input type="hidden" name="oldpid" size="20" value="<%=OldProId%>">
<input type="hidden" name="rid" size="20" value="<%=RntId%>">
  <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 + -