Class TdmPersonSearch (unit PickBO)

Inherits from

TDataModule

Constructors



Functions

procedure InitPick;

if Trim(fPhone) <> '' then s := s + ' phone like ''' + Trim(fPhone) + '%'' and ';

procedure RunOnThread(CallBackName : TPickForm);


function RunPick : OLEVariant;


function BuildSQL : String;


Properties

property Add : String


property AddType : TSearchType


property City : String


property CityType : TSearchType


property FName : String


property FNameType : TSearchType


property LName : String


property LNameType : TSearchType


property Phone : String


property Zip : String


Events

Variables

Query1 : TQuery;


fAdd : String;


fAddType : TSearchType ;


fCallForm : TPickForm;


fCity : String;


fCityType : TSearchType ;


fFName : String;


fFNameType : TSearchType ;


fLName : String;


fLNameType : TSearchType ;


fPhone : String;


fZip : String;



Constructors


Functions


procedure InitPick;

if Trim(fPhone) <> '' then s := s + ' phone like ''' + Trim(fPhone) + '%'' and ';


procedure RunOnThread(CallBackName : TPickForm);


function RunPick : OLEVariant;


function BuildSQL : String;


Properties


property Add : String


property AddType : TSearchType


property City : String


property CityType : TSearchType


property FName : String


property FNameType : TSearchType


property LName : String


property LNameType : TSearchType


property Phone : String


property Zip : String


Events


Variables


Query1 : TQuery;


fAdd : String;


fAddType : TSearchType ;


fCallForm : TPickForm;


fCity : String;


fCityType : TSearchType ;


fFName : String;


fFNameType : TSearchType ;


fLName : String;


fLNameType : TSearchType ;


fPhone : String;


fZip : String;