来自「用dephi写的一个银行管理系统」· 代码 · 共 16 行

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