account_cunkuan.sql

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

CREATE procedure account_cunkuan @account_type varchar(50),@account_num varchar(20),@account_pass varchar(6),@account_date1 datetime,@account_count float
as
begin transaction
update account
set balance=balance*(1+DATEDIFF(day, account_date, getdate())*0.002)+@account_count,account_date=getdate()
where (account_cardtype=@account_type and account_number=@account_num and account_password=@account_pass)
if @@error<>0 goto problem
insert into dbo.acc_date
values(@account_type,@account_num,@account_date1,@account_count,'存款')
if @@error<>0 goto problem
commit transaction
return 0
problem:
print'存款失败!'
rollback transaction
return 1

GO