一、涉及内容
1.掌握PL/SQL程序块的结构
2.理解并熟练掌握各种变量的应用。
二、具体操作
1、创建一个表messages，该表只有一个字段results 类型是number(2)，编写一个块，向messages表中添加数字1到10，但不包括6和8。
（1）创建表
（2）添加数字
语句：
DECLARE
v_num NUMBER(2):=0;
BEGIN
FOR i IN 1..10 loop
v_num:=v_num+1;
if i <> 6 and i <> 8 then
insert into messages values(v_num);
end if;
END LOOP;
dbms_output.put_line('results:'||v_num);
end;
截图：
查看表：
2、创建一个块，按照emp表中员工的工资sal修改他的奖金comm的值。具体要求（块的要求是（2）-（7））如下：
（1）给emp表添加一行数据，其中工资sal和奖金comm都为NULL空值。
（2）通过替代变量读取员工编号。
（3）如果该员工的工资小于1000美元，则他的奖金为工资的10%
（4）如果该员工的工资在1000~1500美元，则奖金为工资的15%
（5）如果该员工的工资大于1500美元，则奖金为工资的20%
（6）如果该员工的工资为NULL，则奖金为0
（7）运行PL/SQL块，输入不同的员工编号，验证更新后的奖金值
首先，插入一行数据：
语句：
DECLARE
v_empno scott.emp.empno%type;
v_sal NUMBER(7,2);
v_comm scott.emp.comm%type; BEGIN
v_empno:=&no;
SELECT sal INTO v_sal
FROM scott.emp WHERE empno=v_empno;
case
when v_sal<1000 THEN
UPDATE scott.emp SET comm=v_sal*0.1 WHERE empno=v_empno; when v_sal<=1500 THEN
UPDATE scott.emp SET comm=v_sal*0.15 WHERE empno=v_empno; when v_sal>1500 THEN
UPDATE scott.emp SET comm=v_sal*0.2 WHERE empno=v_empno; when v_sal is null THEN
UPDATE scott.emp SET comm=0 WHERE empno=v_empno; else
dbms_output.put_line('error'); END case; SELECT comm INTO v_comm FROM scott.emp WHERE empno=v_empno; dbms_output.put_line('empno:'||v_empno||' comm:'||v_comm); END;
截图：
3、为emp表增加一个列stars，类型为VARCHAR2(100)。
4、创建一个PL/SQL块，通过替代变量读取员工编号，根据员工的工资计算他能获得的星号“*”数量，每100美元奖励一个星号，按四舍五入处理。并根据员工所获得的星号数量n，形成由n个星号组成的字符串，写入emp表的stars列。
语句：
declare
v_no number(6):=&no;
v_sal NUMBER(7,2);
v_star varchar2(200);
v_n integer;
begin
select round(sal/100) into v_n
from scott.emp where empno=v_no;
for i in 1..v_n loop
v_star:= v_star || '*';
end loop;
update scott.emp set stars = v_star where empno = v_no;
dbms_output.put_line('empno:'||v_no||' stars:'||v_star);
end;
截图：
5、创建一个PL/SQL块，从dept表中查询每个部门的名称。具体要求如下：
（1）声明一个记录表类型的变量my_tab，用来存放部门名称。
（2）用循环语句从dept表中查询每个部门名称，放入my_tab中。
（3）再使用一个循环将my_tab中的部门名称输出到屏幕上。
语句：
DECLARE
type dept_name_table_type is table of scott.dept.dname%type
index by binary_integer;
my_tab dept_name_table_type;
BEGIN
for i in 1..4 loop
select dname into my_tab(i)
from scott.dept
where deptno=i*10;
end loop;
for i in 1..4 loop
dbms_output.put_line('dname:'||my_tab(i));
end loop;
END;
截图：
6、修改上一题，从dept表中查询各个部门的所有信息，并输出到屏幕上。
语句：
DECLARE
type dept_record_type is record(
no scott.dept.deptno%type,
name scott.dept.dname%type,
location scott.dept.loc%type);
type dept_table_type is table of dept_record_type
index by binary_integer;
my_tab dept_table_type;
BEGIN
for i in 1..4 loop
select * into my_tab(i)
from scott.dept
where deptno=i*10;
dbms_output.put_line('deptno:'||my_tab(i).no||
' dname:'||my_tab(i).name||' loc:'||my_tab(i).location);
end loop;
END;
截图：
