Oracle中，接收用户输入的部门编号，用for循环和游标，打印出此部门的所有雇员的所有信息(使用循环游标)

在Oracle中，如果你想接收用户的部门编号，然后通过for循环结合循环游标（也称为递归游标）来遍历这个部门下的所有雇员信息，可以按照以下步骤操作：

首先，定义一个递归游标，它会在每次循环中检查当前部门是否有子部门，如果有的话，继续向下查询：

CREATE OR REPLACE TYPE dept_tree AS OBJECT (
    id NUMBER,
    name VARCHAR2(100),
    children DEPT_TREE COLLECTION OF dept_tree
);

CREATE OR REPLACE FUNCTION get_dept_employees(p_dept_id IN NUMBER) RETURN dept_tree pipelined;

接着，在PL/SQL中实现函数：

BEGIN
  FOR cur_rec IN (SELECT id, name, level AS depth
                  FROM departments
                  START WITH id = p_dept_id
                  CONNECT BY PRIOR id = parent_id)
  LOOP
    PIPE ROW (dept_tree(id => cur_rec.id, name => cur_rec.name, children => get_dept_employees(cur_rec.id)));
  END LOOP;

  RETURN;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    RETURN;
END get_dept_employees;

现在，用户可以调用这个函数并获取部门信息：

DECLARE
  dept_dept_tree dept_tree;
BEGIN
  -- 获取部门编号，例如从用户输入或环境变量中获取
  INPUT_NUMBER := &1; -- 用户输入的部门编号

  -- 调用函数并打印结果
  FOR dept_rec IN dept_dept_tree LOOP
    DBMS_OUTPUT.PUT_LINE('Department ID: ' || dept_rec.id);
    DBMS_OUTPUT.PUT_LINE('Department Name: ' || dept_rec.name);
    
    -- 遍历子部门
    FOR child_rec IN dept_rec.children LOOP
      DBMS_OUTPUT.PUT_LINE('Child Department ID: ' || child_rec.id);
      -- 输出子部门的雇员信息...
    END LOOP;
  END LOOP;
  
  EXCEPTION
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('Error: ' || SQLERRM);
END;
/

在这里，用户需要提供部门编号作为输入，程序会递归地打印整个部门树及其雇员的信息。