作业帮 > 综合 > 作业

select 现有库存表

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/29 06:25:01
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 现有库存表
是往库存中存入商品的操作.
从界面获取商品序列号,查找现有库存表是否已存在该商品.存在则更新商品数量=原数量+存入数量;不存在,则插入新纪录保存当前存入的商品信息.最后在日志表中记录本次操作.