码迷,mamicode.com
首页 > 数据库 > 详细

Oracle自定义函数1

时间:2015-11-25 23:42:45      阅读:399      评论:0      收藏:0      [点我收藏+]

标签:

用户定义函数是存储在数据库中的代码块,可以把值返回到调用程序。调用时如同系统函数一样,如max(value)函数,其中,value被称为参数。函数参数有3种类型。

IN 参数类型:表示输入给函数的参数。

OUT 参数类型:表示参数在函数中被赋值,可以传给函数调用程序。

IN OUT参数类型:表示参数既可以传值也可以被赋值。

1、语法格式:

SQL语法方式创建的语法格式为:

技术分享CREATE OR REPLACE FUNCTION function_name         /*函数名称*/
技术分享(
技术分享Parameter_name1,mode1 datatype1,            /*参数定义部分*/
技术分享Parameter_name2,mode2 datatype2,
技术分享Parameter_name3,mode3 datatype3
技术分享
技术分享)
技术分享RETURN return_datatype                /*定义返回值类型*/
技术分享IS/AS
技术分享BEGIN
技术分享       Function_body                  /*函数体部分*/
技术分享      RETURN scalar_expression                        /*返回语句*/
技术分享END function_name;
技术分享

  

说明:

function_name::用户定义的函数名。函数名必须符合标示符的定义规则,对其所有者来说,该名在数据库中是唯一的。

parameter:用户定义的参数。用户可以定义一个或多个参数。

mode:参数类型。

datatype:用户定义参数的数据类型。

return_type::用户返回值的数据类型。

函数返回scalar_expression表达式的值,function_body函数体由pl/sql语句构成。

2、示例

函数代码:

技术分享create or replace function T01001_count
技术分享return number
技术分享is
技术分享count_T01001 number;
技术分享begin
技术分享select count(*) into count_T01001 from T01001;
技术分享return(count_T01001);
技术分享end T01001_count;                  --记得一定要打分号
技术分享
技术分享调用:
技术分享declare
技术分享i number;
技术分享begin
技术分享i:=T01001_count();
技术分享dbms_output.put_line(to_char(i));
技术分享end;                 --记得一定要打分号

 

注意:

(1)    如果函数没有参数,那么函数名后不应该要括号;

(2)    创建函数的时候end后面一定要记得写函数名

--没有参数的函数    
create or replace function get_user return varchar2 is   
  v_user varchar2(50);    
begin   
  select username into v_user from user_users;    
  return v_user;    
end get_user;    
   
--测试    
方法一    
select get_user from dual;    
   
方法二    
SQL> var v_name varchar2(50)    
SQL> exec :v_name:=get_user;    
   
PL/SQL 过程已成功完成。    
   
SQL> print v_name    
   
V_NAME    
------------------------------    
TEST    
   
方法三    
SQL> exec dbms_output.put_line(‘当前数据库用户是:‘||get_user);    
当前数据库用户是:TEST    
   
PL/SQL 过程已成功完成。   
--没有参数的函数
create or replace function get_user return varchar2 is
v_user varchar2(50);
begin
select username into v_user from user_users;
return v_user;
end get_user;
--测试
方法一
select get_user from dual;
方法二
SQL> var v_name varchar2(50)
SQL> exec :v_name:=get_user;
PL/SQL 过程已成功完成。
SQL> print v_name
V_NAME
------------------------------
TEST
方法三
SQL> exec dbms_output.put_line(‘当前数据库用户是:‘||get_user);
当前数据库用户是:TEST
PL/SQL 过程已成功完成。
Sql代码 
--带有IN参数的函数    
create or replace function get_empname(v_id in number) return varchar2 as   
  v_name varchar2(50);    
begin   
  select name into v_name from employee where id = v_id;    
   return v_name;    
exception    
  when no_data_found then   
    raise_application_error(-20001, ‘你输入的ID无效!‘);    
end get_empname;   
--带有IN参数的函数
create or replace function get_empname(v_id in number) return varchar2 as
v_name varchar2(50);
begin
select name into v_name from employee where id = v_id;
return v_name;
exception
when no_data_found then
raise_application_error(-20001, ‘你输入的ID无效!‘);
end get_empname;
 

