if x=?PRESIDENT? then
delete from emp where empno=remove_empno and job=?MANAGER?; else
delete from emp where empno=remove_empno and deptno=y and x=?MANAGER?; end if
if sql%found then out_code:=0; out_desc:=?ok?; else
out_code:=1;
out_desc:=?未删除记录?; end if; commit; end;
4． *用DELPHI＋ORACLE实现上题的软件功能。
实验十
1． 编写一段PL/SQL，利用系统工具包，实现对SERVER端数据文件D:\\DATA\\A.TXT的
读取输出至缓冲区。
2． 编写一个存储过程，就myEMP表，输入参数为字段名和匹配值（字符型），对符合匹配
条件的工资加100。
3． 编写一个存储过程，输入参数为一个表名，通过存储过程处理将该表删除DROP，并返
回是否成功的信息。
实验十一
1． 以雇员作为对象类型，试根据myEMP表结构设计其属性，方法主要有雇员更换部门、
更换工种、MAP排序的定义。
2． 编制一个雇员类型的对象表myOBJ_EMP。 3． 添加对象表myOBJ_EMP的数据10条。 4． 试对对象表排序输出。
5． 给对象表中部门号为20的记录的工资增加10％。 6． 显示每个雇员所在的雇员名、部门名称。