PL/SQL程序结构及组成
什么是PL/SQL?
?PL/SQL（Procedure Language/SQL） ?PLSQL是Oracle对sql语言的过程化扩展 ?指在SQL命令语言中增加了过程处理语句（如分支、循环等），使SQL语言具有过程处理能力。
SQL优点
交互式非过程化； 数据操纵功能强； 自动导航语句简单； 调试容易使用方便。
把SQL语言的数据操纵能力与过程语言的数据处理能力结合起来，使得PLSQL面向过程但比过程语言简单、高效、灵活和实用。
常用的结合语言
lPlsql(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列类型一致： ?定义：pjobemp.empjob%type;
示例
?
带参数的光标
?
定义语句：
?
cursor c2(jobc varchar2)
is
select ename,salfrom emp
where job=jobc;
?
执行语句:
?
Open c2(‘clerk’);
?
例外
?
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
或
/* This is a comment */
实例示例
示例1
为员工长工资。从最低工资调起每人长10％，但工资总额不能超过5万元,请计算长工资的人数和长工资后的工资总额，并输出输出长工资人数及工资总额。
可能用到的SQL语句： ?select empno,sal from emp order by sal ; ?select sum(sal) into s_sal from emp;
答案：
/*
为员工长工资。从最低工资调起每人长10％，但工资总额不能超过50万元,
请计算长工资的人数和长工资后的工资总额，并输出输出长工资人数及工资总额。
先写出可能用到的sql语句
select empno,sal from emp order by sal;
select sum(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;
--执行循环