transferfunds.txt

来自「java voice chat based on java core ,, u 」· 文本 代码 · 共 45 行

create procedure  TransferFunds(@acno varchar(10), @payee varchar(10), @tranpwd varchar(10), @amt money,@tdesc  varchar(50))
as
  declare  @id  integer

   if not exists ( select  * from users where acno = @acno  and tpwd = @tranpwd )
   begin
      raiserror('Invalid Transaction Password',16,1)
       return
    end

     if  not exists ( select * from accounts where acno = @acno  and curbal - @amt >= 1000)
     begin
      raiserror('Insufficient Funds',16,1)  
      return
     end

     /*  subtract amount from  payer */
     begin tran
     update  accounts set  curbal = curbal - @amt
     where  acno = @acno
 
      /* add amount to payee */
     
     update  accounts set  curbal = curbal + @amt
     where  acno = @payee

      select  @id = isnull(max(tid),0) + 1
      from  transactions 
 
      insert into transactions 
           values (@id, @acno,'w',@amt,getdate(),
              null,@tdesc,null)
  
      /*  insert for payee */
      select  @id = isnull(max(tid),0) + 1
      from  transactions 
 
      insert into transactions 
        values (@id, @payee,'d',@amt,getdate(),
           null,@tdesc,null)

       commit tran