Oracle过程

--过程：类似于Java中的无返方法
--示例1：过程的基本语法
create or replace procedure 过程名(
  [参数1 类型(不要长度), 参数2 类型,....]
) is/as
  [局部变量1 类型(要长度); 
   局部变量2 类型(要长度); 
   .....
  ]
begin
  可执行代码
[exception]
end;
--调用过程
DECLARE
BEGIN
  过程名(参数);
END;




--示例2  根据编号，查询某给用户的姓名和年龄：tem_user
create or replace procedure getUserInfo(
  no number
) is
  name VARCHAR2(20);
  age number(10);
begin
  select "Name","Age" into name,age
  from "tem_user"
  where "UserNo"=no;
  DBMS_OUTPUT.PUT_LINE(no||'号的用户的姓名是：'||name||',年龄是：'||age);
end;

DECLARE
  v_no number(4) :=1002;
begin
  getUserInfo(v_no);
end;


--示例3  向tem_user中添加一个记录
create or replace procedure addUser(
  no number,name varchar2,age number
)is
BEGIN
  insert into "tem_user" VALUES(no,name,age);
END;

BEGIN
--  addUser(1005,'小白龙',100);
--  addUser(no=>1006,name=>'白骨精',age=>300);
  addUser(no=>1007,age=>800,name=>'太上老君');
END;


--示例4 用不同的传参方式创建过程
  --in:传入的参数
  --out:传出的参数
  --in out :又能传入、传出
--查询某一门课程的平均分，如果小于90则加10分，输出更新后的平均分
create or replace procedure calcuAvg(
  subNo in number,avg out number,num in out number
)is
  v_avg number(4);
begin
  select AVG("StudentResult") into v_avg
  from "Result" where "SubjectNo"=subNo;
  
  avg :=v_avg;
  
  IF v_avg<90 then
    num:= v_avg+num;
  end IF;
end;

DECLARE
  v_num1 number(4) :=2;
  v_num2 number(4);
  v_num3 number(4) :=10;
 BEGIN
  calcuAvg(v_num1,v_num2,v_num3);
  DBMS_OUTPUT.PUT_LINE(v_num1||'号课程的原平均分是：'||v_num2||'，加分后的是：'||v_num3);
END;




--函数：类似于Java中的有返方法
--函数的基本语法
create or replace function 函数名(
  型参列表
)return 返回值类型
is 返回值的名 返回值类型;
begin
  --可执行的代码;
end;


--示例5  数学运算
create or replace function calcu(
  num1 number,num2 number,num3 number
)return number
is result number;
begin
  result :=(num1+num2)*num3;
  return result;
end;

DECLARE
  v_num1 number(4) :=10;
  v_num2 number(4) :=20;
  v_num3 number(4) :=30;
BEGIN
  DBMS_OUTPUT.PUT_LINE('运算结果是：'||calcu(v_num1,v_num2,v_num3));
END;


--示例6  统计参加了某门考试的人数
create or replace function getCount(
  subNo number :=2  --函数可以直接给变量赋值，过程不可以
)return number is person_count number;
begin
  select count(1) into person_count
  from "Result" where "SubjectNo"=subNo;
  return person_count;
end;
  
BEGIN
  DBMS_OUTPUT.PUT_LINE('2号课程的考试人数是：'||getCount());
END;


--删除过程与函数
drop procedure getUserInfo;
drop FUNCTION getCount;


--用函数改造示例4
create or replace procedure calcuAvgFunc(
  subNo number,avg number
)ruturn number is avg_value number;
begin
  select AVG("StudentResult") into v_avg
  from "Result" where "SubjectNo"=subNo;

  ruturn avg_value;
end;

DECLARE
  v_num1 number(4) :=2;
  v_num3 number(4) :=10;
  v_result number(4);
  v_result2 number(4);
 BEGIN
  avg_value :=calcuAvgFunc(v_num1,v_num2,v_num3);
  IF avg_value<90 then
    avg_value:= avg_value+v_num3;
  end IF;
  DBMS_OUTPUT.PUT_LINE(v_num1||'号课程的原平均分是：'|| ||'，加分后的是：'||v_num3);
END;