oracle学习笔记（二十一） 程序包

程序包

之前我们调用的dbms_output.put_line(''),dbms_output就是一个程序包

程序包创建语法

1. 声明程序包

--声明程序包中的过程，函数，自定义的类型

--程序包里面的过程和函数不需要使用create or repalce

create or replace package dbms_my

is

	record类型等。

	procedure $procedure_name$ [(参数...)];

	function $function_name$ [(参数...)]

	......

end dbms_my;

2. 实现程序包

create or replace package body dbms_my

is

	procedure <过程名>

	is

	......

end dbms_my;

程序包例子

--创建程序包

create or replace package dbms_my

is

	--相当于自定义一个类

	TYPE type_my_rec is record(

		empno number,

		ename varchar2(10),

		sal number

	);

	procedure sum_sal(deptno department.deptno%type,sum in out number);

	function avg_sal(deptno department.deptno%type) return  number;

end dbms_my;

--实现程序包

create or replace package body dbms_my

is

	procedure sum_sal(p_deptno department.deptno%type,sum in out number)

	is

		sum number;

	begin

		select sum(sal) into sum from employee where deptno=p_deptno;

	end sum_sal;

	function avg_sal(deptno department.deptno%type) return  number

	is

		result number;

	begin

		select avg(sal) into result from employee where deptno=p_deptno;

		return result;

	end avg_sal;

end dbms_my;

--测试程序包

declare

	--使程序包中定义的记录类型来声明变量

	emp_rec dbms_my.type_my_rec;

	v_deptno number default 7879;

	sum_sal number;

	avg_sal number;

	x varchar2(100) := 'default value';

begin

	emp_rec.empno := 7879;--给类中的某个属性赋值

	sum_sal := dbms_my.sum_sal(deptno);--调用过程

	dbms_output.put_line(sum_sal);--输出结果

	select dbms_my.avg_sal(7879) into avg_sal from dual;--调用函数

	dbms_output.put_line(avg_sal);--输出结果

end;

/