【结贴】如何取得组织机构说明？**

dupit · 发表于 2009-4-14 10:25:30

如下图：有什么函数可以取得当前登录部门的说明。

aDragon · 发表于 2009-4-14 10:51:15

procedure TMainForm.Button4Click(Sender: TObject);
var
  lOrgUnit: Org.TOrgUnit;
  lBizURL: TBizURL;
  lDept : Org.TDept;
  lCommon :string;
begin
  lBizURL :=  TBizURL.Create;
  try
  lBizURL.URL := 'Org:\ROOT\HHM.OGN\DA0.DPT';
  lOrgUnit := Org.OrgSys.OrgSystem.FindUnit(lBizURL);
  lCommon := lOrgUnit.Attribute.ItemValues[1];
//  lCommon := lOrgUnit.Attribute.CommaText;

  jsDialogs.ShowMsg(lCommon,'');

  finally
lBizURL.Free;
  end;
end;

dupit · 发表于 2009-4-20 11:57:26

lCommon := lOrgUnit.Attribute.ItemValues[1];
该值取出来的是名称，不是说明。

dupit · 发表于 2009-4-20 11:58:35

且 lOrgUnit.Attribute.ItemValues[2]; lOrgUnit.Attribute.ItemValues[3];
lOrgUnit.Attribute.ItemValues[4]; lOrgUnit.Attribute.ItemValues[5]; lOrgUnit.Attribute.ItemValues[6];
都是32位的字符串

aDragon · 发表于 2009-4-20 13:04:39

lOrgUnit.Attribute.CommaText是全部的属性值，要不你就从这个串里面截取下

dupit · 发表于 2009-4-20 13:07:49

可以了 lOrgUnit.Attribute.ItemValues[0]; 是说明的值

dupit · 发表于 2009-4-20 13:38:46

结贴

		自动登录	找回密码
密码			立即注册