oralce第四章 %type %rowtype table record 练习题

-- 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