Oracle（21）pl/sql编程语法、变量

￡神魔★判官ぃ 2024-02-17 21:02 64阅读 0赞

pl/sql的数据类型分为：标量类型（scalar）、复合类型（composite）、参照类型（reference）、lob（large object）

### —————————————————————– ###

①标量

v_ename varchar2(10);
    v_sal number(6,2);
    ---设定一个初始值
    v_sal2 number(6,2):=5.4;  ----:=是pl/sql的赋值号
    v_hiredate date;
    v_valid boolean:=false;
    v_ename emp.ename%type; ---为了使v_ename的类型更加灵活，使用%type

②实例

create or replace procedure pro1(v_in_empno in number) is
    --定义变量
    v_tax_rate number(3,2):=0.03;
    v_sal number;
    --v_ename varchar(32);
    v_ename emp.ename%type; ---为了使v_ename的类型更加灵活，使用%type
    v_tax number;
    begin
      select ename, sal into v_ename, v_sal from emp where empno=v_in_empno;
      --计算个人所得税
      v_tax:=v_sal*v_tax_rate;
      dbms_output.put_line(v_ename || '工资是='||v_sal || '个人所得税是：'||v_tax);
    end;

### —————————————————————– ###

①复合变量：用于存放多个值的变量，常用的包括：pl/sql记录，pl/sql表  
pl/sql记录类似于高级语言中的结构体，当引用pl/sql记录成员时，必须要加记录变量作为前缀（记录变量.记录成员）。  
pl/sql表相当于高级语言中的数组，不同的是pl/sql中表的下标可以为负数，并且表元素的下标没有限制。  
②实例

-----------------pl/sql记录--------------------------
    create or replace procedure pro1(v_in_empno in number) is
    --定义记录
    type my_emp_record is record(
         v_ename emp.ename%type,
         v_sal emp.sal%type,
         v_job emp.job%type
    );
    --定义一个变量
    v_emp_record my_emp_record;
    
    begin
      select ename, sal, job into v_emp_record from emp where empno=v_in_empno;
      dbms_output.put_line(v_emp_record.v_ename || '工资是='||v_emp_record.v_sal || '工作是：'||v_emp_record.v_job);
    end;
    -----------------pl/sql表--------------------------
    create or replace procedure pro1(v_in_empno in number) is
    --定义表 通过integer索引
    type my_table_type is table of emp.ename%type index by binary_integer;
    --定义一个变量
    v_table my_table_type;
    
    begin
      select ename into v_table(-1) from emp where empno=v_in_empno;
      dbms_output.put_line('员工名：'|| v_table(-1));
    end;

### —————————————————————– ###

①参照变量  
指用于存放数值指针的变量，通过使用参照变量，可以使得应用程序共享相同的对象，从而降低占用的空间。在编写pl/sql程序时，可以使用游标变量（ref cursor）和对象类型变量（ref obj\_type）两种参照变量类型；  
游标变量：通过游标，我们可以取得返回**结果集**（这个结果集往往是select语句的结果）的任意一条数据，从而提高共享的效率。  
②实例

-----------------游标变量-- 1 ----------------------
    create or replace procedure pro1 is
    --定义游标变量类型
    type my_emp_cursor is ref cursor;
    --定义一个游标变量
    v_emp_cursor my_emp_cursor;
    --定义两个变量
    v_ename emp.ename%type;
    v_sal emp.sal%type;
    begin
      --打开游标
      open v_emp_cursor for select ename, sal from emp;
    
      loop
        --取出游标指向的每行数据，用循环语句
        fetch v_emp_cursor into v_ename,v_sal;
        --判断当前游标是否到达最后
        exit when v_emp_cursor%notfound;
        --输出
        dbms_output.put_line('用户名 ' || v_ename || ' 薪水 :' || v_sal);
      end loop;
      --关闭游标
      close v_emp_cursor;
    end;
    -----------------游标变量--- 2 --------------------
    -- 给sal小于200的员工，增加100
    create or replace procedure pro1 is
    --定义游标变量类型
    type my_emp_cursor is ref cursor;
    --定义一个游标变量
    v_emp_cursor my_emp_cursor;
    --定义两个变量
    v_empno emp.empno%type;
    v_ename emp.ename%type;
    v_sal emp.sal%type;
    begin
      --打开游标
      open v_emp_cursor for select empno, ename, sal from emp;
      loop
        --取出游标指向的每行数据，用循环语句
        fetch v_emp_cursor into v_empno,v_ename,v_sal;
        --判断当前游标是否到达最后
        exit when v_emp_cursor%notfound;
        --输出
        --dbms_output.put_line('用户名 ' || v_ename || ' 薪水 :' || v_sal);
        if v_sal<200 then
          update emp set sal=sal+100 where empno=v_empno;
        end if;
      end loop;
      --关闭游标
      close v_emp_cursor;
    end;