AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Richtig Speichern

Ein Thema von Ykcim · begonnen am 28. Okt 2013 · letzter Beitrag vom 31. Okt 2013
Antwort Antwort
Seite 1 von 2  1 2      
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
831 Beiträge
 
Delphi 10.4 Sydney
 
#1

Richtig Speichern

  Alt 28. Okt 2013, 22:11
Datenbank: MySQL • Version: 5 • Zugriff über: UniDac
Hallo Zusammen,

ich habe mal ein paar Grundlagenfragen:

Ich habe eine Maske mit mehreren Feldern (Edit, DatePicker, ComboBoxen und Checkboxen), die ich in einer MySQL-Datenbank speichere. Ich habe auch eine Routine geschrieben, von der ich allerdings nicht überzeugt bin. So schreibe ich z.B. immer alle Felder neu, wenn ich eines geändert habe.

1. Wie stellt Ihr fest, welche Felder sich geändert haben und deshalb bei einem Update berücksichtigt werden sollten?

2. Wie setzt Ihr die Sperrung eines Datensatzes um, wenn gerade bearbeitet wird?

3. Ich habe bei den Unidac auch ein Objekt names Transaktion dabei. Allerdings hat anscheinend jede UniQuery schon eine enthalten? Habe noch nie mit Transaktionen gearbeitet...

Noch eine Info. Ich habe eine Klasse für die einzelnen Masken erstellt, sodass die Daten nicht nur in den Feldern, sondern auch in dem Klassenobjekt enthalten sind.

Ich würde mich freuen, wenn ich einige Anregungen von Euch bekommen könnte, wie man richtig speichert.

Vielen Dank
Patrick
Patrick
  Mit Zitat antworten Zitat
Popov
(Gast)

n/a Beiträge
 
#2

AW: Richtig Speichern

  Alt 28. Okt 2013, 22:46
Einige Komponenten haben die Eigenschaft Modified, sie zeigen an ob es eine Änderung gab. Allerdings sollte man nach der Speicherung Modified wieder auf False setzen. Allerdings bietet nicht jede Komponente diese Eigenschaft. Einfach nachgucken. TEdit, TMemo und TBitmap haben es, die anderen weiß ich nicht.
  Mit Zitat antworten Zitat
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
831 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Richtig Speichern

  Alt 28. Okt 2013, 23:15
Okay, vielen Dank für den Hinweis. Ich habe nachgesehen und muss feststellen, das ComboBoxen diese Eigenschaft leider nicht mitbringen. Auch die TAdvComboBoxen von TMS sheinen das nicht zu haben. Wie machst DU das damit?

Gruß
Patrick
Patrick
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.686 Beiträge
 
Delphi 2007 Enterprise
 
#4

AW: Richtig Speichern

  Alt 28. Okt 2013, 23:36
Weit mehr Komponenten haben das OnChange() Ereignis. Wenn du zudem noch die Property "Tag" nicht anderweitig nutzt, und sonst auch nichts im OnChange mancher Komponenten machst, könntest du für alle einen gemeinsamen Handler machen, der einfach das Tag des Senders auf 1 setzt, und die Speichern-Routine setzt die wieder auf 0.

Sperrung ist da etwas komplizierter: Im Grunde müsstest du für jede Komponente einen Buffer machen, der die Werte beinhaltet, die die Maske zum letzten Speicherzeitpunkt oder bei der letzten Anzeige in der DB standen. Vor dem Speichern kannst du dann diese mit den dann aktuellen in der DB vergleichen, und ggf. Warnungen und Aktualisierungen machen. Das wäre zumindest eine Möglichkeit, wie man es ganz allgemein und mit allen Komponenten machen könnte, selbst wenn sie selbst keinen Mechanismus dafür vorsehen. Interessant wird dabei dann jedoch, wie man seinen Buffer umsetzt. Da fiele mir jetzt hier spontan noch kein wirklicher Königsweg ein. Zumindest kein schneller, einfacher und eleganter, der nicht schon fast Framework/ORM-Charakter hätte.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#5

AW: Richtig Speichern

  Alt 29. Okt 2013, 07:37
Diese Funktionalität gehört imho nicht in das Formular, sondern in das Modell.

Delphi-Quellcode:
Type
  TModel = Class
    fAModified,
    fBModified : Bool;
    fA : Integer;
    fB : String;
    Procedure SetA(Value : Integer);
    Procedure SetB(Value : String);
  public
    Property A : Integer Read fA Write SetA;
    Property B : String Read fB Write SetB;
  end

implementation
Procedure Procedure TModel.SetA(Value : Integer);
Begin
  If Value = fA then exit;
  fA := Value;
  fAModified := True;
End;

Procedure Procedure TModel.SetB(Value : String);
Begin
  If Value = fB then exit;
  fB := Value;
  fBModified := True;
End;
Da ich nun weiß, ob und welche Daten sich verändert haben, ist der Rest ein Klacks.

BTW: Mit einem TDataSet wäre das nicht passiert, weil dort alle Felder diese Funktionalität bereits mitbringen.

