[搞定][请求]工作台中的数据如何但击弹出新窗口**

cdz0451 · 发表于 2007-10-30 15:36:20

你给的说明挺好的，不过说实在的我看的不是很明白，我对Dehpi代码不是很熟悉，以前一点都没接触过

zwjcooldd · 发表于 2007-10-30 16:09:23

protected
   procedure DoGridDoubleClick(Sender: TObject);
  public
constructor Create(Acontext:Tcontext);
{public declarations}
  end;

implementation
uses JDXXLR;
procedure TJDCX.DoGridDoubleClick(Sender: TObject);
var f:TJDXXLRForm;
begin
f:=JDXXLR.TJDXXLRForm.Create(self.context);
//f.show;
f.ShowModal;

end;
constructor TJDCX.Create(Acontext:Tcontext);
begin
  inherited;
// YWXX1.TSJWG1(DocView1.doc).DataGrid.OnDblClick
TJDXXLB(DocViewJDGLXX_JDXXLB.Doc).DataGrid.OnDblClick := DoGridDoubleClick;
TLBXXLB(DocViewJDGLXX_LBXXLB.Doc).DataGrid.OnDblClick := DoGridDoubleClick;

end;
也就是直接创建功能下的窗体就行了，我这么做的。

yancm · 发表于 2007-10-30 17:21:13

我的意思如果您想传得参数很简单，可以这样传
TSystemCore.FuncManager.RunFunc(Context, '', 功能URL,'' ,'你的条件'
False, nil, False);

然后在功能处理窗体里面的FormCreate里面
databroker.dataset.close;
databroker.dataset.SqlFilter:=FuncBroker.Func.Parameters;
databroker.dataset.SqlFilter:=true;
databroker.dataset.open;
即可。

你的条件比如可以写成 id=1

cdz0451 · 发表于 2007-10-31 14:09:47

TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\JTTXM\XXCK1.Func','',[TSQLDataSet.FieldByName('FPlanID').AsString],False, nil, False);
这句话我是这样写的，什么地方错了？错误提示：[警告] 循环引用: "Biz:\JTTXM\XXCB\XXSJ.INFO"-->"Biz:\JTTXM\XXCB\XXSJ.Info"
[错误]只能访问类型的静态成员或构造方法

shangxy · 发表于 2007-10-31 14:24:18

参数多了吧？

cdz0451 · 发表于 2007-10-31 14:27:15

多了什么呢AsString？

cdz0451 · 发表于 2007-10-31 14:29:53

没多什么吧，13楼给的公式是这样的啊

lisb · 发表于 2007-10-31 14:41:12

这样
TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\JTTXM\XXCK1.Func',[TSQLDataSet.FieldByName('FPlanID').AsString],False, nil, False);

另外你引用了系统核心库了吗

cdz0451 · 发表于 2007-10-31 14:54:51

系统核心库已经引入试了你给的语句但是还是报一样的错误啊，如果不加,[TSQLDataSet.FieldByName('FPlanID').AsString],这句就没问题

lisb · 发表于 2007-10-31 15:07:18

[TSQLDataSet.FieldByName('FPlanID').AsString]这里应该传一个字符串，不用加中括号

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