📄 puredit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑采购订单信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.pid.value==""){
   alert("请输入订单编号！");
   form1.pid.focus;
   return false;
  } 
  return true;
}
function new11(url) {
  //为了保证数据的完整性，在添加、修改和删除前要提交一下表单保存表单数据
  form1.action = "PurSave.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=320";
  var new11=window.open(url,"new11",oth);
  new11.focus();
  return false;
}
function fSave(){
  var pid;
  pid = document.form1.pid.value;
  var url="PurSave.asp?flag=0&pid=" + pid;
  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 PurId,CreateDate,GetDate,Status,Memo,Poster,ProSum,OtherCost,Total
  Dim EmpId,EmpName,ProId,ProName,Style
  Dim Action,rs
  '变量初始化
  PurId = ""  '设置采购订单编号为空
  Status = "创建"  '状态
  ProSum = 0   '采购商品金额
  OtherCost = 0  '其他费用
  Total = 0   '采购订单总金额
  CreateDate = Date()  '创建日期
  Poster = Session("UserName")  '创建人

  '读取参数action\pid
  Action = Request.QueryString("action")  
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑采购订单记录
  If Action = "edit" Then
    PurId = Request.QueryString("pid")
    '设置SELECT语句，读取记录数据
    sql = "SELECT o.*,e.EmpName FROM PurchaseOrder o" & _
      " Left Join Employees e On o.EmpId = e.EmpId Where o.PurId='"& PurId & "'"
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      Status = rs("Status")
      GetDate = rs("GetDate")
      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 PurProductList Where PurId='" & PurId & "'"
      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="PurOK.asp?action=<%=Action%>&pid=<%=PurId%>" 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/Pur.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="pid" size="20" value="<%=PurId%>" <%If action="edit" Then%>ReadOnly<%End If%>>&nbsp;</td>
      <td bgcolor="#CEE7FF">当前状态</td>
      <td><%=Status%>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">收货日期</td>
      <td><input type="text" name="gdate" size="20" value="<%=GetDate%>">&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=no');news.focus();" name="B3"></font>
      </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>&nbsp;</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 PurId="" 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&pid=<%=PurId%>" 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="10%" 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="14%" 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,c.CustName  FROM PurProductList l,Product p,Customer c" _
        & " WHERE l.ProId=p.ProId AND l.CustId=c.CustId And l.PurId='" & PurId & "' ORDER BY l.ProId"
      rs.Open sql,Conn,1,3
      If rs.EOF Then
        Response.Write "<tr><td colspan='8' align='center'>目前没有记录</td></tr>"
      End If
      Do While Not rs.EOF
   %>
   <tr>
   <td align=center><%=rs("ProId")%></td>
   <td><%=rs("ProName")%></td>
   <td><%=rs("ProStyle")%></td>
   <td><%=rs("CustName")%></td>
   <td align="right"><%=rs("Price")%></td>
   <td align="right"><%=rs("Quantity")%></td>
   <td align="right"><%=CDbl(rs("Price"))*CDbl(rs("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
    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 + -