change_addnote.asp

很不错的进销存系统, 本系统适用于轮胎经销使用

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
'根据记录ID查找出要改更的记录，在库存表中减去上次入库时的数量，恢复原始库存！
id=request.form("spid")
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from JinKu where id="&id
Rs.open sql,conn,1,1
pinpai=rs("pinpai")
guige=rs("guige")
xinghao=rs("xinghao")
shuliang=rs("shuliang")
rs.close
Sql="select * from KuCun where KC_cpname='"&pinpai&"' and KC_cpgg='"&guige&"' and KC_cpxh='"&xinghao&"'"
rs.open sql,conn,1,1
KC_id=rs("id")
KC_shuliang=rs("KC_shuliang")-shuliang
Sql="update KuCun Set KC_shuliang='"&KC_shuliang&"' where id="&KC_id
conn.execute(sql)
rs.close
'*************原始库存数量恢复完毕*************

'*********开始接收更改后的数据重新入库，重计库存！
pinpai=request.form("sppp")
guige=request.form("ggname")
xinghao=request.form("xhname")
shuliang=request.form("shuliang")
danjia=request.form("danjia")
username=request.form("username")
intime=request.form("intime")
beizhu=request.form("beizhu")

if pinpai="" or guige="" or xinghao="" or isnumeric(shuliang)=false or danjia="" or username="" or intime="" or beizhu="" then
   response.write"<script language=javascript>alert('至少有一项数据未填或填写错误请核对！');history.back();</script>"
   response.End
Else
   summoney=shuliang*danjia
   Sql="Update JinKu Set pinpai='"&pinpai&"',guige='"&guige&"',xinghao='"&xinghao&"',shuliang='"&shuliang&"',danjia='"&danjia&"',summoney='"&summoney&"',username='"&username&"',intime='"&intime&"',beizhu='"&beizhu&"' where id="&id 
   Conn.Execute(Sql)
End if
'***********本项记录更新完毕*********

'******开始重计库存
Sqlstr="select * from KuCun where KC_cpname='"&pinpai&"' and KC_cpgg='"&guige&"' and KC_cpxh='"&xinghao&"'"
rs.open sqlstr,conn,1,1
if rs.bof and rs.eof then
Sqlstr="Insert Into KuCun (KC_cpname,KC_cpgg,KC_cpxh,KC_shuliang) values ('"&pinpai&"','"&guige&"','"&xinghao&"','"&shuliang&"')"
Conn.Execute(Sqlstr)
response.write"<script language=javascript>alert('本次修改成功，请到库存核实数量是否准确！');history.go(-1);</script>"
Else
KC_count=rs.recordcount
  if KC_count=1 then
     KC_sum=rs("KC_shuliang")+shuliang
     sqlstr="update KuCun Set KC_shuliang='"&KC_sum&"' where ID="&Rs("id")
     Conn.Execute(sqlstr)
     response.write"<script language=javascript>alert('修改成功！');history.go(-1);</script>"
  else
     response.write"库存发生错误！"
  End if
End if
%>