几十个实用的PL/SQL(3)

              vemp(i).mgr:=x.mgr;

              vemp(i).hiredate:=x.hiredate;

              vemp(i).sal:=x.sal;

              vemp(i).comm:=x.comm;

              vemp(i).deptno:=x.deptno;

              i:=i+1;

       END LOOP;

--     FOR j IN 1..i-1

--     LOOP

--            DBMS_OUTPUT.PUT(vemp(j).empno||''''  ''''||vemp(j).ename||'''' ''''||vemp(j).job);

--            DBMS_OUTPUT.PUT(vemp(j).mgr||''''  ''''||vemp(j).hiredate||'''' ''''||vemp(j).sal);

--            DBMS_OUTPUT.PUT_line(vemp(j).comm||''''  ''''||vemp(j).deptno);

--     END LOOP;

       --插入记录

       DBMS_OUTPUT.PUT_LINE(''''插入记录:'''');

       vemp(i).empno:=1000;

       vemp(i).ename:=''''Goldens'''';

       vemp(i).job:=''''Software'''';

       vemp(i).mgr:=null;

       vemp(i).hiredate:=''''2003-01-04'''';

       vemp(i).sal:=8888;

       vemp(i).comm:=10;

       vemp(i).deptno:=10;

       FOR j IN 1..i

       LOOP

              DBMS_OUTPUT.PUT(vemp(j).empno||''''  ''''||vemp(j).ename||'''' ''''||vemp(j).job);

              DBMS_OUTPUT.PUT(vemp(j).mgr||''''  ''''||vemp(j).hiredate||'''' ''''||vemp(j).sal);

              DBMS_OUTPUT.PUT_line(vemp(j).comm||''''  ''''||vemp(j).deptno);

       END LOOP;

上一页  [1] [2] [3] [4] [5] [6]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18