【结贴】[请求]怎么取当前登陆者所在部门的全体成员**

Crazy_wen2006

怎么将当前登陆者所在部门的全体成员取到DATAgrid 或者 表格中

jiahaiming

可以用组织机构表达式取。
在代码中调用表达式的方法，可以在论坛上搜索

Crazy_wen2006

取了之后怎么写到DATAgrid中，斑竹给个例子，谢谢

jiahaiming

直接把符合条件的返回值写入到数据集就可以了。

Crazy_wen2006

没弄出来，斑竹给详细点，谢谢

lixy

哪里没弄出来？请详细说说

Crazy_wen2006

var
   lContextCurrent: Business.Model.TContextCurrent;
   CDeptID:string;
  
begin
   lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  try
   cDeptID   := lContextCurrent.Dept.ID;       //当前操作者部门ID
  
   OrgChildren(orgkey('cDeptID','',''),orgcondition('*.psm','',''),true,false);
//  怎么根据当前部门ID取此部门下的所有人员，并将名字显示在datagrid中的一列
   finally
   lContextCurrent.Free;
  end;

jiahaiming

http://bbs.justep.com/forum.php?mod=viewthread&tid=24763

Crazy_wen2006

var
   Os:Business.Model.Org.TOrgSystem;
   olist:Business.Model.Org.TOrgURLs;
   i:integer;
begin
     olist:= Business.Model.Org.TOrgURLs.Create;
     os:=   Business.Model.Org.TOrgSystem.Create;
     os.GetOrgURLsByOrgExpr('OrgChildren(orgkey(''FYHRJSZCB'','''',''''),orgcondition(''*.psm'','''',''''),true,false)',olist);
     for i:=0 to olist.Count-1 do
     begin
          memo1.Lines.add(olist.BizURL.URL);
     end;
     os.free;
     olist.free;
end;

结果：
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\BMLD.PTM\BIANED.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\BMLD.PTM\CHENHB.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\BMLD.PTM\MENGSH.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\BMLD.PTM\ZHANGL.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\BMZL.PTM\DONGP.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\CKBGY.PTM\HUSD.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\CKBGY.PTM\JINY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\CKBGY.PTM\JYY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\CKBGY.PTM\KANGLI.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\CKBGY.PTM\LJJ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\CKBGY.PTM\MENGMJ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\CKBGY.PTM\ZHANGXD.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKBGY.PTM\HUSD.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKBGY.PTM\JINY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKBGY.PTM\JYY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKBGY.PTM\KANGLI.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKBGY.PTM\LJJ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKBGY.PTM\MENGMJ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKBGY.PTM\ZHANGXD.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKZRGCS.PTM\JIANGD.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCK.DPT\CKZRGCS.PTM\JINY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCZYZY.DPT\CZYGCS.PTM\XIEGJ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCZYZY.DPT\CZYGCS.PTM\XUHW.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCZYZY.DPT\CZYGCS.PTM\ZHUX.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRCZYZY.DPT\CZYZRGCS.PTM\ZHANGLEI.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_CHHXZY.DPT\CHTLGCS.PTM\LILX.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_CHHXZY.DPT\CHTLGCS_SX_.PTM\ZHAOYY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_CHHXZY.DPT\CHTLZRGCS.PTM\QIUYS.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_CHHXZY.DPT\HXHBGCS.PTM\CHENXIN.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_CHHXZY.DPT\HXHBGCS.PTM\LIL.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\DQGCS.PTM\BIY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\DQGCS.PTM\LIJZ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\DQGCS.PTM\YUANHP.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\DQZRGCS.PTM\LVJP.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\JDBHGCS.PTM\CAOQ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\JDBHGCS.PTM\MAQ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\JDBHGCS.PTM\ZHAOJL.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\JDBHGCS.PTM\ZHUWB.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\TXGCS.PTM\BIY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_DQZY.DPT\YDGCS.PTM\WANGXH.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_GLZY.DPT\GLGCS.PTM\JIANGBS.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_GLZY.DPT\GLGCS.PTM\LIHS.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_GLZY.DPT\GLGCS.PTM\SUNWD.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_GLZY.DPT\GLGCS.PTM\YANGTQ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_GLZY.DPT\GLZRGCS.PTM\CHENHB.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_GLZY.DPT\GLZRGCS.PTM\LIHS.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_JSJZY.DPT\JSJGCS.PTM\XIW.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_JSJZY.DPT\JSJWHGZS.PTM\LIHY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_JSJZY.DPT\JSJZRGCS.PTM\ZHANGY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_QJZY.DPT\QJGCS.PTM\HUDY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_QJZY.DPT\QJGCS.PTM\SHAOB.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_QJZY.DPT\QJGCS.PTM\XUQ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_QJZY.DPT\QJZRGCS.PTM\YANGCT.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_RKZY.DPT\RGWHGCS.PTM\CHENGP.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_RKZY.DPT\RGWHGCS.PTM\HUANPY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_RKZY.DPT\RGWHGCS.PTM\LIJUN.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_RKZY.DPT\RGWHGCS.PTM\YANYC.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_RKZY.DPT\RKGCS.PTM\FANXW.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_RKZY.DPT\RKGCS.PTM\YAOYY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_RKZY.DPT\RKGCS.PTM\ZHUYH.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_RKZY.DPT\RKZRGCS.PTM\FANXW.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_TJZY.DPT\TJGCS.PTM\HANGH.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRJZ_TJZY.DPT\TJZRGCS.PTM\GUANXX.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRRLZY.DPT\DZH.PTM\GUJ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRRLZY.DPT\DZH.PTM\HANT.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRRLZY.DPT\DZH.PTM\MAXY.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRRLZY.DPT\RLGCS.PTM\DINGH.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRRLZY.DPT\RLGLGCS.PTM\YONGHL.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRRLZY.DPT\RLJLGCS.PTM\SONGQ.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRRLZY.DPT\RLJLGCS.PTM\SUNXC.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\FYHRRLZY.DPT\RLJLGCS.PTM\WANGHC.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\GCBZJL.PTM\ZHANGL.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\GCBZLZJL.PTM\BIANED.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\GCBZLZJL.PTM\CHENHB.psm
Org:\ROOT\0.OGN\FYHRJSZCB.DPT\GCBZLZJL.PTM\MENGSH.psm
我想显示出来名字怎么实现，要写到DATAGRID中这句应该咋么写？谢谢

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=4584
获得名字
TOrgUnit = class(Business.System.TObject)
。。。
constructor create(ABizURL: Business.Model.TBizURL); overload;
   property DisplayName: string;
。。。。