OrgComboBox的选择控制？？**

atiger · 发表于 2007-5-15 16:01:39

能把你原始的需求说出来听听，好让我们结合平台给出最佳方案

dupit · 发表于 2007-5-15 16:33:16

主要实现如图的，选择人员登陆功能。

atiger · 发表于 2007-5-15 17:59:51

现在这个控件有问题，不能实现只能选择人员成员才能收列表。

atiger · 发表于 2007-5-21 10:19:12

？？

dupit · 发表于 2007-5-21 18:21:25

能给出其他的实现方法吗?客户要求,比较急!!!

dupit · 发表于 2007-5-22 12:57:59

自己顶

atiger · 发表于 2007-5-22 14:57:48

不是太明白，出于啥原因要这么选择呢？直接输入不好吗？且如果组织机构中很多的人，选择肯定没有直接输入的方便。

当然，控件本身有问题，也是一方面，但我觉得这样做的意义不大，
要不就这样，输入后，如果不是选择人员成员，你给用户一个提示，告知只能选择人员成员，否则不能登录，你看这样行不？

dupit · 发表于 2007-5-22 18:05:05

但客户要求要选择的方式.没办法!
你们看看能不能几个控件组合实现?

dupit · 发表于 2007-5-23 12:17:47

顶下

atiger · 发表于 2007-5-23 15:36:02

现在没有更好的方法，其他的控件应该满足不了需要，例如用 OrgTreeView ，是可以控制只能选择人员成员，其他的节点选不中，但这个控件不是下拉的，跟你的表现又不一致。目前的方法就是当用户选择了非人员成员给用户一个提示，告知需要选择人员成员，参考代码
procedure TMainForm.OrgComboBox1CloseUp(Sender: TObject; Accept: Boolean);
begin
if OrgComboBox1.BizTreeView.SelectedNode.ObjectKind = '.psm' then
dialogs.showmessage('ok')
else
dialogs.showmessage('No');
end;

如果用OrgTreeView来控制，参考代码
procedure TMainForm.OrgTreeView1Changing(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean);
var
  lOrgUnit: Org.TOrgUnit;
  lID, lName, lKind, lStr: String;
begin
caption :=SysUtils.IntToStr(Node.Level);
lOrgUnit := Org.OrgSys.OrgSystem.GetUnit(TBizNode(Node.Data).BizURL);
if  TBizObjectKind(lOrgUnit.OrgKind) = TBizObjectKind.boPersonMember then
AllowChange := true
else
AllowChange :=False;
end;

这两个方法你们权衡一下，采用哪个更好，因为等我们解决缺陷也不现实，我也跟杨卫春沟通过了，已经达成一致了，先采用一些手段实现一些，等缺陷解决后，我们主动通知你们

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