Geändert von Furtbichler (29. Okt 2013 um 13:34 Uhr) Grund: Änderungen von kretabiker übernommen: Code vorm Kaffee => geht nicht.
  Mit Zitat antworten Zitat
kretabiker

Registriert seit: 10. Mär 2005
Ort: Bargteheide
183 Beiträge
 
Delphi 12 Athens
 
#6

AW: Richtig Speichern

  Alt 29. Okt 2013, 08:08
@Furtbichler: Stehe ich jetzt auf nem Schlauch? In deinen Set...-Routinen steht als Vergleich z.B.
If Value <> fA then exit; - das bedeutet doch, das bei GEÄNDERTEN Werten die Procedure verlassen wird, oder? Sollte da nicht eher
If Value = fA then exit; stehen?

Ansonsten teile ich deine Meinung, dass das ins Model gehört - und teile auch grundsätzlich deine Vorgehensweise.
Udo Treichel
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
3.072 Beiträge
 
Delphi 2010 Enterprise
 
#7

AW: Richtig Speichern

  Alt 29. Okt 2013, 08:16
Ich kenne Unidac nicht, aber die TDataset Fähigkeiten hätte ich dort auch vermutet.
Andererseits: clientseitige Kontrolle dieser Infos ist ggF. nicht ausreichend.
Wir verwenden ggF. Trigger, die auf Wunsch gleich eine Ändernungshistorie führen (können). So wird wirklich jede Änderung vermerkt.
Für eine bloße Datensatzänderung eine extra/zusätzliche Transaktion aufzumachen, scheint mir etwas übertrieben.
Gruß, Jo
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#8

AW: Richtig Speichern

  Alt 29. Okt 2013, 08:23
Andererseits: clientseitige Kontrolle dieser Infos ist ggF. nicht ausreichend.
Wir verwenden ggF. Trigger, die auf Wunsch gleich eine Ändernungshistorie führen (können). So wird wirklich jede Änderung vermerkt.
Es geht eher darum, das UPDATE-Statement sauber hinzubekommen, glaube ich. Ansonsten ist natürlich das RDBMS der richtige Ort, um Änderungen zu protokollieren.

Zitat:
Für eine bloße Datensatzänderung eine extra/zusätzliche Transaktion aufzumachen, scheint mir etwas übertrieben.
Jede Änderungsanweisung ist eine einzelne Transaktion (Stichwort: CRUD, atomar).
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
3.072 Beiträge
 
Delphi 2010 Enterprise
 
#9

AW: Richtig Speichern

  Alt 29. Okt 2013, 08:41
Andererseits: clientseitige Kontrolle dieser Infos ist ggF. nicht ausreichend.
Wir verwenden ggF. Trigger, die auf Wunsch gleich eine Ändernungshistorie führen (können). So wird wirklich jede Änderung vermerkt.
Es geht eher darum, das UPDATE-Statement sauber hinzubekommen, glaube ich. Ansonsten ist natürlich das RDBMS der richtige Ort, um Änderungen zu protokollieren.

Zitat:
Für eine bloße Datensatzänderung eine extra/zusätzliche Transaktion aufzumachen, scheint mir etwas übertrieben.
Jede Änderungsanweisung ist eine einzelne Transaktion (Stichwort: CRUD, atomar).
Updatestatement: Ja, aber der Teufel ist ein Eichhörnchen. Hat man es geschafft, dass die Anwendung sauber alle Felder berückschtigt natürlich inkl. eines "ChangeDate" bspw, ist man anschließend geneigt, dieses "Changedate" als Maß der Dinge anzusehen und lässt ggF administrative, .. Datenänderungen außer Acht.
CRUD: Eben, ich halte nichts davon in einer Clientanwendung mit eigenen, "handgemachten" Transaktionen rumzuasen, ala "ich sperr mal eben die Tabelle, weil ich hier was auslesen muss und es ganz besonders richtig machen will".
Gruß, Jo
  Mit Zitat antworten Zitat
mquadrat

Registriert seit: 13. Feb 2004
1.113 Beiträge
 
Delphi XE2 Professional
 
#10

AW: Richtig Speichern

  Alt 29. Okt 2013, 10:04
1. Wie stellt Ihr fest, welche Felder sich geändert haben und deshalb bei einem Update berücksichtigt werden sollten?
2. Wie setzt Ihr die Sperrung eines Datensatzes um, wenn gerade bearbeitet wird?
3. Ich habe bei den Unidac auch ein Objekt names Transaktion dabei. Allerdings hat anscheinend jede UniQuery schon eine enthalten? Habe noch nie mit Transaktionen gearbeitet...
1. Wir machen das - wie hier schon gezeigt - mit den Settern. Ergo wir merken uns nur welche Datensätze aktualisiert werden müssen und schreiben dann alle Felder des Datensatzes.
2. Über einen eigenen Dienst, der dann in der Fehlermeldung auch anzeigt, wer was und vor allem warum bearbeitet.
3. Welche Engine verwendest du in MySQL? Bei MYISAM gibt es sowieso keine Transaktionen. Bei InnoDB könntest du welche nutzen, wenn du möchtest.

@Transaktionen-Thema
Wir bündeln durchaus logisch zusammengehörende Operationen in einer Transaktion.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz