📄 purview.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>查看采购订单信息</title>
<link rel="stylesheet" href="../style.css">
</head>
<%
Dim PurId,CreateDate,GetDate,Status,Memo,Poster,ProSum,OtherCost,Total
Dim EmpName,ProId,ProName,Style
Dim Action,rs
'变量初始化
PurId = ""
Status = "创建"
GetDate = ""
ProSum = 0
OtherCost = 0
Total = 0
CreateDate = Date()
Poster = Session("UserName")
'读取参数action\pid
Action = Request.QueryString("action")
PurId = Request.QueryString("pid")
Set rs = Server.CreateObject("ADODB.RecordSet")
'设置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")
'计算商品列表中对应的商品总金额
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
rs.Close()
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/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><%=PurId%> </td>
<td bgcolor="#CEE7FF">当前状态</td>
<td><%=Status%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">收货日期</td>
<td><%=GetDate%> </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="12%" align="center" bgcolor="#C1E0FF"><strong>商品编号</strong></td>
<td width="14%" align="center" bgcolor="#C1E0FF"><strong>商品名称</strong></td>
<td width="16%" align="center" bgcolor="#C1E0FF"><strong>商品型号</strong></td>
<td width="20%" align="center" bgcolor="#C1E0FF"><strong>客户名称</strong></td>
<td width="16%" 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>
<%'读取对应的采购商品信息
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='7' 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>
</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 + -