标签：roc 查找 strong nbsp 不能 end put 删除 bms
包：
-- 定义包 计算圆的面积 create or replace package pac_area is -- 定义pi常量 v_pi constant number(5,2):=3.14; --定义计算圆的面积的过程，打印圆的面积 procedure pro_area(v_r number); --定义一个获取圆的面积的函数 function fun_area return number; end;
创建包体：
-- 定义包体，用来实现包 create or replace package body pac_area is --把面积参数定义成包体的成员变量，这样函数也可以使用这个变量 v_area number(5,2); -- 实现过程 procedure pro_area(v_r number) is begin v_area:=v_pi*v_r*v_r; dbms_output.put_line(‘圆的面积是:‘||v_area); end; --实现函数,注意，调用该函数前，一定要先调用过程 function fun_area return number is begin return v_area; end; end;
--使用匿名块调用包中的过程和函数 declare v_area number(5,2); begin -- 调用打印圆的面积的过程 pac_area.pro_area(2); -- 调用获取圆的面积的函数 v_area :=pac_area.fun_area(); dbms_output.put_line(‘函数计算的圆的面积是：‘||v_area); end;
select * from user_source where type=‘PACKAGE BODY‘ AND name=‘PAC_AREA‘;
标签：roc 查找 strong nbsp 不能 end put 删除 bms
原文地址：https://www.cnblogs.com/duguangming/p/10846460.html
