6.记录类型

     跟rowtype相比 记录类型胜在灵活，可以自定义自己所需要的变量类型和个数。

   如果不使用记录类型可以看下

declare
   -- 定义保存字段值的变量
   v_emp number;
   v_ename varchar2(20);
   v_job varchar2(9);
   v_mgr number(4);
   v_hiredate date;
   v_sal number(7,2);
   c_comm number(7,2);
   v_deptno number(2);
begin
   -- 从emp 表中取出字段值
   select empno,ename,job,mgr,hiredate,sal,comm,deptno into v_empno,v_ename,v_job,v_mgr,v_hiredate,v_sal,v_comm,v_deptno from emp where
   empno=:empno;
   -- 向emp_copy 表中插入变量的值
   insert into emp_copy
             (empno,ename,job,mgr,hiredate,sal,comm,deptno)
         values(v_empno,v_ename,v_job,v_mgr,v_hiredate,v_sal,v_comm,v_deptno);
         
exception -- 异常处理块
   when others
   then
      null;   
end;

对比使用记录类型

declare
   -- 定义记录类型
   type t_emp is record(
   v_emp     number,
   v_ename   varchar2(20),
   v_job     varchar2(9),
   v_mgr     number(4),
   v_hiredate date,
   v_sal     number(7,2),
   v_comm    number(7,2),
   v_deptno  number(2)
   );
   -- 声明记录类型的变量
   emp_info t_emp;
begin
    -- 从 emp 表中取出字段值赋给记录类型
    select *
      into emp_info 
      from emp
      where empno =:empno;
      -- 向emp_copy 表中插入记录类型的值
      insert into emp_copy
         values emp_info;   --异常处理块
exception
   when others
   then
      null;
end;

根据如上对比，可以明显看出，明显下边这个更加 ‘赏心悦目’

1. 声明记录类型
declare
   -- 声明记录类型
   type emp_rec is record(
   dept_row dept%rowtype,  -- 声明来自dept 表行的嵌套记录
   empno number,           -- 员工编号
   ename varchar(20),      -- 员工编号
   job   varchar(10),      -- 职位
   sal   number(7,2)       -- 薪资
   );
   -- 声明记录类型的变量
   emp_info emp_rec;
begin
   null;
end;

2.声明记录类型赋初始值
declare
   type emp_rec is record(
   empname     varchar(12)   :='李斯特', -- 员工名称，初始值为李斯特
   empno       number    not null default 7369,  -- 员工编号，默认值7369
   hiredate  date   default sysdate,-- 雇佣日期，默认值为当前日期
   sal        number(7,2) 
   );
   -- 声明emp_rec 类型的变量
   empinfo emp_rec;
begin
   null;
end;

3.记录类型的简单使用
declare
   type emp_rec is record(
   empname varchar(12)   :='李斯特',   --员工名称，初始值为李斯特
   empno    number not null default 7369, --  员工编号，默认值 7369
   hiredate  date  default  sysdate, -- 雇佣日期，默认值为当前日期
   sal      number(7,2)
   
   );
   -- 声明 emp_rec 类型的变量
   empinfo  emp_rec;
begin
   -- 下面的语句为 empingo 记录赋值
   empinfo.empname:='史密斯';
   empinfo.empno:=7010;
   empinfo.hiredate:=to_date('1982-01-01','yyyy-mm-dd');
   empinfo.sal :=5000;
   --  下面的语句输出empinfo 记录的值
   dbms_output.put_line('员工名称：'||empinfo.empname);
   dbms_output.put_line('员工编号：'||empinfo.empno);
   dbms_output.put_line('雇佣日期：'||to_char(empinfo.hiredate,'yyyy-mm-dd'));
   dbms_output.put_line('员工薪资：'||  empinfo.sal);
end;

4.为记录类型赋记录类型的值
declare
   -- 定义记录类型
   type emp_rec is record(
   empno number,
   ename varchar2(20)
   );
   -- 定义与emp_rec 具有相同成员的记录类型
   type emp_rec_dept is record(
   empno number,
   ename varchar2(20)
   );
   -- 声明记录类型的变量
   emp_info1 emp_rec;
   emp_info2 emp_rec;
   emp_info3 emp_rec_dept;
   -- 定义一个内嵌过程用来输出的记录信息
   procedure printrec (empinfo emp_rec)
   as
   begin
       dbms_output.put_line('员工编号：'||empinfo.empno);
       dbms_output.put_line('员工名称：'||empinfo.ename);
   end;
 begin
   emp_info1.empno :=7890;     -- 为emp_info1 记录赋值
   emp_info1.ename :='张大千';
   dbms_output.put_line('emp_info1 的信息如下');
   printrec(emp_info1);-- 打印赋值后的emp_info1 记录
   emp_info2 :=emp_info1; --将emp_info1 记录变量直接赋给emp_info2
   dbms_output.put_line('emp_info2 的信息如下：');
   printrec(emp_info2);   -- 打印赋值后的emp_info2 的记录
end;

5.   %rowtype 与记录类型
declare
   -- 定义一个与dept 表具有相同列的记录
   type dept_rec is record(
   deptno   number(10),
   dname varchar2(30),
   loc    varchar2(30)
   );
   -- 定义基于dept 表的记录类型
   dept_rec_db   dept%rowtype;
   dept_info     dept_rec;
