oracle中的p sql块,Oracle 练习P297 131026 PL/SQL块程序

--1、编写一个PL/SQL块，输出所有员工的员工姓名，员工号、工资和部门号。

begin

for v_emp in (select * from emp) loop

dbms_output.put('员工姓名：' || v_emp.ename);

dbms_output.put('，员工号：' || v_emp.empno);

dbms_output.put('，工资：' || v_emp.sal);

dbms_output.put_line('，部门号：' || v_emp.deptno);

end loop;

end;

--2、编写一个PL/SQL块，输出所有比本部门平均工资高的员工信息。

begin

for v_emp in (select e.*

from emp e

join (select deptno, avg(sal) avg_sal

from emp

group by deptno) t on e.deptno = t.deptno

where e.sal > t.avg_sal

order by e.deptno) loop

dbms_output.put('员工姓名：' || v_emp.ename);

dbms_output.put('，员工号：' || v_emp.empno);

dbms_output.put('，工资：' || v_emp.sal);

dbms_output.put_line('，部门号：' || v_emp.deptno);

end loop;

end;

--3、编写一个PL/SQL块，输出所有员工及其部门领导的姓名、员工号及部门号。

begin

for v_emp in (select e1.empno a,

e1.ename b,

e1.deptno c,

e2.ename d,

e2.empno e,

e2.deptno f

from emp e1

join emp e2 on e1.mgr = e2.empno) loop

dbms_output.put('员工姓名：' || v_emp.a);

dbms_output.put('员工员工号：' || v_emp.b);

dbms_output.put('员工部门号：' || v_emp.c);

dbms_output.put('，领导姓名：' || v_emp.d);

dbms_output.put('，领导员工号：' || v_emp.e);

dbms_output.put_line('，领导部门号：' || v_emp.f);

end loop;

end;

--4、查询姓为“SMITH”的员工信息，并输出其员工号、姓名、工资、部门号。

--如果该员工不存在，则插入一条新记录，员工号为2012，员工姓为“SMITH”，工资为7500元，

--入职日期为“2002年3月5日”，部门号为50，如果存在多个名为“SMITH”的员工，

--则输出所有名为“SMITH”的员工号、姓名、工资、入职日期、部门号L。

--delete from emp2 where ename = 'SMITH';

declare

v_exist number(1);

begin

select count(*) into v_exist from emp2 where ename = 'SMITH';

--dbms_output.put_line(v_exist);

if v_exist = 0 then

insert into emp2(empno,ename,sal,hiredate,deptno) values('2012','SMITH',7500,to_date('20020305','yyyymmdd'),50);

commit;

elsif v_exist >= 1 then

for v_emp in (select * from emp2 where ename='SMITH') loop

dbms_output.put_line('员工号：' || v_emp.empno);

dbms_output.put_line('姓名：' || v_emp.ename);

dbms_output.put_line('工资：' || v_emp.sal);

dbms_output.put_line('入职日期：' || v_emp.hiredate);

dbms_output.put_line('部门号：' || v_emp.deptno);

end loop;

else null;

end if;

end;