/****** 创建入库存储过程(rk_gc) Script Date: 2004-09-30 9:31:31 ******/
CREATE PROCEDURE rkgc
@rkdh varchar --入库单号
as
--把入库明细表里面的到货数量为'0'的删除
--delete rk_mx where '入库单号'=@rkdh and '到货数量'=0 or '到货数量'=null
--修改库存表
declare
@dhsl float, --计算入库数量
@spbm varchar --商品编码
--建立游标a crsrkcount为入库明细表同一个入库单号
declare crsrkcount cursor
for
select [商品编码],[到货数量] from rk_mx where [入库单号]=@rkdh order by '商品编码'
open crsrkcount
fetch next from crsrkcount into @spbm,@dhsl
--修改库存
while @@fetch_status=0
begin
update info_spxx set 库存数量=库存数量+@dhsl where 商品编码=@spbm
Fetch next from crsrkcount into @spbm,@dhsl
end
--关闭游标
close crsrkcount
--释放游标
deallocate crsrkcount
GO
请大家看看为什么不能修改info_spxx表里面的相关记录
CREATE PROCEDURE rkgc
@rkdh varchar --入库单号
as
--把入库明细表里面的到货数量为'0'的删除
--delete rk_mx where '入库单号'=@rkdh and '到货数量'=0 or '到货数量'=null
--修改库存表
declare
@dhsl float, --计算入库数量
@spbm varchar --商品编码
--建立游标a crsrkcount为入库明细表同一个入库单号
declare crsrkcount cursor
for
select [商品编码],[到货数量] from rk_mx where [入库单号]=@rkdh order by '商品编码'
open crsrkcount
fetch next from crsrkcount into @spbm,@dhsl
--修改库存
while @@fetch_status=0
begin
update info_spxx set 库存数量=库存数量+@dhsl where 商品编码=@spbm
Fetch next from crsrkcount into @spbm,@dhsl
end
--关闭游标
close crsrkcount
--释放游标
deallocate crsrkcount
GO
请大家看看为什么不能修改info_spxx表里面的相关记录
解决方案 »
- 200元求段代码,再送100分
- delphi显示长度问题
- 我把dragmode属性设置成dmautomatic后,组件不想应双击事件了!
- dbgrid显示问题简单问题,急在线等待50分
- 为什么必须引用单元1?
- 如何产生鼠标的移动和点击的效果?谢谢
- 在 SQL 语句中如何使用日期型值?
- 求《Delphi 5.X ADO+_MTS_COM+高级程序设计篇》完整下载地址
- 紧急求助!关于TRANSACTION,请高手不吝赐教
- 不重新编译dll,如何把数据加载到dll中
- Ado+Delphi6+access数据库如何用流将图片存储和读出?看了很多贴都没找到答案,那位高人给我发个例子,百分相赠[email protected]
- 求:〈Delphi7从入门到精通〉中文电子书...急~~~!
select [商品编码],[到货数量] from rk_mx where [入库单号]=@rkdh order by '商品编码'
查不出结果或者
@spbm varchar
的长度不够