【结帖】按钮调用

lotus · 发表于 2007-9-4 10:43:20

最初由 jiahaiminghr 发布
[B]8楼的方法是在功能中调用表单文档中的方法。

TJGYSJL是一个表单文档吗？ [/B]

TJGYSJL是一个表单文档。
我想在业务流程的事件中触发该按钮事件。
procedure TXHXZLCT.ProcBeforeFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
DocView7.Doc.button1.click;
end;
请问如何实现啊！

lixy · 发表于 2007-9-4 10:52:33

你用8楼的方法

lotus · 发表于 2007-9-4 11:21:34

试了啊，编译通不过啊，
[警告] 循环引用: "Biz:\NDGL\YKGLZXT\XHXZGL\JF_PB_JGYS.FUNC"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHSQSL.Func"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"
[警告] 循环引用: "Biz:\NDGL\YKGLZXT\XHXZGL\JF_PB_JGYS.FUNC"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"
[错误]Biz:\NDGL\YKGLZXT\XHXZGL\JF_PB_JGYS.FUNC.DIR\JFPBJGYS.Form.pas(39, 27): Undeclared identifier "button1"

lixy · 发表于 2007-9-4 11:28:16

您怎么写的？

lotus · 发表于 2007-9-4 13:48:08

感觉要先引用对象进来，然后调用，才对，不知道代码如何编写，还请指教！
procedure TXHXZLCT.ProcBeforeFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
TSheetDoc(DocView7.Doc).button1.click;
end;

jiahaiminghr · 发表于 2007-9-4 14:28:43

信息单元名.表单类(DocView7.Doc).button1.click;

lotus · 发表于 2007-9-4 16:48:22

procedure TXHXZLCT.ProcBeforeFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
XHXZXXJ.info.TJGYSJL(DocView7.Doc).button1.click;

end;
还是有问题啊！

[警告]XHXZLCT.Proc: 引用 "Biz:\NDGL\XHXZXXJ.Info\XHXZSQSJJ.DataSet\CUST_NAME.DataSetField" 不存在
[警告] 循环引用: "Biz:\NDGL\YKGLZXT\XHXZGL\XHXZLCT.Proc"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHSQSL.Func"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"
[警告] 循环引用: "Biz:\NDGL\YKGLZXT\XHXZGL\XHXZLCT.Proc"-->"Biz:\NDGL\YKGLZXT\XHXZGL\JF_PB_JGYS.Func"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHSQSL.Func"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"
[警告] 循环引用: "Biz:\NDGL\YKGLZXT\XHXZGL\XHXZLCT.Proc"-->"Biz:\NDGL\YKGLZXT\XHXZGL\JF_PB_JGYS.Func"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"
[警告] 循环引用: "Biz:\NDGL\YKGLZXT\XHXZGL\XHXZLCT.Proc"-->"Biz:\NDGL\YKGLZXT\XHXZGL\SZSP.Func"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHSQSL.Func"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"
[警告] 循环引用: "Biz:\NDGL\YKGLZXT\XHXZGL\XHXZLCT.Proc"-->"Biz:\NDGL\YKGLZXT\XHXZGL\SZSP.Func"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"
[警告] 循环引用: "Biz:\NDGL\YKGLZXT\XHXZGL\XHXZLCT.Proc"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"-->"Biz:\NDGL\YKGLZXT\XHXZGL\XHXZXXJ.Info"
[错误]Biz:\NDGL\YKGLZXT\XHXZGL\XHXZLCT.Proc.pas(30, 8): Undeclared identifier "XHXZXXJ"
麻烦留个电话啊！

lixy · 发表于 2007-9-4 17:02:12

你留下你的qq号

zfang · 发表于 2007-9-6 09:26:49

lotus · 发表于 2007-9-6 10:28:43

不好意思,这几天有点事情,麻烦你先加我qq吧,到时qq上请教你了! 验证时请注明:思维加速
qq :759035519

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