【安博培训笔记】Oracle5 使用 PL/SQL 作业20130911

Oracle5 使用 PL/SQL 作业

不熟练：

to_date('2001-09-11','yyyy-mm-dd')

select *  from dual;

dbms_output.put_line(empinfo.empno||empinfo.ename);

一、完成以下PL/SQL

1.  求半径2米，高3米的圆柱体体积。

declare

    tiji number;

begin

    tiji := 2*2*3.14*3;

    dbms_output.put_line('圆柱的体积为：'||tiji);

end;

declare

    r number:=2;

    h number:=3;

    p number:=3.14;

    area number;

begin

    area:=p*r*r*h;

    dbms_output.put_line('体积为：'||area);

end;

2.  求字符串‘abcdefg’的长度。

declare

    len number;

begin

    len := length('abcdefg');

    dbms_output.put_line('字符串abcdefg的长度为：'||len);

end; 

declare

   len number;

begin

    select length('abcdefg') into len from dual;

    dbms_output.put_line('字符串的长度为：'||len);

end;

@3.  显示pubs数据库中所有作家的au_lname的开头两个字母，大写显示。（字符函数） 

use pubs go select upper(left(au_lname,2)) from authors;

declare

    cursor cur is select au_lname from pubs;

    str pubs.au_lname%type;

begin

    open cur;

    loop

    fetch cur into str;

    str:= upper(substr(str,1,2));

    dbms_output.put_line(str);

    exit when cur%notfound;

    end loop;

end;

4.  取字符串‘abcdefg’的第2到第5个字母。（字符函数）

declare

    v_string varchar2(10);

begin

    v_string := substr('abcdefg',2,4);

    dbms_output.put_line(v_string);

end;

declare

   otherStr varchar2(4);

begin

   select substr('abcdefg',2,4) into otherStr from dual;

   dbms_output.put_line(otherStr);

end;

5.  计算2001年9月11日到今天已经多少天了。（日期函数） 

declare 

    day number;

begin

    day := trunc(sysdate - to_date('2001-09-11','yyyy-mm-dd'));

    dbms_output.put_line(day);

end;

declare

   days number;

begin

   select trunc(sysdate-to_date('2001-09-11','yyyy-mm-dd')) into days from dual;

   dbms_output.put_line('距离2001年9月11日到今天'||days||'天');

end;

6.  查询emp表，找出编号为7395的记录，如果名字为SCOTT 显示“找到了”否则显示“没找到”。（if语句）

declare

  scottinfo emp%rowtype;

begin

  select * into scottinfo from emp where empno=7395;

  if(scottinfo.ename = 'SCOTT') then    

     dbms_output.put_line('找到了');

    else

     dbms_output.put_line('没找到');

   end if;

exception

  when no_data_found then

    dbms_output.put_line('没有找到员工');

end;

@7.  编写一个程序，用以接受用户输入的数字。将该数左右反转，然后显示反转后的数

    提示：使用循环控制结构.

declare

  shuzi varchar2(20);

  len   number;

begin

  shuzi := &shuzi;

  len   := length(shuzi);

  for i in reverse 1 .. len loop

    dbms_output.put(substr(shuzi, i, 1));

  end loop;

  dbms_output.put_line('');

end;

declare

  v_char1 varchar2(100);

  v_char2 varchar2(100);

  v_c char(1); 

begin

  v_char1 :='&no';

  dbms_output.put_line('输入的数据为:'||v_char1);

  for i in reverse 1..length(v_char1)

  loop   

      v_c := substr(v_char1,i,1);    

      v_char2 := v_char2 ||v_c;

  end loop;

  dbms_output.put_line('反转后的数字为:'||v_char2);

end;

8.  编写一个程序，在emp表中根据empno查询职员信息。如果代码引发NO_DATA_FOUND异常，则显示一则消息.

select * from emp where empno = &empno;

declare

  empinfo emp%rowtype;

begin

  select * into empinfo from emp where empno = '&empno';

  dbms_output.put_line(empinfo.empno||empinfo.ename);

exception

  when no_data_found then

    dbms_output.put_line('没有该职员');

end;

declare

  v_emp   emp%rowtype;

  v_empno emp.empno%type;

begin

  select * into v_emp from emp where empno = &v_empno;

  dbms_output.put_line('编号：' || v_emp.empno || '  姓名：' || v_emp.ename ||

                       '     职位：' || v_emp.job || '    上级领导编号:' ||

                       v_emp.mgr || '     雇佣日期:' || v_emp.hiredate ||

                       '      工资:' || v_emp.sal || '     奖金:' ||

                       v_emp.comm || '  部门：' || v_emp.deptno);

exception

  when no_data_found then

    dbms_output.put_line('没找到此员工');

end;   

       

9.  编写一个程序，用以接受用户输入的DEPTCODE，并从employee表中检索该雇员的EMPNO。如果代码引发TOO_MANY_ROWS异常，则显示消息“返回多行”.

select * from emp;

declare

   scottinfo emp.empno%type;

begin

   select empno into scottinfo from emp  where deptno = '&deptno';

exception

    when too_many_rows then

       dbms_output.put_line('返回多行');

end;

declare

   scottinfo employee.empno%type;

begin

   select empno into scottinfo from employee  where deptcode = '&deptcode';

exception

    when too_many_rows then

       dbms_output.put_line('返回多行');

end;

declare

  v_empno    emp.empno%type;

  v_deptno   emp.deptno%type;

begin

  select empno into v_empno from emp where deptno = &v_deptno;

  dbms_output.put_line(v_empno);

exception

  when too_many_rows then

    dbms_output.put_line('返回多行');

end;

declare

  v_empno    employee.empno%type;

  v_deptcode employee.detcode%type;

begin

  select empno into v_empno from employee where deptcode = &v_deptcode;

  dbms_output.put_line(v_empno);

exception

  when too_many_rows then

    dbms_output.put_line('返回多行');

end;

关于dual

1. dual 确实是一张表.是一张只有一个字段,一行记录的表. 

2.习惯上,我们称之为'伪表'.因为他不存储主题数据.

3. 他的存在,是为了操作上的方便.因为select 都是要有特定对象的.

如:select * from mytable ;

select * from myview;

等等.

但如果我们不需要从具体的表来取得表中数据,而是单纯地为了得到一些我们想得到的信息,并要通过select 完成时,就要借助一个对象,这个对象,就是dual;

如我们要计算 999*999 的值,可以用:

select 999*999 from dual;

来实现;

要拼接一个电话信息:

select concat('010-','88888888')||'转23' 高乾竞电话 from dual;

就变成了我们想要的格式输出.

4.当然,我们不一定要dual ,也可以这样做.例如:

create table mydual( dummy varchar2(1));

也可以实现和dual 同样的效果:

select 999*999 from mydual;

不过,dual 我们都用习惯了,就无谓自己再搞一套了.