selling.txt

< 飞鸿商品>>零售是基于VB+SQL2000开的商品零售管理系统. 开发的很好.可以一看

CREATE PROCEDURE selling     @ID varchar(40),@yaopin_id varchar(40),
 @price smallmoney ,@zhekou real, @sellprice smallmoney,@unit varchar(10), @num smallint
 AS
DECLARE @cost smallmoney
DECLARE @N smallint
select @cost=cost from yaopin_cost where id=@yaopin_id
select @N=switch FROM yaopin_unit WHERE id=@yaopin_id  AND unit=@unit
insert into sell_list values (@id,@yaopin_id,@cost*@N,@price,@zhekou,@sellprice,@unit,@num*@N)
update yaopin_num set num=num-@num*@N where id=@yaopin_id
GO