partial match .Filter
lazarus / 16-Databases

----------------------------------------------------------------------
marcov · 2016-04-23 18:59

How to get a partial match for the TSqlQuery.filter property?

(filteroptions set to  [foCaseInsensitive] so fnopartialmatch is off)

backend: sqllite

----------------------------------------------------------------------
patyi · 2016-04-23 20:45

Use OnFilterRecord propery :

procedure TForm.QueryFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
   Accept := <your boolean expression, your on filter expression>
   // for example : Accept :=
(Copy(UpperCase(DataSet.FieldByName('field').AsString), 1,
Length(Edit.Text)) = UpperCase(Edit.Text));  // variable length
filtering
end;  

Using :  in Edit.OnChenge property write : Query.Filter := '';
Query.Filtered := True;

----------------------------------------------------------------------
marcov · 2016-04-24 14:14

Thank you. I had preferred something that didn't need preparing, but
for the immediate needs it will do I think.

----------------------------------------------------------------------
LacaK · 2016-04-25 05:44

Quote from: marcov on April 23, 2016, 08:59:32 pmHow to get a partial
match for the TSqlQuery.filter property?

Try use asterix "*" i.e. something like:

TSQLQuery.Filter := 'field=''value*''';

----------------------------------------------------------------------
marcov · 2016-04-27 12:58

Thank you, that works. I updated some more little things, and I now
have a very simple template for a one table sqlite app with a bit of
search and filter etc.

Sorting the grid using the header columns was done according to the
wiki. I didn't manage to get field defaults to automatically show up,
but that seems to be documented and  not that important atm