Objecte / Datensatz(record)

[EarlyBird]

Hallo,

ich erstelle beim öffnen einer Datenbanktabelle je Datensatz ein Objekt.
In diesem Objekt erstelle ich ein Bitmap aus dem Inhalt des Datensatzes.
Das funktioniert soweit auch alles schon ganz gut.

Nun möchte ich aber auch auf Änderungen in der Tabelle oder auch auf Änderungen des Objektes reagieren.
Und zwar soll das Bitmap des Objekts das zu einem bestimmten Datensatz gehört, neu gezeichnet werden wenn sich Werte ändern.
bzw. soll der Datensatz aktualisiert werden wenn sich ein Objektwert ändert.

Wie binde ich aber das Objekt an einen Datensatz aus der Tabelle.
Es muss doch eine bessere Lösung geben wie Dataset.locate(...)
und wie finde ich das Passende Objekt zu einem Datensatz???

Ich hoffe ich habe es einigermaßen verständlich beschrieben.

Gruß
EarlyBird

[Jelly]

Du hast doch sicher einen Primary Key in der Tabelle. Also lade den PK ebenfalls in ein Feld deines Objektes (z.B. Id).
Dann verpasst du noch eine Save Methode in deine Klasse, und führst dort ein Update des Datensatzes aus. Gegebenfalls kannst Du dir sogar überlegen, auch ein Insert-Befehl zu implementieren, der dann ausgeführt wird falls Id z.B. den Wert 0 hat.
So etwa:

Delphi-Quellcode:

procedure TMyClass.Save ;
begin
     sql := format('update tabelle set %s = :f1, %s = :f2 where id = %d',[Feldname1, Feldname2, id]) ;
     ds := TADOQuery.Create (nil) ;
     try
         ds.Connection := DeineAdoConnection ;
         ds.ParamByName (Feldname1).AsString := Wert1 ;
         ds.ParamByName (Feldname2).AsInteger := Wert 2 ;
         // ...
         ds.ExecSQL ;
     finally
         ds.free 
     end ;

end ;

[EarlyBird]

Danke für den Tipp,
ist aber so nicht gewollt!!
Dann hätte ich zwar die Tabelle in der Datenbank aktuell müsste aber ein refresh der Tabelle machen.
Der geschwindigkeitsvorteil wäre wieder dahin.

Außerdem ist mir immer noch nicht klar wie ich am schnellsten auf ein Objekt zugreife das einem bestimmten Datensatz entspricht!?!?
Und umgekehrt.

Wie kann ich sozusagen ein Objekt mit einem Datensatz verknüpfen??

Gruß
EarlyBird

[EarlyBird]

Kann ich in der Tabelle einen Pointer auf das Objekt speichern??
(Wie speichert man einen Pointer??)
Wie wirken sich filtern und sortieren der Tabelle auf die Pointer aus??
wäre so ein zugriff auf die Objekte sicher??
Wenn ich die Objekte sortiere oder "move" , sind die Pointer in der Tabelle dann noch richtig zugeordnet?

[hoika]

Hallo,

wie jelly schon gesagt hatte,
führt der Weg über den primary key und natürlich auch
den Tabellennamen.

Ändert sich der Objekt-Wert,
machst du ein Update des Datenbank-Eintrages,
ändert sich der DB-Eintrag, aktualisierst du das Objekt.

Locate würde ich weglassen,
mache das direkt mit einer Query.

Das Dataset würde ich durch eine TClientDataset ersetzen,
oder eine eigene Datenstruktur.

Dein Problem ist eher "wenn sich in der Datenbank was ändert".
Je nach DB gibt es da verschiedene Möglichkeiten (FB hat z.B. Events).

Zur Not musst du Pollen (immer wieder abfragen, ob sich was geändert hat).

Du könntest z.B. Änderungen in eine zusätzliche Protokolltabelle schreiben
id, dbid, tablename, changedatetime

Dann merkst du dir das aktuelle Datum/Uhrzeit
und machst nen select * from protolol_table where changdatetime>=:deine_gemerkte_zeit


Mit Pointern ? -> Kannst du vergessen.


Heiko

[EarlyBird]

Danke für den Beitrag.

