oracle提供自定义类型功能，用户可以根据自己的情况定义记录数据类型(record)和记录表类型(table)，其中记录数据类型record存储是
oracle提供自定义类型功能，用户可以根据自己的情况定义记录数据类型(record)和记录表类型(table)，其中记录数据类型record存储是一条记录，记录表类型table用来存储多条记录。如果记录数据类型record是一维数组的话，记录表类型table就是二维数组。
自定义类型有两种写法：type...is和create type，两种定义方式的区别是：前者一般在存储过程和函数中定义，使用范围也限于所在过程或函数，而后者方式声明对象类型，对象类型则是作为一个方案对象（像表、索引、视图、触发器一样，是一个方案对象），可以过程或函数中使用，还可以在定义表时，作为字段的类型。
下面分别介绍：
type is定义类型
1. 定义数据记录类型
语法：
type type_name is record (字段1类型1,字段2类型2,...字段n类型n);说明：
1) type_name：类型名称。
举例：
declare
type type_student is record(
name varchar2(100),
age number(3),
sex varchar2(1)
);
r_student type_student;
v_name varchar2(100);
i_age number(3);
v_sex varchar(1);
i integer;
begin
select name, age, sex into r_student from t_student where gid = 1;
v_name := r_student.name;
i_age := r_student.age;
v_sex := r_student.sex;
dbms_output.put_line(v_name);
dbms_output.put_line(v_sex);
dbms_output.put_line(i_age);
end;
输出结果：
zhansan
1
12
2.定义表记录
语法：
type type_name is table of element_typeindex by [binary_integer | pls_integer | varray2]; 说明：
1) type_name：类型名称。
2) element_type:可以是基本类型(如varchar2, ingeger, number等)、记录数据类型(即typetype_nameis record定义的类型)、%rowtype。
3) index by:该语句的作用是使number类型的下标自增长，自动初始化，并分配空间，有了该语句，，向表记录插入元素
时，不需要显示初始化，也不需要通过extend分配空间。binary_integer 与 pls_integer 都是整型类型.
binary_integer类型变量值计算是由oracle来执行，不会出现溢出，但是执行速度较慢，因为它是由oracle
模拟执行。而pls_integer的执行是由硬件即直接由cpu来运算，因而会出现溢出，但其执行速度较前者快许多。
如果没有使用这个语句，又没有使用extend就会报错：ora-06531:reference to uninitialized
collection，具体请参考《ora-06531:reference to uninitialized collection 问题解决》
举例：
declare
type type_student is record(
name varchar2(100),
age number(3),
sex varchar2(1)
);
type t_student_var is table of varchar2(100) index by binary_integer;
type t_student_rec is table of type_student index by binary_integer;
type t_student_rowtype is table of t_student%rowtype index by binary_integer;
v_tbl_name t_student_var;
v_tbl_record t_student_rec;
v_tbl_rowtype t_student_rowtype;
begin
dbms_output.put_line('------------基本类型varchar2表记录------------');
select name into v_tbl_name(1) from t_student where gid = 1;
select name into v_tbl_name(2) from t_student where gid = 2;
select name into v_tbl_name(3) from t_student where gid = 3;
dbms_output.put_line(v_tbl_name(1));
dbms_output.put_line(v_tbl_name(2));
dbms_output.put_line(v_tbl_name(3));
dbms_output.put_line('------------自定义record类型表记录------------');
select name, age, sex into v_tbl_record(1) from t_student where gid = 1;
select name, age, sex into v_tbl_record(2) from t_student where gid = 2;
select name, age, sex into v_tbl_record(3) from t_student where gid = 3;
dbms_output.put_line('name:'||v_tbl_record(1).name||', '||'age:'||v_tbl_record(1).age||', '||'sex:'||v_tbl_record(1).sex);
dbms_output.put_line('name:'||v_tbl_record(2).name||', '||'age:'||v_tbl_record(2).age||', '||'sex:'||v_tbl_record(2).sex);
dbms_output.put_line('name:'||v_tbl_record(3).name||', '||'age:'||v_tbl_record(3).age||', '||'sex:'||v_tbl_record(3).sex);
dbms_output.put_line('------------表记录类型表记录------------');
select * into v_tbl_rowtype(1) from t_student where gid = 1;
select * into v_tbl_rowtype(2) from t_student where gid = 2;
select * into v_tbl_rowtype(3) from t_student where gid = 3;
dbms_output.put_line('name:'||v_tbl_rowtype(1).name||', '||'age:'||v_tbl_rowtype(1).age||', '||'sex:'||v_tbl_rowtype(1).sex||', '||'grade:'||v_tbl_rowtype(1).grade);
dbms_output.put_line('name:'||v_tbl_rowtype(2).name||', '||'age:'||v_tbl_rowtype(2).age||', '||'sex:'||v_tbl_rowtype(2).sex||', '||'grade:'||v_tbl_rowtype(2).grade);
dbms_output.put_line('name:'||v_tbl_rowtype(3).name||', '||'age:'||v_tbl_rowtype(3).age||', '||'sex:'||v_tbl_rowtype(3).sex||', '||'grade:'||v_tbl_rowtype(3).grade);
end;
输出结果：