银行转账简易功能

create or replace procedure account_transfer(amount in int,v_ano char,vv_ano char)asvar_balance int;beginif v_ano='B00' thenselect balance into var_balance from account where ano='B00';elsif v_ano='A00' thenselect balance into var_balance from account where ano='A00';elseselect balance into var_balance from account where ano='C00';end if;IF var_balance-amount<0 thendbms_output.put_line('金额不足,不能转账！');rollback;            --回退事务 return;                --跳过case end if;case vv_ano when 'A00' then update account set balance=balance+amount where ano='A00';when 'B00' then update account set balance=balance+amount where ano='B00';else update account set balance=balance+amount where ano='C00';end case;case v_ano when 'A00' then update account set balance=balance-amount where ano='A00';when 'B00' then update account set balance=balance-amount where ano='B00';else update account set balance=balance-amount where ano='C00';end case;commit;            --提交事务 dbms_output.put_line('提交成功，正常转账');end; /