起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 142|回复: 9

【结】qqeqw**

[复制链接]
发表于 2008-4-2 11:09:24 | 显示全部楼层 |阅读模式
我继承了主窗体后,作乐个提示小窗口,想实现和网页弹出的小窗体一样的功能.做到期提醒用,编辑状态下运行正常,可是在business里运行时出现'隔离级'的问题,帮忙看一下

geliji.rar

20.68 KB, 下载次数: 52

回复

使用道具 举报

发表于 2008-4-2 11:26:10 | 显示全部楼层
弹出窗体怎么出来的,没有代码。
另外,为什么继承主界面,没看明白。直接修改不是更简单吗?
回复 支持 反对

使用道具 举报

发表于 2008-4-2 11:27:22 | 显示全部楼层
看看环境链里面的弹出窗体在什么位置,找到岗位那个环境就应该正常了。
回复 支持 反对

使用道具 举报

发表于 2008-4-2 11:40:41 | 显示全部楼层
你把环境贴出来看看
运行平台,运行相关功能后用ctrl+alt+shift+O可以调出环境链,你检查看下
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-2 12:02:33 | 显示全部楼层

隔离级

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

geliji.rar

23.58 KB, 下载次数: 52

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-2 12:05:19 | 显示全部楼层

隔离级

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

a.gif

26.84 KB, 下载次数: 87

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-2 12:07:25 | 显示全部楼层
隔离级  有些未指定,有些为全局
回复 支持 反对

使用道具 举报

发表于 2008-4-2 13:21:55 | 显示全部楼层
应该是SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent,'', url, ID, nil, False);
这句代码传入的环境有不对。

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

试试传入 SystemCore.TSYSTEMCORE.Operator.Context
或者SystemCore.TSYSTEMCORE.Operator.DefaultPosition.Context
回复 支持 反对

使用道具 举报

发表于 2008-4-2 13:43:03 | 显示全部楼层
标准风格主窗体的创建事件里写:
  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函数调用功能。注释掉的那句应该也不会报错,但这种方式更好些。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-2 14:30:38 | 显示全部楼层

问题已解决

谢谢,各位
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-9 21:04 , Processed in 0.042790 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表