5.11.txt

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

DECLARE
  CURSOR emp_cursor IS SELECT employeename,sal FROM employee
  WHERE departmentno='008';
  emp_record emp_cursor%ROWTYPE;--定义游标类型的记录变量
BEGIN
  IF NOT emp_cursor%ISOPEN THEN
     OPEN emp_cursor;
  END IF;
  LOOP 
    FETCH emp_cursor INTO emp_record;
    EXIT WHEN emp_cursor%NOTFOUND;
    dbms_output.put_line('雇员名：'||emp_record.employeename||',雇员工资'||emp_record.sal);
  END LOOP;
  CLOSE emp_cursor;
END;