How To…Apply Single AutoSearch to Multiple Queries

Question “How can I define a single autosearch parameter and apply it to multiple queries?” Solution Implement the Report.BeforeOpenDataPipelines event and use SQLBuilder to apply the AutoSearch value to additional queries. Download: ApplyAutoSearchValueTo2ndQuery.zip Sample RAP code:

procedure ReportBeforeOpenDataPipelines;
var
  lSQLBuilder: TdaSQLBuilder;
begin

 {create SQLBuilder - pass the Customer2 datapipeline to the constructor}
 lSQLBuilder := TdaSQLBuilder.Create(Customer2);
 
 if (Report.AutoSearchFields[0].ShowAllValues) then
 
   {clear existing search criteria}
   lSQLBuilder.SearchCriteria.Clear  
   
 else if (lSQLBuilder.SearchCriteria.Count = 0) then
 
   {add new search criteria with the autosearch field value}
  lSQLBuilder.SearchCriteria.Add('customer', 'custno', 'Between', Report.AutoSearchFields[0].SearchExpression)
 
 else {update existing search criteria with the autosearch field value}
   lSQLBuilder.SearchCriteria[0].Value := Report.AutoSearchFields[0].SearchExpression;
 
   
 lSQLBuilder.ApplyUpdates;
 lSQLBuilder.Free;
 

end;

procedure ReportBeforeOpenDataPipelines;

var

lSQLBuilder: TdaSQLBuilder;

begin

{create SQLBuilder - pass the Customer2 datapipeline to the constructor}

lSQLBuilder := TdaSQLBuilder.Create(Customer2);

if (Report.AutoSearchFields[0].ShowAllValues) then

{clear existing search criteria}

lSQLBuilder.SearchCriteria.Clear

else if (lSQLBuilder.SearchCriteria.Count = 0) then

{add new search criteria with the autosearch field value}

lSQLBuilder.SearchCriteria.Add('customer', 'custno', 'Between', Report.AutoSearchFields[0].SearchExpression)

else {update existing search criteria with the autosearch field value}

lSQLBuilder.SearchCriteria[0].Value := Report.AutoSearchFields[0].SearchExpression;

lSQLBuilder.ApplyUpdates;

lSQLBuilder.Free;

end;

Custom Designers

Data Designers descend from TdaCustomDataWizard which is defined in daDataWizard.pas. The TdaCustomDataWizard class defines a class function called DataViewClass that should be overriden by descendants classes to specify the DataView class for which the data designer is implemented. The daRegisterWizard and daUnRegisterWizard procedures defined in daDataWizard.pas are used to register and unregister Data Designers with Full Article…

Custom Dataviews

The following code shows how to create a dataview in code:

uses
daDatMod, daQClass, daDataVw, daQuery, daDBBDE; 

{------------------------------------------------------------------------------}
{TForm1.CreateDataView}

procedure TDynamicReport.CreateDataView;
var
lSQL: TdaSQL;
lTable: TdaTable;
lField: TdaField;
  
begin

  {create a datamodule - note: this is only necessary if you need to stream the report definition to an .rtm or database}
  FDataModule := TdaDataModule.CreateForReport(FReport);

  {create a query dataview}
  FDataView   := TdaBDEQueryDataView.Create(Self);
  FDataView.Parent := FDataModule;

  {initialize the dataview}
  FDataView.Init;

  {define database connect and type}
  FDataView.SQL.DatabaseName := 'DBDemos';
  FDataView.SQL.DatabaseType := dtParadox;
  FDataView.SQL.SQLType      := sqBDELocal;
  FDataView.SQL.Session := FDataView.Session;

  {create local version of the SQL object}
  lSQL := TdaSQL.Create(Self);
  lSQL.Assign(FDataView.SQL);

  {modify the local version}
 { lSQL.SQLText.Text := 'Select * from clients';
  lSQL.EditSQLAsText := True;
 }

  lTable := lSQL.AddTable('clients');
  lSQL.AddSelectField(lTable, 'Last_Name');
  lSQL.AddSelectField(lTable, 'First_Name');


  {assign local SQL object values to the dataview}
  FDataView.SQL := lSQL;

  {get a reference to the dataivew's pipeline and assign a Name to the pipeline}
  FPipeline   := TppDBPipeline(FDataView.DataPipelines[0]);
  FPipeline.Name := 'plClient';

  {connect report to datapipeline}
  FReport.DataPipeline := FPipeline;

  lSQL.Free;

end; {procedure, CreateDataView }

uses

daDatMod, daQClass, daDataVw, daQuery, daDBBDE;

{------------------------------------------------------------------------------}

{TForm1.CreateDataView}

procedure TDynamicReport.CreateDataView;

var

lSQL: TdaSQL;

lTable: TdaTable;

lField: TdaField;

begin

{create a datamodule - note: this is only necessary if you need to stream the report definition to an .rtm or database}

FDataModule := TdaDataModule.CreateForReport(FReport);

{create a query dataview}

FDataView := TdaBDEQueryDataView.Create(Self);

FDataView.Parent := FDataModule;

{initialize the dataview}

FDataView.Init;

{define database connect and type}

FDataView.SQL.DatabaseName := 'DBDemos';

FDataView.SQL.DatabaseType := dtParadox;

FDataView.SQL.SQLType := sqBDELocal;

FDataView.SQL.Session := FDataView.Session;

{create local version of the SQL object}

lSQL := TdaSQL.Create(Self);

lSQL.Assign(FDataView.SQL);

{modify the local version}

{ lSQL.SQLText.Text := 'Select * from clients';

lSQL.EditSQLAsText := True;

}

lTable := lSQL.AddTable('clients');

lSQL.AddSelectField(lTable, 'Last_Name');

lSQL.AddSelectField(lTable, 'First_Name');

{assign local SQL object values to the dataview}

FDataView.SQL := lSQL;

{get a reference to the dataivew's pipeline and assign a Name to the pipeline}

FPipeline := TppDBPipeline(FDataView.DataPipelines[0]);

FPipeline.Name := 'plClient';

{connect report to datapipeline}

FReport.DataPipeline := FPipeline;

lSQL.Free;

end; {procedure, CreateDataView }

# 1 … 134 135

Search the Wiki