📄 stk_ctgquery.asp
字号:
<%@ Language=VBScript %>
<%
'***************************************************
'功能：查询仓库品种库存
'入口参数：
'1.Tstr_StfID:登陆ID
'出口参数：
'1.TStr_WhsID:仓库号码
'2.TStr_CtgID:品种编号
'作者：王伟锋，日期：2001.6.20
'***************************************************
'接收参数
LStr_WhsID=trim(request("LStr_WhsID"))
'建立数据库连接
dim DBconn
set DBconn=server.CreateObject("adodb.connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
%>
<HTML>
<HEAD>
<TITLE>仓库情况查询</TITLE>
</HEAD>
<BODY>
<H3>仓库品种库存
<HR>
</H3>
<P>仓库名称：
<%
'打开表Basic_Warehouse
dim wwf_RsViewWhs
set wwf_RsViewWhs=server.CreateObject("adodb.recordset")
wwf_RsViewWhs.CursorLocation=3
wwf_SqlViewWhs="select Whs_ID,Whs_Name from Basic_Warehouse"
wwf_RsViewWhs.Open wwf_SqlViewWhs,DBconn,2
%>
<form name="ListForm" action="Stk_CtgQuery.asp" method="post">
<SELECT name="LStr_WhsID" style="HEIGHT: 22px; WIDTH: 148px" onchange="vbscript:ListForm.submit()">
<OPTION value="" <%if LStr_WhsID="" then%>selected<%end if%>>请选择仓库</OPTION>
<%
do while not wwf_RsViewWhs.EOF
%>
<OPTION value="<%=trim(wwf_RsViewWhs("Whs_ID"))%>" <%if trim(wwf_RsViewWhs("Whs_ID"))=LStr_WhsID then%>selected<%end if%>><%=trim(wwf_RsViewWhs("Whs_Name"))%></OPTION>
<%
wwf_RsViewWhs.MoveNext
loop
%>
</SELECT>
</form></P>
<P>仓库品种库存列表：</P>
<P>
<%
'打开表Warehouse_Stock,basic_Category
dim wwf_RsWhsStk
set wwf_RsWhsStk=server.CreateObject("adodb.recordset")
wwf_RsWhsStk.CursorLocation =3
wwf_SqlWhsStk="select c.Ctg_ID,c.Ctg_Name,w.Whs_ID,w.Whs_StkNum,w.Whs_StkNumCanOut from Warehouse_Stock w,basic_Category c where w.Whs_ID='"&LStr_WhsID&"' and w.Ctg_ID=c.Ctg_ID"
'Response.Write wwf_SqlWhsStk
wwf_RsWhsStk.Open wwf_SqlWhsStk,DBconn,2
%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>品种名称</TD>
<TD>库存总量</TD>
<TD>可出库量</TD>
<TD>库存明细</TD></TR>
<%
'设置显示记录条数
wwf_RsWhsStk.PageSize = 10
dim TLg_Page
TLg_Page = CLng(Request("TLg_Page"))
If TLg_Page < 1 Then TLg_Page = 1
If TLg_Page > wwf_RsWhsStk.PageCount Then TLg_Page = wwf_RsWhsStk.PageCount
'分页显示程序
if not wwf_RsWhsStk.EOF then
wwf_RsWhsStk.AbsolutePage = TLg_Page
dim LINTi
LINTi=0
dim LINTiPage
For LINTiPage = 1 To wwf_RsWhsStk.PageSize
%>
<TR>
<TD><%=trim(wwf_RsWhsStk("Ctg_Name"))%></TD>
<TD><%=trim(wwf_RsWhsStk("Whs_StkNum"))%></TD>
<TD><%=trim(wwf_RsWhsStk("Whs_StkNumCanOut"))%></TD>
<TD><a href="Stk_CtgDtl.asp?TStr_CtgID=<%=trim(wwf_RsWhsStk("Ctg_ID"))%>&TStr_WhsID=<%=trim(wwf_RsWhsStk("Whs_ID"))%>" target="_blank">库存明细</a></TD></TR>
<%
LLgi=LINTi+1
wwf_RsWhsStk.movenext
if wwf_RsWhsStk.eof then exit for
next
%>
</TABLE></p>
<p><table border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<%
If TLg_Page <> 1 Then
If TLg_Page <> wwf_RsWhsStk.PageCount Then
%>
<td width="60" height="20"><a href="Stk_CtgQuery.asp?TLg_Page=1&LStr_WhsID=<%=LStr_WhsID%>">首 页</a></td>
<td width="60" height="20"><a href="Stk_CtgQuery.asp?TLg_Page=<%=TLg_Page-1%>&LStr_WhsID=<%=LStr_WhsID%>">上一页</a></td>
<td width="60" height="20"><a href="Stk_CtgQuery.asp?TLg_Page=<%=TLg_Page+1%>&LStr_WhsID=<%=LStr_WhsID%>">下一页</a></td>
<td width="60" height="20"><a href="Stk_CtgQuery.asp?TLg_Page=<%=wwf_RsWhsStk.PageCount%>&LStr_WhsID=<%=LStr_WhsID%>">末 页</a></td>
<%
else
%>
<td width="60" height="20"><a href="Stk_CtgQuery.asp?TLg_Page=1&LStr_WhsID=<%=LStr_WhsID%>">首 页</a></td>
<td width="60" height="20"><a href="Stk_CtgQuery.asp?TLg_Page=<%=TLg_Page-1%>&LStr_WhsID=<%=LStr_WhsID%>">上一页</a></td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末 页</td>
<%
End If
else
If wwf_RsWhsStk.PageCount <> 1 Then
%>
<td width="60" height="20">首 页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20"><a href="Stk_CtgQuery.asp?TLg_Page=<%=TLg_Page+1%>&LStr_WhsID=<%=LStr_WhsID%>">下一页</a></td>
<td width="60" height="20"><a href="Stk_CtgQuery.asp?TLg_Page=<%=wwf_RsWhsStk.PageCount%>&LStr_WhsID=<%=LStr_WhsID%>">末 页</a></td>
<%
else
%>
<td width="60" height="20">首 页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末 页</td>
<%
End If
End If
%>
<td width="250" height="20" align="right">
<font size=3>第<%=TLg_page%>页共<%=wwf_RsWhsStk.PageCount%>页</font>
</td>
</tr>
</table></p>
<%
else
%>
<p><table border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<td width="60" height="20">首页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末页</td>
<td width="250" height="20" align="right">
<font size=3>第0页共0页</font>
</td>
</tr>
</table></p>
<%
end if
%>
<P align=center><INPUT type="button" value="关闭窗体" onclick="javascript:window.close()"></P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -