Question

如何根据递归部门树，查询部门（包括所有子部

Answer 1

方法一:
Form的
private
FDeptList: TList;

用个循环
for I:=0 to ADataSet.RecordCount-1 do
FDeptList.Add(TDept.Create(ADataSet.FieldValues['DeptID']))

然后显示员工姓名的时候.
遍例FDeptList的每个元素. 如果DeptID>ParentID(反正就是判断一下,具体怎么判断看着办吧)
就调用showEmpName方法.

方法二:
TDept类有一个FDeptList,来维护自己的下级部门. 递归调用FDeptList的每个元素的showEmpName方法.

可以参考设计模式中的装饰者或类似模式.