5.53.txt

来自「delphi renyuanguanlixinxioxitong」· 文本 代码 · 共 17 行

 DECLARE
   TYPE empcurtyp IS REF CURSOR;
   emp_cv empcurtyp;
   emp_record employee%ROWTYPE;
   sql_stat VARCHAR2(100);
 BEGIN
   sql_stat:='SELECT * FROM employee WHERE departmentno=:dno';
   OPEN emp_cv FOR sql_stat USING &dno;
 LOOP
    FETCH emp_cv INTO emp_record;
    EXIT  WHEN emp_cv%NOTFOUND;
    dbms_output.put_line('员工：'||emp_record.employeename||'的工资为：'||emp_record.sal);
 END LOOP;
 CLOSE emp_cv;
 END;