--1、編寫一個PL/SQL塊，輸出所有員工的員工姓名，員工號、工資和部門號。beginfor v_emp in (select * from emp) loopdbms_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塊，輸出所有比本部門平均工資高的員工信息。beginfor v_emp in (select e.*from emp ejoin (select deptno, avg(sal) avg_salfrom empgroup by deptno) t on e.deptno = t.deptnowhere e.sal > t.avg_salorder by e.deptno) loopdbms_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塊，輸出所有員工及其部門領導的姓名、員工號及部門號。beginfor v_emp in (select e1.empno a,e1.ename b,e1.deptno c,e2.ename d,e2.empno e,e2.deptno ffrom emp e1join emp e2 on e1.mgr = e2.empno) loopdbms_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';declarev_exist number(1);beginselect count(*) into v_exist from emp2 where ename = 'SMITH';--dbms_output.put_line(v_exist);if v_exist = 0 theninsert into emp2(empno,ename,sal,hiredate,deptno) values('2012','SMITH',7500,to_date('20020305','yyyymmdd'),50);commit;elsif v_exist >= 1 thenfor v_emp in (select * from emp2 where ename='SMITH') loopdbms_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;

總結

以上是生活随笔為你收集整理的Oracle 练习P297 131026 PL/SQL块程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。