-- 1.给出长和宽求出长方形的面积
declare
v_length number(7,2):=&x;
v_width number(7,2):=&y;
v_area number(9,3);
begin
v_area:=v_length*v_width;
dbms_output.put_line(v_area);
end;
-- 2.使用rowtype，保存部门编号为30的部门信息；
--显示部门编号，和部门名称；
declare
v_dept dept%rowtype;
begin
select * into v_dept from dept where deptno=30;
dbms_output.put_line(v_dept.deptno||'-----'||v_dept.dname);
exception
when no_data_found then dbms_output.put_line('没有这个部门');
end;
-- 3.查询指定编号员工的
--姓名，工资，津贴以及部门名称；（record）
declare
v_empno emp.empno%type:=&e;
type emparray is record(
ename emp.ename%type,
sal emp.sal%type,
comm emp.comm%type,
dname dept.dname%type
);
v_emp emparray;
begin
select e.ename,e.sal,e.comm,d.dname into v_emp
from emp e,dept d where e.deptno=d.deptno
and empno=v_empno;
dbms_output.put_line(v_emp.ename||'--'||v_emp.sal||'--'||v_emp.comm||'--'||v_emp.dname);
end;
-- 4.使用table保存10号和20号部门的部门名称；
declare
type dnamearray is table of dept%rowtype
index by binary_integer;
v_dept dnamearray;
begin
select * into v_dept(1) from dept where deptno=10;
select * into v_dept(2) from dept where deptno=20;
dbms_output.put_line(v_dept(1).dname||'--'||v_dept(2).dname);
end;
-- 5.使用table保存两条部门对象，然后进行插入操作；
declare
type dnamearray is table of dept%rowtype
index by binary_integer;
v_dept dnamearray;
begin
v_dept(1).deptno:=22;
v_dept(1).dname:='云之大陆';
v_dept(1).loc:='冒险岛';
v_dept(2).deptno:=45;
v_dept(2).dname:='风之大陆';
v_dept(2).loc:='金银岛';
insert into dept values(v_dept(1).deptno,v_dept(1).dname,v_dept(1).loc);
insert into dept values(v_dept(2).deptno,v_dept(2).dname,v_dept(2).loc);
end;
select * from dept