附:

函数调用限制
1、SQL语句中只能调用存储函数(服务器端),而不能调用客户端的函数
2、SQL只能调用带有输入参数,不能带有输出,输入输出函数
3、SQL不能使用PL/SQL的特有数据类型(boolean,table,record等)
4、SQL语句中调用的函数不能包含INSERT,UPDATE和DELETE语句

 

查看函数院源代码
oracle会将函数名及其源代码信息存放到数据字典中user_source 
select text from user_source where name=‘GET_EMPNAME‘;


删除函数
drop function get_empname

 

 

  不带任何参数

  create or replace function get_user return varchar2 is

  Result varchar2(50);

  begin

  select username into Result from user_users;

  return(Result);

  end get_user;

  执行:

  带in参数的

  create or replace function get_sal(empname in varchar2) return number is

  Result number;

  begin

  select sal into Result from emp where ename=empname;

  return(Result);

  end get_sal;

  执行: SQL> var sal number

  SQL> exec :sal:=get_sal(‘scott‘);

  带out参数的函数

  create or replace function get_info(e_name varchar2,job out varchar2) return number is

  Result number;

  begin

  select sal,job into Result,job from emp where ename=e_name;

  return(Result);

  end get_info;

  执行: SQL> var job varchar2(20)

  SQL> var dname varchar2(20)

  SQL> exec :dname:=get_info(‘SCOTT‘,:job)

  带in out参数的函数

  create or replace function result(num1 number,num2 in out number) return number is

  v_result number(6);

  v_remainder number;

  begin

  v_result :=num1/num2;

  v_remainder :=mod(num1,num2);

  num2 :=v_remainder;

  return(v_result);

  Exception

  when zero_divide then

  raise_application_error(-20000,‘不能除0‘);

  end result;

  执行: var result1 number;

  var result2 number;

  exec :result2:=30

  exec :result1:=result(100,:result2)

  eg:

  1 、一个最简单的自定义函数Fun_test1的定义。

  create or replace function Fun_test1(p_1 number)--Fun_test1是函数名,有一个输入参数p_1,是number型的。返回值也是number型的

  return number

  IS

  begin

  if p_1>0 then

  return 1;

  elsif p_1=0 then

  return 0;

  else

  return -1;

  end if;

  end;

  --这个函数只是可以知道自定义函数的定义和格式。其实没什么用途。

  2、Fun_test1自定义函数的调用的存储过程Pro_Fun_test1_1示例:

  create or replace procedure Pro_Fun_test1_1(

  p1_in in number,

  p2_out out number

  )

  AS

  begin

  p2_out:=Fun_test1(p1_in);

  end Pro_Fun_test1_1;

  --一个输入参数,一个输出参数

  3、Fun_test1自定义函数的调用的存储过程Pro_Fun_test1_2示例:

  create or replace procedure Pro_Fun_test1_2(

  p1_in in number,

  p2_out out number

  )

  AS

  t_1 number;

  begin

  select Fun_test1(p1_in)+100 INTO p2_out

  from bill_org where org_ID=1;

  end Pro_Fun_test1_2;

  --自定义函数的调用方法和Oracle的其它内部函数是一样的。

  二、包的定义和使用入门

  包一般是过程和函数的集合,对过程和函数进行更好的封装,一般不针对字段。

  包的构成包括包头和包体。

  1、包头的定义:

  包头仅仅只是对包中的方法进行说明,而没有实现

  语法:

  create or replace package myPackage_1

  is

  procedure syaHello(vname varchar2);--申明了该包中的一个过程

  end;

  2、包体的定义:

  包体是对包头中定义的过程、函数的具体实现。

  create or replace package body myPackage_1

  is

  procedure syaHello(vname varchar2)--对包中定义的过程的实现

  is

  begin

  dbms_output.put_line(‘Hello ‘||vname);

  end;

  end;

  要注意的是:

  create or replace package后面的名称必须和create or replace package body后面的名称一致,

  如果将create or replace package body后面的名称改为,‘MYPACKAGE‘

  否则将会出现诸如下面的错误:

  必须说明标识符 ‘MYPACKAGE‘

  3、调用包用的自定义方法:

  create or replace procedure Pro_test_package(

  p1_in string

  )

  AS

  begin

  myPackage_1.syaHello(p1_in);

  end Pro_test_package;

  eg2:

  --没有参数的函数

  create or replace function get_user return varchar2 is v_user varchar2(50);

  begin

  select username into v_user from user_users;

  return v_user;

  return v_user;

  --测试

  方法一

  select get_user from dual;

  方法二

  SQL> var v_name varchar2(50)

  SQL> exec :v_name:=get_user;

  --带有IN参数的函数

  create or replace function get_empname(v_id in number) return varchar2 as v_name varchar2(50);

  begin

  select name into v_name from employee where id = v_id;

  return v_name;

  exception

  when no_data_found then raise_application_error(-20001, ‘你输入的ID无效!‘);

  end get_empname;

  附:

  函数调用限制

  1、SQL语句中只能调用存储函数(服务器端),而不能调用客户端的函数

  2、SQL只能调用带有输入参数,不能带有输出,输入输出函数

  3、SQL不能使用PL/SQL的特有数据类型(boolean,table,record等)

  4、SQL语句中调用的函数不能包含INSERT,UPDATE和DELETE语句

  查看函数院源代码

  oracle会将函数名及其源代码信息存放到数据字典中user_source

  select text from user_source where name=‘GET_EMPNAME‘;

  删除函数

  drop function get_empname;

  判断任务过期时间:

  create or replace function GetUrgentState(m_TaskID varchar2,

  m_SendTime date,

  m_flag varchar2)

  return varchar2 IS

  myDate date;

  ExpireTime date;

  strsql varchar2(200);

  begin

  myDate := m_SendTime;

  strsql := ‘select max(EXPIRETIME) from t_wf_supervise where TASKID =‘‘‘ ||

  m_TaskID || ‘‘‘‘;

  execute immediate strsql

  into ExpireTime;

  --没有到期时间 就是正常状态

  if ExpireTime is null then

  if m_flag = ‘String‘ then

  return ‘正常‘;

  end if;

  if m_flag = ‘Img‘ then

  return ‘cb_execute.gif‘;

  end if;

  end if;

  --未发送任务,就是判断当前时间

  if m_SendTime is null then

  myDate := sysdate;

  end if;

  if ExpireTime < myDate then

  if m_flag = ‘String‘ then

  return ‘超期‘;

  end if;

  if m_flag = ‘Img‘ then

  return ‘cb_limit.gif‘;

  end if;

  end if;

  --小于3天的任务预警

  if ExpireTime - myDate < 3 then

  if m_flag = ‘String‘ then

  return ‘预警‘;

  end if;

  if m_flag = ‘Img‘ then

  return ‘cb_warning.gif‘;

  end if;

  else

  if m_flag = ‘String‘ then

  return ‘正常‘;

  end if;

  if m_flag = ‘Img‘ then

  return ‘cb_execute.gif‘;

  end if;

  end if;

  end;

  查询其它表数据:

  create or replace function GetPreNode(m_PreTaskID varchar2) return varchar2 IS

  nodename varchar2(50);

  strsql varchar2(200);

  begin

  if m_PreTaskID is null then

  return ‘‘;

  end if;

  strsql := ‘select max(nodename) from t_Wf_Tasklist where TaskID =‘‘‘ ||

  m_PreTaskID|| ‘‘‘‘;

  execute immediate strsql

  into nodename;

  return nodename;

  end;

  格式化标题输出:

  create or replace function FormatTitle(m_title varchar2,

  m_length number,

  m_FillChar varchar2) return varchar2 IS

  begin

  if lengthb(m_title) > m_length*2 then

  return substr(m_title, 0,m_length) || m_FillChar;

  else

  return m_title;

  end if;

  end;

Oracle自定义函数1

标签:

原文地址:http://www.cnblogs.com/xinxin1994/p/4996143.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!