kaihu1.sql

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

create procedure kaihu1
  @cus_id char(10),
  @name varchar(50),
  @trust_abi int,
  @pay_abi float, 
  @Card_type varchar(50),
  @card_no char(13),
  @key char(10),
  @amount float,
  @date datetime
as
begin transaction

insert into customer
values(@cus_id,@name,@trust_abi, @pay_abi)
if @@Error<>0 goto pro

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

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





commit transaction
return 0
pro:
Rollback Transaction
return 1