6.8.txt

来自「关于oracle和sql的书籍和ppt教程,非常好,本人珍藏品」· 文本 代码 · 共 41 行

1.
create or replace function terrify(n int)
return int
is 
 t number;
 v_s number:=0;
begin
 for t in 1..n loop
v_s:=v_s+t;
end loop;
return v_s;
end terrify;

2
(1)
create or replace function money (m_empno int)
return number
is 
 sal number;
 m_sal number;
begin
 select sal into m_sal from emp
 where empno=m_empno;
 return m_sal;
exception 
 when no_data_found then
 dbms_output.put_line('没有该雇员');
 end money;
(2)
create or replace procedure upsal
(upsal_empno out emp.empno%type,
upsal_salary out emp.sal%type,
money number)
is
 upsal_empno_error exception;
begin
 update emp set sal=upsal_salary where empno=upsal_empno;
exception
 when no_data_found then
 dbms_output.put_line('没有该员工');
end upsal;