Принудительное прерывание выполнения

Комментарии

• -=Den=-

  January 2006 отредактировано 18:10

  1) Да.
  2) Добавьте пользовательскую функцию.
• Barsik

  January 2006 отредактировано 18:10

  Спасибо, содержательный ответ
• -=Den=-

  January 2006 отредактировано 18:10

  Вот подробней :
  1) Для ADO:

  var
  Query:TfrxADOQuery;
  DataBase:TfrxADODatabase;
  begin
  Query := TfrxADOQuery.Create(nil);
  DataBase := TfrxADODatabase.Create(nil);
  DataBase.Name := 'DataBase1';
  DataBase.Database.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Áàçà äàííûõ MS Access;Initial Catalog="C:\Program Files\FastReports\FastReport Studio\Reports\demo.mdb"';
  Query.Name := 'Query1';
  Query.DataBase :=   DataBase;
  Query.SQL.Add('select * from biolife');
  Query.ExecSQL;
  MasterData1.DataSet := Query;
  end.
  

  2.1) В Delphi:

  procedure TForm1.FormCreate(Sender: TObject);
  begin
  frxReport1.Script.AddRTTI;
  frxReport1.Script.AddMethod('procedure Terminate()',callFunc);
  frxReport1.ShowReport();
  end;
  function Tform1.CallFunc(Instance: TObject; ClassType: TClass;const
  MethodName: String; var Params: Variant): Variant;
  begin
  if MethodName = 'TERMINATE' then
  begin
  frxReport1.PreviewForm.Close;
  frxReport1.Script.Terminate;
  end;
  end;
  end.
  

  В скрипте вызвать функцию Terminate.
• malor

  August 2009 отредактировано 18:10

  Если я в какой то момент выполнения скрипта хочу прервать его, как совершить выход?
  Чтоб отчет сформировался токо из того, что было подготовлено на данную секунду(мною в скрипте).