5.13.txt

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

DECLARE
  CURSOR emp_cursor(no VARCHAR2) IS
    SELECT employeename FROM employee WHERE departmentno=no;
    v_ename employee.employeename%TYPE;
BEGIN
  IF NOT emp_cursor%ISOPEN THEN
    OPEN emp_cursor('008');
  END IF;
  LOOP
    FETCH emp_cursor INTO v_ename;
    EXIT WHEN emp_cursor%NOTFOUND;
    dbms_output.put_line('雇员名：'||v_ename);
  END LOOP;
  CLOSE emp_cursor;
END;