1.package 程序包说明(由函数、过程、变量、常量、游标和异常组成)
create or replace package pk_test is
-- Author : CHEN
-- Created : 2019/10/21 11:34:30
-- Purpose : package test
-- Public constant declarations
--<ConstantName> constant <Datatype> := <Value>;
words varchar2(100) := 'To be a better man!';
-- Public variable declarations
--<VariableName> <Datatype>;
v_count varchar2(100);
-- Public function and procedure declarations
--function <FunctionName>(<Parameter> <Datatype>) return <Datatype>;
function f_get_money(v_salary number, v_month number) return number;
procedure p_insertnumbers(nums in integer);
end pk_test;
注意:可以将对象名加到END子句,这样会使在代码中逻辑关系更加清楚。
2.package body 程序包体(程序包体包含了程序包说明中列出的所有公有对象的代码块和说明。程序包体还可以包括没有在程序包说明中列出的对象,这些对象被称为私有对象,私有对象只能由统一程序包体中的其他对象使用)
程序包体的名称应该与程序包说明的名称相同。
create or replace package body pk_test is
-- Private type declarations
--type <TypeName> is <Datatype>;
-- Private constant declarations
--<ConstantName> constant <Datatype> := <Value>;
-- Private variable declarations
-- <VariableName> <Datatype>;
-- Function and procedure implementations
function f_get_money(v_salary number, v_month number) return number is
-- <LocalVariable> <Datatype>;
begin
--<Statement>;
return v_salary * v_month;
end;
procedure p_insertnumbers(nums in integer) is
nums_a integer(5) := nums;
begin
LOOP
insert into t3 values ('test', sysdate);
commit;
nums_a := (nums_a - 1);
exit when nums_a < 1;
end loop;
end p_insertnumbers;
end pk_test;
准备:
create table T3
(
ACTION VARCHAR2(100),
A_TIME TIMESTAMP(6)
)
调用:
truncate table t3;
select * from t3;
select pk_test.f_get_money(1000,12) from dual;
call pk_test.p_insertnumbers(5);
select * from t3;
结果:
注意:PLS-00363: expression 'nums' cannot be used as an assignment target
oracle中不能为in型的变量赋值,所以需要建一个变量,让它等于in 的变量