PL/SQL程序设计

一、PL/SQL概述
PL/SQL块结构：
Declare
-- 变量定义部分
Begin
-- 可执行语句
Exception
-- 例外处理：对于程序运行中的错误信息、警告信息的说明
End;
. // 以.号结束程序编写
二、PL/SQL语言的特点（参考PowerPoint教程）
1. PL/SQL中可以定义变量，变量有其作用范围。
2. PL/SQL是以块的方式设计，块中可以嵌套子块，子块可以位于块中任何部分。
3.
x. PL/SQL是以块为单位，SQL语句以语句为单位。
7. 减少对Oracle核心的访问，降低网络负载。
三、PL/SQL与SQL语言(参考PowerPoint教程）
1. PL/SQL语句不能使用DDL语句。
可以使用的SQL语句：Insert, Update, Delete, [select into], commit, rollback, savepoint
...
四、PL/SQL基础
1. 变量的使用
2. 单行注释：--
　 多行注释：/* */
3. 数据类型：
(1)布尔型: Boolean(TRUE, FALSE, NULL）
(2)数字型：NUMBER
INT = INTEGER
(3) 字符型，基本上没有变化
(4) 日期型
(5) 二进制数据：raw, blob
4. 数据定义：
变量名 数据类型
变量名 数据类型:=初始值
5. 变量赋值：变量 := 值;
[*]%TYPE:数据类型匹配
s1 char(20);
s2 s1%TYPE; // 定义s2变量，其类型与s1完全匹配。
v_sal emp.sal%type; // v_sal变量的类型与emp表中的sal字段的数据类型完全匹配，%TYPE最经常使用的方法
[*] %ROWTYPE: 行类型，用于存储数据库基表的一条记录。
定义方法：变量 基表名%rowtype;
例：
SQL> set serveroutput on // 使能屏幕打印函数的输出
Declare // 如果PL/SQL程序中没有定义变量，那么Declare可以省略
v_empno emp.empno%type := &empno;
r emp%rowtype;
Begin
select * into r from emp where empno = v_empno;
dbms_output.put_line('姓名'|| r.ename||'工资'||r.sal||'日期'||r.hiredate);
//　r.字段名：表示某一列的值；dbms_output.putline()是一个屏幕打印函数
End;

[*] 记录类型Record:
record:
Declare
v_empno emp.empno%type := &empno;
// 定义record类型
type r_emp is record(
v1 emp.ename%type,
v2 emp.job%type,
v3 emp.hiredate%type);

r r_emp; -- 定义变量r为record类型r_emp
Begin
select ename, job, hiredate into r from emp where empno = v_empno;
dbms_output.put_line('姓名:'|| r.v1||'职务:'||r.v2||'工作时间:'||r.v3);
End;
[*] Table类型：类似于C语言中的结构类型数组：
定义方法：TYPE [table_emp] is Table of [emp.ename%type] index by binary_integer; // []内为用户可以修改的部分
使用：mytable = table_emp;
mytable(0) := 'SCOTT';
...
例：
Declare
v_empno emp.empno%type := &empno;
type t_emp is table of emp.ename%type index by binary_integer;

t t_emp;
Begin
select ename into t(10) from emp where empno = v_empno;
dbms_output.put_line('编码为'||v_empno||'的员工是'||t(10));
End;
五、条件控制语句：条件判断语句
1. IF-THEN语句：
IF 条件成立 THEN
可执行语句;　
END IF;
Declare
v_empno emp.empno%type :=&empno;
v_ename emp.ename%type;
v_sal emp.sal%type;
Begin
select sal,ename into v_sal,v_ename from emp
where empno=v_empno;
if v_sal<2000 then Begin
update emp set sal=sal+100
where empno=v_empno;
dbms_output.put_line('员工'||v_ename||'工资已经修改!');
End;
End if;
End;

2. IF-THEN-ELSE语句
IF 条件成立 THEN
执行语句1;
ELSE
执行语句2;
END IF;
Declare
v_empno emp.empno%type :=&empno;
v_ename emp.ename%type;
v_sal emp.sal%type;
Begin
select sal,ename into v_sal,v_ename from emp
where empno=v_empno;
if v_sal<2000 then Begin
update emp set sal=sal+100
where empno=v_empno;
dbms_output.put_line('员工'||v_ename||'工资已经修改!');
End;
Else dbms_output.put_line('员工'||v_ename||'的工资已经超过规定值,不予更新!');
End if;
End;

3. IF-THEN-ELSIF语句
IF 条件1成立 THEN 执行语句1;
ELSIF 条件2成立 THEN 执行语句2；
ELSIF 条件3成立 THEN 执行语句3;
...
END IF;

Declare
v_empno emp.empno%type :=&empno;
v_ename emp.ename%type;
v_sal emp.sal%type;
Begin
select sal,ename into v_sal,v_ename from emp
where empno=v_empno;
if v_sal<2000 then Begin
update emp set sal=sal+100
where empno=v_empno;
dbms_output.put_line('员工'||v_ename||'工资已经修改!');
End;
elsif v_sal<2500 then Begin
update emp set sal=sal+50
where empno=v_empno;
dbms_output.put_line('员工'||v_ename||'工资已经修改!');
End;
elsif v_sal<3000 then Begin
update emp set sal=sal+10
where empno=v_empno;
dbms_output.put_line('员工'||v_ename||'工资已经修改!');
End;
else dbms_output.put_line('员工'||v_ename||'的工资已经超过规定值,不予更新!');
End if;
End;

六、循环语句：
1. 基本循环：
LOOP
执行语句；
EXIT WHEN 条件成立；
END LOOP;
例：
Declare
v_deptno emp.deptno%type:=&deptno;
i number(2):=0;
Begin
loop
i := i +1;
insert into emp(empno,hiredate,deptno)
values(i+7200,sysdate,v_deptno);
dbms_output.put_line('i的当前值为:'||i);
exit when i=10;
end loop;
End;
2. WHILE循环:
WHILE 条件成立
LOOP 执行语句；
END LOOP;
Declare
v_deptno emp.deptno%type:=&deptno;
i number(2):=0;
Begin
while i < 10 loop
i := i +1;
insert into emp(empno,hiredate,deptno)
values(i+7200,sysdate,v_deptno);
dbms_output.put_line('i的当前值为:'||i);
-- exit when i=10;
end loop;
End;

3. FOR循环:
FOR 计数器 IN 低界..高界
LOOP 执行语句;
END LOOP;
例：
Declare
v_deptno emp.deptno%type:=&deptno;
i number(2):=0;
Begin
while i < 10 loop
i := i +1;
insert into emp(empno,hiredate,deptno)
values(i+7200,sysdate,v_deptno);
dbms_output.put_line('i的当前值为:'||i);
-- exit when i=10;
end loop;
End;

七、光标设计(Cursor):
1、什么是光标？在PL/SQL中，当查询语句执行结果超过一行时，为处理每一行，必须定义一个cursor，叫光标。

2、光标使用方法：
(1) 定义光标：
语法：光标名 is select 语句;
(2) 打开光标：
语法：open 光标名;
(3) 取数据：
语法：Fetch 光标名 into 变量;
(4) 光标下移：使用loop循环
(5) 关闭光标：close 光标名;
例：
Declare
v1 emp.empno%type;
v2 emp.ename%type;
v3 emp.sal%type;
cursor c is select empno,ename,sal from emp;
Begin
open c;
loop
fetch c into v1,v2,v3;
if v3<3000 then Begin
update emp set sal=sal+100
where empno=v1;
dbms_output.put_line('员工'||v2||'工资已经更新!');
End;
end if;
exit when c%NOTFOUND;
end loop;
close c;
End;
/

-- //要求从emp表中取出按用户输入要求的前几位工资最高的人员及其工资放入topsalary表中：
-- // 我的方法：
SQL>create table topsalary (
name varchar2(20),
sal number(7,2));

SQL>Declare
vcount number(7) := &n;
i number(7) :=0;
vname emp.ename%type;
vsal emp.sal%type;
cursor c is select ename,sal from emp order by nvl(sal,0) desc; --// 使用nvl函数防止工资出现空值的情况，老师补充
Begin
delete topsalary; -- // 先清空topsalary表
open c;

for i in 1 .. vcount loop
fetch c into vname, vsal;

insert into topsalary values(vname,vsal);

end loop;
close c;
End;

--//教师的方法
Declare
i number(3) :=&i;
j number(3) :=0;
cursor c is select ename,sal from emp order by nvl(sal,0) desc;
v1 emp.ename%type;
v2 emp.sal%type;
Begin
open c;
loop
j := j+1;
fetch c into v1,v2;
insert into topsalary values(v1,v2);
exit when j=i;
end loop;
close c;
End;
3. 光标属性: 每一个光标有四种属性
%FOUND 查询语句(FETCH语句)返回记录
%NOTFOUND 查询语句(FETCH语句)无返回记录，用于循环退出条件
%ROWCOUNT FETCH已获取的记录数
%ISOPEN 光标已打开标记
例：
Declare
v1 emp.empno%type;
v2 emp.ename%type;
v3 emp.sal%type;
cursor c is select empno,ename,sal from emp;
Begin
open c;
loop
fetch c into v1,v2,v3;
if v3<3000 then Begin
update emp set sal=sal+100
where empno=v1;
dbms_output.put_line('员工'||v2||'工资已经更新!');
End;
end if;
exit when c%NOTFOUND;
end loop;
dbms_output.put_line('光标处理的行数：'||C%ROWCOUNT);
close c;
End;

4. 隐式光标处理: 隐式光标是指在处理SQL时,不需定义光标，所使用的SQL语句包括：INSERT ,UPDATE,DELETE子句。
隐式光标属性: SQL%FOUND SQL%NOTFOUND SQL%ROWCOUNT
隐式光标的使用:
Declare
v_empno emp.empno%type:=&empno;
Begin
delete from emp where empno=v_empno;
if SQL%NOTFOUND then
dbms_output.put_line('你的删除失败,数据库无此人:'||v_empno);
end if;
End;

[例外处理Exception]
Declare
v_empno emp.empno%type :=&empno;
v_ename emp.ename%type;
v_sal emp.sal%type;
Begin
select sal,ename into v_sal,v_ename from emp
where empno=v_empno;
if v_sal<2000 then Begin
update emp set sal=sal+100
where empno=v_empno;
dbms_output.put_line('员工'||v_ename||'工资已经修改!');
End;
elsif v_sal<2500 then Begin
update emp set sal=sal+50
where empno=v_empno;
dbms_output.put_line('员工'||v_ename||'工资已经修改!');
End;
elsif v_sal<3000 then Begin
update emp set sal=sal+10
where empno=v_empno;
dbms_output.put_line('员工'||v_ename||'工资已经修改!');
End;
else dbms_output.put_line('员工'||v_ename||'的工资已经超过规定值,不予更新!');
End if;
Exception -- // 例外处理
when NO_DATA_FOUND then dbms_output.put_line('数据库中没有编码为'||v_empno||'的员工。');
when TOO_MANY_ROWS then
dbms_output.put_line('你的查询语句返回结果出现多行，请定义光标后重试！');
when OTHERS then
dbms_output.put_line('你的程序是错误的，请仔细检查后重试！');
End;
[用户定义的例外]
(1)在Declare段定义
(2)在Begin段中用Raise引起。
(3)在Exception段中使用。
Declare
v_empno emp.empno%type :=&empno;
no_result exception;
Begin
delete from emp where empno = v_empno;
if SQL%NOTFOUND then raise no_result;
end if;

Exception -- // 例外处理
when NO_DATA_FOUND then dbms_output.put_line('数据库中没有编码为'||v_empno||'的员工。');
when NO_RESULT then dbms_output.put_line('数据库中没有编码为'||v_empno||'的员工。');
when TOO_MANY_ROWS then
dbms_output.put_line('你的查询语句返回结果出现多行，请定义光标后重试！');
when OTHERS then
dbms_output.put_line('你的程序是错误的，请仔细检查后重试！');
End;
[存储过程(Storage Procedure)与函数(Function)设计]
一、什么是存储过程？
存储过程（函数）是把一个PL/SQL块存储到数据库中，作为一个数据库实体，可以在其它存储过程、函数、应用程序中调用。
1、存储过程的调用方法：
(1) 在SQL*Plus中调用方法：SQL> Execute 存储过程名称; // execute 可以简写为Exec。
(2) 在其它存储过程、函数、应用程序中调用方法：存储过程名称;
2、存储过程的设计方法：
编写程序->在SQL*PLUS中编译->修改错误->调用执行。
二、创建存储过程的语法：[参考PowerPoint教程:存储过程1.ppt(P3)]
说明：
IN: 调用者向过程传递参数
OUT: 过程向调用者传递参数
IN OUT: 双向传递参数
无Declare
[例1：]IN: 删除数据
Create or Replace procedure DelEmp(v_empno in emp.empno%type) is
Begin
delete from emp where empno=v_empno;
dbms_output.put_line('编码为'||v_empno||'的员工已被除名！');
End DelEmp;
调用方法：
SQL> Exec DelEmp(7788);
SQL> Exec DelEmp(7934);

[例2：]IN: 插入数据
Create or Replace procedure InsertEmp( v_empno in emp.empno%type,
v_ename in emp.ename%type,
v_deptno in emp.deptno%type) is
Begin
insert into emp(empno, ename, hiredate,deptno)
values(v_empno, v_ename, sysdate, v_deptno);
dbms_output.put_line('新员工“'||v_ename||'”录入成功！');
End InsertEmp;
[例3：]IN、OUT:数据查询
Create or Replace procedure QueryEmp(v_empno in emp.empno%type,
v_ename out emp.ename%type,
v_job out emp.job%type) is
Begin
select ename,job into v_ename,v_job from emp
where empno=v_empno;
End QueryEmp;
调用方法：
Declare
v1 emp.ename%type;
v2 emp.job%type;
v emp.empno%type:=&empno;
Begin
QueryEmp(v,v1,v2);
dbms_output.put_line('编码为'||v||'的员工姓名是：'||v1||'职业是：'||v2);
End;

[* 查询存储过程源代码：]
SQL> select text from user_source where name = 'DELEMP'; // 名字要大写

三、创建函数语法：
例1：
Create or replace Function GetSalary( v empno%type) return numbwr is
v_sal emp.sal%type;
Begin
select sal into v_sal from emp
where empno=v;
return v_sal;
End GetSalary;

[调用方法：]
(1) SQL> Exec dbms_output.put_line(GetSalary(7788));
(2) SQL> select GetSalary(7788) from dual;
(3) 使用PL/SQL的方法：
Begin
dbms_output.put_line(GetSalary(7788));
End;
[函数例2]
Create or replace function getmaxsal
return number
is
v_maxsal emp.sal%type;
begin
select max(sal) into v_maxsal from emp;
return v_maxsal;
end getmaxsal;

[调用方法：]
(1) SQL> Exec dbms_output.put_line(GetMaxSal);
(2) SQL> select GetMaxSal from dual;
(3) 使用PL/SQL的方法：
Begin
dbms_output.put_line(GetMaxSal);
End;

[练习题]: 求n!函数（n的阶乘)。
[我的答案]
Create or replace function nj(n in number)
return number
is
numtmp number;
Begin
if n = 0 then
numtmp := 1;
else
numtmp := n * nj(n - 1);
end if;

return numtmp;
End nj;

[教师的答案]// 高，　实在是高！！！
Create or replace function fn(n in number)
return number
is
Begin
if n=0 then return 1;
else return n*fn(n-1);
end if;
End fn;
四、存储过程及函数管理：
1、查询存储过程及函数的源代码：
SQL> select * from user_source;
SQL> select * from dba_source;
SQL> select * form all_source;
2、存储过程及函数的权限管理：
授权命令：
SQL> grant execute on 过程（或函数） to 用户名;
SQL> grant execute on 过程（或函数） to public; --//授权给全体用户
权限回收：
SQL> Revoke execute on 过程（或函数） from 用户名;
SQL> Revoke execute on 过程（或函数） from public;
3、查询错误信息：
SQL> select * from user_errors;
SQL> show errors;
4、查询依赖性信息：
依赖性：实体的结构定义修改时，对创建在这些实体上的存储过程及函数的影响叫依赖性。
显示依赖性关系：
SQL> select name,type, referenced_owner, referenced_name, referenced_type from user_dependencies;
5、删除存储过程及函数：
SQL> drop procedure 过程名;
SQL> drop function 函数名;

[包(Package)的设计与开发]
一、什么是包？
把一些相关的存储过程、函数、变量、光标、例外等组合在一起形成的对象叫包。包由包的说明部分及包体两部分组成。定义在包说明部分的是公共元素，定义在包体的部分是私有元素。
二、使用包的优点：
1、规范化程序设计
2、方便过程及函数的组织
3、便于管理：包的授权只需一次完成
4、优化系统性能：整个包作为一个整体一次调入内存。

三、包的开发步骤：
1、创建包的说明部分：Create package
2、创建包体部分：Create package body
3、在SQL*Plus中运行创建包
4、在存储过程、其它应用中调用。
在SQL*Plus中调用方法：SQL> exec 包名.过程名;
在存储过程、函数、其它应用中调用方法：包名.过程名;
四、创建包的语法：
1、创建包（说明部分)：请参考PowerPoint教程：存储过程1.ppt[Page10]
2、创建包体(Create Package Body): 请参考PowerPoint教程：存储过程1.ppt[Page11]
3、例：请参考PowerPoint教程：存储过程1.ppt[Page12、13、14、15]
五、包的删除：
SQL> drop package 包名;
SQL> drop package body 包名;
查询包源代码：
SQL> select text from user_source where name = '包名'; // 包名大写。

