📄 viewkucun.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!--#include file=function.asp-->
<html>
<head>
<title>库存列表</title>
<style type="text/css">
<!--
.STYLE1 {font-size: 12px}
body { background-image: url(images/1.gif);}
.STYLE2 { font-size: 36px;font-family: "方正姚体";color: #0000FF;}
-->
</style>
</head>
<body topmargin="0" class="STYLE1">
<p> </p>
<p class="STYLE2">查看库存</p>
<p>
<%
getcangku(session("storage"))
%>
<%
if request.querystring("prnt")="" then
session("prnt")=0
else
session("prnt")=request.querystring("prnt")
end if
gettypepath
response.write "<br> "
response.write "<br> "
' 列出类别目录
sql="select * from leibie where in_cangku="&session("storage")
rs.open sql,conn,3,2
if not rs.eof then
do while not rs.eof
sql="select count(*) as num_count from stock where lei_id="&rs("lei_id")
rs2.open sql,conn
pzs=rs2("num_count")
rs2.close
sql="select count(*) as num_count from leibie where leibie_id="&rs("lei_id")
rs2.open sql,conn
lbs=rs2("num_count")
rs2.close
if lbs=0 then
show_lbs=""
else
show_lbs="(<font size=2>"&lbs&"</font>)"
end if
response.write "<font size=2><li><a href=viewkucun.asp?prnt="&rs("lei_id")&">"&rs("lei_name")&"</a> </font>(<font size=2>"&pzs&"</font>)"&show_lbs&"</li></font>"
rs.movenext
loop
else
response.write "<li>没有下级类别 "
' [ <a href=type.asp?prnt="&session("prnt")&">查看该类明细</a> ]</li>"
end if
rs.close
%>
</p>
<p> </p>
<table border='0' width='100%' bordercolorlight='#c0c0c0' cellspacing='1' bordercolordark='#FFFFFF' height='26'>
<%
gettype(session("prnt"))
' <tr bgcolor='#ff bc bc'><td colspan=9>
sql="select * from stock where lei_id="&session("prnt")&" order by name"
rs.open sql,conn
if not rs.eof then
response.write " <tr bgcolor='#cc00aa'>"
response.write " <td nowrap align=center ><font size=2 color=white>编号</td>"
response.write " <td nowrap align=center ><font size=2 color=white>名称</td>"
response.write " <td nowrap align=center ><font size=2 color=white>单位</td>"
response.write " <td nowrap align=center ><font size=2 color=white>规格</td>"
response.write " <td nowrap align=center ><font size=2 color=white>储存地点</td>"
response.write " <td nowrap align=center ><font size=2 color=white>当前库存</td>"
response.write " <td nowrap align=center ><font size=2 color=white>金额(元)</td>"
response.write " <td nowrap align=center ><font size=2 color=white>操作</td>"
response.write " </tr>"
total_sum=0
record=0
do while not rs.eof
record=record+1
if record/2=int(record/2) then
clr="#fff0ff"
else
clr="#ccccaa"
end if
total_sum=total_sum+rs("now_sum")
response.write "<tr bgcolor="&clr&">"
response.write "<td align=center><font size=2>"&rs("name_id")&"</font></td>"
response.write "<td align=center> <font size=2>"&rs("name") &"</font></td>"
response.write "<td align=center><font size=2>" &rs("unit") &"</font></td>"
response.write "<td align=center><font size=2>" &rs("rule") &"</font></td>"
response.write "<td align=center><font size=2>" &rs("address") &"</font></td>"
response.write "<td align=right><font size=2>" &rs("now_stock") &"</font></td>"
response.write "<td align=right><font size=2>" &FormatCurrency(rs("now_sum"),2) &"</td>"
response.write "<td align=center>[<a href=enter.asp?id="&rs("name_id")&"><font size=2>入库</font></a>|"
response.write "<a href=out.asp?id="&rs("name_id")&"><font size=2>出库</font></a>|"
response.write "<a href=list.asp?id="&rs("name_id")&"><font size=2>提货单管理</font></a>]</td>"
response.write "</tr>"
rs.movenext
loop
%>
<tr>
<td align=right colspan=6><span class="STYLE1"><font color=blue> 统 计：</span></td>
<td width="12%" align=right><span class="STYLE1"><%=formatcurrency(total_sum,2)%></span></td>
</tr>
<%else%>
<tr ><td width="52%" ><font color=white><li class="STYLE1">该类别下没有物品 </li></td></tr>
<%end if%>
</table>
<div align="center"><br>
[ <a href=addtype.asp>添加类别</a> | <a href=addname.asp>增加物品</a>| <a href=index.asp>返回主页</a> ]
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -