Oracle plsqlI 练习 传值

原创 2013年12月05日 17:06:14
--根据人名查个人薪水和本部门平均薪水

--select语句实现

select a.deptno  "部门编号",
       a.dname   "部门名称",
       a.ename   "姓名",
       a.sal     "薪水",
       b.avg_sal "部门平均薪水"
  from (select d.deptno, d.dname, e.ename, sal + nvl(comm, 0) sal
          from emp e
          join dept d on e.deptno = d.deptno
         where ename = '&name') a
  join (select deptno, avg(sal + nvl(comm, 0)) avg_sal
          from emp
         where deptno in (select deptno from emp where ename = '&name')
         group by deptno) b on a.deptno = b.deptno;

--匿名块实现

declare
  v_deptno  emp.deptno%type;
  v_dname   dept.dname%type;
  v_ename   varchar(20);
  v_sal     emp.sal%type;
  v_avg_sal emp.sal%type;
begin
  v_ename := '&请输入姓名:';
  select deptno into v_deptno from emp where ename = v_ename;
  dbms_output.put_line('部门编号:' || v_deptno);
  select dname into v_dname from dept where deptno = v_deptno;
  dbms_output.put_line('部门名称:' || v_dname);
  dbms_output.put_line('员工姓名:' || v_ename);
  select sal + nvl(comm, 0) into v_sal from emp where ename = v_ename;
  dbms_output.put_line('员工薪水:' || v_sal);
  select avg(sal + nvl(comm, 0))
    into v_avg_sal
    from emp
   where deptno = v_deptno;
  dbms_output.put_line('部门平均薪水:' || v_avg_sal);
end;

--游标存储过程实现(无select语句)

create or replace procedure p1011(v_ename in emp.ename%type) is
  cursor c is select * from emp;
  cursor cd is select * from dept;
  v_sal emp.sal%type;
  v_avg_sal emp.sal%type := 0;
  v_dname dept.dname%type;
  v_deptno dept.deptno%type;
  v_n number := 0;
begin
  for v_emp in c loop
    if v_emp.ename = v_ename then
      v_sal := v_emp.sal + nvl(v_emp.comm,0);
      v_deptno := v_emp.deptno;
    end if;
  end loop;
  
  for v_dept in cd loop
    if v_dept.deptno = v_deptno then
      v_dname := v_dept.dname;
    end if;
  end loop;
  
  for v_emp in c loop
    if v_emp.deptno = v_deptno then
      v_avg_sal := v_avg_sal + v_emp.sal + nvl(v_emp.comm,0);
      v_n := v_n + 1;
    end if;
  end loop;
  v_avg_sal := v_avg_sal / v_n;
  
  dbms_output.put_line('员工姓名:' || v_ename);
  dbms_output.put_line('员工薪水:' || v_sal);
  dbms_output.put_line(v_dname || '部门的平均薪水是:' || v_avg_sal);
end;
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

页面之间的传值练习

  • 2012年05月12日 10:44
  • 23KB
  • 下载

Block传值通讯录练习

Block传值, 通讯录

窗体间传值练习

   最近在论坛上看到不少关于两个窗体之间传值的问题。也看过一篇博客上关于两个窗体传值的最佳方案。自己做了一个类似记事本搜索功能,大概使用了两种较为常用的窗体间传值方法。一是将类及其中的控件设置成pu...

通过小练习掌握MFC知识点之起步篇-父子窗口间传值、ListCtrl隔行变色、双缓冲技术解决控件闪烁、自定义消息等

2013.4.12 再次修改   2013.4.11 修改   注:修改内容见文章结尾处 本次练习会学到的知识点: 1、ListCtrl控件:设置ListCtrl网格,内容项隔行变色,插入一行数据...
  • ajioy
  • ajioy
  • 2013年04月10日 11:39
  • 5788

UI13_Block传值练习

Block传值

窗体传值-1

  • 2016年03月31日 15:53
  • 78KB
  • 下载

弹出层插件的编写-layer(跨iframe传值回调)

弹出层(layer)在往上有非常多,这里为什么我要把它的实现提出来,原因有以下2点: 1、写这篇文章也算是我博客的一个开端,他们都说:“不写博客成不了大神” - - 2、我见过的弹出层中都基本没有...

OC中以delegate形式页面传值

  • 2015年12月25日 16:34
  • 35KB
  • 下载

android基础 - 页面传值

  • 2017年02月16日 13:43
  • 24.64MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Oracle plsqlI 练习 传值
举报原因:
原因补充:

(最多只允许输入30个字)