select 现有库存表 getid=thisform.商品序列号1.text1.valueset order to 商品序列号seek getidif found()getnum=thisform.入库数量1.text1.valueupdate 现有库存表 set 现有库存=(现有库存+getnum) where (商品序列号=getid)else
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/18 08:45:41
select 现有库存表 getid=thisform.商品序列号1.text1.valueset order to 商品序列号seek getidif found()getnum=thisform.入库数量1.text1.valueupdate 现有库存表 set 现有库存=(现有库存+getnum) where (商品序列号=getid)else
select 现有库存表
getid=thisform.商品序列号1.text1.value
set order to 商品序列号
seek getid
if found()
getnum=thisform.入库数量1.text1.value
update 现有库存表 set 现有库存=(现有库存+getnum) where (商品序列号=getid)
else
insert into 现有库存表 (商品序列号,现有库存,最大库存,最小库存);
value (thisform.商品序列号1.text1.value,thisform.入库数量1.text1.value,1000,10)
endif
insert into 操作日志表(操作员,操作内容,操作时间);
values (thisform.采购员1.text1.value,'商品入库',date())
select 现有库存表 getid=thisform.商品序列号1.text1.valueset order to 商品序列号seek getidif found()getnum=thisform.入库数量1.text1.valueupdate 现有库存表 set 现有库存=(现有库存+getnum) where (商品序列号=getid)else
是往库存中存入商品的操作.
从界面获取商品序列号,查找现有库存表是否已存在该商品.存在则更新商品数量=原数量+存入数量;不存在,则插入新纪录保存当前存入的商品信息.最后在日志表中记录本次操作.