[Oracle] 複雜資料結構 - RECORD

何謂 RECORD ?

RECORD 是由一群各自儲存於不同欄位的相關資料所組合而成的群組，每個資料都有各自的名稱與資料型態。

使用 RECOED 的好處在於當 RECORD 被當作參數丟入 subprogram 處理的時候，或是同時包含多個不同 table 中的不同欄位時，處理的效率是很好的。

 

建立 RECORD 資料型態

首先，先了解建立 RECORD 型態的語法：
<br />--定義 RECORD<br />TYPE record_name IS RECORD(<br /> --定義 RECORD 中的欄位與型態<br /> field_1 data_type,<br /> ...<br /> field_n data_type);<br />...<br />--宣告變數值代替自訂的 RECORD 型態<br />variable_name record_name;<br />...<br />BEGIN<br /> ...<br /> --必須使用「.」來取得 RECORD 中的欄位值<br /> ...variable_name.field1...;<br /> ...variable_name.fieldn...;<br /> ...<br />END...;<br />

接著是實際定義 RECORD 的範例：(定義於 package specification 中)
--定義薪資資訊 RECORD <br />type sal_info is record (<br /> job_id jobs.job_id%type, <br /> sal_min jobs.min_salary%type, <br /> sal_max jobs.max_salary%type, <br /> salary employees.salary%type, <br /> sal_raise number(3, 3)<br />);

RECORD 的使用

當 RECORD 定義好後就可以使用了，以下為使用範例：
<br />procedure salary_schedule(emp in sal_info) as<br />accumulation_sal number;<br />begin<br /> --使用自訂的 RECORD - sal_info<br /> dbms_output.put_line('If the salary of ' || emp.salary || ' increased by ' || round((emp.sal_raise * 100), 0) || '% each year, it would be ');<br /> accumulation_sal := emp.salary;<br /> while accumulation_sal <= emp.sal_max loop<br /> accumulation_sal := accumulation_sal * (1 + emp.sal_raise);<br /> dbms_output.put(round(accumulation_sal, 2) || ', ');<br /> end loop;<br /> dbms_output.put_line('in successive years.');<br />end salary_schedule;<br />

以下擷取之前範例(EMP_EVAL)的部份程式碼作為範例：
<br />create or replace<br />PACKAGE BODY EMP_EVAL AS<br /> --local subprogram 定義<br /> --像 C 語言一樣，將 procedure 或 function 先定義好，之後的時作就不需要考慮呼叫先後順序的問題<br /> function eval_frequency(employee_id in employees.employee_id%type) RETURN pls_integer;<br /> procedure salary_schedule(emp in sal_info);<br /> <br /> --僅供內部使用的 function<br /> function eval_frequency(employee_id in employees.employee_id%type)<br /> return pls_integer as<br /> hire_date employees.hire_date%type;<br /> today employees.hire_date%type;<br /> eval_freq pls_integer;<br /> emp_sal sal_info; --自訂的 RECORD 型態<br /> begin<br /> --設定今天日期<br /> select sysdate into today from dual; <br /><br /> --取得員工開始工作日期<br /> select e.hire_date into hire_date from employees e where e.employee_id = employee_id;<br /><br /> --判斷年資是否大於十年<br /> if((hire_date + (interval '120' month)) < today) then<br /> eval_freq := 1;<br /><br /> --取得給 emp_sal(sal_info) 的資料 ========== (start)<br /> select e.job_id into emp_sal.job_id from employees e where e.employee_id = employee_id;<br /> select j.min_salary into emp_sal.sal_min from jobs j where j.job_id = emp_sal.job_id;<br /> select j.max_salary into emp_sal.sal_max from jobs j where j.job_id = emp_sal.job_id;<br /> select e.salary into emp_sal.salary from employees e where e.employee_id = employee_id;<br /> emp_sal.sal_raise := 0;<br /> --取得給 emp_sal(sal_info) 的資料 ========== (end)<br /><br /> --根據 job_id 決定每年調薪幅度<br /> case emp_sal.job_id<br /> when 'PU_CLERK' then emp_sal.sal_raise := 0.08;<br /> when 'SH_CLERK' then emp_sal.sal_raise := 0.07;<br /> when 'ST_CLERK' then emp_sal.sal_raise := 0.06;<br /> when 'HR_REP' then emp_sal.sal_raise := 0.05;<br /> when 'PR_REP' then emp_sal.sal_raise := 0.05;<br /> when 'MK_REP' then emp_sal.sal_raise := 0.04;<br /> else null;<br /> end case;<br /><br /> --列出每年薪資成長幅度<br /> if(emp_sal.sal_raise != 0) then <br /> salary_schedule(emp_sal); <br /> end if;<br /> else --年資尚未超過十年<br /> eval_freq := 2;<br /> end if;<br /><br /> --回傳值<br /> return eval_freq;<br /> end eval_frequency;<br /><br /> procedure salary_schedule(emp in sal_info) as<br /> accumulation_sal number;<br /> begin<br /> --使用自訂的 RECORD - sal_info<br /> dbms_output.put_line('If the salary of ' || emp.salary || ' increased by ' || round((emp.sal_raise * 100), 0) || '% each year, it would be ');<br /> accumulation_sal := emp.salary;<br /> while accumulation_sal <= emp.sal_max loop<br /> accumulation_sal := accumulation_sal * (1 + emp.sal_raise);<br /> dbms_output.put(round(accumulation_sal, 2) || ', ');<br /> end loop;<br /> dbms_output.put_line('in successive years.');<br /> end salary_schedule;<br />END EMP_EVAL;<br />