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

create procedure xiaohu
   @type nvarchar(36),
   @no char(13),
   @sub1 float,
   @id char(10)
as
begin transaction
 update bank
 set Asset=asset-@sub1
 where card_type=@type
 if @@Error<>0 goto pro

delete from fetch_Depo_log
where customer_id=@id and card_type=@type
if @@Error<>0 goto pro

delete from customer_fund
where customer_id=@id and card_type=@type
if @@Error<>0 goto pro

delete from fund_bill
where card_no=@no and card_type=@type
if @@Error<>0 goto pro

commit transaction
return 0
pro:
Rollback Transaction
return 1