fetch2.sql

用dephi写的一个银行管理系统

/*͸֧*/
create procedure fetch2
 @type varchar(50),
 @no char(13),
 @amount float,
 @date datetime
as

begin transaction



  update Fund_bill
  set fortune_amount=0.0,Deposit_date=@date
  where card_type=@type and Card_no=@no
  if @@Error<>0 goto Pro


  insert into overdraft
  values(@type,@no,@amount,@date)
  if @@Error<>0 goto Pro
 --insert into fetch_Depo_log
 --values(@id,@type,@date,@m1,@TT)
-- if @@Error<>0 goto pro

commit transaction
return 0
Pro:
Rollback Transaction
return 1