5.15.txt

delphi renyuanguanlixinxioxitong

DECLARE
  CURSOR emp_cursor IS SELECT departmentno FROM employee FOR UPDATE;
  v_deptno employee.departmentno%TYPE;
BEGIN
  OPEN emp_cursor;
  LOOP
    FETCH emp_cursor INTO v_deptno;
    EXIT WHEN emp_cursor%NOTFOUND;
    IF v_deptno='003' THEN
      DELETE FROM employee WHERE CURRENT OF emp_cursor;
    END IF; 
  END LOOP;
  CLOSE emp_cursor;
END;