源码-PL/SQL从入门到精通-第八章-记录与集合-Part 1

--第8章开始
--代码8.1 不使用记录的PL/SQL语句块示例

DECLARE
  --定义保存字段值的变量
  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_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;


--代码8.2 使用记录的PL/SQL语句块示例
DECLARE
  --定义记录类型
  TYPE t_emp 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_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;

--代码8.3 声明记录类型
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;

--代码8.5 为记录赋值并读取记录内容
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
  --下面的语句为empinfo记录赋值。
  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;

--代码8.6为记录类型赋记录类型的值
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的记录
  --emp_info3 := emp_info1; --此语句出现错误，不同记录类型的变量不能相互赋值
END;

--代码8.7 %Rowtype定义的记录赋给标准记录类型
DESC dept;
DESC emp;
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
  --使用SELECT语句为记录类型赋值
  SELECT *
  INTO   dept_rec_db
  FROM   dept
  WHERE  deptno = 20;
  --将%ROWTYPE定义的记录赋给标准记录变量
  dept_info := dept_rec_db;
END;