Genau das UPDATE möchte ich halt nicht machen da ich nach jeder Änderung ein Refresh bräuchte.

Ich will also die Daten direkt im Dataset ändern.
(es gibt noch ein paar andere Gründe dafür)

Und dazu muss ich möglichst schnell auf den entsprechenden Datensatz zugreifen.
Es muss doch eine schnellere möglichkeit wie Locate geben.

"Änderungen die in der Datenbank passieren" kann ich für meinen "speziellen Fall" erstmal unberücksichtigt lassen.

Ausserdem ist mir immer noch nicht klar wie ich dann am schnellsten auf das Objekt zugreife.
Wenn ich den primary Key im objekt speichere muss ich das Objekt immer noch suchen.
Oder wie kann ich direkt darauf zugreifen??

with TmyObject(Table.FieldValue['PrimaryField']) .... geht ja leider nicht

aber Table.bookmark := myObject.bookmark sollte doch funktionieren oder??

Gruß
EarlyBird

[Jelly]

Brauchst Du denn wirklich alle Datensätze auch in Form eines Delphi Objektes, oder brauchst Du nur das aktuell markierte im DBGrid. Bei letzterem brauchst du nicht suchen und auch keine Liste verwalten, sondern lediglich im AfterScroll Event deines Datasets dein Objekt des aktuellen Datensatzes erstellen.

[hoika]

Hallo,

solange du direkt mit einem Dataset (TQuery, TTable) arbeitest,
geht es doch gar nicht anders, als dass der Wert in der DB gespeichert wird.

Mit könnte aber "CachedUpdates" was machen, also erst lokal speichern,
dann mit einem Rutsch (ApplyUpdates) die Daten in die DB.

Ich würde hier (weil von TClientDataSet keine Ahnung),
eine eigene Datenstruktur nehmen.

Wo sollen die Daten denn angezeigt werden?
Falls DBGrid, kann man dann auch nen normales Grid nehmen,
falls nicht, umso besser.

Zum Objekt finden:
- Objekte in einer eigenen Liste (TList) halten
- sortieren nach dem primkey (quickssort)
- und dann per BinSearch suchen


Heiko

[EarlyBird]

Die Daten werden nicht in einem Grid oder DBGrid dargestellt.

Ich werde mal kurz darstellen wofür das ganze gut ist.

Ich muss Datensätze in einer vertikalen Ansicht darstellen.
Ich nutze aus diversen Gründen kein Stringgrid unter anderem ist das scrollen durch die Datensätze zu langsam.
Ein schnelles scrollen durch die Datensätze ist äußerst wichtig.

Ich zeichne die Daten selbst in ein TBitmap und bin dabei so flexibel wie ich es benötige.
Das scrollen funktioniert dann auch wesendlich schneller.

Nun muss ich aber Änderungen in meinem "VerticalGridBild" machen können und das möglichst schnell.
Dazu speichere pro Datensatz ein Bitmap mit Koordinaten in einem Objekt.
ändern sich nun die Daten in der Tabelle kann ich dieses Bitmap einfach auf das "VerticalBild" kopieren.
Auch eine mehrfachselection kann ich so gut darstellen.
Auch das verschieben klappt schon ganz gut.

"Nur" die Geschwindigkeit will ich halt noch optimieren.
Ich hoffe die Darstellung macht das ganze etwas transparenter.

Zitat:

solange du direkt mit einem Dataset (TQuery, TTable) arbeitest,
geht es doch gar nicht anders, als dass der Wert in der DB gespeichert wird.

Doch das geht mit SDAC komponents
(offline modus)

Zitat:

Zum Objekt finden:
- Objekte in einer eigenen Liste (TList) halten
- sortieren nach dem primkey (quickssort)
- und dann per BinSearch suchen

ist das tatsächlich schneller wie eine einfache Schleife durch TList?

Gruß
EarlyBird

[hoika]

Hallo,

BinSearch sucht logarithmisch,
das ist ein "bissel" schneller als nen FullTable Scan,
umd es mal mit nem Datenbank-Begriff auszdrücken.
Die Suche ähnelt hier einem Baum (binärbaum),
nur das halt alle Einträge in einer Liste stehen.


Heiko