PL/SQL程序结构及组成
什么是PL/SQL?
•PL/SQL（Procedure Language/SQL） •PLSQL是Oracle对sql语言的过程化扩展 •指在SQL命令语言中增加了过程处理语句（如分支、循环等），使SQL语言具有过程处理能力。
SQL优点
交互式非过程化； 数据操纵功能强； 自动导航语句简单； 调试容易使用方便。
把SQL语言的数据操纵能力与过程语言的数据处理能力结合起来，使得PLSQL面向过程但比过程语言简单、高效、灵活和实用。
常用的结合语言
l Plsql (oracle),Transact- sql (SQLserver)
PL/SQL的程序结构
declare
说明部分 （变量说明，光标申明，例外说明〕
begin
语句序列 （DML语句〕…
exception
例外处理语句
End;
/
变量和常量的说明
l说明变量 （char,varchar2, date, number, boolean,long) 基本数据类型变量
1. 基本数据类型
Number 数字型
Int 整数型
Pls_integer 整数型，产生溢出时出现错误
Binary_integer 整数型，表示带符号的整数
Char 定长字符型，最大255个字符
Varchar2 变长字符型，最大2000个字符
Long 变长字符型，最长2GB
Date 日期型
Boolean 布尔型（TRUE、FALSE、NULL三者取一）
在PL/SQL中使用的数据类型和Oracle数据库中使用的数据类型，有的含义是完全一致的，
有的是有不同的含义的。
2. 基本数据类型变量的定义方法
变量名 类型标识符 [not null]:=值;
declare
age number(3):=26; --长度为3，初始值为26
begin
commit;
end;
其中，定义常量的语法格式：
常量名 constant 类型标识符 [not null]:=值;
declare
pi constant number(9):=3.1415926;--为pi的数字型常量，长度为9，初始值为3.1415926
begin
commit;
end;
if语句
三种if语句
1. IF 条件 THEN 语句1;
语句2;
END IF;
2. IF 条件 THEN 语句序列1；
ESLE 语句序列 2；
END IF；
3. IF 条件 THEN 语句;
ELSIF 语句 THEN 语句;
ELSE 语句;
END IF;
小知识：获取从键盘输入的数据
•从键盘输入：
accept num prompt '请输入一个数字';
•得到键盘输入的值：
pnum number := #
循环语句
三种循环语句
1. WHILE total <= 25000 LOOP
.. .
total : = total + salary;
END LOOP;
2. Loop
EXIT [when 条件];
……
End loop
3. FOR I IN 1 . . 3 LOOP
语句序列 ;
END LOOP ;
光标(Cursor)==ResultSet
说明光标语法：
1.定义光标
CURSOR 光标名 [ (参数名 数据类型[,参数名 数据类型]...)]
IS SELECT 语句;
用于存储一个查询返回的多行数据
例如：
cursorc1 is select ename from emp;
2.打开光标： openc1; (打开光标执行查询)
3.取一行光标的值：fetch c1 into pjob;(取一行到变量中)
4.关闭光标： close c1;(关闭游标释放资源)
注意： 上面的 pjob 必须与 emp 表中的 job 列类型一致： • 定义： pjob emp.empjob%type ;
示例
带参数的光标
定义语句：
cursor c2(jobc varchar2)
is
select ename,salfrom emp
where job=jobc;
执行语句:
Open c2(‘clerk’);
Oracle的异常处理
例外
l例外是程序设计语言提供的一种功能，用来增强程序的健壮性和容错性。
系统定义例外
•No_data_found (没有找到数据) •Too_many_rows (select …into语句匹配多个行) •Zero_Divide ( 被零除) •Value_error (算术或转换错误) •Timeout_on_resource (在等待资源时发生超时)
用户定义例外及处理例外
DECLARE
My_job char(10);
v_sal emp.sal%type;
No_data exception;
cursor c1 is select distinct jobfrom emp order by job;
begin
open c1;
Fetch c1 into v_job;
IF c1%notFOUND then raiseno_data;
end if;
…
EXCEPTION
WHEN no_data THEN insert into empvalues(‘fetch语句没有获得数据或数据已经处理完');
END;
在declare节中定义例外 •out_of exception ; 在可行语句中引起例外 •raise out_of ； 在Exception节处理例外 •when Out_of then …
两种赋值语句
利用:=赋值
lvar1:='this is a argument';
lemp_rec.sal:= sal*2 + nvl(comm,0);
lsum_sal:=sum_sal+v_sal;
利用into赋值
lFETCH c1 INTO e_eno , e_sal ;
commit语句
l结束当前事务, 使当前事务所执行的全部修改永久化。
在执行完DML语句之后一定不要忘记在代码后面加上commit来提交！
注释
两种注释格式：
-- This is a comment
或
实例示例
示例1
为员工长工资。从最低工资调起每人长10％，但工资总额不能超过5万元,请计算长工资的人数和长工资后的工资总额，并输出输出长工资人数及工资总额。
可能用到的SQL语句： •select empno,sal from emp order by sal ; •select sum(sal) into s_sal from emp;
答案：
set serveroutput on
declare
cursor c1 is select empno,sal from emp order by sal;
salTotal NUMBER; --记录工资总额
empCount NUMBER := 0; --涨工资的人数
pempno emp.empno% TYPE; --记录员工的编号
psal emp.sal%type; --记录员工的工资
begin
--得到当前总工资
select sum(sal) into salTotal from emp;
--打开游标
open c1;
--执行循环
while salTotal <= 50000
loop
fetch c1 into pempno, psal;--取出一条记录
exit when c1%notfound;
update emp set sal = sal * 1.1 where empno = pempno; --执行加薪
--记录涨工资后的总额
salTotal := salTotal + psal*0.1;
--记录涨工资的人数
empCount := empCount + 1;
end loop;
close c1;
commit;
dbms_output.put_line('涨工资人数:' || empCount || ' 工资总额:' || salTotal);
end;
/
示例2
l用PL/SQL语言编写一程序，实现按部门分段（6000以上、(6000，3000)、3000元以下)统计各工资段的职工人数、以及各部门的工资总额(工资总额中不包括奖金)，参考如下格式：
部门 小于3000数 3000-6000 大于6000 工资总额
10 2 1 0 8750
20 3 2 0 10875
30 6 0 0 9400
l提示：可以创建一张新表用于保存数据
createtable msg1
(deptno number,
emp_num1 number,
emp_num2 number,
emp_num3 number,
sum_salnumber);
declare
--定义两个游标保存结果
cursor c1 is select distinct deptno from dept;
cursor c2(pdno number) is select sal from emp where deptno=pdno;
--定义三个变量用于保存每个部门三个工资段的人数
count1 NUMBER;
count2 number;
count3 number;
--记录c1游标中的部门号
pdeptno dept.deptno% TYPE;
--记录c2游标中的薪水值
psal emp.sal% TYPE;
begin
open c1;--打开c1 获得所有部门号
loop
fetch c1 into pdeptno;--取一个部门号
exit when c1%notfound;
--计数器清零
count1 := 0;
count2 := 0;
count3 := 0;
--得到该部门的所有员工
open c2(pdeptno);
loop
fetch c2 into psal; --得到该员工的工资
exit when c2%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 c2;
--保存该部门的统计结果
insert into salcount values(pdeptno,count1,count2,count3);
commit;
end loop;
close c1;
end;
/