1、定义基本变量：
2、引用型的变量：
set serveroutput on
declare
pename emp.ename%type;
psal emp.sal%type;
begin
select ename,sal into pename,psal from emp where empno='7521';
dbms_output.put_line(pename||'的薪水是'||psal);
end;
/
3、记录型变量：
set serveroutput on
declare
emp_rec emp%rowtype;
begin
select * into emp_rec from emp where empno='7698';
dbms_output.put_line(emp_rec.ename||'的薪水是'||emp_rec.sal);
end;
/
4、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');
elsif pnum=2 then dbms_output.put_line('你输入的是2');
else dbms_output.put_line('其他');
end if;
end;
/
5、while循环：
set serveroutput on
declare
pnum number := 1;
begin
while pnum <= 10 loop
dbms_output.put_line(pnum);
pnum := pnum + 1;
end loop;
end;
/
6、loop循环
set serveroutput on
declare
pnum number:=1;
begin
loop
exit when pnum>10;
dbms_output.put_line(pnum);
pnum:=pnum+1;
end loop;
end;
/
7、for循环
set serveroutput on
declare
pnum number:=1;
begin
for pnum in 1..10 loop
dbms_output.put_line(pnum);
end loop;
end;
/
（推荐使用loop循环）
8、光标的使用
--查询并打印员工的姓名和薪水
set serveroutput on
/*
光标的属性
%found:光标找到记录 %notfound：光标找不到记录
*/
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;
dbms_output.put_line(pename||'的薪水是'||psal);
end loop;
--关闭光标
close cemp;
end;
/
9、实例---给员工涨工资：
set serveroutput on
declare
cursor cemp is select empno,perjob from emp;
pempno emp.empno%type;
pjob emp.perjob%type;
begin
open cemp;
loop
fetch cemp into pempno,pjob;
exit when cemp %notfound;
if pjob='PRESIDENT' then update emp set sal=sal+1500 where empno=pempno;
elsif pjob='ANALYST' then update emp set sal = sal+1000 where empno=pempno;
elsif pjob='SALESMAN' then update emp set sal = sal+500 where empno=pempno;
else update emp set sal = sal+300 where empno=pempno;
end if;
end loop;
close cemp;
commit;（如果update了数据，需在后面加上commit）
end;
/
10、光标的其他属性及其使用实例
①%isopen:
if cemp%isopen then dbms_output.put_line('光标一打开');
②%rowcount: （总共影响的行数）
dbms_output.put_line('行数：'||cemp %rowcount);
11、光标数的限制：
默认情况下oracle数据库只允许在同一个会话中打开300个光标
查看光标属性：切换到sys管理员用户下，conn sys/root as sysdba 就可以切换到sys用户
修改默认的光标数：
alter system set open_cursors=400 scope=both;
(scope的取值有三个参数：
memory：只更改当前实例，不更改系统参数文件
spfile :只更改参数文件，不更改当前实例，需重启数据库才能生效
both ：是以上两者
如果设置错了，可以使用rollback命令回滚
11、带参数的光标
set serveroutput on
declare
cursor cemp(dno number) is select ename from emp where deptno=dno;
pename emp.ename%type;
begin
open cemp(10);
loop
fetch cemp into pename;
exit when cemp %notfound;
dbms_output.put_line(pename);
end loop;
close cemp;
end;
/
12、系统例外：
no_data_found （没有找到数据）
too_many_rows （select ... into 语句匹配多个行）
zero_divide (被零除）
value_error （算术或转换错误）
timeout_on_resource (在等待资源时发生超时）
13、自定义例外：
set serveroutput on
declare
pename emp.ename%type;
no_emp_found exception;
cursor cemp is select ename from emp where empno=12;
begin
open cemp;
fetch cemp into pename;
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;
/
14、统计每年入职的员工数
set serveroutput on
declare
cursor cemp is select to_char(hiredate,'yyyy') from emp;
pdate varchar2(4);
count80 number := 0;
count81 number := 0;
count82 number := 0;
count87 number := 0;
begin
open cemp;
loop
fetch cemp into pdate;
exit when cemp%notfound;
if pdate='1980' then count80:=count80+1;
elsif pdate='1981' then count81:=count81+1;
elsif pdate='1982' then count82:=count82+1;
else count87:=count87+1;
end if;
end loop;
dbms_output.put_line('总共：'||(count80+count81+count82+count87));
dbms_output.put_line('1980:'||count80);
dbms_output.put_line('1981:'||count81);
dbms_output.put_line('1982:'||count82);
dbms_output.put_line('1987:'||count87);
close cemp;
end;
/
15、案例二：为员工涨工资
/*
做之前先分析
SQL语句
select empno,sal from emp order by sal asc;
-->光标-->循环-->退出条件：1.工资总额>5w 2.%notfound
变量：1.初始值 2.如何得到
涨工资的人数：
countEmp number :=0;
涨后的工资总额：
salTotal number;
select sum(sal) into salTal from emp;
张后的工资总额=涨前的工资总额 + sal * 0.1
*/
set serveroutput on
declare
cursor cemp is select empno,sal from emp order by sal;
pempno emp.empno%type;
psal emp.sal%type;
countEmp number:=0;
salTotal number;
stop_sal exception;
begin
select sum(sal) into salTotal from emp;
open cemp;
loop
if salTotal < 50000 then （加入限制只有工资总额在5000以内才执行下面的代码）
exit when salTotal>50000;
fetch cemp into pempno,psal;
exit when cemp%notfound;
countEmp := countEmp+1;
update emp set sal=sal*1.1 where empno=pempno;
salTotal := salTotal + psal*0.1;
else raise stop_sal;
end if;
end loop;
close cemp;
commit;
dbms_output.put_line('涨工资人数：'||countEmp||'工资总额：'||salTotal);
exception
when stop_sal then dbms_output.put_line('涨工资结束');
when others then dbms_output.put_line('其他');
end;
/
16、综合案例四
1、由于最后的结果也是一张表，所以先创建一张表
create table msg1(
coursename varchar2(20),
dname varchar2(20),
count1 number,
count2 number,
count3 number,
avggrade number
);
SQL语句
1、得到有哪些系
select dno,dname from dep; -->光标 -->循环-->退出条件：notfound
2、得到系中选修了“大学物理“的学生的成绩
select grade fromm sc where cno=(select cno from course where cname=??) and sno in (select sno from student where dno =??);
-->带参数的光标 -->循环 -->退出条件 -->notfound
变量：1、初始值 2、如何得到
每个分数段的人数
count1 number,count2 number,count3 number
每个系选修了大学物理的学生的平均成绩
avggrade number
1、算术运算
2、sql语句查询
set serveroutput on
declare
--系的光标
cursor cdept is select dno,dname from dep;
pdno dep.dno%type;
pdname dep.dname%type;
--成绩光标
cursor cgrade(coursename varchar2,depno number) is select grade from sc where cno=(select cno from course where cname=coursename)
and sno in (select sno from student where dno=depno);
pgrade sc.grade%type;
--每个分数段的人数
count1 number;count2 number;count3 number;
--每个系选修了大学物理的学生的平均成绩
avggrade number;
--课程名称
pcourseName varchar2(20) := '大学物理';
begin
--打开系的光标
open cdept;
loop
--取一个系的信息
fetch cdept into pdno,pdname;
exit when cdept %notfound;
--初始化工作
count1:=0;count2:=0;count3:=0;
--系的平均成绩
select avg(grade) into avggrade from sc where cno=(select cno from course where cname=pcourseName)
and sno in (select sno from student where dno=pdno);
--取系中选修了大学物理的学生成绩
open cgrade(pcourseName,pdno);
loop
--取一个学生的成绩
fetch cgrade into pgrade;
exit when cgrade%notfound;
--判断成绩的范围
if pgrade<60 then count1:=count1+1;
elsif pgrade>=60 and pgrade<85 then count2:=count2+1;
else count3:=count3+1;
end if;
end loop;
close cgrade;
--保存当前的结构
insert into msg1 values(pcourseName,pdname,count1,count2,count3,avggrade);
end loop;
close cdept;
dbms_output.put_line('数据查询成功！');
end;
/