📄 k_rk.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/Pubcode.asp"-->
<% username=Getuser()
userclass=TableVisitor("k_instock",username)
if userclass<2 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=K_rkbrow.asp>返回</a>"
response.end
end if
%>
<%
set rst=server.createobject("adodb.recordset")
str="select * from k_tblstock where sfyrk='N' and sfshtg='Y' and DepartID='"&Session("DepartID")&"'order by id desc"
rst.open str,pubconn,1
'response.write str
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>单据查询</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
sub GoPage()
page1=document.form1.page1.value
a="k_rk.asp?page="+page1
window.location=a
end sub
'以下判断只有为数字型才能输入
<%for i= 1 to rst.pagesize%>
sub rksl<%=i%>_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.rksl<%=i%>.value,"Num",window.event.keyCode)
end sub
<%next%>
<%for i= 1 to rst.pagesize%>
sub rksl<%=i%>_onkeyup
if eval(document.form1.rksl<%=i%>.value)>eval(document.form1.jhsl<%=i%>.value) then
alert("入库数量不能大于进货数量！")
document.form1.rksl<%=i%>.value=""
exit sub
end if
end sub
<%next%>
</script>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15"></font>
<font size="2">入库记录
</font>
</b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<p align="center">
<%
if rst.eof then%>
<font size="2">无入库记录！<a href="k_rkbrow.asp">返回</a>
<%
response.end
else
if request.querystring("page")<>"" then
page=cint(request.querystring("page"))
else
page=1
end if
rst.pagesize=10
if page>=rst.pagecount then
page=rst.pagecount
else
if page<1 then
page=1
end if
end if
rst.absolutepage=page
%>
<form action="k_rkinput.asp" name="form1" method="post">
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">
<tr>
<td width="55" height="24" align="center" width="131" bgcolor="#DDD2C4">
进货单号
</td>
<td width="74" height="24" align="center" width="98" bgcolor="#DDD2C4">
进货日期
</td>
<td width="118" height="24" align="center" width="146" bgcolor="#DDD2C4">
商品名称
</td>
<td width="52" height="24" align="center" width="146" bgcolor="#DDD2C4">
进货数量
</td>
<td width="89" height="24" align="center" width="146" bgcolor="#DDD2C4">
<font size="2">
入库仓库</font>
</td>
<td width="99" height="24" align="center" width="146" bgcolor="#DDD2C4">
入库日期
</td>
<td width="58" height="24" align="center" width="146" bgcolor="#DDD2C4">
入库数量
</td>
<td width="66" height="24" align="center" width="146" bgcolor="#DDD2C4">
验收
</td>
<td width="28" height="24" align="center" width="146" bgcolor="#DDD2C4">
选中
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -