为雇员增加工资,从工资低的雇员开始,为每个人增加原工资的 10%,限定所增加的工资总额为 800 元,显示增加工资的人数和余额。
2016-05-31 18:34
363 查看
--为雇员增加工资,从工资低的雇员开始,为每个人增加原工资的 10%,限
--定所增加的工资总额为 800 元,显示增加工资的人数和余额。
--1.游标c_sal :select empno,ename,sal from emp order by sal;v_empno,v_sal 个人薪资,v_total:=800 涨薪总数,
--v_add_sal 每个人的涨薪,v_count 人数
set serveroutput on
declare
v_empno varchar2(10);
v_sal number;
v_total number:=800;
v_add_sal number;
v_count number:=0;
cursor c_sal is select empno,sal from emp order by sal;
begin
open c_sal;
dbms_output.put_line('员工编号 '||'旧薪资 '||'新薪资 ');
loop
fetch c_sal into v_empno,v_sal;
exit when c_sal%notfound;
v_add_sal := v_sal*0.1;
if v_total > v_add_sal then
v_total:=v_total-v_add_sal;
dbms_output.put_line(v_empno||'-'||v_sal||'-'||to_char(v_sal+v_add_sal,9999999));
update emp set sal=sal+v_add_sal
where empno=v_empno;
v_count:=v_count+1;
commit;
else dbms_output.put_line(v_empno||'-'||v_sal||'-'||v_sal);
end if;
end loop;
close c_sal;
dbms_output.put_line('涨薪人数 :'||v_count);
dbms_output.put_line('剩余资金 :'||v_total);
end;
--定所增加的工资总额为 800 元,显示增加工资的人数和余额。
--1.游标c_sal :select empno,ename,sal from emp order by sal;v_empno,v_sal 个人薪资,v_total:=800 涨薪总数,
--v_add_sal 每个人的涨薪,v_count 人数
set serveroutput on
declare
v_empno varchar2(10);
v_sal number;
v_total number:=800;
v_add_sal number;
v_count number:=0;
cursor c_sal is select empno,sal from emp order by sal;
begin
open c_sal;
dbms_output.put_line('员工编号 '||'旧薪资 '||'新薪资 ');
loop
fetch c_sal into v_empno,v_sal;
exit when c_sal%notfound;
v_add_sal := v_sal*0.1;
if v_total > v_add_sal then
v_total:=v_total-v_add_sal;
dbms_output.put_line(v_empno||'-'||v_sal||'-'||to_char(v_sal+v_add_sal,9999999));
update emp set sal=sal+v_add_sal
where empno=v_empno;
v_count:=v_count+1;
commit;
else dbms_output.put_line(v_empno||'-'||v_sal||'-'||v_sal);
end if;
end loop;
close c_sal;
dbms_output.put_line('涨薪人数 :'||v_count);
dbms_output.put_line('剩余资金 :'||v_total);
end;
相关文章推荐
- 解决支付宝里面的 NSDataEx.m 里面的内存泄露
- android程序启动画面之Splash总结
- jemalloc Mongodb Nginx 优化
- SecureCRT 密钥生成 SSH 使用密钥登陆 服务器
- PAT (Advanced Level) 1054. The Dominant Color (20)
- 模板设计模式_组合&继承实现
- 斐波纳契数列
- Clone Graph
- CentOS 6.4 x64 zabbix 2.2.2 编译安装
- PAT (Advanced Level) 1053. Path of Equal Weight (30)
- mysql索引优化
- A + B 问题
- 最佳优先搜索(Best-First Search)
- UITableView使用详解及技巧大全
- Android获取系统震动的调用
- stringbuild和stringbuffer的区别
- CentOS 6.4 x64 Percona-Server-5.6.15 源码安装
- Monitorix 监控 安装配置
- Peer-to-Peer 综述
- 关于写博客的初心