摘要：
声明--description part begin--program dbms_output.put _ line（'HelloWorld'）；=真实；psalfromempwhereempno=7839；Declare--定义一个变量以保存输入编号pnumumber:number；elsifpnum=1tendbms_output.put _ Line（'您输入了1'）；endif；
Hello World
set serveroutput on; declare --说明部分 begin --程序 dbms_output.put_line('Hello World'); end; /
什么是PL/SQL?
- PL/SQL是Oracle对sql语言的过程化扩展
- 指在SQL命令语言中增加了过程处理语句（如分子、循环等），使SQL语言具有过程处理能力
把SQL语言的数据操纵能力与过程语言的数据处理能力结合起来，PLSQL面向过程但比过程语言简单、高效、灵活和实用。
PL/SQL程序结构
declare 说明部分 （变量说明，光标申明，例外说明） begin 语句序列 （DML语句）... exception 例外处理语句 end； /
变量说明（char,varchar2,date,number,boolean,long）
varl char(15)； //说明变量名，数据类型和长度后用分号结束说明语句
married boolean :=true;
psal number(7,2);
my_name emp.ename%type; //引用型变量，即my_name的类型与emp表中ename列的类型一样
emp_rec emp%rowtype; //记录型变量
引用型变量：
--查询7839姓名和薪水 set serveroutput on declare --定义变量保存姓名和薪水 --pname varcher2(20); --psal number; pname emp.ename%type; psal emp.sal%type; begin --into 赋值 注意查询与赋值顺序 select ename,sal into pname,psal from emp where empno=7839; --打印 dbms_output.put_line(pname||'的薪水是：'||psal); end; /
记录型变量
--查询7839姓名和薪水 set serveroutput on declare --定义记录型变量，代表一行 emp_rec emp%rowtype; begin select * into emp_rec from emp where empno=7839; --打印 dbms_output.put_line(emp_rec.ename||'的薪水是：'||emp_rec.sal); end; /
if语句
if 条件 then 语句； elsif 语句 then 语句； end if；
判断用户从键盘输入的数字：
--接收键盘输入 set serveroutput on --num 是一个地址值，在该地址上保存了输入的值的地址 accept num prompt '请输入一个数字'; declare --定义变量保存输入的数字 pnum number := # begin if pnum = 0 then dbms_output.put_line('您输入的是0'); elsif pnum = 1 then dbms_output.put_line('您输入的是1'); else dbms_output.put_line('其他数字'); end if; end; /
循环
loop exit[when 条件] ... end loop;
for i in 1..3 loop 语句序列; end loop;
打印1~10
--打印1~10 set serveroutput on declare pnum number :=1; begin loop exit when pnum>10; SYS.dbms_output.put_line(pnum); --pnum 每次+1 不能使用++ pnum := pnum + 1 ; end loop; end; /
光标（cursor）==resultset
说明光标语法：
cursor 光标[ (参数名 数据类型[，参数名 数据类型]...)]
is select 语句 ；
用于存储一个查询返回的多行数据
cursor c1 is select ename from emp ;
打开光标： open c1 ;(打开光标执行查询)
取一行光标的值： fetch c1 into pename;(取一行到变量中)
关闭光标：close c1;(关闭光标释放资源)
注意：上面的pename必须与emp表中的ename列类型一致；
--查询并打印员工的姓名和薪水 /* 1、光标属性 %isopen %rowcount(影响的行数) %found %notfound */ set serveroutput on declare --定义光标 cursor cemp is select ename,sal from emp; pename emp.ename%type; psal emp.sal%type; begin open cemp; loop --取一条记录 fetch cemp into pename,psal; --退出条件 exit when cemp%notfound; SYS.dbms_output.put_line(pename||'的薪水是：'||psal); end loop; close cemp; end; /
给员工涨薪水：总裁PRESIDENT 涨1000，经理MANAGER涨800，普通员工涨400
--给员工涨薪水：总裁PRESIDENT 涨1000，经理MANAGER涨800，普通员工涨400 set serveroutput on declare cursor cemp is select empno,empjob from emp; pempno emp.empno%type; pjob emp.empjob%type; begin open cemp; loop --取出一条记录 fetch cemp into pempno,pjob; exit when cemp%notfound; if pjob = 'PRESIDENT' 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; --事务提交 close cemp; end; /
查询某个部门的员工
--查找某个部门员工 set serveroutput on declare --定义光标保存某个部门的员工姓名 cursor cemp(dno number) is select ename from emp where deptno=dno; pname emp.ename%type; begin --光标传实参部门id为10 open cemp(10); loop fetch cemp into pname; exit when cemp%notfound; SYS.dbms_output.put_line(pname); end loop; close cemp; end; /
例外：
java例外机制：向上抛，不处理，最终抛给虚拟机。
Oracel 的异常处理
系统定义例外
no_data_found :没有找到数据
too_many_rows :select ...into语句匹配多个行
zero_divide:算术或转换错误
timeout_on_resource:在等待资源时，发生超时
PLSQL中应该处理所有例外
--被0除 set serveroutput on declare pnum number; begin pnum :=1/0; exception when zero_divide then dbms_output.put_line('0不能被整除'); when others then dbms_output.put_line('其他例外'); end; /
自定义例外
--查询50号部门的员工姓名 set serveroutput on declare cursor cemp is select ename from emp where deptno=50; pname emp.ename%type; --自定义例外 no_emp_found exception; begin open cemp; fetch cemp into pname; if cemp%notfound then --抛出异常 raise no_emp_found; end if; close cemp; exception when no_emp_found then dbms_output.put_line('没有找到员工信息'); when others then dbms_output.put_line('其他例外'); end; /
统计每年入职的员工人数
--使用PLSQL统计每年入职的员工 /* SQL语句：select to_char(hiredate,'yyyy') from emp --> 光标--->循环 --->退出条件，notfound 变量：1、初始值；2、如何得到？ count80 number :=0； .... */ set serveroutput on declare cursor cemp is select to_char(hiredate,'yyyy') from emp; phiredate varchar2(4); count80 number :=0; count81 number :=0; count82 number :=0; count87 number :=0; begin open cemp; loop --取出一个员工信息 fetch cemp into phiredate; exit when cemp%notfound; --判断 if phiredate='1980' then count80 := count80+1; elsif phiredate='1981' then count81 := count81+1; elsif phiredate='1982' then count81 := count82+1; else count87 := count87+1; end if; end loop; close cemp; --输出 SYS.dbms_output.put_line('1980:'||count80); SYS.dbms_output.put_line('1981:'||count81); SYS.dbms_output.put_line('1982:'||count82); SYS.dbms_output.put_line('1987:'||count87); end; /
使用PLSQL根据部门号统计各个部门员工薪水在3000以下、3000~6000、6000以上的人数，并计算各部门工资总额。将结果存入msg表中。
/* SQL语句 部门：select deptno from dept; --> 光标 部门中员工的薪水: select sal from emp where deptno=?? --> 带参数的光标 变量：1. 初始值 2. 如何得到 每个段的人数 count1 number; count2 number; count3 number; 部门的工资总额: salTotal number; 1. select sum(sal) into salTotal from emp where deptno=?? 2. 累加 */ set serveroutput on declare --部门 cursor cdept is select deptno from dept; pdeptno dept.deptno%type; --部门中员工的薪水 cursor cemp(dno number) is select sal from emp where deptno=dno; psal emp.sal%type; --每个段的人数 count1 number; count2 number; count3 number; --部门的工资总额: salTotal number; begin open cdept; loop --取一个部门 fetch cdept into pdeptno; exit when cdept%notfound; --初始化 count1:=0;count2:=0;count3:=0; --得到部门的工资总额 select sum(sal) into salTotal from emp where deptno=pdeptno; --取部门中员工的薪水 open cemp(pdeptno); loop --取一个员工的薪水 fetch cemp into psal; exit when cemp%notfound; --判断薪水的范围 if psal < 3000 then count1:=count1+1; elsif psal>=3000 and psal<6000 then count2:=count2+1; else count3:=count3+1; end if; end loop; close cemp; --保存结果 insert into msg values(pdeptno,count1,count2,count3,nvl(salTotal,0)); end loop; close cdept; commit; dbms_output.put_line('完成'); end; /