5.51.txt

来自「delphi renyuanguanlixinxioxitong」· 文本 代码 · 共 12 行

DECLARE
 salary NUMBER(6,2);
 sql_stat VARCHAR2(100);
BEGIN
 sql_stat:='UPDATE employee SET sal=sal*(1+:percent/100)'||'
   WHERE employeeno=:eno RETURNING sal INTO :salary';
 EXECUTE IMMEDIATE sql_stat USING &1,&2 RETURNING INTO salary;
 dbms_output.put_line('新工资：'||salary);
END;