PL/SQL 循环、自定义函数以及存储过程实例详解

for i in 起始值..结束值 loop
  循环体；
end loop;

declare
  x number := &请输入数值;
  v_flag number := 0;
begin
  for i in 2..x-1 loop
    if mod(x, i) = 0 then
      v_flag := 1;
    end if;
  end loop;
  ...
end;

declare
  v_str varchar2(100);
begin
  for i in 1..9 loop
    v_str := '';
    for j in 1..i loop
      v_str := v_str || i || ' * ' || j || ' = ' || i*j || ' ';
    end loop;
    dbms_output.put_line(v_str);
  end loop;
end;

while 条件 loop
  循环体；
  变量自增/自减；
end loop;

declare
  v_num number := 1;
begin
  while v_num <= 100 loop
    if mod(v_num,2) = 1 then
      dbms_output.put_line(v_num);
    end if;
    v_num := v_num + 1;
  end loop;
end;

create or replace function 函数名(入参名 参数类型)
return 返回值类型
is
  变量声明；
begin
  逻辑体；
  return 结果；
end;

create or replace function abs_bak(p_num number)
return number
is
begin
  return replace(p_num, '-');
end;

create or replace procedure 过程名(入参名 参数类型)
is
  变量声明；
begin
  -- 数据同步、清洗、处理流程
end;

create or replace procedure p_001
is
begin
  delete from h_sal_emp;
  insert into h_sal_emp
  select deptno, max(sal) from emp group by deptno;
  commit;
end;

begin
  p_001;
end;

create or replace procedure p_002(c_job varchar2)
is
begin
  delete from emp_j where job = c_job;
  insert into emp_j select * from emp where job = c_job;
  commit;
end;

-- 实现 elim 函数：删除字符串中第一次出现的指定字符
-- 示例：elim('a-b-c', '-') → 'ab-c'

-- 创建表 t_number(id number)
-- 创建过程 p_004(x)，将比 x 小的所有奇数插入 t_number

create table t_number(
id number
);
commit;
create or replace procedure p_004(x number)
      is
      begin
        -- 清空表格
        delete from t_number;
        commit;
        -- 或者使用 truncate（更高效，但无法回滚）
        -- execute immediate 'truncate table t_number';
        for i in 1..x-1 loop
            if mod(i,2)=1
            then
            insert into t_number(id) values (i);
            end if;
        end loop;
        commit;
      end;
-- 调用存储过程
begin
p_004(100);
end;
select * from t_number;

create or replace procedure 过程名(参数)
is      -- 或 as，必须存在，不能省略
begin
    -- 过程体
end;
/

-- 使用 is
create or replace procedure p_004(x number) 
is
begin
    -- 逻辑
end;
-- 使用 as（同样正确）
create or replace procedure p_004(x number) 
as
begin
    -- 逻辑
end;

-- 错误示范（缺少 is/as）
create or replace procedure p_004(x number)  -- 编译错误！
begin
    null;
end;