5.17.txt

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

DECLARE
  CURSOR emp_cursor IS SELECT employeename FROM employee
  WHERE  departmentno='008';
begin
  FOR emp_record IN emp_cursor LOOP
     dbms_output.put_line('第'||emp_cursor%rowcount||' 个雇员:'||emp_record.employeename);
  END LOOP;
END;