| Class TdmPersonSearch (unit PickBO) |
TDataModule
| Constructors |
| Functions |
procedure InitPick;
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;