儲存函式

• 建立無參儲存函式get_name，有返回值
  語法：

create or replace function 函式名  return 返回型別 as PLSQL程式段

create or replace function get_name return varchar2
as
begin
  return'哈哈';
end;

• 刪除儲存函式getName
  語法：

drop function 函式名

• 呼叫儲存方式一，PLSQL程式

declare 
  name varchar2(10);
begin
  name:=get_name;
  dbms_output.put_line('姓名是：'||name);
end;

• 呼叫儲存方式二，java程式
  建立由有參儲存函式findEmpIncome(編號)，查詢7499號員工的年收入，演示in的用法，預設in

--定義函式
create  or replace function findEmpIncome(p_empno emp.empno%type) return number
as
 income number;
begin
 select sal*12 into income from emp where empno=p_empno;
 return income;
end;

--呼叫函式
declare 
 income number;
begin
 income:=findEmpIncome(7499);
   dbms_output.put_line('該員工年收入為：'||income);
end;

--建立有參儲存函式findEmpNameAndJobAndSal(編號)，查詢7499號員工的姓名(return),職位(out),月薪(out),返回多個值
--建立函式
create or replace function findEmpNameAndJobAndSal(p_empno in number,p_job out varchar2,p_sal out number)
return varchar2
as
  p_ename emp.ename%type;
begin
  select ename,job,sal into p_ename,p_job,p_sal from emp where empno=p_empno;
  return p_ename;
end;
--呼叫函式
declare 
p_ename emp.ename%type;
p_job emp.job%type;
p_sal emp.sal%type;
val varchar2(255);
begin
  val:= findEmpNameAndJobAndSal(7499,p_job,p_sal);
  dbms_output.put_line('7499'||p_ename||'----'||p_job||'----'||p_sal);
end;

儲存過程：無返回值或者有多個返回值時，適合用過程。
儲存函式：有且只有一個返回值時，適合用函式。
適合使用過程函式的情況：

1. 需要長期儲存在資料庫中。
2. 需要被多個使用者同時使用。
3. 批操作大量資料，例如批插入多條資料。

適合使用SQL的情況：

1. 凡是上述反面，都可使用SQL。
2. 對錶、檢視、序列、索引等這些，適合用SQL。

向emp表中插入999條記錄，寫成過程的形式。

--建立過程
create or replace procedure   batchInsert
as
  i number(4):=1;
begin
  for i in 1..999
  loop
    insert into emp(empno,ename) values (i,'測試');
  end loop;
end;
--呼叫過程
exec batchInsert;

函式版本的個人所得稅

create or replace function getrax(sal in number,rax out number) return number
as
  --sal表示收入
  --bal表示需要繳稅的收入
  bal number;
begin
  bal:=sal-3500;
  if bal<=1500 then
    rax:=bal*0.03-0;
  elsif bal<4500 then
    rax:=bal*0.1-105;
  elsif bal<9000 then
    rax:=bal*0.2-555;
  elsif bal<35000 then
    rax:=bal*0.3-2775;
  elsif bal<80000 then
    rax:=bal*0.45-5505;
  else
    rax:=bal*0.45-13505;
  end if;
  return bal;
end;
--呼叫過程
declare
  rax number;
  who number;
begin
  who:=getrax(&sal,rax);
  dbms_output.put_line('您需要交的稅'||rax);
end;