【搞定】[请求]变量传递？？？？？**

dupit · 发表于 2007-4-1 22:33:16

在同一个业务信息下，有多个表单，
现在有这样得需求，
就是将其中的一个表单中的一个信息利用参数变量来传递给其他各表单使用，
该如何解决！？
各位帮帮忙，急用啊！

jiahaiminghr · 发表于 2007-4-2 08:45:48

1、使用业务参数，并设置相应的信息隔离级

2、如果是在同一个功能中使用，可以在信息中定义变量，在文档中访问

dupit · 发表于 2007-4-2 08:54:30

具体怎么做？能给个代码吗？详细点，谢谢了

dupit · 发表于 2007-4-2 08:59:06

变量是在FormDoc之间引用的哦！

jiahaiminghr · 发表于 2007-4-2 09:02:13

1、参数 http://bbs.justep.com/forum.php?mod=viewthread&tid=3492

2、信息类(TMyInfo)中定义变量FParam
文档中放置信息代理控件（一般系统向导会自动放置的），代码调用
TMyInfo(Infobroker.info).Fparam := '';

dupit · 发表于 2007-4-2 09:13:14

呵呵，还是不怎么懂！业务参数和全局变量相同的吗？我想用的是全局变量，在FormDoc之间传递！

jiahaiminghr · 发表于 2007-4-2 09:18:55

你只要把参数组的隔离级设置成“全局”，它就等同于一个全局变量。

dupit · 发表于 2007-4-2 09:22:40

先用用看，谢谢大家帮助

jiahaiminghr · 发表于 2007-4-2 09:25:51

有结果请及时反馈。

dupit · 发表于 2007-4-2 12:33:34

最初由 jiahaiminghr 发布
[B]1、参数 http://bbs.justep.com/forum.php?mod=viewthread&tid=3492

2、信息类(TMyInfo)中定义变量FParam
文档中放置信息代理控件（一般系统向导会自动放?.

以下省略...... [/B]

为什么我建立这个信息类以后赋值给他就永远保持不变了呢？
  private
{private declarations}
function GetInfo: JHGLZXXX.TJHGLZXXX;
  public
{public declarations}
property Info: JHGLZXXX.TJHGLZXXX read GetInfo;
  end;

function TJHZXM.GetInfo: TJHGLZXXX;
begin
  Result := (InfoBroker.Info as TJHGLZXXX);
end;

procedure TJHZXM.dtlstXMListChangeNode(Sender: TObject; OldNode, Node: TTreeListNode);
begin
  TMyInfo(Infobroker.info).Fparam := DataSetBroker_XMList.DataSet.FieldByName('GZDXH').AsString;
  info.DataSetWDZLSJJ.Filtered:= false;
  info.DataSetWDZLSJJ.Filter := 'GZDXH='
                  +Business.System.SysUtils.QuotedStr(TMyInfo(Infobroker.info).Fparam);
  info.DataSetWDZLSJJ.Filtered := True;
end;

我是希望能够把GZDXH传给他，然后过滤出文档的相应资料，但是在运行以后TMyInfo(Infobroker.info).Fparam不会改变了！

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