--PL/SQL 代码块的示例;
declare
v_name varchar2(10);
v_sal number(7);
begin
select ename,sal into v_name,v_sal from emp where ename='&name';
dbms_output.put_line('员工姓名是:'||v_name||' 薪水是:'||v_sal);
exception
when no_data_found then
dbms_output.put_line('你好!你输入的用户数据不存在!');
end;
--函数的示例:输入员工的姓名,返回员工的月薪;
create function monthSal (pname varchar2)
return number is monSal number(7);
begin
select sal+nvl(comm,0) into monSal from emp where ename=pname;
return monSal;
end;
--包的示例:声明一个包,该包包含了一个过程和一个函数;
create package myPackage is
procedure changSal (pname varchar2,newSal number);
function monthSal (pname varchar2) return number;
end;
--给包建立包体;
create or replace package body myPackage is
procedure changSal (pname varchar2,newSal number) is
begin
update emp set sal=newSal where ename=pname;
end;
function monthSal (pname varchar2)
return number is monSal number(7);
begin
select sal+nvl(comm,0) into monSal from emp where ename=pname;
return monSal;
end;
end;
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/24465008/viewspace-692334/
,如需转载,请注明出处,否则将追究法律责任。