kaihu2.sql

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

create procedure kaihu2
  @cus_id char(10),
  @Card_type varchar(50),
  @card_no char(13),
  @key char(10),
  @amount float,
  @date datetime

as
begin transaction


insert into customer_Fund values(@cus_id,@Card_type,@card_no)
if @@Error<>0 goto pro



insert into Fund_bill values(@Card_type,@card_no,@key,@amount,@date)
if @@Error<>0 goto pro

commit transaction
return 0
pro:
Rollback Transaction
return 1