请问如何修改客户端登录时的界面呢？**

huixiangtao

请问如何修改客户端登录时的界面呢？另外菜单是否可以改成横向排列的形式，如把下图的协同平台，资产管理等改成横排，如一般的程序一样排的菜单?

jiahaiming

登录界面是指登录对话框吗？
系统空间\简洁风格\界面库\窗体库\系统登录对话框

修改菜单比较麻烦
需要楼主自己改系统主窗体了
系统空间\简洁风格\界面库\窗体库\标准风格主窗体

huixiangtao

谢谢，客户的要求更多,他们觉得图上的协同平台，资产管理等菜单太占地方，想做成横排的。可能是改成传统的方式把菜单显示出来，比如有一个菜单叫做资产管理，或放在工具栏上，这样是他们的想法。
我看了一下
系统空间\简洁风格\界面库\窗体库\标准风格主窗体

但是你们原来功能上单击菜单，比如单击资产管理\资产申请菜单，的响应代码是怎么写的呢？它实现了调用资产申请功能及使资产申请的窗体出现在x3客户界面合适的位置。我想参考一下,

huixiangtao

怎么没有人回答了呢？

我想问一下让功能界面出现x3客户界面合适的位置是怎么实现的？我加了一个菜单资产申请，代码如下，但是窗体会出现在x3外面，我想让它出现在正确的位置
procedure TSTANDARDSTYLEMAINFORM.N22Click(Sender: TObject);
var
  lBizClassURL:TBizClassURL;
  lFunc:TFunc;

begin
  lBizClassURL:=TBizClassURL.Create;
  try    lBizClassURL.BizURL.URL:='Biz:SCGATXXGLPTCGLXTCSQ.FUNC';
    lFunc:=Context.GetBizObject(lBizClassURL) as TFunc;
    lFunc.Run('');//这句该如何写呢，使它出现在x3正确的位置上
   lFunc.MainForm.Show;
  finally
    lBizClassURL.Free;
  end;
end;

alang

用 SystemCore.TSystemCore.FuncManager.RunFunc 方法来运行功能，不要用功能代理

huixiangtao

我代码改为：
procedure TSTANDARDSTYLEMAINFORM.N22Click(Sender: TObject);
begin
     SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\SCGATXXGLPT\ZCGLXT\ZCSQ.FUNC', '', nil, False);
end;

但是客户端运行时，当前环境链中,隔离级为[PERSON]的不存在
请问如何做呢？

lixy

用这个函数运行功能
procedure TSTANDARDSTYLEMAINFORM.UIRunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean);

alang

用Context做环境肯定不行，这个环境是在全局环境下的系统初始化功能的环境，没有人员环境
用SystemCore.TSystemCore.Operator.Positions[0].Context

lixy

楼主自己在组织机构上分配的功能，是在岗位环境底下。传8楼的环境

huixiangtao

谢谢，大家哈。改用SystemCore.TSystemCore.Operator.Positions[0].Context后不出"当前环境链中,隔离级为[PERSON]的不存在"错误了。
但是又有新问题，若是一个没有分配功能权限的人登录时会出错，如图。但是还是能够使用菜单。
所以菜单要根据不同人员的功能权限，显示不同的菜单，
若是这样则要得出某人员所具有的功能，请问是怎么样得到呢？

错误的图如下，是因为没有分配功能权限的人登录时引起的吧？，好解决不？