plsql的例子（2）

5、 编写一个程序块，利用％type属性，接受一个雇员号，从emp表中显示该雇员的整体薪水（即，薪水＋佣金）

 SET SERVEROUTPUT ON
 DECLARE
 v_empno emp.empno%type:=&v_empno;--输入员工编号
 v_saladdcomm emp.sal%type;
 v_sal emp.sal%type;
 v_comm emp.comm%type;
 
 BEGIN
 select sal,comm into v_sal,v_comm from emp where empno = v_empno;

 v_saladdcomm := v_sal + NVL(v_comm,0);--这里需要用到NVL函数,如果v_comm为NULL的话则设为0
                                                                    --否则如果v_comm为空的话，计算出来的值则为空                           

 DBMS_OUTPUT.put_line(v_empno||'的整体薪水是:'||v_saladdcomm);

 EXCEPTION
 WHEN NO_DATA_FOUND THEN
 DBMS_OUTPUT.put_line('您要查找的员工编号不存在！');

 END;

 

6、 编写一个程序块，将emp表中前5人的名字显示出来。

不知道不使用游标的方法能否做出来

以下为使用游标的方法

1>使用for 循环实现
DECLARE
CURSOR c_emp IS select ename from emp where rownum < 6;

BEGIN

FOR v_emp IN c_emp LOOP
DBMS_OUTPUT.put_line(v_emp.ename);
END LOOP;

END;

2>使用while方法
DECLARE
CURSOR c_emp IS select ename from emp where rownum < 6;
v_ename emp.ename%type;
v_count number:=1;

BEGIN
OPEN c_emp;
while v_count < 6 loop

fetch c_emp into v_ename;
DBMS_OUTPUT.put_line(v_ename);
v_count := v_count+1;

end loop;
close c_emp;
end;

使用while的第二种用法

DECLARE
CURSOR c_emp IS select ename from emp where rownum < 6;
v_ename emp.ename%type;

BEGIN
OPEN c_emp;
fetch c_emp into v_ename;

--刚开始要让游标向下移动一行接下来才能判断是否已经
--取道到一行纪录

while c_emp%found loop

DBMS_OUTPUT.put_line(v_ename);
fetch c_emp into v_ename;

end loop;

close c_emp;
end;
3>使用LOOP循环的方法
set serveroutput on
DECLARE
CURSOR c_emp IS select ename from emp where rownum < 6;
v_ename emp.ename%type;

BEGIN
OPEN c_emp;

LOOP
fetch c_emp into v_ename;
DBMS_OUTPUT.put_line(v_ename);
EXIT WHEN c_emp%notfound;
END LOOP;

CLOSE c_emp;
END;

7、 某公司要根据雇员的职位来加薪，公司决定按如下列加薪结构处理：
Designation Raise
Clerk 500
Salesman 1000
Analyst 1500
Otherwise 2000
编写一个程序块，接受一个雇员名，从emp表中实现上述加薪处理。
set serveroutput on
DECLARE
v_ename emp.ename%type:='&v_ename';
v_job emp.job%type;
v_addSal emp.sal%type;--额外增加的工资
v_sal emp.sal%type;

BEGIN
select job into v_job from emp where ename = v_ename;
select sal into v_sal from emp where ename = v_ename;

IF v_job = 'Clerk' then

v_addSal := 500;
elsif v_job = 'Salesman' then
v_addSal := 1000;
elsif v_job = 'Analyst' then
v_addSal := 1500;
else
v_addSal := 2000;

END IF;

v_addSal := v_addSal + v_sal;
UPDATE emp SET sal = v_addSal where ename = v_ename;
END;

8、 使用For循环游标，接受一个部门号，从emp表中显示该部门的所有雇员的姓名，工作和薪水。
set serveroutput on
DECLARE
v_deptno emp.deptno%type:=&v_deptno;
v_ename emp.ename%type;
v_job emp.job%type;
v_sal emp.sal%type;

CURSOR c_emp IS select ename,job,sal from emp where deptno = v_deptno;


BEGIN
DBMS_OUTPUT.put_line('deptno'||' '||'ename'||' '||'job'||' '||'sal');
for v_emp IN c_emp LOOP
DBMS_OUTPUT.put_line(v_deptno||' '||v_emp.ename||' '||v_emp.job||' '||v_emp.sal);
END LOOP;

END;