Class TForm1 (unit Fltexm1)

Inherits from

TForm

Remove this define if you want to test the filtering speed without using the filter record count function. Most notably faster when filtering BLOB fields {$define BDEFilterCount

Constructors



Functions

procedure Button1Click(Sender: TObject);

Release buffer space

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);


procedure FormCreate(Sender: TObject);


procedure BlobFilter(FilterRec: TFilterObject; var Allow: Boolean);

** Filter routine for reading blob fields.

procedure CategoryCod(FilterRec: TFilterObject; var Allow: Boolean);


procedure CommonName(FilterRec: TFilterObject; var Allow: Boolean);


procedure DateFilter(FilterRec: TFilterObject; var Allow: Boolean);


procedure DescStartsWithV(FilterRec: TFilterObject; var Allow: Boolean);


procedure LengthFlt(FilterRec: TFilterObject; var Allow: Boolean);


procedure LengthRange(FilterRec: TFilterObject; var Allow: Boolean);


procedure NumRecords;

Private declarations

Set BEFORE call to start


procedure SpeciesNo(FilterRec: TFilterObject; var Allow: Boolean);


Properties

Events

Variables

Button1 : TButton;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBMemo1 : TDBMemo;


DBNavigator1 : TDBNavigator;


FilterCallback1 : TFilterCallback;


Label1 : TLabel;


Panel1 : TPanel;


RadioGroup1 : TRadioGroup;


Table1 : TTable;



Constructors


Functions


procedure Button1Click(Sender: TObject);

Release buffer space


procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);


procedure FormCreate(Sender: TObject);


procedure BlobFilter(FilterRec: TFilterObject; var Allow: Boolean);

** Filter routine for reading blob fields. These are presented as streams. ** When the GetBlobData is used, a temporary stream is created to the Fields ** Blob data (an exception occurs if the field is not a blob field). The stream ** is released before the next record is passed in by the filter mechanism. The ** previous stream is also released if the GetBlobData call is issued again in ** same filter routine. This makes it possible to check multiple blob fields ** data in the same routine. However, only ONE may be open at any one time.


procedure CategoryCod(FilterRec: TFilterObject; var Allow: Boolean);


procedure CommonName(FilterRec: TFilterObject; var Allow: Boolean);


procedure DateFilter(FilterRec: TFilterObject; var Allow: Boolean);


procedure DescStartsWithV(FilterRec: TFilterObject; var Allow: Boolean);


procedure LengthFlt(FilterRec: TFilterObject; var Allow: Boolean);


procedure LengthRange(FilterRec: TFilterObject; var Allow: Boolean);


procedure NumRecords;

Private declarations

Set BEFORE call to start


procedure SpeciesNo(FilterRec: TFilterObject; var Allow: Boolean);


Properties


Events


Variables


Button1 : TButton;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBMemo1 : TDBMemo;


DBNavigator1 : TDBNavigator;


FilterCallback1 : TFilterCallback;


Label1 : TLabel;


Panel1 : TPanel;


RadioGroup1 : TRadioGroup;


Table1 : TTable;