oracle中函数，游标的使⽤
oracle中函数和游标的使⽤
--创建函数并且调⽤
create function fun1(v_in_ename varchar2)
return number is
v_annual_sal number;
begin
select (sal+nvl(comm,0))*13 into v_annual_sal from emp where ename=v_in_ename;
return v_annual_sal;
end;
/
-
-直接调⽤函数
var v_annual_sal number;
call fun1('FORD') into:v_annual_sal;
print v_annual_sal;
--包
--需求：编写⼀个包，该包有⼀个过程，该过程可以接收⽤户名和新的薪⽔
--(将来⽤于通过⽤户名去更新薪⽔)还有⼀个函数，该函数可以接收⼀个⽤户名
--(将来要实现得到该⽤户的年薪是多少)
create package mypackage1 is
--声明⼀个过程
procedure pro1(v_in_ename varchar2,v_in_newsal number);
function fun1(v_in_ename varchar2) return number;
end;
--编写包体
create package body mypackage1 is
--具体实现过程
procedure pro1(v_in_ename varchar2,v_in_newsal number) is
begin
update emp set sal=v_in_newsal where ename=v_in_ename;
end;
function fun1(v_in_ename varchar2) return number is
v_annual_sal number;
begin
select (sal+nvl(comm,0))*13 into v_annual_sal from emp
where ename=v_in_ename;
return v_annual_sal;
end;
end;
/
--pl/sql详细语法
create or replace procedure pro1(v_in_empno number) is
--定义变量
v_tax_rate number :=0.03;
v_sal number;
v_tax number;
v_ename varchar2(32);
begin
select ename,sal into v_ename,v_sal from emp
where empno=v_in_empno;
v_tax:=v_sal*v_tax_rate;
dbms_output.put_line(v_ename||'⼯资是='||v_sal||'个⼈所得税='||v_tax);
end;
--pl/sql中使⽤%type 来提⾼列的灵活性
create or replace procedure pro1(v_in_empno number) is
-
-定义变量
v_tax_rate number :=0.03;
v_tax_rate number :=0.03;
v_sal emp.sal%type;
v_tax number;
v_ame%type;
begin
select ename,sal into v_ename,v_sal from emp
where empno=v_in_empno;
v_tax:=v_sal*v_tax_rate;
dbms_output.put_line(v_ename||'⼯资是='||v_sal||'个⼈所得税='||v_tax);
end;
--【案例】编写⼀个过程，该过程可以接收⼀个⽤户编号，
--并显⽰该⽤户的名字，薪⽔，⼯作岗位（注意：使⽤pl/sql记录实现）
create or replace procedure pro1(v_in_empno in number) is
--定义记录数据类型
type zy_emp_record is record(
v_ame%type,
v_sal emp.sal%type,
v_job emp.job%type
);
--定义⼀个变量，类型是zy_emp_record
v_emp_record zy_emp_record;
begin
select ename,sal,job into v_emp_record
from emp where empno=v_in_empno;
dbms_output.put_line('⽤户名：'||v_emp_record.v_ename||'薪⽔='||v_emp_record.v_sal); end;
--游标的使⽤
create or replace procedure pro1(v_in_deptno number) is
--先定义⼀个游标变量类型
type zy_emp_cursor is ref cursor;oracle游标的使用
--定义⼀个游标变量
v_emp_cursor zy_emp_cursor;
-
-定义2个变量
v_ame%type;
v_sal emp.sal%type;
begin
--执⾏语句
open v_emp_cursor for select
ename,sal from emp where deptno=v_in_deptno;
--取出游标指向的每⾏数据，⽤循环语句
loop
fetch v_emp_cursor into v_ename,v_sal; --这句话执⾏后会引起v_emp_cursor向下⾛
--判断当前游标是否到达最后
exit when v_emp_cursor%notfound;
--输出
dbms_output.put_line('⽤户名='||v_ename||' 薪⽔='||v_sal);
end loop;
--关闭游标
close v_emp_cursor;
end;
--游标的使⽤，在上⾯的基础上添加⼯资
create or replace procedure pro1(v_in_deptno number) is
--先定义⼀个游标变量类型
type zy_emp_cursor is ref cursor;
-
-定义⼀个游标变量
v_emp_cursor zy_emp_cursor;
--定义2个变量
v_ame%type;
v_sal emp.sal%type;
v_pno%type;
begin
--执⾏语句
open v_emp_cursor for select
ename,sal,empno from emp where deptno=v_in_deptno;
--取出游标指向的每⾏数据，⽤循环语句
loop
fetch v_emp_cursor into v_ename,v_sal,v_empno; --这句话执⾏后会引起v_emp_cursor向下⾛--判断当前游标是否到达最后
exit when v_emp_cursor%notfound;
--输出
dbms_output.put_line('⽤户名='||v_ename||' 薪⽔='||v_sal);
if v_sal <2000 then
update emp set sal=sal+1000 where empno=v_empno;
end if;
end loop;
--关闭游标
close v_emp_cursor;
end;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。