功能与功能间刷新新问题**

luoyb · 发表于 2008-10-27 19:22:18

procedure TXYR.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
  TmpForm : RYLBGN.TRYLB;
  lFunc: TFunc;
  tmpUniqueId:string;
  Recno : integer;
begin
  Inherited;
  tmpUniqueId:='Biz:\ZHAJ_DS\RYLBGN.Func'+'.MainForm.Run'+'|'+'';
  lFunc:= SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);
  tmpform:=RYLBGN.TRYLB(RYLBGN.TRYLBGN(lFunc).MainForm);
  tmpform.dsbXYR.DataSet.Close;
  tmpform.dsbXYR.DataSet.Open;

'Biz:\ZHAJ_DS\RYLBGN.Func'+'.MainForm.Run'+'|'+''
上面这句在通过左边的业务功能树直接打开窗体执行BizFormCloseQuery能找到对象,但通过以下代码打开后执行BizFormCloseQuery就找不到对象了

SystemCore.TSystemCore.FuncManager.RunFunc(Context,
   'XYRGN-' ,
   'Biz:\ZHAJ_DS\XYRGN.Func', '|2', nil, false);

很是奇怪....

luoyb · 发表于 2008-10-27 19:27:56

我的版本是2936

lixy · 发表于 2008-10-28 09:02:18

你模仿标准风格主窗体的UIRunFunc函数用法就可以了。

lixy · 发表于 2008-10-28 09:07:31

而且你好像少了一截 +'.MainForm.Run'

luoyb · 发表于 2008-10-28 09:23:12

没少啊,tmpUniqueId:='Biz:\ZHAJ_DS\RYLBGN.Func'+'.MainForm.Run'+'|'+''; 这句没错啊
UIRunFunc函数没有实例啊,我也是按此函数格式写的啊

luoyb · 发表于 2008-10-28 09:23:50

能给一个完整的路径写法吗,谢谢了

jiahaiming · 发表于 2008-10-28 10:28:15

楼主，你可以在系统住窗体设置断点，看看这个UniqueId的格式

luoyb · 发表于 2008-10-28 10:48:10

在标准风格主窗体的UIRunFunc设置断点运行不到

lixy · 发表于 2008-10-28 10:56:08

你去掉
SystemCore.TSystemCore.FuncManager.RunFunc(Context,
   'XYRGN-' ,
   'Biz:\ZHAJ_DS\XYRGN.Func', '|2', nil, false);
里面这个竖线试试。
No.8
在标准风格主窗体的UIRunFunc设置断点运行不到
？？？
主界面运行的时候都会执行他，你们的主界面好像是自己做的，是不是没用这个函数啊？

luoyb · 发表于 2008-10-28 11:07:56

是啊,主界面也是在功能层新建的,应该都会执行到UIRunFunc吧
SystemCore.TSystemCore.FuncManager.RunFunc(Context,
'XYRGN-' ,
'Biz:\ZHAJ_DS\XYRGN.Func', '|2', nil, false); 里面的竖线是我传几个参数的标记,应该跟我程序退出路径找不到没关系吧

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