In ERgebinsmenge suchen

[khh]

hallo zusammen,
ich lese per sqlstatement eine db-tabelle in ein db-Grid.
Dabei handelt es sich um ein paar tausend DS.
Gibt es ne Möglichkeit in diesen berits gelesenen DS (im Grid ? ) nach bestimmten Kriterien zu suchen, ohne nochmals auf die DB zuzugreifen.
Hintergrund ist eine schnelleres Ergebnis der Suche über eine (langsame) Internetleitung.

Danke euch recht herzlich
KHH

[shmia]

Zitat:

Zitat von khh (Beitrag 1170341)

nach bestimmten Kriterien zu suchen

Suchen, Filtern oder Highlighten?

Suchen: Datenmenge wird nach einem best. String (der Wildcards * und ? enthalten darf) von vorne nach hinten durchsucht.
Bei einem Treffer bleibt die Suche stehen und der Datensatzzeiger steht auf dem gefunden Datensatz.
Der Benutzer kann Suche fortsetzen und/oder Suchrichtung ändern. (was die Implementierung der Suche etwas schwierig und schwerfällig macht)

Filtern: Alle Datensätze ausblenden, die nicht den Suchkriterien entsprechen

Highlighten: Datensätze farbig hervorheben, die den Suchkriterien entsprechen

[khh]

Zitat:

Zitat von shmia (Beitrag 1170344)

Zitat:

Zitat von khh (Beitrag 1170341)

nach bestimmten Kriterien zu suchen

Suchen, Filtern oder Highlighten?

Suchen: Datenmenge wird nach einem best. String (der Wildcards * und ? enthalten darf) von vorne nach hinten durchsucht.
Bei einem Treffer bleibt die Suche stehen und der Datensatzzeiger steht auf dem gefunden Datensatz.
Der Benutzer kann Suche fortsetzen und/oder Suchrichtung ändern. (was die Implementierung der Suche etwas schwierig und schwerfällig macht)

Filtern: Alle Datensätze ausblenden, die nicht den Suchkriterien entsprechen

Highlighten: Datensätze farbig hervorheben, die den Suchkriterien entsprechen

ist im Prinzip egal, hauptsache ich muss nicht über die "lange Leitung" auf den Server zugreifen

[shmia]

Am Einfachsten wäre dann Filtern über das Event OnFilterRecord.
kleines Beispiel:

Delphi-Quellcode:

procedure TForm1.NotenFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
   Accept :=
     (DataSet.fieldByName('Punkte').AsInteger > 12) and
     (DataSet.fieldByName('Status').AsString='OK');
end;

[khh]

Zitat:

Zitat von shmia (Beitrag 1170348)

Am Einfachsten wäre dann Filtern über das Event OnFilterRecord.
kleines Beispiel:

Delphi-Quellcode:

procedure TForm1.NotenFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
   Accept :=
     (DataSet.fieldByName('Punkte').AsInteger > 12) and
     (DataSet.fieldByName('Status').AsString='OK');
end;

ok, probiere ich so aus, ich danke euch

[haentschman]

Ich werfe dann noch mal das Stichwort Locate im Dataset in den Raum...

[Perlsau]

Zitat:

Zitat von haentschman (Beitrag 1170350)

Ich werfe dann noch mal das Stichwort Locate im Dataset in den Raum...

Das wäre auch mein erster Gedanke gewesen. Zwei Buttons, Button_Vor und Button_Zurueck, die bei erfolgreicher Suche enabled werden, in einem Editfeld das Suchwort, mit Enter die Suche auslösen (Locate), in den Button-Click-Proceduren jeweils LocateNext und LocatePrior ... oder bei Suchen über mehrere Felder, die z.B. auch Memo-Felder beinhalten, eine Spalte MARKIERT in die Tabelle einfügen und bei Fund markieren (zuvor natürlich erstmal demarkieren, also

Delphi-Quellcode:

...FieldByName('MARKIERT').AsBoolean := FALSE;

, aber das würde schon wieder auf die DB zugreifen).

Oder einfach mit CachedUpdates arbeiten ... hat aber auch Nachteile, wenn mehrere Benutzer auf die DB zugreifen.

[Peinhard]

Die Information, ob ein Datensatz als markiert zu betrachten ist, kann man auch 'auslagern'. Nämlich in einen In-Memory-Dataset, der nur das (oder die) Schlüsselfeld(er) der zu durchsuchenden Tabelle enthält. Für 'Markiert' werden die Schlüsselinformationen eingefügt, für 'Demarkiert' entsprechend wieder gelöscht. Für die Darstellung kann man dann zB eine ungebundene Spalte im Grid anlegen und in OnDrawColumnCell entsprechend mit einem WingDings-Häkchen oä bestücken. Für weitere Verarbeitungen ist es natürlich praktisch und sinnvoll, wenn die fragliche Tabelle einen eindeutigen (Primär-) Index mit nur einem Feld enthält (zB für SELECT ... WHERE Key IN (3,5,17...) usw). Und noch praktischer ist es natürlich, wenn man gleich einen TDBGrid-Abkömmling erstellt, der die entsprechenden Methoden kapselt.

[khh]

Zitat:

Zitat von Perlsau (Beitrag 1170376)

Zitat:

Zitat von haentschman (Beitrag 1170350)

Ich werfe dann noch mal das Stichwort Locate im Dataset in den Raum...

Das wäre auch mein erster Gedanke gewesen. Zwei Buttons, Button_Vor und Button_Zurueck, die bei erfolgreicher Suche enabled werden, in einem Editfeld das Suchwort, mit Enter die Suche auslösen (Locate), in den Button-Click-Proceduren jeweils LocateNext und LocatePrior ...

leider kennt Lazarus nur locate und kein LocateNext :-(

wie komm ich zum nächsten relevanten ds ?

[Furtbichler]

Soetwas mal eben zu schreiben, sollte das geringste Problem sein.

Edit: Wenn die Verbindung so langsam ist, würde ich das Filtern im Server machen. Es ist vielleicht keine gute Idee, erst alle Daten über die langsame(!) Verbindung zu saugen und dann, nachdem die vielen Daten endlich angekommen sind, durch filtern nur die geeigneten auszuwählen.