Oracle package demo

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 的变量