Oracle系列：（28）PLSQL
| 准备篇 |
col empno for 9999; col ename for a10; col job for a10; col mgr for 9999; col hiredate for a12; col sal for 9999; col comm for 9999; col deptno for 99; col tname for a40; set pagesize 80; |
1、SQL对比PLSQL
SQL99是什么
（1）是操作所有关系型数据库的规则
（2）是第四代语言
（3）是一种结构化查询语言
（4）只需发出合法合理的命令，就有对应的结果显示
SQL的特点
（1）交互性强，非过程化
（2）数据库操纵能力强，只需发送命令，无需关注如何实现
（3）多表操作时，自动导航简单，例如：
select emp.empno,emp.sal,dept.dname from emp,dept where emp.deptno = dept.deptno
（4）容易调试，错误提示，直接了当
（5）SQL强调结果
PLSQL是什么
是专用于Oracle服务器，在SQL基础之上，添加了一些过程化控制语句，叫PLSQL
过程化包括有：类型定义，判断，循环，游标，异常或例外处理。。。
PLSQL强调过程
为什么要用PLSQL
因为SQL是第四代命令式语言，无法显示处理过程化的业务，所以得用一个过程化程序设计语言来弥补SQL的不足之处，
SQL和PLSQL不是替代关系，是弥补关系
PLSQL程序的完整组成结构如下：
[declare] 变量声明; 变量声明;begin DML/TCL操作; DML/TCL操作;[exception] 例外处理; 例外处理;end;/
注意：在PLSQL程序中，；号表示每条语句的结束，/表示整个PLSQL程序结束
书写PLSQL的工具有：
（1）SQLPLUS工具
（2）SQLDeveloper工具
（3）第三方工具（PLSQL & 其它）
PLSQL与SQL执行有什么不同：
（1）SQL是单条执行的
（2）PLSQL是整体执行的，不能单条执行，整个PLSQL结束用/，其中每条语句结束用；号
2、PLSQL类型
写一个PLSQL程序，输出"hello world"字符串，语法：dbms_output.put_line('需要输出的字符串');
begin --向SQLPLUS客户端工具输出字符串 dbms_output.put_line('hello 你好');end;/注意：
dbms_output是oracle中的一个输出对象
put_line是上述对象的一个方法，用于输出一个字符串自动换行
设置显示PLSQL程序的执行结果，默认情况下，不显示PLSQL程序的执行结果，语法：set serveroutput on/off;
set serveroutput on;
使用基本类型变量,常量和注释，求10+100的和
declare --定义变量 mysum number(3) := 0; tip varchar2(10) := '结果是';begin /*业务算法*/ mysum := 10 + 100; /*输出到控制器*/ dbms_output.put_line(tip || mysum);end;/
输出7369号员工姓名和工资，格式如下：7369号员工的姓名是SMITH,薪水是800，语法：使用表名.字段%type
declare --定义二个变量，分别装姓名和工资 pename emp.ename%type; psal emp.sal%type;begin --SQL语句 --select ename,sal from emp where empno = 7369; --PLSQL语句，将ename的值放入pename变量中，sal的值放入psal变量中 select ename,sal into pename,psal from emp where empno = 7369; --输出 dbms_output.put_line('7369号员工的姓名是'||pename||',薪水是'||psal); end;/输出7788号员工姓名和工资，格式如下：7788号员工的姓名是SMITH,薪水是3000，语法：使用表名%rowtype
declare emp_record emp%rowtype;begin select * into emp_record from emp where empno = 7788; dbms_output.put_line('7788号员工的姓名是'||emp_record.ename||',薪水是'||emp_record.sal);end;/何时使用%type，何时使用%rowtype？
当定义变量时，该变量的类型与表中某字段的类型相同时，可以使用%type
当定义变量时，该变量与整个表结构完全相同时，可以使用%rowtype，此时通过变量名.字段名，可以取值变量中对应的值
项目中，常用%type
3、PLSQL判断
使用if-else-end if显示今天星期几，是"工作日"还是"休息日"
declare pday varchar2(10);begin select to_char(sysdate,'day') into pday from dual; dbms_output.put_line('今天是'||pday); if pday in ('星期六','星期日') then dbms_output.put_line('休息日'); else dbms_output.put_line('工作日'); end if;end;/从键盘接收值，使用if-elsif-else-end if显示"age<16"，"age<30"，"age<60"，"age<80"
declare age number(3) := &age;begin if age < 16 then dbms_output.put_line('你未成人'); elsif age < 30 then dbms_output.put_line('你青年人'); elsif age < 60 then dbms_output.put_line('你奋斗人'); elsif age < 80 then dbms_output.put_line('你享受人'); else dbms_output.put_line('未完再继'); end if;end;/4、PLSQL循环
使用loop循环显示1-10
declare i number(2) := 1;begin loop --当i>10时，退出循环 exit when i>10; --输出i的值 dbms_output.put_line(i); --变量自加 i := i + 1; end loop;end;/
使用while循环显示1-10
declare i number(2) := 1;begin while i<11 loop dbms_output.put_line(i); i := i + 1; end loop;end;/
使用while循环，向emp表中插入999条记录
declare i number(4) := 1;begin while( i < 1000 ) loop insert into emp(empno,ename) values(i,'哈哈'); i := i + 1; end loop; end;/
使用while循环，从emp表中删除999条记录
declare i number(4) := 1;begin while i<1000 loop delete from emp where empno = i; i := i + 1; end loop;end;/
使用for循环显示20-30
declare i number(2) := 20;begin for i in 20 .. 30 loop dbms_output.put_line(i); end loop;end;/
5、PLSQL游标
什么是光标/游标/cursor
类似于JDBC中的ResultSet对象的功能，从上向下依次获取每一记录的内容
使用无参光标cursor，查询所有员工的姓名和工资【如果需要遍历多条记录时，使用光标cursor，无记录找到使用cemp%notfound】
declare --定义游标 cursor cemp is select ename,sal from emp; --定义变量 vename emp.ename%type; vsal emp.sal%type;begin --打开游标，这时游标位于第一条记录之前 open cemp; --循环 loop --向下移动游标一次 fetch cemp into vename,vsal; --退出循环,当游标下移一次后，找不到记录时，则退出循环 exit when cemp%notfound; --输出结果 dbms_output.put_line(vename||'--------'||vsal); end loop; --关闭游标 close cemp;end;/
使用带参光标cursor，查询10号部门的员工姓名和工资
declare cursor cemp(pdeptno emp.deptno%type) is select ename,sal from emp where deptno=pdeptno; pename emp.ename%type; psal emp.sal%type; begin open cemp(&deptno); loop fetch cemp into pename,psal; exit when cemp%notfound; dbms_output.put_line(pename||'的薪水是'||psal); end loop; close cemp;end;/
动态图如下：
使用无参光标cursor，真正给员工涨工资，ANALYST涨1000，MANAGER涨800，其它涨400，要求显示编号，姓名，职位，薪水
declare cursor cemp is select empno,ename,job,sal from emp; pempno emp.empno%type; pename emp.ename%type; pjob emp.job%type; psal emp.sal%type;begin open cemp; loop fetch cemp into pempno,pename,pjob,psal; --循环退出条件一定要写 exit when cemp%notfound; if pjob='ANALYST' then update emp set sal = sal + 1000 where empno = pempno; elsif pjob='MANAGER' then update emp set sal = sal + 800 where empno = pempno; else update emp set sal = sal + 400 where empno = pempno; end if; end loop; commit; close cemp;end;/
6、PLSQL例外
使用oracle系统内置例外，演示除0例外【zero_divide】
declare myresult number;begin myresult := 1/0; dbms_output.put_line(myresult);exception when zero_divide then dbms_output.put_line('除数不能为0'); delete from emp; end;/使用oracle系统内置例外，查询100号部门的员工姓名，演示没有找到数据【no_data_found】
declare pename varchar2(20);begin select ename into pename from emp where deptno = 100; dbms_output.put_line(pename);exception when NO_DATA_FOUND then dbms_output.put_line('查无该部门员工'); insert into emp(empno,ename) values(1111,'ERROR');end;/使用用户自定义例外，使用光标cursor，查询10/20/30/100号部门的员工姓名，演示没有找到数据【nohave_emp_found】
declare cursor cemp(pdeptno number) is select ename from emp where deptno=pdeptno; nohave_emp_found exception; pename emp.ename%type;begin --打开游标，这时游标位于第一条记录之前 open cemp(&xx); -- 向下移动游标，指向第一条记录 fetch cemp into pename; -- 判断 if cemp%notfound then -- 抛异常 raise nohave_emp_found; else -- 输出变量pename的值 dbms_output.put_line(pename); -- 循环 loop -- 向下移动游标一次，指向第二条记录 fetch cemp into pename; -- 如果找不到记录的话，就退出 exit when cemp%notfound; dbms_output.put_line(pename); end loop; end if; close cemp;exception when nohave_emp_found then dbms_output.put_line('查无此部门员工');end;/
