过程函数及控制流、游标例题.docVIP

过程函数及控制流、游标例题 编写一个数据包,它有两个函数和两个过程以操作EMP表 该数据包要执行的任务为: 插入一个新雇员。 删除一个现有雇员。 显示指定雇员的整体收入(sal+comm)。 显示指定雇员的部门名称。 --插入 create or replace procedure updates(v_empno varchar2,v_ename varchar2,v_job varchar2) is begin insert into emp(EMPNO,ENAME,JOB) values(v_empno,v_ename,v_job); end; --删除 create or replace procedure deletes(v_empno varchar2) is begin delete from emp where EMPNO=v_empno; end; --求整体收入 create or replace function func(v_empno varchar2) return number as begin declare v_sum number(20); begin select sal+comm into v_sum from emp where EMPNO=v_empno; return v_sum; end; end; begin dbms_output.put_line(func(7654)); end; --显示指定部门的部门名称 create or replace function selectempno(v_empno varchar2) return varchar2 as begin declare v_dname varchar2(30); begin select DNAME into v_dname from dept where deptno=(select deptno from emp where empno=v_empno); return v_dname; end; end; begin dbms_output.put_line(selectempno(7788)); end; --实现一个包规范 create package emp_operator2 is procedure updates(v_empno varchar2,v_ename varchar2,v_job varchar2); procedure deletes(v_empno varchar2); function func(v_empno varchar2) return number; function selectempno(v_empno varchar2) return varchar2; end; --实现 包体内容 create package body emp_operator2 is procedure updates(v_empno varchar2,v_ename varchar2,v_job varchar2) is begin insert into emp(EMPNO,ENAME,JOB) values(v_empno,v_ename,v_job); end; procedure deletes(v_empno varchar2) is begin delete from emp where EMPNO=v_empno; end; function func(v_empno varchar2) return number as begin declare v_sum number(20); begin select sal+comm into v_sum from emp where EMPNO=v_empno; return v_sum; end; end; function selectempno(v_empno varchar2) return varchar2 as begin declare v_dname varchar2(30); begin select DNAME into v_dname from dept where deptno=(select deptno from emp where empno=v_empno); return v_dname; end; end; end; emp_operator2.updates(9898,aaaa