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

create procedure xiugai
  @key varchar(10),
  @type varchar(50),
  @Number char(15)
as
begin transaction
update fund_bill
set keyword=@key
where card_type=@type and card_no=@Number
if @@Error<>0 goto PRO
commit transaction
return 0

PRO:
Rollback Transaction
return 1