📄 saleedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑销售订单信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.sid.value==""){
   alert("请输入订单编号！");
   form1.sid.focus;
   return false;
  } 
  if (document.form1.contact.value==""){
   alert("请输入客户联系人！");
   form1.contact.focus;
   return false;
  } 
  if (document.form1.cust.selectedIndex<0){
   alert("请选择客户名称！");
   form1.cust.focus;
   return false;
  }  
  return true;
}
function new11(url) {
  //为了保证数据的完整性，在添加、修改和删除前要提交一下表单保存表单数据
  form1.action = "SaleSave.asp?action=edit&flag=1";
  form1.submit();
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=550,height=280";
  var new11=window.open(url,"new11",oth);
  new11.focus();
  return false;
}
function fSave(){
  var sid;
  sid = document.form1.sid.value;
  var url="SaleSave.asp?flag=0&sid=" + sid;
  form1.action = url;
  form1.submit();
}
function Calculate(){
  // 当更改其他费用时，销售订单总金额同时变更
  var cst,psum;
  cst = document.form1.cost.value;
  psum = document.form1.psum.value;
  document.form1.total.value = eval(cst) + eval(psum);
}
</Script>
</head>
<%
  Dim SaleId,CustId,CustName,Contact,CreateDate,DeliveryDate,Status,Memo,Poster,ProSum,OtherCost,Total
  Dim EmpId,EmpName,ProId,ProName,Style
  Dim Action,rs
  '变量初始化
  SaleId = "" '设置销售订单编号为空
  CustId = 0  '客户编号
  Status = "创建"  '状态
  ProSum = 0   '销售商品金额
  OtherCost = 0  '其他费用
  Total = 0   '销售订单总金额
  CreateDate = Date()  '创建日期
  Poster = Session("UserName")  '创建人
  '读取参数action\sid
  Action = Request.QueryString("action")
  SaleId = Request.QueryString("sid")  
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑销售订单记录
  If Action = "edit" Then
    '设置SELECT语句，读取记录数据
    sql = "SELECT o.*,c.CustName,e.EmpName FROM SaleOrder o Inner Join Customer c On o.CustId = c.CustId" _
      & " Left Join Employees e On o.EmpId = e.EmpId Where o.SaleId='"& SaleId & "' ORDER BY o.SaleId"
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      CustName = rs("CustName")
      CustId = rs("CustId")
      Contact = rs("Contact")
      Status = rs("Status")
      DeliveryDate = rs("DeliveryDate")
      OtherCost = rs("OtherCost")      
      Poster = rs("Poster")
      CreateDate = rs("CreateDate")
      Memo = rs("Memo")
      EmpName = rs("EmpName")
      EmpId = rs("EmpId")
      '计算商品列表中对应的商品总金额
      sql = "Select Sum(Price*Quantity) AS pSum From ProductList Where SaleId='" & SaleId & "'"
      Set rs1 = Conn.Execute(sql)
      If IsNull(rs1("pSum")) Then
        ProSum = 0
      Else
        ProSum = rs1("pSum")
      End If
      Total = CDbl(ProSum) + CDbl(OtherCost)
      Set rs1 = Nothing
    End If
    rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="SaleOK.asp?action=<%=Action%>&sid=<%=SaleId%>" 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/sale.jpg" height="90" width="100%">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">商品销售订单</font></b></p>
      </td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">销售订单号</td>
      <td><input type="text" name="sid" size="20" value="<%=SaleId%>" <%If action="edit" Then%>ReadOnly<%End If%>>&nbsp;</td>
      <td bgcolor="#CEE7FF">当前状态</td>
      <td><%=Status%>&nbsp;</td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">选择客户名称</td>
      <td width="40%">
<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 width="20%" bgcolor="#CEE7FF">客户联系人</td>
      <td width="40%"><input type="text" name="contact" size="20" value="<%=Contact%>">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">交货日期</td>
      <td><input type="text" name="ddate" size="20" value="<%=DeliveryDate%>">&nbsp;</td>
      <td bgcolor="#CEE7FF">销售人员</td>
      <td><input type="text" name="empname" size="20" value="<%=EmpName%>" ReadOnly>&nbsp;
