stock.asp
来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 205 行
ASP
205 行
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="Private_fun.asp"-->
<!--#include file="../Pub_fun.asp"-->
<!--#include file="../scripts/openwindow.js"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>库存管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<script language="VBScript">
sub checkinfo()
if trim(Stockmain.Stockdate.value) = "" then
msgbox "选择库存发生的日期！！"
Stockmain.Stockdate.focus
exit sub
end if
if trim(Stockmain.StockSort.value) = "" then
msgbox "请选择库存类型！！"
Stockmain.StockSort.focus
exit sub
end if
<!--检查库存说明填写，如果没有填写或者超过760字符则提示错误信息-->
if trim(Stockmain.StockInfo.value) <> "" then
if len(trim(Stockmain.StockInfo.value))>760 then
msgbox "输入的库存说明内容太多，请重新编辑！！"
Stockmain.StockInfo.focus
exit sub
end if
else
msgbox "请输入库存说明！！"
Stockmain.StockInfo.focus
exit sub
end if
Stockmain.act.value="add"
Stockmain.action="stock.asp"
Stockmain.submit
End sub
sub del_onclick(id)
Stockmain.id.value=id
Stockmain.act.value="del"
Stockmain.action="stock.asp"
Stockmain.submit
end sub
</script>
<BODY><BR>
<%
StockCreatorID=session("Session_User")
if request("act")="del" and request("id")<>"" then
sql="delete from stock_temp where CreatorID = " & session("Session_User") & " and CreateDate = convert(char(10),getdate(),120) and ProductID=" &trim(request("id"))
conn.execute sql
end if
''库存管理数据写入数据库表
if request("act")="add" then
''获取填写的其他库存信息
stockdate=trim(request("stockdate"))
stocksort=cint(request("stocksort"))
stockinfo=htmlencode2(request("stockinfo"))
StockTopic=htmlencode2(trim(request("StockTopic")))
''利用Insert操作写入数据库表
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Insert into stock(stockproductID,StockProductName,stockproductNum,stockproductPrice,stocksort,StockTopic,stockinfo,stockdate,stockcreatorId,stockcreateDate) "
sql=sql&" ( select ProductID,ProductName,Productnum,ProductPrice,"& stocksort&",'"&StockTopic&"','"&stockinfo&"','"&stockdate&"',creatorID,createdate "
sql=sql&" from stock_temp where CreatorID = " & session("Session_User") & " and CreateDate = convert(char(10),getdate(),120) )"
conn.execute sql
''删除临时表中的数据
sql="delete from stock_temp where CreatorID = " & session("Session_User") & " and type='stock' and CreateDate = convert(char(10),getdate(),120) "
conn.execute sql
''提示添加成功信息
%>
<script language="VBScript">
msgbox "库存添加成功！！"
</script>
<%
end if
%>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height="24" valign="top" bgcolor="#566CDB" ><img src="../images/DispStation_H.gif" width="11" height="24">物品库存管理</TD>
<TD align="right" valign="middle" bgcolor="#DDDDDD" >
<input name="SaveButton" type="button" class="button_all" value="保存" onClick="checkinfo()">
<input onclick="javascript:location.href='stocklist.asp';" name="ListButton" type="button" class="button_with" width="80" value="库存统计">
<input onclick="javascript:location.href='../menu.asp';" name="BackButton" type="button" class="button_all" value="返回">
</TD>
</TR>
<TR>
<TD height="16" colspan="2" valign="top" width="100%"> </TD>
</TR>
</Tbody>
</table>
<form name="Stockmain" method="post">
<input type="hidden" name="act">
<TABLE width="751" border=0 align=center cellPadding=3 cellSpacing=1 bgcolor="#33CCFF">
<TBODY>
<TR bgcolor="#FFFFFF">
<td colspan="6"><input name="AddButton" type="button" class="button_with" width="100"value="添加库存物品" onClick="javascript:windowOpener('stock_Product_choose.asp','choose');"></td>
</TR>
<TR bgcolor="#FFFFFF" >
<td><span class="style1">物品编号</span></td>
<td><span class="style1">物品名称</span></td>
<td><span class="style1">物品单价</span></td>
<td><span class="style1">物品数量</span></td>
<td><span class="style1">总金额</span></td>
<td><div align="center"><span class="style1">管理</span></div></td>
</TR>
<%
''显示添加的物品
set rs=server.createobject("adodb.recordset")
str="select * from Stock_temp where CreatorID = '" & session("Session_User") & "' and CreateDate = convert(char(10),getdate(),120) order by ProductID"
rs.open str,conn,3
if not rs.eof then
for i=1 to rs.recordcount
if rs.eof then exit for
%>
<TR bgcolor="#FFFFFF">
<td><%=rs("ProductID")%></td>
<td><%=rs("ProductName")%></td>
<td><%=rs("ProductPrice")%></td>
<td><%=rs("ProductNum")%></td>
<td><%=(cdbl(rs("ProductPrice"))*cint(rs("ProductNum")))%></td>
<td><div align="center"><a href="javascript:windowopensmall1('stock_product_numchange.asp?ID=<%=rs("ProductID")%>&num=<%=rs("Productnum")%>','numchange')"><font color="#0000FF">更改</font></a> <u><a style='cursor:hand' onclick='del_onclick("<%=rs("ProductID")%>")'><font color="#0000FF">删除</font></a></u></div></td>
</TR>
<%rs.movenext%>
<%if rs.eof then exit for%>
<%next
else
%>
<TR bgcolor="#FFFFFF">
<td colspan="6">没有选择库存管理的物品</td>
</TR>
<%
end if
%>
</TBody>
</table>
<TABLE width="751" border=0 align=center cellPadding=3 cellSpacing=1 bgcolor="#33CCFF">
<TBODY>
<TR>
<TD align="left" valign="middle" bgcolor="#FFFFFF" width="30%">
<FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">库存日期:
<input name="Stockdate" type="text" size="12" maxlength="50" readonly="true" >
<!--显示日历供用户选择的按钮-->
<input name="Button2" type="button" class="button_dic" id="Button2" onClick="show_calendar('Stockmain.Stockdate')" value="…">
</span>
</TD>
<td bgcolor="#FFFFFF" width="45%">
<FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">库存主题:
<input name="StockTopic" type="text" size="30" maxlength="50" >
</span>
</td>
<TD align="left" valign="middle" bgcolor="#FFFFFF" > <FONT face=Wingdings color=#99ccff >v</FONT></FONT><span class="style1">库存类型:
<select name="StockSort" >
<option value="0">入库</option>
<option value="1">出库</option>
</select></span>
</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="3" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><span class="style1">库存说明: </span>
</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="3" >
<textarea name="StockInfo" cols="90%" rows="6"></textarea>
</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="3" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<!--系统自动生成记录的创建者和创建日期-->
<TR bgcolor="#FFFFFF">
<TD align="left" valign="middle" >
<FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建者:
<input readonly="true" name="StockCreator" type="text" size="15" maxlength="30" value="<%=showoperatorname(StockCreatorID)%>">
<input name="StockCreatorID" type="hidden" value ="<%=StockCreatorID%>">
</FONT>
</TD>
<TD align="left" valign="middle" colspan="2" >
<FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建日期:
<input readonly="true" name="StockCreateDate" type="text" size="15" maxlength="30" value="<%=date()%>">
</FONT>
</TD>
</TR>
<TR align=middle bgColor=#99ccff>
<TD height="24" colSpan=3 vAlign=middle></TD>
</TR>
</TBODY>
</TABLE>
</form>
<form name="childfm"></form>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?