PL/SQL程序设计的例子(三)

1.统计每年入职的员工个数。
按如下格式输出每年的入职人数

思路:
SQL语句
变量:1.初始值 2.最终得到

select to_char(hiredate,’yyyy’) from emp;
— 光标 —循环—退出条件:exit:nofound

count80 number := 0;
count81 number := 0;
count82 number := 0;
count87 number := 0;

-- 查询出每年入职的人数
declare 
  cursor c1 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 c1;
  loop
    fetch c1 into phiredate;
    exit when c1%notfound;
    if phiredate = '1980' then count80 := count80 + 1;
       elsif phiredate = '1981' then count81 := count81 + 1;
       elsif phiredate = '1982' then count82 := count82 + 1;
       elsif phiredate = '1987' then count87 := count87 + 1;
    end if;
  end loop; 
  close c1;
  dbms_output.put_line('Total    ' || '1980    ' ||'1981    ' ||'1982    '||'1987    ');
  dbms_output.put_line('------   ' || '------  ' ||'------  ' ||'------  '||'------  ');
   dbms_output.put_line((count80+count81+count82+count87)||'       '|| count80||'       ' || count81 ||'       ' || count82 ||'       '||count87);
end;

2.为员工长工资。从最低工资调起每人长10％，但工资总额不能超过5万元,请计算长工资的人数和长工资后的工资总额，并输出输出长工资人数及工资总额。

分析:
SQL语句
select empno,sal from emp order by sal
—> 光标 –> 循环 –> 退出条件:1. 总额>5w 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
       --1. 总额>5w
       exit when salTotal > 50000;
       --取一个员工涨工资
       fetch cemp into pempno,psal;
       --2. notfound
       exit when cemp%notfound;

       --涨工资
       update emp set sal=sal*1.1 where empno=pempno;

       --2.涨后=涨前+sal*0.1
       salTotal := salTotal + psal*0.1;
       --如果涨后工资总和小于50000的时候再加上1人
       if salTotal < 50000 then countEmp:= countEmp+ 1;
       end if;

  end loop;
  close cemp;

  commit;
  dbms_output.put_line('涨后的工资总额：'||salTotal||'   人数:'||countEmp);

end;

3.用PL/SQL语言编写一程序，实现按部门分段（6000以上、(6000，3000)、3000元以下)统计各工资段的职工人数、以及各部门的工资总额(工资总额中不包括奖金)

可以创建一张新表用于保存数据
create table msg1
(deptno  number,
 emp_num1 number, 
 emp_num2 number, 
 emp_num3 number, 
 sum_sal number); 

分析:
SQL语句
部门：select deptno from dept;
查部门中的员工薪水: select sal from emp where deptno=??

变量：1. 初始值 2.最终得到
每个段的人数
count1 number; count2 number; count3 number;
部门的工资总额
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;