【结帖】功能调用问题

lotus

我在系统的 “系统主界面资源集”的“专业”窗体中加了如下代码
if lQuery.RecordCount > 1 then
  begin
     lQuery.Free;
     jsDialogs.ShowMsg('有记录','重要提示');
     SystemCore.TSystemCore.FuncManager.RunFunc('Biz:\NDGL\CBLCTXGN.Func', '');
进入运行平台后发现右键关闭该功能时，整个运行平台都退出了，我现在想要的方法是，在关闭该功能时，系统不退出，可以继续运行下去，请问如何设置？

jiahaiminghr

楼主，看不懂啊！

关闭一个功能怎么回把business也一起关闭呢？

lotus

是啊，我也觉得奇怪啊！是不是SystemCore.TSystemCore.FuncManager.RunFunc('Biz:\NDGL\CBLCTXGN.Func', '');
参数设置的有问题啊？
就加了这一段代码就不行了！
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
lQuery := TQuery.Create(nil);
  cGetSQL := 'select CHK_ID from DF_FLAG_REMIND where Owner_Bureau=:C ';
  lQuery.ConnectionString := 'DATABASEURL=Biz:\NDGL\NDGLXT.Database';
  lQuery.CommandText := cGetSQL;

  lQuery.Params.ParamByName('C').AsString := TCommonComponentLibrary.UserSystem.CurrentOrgan.ID;
  lQuery.Open;

  if lQuery.RecordCount > 1 then
  begin
     lQuery.Free;
          SystemCore.TSystemCore.FuncManager.RunFunc('Biz:\NDGL\CBLCTXGN.Func', '');
     //lContextCurrent.Free;
  end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

jiahaiminghr

和runfunc没有关系。

你这段代码是写在哪里的？
或者你可以调试运行一下，看都执行了什么代码

lixy

你是不是在f9运行状态下？  应该ALT+F9初始化运行，然后调试下，看有什么错误报出来。

lotus

事件 procedure TZJM.SetupGlobeParm;
我跟踪时没有报什么错报出来啊。而且代码太多了，我看得有点晕！

lixy

如果初始化运行不报错，你刷新缓存，刷新组织结构，客户端就应该不报错了

lotus

谢谢以上回复！
还请仔细看看我1楼的问题啊！
刚刚重新又试了下，启动平台直接调用两个功能，关闭第一个的时候，没有问题，当关闭第二个功能时系统就自动关闭了！
是不是有什么环境因素啊！
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
lQuery := TQuery.Create(nil);
  cGetSQL := 'select CHK_ID from DF_FLAG_REMIND where Owner_Bureau=:C ';
  lQuery.ConnectionString := 'DATABASEURL=Biz:\NDGL\NDGLXT.Database';
  lQuery.CommandText := cGetSQL;

  lQuery.Params.ParamByName('C').AsString := TCommonComponentLibrary.UserSystem.CurrentOrgan.ID;
  lQuery.Open;

  if lQuery.RecordCount > 1 then
  begin
     lQuery.Free;
      FindAndRunFunc('Biz:\NDGL\YHQF_SFXXCX.Func');
     FindAndRunFunc('Biz:\NDGL\YHDA_CM_DLDFGN.Func');     //lContextCurrent.Free;
  end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

lotus

谢谢以上回复！
还请仔细看看我1楼的问题啊！
刚刚重新又试了下，启动平台直接调用两个功能，关闭第一个的时候，没有问题，当关闭第二个功能时系统就自动关闭了！
是不是有什么环境因素啊！
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
lQuery := TQuery.Create(nil);
  cGetSQL := 'select CHK_ID from DF_FLAG_REMIND where Owner_Bureau=:C ';
  lQuery.ConnectionString := 'DATABASEURL=Biz:\NDGL\NDGLXT.Database';
  lQuery.CommandText := cGetSQL;

  lQuery.Params.ParamByName('C').AsString := TCommonComponentLibrary.UserSystem.CurrentOrgan.ID;
  lQuery.Open;

  if lQuery.RecordCount > 1 then
  begin
     lQuery.Free;
      FindAndRunFunc('Biz:\NDGL\YHQF_SFXXCX.Func');
     FindAndRunFunc('Biz:\NDGL\YHDA_CM_DLDFGN.Func');     //lContextCurrent.Free;
  end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
procedure TZJM.actFileCloseExecute(Sender: TObject);
var
  lFunc: TFunc;
begin
  lFunc := CurrentFunc;
  if lFunc <> nil then
    TSystemCore.FuncManager.TerminateFunc(lFunc, False);
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

lotus

谢谢以上回复！
还请仔细看看我1楼的问题啊！
刚刚重新又试了下，启动平台直接调用两个功能，关闭第一个的时候，没有问题，当关闭第二个功能时系统就自动关闭了！
是不是有什么环境因素啊！
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
lQuery := TQuery.Create(nil);
  cGetSQL := 'select CHK_ID from DF_FLAG_REMIND where Owner_Bureau=:C ';
  lQuery.ConnectionString := 'DATABASEURL=Biz:\NDGL\NDGLXT.Database';
  lQuery.CommandText := cGetSQL;

  lQuery.Params.ParamByName('C').AsString := TCommonComponentLibrary.UserSystem.CurrentOrgan.ID;
  lQuery.Open;

  if lQuery.RecordCount > 1 then
  begin
     lQuery.Free;
      FindAndRunFunc('Biz:\NDGL\YHQF_SFXXCX.Func');
     FindAndRunFunc('Biz:\NDGL\YHDA_CM_DLDFGN.Func');     //lContextCurrent.Free;
  end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
procedure TZJM.actFileCloseExecute(Sender: TObject); 这个是关闭的代码，有什么有注意的没有啊？
var
  lFunc: TFunc;
begin
  lFunc := CurrentFunc;
  if lFunc <> nil then
    TSystemCore.FuncManager.TerminateFunc(lFunc, False);
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\