<input type="button" value="选 择" onclick="javascript:news=window.open('EmpSel.asp','news','x=100,y=100,height=300,width=200,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=yes');news.focus();" name="B3">
      </td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">商品总金额</td>
      <td><input type="text" name="psum" size="20" value="<%=ProSum%>" ReadOnly>&nbsp;</td>
      <td bgcolor="#CEE7FF">其他费用</td>
      <td><input type="text" name="cost" size="20" value="<%=OtherCost%>" OnChange="Calculate()">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">订单总金额</td>
      <td><input type="text" name="total" size="20" value="<%=Total%>" ReadOnly>&nbsp;</td>
      <td bgcolor="#CEE7FF" rowspan="3">备注</td>
      <td rowspan="3"><textarea rows="3" name="memo" cols="20"><%=Memo%></textarea></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">创建日期</td>
      <td><%=CreateDate%>&nbsp;</td>
     </tr>
    <tr>
     <td bgcolor="#CEE7FF">录入人</td>
      <td><input type="text" name="poster" size="20" value="<%=Poster%>">&nbsp;</td>
    </tr>
  </table>
<%If SaleId="" Then%>
  <p align=center><input type="button" value=" 保 存 " name="B1" onclick="if(CheckFlds()){fSave();}else{return false;}"></p>
<%Else%><br>
   <table align=center border="0" cellspacing="0" width="95%">
   <tr><td align="center">销售商品列表</td></tr>
   <tr><td align="right">
<a href="ListEdit.asp?action=add&sid=<%=SaleId%>" onclick="return new11(this.href)">添加销售商品</a></td>
  </tr>
 </table>
 <table align=center border="1" cellspacing="0" width="95%" bordercolorlight="#000080" bordercolordark="#FFFFFF">
  <tr>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>商品编号</strong></td>
   <td width="18%" align="center" bgcolor="#C1E0FF"><strong>商品名称</strong></td>
   <td width="18%" align="center" bgcolor="#C1E0FF"><strong>商品型号</strong></td>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>销售价格</strong></td>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>销售数量</strong></td>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>总额</strong></td>
   <td width="16%" align="center" bgcolor="#C1E0FF"><strong>操作</strong></td>
  </tr>
<%  If Action = "edit" Then  '当编辑信息时，提取订单商品信息
      '读取对应的销售商品信息
      sql = "SELECT l.*,p.ProName,p.ProStyle  FROM ProductList l,Product p" _
        & " WHERE l.ProId=p.ProId AND l.SaleId='" & SaleId & "' ORDER BY l.ProId"
      rs.Open sql,Conn,1,3
      If rs.EOF Then
        Response.Write "<tr><td colspan='7' align='center'>目前没有记录</td></tr>"
      End If
      Do While Not rs.EOF
        ProId = rs("ProId")
        ProName = rs("ProName")
        Style = rs("ProStyle")
        Quantity = rs("Quantity")
        Price = rs("Price")
     %>
   <tr>
   <td align=center><%=ProId%></td>
   <td><%=ProName%></td>
   <td><%=Style%></td>
   <td align="right"><%=Price%></td>
   <td align="right"><%=Quantity%></td>
   <td align="right"><%=CDbl(Price)*CDbl(Quantity)%></td>
    <td align="center">
    <a href="ListEdit.asp?action=edit&lid=<%=rs("ListId")%>" onClick="return new11(this.href)">修改</a>&nbsp;
    <a href="ListDelt.asp?lid=<%=rs("ListId")%>" onClick="return new11(this.href)">删除</a>&nbsp;
    </td>
  </tr> 
     <%
        rs.MoveNext()
      Loop
    Else
      Response.Write "<tr><td colspan='7' align='center'>目前没有记录</td></tr>"
    End If
%>
</table>
  <p align=center><input type="submit" value=" 提 交 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
<%End If%>
<input type="hidden" name="empid" size="10" value="<%=EmpId%>">
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -