源码-Oracle数据库管理-第十二章-使用PL/SQL创建Oracle程序-Part 2（PL/SQL语言概览）

这部分很基础。

--12.2 PL/SQL语言概览
--12.2.1 PL/SQL块

--代码12.6 最简单的PL/SQL匿名块
BEGIN
   NULL;           --最简单的PL/SQL语句块
END;

--代码12.7 完整的PL/SQL语句块
DECLARE
   v_deptcount   NUMBER (2);                                 --定义员工记数器变量
   v_deptno      NUMBER (2) := 94;                            --定义并为变量赋初值
BEGIN
   --查询v_deptno变量所代表的员工编号是否存在
   SELECT COUNT (1)
     INTO v_deptcount
     FROM dept
    WHERE deptno = v_deptno;
   IF v_deptcount = 0                                           --如果记录数等于0,表示无此编号的部门
   THEN
      INSERT INTO dept
           VALUES (v_deptno, '财务部', '深圳');                    --执行插入操作
      --写入屏幕信息
      DBMS_OUTPUT.put_line ('成功插入部门资料!');
      commit;
   END IF;
EXCEPTION                                                   --异常处理块
   WHEN OTHERS
   THEN                                                      --如果出现任何异常
      DBMS_OUTPUT.put_line ('部门资料插入失败');               --显示异常信息
END;

select distinct deptno from dept;

select * from dept;


--12.2.2 嵌套块
--代码12.8 PL/SQL嵌套块示例
DECLARE
   v_deptcount   NUMBER (2);                                 --定义记录数变量
   v_deptno      NUMBER (2)    := 1;                        --定义并为变量赋初值
   v_deptname    VARCHAR2 (12);
BEGIN
   --内部嵌套块
   BEGIN
      SELECT dname
        INTO v_deptname
        FROM dept
       WHERE deptno = v_deptno;                              --在嵌套块中可以直接使用外部块中定义的变量
    EXCEPTION                                               --异常处理区
      WHEN NO_DATA_FOUND THEN                               --捕掉异常
        DBMS_OUTPUT.put_line ('您查询的部门不存在');
        RAISE;                                      
   END;
   --内部嵌套块
   DECLARE
      v_loc   VARCHAR2 (20) := '深圳罗湖';                   --在子块中定义变量
   BEGIN
      --执行插入操作
      UPDATE dept
         SET loc = v_loc
       WHERE deptno = v_deptno;
      --写入屏幕信息
      DBMS_OUTPUT.put_line ('在内部嵌套块中成功更新部门资料!');
   END;
EXCEPTION                                                   --异常处理块
   WHEN NO_DATA_FOUND
   THEN                                                      --如果出现任何异常
      BEGIN                                                  --在异常处理块内部嵌套块
         INSERT INTO dept
              VALUES (v_deptno, '财务部', '深圳');
         DBMS_OUTPUT.put_line ('在异常处理嵌套块成功插入部门资料!');
      EXCEPTION
         WHEN OTHERS
         THEN
            DBMS_OUTPUT.put_line (SQLERRM);                  --如果在嵌套块中出现异常，输出SQL错误消息
      END;
END;


--代码12.9 使用命名块

DECLARE
   v_deptcount   NUMBER (2);                                 --定义记录数变量
   v_deptno      NUMBER (2)    := 90;                        --定义并为变量赋初值
   v_deptname    VARCHAR2 (12);
BEGIN
   <<获取部门名称的块>>
   BEGIN
      SELECT dname
        INTO v_deptname
        FROM dept
       WHERE deptno = v_deptno;                              --在嵌套块中可以直接使用外部块中定义的变量
    EXCEPTION                                               --异常处理区
      WHEN NO_DATA_FOUND THEN                               --捕掉异常
        DBMS_OUTPUT.put_line ('您查询的部门不存在');
        RAISE;                                      
   END;
   <<更新部门地址的块>>
   DECLARE
      v_loc   VARCHAR2 (20) := '深圳罗湖';                   --在子块中定义变量
   BEGIN
      --执行插入操作
      UPDATE dept
         SET loc = v_loc
       WHERE deptno = v_deptno;
      --写入屏幕信息
      DBMS_OUTPUT.put_line ('在内部嵌套块中成功更新部门资料!'||更新部门地址的块.v_loc);
   END;
EXCEPTION                                                   --异常处理块
   WHEN NO_DATA_FOUND
   THEN      
    <<异常处理嵌套块>>                                        --如果出现任何异常
      BEGIN                                                  --在异常处理块内部嵌套块
         INSERT INTO dept
              VALUES (v_deptno, '财务部', '深圳');
        -- DBMS_OUTPUT.put_line ('在异常处理嵌套块成功插入部门资料!'||更新部门地址的块.v_loc);
      EXCEPTION
         WHEN OTHERS
         THEN
            DBMS_OUTPUT.put_line (SQLERRM);                  --如果在嵌套块中出现异常，输出SQL错误消息
      END;
END;


--12.2.3 变量和数据类型
--代码12.10 定义标量变量
DECLARE
  part_number       NUMBER(6);     --SQL数据类型
  part_name         VARCHAR2(20);  --SQL数据类型
  in_stock          BOOLEAN;       --仅PL/SQL使用的数据类型
  part_price        PLS_INTEGER;  --仅PL/SQL使用的数据类型
  part_description  VARCHAR2(50);  --SQL数据类型
  hours_worked    INTEGER := 40;   --定义变量并赋初值
  employee_count  INTEGER NOT NULL := 0;    --定义变量并指定NOT NULL约束
  hire_date    DATE DEFAULT SYSDATE;   --使用DEFAULT关键字指定初始值
BEGIN
  NULL;
END;


--代码12.11 使用赋值运算符为变量赋值
DECLARE
  part_number       NUMBER(6);     --SQL数据类型
  part_name         VARCHAR2(20);  --SQL数据类型
  in_stock          BOOLEAN;       --仅PL/SQL使用的数据类型
  part_price        PLS_INTEGER;  --仅PL/SQL使用的数据类型
  part_description  VARCHAR2(50);  --SQL数据类型
  hours_worked    INTEGER := 40;   --定义变量并赋初值
  employee_count  INTEGER NOT NULL := 0;    --定义变量并指定NOT NULL约束
  hire_date    DATE DEFAULT SYSDATE;   --使用DEFAULT关键字指定初始值
BEGIN
  part_number:=38;
  part_name:='水管';
  in_stock:=True;
  part_price:=100/part_number;
  part_description:='镀银软管';
  DBMS_OUTPUT.put_line(part_number||CHR(13)||part_price); 
END;



--代码12.12 使用select into 语句为变量赋值
DECLARE
  v_sal    emp.sal%TYPE;               --定义3个与emp表中相应列相同类型的变量
  v_empno  emp.empno%TYPE;
  v_deptno emp.deptno%TYPE;
BEGIN
  SELECT empno, sal, deptno           --使用SELECT INTO为变量赋值
    INTO v_sal, v_empno, v_deptno
    FROM emp
   WHERE empno = 7369;
EXCEPTION                            --避免TOO_MANY_ROWS异常，这里进行了捕捉
  WHEN TOO_MANY_ROWS THEN
    DBMS_OUTPUT.put_line('返回了多行数据');
END;



--常量的定义
DECLARE
 program_title constant varchar2(50) := 'PL/SQL编程你会吗？';
BEGIN
 DBMS_OUTPUT.put_line(program_title);
END;