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

create procedure borrow
  @id char(10),
  @loan_no char(16),
  @type varchar(50),
  @lo_mon float,
  @pay_date varchar(10),
  @bor_date datetime,
  @rate float
as
begin transaction



insert into loan_pack values(@loan_no,@type,@lo_mon,@pay_date,@bor_date,@lo_mon,@rate)
if @@Error<>0 goto PRO

insert into customer_loan values(@id,@loan_no,@type)
if @@Error<>0 goto PRO

commit transaction
return 0

PRO:
Rollback Transaction
return 1