声明 变量、常量、记录类型、索引表类型（关联数组）、varray变长数组并进行赋值使用

(1)声明变量
–声明变量
declare
luck varchar2(30) ; – 此处没有赋值
ase number := 100 ; – 定义一个变量同时赋值
begin
dbms_output.put_line(‘luck的内容〖’ || luck || ‘〗’) ;
end;
结果：

（2）声明常量
–声明常量
declare
outcome constant number not null := 39 ; – 定义一个常量同时赋值
begin
dbms_output.put_line(‘outcome常量内容：’ || (outcome) ) ;
end;
结果：

（3）声明记录类型
–纪录的创建
declare
type type_1 is record (v_1 varchar2(100));
type t_record is record
(
firstcode varchar2(100),
firstname varchar2(100),
secondcode varchar2(100),
secondname varchar2(100)
);
–记录类型变量的声明
declare
type type_1 is record (v_1 varchar2(100));
type t_record is record
(
firstcode varchar2(100),
firstname varchar2(100),
secondcode varchar2(100),
secondname varchar2(100)
);
–记录类型变量的声明
v_record t_record;
cursor c1 is select FIRSTCODE,FIRSTNAME,SECONDCODE,SECONDNAME from (
select ‘AAA’ FIRSTCODE,‘交班记录’ FIRSTNAME,‘EM000_07_01’ SECONDCODE,‘主诉’ SECONDNAME from dual
union all
select ‘BBB’ FIRSTCODE,‘交班记录’ FIRSTNAME,‘EM000_07_02’ SECONDCODE,‘入院情况’ SECONDNAME from dual
union all
select ‘CCC’ FIRSTCODE,‘交班记录’ FIRSTNAME,‘EM000_07_03’ SECONDCODE,‘入院诊断’ SECONDNAME from dual
union all
select ‘DDD’ FIRSTCODE,‘交班记录’ FIRSTNAME,‘EM000_07_04’ SECONDCODE,‘诊疗经过’ SECONDNAME from dual
);
v_count number:=0;
begin
open c1;
loop
v_count:=v_count+1;
–记录类型变量值得填充
fetch c1 into v_record;
–记录成员的访问
dbms_output.put_line(‘FIRSTCODE是：’||v_record.firstcode||’,SECONDCODE是：’||v_record.SECONDCODE);
if v_count>3 then
v_record.firstcode:=‘EEE’;
v_record.SECONDCODE:=‘EM000_07_05’;
end if;
–使用记录更新数据
–update test set row=v_record;
–使用记录插入数据
–insert into test values(v_record.firstcode,v_record.firstname,v_record.secondcode,v_record.secondname);
exit when v_count=5;
end loop;
end;
结果：

(4) 声明索引表类型（关联数组）
–声明索引表类型（关联数组）
declare
type type_table is table of varchar2(30) index by binary_integer;
v_table type_table;
begin
v_table(10):=‘EM000_07_04’;
v_table(-10):=‘EM000_07_01’;
dbms_output.put_line(‘元素个数为：’||v_table.count);
v_table(-1):=‘EM000_07_02’;
dbms_output.put_line(‘第一个元素为：’||v_table.first);
dbms_output.put_line(‘最后一个元素为：’||v_table.last);
dbms_output.put_line(‘元素个数为：’||v_table.count);
end;
结果：

(5) 声明varray变长数组并进行赋值使用
declare --定义一个最多保存5个VARCHAR(25)数据类型成员的VARRAY数据类型
type reg_varray_type is varray(5) of varchar(25);–声明一个该VARRAY数据类型的变量
v_reg_varray reg_varray_type;
begin --用构造函数语法赋予初值
v_reg_varray :=reg_varray_type (‘中国’, ‘美国’, ‘英国’, ‘日本’, ‘法国’);
Dbms_Output.put_line(‘地区名称:’||v_reg_varray(2)||’,’||v_reg_varray(3)||’,’||v_reg_varray(4));
Dbms_Output.put_line(‘赋值为null的第5个成员的值：’||v_reg_varray(5));
v_reg_varray(5) :=‘俄罗斯’;
Dbms_Output.put_line(‘赋值为null的第5个成员的值：’||v_reg_varray(5));
end;
结果：