【Oracle】玩转Oracle数据库：PL/SQL编程

-- 创建包
CREATE OR REPLACE PACKAGE my_package IS
  -- 声明变量
  g_val INTEGER := 0;
 
  -- 声明过程
  PROCEDURE set_val(p_val IN INTEGER);
  PROCEDURE print_val;
 
  -- 声明函数
  FUNCTION add_to_val(p_inc IN INTEGER) RETURN INTEGER;
END my_package;
/
 
-- 包体实现
CREATE OR REPLACE PACKAGE BODY my_package IS
  -- 过程实现
  PROCEDURE set_val(p_val IN INTEGER) IS
  BEGIN
    g_val := p_val;
  END;
 
  PROCEDURE print_val IS
  BEGIN
    DBMS_OUTPUT.PUT_LINE('当前值：' || g_val);
  END;
 
  -- 函数实现
  FUNCTION add_to_val(p_inc IN INTEGER) RETURN INTEGER IS
  BEGIN
    g_val := g_val + p_inc;
    RETURN g_val;
  END;
END my_package;
/
 
-- 使用示例
BEGIN
  my_package.set_val(10);
  my_package.print_val;
 
  DBMS_OUTPUT.PUT_LINE('增加后的值：' || my_package.add_to_val(5));
END;
/

这个代码示例展示了如何在Oracle数据库中创建一个包含变量、过程和函数的包，并在包体中对它们进行声明和实现。同时，展示了如何使用这个包中的过程和函数。这对于学习和理解PL/SQL编程是很有帮助的。