關於Struts2 130529143交流。
有償技術支援Q群：398162181 

1.儲存過程與儲存函式的區別：

儲存過程無返回值，儲存函式有返回值。

2.儲存過程：

demo1:

declare 
  --宣告一個記錄型別
  type emp_record is record(
    v_sal employees.salary%type,--動態的獲取變數的型別
    v_email varchar(20),
    v_hire_date date
    );
  --定義一個記錄型別的成員變數
  v_emp_record emp_record;

begin 
--程式的執行部分
select salary, email, hire_date into v_emp_record from employees where employee_id = 100;
 

dbms_output.put_line(v_emp_record.v_sal || ',' || v_emp_record.v_email || ',' || v_emp_record.v_hire_date);

--exception  
end;

demo2:

demo3:

declare 
  type salary_record is record(
       v_name varchar2(20),
       v_salary employees.salary%type
  );
  
  v_sal_record salary_record;


begin 
  v_sal_record.v_name := '老王';
  v_sal_record.v_salary := 20000;
  dbms_output.put_line(v_sal_record.v_name || ',' || v_sal_record.v_salary);
--exception 
end;
 

demo4:

declare 
  v_sal employees.salary%type;
  v_temp varchar2(30);


begin 
  select salary into v_sal from employees where employee_id = 150;
  v_temp := 
  case trunc(v_sal/5000) when 0 then 'salary<5000'
                         when 1 then '5000<=salary<10000'
                         else 'salary>=15000'
  end;
  dbms_output.put_line( v_temp );
--exception 
end;

demo5:

--流程控制

declare 
  v_sal employees.salary%type;
  v_temp varchar2(30);


begin 
  select salary into v_sal from employees where employee_id = 150;
  v_temp := 
  case trunc(v_sal/5000) when 0 then 'salary<5000'
                         when 1 then '5000<=salary<10000'
                         else 'salary>=15000'
  end;
  dbms_output.put_line( v_temp );
--exception 
end;

demo6:

--儲存過程開啟
set serveroutput on
--儲存過程無返回值
create or replace procedure salary_sum1(dept_id number, v_sumsal out number) 
is 
       cursor salary_cursor is select salary from employees where department_id = dept_id;
begin 
      v_sumsal := 0;
      for c in salary_cursor loop 
        v_sumsal := v_sumsal + c.salary; 
      end loop;
      dbms_output.put_line(v_sumsal);
end;

--呼叫儲存過程
declare 
  v_sumsal number(10) := 0;
begin
  salary_sum1(80, v_sumsal); 
end;

demo7:

--給指定部門的，按入職時間加薪，公司每月多支出多少
create or replace procedure add_sal(dept_id number, temp out number)
is 
       cursor sal_cursor is select employee_id, salary, hire_date  
              from employees where department_id = dept_id;
       v_i number(5,2) := 0;
begin 
       temp := 0;
       for c in sal_cursor loop
          if to_char(c.hire_date, 'yyyy') < '1995' then v_i := 0.05;
          elsif to_char(c.hire_date, 'yyyy') < '1998' then v_i := 0.03;
          else  v_i := 0.01;
          end if;
          
          --1.更新工資
          update employees set salary = salary + v_i * salary where employee_id = c.employee_id;
          
          --2.付出的成本
          temp :=  temp + c.salary * v_i;
        end loop;
end;

--呼叫儲存過程
declare 
  v_temp number(10) := 0;
begin 
  add_sal(80, v_temp);
  dbms_output.put_line(v_temp);
end;

2.儲存函式：

demo1:

demo2:

demo3:

--帶參函式
create or replace function hello_world1(v_name varchar2) 
return varchar2 
is 
begin 
  return ('hello! ' || v_name);
end;
--
--呼叫帶參函式
select hello_world1('lixuan') from dual；

demo4:

--建立儲存函式返回當前系統時間
create or replace function get_sysdate 
return date 
is 
       v_date date;
begin 
  v_date := sysdate;
  return v_date;
end;

--呼叫上面這個函式
begin 
  dbms_output.put_line(get_sysdate);
end; 

demo5:

demo6:

關於Struts2 130529143交流。 有償技術支援Q群：398162181