好处是表字段发生变化，记录字段自动改变。但是，由于每次执行前，遇到%TYPR或%ROWTYPE，

数据库系统都会去查看对应表字段类型，会造成一定的数据库开销，如果系统中大量使用记录类型，则对性能会有一定影响。

另外如果删除了某一字段，而自定义记录中使用了该字段，也会有可能忘记删除该字段。

对数据库负荷偏低的系统，性能问题一般可以不重点关注，但是对于高负荷数据库服务器，

各个环节都要考虑性能问题，每处节省一点出来，性能整体就有很大提高。

语法：

TYPE  记录名  IS RECORD

(

filed1 table.Filed%Type [NOT NULL] [：=eXPr1] ,

filed2 table.Filed%Type [NOT NULL] [：=eXPr1] ,

....... ,

filedn table.Filed%Type [NOT NULL] [：=exprn]

);

例子：记录可以整体赋值

/*conn scott/tiger

Create Table  empa  As  Select * From emp;

*/

Declare

Type EmpType is Record(

EMPNO number(4),

ENAME  varchar2(10),

JOB varchar2(15),

SAL number(7,2),

DEPTNO number(2)

);

EmpRec1  EmpType;

EmpRec2  EmpType;

Begin

EmpRec1.Empno:=7369;

EmpRec1.Ename:='SMITH';

EmpRec1.Job:='CLERK';

EmpRec1.Sal:=800;

EmpRec1.Deptno:=10;

EmpRec2 := EmpRec1;

DBMS_output.put_line(EmpRec2.empno);

End;

例子：记录不可以整体比较，只可以比较记录字段

Declare

Type EmpType is Record(

EMPNO number(4),

ENAME  varchar2(10),

JOB varchar2(15),

SAL number(7,2),

DEPTNO number(2)

);

EmpRec1  EmpType;

EmpRec2  EmpType;

Begin

EmpRec1.Empno:=7369;

EmpRec1.Ename:='SMITH';

EmpRec1.Job:='CLERK';

EmpRec1.Sal:=800;

EmpRec1.Deptno:=10;

if EmpRec1.sal < EmpRec2.sal then

DBMS_output.put_line('Xiao Xiao Xiao');

end if;

End;

例子：记录不可以整体判断为空，只可以判断记录字段。

Declare

Type EmpType is Record(

EMPNO number(4),

ENAME  varchar2(10),

JOB varchar2(15),

SAL number(7,2),

DEPTNO number(2)

);

EmpRec  EmpType;

Begin

if EmpRec.ename is null then

DBMS_output.put_line('Kong Kong Kong');

end if;

End;

例子：使用%TYPE和%ROWTYPE动态指定记录字段。

/*conn scott/tiger

Create Table  empa  As  Select * From emp;

*/

DECLARE

Type MyRecType Is  Record

(

RENO  EMPA.EMPNO%Type,

RENAME   EMPA.ENAME%Type,

RJOB   EMPA.JOB%Type

);

EmpRec  MyRecType;

Begin

Select   EMPNO, ENAME, JOB  InTo  EmpRec  From empa Where empa.EMPNO = '7369';

If  EmpRec.RJOB  = 'CLERK'  Then

DBMS_OUTPUT.PUT_LINE('Name: '||EmpRec.RENAME);

End If;

End;

例子：数据集中的记录和记录类型中的数据关系。

DECLARE

Type MyRecType Is  Record

(

RENO  EMPA.EMPNO%Type,

RENAME   EMPA.ENAME%Type,

RJOB   EMPA.JOB%Type

);

EmpRec  MyRecType;

vJob  EMPA.JOB%Type;

Begin

Select   EMPNO, ENAME, JOB  InTo  EmpRec  From empa Where empa.EMPNO = '7369';

DBMS_OUTPUT.PUT_LINE('MyRecType.RJOB: '||EmpRec.RJOB);

EmpRec.RJOB  := '修改值后'  ;

DBMS_OUTPUT.PUT_LINE('MyRecType.RJOB: '||EmpRec.RJOB);

Select JOB  InTo vJob  from empa  Where empa.EMPNO = EmpRec.RENO;

DBMS_OUTPUT.PUT_LINE('EMPA.JOB: '||vJob);

End;

/四，使用记录向表中插入数据？ 根据表结构合理安排记录字段。比如主外键。

如果用记录(RECORD)插入数据，那么只能使用记录成员；

如果用%ROWTYPE插入数据,可以直接使用%ROWTYPE。

例子：使用记录成员向表中插入数据

DECLARE

Type MyRecType Is  Record

(

RENO  EMPA.EMPNO%Type,

RENAME   VARCHAR2(10),

RJOB   EMPA.JOB%Type

);

EmpRec MyRecType;

Begin

Select   EMPNO, ENAME, JOB  InTo  EmpRec  From empa Where empa.EMPNO = '7369';

DBMS_OUTPUT.PUT_LINE(EmpRec.RENO||'  '||EmpRec.RENAME||'  '||EmpRec.RJOB);

EmpRec.RENO  := 1001;

EmpRec.RENAME := '杰克';

EmpRec.RJOB  := '办事员';