【结】qqeqw**

leafear

我继承了主窗体后,作乐个提示小窗口,想实现和网页弹出的小窗体一样的功能.做到期提醒用,编辑状态下运行正常,可是在business里运行时出现'隔离级'的问题,帮忙看一下

lixy

弹出窗体怎么出来的，没有代码。
另外，为什么继承主界面，没看明白。直接修改不是更简单吗？

lixy

看看环境链里面的弹出窗体在什么位置，找到岗位那个环境就应该正常了。

zfang

你把环境贴出来看看
运行平台，运行相关功能后用ctrl+alt+shift+O可以调出环境链，你检查看下

leafear

我补充了代码
第一次写帖,有点太会用

leafear

回4楼的
联接池里的内容,没发现我的窗体,但有关'到期提醒'的部分都是

leafear

隔离级  有些未指定,有些为全局

jiahaiminghr

应该是SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent,'', url, ID, nil, False);
这句代码传入的环境有不对。

在你的“人力资源/员工基本信息”中用到了环境中的操作员相关信息，但是你传入的是全局环境，导致在run员工基本信息时找不到人员环境而报错。

试试传入 SystemCore.TSYSTEMCORE.Operator.Context
或者SystemCore.TSYSTEMCORE.Operator.DefaultPosition.Context

lixy

标准风格主窗体的创建事件里写：
  tmpform:=TTXCT.Create(context);
    tmpform.a:=self;
提醒窗体代码：
unit TXCT;

interface

uses
  Business.System, Business.Forms;

type
  TTXCT = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    a:TSTANDARDSTYLEMAINFORM;
    {public declarations}
  end;

implementation


procedure TTXCT.Button1Click(Sender: TObject);
begin
  a.UIRunFunc(context,'','Biz:\COLLABORATION\WORKLOGFUNC.FUNC','',false,nil,false);
//SystemCore.TSYSTEMCORE.FuncManager.RunFunc(SystemCore.TSystemCore.Operator.Positions[0].Context,'','Biz:\COLLABORATION\WORKLOGFUNC.FUNC','', nil, False);
end;

主要是为了用  UIRunFunc函数调用功能。注释掉的那句应该也不会报错，但这种方式更好些。

leafear

谢谢,各位