📄 store_detail1.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css/main.css" rel="stylesheet" type="text/css">
<title>库存配件汇总表</title>
<!--media=print 这个属性可以在打印时有效-->
<style media=print>
.Noprint{display:none;}
.PageNext{page-break-after: always;}
</style>
</head>
<body leftmargin="30" topmargin="20">
<br />
<table width="530" border="1" cellpadding="0" cellspacing="0" bgcolor="#ffffff" bordercolor="#000000">
<tr><td align="center" height="30" colspan="8"><strong>查询 <%=request.Form("class")%> 从 <%=request("end_time")%> 到 <%=request("end_time1")%> 的库存记录</strong></td></tr>
<tr>
<td width="20%" height="20" align="center">类 别</td>
<td width="20%" height="18" align="center">配件名称</td>
<td width="20%" height="18" align="center">车 型</td>
<td width="10%" height="18" align="center">入库量</td>
<td width="10%" height="18" align="center" >出库量</td>
<td width="20%" height="18" align="center" >数 量</td>
</tr>
<%
i=0
end_time=request.Form("end_time")
end_time1=request.Form("end_time1")
class1=request.Form("class")
set Rs=server.createobject("adodb.recordset")
if class1="" then
rs.open "select class,pinming,guige,sum(use_num) as num1 from In_Store where uptime between #"&end_time&"# and #"&end_time1&"# group by class,pinming,guige",conn,1,1
else
rs.open "select class,pinming,guige,sum(use_num) as num1 from In_Store where class='"&class1&"' and (uptime between #"&end_time&"# and #"&end_time1&"#) group by class,pinming,guige",conn,1,1
end if
if not rs.eof then
do while not rs.eof
class1=rs("class")
pinming=rs("pinming")
guige=rs("guige")
%>
<% set Rs0=server.createobject("adodb.recordset")
rs0.open "select class,pinming,guige,sum(Loan_num) as num2 from out_Store where class='"&class1&"' and pinming='"&pinming&"' and guige='"&guige&"' and (uptime between #"&end_time&"# and #"&end_time1&"#) group by class,pinming,guige",conn,1,1
if rs0.eof then
num2=0
else
num2=rs0("num2")
end if
%>
<tr >
<td height="20" width="20%" align="center" ><font color="#CC3300"><%=rs("class")%></font><%if rs("class")="" then%> <%end if%></td>
<td height="18" width="20%"> <font color="#000099"><%=rs("pinming")%></font></td>
<td height="18" width="20%" > <%=rs("guige")%></td>
<td height="18" width="10%" align="right"> <%=rs("num1")%> </td>
<td height="18" width="10%" align="right"><%=num2%> </td>
<td height="18" width="20%" align="right" ><%=rs("num1")-num2%> </td>
</tr>
<%
rs0.close
set rs0=nothing
i=i+1
%>
<%rs.movenext%>
<%loop%>
<%
end if
rs.close
set rs=nothing
%>
<tr><td colspan="8" height="30"> 符合查询条件的库存记录总共为 <font color="#cc0000"><%=i%></font> 条</td></tr>
</table>
<table>
<tr><td height="30" colspan="10" align="center"><OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0 VIEWASTEXT>
</OBJECT>
<input type=button value=打印 onClick="document.all.WebBrowser.ExecWB(6,1)" class="NOPRINT">
<input type=button value=直接打印 onClick="document.all.WebBrowser.ExecWB(6,6)" class="NOPRINT">
<input type=button value=页面设置 onClick="document.all.WebBrowser.ExecWB(8,1)" class="NOPRINT">
<input type=button value=打印预览 onClick="document.all.WebBrowser.ExecWB(7,1)" class="NOPRINT">
</td></tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -