【结】急！登陆时岗位只能抓到岗位和名字，抓不到部门**

alang

你做一个功能，在主窗体上放三个控件  TEdit  TMemo  TButton
或者，你把下面内容复制，然后到功能主窗体上粘贴
object Edit1: TEdit
  Left = 144
  Top = 88
  Width = 121
  Height = 20
  TabOrder = 0
  Text = 'Org:\ROOT\JG1.OGN\BM1.DPT\GW1.PTM\RY6.psm'
end
object Memo1: TMemo
  Left = 120
  Top = 192
  Width = 344
  Height = 224
  Lines.Strings = (
    'Memo1')
  TabOrder = 1
end
object Button1: TButton
  Left = 432
  Top = 120
  Width = 75
  Height = 25
  Caption = 'Button1'
  TabOrder = 2
  OnClick = Button1Click
end

alang

在Uses中增加 Business.Mode, Business.Model.Org
然后在TButton的OnClick事件中，写以下代码
procedure TMainForm.Button1Click(Sender: TObject);
var
  lBizURL: TBizURL;
  lUnit: TOrgUnit;
  I: Integer;
begin
  Memo1.Lines.Clear;
  lBizURL := TBizURL.Create;
  lBizURL.URL := Edit1.Text;
  lUnit := Business.Model.Org.OrgSys.OrgSystem.FindUnit(lBizURL);
  while lUnit<>nil do
  begin
    Memo1.Lines.Add('ID='+lUnit.ID+';DislpayName='+lUnit.DisplayName);
    Memo1.Lines.Add(lUnit.Attribute.Text);
    Memo1.Lines.Add('');

    lUnit := lUnit.Parent;
  end;
end;

alang

执行这个功能，在Edit1上写不能正常显示的人员的BizURL，例如：Org:\ROOT\JG1.OGN\BM1.DPT\GW1.PTM\RY6.psm
然后点Button1，看看Memo1中显示的内容，把内容贴上来看看

dragonsoft

先提醒一下，系统中所有建的人员都是一样的情况，登陆时抓不到部门。以下是memno1的内容：

ID=000620;DislpayName=胡晓崇
CREATETIME=00000000200801291332380453000000
DISPLAYNAME=胡晓崇
LASTWRITETIME=00000000200801291332380453000000
SIZE=00000000000000000000000000000000


ID=BAMJ;DislpayName=办案民警
CREATETIME=00000000200801291332370156000000
DISPLAYNAME=办案民警
FLAG=11000000000000000000000000000000
LASTWRITETIME=00000000200801291332370156000000
SIZE=00000000000000000000000000000000


ID=350000240500;DislpayName=


ID=350000240000;DislpayName=


ID=350000000000;DislpayName=

alang

看看组织机构系统表和组织机构属性表中的FclientAccount字段有几个值？

alang

select distinct fclientaccount from torgsystem

select distinct fclientaccount from torgattribute

alang

请提供以下表的数据给support@justep.com
torgsystem
torgattribute
torgcontent
torgindex
tdept
tposition
tperson

dragonsoft

已发，7张表导成dmp，请查收

alang

收到，明天会进一步跟踪这个问题的

dragonsoft

问题跟踪的啥样了?