5.15.txt

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

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;