plsql程序案例

瀑布模型

统计每年入职的员工人数

/*SQL语句
select to_char(hiredate,'yyyy') from emp;
->游标->循环->退出条件:notfound
变量：1.初始值  2.如何得到
每年入职的员工人数：
count80 number ：= 0；
count81 number ：= 0；
count82 number ：= 0；
count87 number ：= 0；
*/
DECLARE
 --定义游标
 CURSOR cemp IS SELECT to_char(hiredate,'yyyy') FROM emp;
 phiredate VARCHAR2(4);
 --每年入职的员工人数：
 count80 NUMBER := 0;
 count81 NUMBER := 0;
 count82 NUMBER := 0;
 count87 NUMBER := 0;
BEGIN 
 --打开游标
 OPEN cemp;
 LOOP
 FETCH cemp INTO phiredate;
 EXIT WHEN cemp%NOTFOUND;
 --判断入职年份
 IF phiredate = '1980' THEN count80:=count80 + 1;
  ELSIF phiredate = '1981' THEN count81:=count81 + 1;
  ELSIF phiredate = '1982' THEN count82:=count82 + 1;
  ELSE count87:=count87 + 1;
 END IF; 
 END LOOP;

 --关闭游标
 CLOSE cemp;
 dbms_output.put_line('Total:'||(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);
END;

Total:14
1980:1
1981:10
1982:1
1987:2

员工涨工资问题

/*从最低工资涨起每人涨10%，但工资总额不能超过10万元，
请计算涨工资的人数和涨工资后的工资总额，
并输出涨工资人数及工资总额。
SQL语句
select empno,sal from emp order by sal;
->游标->循环->退出条件:1.工资总额大于10W，2.%notfound
变量：1.初始值  2.如何得到
涨工资的人数：
countEmp number ：= 0；
涨后的工资总额
salTotal number；
1.select sum(sal) into salTotal from emp;
2.涨后的工资总额=涨前的工资总额 + sal * 0.1
*/
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;
 
BEGIN 
 --得到工资总额的初始值
 SELECT SUM(sal) INTO salTotal FROM emp;
 --打开游标
 OPEN cemp;
 LOOP
 EXIT WHEN cemp%NOTFOUND;
 FETCH cemp INTO pempno,psal;
 EXIT WHEN salTotal + psal*0.1 > 100000;
 --涨工资
 UPDATE emp SET sal=sal*1.1 WHERE empno=pempno;
 --人数+1
 countEmp := countEmp + 1;
 --涨后的工资总额=涨前的工资总额+sal*0.1
 salTotal := salTotal + psal*0.1;
 
 END LOOP;

 --关闭游标
 CLOSE cemp;
 COMMIT;
 dbms_output.put_line('人数:'||countEmp||'  涨后的工资总额:'||salTotal);

END;

涉及两张表的员工涨工资问题

 create table msg
  2  (deptno number,
  3  count1 number,
  4  count2 number,
  5  count3 number,
  6  saltotal number);
/*实现按部门分段（6000以上、（6000，3000）
、3000元以下）统计各工资段的职工人数、以及各部门的工资总额
（工资总额中不包括奖金）。
SQL语句
1.有哪些部门
select deptno from dept;
->游标->循环->退出条件:notfound
2.部门中员工的薪水
select sal from emp where deptno=?->带一个参数的游标->循环->退出条件:notfound
变量：1.初始值  2.如何得到
每个段的员工人数：
count1 number := 0；
count2 number := 0;
count3 number := 0;
每个部门的工资总额
salTotal number；
1.select sum(sal) into salTotal from emp where deptno=???;
2.累加
*/
DECLARE
 --定义游标
 CURSOR cdept IS SELECT deptno FROM dept;
 pdeptno dept.deptno%TYPE;

 --部门中员工的薪水
 CURSOR cemp(dno NUMBER) IS SELECT sal FROM emp WHERE deptno=dno;
 psal emp.sal%TYPE;
 
 --每个段的员工人数
 count1 NUMBER;
 count2 NUMBER;
 count3 NUMBER;
 salTotal NUMBER;
BEGIN 

 --打开部门的游标
 OPEN cdept;
 LOOP
 --取出一个部门
 FETCH cdept INTO pdeptno;
 EXIT WHEN cdept%NOTFOUND;
 --初始化
 count1:=0;
 count2:=0;
 count3:=0;
 --得到部门的工资总额
 SELECT SUM(sal) INTO salTotal FROM emp WHERE deptno=pdeptno;
 --取出部门中员工的薪水
 OPEN cemp(pdeptno);
 LOOP
 --取一个员工的薪水
 FETCH cemp INTO psal;
 EXIT WHEN cemp%NOTFOUND;
 --判断薪水的范围
 IF psal < 3000 THEN count1:=count1+1;
  ELSIF psal>=3000 AND psal<6000 THEN count2:=count2+1;
  ELSE count3:=count3+1;
 END IF;
 END LOOP;
 --关闭游标
 CLOSE cemp;
 --保存当前部门的结果
 INSERT INTO msg VALUES(pdeptno,count1,count2,count3,NVL(salTotal,0));
 
 END LOOP;
 --关闭部门的游标
 CLOSE cdept;

 
 COMMIT;
 dbms_output.put_line('统计完成');

END;