📄 product_in1_store.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<html>
<head>
<title>∷企业生产管理信息系统∷</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet" type="text/css">
<SCRIPT language=JavaScript src="css/User_Info_Modify.js"></SCRIPT>
<SCRIPT language=javascript src="js/selectcity.js"></script>
<script language="JavaScript" src="js/validate.js" type="text/JavaScript"></script>
<SCRIPT language=javascript src="css/init.js"></SCRIPT>
<style type="text/css">
<!--
td { font-family: "宋体"; font-size: 9pt}
body { font-family: "宋体"; font-size: 9pt}
select { font-family: "宋体"; font-size: 9pt}
A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt}
-->
</style>
<SCRIPT LANGUAGE=javascript>
<!--
function Juge(powersearch)
{
if (powersearch.lantan.value == "")
{
alert("兰碳数量不能为空！");
powersearch.lantan.focus();
return (false);
}
if (powersearch.shengshihui.value == "")
{
alert("生石灰数量不能为空！");
powersearch.shengshihui.focus();
return (false);
}
if (powersearch.wuyanmei.value == "")
{
alert("无烟煤数量不能为空！");
powersearch.wuyanmei.focus();
return (false);
}
if (powersearch.yongdianliang.value == "")
{
alert("用电量不能为空！");
powersearch.yongdianliang.focus();
return (false);
}
if (powersearch.gangcai.value == "")
{
alert("钢材数量不能为空！");
powersearch.gangcai.focus();
return (false);
}
if (powersearch.tiepi.value == "")
{
alert("铁皮数量不能为空！");
powersearch.tiepi.focus();
return (false);
}
if (powersearch.yangqi.value == "")
{
alert("氧气数量不能为空！");
powersearch.yangqi.focus();
return (false);
}
if (powersearch.yique.value == "")
{
alert("乙炔数量不能为空！");
powersearch.yique.focus();
return (false);
}
if (powersearch.youjipin.value == "")
{
alert("优级品数量不能为空！");
powersearch.youjipin.focus();
return (false);
}
if (powersearch.yijipin.value == "")
{
alert("一级品数量不能为空！");
powersearch.yijipin.focus();
return (false);
}
if (powersearch.hegepin.value == "")
{
alert("合格品数量不能为空！");
powersearch.hegepin.focus();
return (false);
}
if (powersearch.dengwaipin.value == "")
{
alert("等外品数量不能为空！");
powersearch.dengwaipin.focus();
return (false);
}
}
function SelectAll() {
for (var i=0;i<document.selform.selBigClass.length;i++) {
var e=document.selform.selBigClass[i];
e.checked=!e.checked;
}
}
//-->
</script>
<script>
var po_ca_show = new Array();
var po_ca_value = new Array();
var po_detail_show = new Array();
var po_detail_value = new Array();
var funtype1;
//Modified by Ryan Gao 2006-03-30 16:01:09
</script>
</HEAD>
<BODY topMargin=0 rightMargin=0 leftMargin=0>
<!--#include file="top.asp"-->
<%
select case request("action")
case "add"
call SaveAdd()
case "modify"
call SaveModify()
case "del"
call delCate()
case "edit"
isEdit=True
call myform(isEdit)
case else
isEdit=False
call myform(isEdit)
end select
sub SaveAdd
cangku=request.Form("d_position1")
youjipin = request.Form("youjipin")
yijipin = request.Form("yijipin")
hegepin = request.Form("hegepin")
dengwaipin = request.Form("dengwaipin")
use_num = CDbl(request.Form("youjipin")) + CDbl(request.Form("yijipin")) + CDbl(request.Form("hegepin")) + CDbl(request.Form("dengwaipin"))
set rs1=server.createobject("adodb.recordset")
sql1="select * from product_store where cangku='"&cangku&"'"
rs1.open sql1,conn,1,3
if not rs1.eof and not rs1.bof then
rs1("number")=rs1("number")+use_num
rs1("youjipin_num")=rs1("youjipin_num")+youjipin
rs1("yijipin_num")=rs1("yijipin_num")+yijipin
rs1("hegepin_num")=rs1("hegepin_num")+hegepin
rs1("dengwaipin_num")=rs1("dengwaipin_num")+dengwaipin
else
rs1.addnew
rs1("cangku") = cangku
rs1("youjipin_num") = youjipin
rs1("yijipin_num") = yijipin
rs1("hegepin_num") = hegepin
rs1("dengwaipin_num") = dengwaipin
rs1("number") = use_num
end if
rs1.update
rs1.close
set rs1=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from product_in_store"
rs.open sql,conn,1,3
rs.addnew
rs("class") = cangku
rs("uptime") = request.Form("uptime")
rs("Supplier") = trim(request.Form("Supplier"))
rs("banwei") = trim(request.Form("banwei"))
rs("youjipin") = request.Form("youjipin")
rs("yijipin") = request.Form("yijipin")
rs("hegepin") = request.Form("hegepin")
rs("dengwaipin") = request.Form("dengwaipin")
rs("use_num") = rs("youjipin") + rs("yijipin") + rs("hegepin") + rs("dengwaipin")
rs("lantan") = request.Form("lantan")
rs("shengshihui") = request.Form("shengshihui")
rs("wuyanmei") = request.Form("wuyanmei")
rs("yongdianliang") = request.Form("yongdianliang")
rs("danhao") = CDbl(request.Form("yongdianliang"))/CDbl(rs("use_num"))
rs("gangcai") = request.Form("gangcai")
rs("tiepi") = request.Form("tiepi")
rs("yangqi") = request.Form("yangqi")
rs("yique") = request.Form("yique")
rs("content") = trim(request.Form("content"))
rs.update
response.Write "<script language=javascript>alert('入库成功！');</script>"
response.write "<meta http-equiv=""refresh"" content=""0;url=product_in_store.asp"">"
response.end
rs.close
set rs=nothing
end sub
sub SaveModify
cangku=request.Form("d_position1")
youjipin = request.Form("youjipin")
yijipin = request.Form("yijipin")
hegepin = request.Form("hegepin")
dengwaipin = request.Form("dengwaipin")
use_num = CDbl(request.Form("youjipin")) + CDbl(request.Form("yijipin")) + CDbl(request.Form("hegepin")) + CDbl(request.Form("dengwaipin"))
set rs1=server.createobject("adodb.recordset")
sql1="select * from product_store where cangku='"&cangku&"'"
rs1.open sql1,conn,1,3
if not rs1.eof and not rs1.bof then
rs1("number")=rs1("number")+use_num
rs1("youjipin_num")=rs1("youjipin_num")+youjipin
rs1("yijipin_num")=rs1("yijipin_num")+yijipin
rs1("hegepin_num")=rs1("hegepin_num")+hegepin
rs1("dengwaipin_num")=rs1("dengwaipin_num")+dengwaipin
else
rs1.addnew
rs1("cangku") = cangku
rs1("youjipin_num") = youjipin
rs1("yijipin_num") = yijipin
rs1("hegepin_num") = hegepin
rs1("dengwaipin_num") = dengwaipin
rs1("number") = use_num
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -