记录类型(学习笔记)

TYPE EMP_TYPE IS RECORD( --定义记录类型
    ENAME    EMP.ENAME%TYPE,
    JOB      EMP.JOB%TYPE,
    HIREDATE EMP.HIREDATE%TYPE,
    SAL      EMP.SAL%TYPE,
    COMM     EMP.COMM%TYPE
    
    );
  V_EMP EMP_TYPE; --定义一个指定的复合类型变量
BEGIN
  V_ENO := &ENO;
  SELECT ENAME, JOB, HIREDATE, SAL, COMM
    INTO V_EMP
    FROM EMP
   WHERE EMPNO = V_ENO;
  DBMS_OUTPUT.PUT_LINE(SQL%ROWCOUNT || ‘ 员工编号:‘ || V_ENO || ‘ 姓名：‘ ||
                       V_EMP.ENAME || ‘ 职位:‘ || V_EMP.JOB || ‘ 入职日期:‘ ||
                       TO_CHAR(V_EMP.HIREDATE, ‘yyyy-mm-dd‘) || ‘ 基本工资：‘ ||
                       V_EMP.SAL || ‘ 佣金：‘ || NVL(V_EMP.COMM, 0));
  EXCEPTION
    WHEN OTHERS THEN
      raise_application_error(-20009,‘此员工信息不存在‘);

END;

DECLARE
     TYPE dept_type IS RECORD(
          deptno           dept.deptno%TYPE:=99,--定义默认值
          dname            dept.dname%TYPE,
          loc               dept.loc%TYPE
     );
     v_dept         dept_type;
BEGIN
         v_dept.dname:=‘TT‘;         --为记录类型成员赋值
         v_dept.loc:=‘上海‘;
         dbms_output.put_line(‘部门编号:‘||v_dept.deptno||‘ 部门名称:‘||v_dept.dname||‘ 部门位置:‘||v_dept.loc);
END;

DECLARE
  TYPE DEPT_TYPE IS RECORD(
    DEPTNO DEPT.DEPTNO%TYPE := 99, --定义默认值
    DNAME  DEPT.DNAME%TYPE,
    LOC    DEPT.LOC%TYPE);
  TYPE EMP_TYPE IS RECORD( --定义记录类型
    EMPNO    EMP.EMPNO%TYPE,
    ENAME    EMP.ENAME%TYPE,
    JOB      EMP.JOB%TYPE,
    HIREDATE EMP.HIREDATE%TYPE,
    SAL      EMP.SAL%TYPE,
    COMM     EMP.COMM%TYPE,
    DEPT     DEPT_TYPE);
  V_EMP EMP_TYPE;
BEGIN
  SELECT E.EMPNO,
         E.ENAME,
         E.JOB,
         E.HIREDATE,
         E.SAL,
         E.EMPNO,
         D.DEPTNO,
         D.DNAME,
         D.LOC
    INTO V_EMP.EMPNO,
         V_EMP.ENAME,
         V_EMP.JOB,
         V_EMP.HIREDATE,
         V_EMP.SAL,
         V_EMP.COMM,
         V_EMP.DEPT.DEPTNO,
         V_EMP.DEPT.DNAME,
         V_EMP.DEPT.LOC
    FROM EMP E, DEPT D
   WHERE E.EMPNO = D.DEPTNO(+)
     AND EMPNO = &EMPNO;
  DBMS_OUTPUT.PUT_LINE(SQL%ROWCOUNT || ‘ 员工编号:‘ || V_EMP.EMPNO || ‘ 姓名：‘ ||
                       V_EMP.ENAME || ‘ 职位:‘ || V_EMP.JOB || ‘ 入职日期:‘ ||
                       TO_CHAR(V_EMP.HIREDATE, ‘yyyy-mm-dd‘) || ‘ 基本工资：‘ ||
                       V_EMP.SAL || ‘ 佣金：‘ || NVL(V_EMP.COMM, 0));
  DBMS_OUTPUT.PUT_LINE(‘部门编号:‘ || V_EMP.DEPT.DEPTNO || ‘ 部门名称:‘ ||
                       V_EMP.DEPT.DNAME || ‘ 部门位置:‘ || V_EMP.DEPT.LOC);
END;

DECLARE
  TYPE DEPT_TYPE IS RECORD(
    DEPTNO DEPT.DEPTNO%TYPE, --定义默认值
    DNAME  DEPT.DNAME%TYPE,
    LOC    DEPT.LOC%TYPE
    );
    V_DEPT DEPT_TYPE;
BEGIN
  V_DEPT.deptno:=&deptno;
  V_DEPT.DNAME:=‘&dname‘; --为记录类型成员赋值
  V_DEPT.LOC:=‘&loc‘;
 INSERT INTO dept VALUES v_dept;                   --直接插入记录类型 
END;

DECLARE
  TYPE DEPT_TYPE IS RECORD(
    DEPTNO DEPT.DEPTNO%TYPE, --定义默认值
    DNAME  DEPT.DNAME%TYPE,
    LOC    DEPT.LOC%TYPE
    );
    V_DEPT DEPT_TYPE;
BEGIN
  V_DEPT.deptno:=&deptno;
  V_DEPT.DNAME:=‘&dname‘; --为记录类型成员赋值
  V_DEPT.LOC:=‘&loc‘;
UPDATE dept SET ROW=v_dept WHERE deptno=v_dept.deptno;
EXCEPTION
  WHEN OTHERS THEN
    dbms_output.put_line(‘没有这个部门‘);
   
END;