[数据库触发器(Triggers)设计与开发]
一、　什么是触发器？
数据库触发器是一个存储的PL/SQL程序块，它与一个基表联系，当在表上执行特定的数据库维护（插入、删除、更新这三种操作）时，隐含地执行一个PL/SQL程序块。
二、触发器的作用：
。防止非法的数据库操纵、维护数据库安全
。对数据库的操作进行审计，存储历史数据
。完成数据库初始化处理
。控制数据库的数据完整性
。进行相关数据的修改
。完成数据复制
。自动完成数据库统计计算
。限制数据库操作的时间、权限等，控制实体的安全性

三、触发器的组成：
1、触发时间：触发器事件的时间次序（before, afer)[2]
2、触发事件：什么SQL语句会引起触发器触发(Insert, delete, update)[3]
3、触发子体：触发器触发时要执行的操作(一个完整的PL/SQL程序)
4、触发类型：触发器被执行的次数(语句级、行级）[2] //语句级只执行一次，行级会执行多次。
[*]一个表上最多可以创建12个不同类型的触发器：3*2*2 = 12
四、创建触发器注意事项：
1、在触发器中可以调用存储过程、包；在存储过程中不得调用触发器。
2、在触发器中不得使用commit, rollback, savepoint语句。
3、在触发器中不得间接调用含有commit, rollback, savepoint的语句的存储过程及函数。
五、创建语句级触发器：
语句级触发器： 请参考PowerPoint教程：存储过程1.ppt[Page19]　该触发器在数据库操作时只执行一次。
说明：
。update中的of是可选项，用于指定语句要修改的列
。要创建的触发器已经存在时，使用replace选项
//例1：before型触发器：
Create or replace trigger DelEmp
before delete on emp
Begin
if (To_Char(sysdate,'dy') in ('星期六','星期日') or
To_number(To_Char(sysdate,'hh24')) not between 8 and 18)
then dbms_output.put_line('现在是非工作时间,请退出!!!');
end if;
End;
[触发器数据字典]
SQL> select table_owner, table_name,trigger_body from user_triggers where trigger_name='DELEMP';
//例2：After型触发器：
Create or replace trigger InsertEmp
after insert on emp // 如果是before，就会比after的结果少一名。
Declare
v_empcount number(7);
Begin
select count(*) into v_empcount from emp;
dbms_output.put_line('目前员工总数已达到：'|| v_empcount|| '名。');
End;

//例3：多个触发条件
Create or replace trigger ChangeEmp
before delete or insert or update on emp
Begin
if (To_Char(sysdate,'dy') in ('星期六','星期日') or
To_number(To_Char(sysdate,'hh24')) not between 8 and 18)
then dbms_output.put_line('现在是非工作时间,请不要修改数据!!!');
end if;
End;
// 更完善的写法：
Create or replace trigger ChangeEmp
before delete or insert or update on emp
Begin
if (DELETING and (To_Char(sysdate,'dy') in ('星期六','星期日') or
To_number(To_Char(sysdate,'hh24')) not between 8 and 18))
then dbms_output.put_line('现在是非工作时间,不要删除数据！');
elsif (UPDATING and (To_Char(sysdate,'dy') in ('星期六','星期日') or
To_number(To_Char(sysdate,'hh24')) not between 8 and 18))
then dbms_output.put_line('现在是非工作时间,不要更新数据！');
elsif (INSERTING and (To_Char(sysdate,'dy') in ('星期六','星期日') or
To_number(To_Char(sysdate,'hh24')) not between 8 and 18))
then dbms_output.put_line('现在是非工作时间,不要插入数据！');
end if;
End;
六、创建行级触发器：
等级触发器：增加选项for each row, 使触发器在每一行上触发。
1、创建行级触发器注意事项：
(1) 在行级触发器中，在列名前增加old表示该列修改前值，增加new表示该列修改后值。
(2) 在PL/SQL中引用时，前边增加冒号。

[例4: 行级触发器] //必须是对所有的行进行操作才行。
Create or Replace trigger UpdateEmp
Before update on emp
for each row
Begin
dbms_output.put_line(:old.sal||'--------->'||:new.sal);
End;
[例5：保存历史数据，这种使用方法很重要，用来保存关键表的历史数据]
CReate or Replace trigger ChangeEmp
Before update or delete on emp
for each row
Begin
Insert into oldemp(empno, ename,job,hiredate,sal)
values(:old.empno,:old.ename,:old.job,sysdate,:old.sal);
End;
SQL> create table oldemp
as select empno, ename,job,hiredate,sal from emp where 1>2;
[例6：修改外键]
Create or Replace trigger UpdateDept
after update on dept
for each row
Begin
update emp
set emp.deptno = :new.deptno
where emp.deptno = :o(冒号和字母o)ld.deptno;
End;
[例7：删除外键、删除相关数据]
Create or Replace trigger DeleteDept
before delete on dept
for each row
Begin
delete from emp where deptno = :o(冒号和字母o)ld.empno;
End;
七、触发器管理
1、使触发器失效：
SQL> alter trigger 触发器名称 disable; // 失效
SQL> Alter Trigger 触发器名称 enable; // 生效
SQL> Alter table 表名 DISABLE all triggers; // 一个表上的所有触发器失效
SQL> Alter table 表名 ENABLE all triggers; // 使一个表上的所有触发器生效
SQL> Drop Trigger 触发器名; // 删除触发器;