📄 saleview.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>查看销售订单信息</title>
<link rel="stylesheet" href="../style.css">
</head>
<%
Dim SaleId,CustName,Contact,CreateDate,DeliveryDate,Memo,Poster,ProSum,OtherCost,Total,Status
Dim EmpName,ProId,ProName,Style
Dim rs
'读取参数action\sid
Action = Request.QueryString("action")
SaleId = Request.QueryString("sid")
Set rs = Server.CreateObject("ADODB.RecordSet")
'设置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")
Contact = rs("Contact")
Status = rs("Status")
DeliveryDate = rs("DeliveryDate")
OtherCost = rs("OtherCost")
Poster = rs("Poster")
CreateDate = rs("CreateDate")
Memo = rs("Memo")
EmpName = rs("EmpName")
'计算商品列表中对应的商品总金额
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
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" >
<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><%=SaleId%> </td>
<td bgcolor="#CEE7FF">当前状态</td>
<td><%=Status%> </td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">选择客户名称</td>
<td width="40%"><%=CustName%></td>
<td width="20%" bgcolor="#CEE7FF">客户联系人</td>
<td width="40%"><%=Contact%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">交货日期</td>
<td><%=DeliveryDate%> </td>
<td bgcolor="#CEE7FF">销售人员</td>
<td><%=EmpName%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">商品总金额</td>
<td><%=ProSum%> </td>
<td bgcolor="#CEE7FF">其他费用</td>
<td><%=OtherCost%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">订单总金额</td>
<td><%=Total%> </td>
<td bgcolor="#CEE7FF" rowspan="3">备注</td>
<td rowspan="3"><%=Memo%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">创建日期</td>
<td><%=CreateDate%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">录入人</td>
<td><%=Poster%> </td>
</tr>
</table>
<br>
<table align=center border="0" cellspacing="0" width="95%">
<tr><td align="center">销售商品列表</td></tr>
<tr><td align="right"></td>
</tr>
</table>
<table align=center border="1" cellspacing="0" width="95%" bordercolorlight="#000080" bordercolordark="#FFFFFF">
<tr>
<td width="14%" align="center" bgcolor="#C1E0FF">商品编号</td>
<td width="20%" align="center" bgcolor="#C1E0FF">商品名称</td>
<td width="20%" align="center" bgcolor="#C1E0FF">商品型号</td>
<td width="16%" align="center" bgcolor="#C1E0FF">销售价格</td>
<td width="14%" align="center" bgcolor="#C1E0FF">销售数量</td>
<td width="16%" align="center" bgcolor="#C1E0FF">总额</td>
</tr>
<%rs.Close()
'读取对应的销售商品信息
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='6' 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>
</tr>
<% rs.MoveNext()
Loop%>
</table>
<p align=center><input type="button" value=" 关 闭 " name="B1" onclick="javascript:window.close();"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -