原创作品，转自请注明出处：https://www.cnblogs.com/sunshine5683/p/10328524.html
一、函数
1、函数是可以返回一个特定的数据，函数的创建中必须包含return子句。
2、函数创建：
create function sp_function2(spname varchar2) return number is salaries number(7,3);
begin
----执行部分
select sal*10+nvl(comm,0)*10 into salaries from emp where ename=spname;
return salares;
end;
3、在sqlplus中调用函数
var xhq_salaries number
call sp_function2('SCOTT') into :xhq_salaries;
二、包
1、包是用于逻辑上组合过程和函数的，可以使用create package命令创建一个包。
如：
create package sp_package is
procedure update_sal(name varchar2,newsal number);
function sp_function2(name varchar2) return number;
end;
2、创建包体
create or replace package body sp_package is
procedure update_sal(name varchar2,newsal number) is
begin
update emp set sal=newsal where ename=name;
end;
function sp_function2(name varchar2) return number is
salaries number;
begin
select sal into salaries from emp where ename=name;
return salaries;
end;
end;
3、调用包的函数或过程
exec sp_package.update_sal('SMITH',120);
三、plsql变量
1、标量类型（scalar）
标量包含许多类型，此处介绍常用类型就可以
如：
定义一个边长字符串： v_ename varchar2(20);
定义一个小数 ，范围-99.99~99.99: v_sal number(4,2);
定义一个小数并给一个初始值： v_sal2 number(6,2):=1111.11
例子:
输入员工号，输出员工工资，姓名，个人所得税（税率为0.01）
declare
c_tax_rate number(3,2):=0.01;
v_ename varchar2(10);
v_sal number(7,2);
v_tax_sal number(7,2);
begin
select ename,sal into v_ename,v_sal from emp where empno=&no;
--计算所得税
v_tax_sal:=v_sal*c_tax_rate;
dbms_output.put_line('姓名为：'||v_ename||'工资：'||v_sal || '所得税：'||v_tax_sal);
end;
上面报错原因是定义v_ename varchar(5),但实际上返回的值大于定义的，所以报错，改成v_ename varchar(10)，问题解决，正常执行。
标量使用%type类型：表面。列名%type
如上面：v_ename emp.ename%type;这样定以后就会匹配大小，不会存在上述缓冲太小的错误，也不至于定义太大浪费空间。
2、复合类型（即plsql记录）
类似于高级语言中的结构体，使用：记录变量.记录成员.
3、复合类型之plsql表，相当于高级语言中的数组，区别是下标可以为负数，而在高级语言中是不可以为负数的。
4、参照变量：是指用于存放数值指针的变量，通过参照变量，可以使得应用程序共享相同对象，从而降低占用的空间，在编写plsql程序时，可以使用游标变量和对象变量两种参照变量，简单是用的最多的是游标变量。
使用游标变量时，不需要指定相应的select语句，但是使用又表示，需要指定select语句。
实例如下：
declare
type sp_emp_cursor is ref cursor;
test_cursor sp_emp_cursor;
--定义变量
v_ename emp.ename%type;
v_sal emp.sal%type;
begin
--吧test_cursor和一个select结合
open test_cursor for select ename,sal from emp where deptno=&no;
--循环取出查询出的数据
--循环取出查询出的数据
loop
fetch test_cursor into v_ename,v_sal;
exit when test_cursor%notfound;
dbms_output.put_line('姓名：'||v_ename||'工资:'||v_sal);
end loop;
--关闭游标
close test_cursor;
end;
