1. 程式人生 > >PL/SQL程式設計的例子(三)

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;