create or replace package test_package
is
function get_sal_grade(p_sal number) return number;
function set_emp_job(p_empno number,
p_job varchar2)
return number;
procedure query_dept_emps(p_dname varchar2);
end test_package;
/
create or replace package body test_package
is
function get_sal_grade(p_sal number) return number
is
v_grade number;
begin
select t.grade into v_grade from salgrade t where p_sal>t.losal and p_sal<t.hisal;
return v_grade;
exception
when NO_DATA_FOUND then
return 0;
end;
function set_emp_job(p_empno number,
p_job varchar2)
return number
is
v_job emp.job%type;
v_count number;
begin
select count(*) into v_count from emp t where t.empno=p_empno;
if(v_count=0) then return -1;
else
select t.job into v_job from emp t where t.empno=p_empno;
if(v_job=p_job) then return -2;
else
update emp set job=p_job where empno=p_empno;
return 0;
end if;
end if;
end;
procedure query_dept_emps(p_dname varchar2)
is
v_sql varchar2(200);
v_empno emp.empno%type;
v_ename emp.ename%type;
v_job emp.job%type;
v_salary number;
v_count number;
type ref_cur is ref cursor;
ref_emp ref_cur;
begin
v_count:=0;
v_sql:='select empno,ename,job,sal from emp where deptno=(select deptno from dept where dname='''||p_dname||''')';
open ref_emp for v_sql;
loop
fetch ref_emp into v_empno,v_ename,v_job,v_salary;
exit when ref_emp%notfound;
DBMS_OUTPUT.PUT_LINE(' No: ' || v_empno ||' Name: '||v_ename||' Job: '||v_job||' Salary: '||v_salary);
v_count:=v_count+1;
end loop;
DBMS_OUTPUT.PUT_LINE('Total '||to_char(v_count)||' Person(s)');
close ref_emp;
end ;
end test_package;
/
没有合适的资源?快使用搜索试试~ 我知道了~
javaEE源代码servlet框架
共2个文件
sql:1个
lst:1个
1星 需积分: 9 8 下载量 175 浏览量
2010-07-13
10:57:21
上传
评论
收藏 1KB RAR 举报
温馨提示
用servlet框架编写的,主要是用于学习servlet,以及如何配置xml文档。。
资源推荐
资源详情
资源评论
收起资源包目录
40700717.rar (2个子文件)
40700717
40700717_test.sql 2KB
40700717_result.lst 2KB
共 2 条
- 1
资源评论
- mak_love_xin2012-06-12没有项目啊,只有数据库
lilingyuanchangjin
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功