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;