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

Barsik

Вопроса два:
1. Можно ли в скрипте создать объект запроса (Query), заполнить его селектом и выполнив извлечь значение какого-то поля?
2. Можно ли на основании щначения этого поля терминировать отчет?

ps. Хотя наверное это больше относится к FastReport 3.xx

-=Den=-

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

Barsik

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

-=Den=-

Вот подробней :
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

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