SQL/Oracle——第六章 PL/SQL函数(作业3）
第6章：PL/SQL块
--6-19
begin
p3(var_job=>'SALESMAN',i,j,k);
end;
/
declare
cursor cur_emp(var_job in varchar2:='SALESMAN') is select empno,ename,sal from emp where job=var_job;
type record_emp is record
(
x emp.empno%type,
y emp.ename%type,
z emp.sal%type
);
emp_row record_emp;
begin
open cur_emp('MANAGER');
fetch cur_emp into emp_row;
while cur_emp%found loop
dbms_output.put_line(emp_row.x||emp_row.y||emp_row.z);
fetch cur_emp into emp_row;
end loop;
close cur_emp;
end;
/
完整结构:
[declare
变量，常量]
begin
执行部分
[exception
异常处理]
end;
/
简写形式:
begin
执行部分
...
end;
/
6.2变量与常量：
1.变量与常量定义必须在declare中。
合法标识：
必须以字母开头，长度不能超过30个字符。
标识符中不能包含减号“-”和空格。
Oracle标识符不区分大小写。
标识符不能是SQL保留字。
例题：
v_name varchar2(20) --对
2010_name varchar2(20) --错
v-name varchar2(20) --错
v name varchar2(20) --错
user varchar2(20) --错
2.基本数据类型
1）数值类型：
例题：
declar
num_mo number(5,2); --小数位2位，整数位3位
2）字符类型：
char
varchar2
例题：
declare
str varchar2(20);
begin
str:='hello,everyone';
dbms_output.put_line(str);
end;
/
3)日期类型：
declare
d1 date:= sysdate;
d2 date:='10-5月-2018';
或者d2 date:=to_date('10-5月-2018');
4)布尔类型boolean：取值true、false、null
实际使用：
3.变量与常量声明注意事项：
例题：
declare
v_ename varchar2(20);
v_sal number(6,2);
c_tax_rate constant number(3,2):=5.5; --声明常量时，必须为它赋初始值，并且数值不能改
v_hiredate date;
v_valid boolean not null default false;
begin
null; --begin与end之间至少有一条语句
end;
/
6.2.2特殊数据类型
1.%type类型
a)用基本数据类型：
declare
x varchar2(10);
y varchar2(9);
begin
select ename,job into x,y from emp where empno=7369;
sys.dbms_output.put_line(x||'的工作为'||y);
end;
/
b)%type类型
比如在system账户下：
declare
x scott.emp.ename%type;
y scott.emp.job%type;
begin
select ename,job into x,y from scott.emp where empno=7369;
sys.dbms_output.put_line(x||'的工作为'||y);
end;
/
比如在scott账户下：
declare
x emp.ename%type;
y emp.job%type;
begin
select ename,job into x,y from emp where empno=7369;
dbms_output.put_line(x||'的工作为'||y);
end;
/
2.record类型
a)用%type类型
declare
x emp.ename%type;
y emp.job%type;
z emp.sal%type;
begin
select ename,job,sal into x,y,z from emp where empno=7369;
dbms_output.put_line(x||y||z);
end;
/
b)用record类型
declare
type e_r is record
(
x emp.ename%type,
y emp.job%type,
z emp.sal%type
);
e e_r;
begin
select ename,job,sal into e from emp where empno=7369;
dbms_output.put_line(e.x||e.y||e.z);
end;
/
或者：
declare
type e_r is record
(
x varchar2(10),
y varchar2(9),
z number(7,2)
);
e e_r;
begin
select ename,job,sal into e from emp where empno=7369;
dbms_output.put_line(e.x||e.y||e.z);
end;
/
补充：&的用法
declare
x emp.ename%type;
y emp.job%type;
z emp.sal%type;
begin
select ename,job,sal into x,y,z from emp where empno=&员工编号;
dbms_output.put_line(x||y||z);
end;
/
或者：
declare
x emp.ename%type;
y emp.job%type;
z emp.sal%type;
m emp.empno%type;
begin
m:=&员工编号;
select ename,job,sal into x,y,z from emp where empno=m;
dbms_output.put_line(x||y||z);
end;
/
3.%rowtype类型
declare
e emp%rowtype;
begin
select * into e from emp where empno=7369;
dbms_output.put_line(e.ename||e.sal||e.job);
end;
/
6.3流程控制语句
6.3.1选择语句
if语句:
1)单分支
if 条件 then
语句序列;
end if;
2)双分支
if 条件 then
语句序列1;
else
语句序列2;
end if;
3)多分支
if 条件1 then
语句序列1;
elsif 条件2 then
语句序列2;
elsif 条件3then
语句序列3;
...
else
语句序列n;
end if;
case语句:
1）等值比较
case 变量
when 值1 then
语句序列1
when 值2 then
语句序列2
......
when 值n then
语句序列n
else
语句序列n+1
end case;
或者:
case
when 变量=值1 then
语句序列1;
when 变量=值2 then
语句序列2;
......
when 变量=值n then
语句序列n;
else
语句序列n+1;
end case;
例如:
begin
case
when season=1 then
...
when season=2 then
...
......
课本例6-14:
declare
season int:=&季度;
--定义整形变量并赋值
aboutInfo varchar2(50); --存储月份信息
begin
case season --判断季度
when 1 then --若是1季度
aboutInfo := season||'季度包括1，2，3月份';
when 2 then --若是2季度
aboutInfo := season||'季度包括4，5，6月份';
when 3 then --若是3季度
aboutInfo := season||'季度包括7，8，9月份';
when 4 then --若是4季度
aboutInfo := season||'季度包括10，11，12月份';
else --若季度不合法
aboutInfo := season||'季度不合法';
end case;
dbms_output.put_line(aboutinfo); --输出该季度所包含的月份信息
end;
/
2）不等值比较
case
when 不等值表达式1 then
语句序列1
when 不等值表达式2 then
语句序列2
......
when 不等值表达式n then
语句序列n
else
语句序列n+1
end case;
例如:
declare
定义t;
case
when t<5 then
语句序列1;
when t<10 then
语句序列2;
when t<20 then
语句序列3;
......
when t<50 then
语句序列n;
else
语句序列n+1;
end case;
根据员工的工资，修改emp表中的奖金值。工资小于1000元,奖金为100元;工资小于2000元,奖金为80元;工资小于6000元,奖金为50元;其他情况,奖金为30元。（case）
declare
v_sal scott.emp.sal%type;
v_ename scott.emp.ename%type;
v_empno scott.emp.empno%type;
begin
select ename,sal,empno into v_ename,v_sal,v_empno from scott.emp where empno=&no;
case
when v_sal<1000 then
update scott.emp set comm=100 where empno=v_empno;
when v_sal<2000 then
update scott.emp set comm=80 where empno=v_empno;
when v_sal<6000 then
update scott.emp set comm=50 where empno=v_empno;
else
update scott.emp set comm=30 where empno=v_empno;
end case;
end;
/
6.3.2循环语句
1）loop
loop
语句序列;
exit when 条件;
end loop;
--无论条件是否满足，循环体至少执行一次，当when 条件为true，循环结束;条件为false,循环执行。
2) while
while 条件 loop
语句序列;
end loop;
--当条件为true，循环语句执行,条件为false,退出循环。
3) for
for 循环变量 in [reverse] a..b loop
语句序列;
end loop;
说明：例如
for i in 1..100 loop --则i初始值为1，每次加1，变到100
for i in reverse 1..100 loop --则i初始值为100，每次减1，变到1
6.4游标
显示游标、隐式游标
6.4.1 显示游标
declare
声明游标c1
begin
打开游标 有参数的游标：open c1(参数);/ 无参数的游标：或者open c1;或者open c1(); 指针指向第一条记录
读取游标 fetch c1 into 变量； fetch c1 into aa;(aa定义为record类型)（例题6-19）/ fetch c1 into x,y,z;(变量列表)(例题6-20)
关闭游标 close c1
end;
/
定义游标示例：
不带参数的游标：
declare
cursor c1 is select empno,ename,sal from emp where job='CLERK';
带参数的游标：
declare
cursor c1(vj in varchar2:='SALESMAN') is select empno,ename,sal from emp where job=vj;
例题6-19：
不用循环：
declare
cursor cur_emp(var_job in varchar2:='SALESMAN') is select empno,ename,sal from emp where job=var_job;
type record_emp is record
(
x emp.empno%type,
y emp.ename%type,
z emp.sal%type
);
emp_row record_emp;
begin
open cur_emp('MANAGER');
fetch cur_emp into emp_row;
dbms_output.put_line(emp_row.x||emp_row.y||emp_row.z);
fetch cur_emp into emp_row;
dbms_output.put_line(emp_row.x||emp_row.y||emp_row.z);
fetch cur_emp into emp_row;
dbms_output.put_line(emp_row.x||emp_row.y||emp_row.z);
end;
/
使用while循环：
declare
cursor cur_emp(var_job in varchar2:='SALESMAN') is select empno,ename,sal from emp where job=var_job;
type record_emp is record
(
x emp.empno%type,
y emp.ename%type,
z emp.sal%type
);
emp_row record_emp;
begin
open cur_emp('MANAGER');
fetch cur_emp into emp_row;
while cur_emp%found loop
dbms_output.put_line(emp_row.x||emp_row.y||emp_row.z);
fetch cur_emp into emp_row;
end loop;
close cur_emp;
end;
/
例题6-20
declare
cursor cur_emp is select ename,job from emp where empno=7566;
a emp.ename%type;
b emp.job%type;
begin
open cur_emp;
fetch cur_emp into a,b;
dbms_output.put_line(a||' '||b);
close cur_emp;
end;
/
例题6-20【修改】
declare
cursor cur_emp is select ename,job from emp;
a emp.ename%type;
b emp.job%type;
begin
open cur_emp;
fetch cur_emp into a,b;
while cur_emp%found loop
dbms_output.put_line(a||' '||b);
fetch cur_emp into a,b;
end loop;
close cur_emp;
end;
/
例题6-19【修改】
declare
cursor c1(var_job in varchar2:='SALESMAN')
is select empno,ename,sal from emp where job=var_job;
a emp.empno%type;
b emp.ename%type;
c emp.sal%type;
begin
open c1('MANAGER');
fetch c1 into a,b,c;
while c1%found loop
dbms_output.put_line(a||' '||b||' '||c);
fetch c1 into a,b,c;
end loop;
close c1;
end;
/
改成输入参数名：
declare
cursor cur_emp(var_job varchar2:='&job名') is select empno,ename,job from emp where var_job = job;
empno emp.empno%type;
ename emp.ename%type;
job emp.job%type;
begin
open cur_emp;
fetch cur_emp into empno,ename,job;
while cur_emp%found loop
dbms_output.put_line(ename||empno||job);
fetch cur_emp into empno,ename,job;
end loop;
close cur_emp;
end;
/
6.4.4 for循环的游标
在游标的for循环之前，游标自动打开与关闭；每一次循环，fetch语句自动执行一次，将游标指向的当前记录存入循环变量中。
隐式游标：例题6-22
begin
for e_r in (select empno,ename,sal from emp where job='SALESMAN') loop
dbms_output.put(e_r.empno);
dbms_output.put(e_r.ename);
dbms_output.put_line(e_r.sal);
end loop;
end;
/
或者
begin
for i in (select empno,ename,sal from emp where job='SALESMAN') loop
dbms_output.put_line(i.empno||i.ename||i.sal);
end loop;
end;
/
declare
cursor c2 is select * from emp where job='SALESMAN';
begin
for i in c2 loop
dbms_output.put_line(i.empno||i.ename||i.sal);
end loop;
end;
/
显式游标：例题6-23
declare
cursor cur_emp is select empno,ename,sal from emp where job='SALESMAN';
begin
for e_r in cur_emp loop
dbms_output.put(e_r.empno);
dbms_output.put(e_r.ename);
dbms_output.put_line(e_r.sal);
end loop;
end;
/
6.4.3隐式游标
用于增删改（update,delete,insert）语句
例题6-21
begin
update emp set sal=sal*1.2 where job='SALESMAN';
dbms_output.put_line(sql%rowcount);
end;
/
begin
update emp set sal=sal*1.2 where job='SALESMAN';
if sql%notfound then
dbms_output.put_line('无需涨工资');
else
dbms_output.put_line(sql%rowcount);
end if;
end;
/
【补充】
loop循环的游标
输出10号部门的员工的姓名与工资。
方法1：变量列表
declare
cursor emp_c is select ename,sal from emp where deptno=10;
x emp.ename%type;
y emp.sal%type;
begin
open emp_c;
loop
fetch emp_c into x,y;
exit when emp_c%notfound;
dbms_output.put_line(x||y);
end loop;
dbms_output.put_line(emp_c%rowcount);
close emp_c;
end;
/
方法2：record记录类型
declare
cursor emp_c is select ename,sal from emp where deptno=10;
type m_r is record
(x emp.ename%type,
y emp.sal%type);
m m_r;
begin
open emp_c;
loop
fetch emp_c into m;
exit when emp_c%notfound;
dbms_output.put_line(m.x||m.y);
end loop;
dbms_output.put_line(emp_c%rowcount);
close emp_c;
end;
/
方法3：%rowtype(record记录类型的简化形式，无需定义结构体)
declare
cursor emp_c is select ename,sal from emp where deptno=10;
e_r emp%rowtype;
begin
open emp_c;
loop
fetch emp_c into e_r.ename,e_r.sal;
exit when emp_c%notfound;
dbms_output.put_line(e_r.ename||e_r.sal);
end loop;
dbms_output.put_line(emp_c%rowcount);
close emp_c;
end;
/
方法3变形
declare
cursor emp_c is select * from emp where deptno=10;
e_r emp%rowtype;
begin
open emp_c;
loop
fetch emp_c into e_r; --可只写e_r变量，但是查询需变成select * from emp where deptno=10;
exit when emp_c%notfound;
dbms_output.put_line(e_r.ename||e_r.sal);
end loop;
dbms_output.put_line(emp_c%rowcount);
close emp_c;
end;
/
【游标%rowtype,当作数据类型】
1）课本P131，实验题
做法一：
declare
cursor c_e is select * from emp where sal<(select sal from emp where empno=7698);
begin
for r in c_e loop
dbms_output.put_line(r.ename||r.sal);
end loop;
end;
/
做法二：
declare
cursor c_e is select * from emp where sal<(select sal from emp where empno=7698);
r c_e%rowtype;
begin
for r in c_e loop
dbms_output.put_line(r.ename||r.sal);
end loop;
end;
/
2）例题：利用游标从emp表中获取前两行记录，输出ename、job、sal
declare
cursor c1 is select * from emp;
m emp%rowtype;
begin
open c1;
fetch c1 into m;
dbms_output.put_line(m.ename||m.sal);
fetch c1 into m;
dbms_output.put_line(m.ename||m.sal);
end;
/
变化：
declare
cursor c1 is select * from emp;
m c1%rowtype;
begin
open c1;
fetch c1 into m;
dbms_output.put_line(m.ename||m.sal);
fetch c1 into m;
dbms_output.put_line(m.ename||m.sal);
end;
/
1. 编写一个PL/SQL程序块,从emp表中显示名为“SMITH”的雇员的薪水和职位。
--做法一：用记录
declare
type emp_type is record --声明记录类型为emp_type
(
var_ename varchar2(20),
var_sal number,
var_job varchar2(20)
);
empinfo emp_type; --定义变量
begin
select ename,sal,job
into empinfo
from emp
where ename='SMITH';
dbms_output.put_line(empinfo.var_ename||'的职务是'||empinfo.var_job||'薪水为'||empinfo.var_sal);
end;
/
--做法二：直接定义
declare
var_ename varchar2(20);--定义变量
var_sal number; --每一个都是分号
var_job varchar2(20);
begin
select ename,sal,job
into var_ename,var_sal,var_job
from emp
where ename='SMITH';
dbms_output.put_line(var_ename||'的职务是'||var_job||'薪水为'||var_sal);
end;
/
--做法三：用%type定义
declare
var_ename emp.ename%type;--定义变量
var_sal emp.sal%type; --每一个都是分号
var_job emp.job%type;
begin
select ename,sal,job
into var_ename,var_sal,var_job
from emp
where ename='SMITH';
dbms_output.put_line(var_ename||'的职务是'||var_job||'薪水为'||var_sal);
end;
/
--做法四：用%rowtype
declare
rowVar_emp emp%rowtype;
begin
select * into rowVar_emp
from emp
where ename='SMITH';
dbms_output.put_line(rowVar_emp.ename||'的职务是'||rowVar_emp.job||'薪水为'||rowVar_emp.sal);
end;
/
2. 编写一个PL/SQL程序块，接受用户任意输入一个部门号（提示：接受用户任意输入，需要使用 ‘&’），从dept表中显示该部门的名称与所在位置。
declare
sdname varchar2(20);
sloc varchar2(30);
sdeptno number:='&deptno';
begin
select dname,loc into sdname,sloc from dept where deptno=sdeptno;
dbms_output.put_line('部门名称'||sdname||'所在位置'||sloc);
end;
/
3. 编写一个PL/SQL程序块，注意使用%type属性定义变量，接受用户任意输入一个雇员号，从emp表中显示该雇员的整体薪水(即，工资sal加上奖金comm)。
declare
var_Sal emp.sal%type;
var_Comm emp.comm%type;
var_empno number:='&雇员号';
begin
select sal,nvl(comm,0)--nvl来去掉空值
into var_Sal,var_Comm
from emp
where empno=var_empno;
dbms_output.put_line('整体工资'||(var_Sal+var_Comm));
end;
/
4. 某公司要根据雇员的职位来加薪，公司决定按下列加薪结构处理：
职位 增长工资
------------ -----------
Clerk 500
Salesman 1000
Analyst 1500
Otherwise 2000
编写一个PL/SQL程序块, 接受用户任意输入一个雇员号，从emp表中实现上述加薪处理。（提示：使用多分支）
declare
num_empno number:='&雇员号';
var_job emp.job%type;
begin
select job into var_job from emp where empno = num_empno;
case var_job
when 'CLERK' then
update emp set sal=sal+500 where empno=num_empno;
when 'SALESMAN' then
update emp set sal=sal+1000 where empno=num_empno;
when 'ANALYST' then
update emp set sal=sal+1500 where empno=num_empno;
else
update emp set sal=sal+2000 where empno=num_empno;
end case;
end;
/
5. 编写一个PL/SQL程序块，利用显式游标，将emp表中雇员名字全部显示出来（要求：使用for循环）。
declare
corsor c1 is select ename from emp;
var_ename ename%type;
begin
open c1;
fetch c1 into var_ename;
for i in c1;
loop
dbms_output.put_line('雇员名字;'||var_name);
end loop;
end;
/
6. 编写PL/SQL程序块，通过使用显式游标，来显示dept表中的部门名称。（要求：使用while循环）
declare
cursor c1 is select dname from dept;
var_dname varchar2(20);
begin
open c1;
fetch c1 into var_dname;
while c1%found loop
dbms_output.put_line(var_dname);
fetch c1 into var_dname;
end loop;
close c1;
end;
/
7. 编写PL/SQL程序块，利用隐式游标，使用For循环，从emp表中查询该部门号为10的所有雇员的姓名，工作和工资。
begin
for emp_record in (select ename,job,sal from emp where deptno=10)
loop
dbms_output.put_line(emp_record.ename||'的工作是：'||emp_record.job||'，工资是'||emp_record.sal);
end loop;
end;
/
8. 模仿课本P122的例题6-19，练习带参数的游标。要求将部门号作为参数，初始值为10号部门。使用游标时，部门号是由用户随意输入（提示：随意输入，需要使用 ‘&’）。要求显示出用户任意输入的部门号的所有雇员的姓名，工作和工资。
（要求：使用while循环）
declare
cursor c1 (num_deptno in number:=10)
is select ename,job,sal from emp where deptno=num_deptno;
type record_emp is record --声明记录格式
(
/定义当前记录的成员变量/
a emp.ename%type,
b emp.job%type,
c emp.sal%type
);
emp_row record_emp;–记录变量
begin
open c1(&部门编号);
fetch c1 into emp_row;
while c1%found loop
dbms_output.put_line(emp_row.a||‘的工作是：’||emp_row.b||’,工资是’||emp_row.c);
fetch c1 into emp_row;
end loop;
close c1;
end;
/
9. 模仿课本P122的例题6-19，练习带参数的游标。要求将部门号作为参数，无初始值。部门号可由用户随意输入。要求显示出用户任意输入的部门号的所有雇员的姓名，工作和工资。
（要求：使用for循环）
declare
cursor c1 (num_deptno in number:=&部门编号)
is select ename,job,sal from emp where deptno=num_deptno;
begin
for emp_row in c1 --遍历信息
loop
dbms_output.put_line(emp_row.ename||'的工作是：'||emp_row.job||',工资是'||emp_row.sal);
end loop;
end;
/
10. 编写一个PL/SQL程序块，利用游标（显式或隐式游标），从emp表中对名字以“A”或“S”开头的所有雇员，按他们基本工资的10%给他们加薪。（提示：在循环中使用update更新）
--方法一
declare
cursor c1 is select ename from emp where ename like 'A%' or ename like 'S%';
var_ename emp.ename%type; --声明记录格式
begin
open c1;
fetch c1 into var_ename;
while c1%found loop
update emp set sal=sal*(1+0.1) where ename=var_ename;
fetch c1 into var_ename;
end loop;
close c1;
end;
/
--方法二
declare
cursor c is select ename from emp;
x emp.ename%type;
begin
open c;
fetch c into x;
while c%found loop
update emp set sal=sal*(1+0.1) where ename like 'A%' or ename like 'S%';--where 可以放在后
fetch c into x;
end loop;
close c;
end;
/
--方法三
declare
cursor cur_emp is select * from emp where ename like 'A%' or ename like 'S%';
begin
for c in cur_emp --for循环
loop
update emp set sal=sal*1.1 where ename=c.ename;
end loop;
end;
/
11. 编写一个PL/SQL程序块，利用游标（显式或隐式游标），在emp表中，所有雇员按他们基本工资的10%给他们加薪，但是只给加薪后的工资小于5000的雇员涨工资。
declare
cursor c1 is select ename,sal from emp;
type record_emp is record
(
var_ename emp.ename%type,
num_sal emp.sal%type
);
emp_row record_emp;
begin
open c1;
fetch c1 into emp_row;
while c1%found loop
if emp_row.num_sal*(1+0.1)<5000 then
update emp set sal=sal*(1+0.1) where ename=emp_row.var_ename;
end if;
fetch c1 into emp_row;
end loop;
close c1;
end;
/
练习
--创建函数
--自己
create or replace function f1(num_deptno number) return number is
begin
select avg(sal) into num_avg_pay from emp where deptno=num_deptno; --某个部门的平均工资
return(round(num_avg_pay,2)); --返回平均工资
end;
/
--老师
create or replace function f3(num_d in number) return number is
x number;
begin
select avg(sal) into x from emp where deptno=num_d;
return x;
end;
/
--调用函数：
declare
y number;
begin
y:=f3(10);
dbms_output.put_line(y);
end;
/
begin
dbms_output.put_line(f3(10));
end;
/
函数：员工编号7369，查询ename,sal，在调用函数中输出结果
--创建函数：
create or replace function f1 return date is
a date;
begin
select ename,sal into a from emp where empno=7369;
return a;
end;
/
set serveroutput on;
--调用函数：
declare
x varchar(2);
y varchar(2);
begin
x:=f1(a);
y:=f1(b);
dbms_output.put_line(x||y);
end;
/
declare
var_ename varchar2(50);
var_job varchar2(50);
cursor c1 is select ename,job from emp where empno = 7566;
begin
open c1;
fetch c1 into var_ename,var_job;
dbms_output.put_line('编号是7566的雇员名称为:'||var_ename||'职务是'||var_job);
close c1;--关闭
end;
/
--变量列表
declare
var_ename varchar2(50);
var_job varchar2(50);
cursor c1 is select ename,job from emp;
begin
open c1;
fetch c1 into var_ename,var_job;
while c1%found loop
dbms_output.put_line(var_ename||':'||var_job);
fetch c1 into var_ename,var_job;
end loop;
close c1;
end;
/