product_in1_store.asp

erp系統有進銷存,產品管理 供大家學習,

end if
rs1.update
rs1.close
set rs1=nothing



 
set rs=server.createobject("adodb.recordset") 
sql="select * from product_in_store where id="&request.Form("id")
rs.open sql,conn,1,3

rs("class") = trim(request.Form("d_position1"))
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 delCate()
        conn.execute("delete from product_in_store where id in ("&Request.Form("selBigClass")&")")
		response.Write "<script language=javascript>alert('删除成功！');</script>"
response.write "<meta http-equiv=""refresh"" content=""0;url=product_in_store.asp"">"
response.end
  end sub
  %> <% sub myform(isEdit) %> 	  
<TABLE width=800 align=center border="1" cellspacing="0" cellpadding="0" bordercolor="#0055E6">
  <TBODY> 
  <TR> 
    <td align="center" valign="top"> <%if oskey="supper" or oskey="chejian" then%>

	<%
	    
	   if isedit then
	   set rs=server.createobject("adodb.recordset")
		   rs.open "select * from product_in_store where id=" & request("id"),conn,1,1
%>

    <table width="800" border="0" cellpadding="0" cellspacing="0" >
          <tr >  
<td height=26 background="images/background.gif">
<b><font color="#ffffff">编 辑 统 计 日 报 表</font></b>

</td>
</tr>
</table>
<%
else
%>
    <table width="800" border="0" cellpadding="0" cellspacing="0" >
          <tr >  
<td height=26 background="images/background.gif">
<b><font color="#ffffff">添 加 统 计 日 报 表</font></b>

</td>
</tr>
</table>
<%end if %>
        <table width="800" border="0" cellpadding="0" cellspacing="0" bordercolor="#0055E6">
          <tr class="but"> 
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">兰 碳</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">生 石 灰</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">无 烟 煤</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">用 电 量</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">单 耗</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">钢 材</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">电极糊</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">氧 气</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">碳 棒</td>

</tr>
<form name="powersearch" method="post" action="product_in_store.asp" onSubmit="return Juge(this)" >
<tr >
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="lantan" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("lantan")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="shengshihui" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("shengshihui")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="wuyanmei" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("wuyanmei")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="yongdianliang" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("yongdianliang")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input readonly name="danhao" type="text"   class="textfield"   size="10" value='<% if isedit then
		                                                         response.write rs("danhao")
															  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="gangcai" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("gangcai")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="tiepi" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("tiepi")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="yangqi" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("yangqi")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="yique" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("yique")

																  end if %>'></td>



</tr>

<tr>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">入库日期</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">炉 号</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">班位</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">优级品</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">一级品</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">合格品</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">等外品</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">总产量</td>

            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">存储仓库</td>
          </tr>
		  
		  <tr> <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'> 
		  <% If isedit then%><input type="Hidden" name="id" value="<%=rs("id")%>"> <% End If %>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'">
			<input name="uptime" onFocus="show_cele_date(uptime,'','',uptime)" type="text"  size="10"  value='<% if isedit then
		                                                         response.write rs("uptime")
																 else
																 response.write date()
																  end if %>'></td>
 

<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><select name="Supplier"  size="1" style='width:80'>
			<% if isedit then%><option ><%=rs("Supplier")%></option><%end if%>
			<%
			
			set rs3=server.createobject("adodb.recordset")
		   rs3.open "select * from guolu",conn,1,1
		   if not rs3.eof then
		   do while not rs3.eof
			%>
			<option <% if isedit then
			if trim(rs3("guoluname"))=trim(rs("Supplier")) then
			%> selected="selected"<%end if%><%end if%>><%=rs3("guoluname")%></option>
			<%
			rs3.movenext
			loop
			end if
			rs3.close
			set rs3=nothing
			%>
			</select>
			
			</td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><select name="banwei"  size="1" style='width:80'>
			<% if isedit then%><option ><%=rs("banwei")%></option><%end if%>
			<%
			
			set rs3=server.createobject("adodb.recordset")
		   rs3.open "select * from banwei",conn,1,1
		   if not rs3.eof then
		   do while not rs3.eof
			%>
			<option <% if isedit then
			if trim(rs3("banweiname"))=trim(rs("banwei")) then
			%> selected="selected"<%end if%><%end if%>><%=rs3("banweiname")%></option>
			<%
			rs3.movenext
			loop
			end if
			rs3.close
			set rs3=nothing
			%>
			</select>
			
			</td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="youjipin" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("youjipin")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="yijipin" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("yijipin")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="hegepin" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("hegepin")


																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="dengwaipin" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("dengwaipin")

																  end if %>'></td>
<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><input name="use_num" readonly type="text"  class="textfield"  size="10" value='<% if isedit then
		                                                         response.write rs("use_num")

																  end if %>'></td>


<td height="18" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'"><select name="d_position1"  size="1" style='width:80'>
			<% if isedit then%><option ><%=rs("class")%></option><%end if%>
			<%
			
			set rs3=server.createobject("adodb.recordset")
		   rs3.open "select * from chengpincangku",conn,1,1
		   if not rs3.eof then
		   do while not rs3.eof
			%>
			<option <% if isedit then
			if trim(rs3("cangkuname"))=trim(rs("class")) then
			%> selected="selected"<%end if%><%end if%>><%=rs3("cangkuname")%></option>
			<%
			rs3.movenext
			loop
			end if
			rs3.close
			set rs3=nothing
			%>
			</select>
			
			</td>


          </tr>
		  <tr class="but">
			<td  colspan="9" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">备  注</td>			
          </tr>
		  <tr> 

<td height="18"  colspan="9" align="center" class="but11" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but11'">
			<textarea name="content" cols="90" rows="3"><% if isedit then
		                                                         response.write rs("content")
																  end if %></textarea></td></tr>