Unit unit1;
Interface
Uses
Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Stdctrls, DB, AdoDB, Grids, DBGrids
Type
TFORM1 = Class (TFORM)
ADOTABLE1: TADOTABLE;
ComboBOBOX1: TcomboboX;
DBGRID1: TDBGRID;
DataSource1: TDataSource;
ComboBox2: TcomboboX;
EDIT1: TEDIT;
Button1: tbutton;
Procedure formcreate (Sender: TOBJECT);
Procedure Button1Click (Sender: TOBJECT);
Procedure adotable1filterRecord (DataSet: tdatan)
VAR Accept: boolean;
Private
{Private Declarations}
public
{Public declarations}
END;
VAR
FORM1: TFORM1;
VAR
Myfield, myopt, myval: string; // Define public variables
IMPLEMENTATION
{$ R * .dfm}
Procedure TFORM1.FormCreate (Sender: TOBJECT);
VAR
i: integer;
Begin
ADOTABLE1.ACTIVE: = true;
For i: = 0 to adotable1.fields.count-1 do
Begin
ComboBoX1.Items.add (adotable1.fields [i] .fieldname); // Add to list box
END;
END;
Procedure TFORM1.BUTTON1CLICK (Sender: TOBJECT); // Filter button code
Begin
ADOTABLE1.FILTERED: = false; // Stop screening
Myfield: = combobox1.text;
Myopt: = combobox2.text;
Myval: = edit1.text;
ADOTABLE1.FILTERED: = TRUE;
END;
Procedure TFORM1.ADOTABLE1FILTERRECORD (DataSet: TDataSet;
VAR Accept: boolean;
Begin
if myopt = '=' THEN
Accept: = adotable1 [myfield] = myVal;
IF myopt = '>' THEN
Accept: = adotable1 [Myfield]> MyVal;
If myopt = '<' Then
Accept: = adotable1 [myfield] if myopt = '> =' THEN Accept: = adotable1 [myfield]> = myVal; if myopt = '<=' THEN Accept: = adotable1 [myfield] <= myVal; IF myopt = '<>' THEN Accept: = adotable1 [myfield] <> myval; END; End.