begin
   -- 定义基于dept 表的记录类型
   select *
     into dept_rec_db
     from dept
    where deptno='20';
    -- 将%rowtype 定义的记录赋给标准记录变量
    dept_info :=dept_rec_db;
end;
   

6. 定义一个与表的列相同的记录类型
declare
   -- 定义一个与dept 表具有相同列的记录
   type dept_rec is record(
   deptno   number(10),
   dname varchar2(30),
   loc    varchar2(30)
   );
   -- 定义基于dept 表的记录类型
   dept_rec_db   dept%rowtype;
   dept_info     dept_rec;
begin
   -- 定义基于dept 表的记录类型
   select *
     into dept_rec_db
     from dept
    where deptno='20';
    -- 将%rowtype 定义的记录赋给标准记录变量
    dept_info :=dept_rec_db;
end;
   

7.使用select 语句给用户赋值
declare
   type emp_rec is record(
   empno number(10),
   ename varchar2(30),
   job   varchar2(30)
   
   );
   -- 声明记录类型的变量
   emp_info emp_rec;
begin
   --- 为记录类型赋值
   select empno,
          ename,
         job
     into emp_info 
     from emp
    where empno=7369;
    -- 输出记录类型的值
    dbms_output.put_line( ' 员工编号：'
                     || emp_info.emp
                     ||chr(13)
                     ||'员工姓名：'
                     ||emp_info.ename
                     ||chr(13)
                     ||'员工职别：'
                     ||emp_info.job
                    );
end;
                     
    
    
    
    )     

8. insert 语句使用
declare
   type dept_rec is record(
   deptno number(2),
   dname varchar2(14),
   loc   varchar2(13)
   );
   -- 定义两个记录类型的变量
   dept_row  dept%rowtype;
   dept_norow  dept_rec;
begin
    -- 为记录类型赋值
    dept_row.deptno :=70;
    dept_row.dname :='工程部';
    dept_row.loc :='上海'；
    dept_norow.deptno :=80;
    dept_norow.dname :='电脑部';
    dept_no row.loc :='北京'；
    -- 插入%rowtype 定义的记录变量到表中
    insert into dept
        values dept_row;
    --插入普通记录变量的值到表中
    insert into dept
         values dept_norow;
    -- 向数据库提交对表的更改
    commit;
end;

9. update 语句 使用记录类型的
declare
   type dept_rec is record(   -- 定义记录类型吧
   deptno   number(2),
   dname  varchar2(14),
   loc      varchar2(13)
   );
   dept_info  dept_rec;   -- 定义记录类型的变量
begin
    select * 
    into dept_info 
    from ddpt
   where dept =80;        -- 使用select 语句初始化记录类型
   dept_info.dname :='信息管理部'; -- 更新记录类型的值
   update dept
      set row = dept_info
      where  deptno=dept_info.deptno;-- 在update 中使用记录变量更新表
end;
     

10.在dml 语句中使用returning 返回受影响的行
declare
   type dept_rec is record(     -- 定义记录类型
   deptno   number(2),
   dname  varchar2(14),
   loc    varchar2(13)
   );
   dept_info   dept_rec;         -- 定义记录类型的变量
   dept_returning dept%rowtype;  -- 定义用户返回结果的记录类型
begin
    select * 
      into dept_info
      from dept
     where deptno=80;              --使用select 语句初始化记录类型
     dept_info.dname :='信息管理部';
     update   dept                 -- 更新记录类型的值
        set  row  = dept_info 
      where  deptno = dept_info.deptno  -- 在update 中使用记录变量更新表，返回受影响的行到记录
      returning deptno,
            dname,
            loc
           into dept_returning;
          dept_info.deptno；=12;
          dept_info.dname :='维修部';
          insert into dept   -- 插入新的部门编号记录，返回受影响的行的记录
            values dept_info
      returning deptno,
              dname,
              loc
            into dept_returning;
     declare from dept    -- 删除现有的部门，返回受影响的行的记录
         where deptno= dept_info.depno
       returning deptno,
       dname,
       loc
       into dept_returning;
end;

11.使用 嵌套记录
declare
   type dept_rec is record(    -- 定义部门记录类型
   deptno  number(2),
   dname  varchar2(14),
   loc   varchar2(13)
   );
   type emp_rec is record(
   v_empno number,
   v_ename varchar2(20),
   v_job   varchar2(9),
   v_mgr    number(4),
   v_hiredate date,
   v_sal  number(7,2),
   v_comm number(7,2),
   v_dept_rec dept_rec   -- 定义嵌套的员工记录
    );
   emp_info  emp_rec;   --员工记录
   dept_info  dept_rec;  ---临时部门记录
begin
     select * 
     into dept_info
     from  dept
  where deptno =(select deptno
                  from emp
                  where empno=7369);
   emp_info.v_dept:=dept_info;  -- 将部门信息记录赋给镶嵌的部门信息
   select empno,ename,job,mgr,hiredate,sal,comm into emp_info.v_empno,emp_info.ename,emp_info.v_job,emp_info.v_mgr,emp_info.v_hiredate,emp_info.v_sal,emp_info.v_comm from
   emp where empno=7369;
   -- 输出镶嵌记录的员工所在部门信息
   dbms_output.put_line('员工所属部门为：'emp_info.v_dept_rec.dname);
end;