PL/SQL编程基础

1.PL/SQL是一种块结构语言，意味着PL/SQL程序可以分为逻辑块。PL/SQL块由三个部分组成：定义部分、执行部分、异常处理部分。其中，定义部分用于定于常量、变量、游标、用户自定义异常、复杂数据类型等。    执行部分用于实现应用模块功能，该部分包含了要执行的PL/SQL语句和SQL语句。异常处理部分用于处理执行部分可能出现的运行错误。

   PL/SQL块的基础结构：

DECLARE
-- 定义部分
BEGIN
-- 执行部分
EXCEPTION
-- 异常处理部分
END;-- 块结束标记

2.PL/SQL特征：

                    （1）.有利于客户、服务器环境应用运行

                    （2）.适合于客户环境

                    （3）.模块化

　　　　　　　（4）.过程化

　　　　　　　（5）.提供大量内置程序包

　　　　　　　（6）.运行错误的可处理性

3.PL/SQL块的类型：匿名块、子程序、触发器

   匿名块：指没有名称的PL/SQL块。可内嵌到应用程序（例如Java）中，也可以在交互环境（例如SQL*Plus）中直接使用。

   子程序：包括存储过程（用于执行特定操作）、函数（用于返回特定数据）、包（用于逻辑组合相关的过程和函数）。

   触发器：指隐含执行的存储过程。

4.数据类型与变量

   例如：

-- 创建表
create table DEPT -- 部门
(
  id   NUMBER(4) not null constraint PK_DEPT_ID primary key,
  name VARCHAR2(20)
);

create table EMPLOYEE -- 员工
(
  id       NUMBER(4) not null constraint PK_EMP_ID primary key,
  name     VARCHAR2(20) not null,
  birthday DATE,
  address  VARCHAR2(100),
  did      NUMBER(4),
  constraint FK_EMP_DEPT foreign key (DID) references DEPT (ID)
);

-- 添加测试数据
INSERT INTO DEPT VALUES(1, '财务部');
INSERT INTO DEPT VALUES(2, '市场部');
INSERT INTO DEPT VALUES(3, '综合部');
INSERT INTO DEPT VALUES(4, '研发部');
INSERT INTO DEPT VALUES(5, '网络部');

INSERT INTO EMPLOYEE VALUES(1, '李飞', TO_DATE('1975.07.03','yyyy.mm.dd'), '四川成都', 1);
INSERT INTO EMPLOYEE VALUES(2, '刘兰', TO_DATE('1985.09.03','yyyy.mm.dd'), '四川成都', 1);
INSERT INTO EMPLOYEE VALUES(3, '张强', TO_DATE('1987.11.22','yyyy.mm.dd'), '广东广州', 2);
INSERT INTO EMPLOYEE VALUES(4, '刘武龙', TO_DATE('1979.07.18','yyyy.mm.dd'), '陕西西安', 2);
INSERT INTO EMPLOYEE VALUES(5, '向小梅', TO_DATE('1982.03.03','yyyy.mm.dd'), '四川成都', 2);
INSERT INTO EMPLOYEE VALUES(6, '周斌', TO_DATE('1985.11.08','yyyy.mm.dd'), '四川成都', 4);
INSERT INTO EMPLOYEE VALUES(7, '王强', TO_DATE('1985.01.25','yyyy.mm.dd'), '四川成都', 4);

-- 定义变量
DECLARE
   cnt NUMBER(4) := 5;
BEGIN
   DBMS_OUTPUT.PUT_LINE('数字：' || CNT);
END;

-- %TYPE
DECLARE
   emp_name employee.name%TYPE; -- emp_name类型与employee表中name列的类型一致
BEGIN
   SELECT name INTO emp_name FROM employee WHERE id=&emp_id; -- &emp_id 从键盘接收输入
   DBMS_OUTPUT.PUT_LINE('姓名：' || emp_name);
END;

-- %ROWTYPE
DECLARE
   rec employee%ROWTYPE;
BEGIN
   SELECT * INTO rec FROM employee WHERE id=1;
   DBMS_OUTPUT.PUT_LINE('姓名：' || rec.name || ', 生日：' || rec.birthday || '，地址：' || rec.address);
END;

-- 定义 RECORD
DECLARE 
  TYPE emp_type IS RECORD(
       ename employee.name%TYPE NOT NULL := '匿名',
       ebirth employee.birthday%TYPE,
       eaddr employee.address%TYPE
  );
  emp emp_type;
BEGIN
  SELECT name,birthday,address INTO emp FROM employee WHERE id=4;
  DBMS_OUTPUT.PUT_LINE('姓名：' || emp.ename || ', 生日：' || emp.ebirth || '，地址：' || emp.eaddr);
END;

-- 定义索引表
DECLARE
   TYPE emp_name_type IS TABLE OF employee.name%TYPE
   -- INDEX BY BINARY_INTEGER;
   INDEX BY VARCHAR2(20);
   
   emp_names emp_name_type;
BEGIN
   emp_names('lily') := 'Lily';
   emp_names('lucy') := 'Lucy';
   emp_names('tom') := 'Tommy';
   -- SELECT name INTO emp_names('abc') FROM employee WHERE id=1;
   DBMS_OUTPUT.PUT_LINE('姓名：' || emp_names('lily') || ',' || emp_names('lucy') || ',' || emp_names('tom'));
END;

-- 定义VARRAY

DECLARE
   TYPE array_type IS VARRAY(5) OF VARCHAR2(20);
   
   arr array_type;
BEGIN
   -- 为各元素赋初值
   arr := array_type('a','b',NULL,'c', 'd');
   DBMS_OUTPUT.PUT_LINE('第一个：' || arr(1));
   DBMS_OUTPUT.PUT_LINE('第三个：' || arr(3));
   arr(3) := '张三';
   DBMS_OUTPUT.PUT_LINE('修改后第三个：' || arr(3));
END;