Class TfrmLogicalSearch (unit fLogSearch)

Inherits from

TfrmSearch

Constructors



Functions

procedure Button1Click(Sender: TObject);

destroy the BO

procedure cdsResultAfterOpen(DataSet: TDataSet);


procedure FormCreate(Sender: TObject);

PageControl1.

procedure FormDestroy(Sender: TObject);

create the BO

procedure Timer1Timer(Sender: TObject);


procedure QueryResult(cursor : OLEVariant);


procedure RunSearch(Threaded : Boolean);


Properties

Events

Variables

lblCount : TLabel;


boSearch : TdmPersonSearch;



Constructors


Functions


procedure Button1Click(Sender: TObject);

destroy the BO


procedure cdsResultAfterOpen(DataSet: TDataSet);


procedure FormCreate(Sender: TObject);

PageControl1.ActivePage := TabSheet2; RunOnThread(self);


procedure FormDestroy(Sender: TObject);

create the BO


procedure Timer1Timer(Sender: TObject);


procedure QueryResult(cursor : OLEVariant);


procedure RunSearch(Threaded : Boolean);


Properties


Events


Variables


lblCount : TLabel;


boSearch : TdmPersonSearch;