Gespeicherte (n)umerische Daten anzeigen, ggf. ändern

[LOMBI]

Hallo,

möchte die gespeicherten Artikeldaten in der Detailübersicht editieren.
Mit den (n)umerischen Feldern habe ich da noch meine Probleme:

Delphi-Quellcode:

procedure TDemoForm.BtnEditClick(Sender: TObject);
begin
  FArtikel.Show;
    with FArtikel do
      begin
      QArtikel.Edit //Änderungsmodus
      EditBez1.Text := QArtikel.FieldByName('ArtBez1').AsString;
      ...
      EditEKpreis.Text :=
      FloatToStr(QArtikel.FieldByName('EKpreis').AsFloat);
      EditVKbrutto.Text := 
      FloatToStr(QArtikel.FieldByName('VKbrutto').AsFloat);
      EditAbest.Text :=
      FloatToStr(QArtikel.FieldByName('Anfangsbestand').AsFloat);
      ...
   end;

Würdet Ihr bitte mal sehen, ob die Zuweisungen i.O. sind? Was müßte ich
ändern?

Vielen Dank!

Gruß
Lombi

[TBx]

Hallo!

Warum verwendest Du nicht einfach ein DBEdit?

Wo genau liegt Dein Probnlem mit den numerischen Feldern?

Gruß

onlinekater

[MrSpock]

Hallo Lombi,

onlinekater hat mit seiner Frage genau den Punkt getroffen. Wenn du aber keine DBEdit Felder verwenden möchtest, sind deine Anweisungen OK. Zum Auslesen musst du aber nicht in den Editmode schalten.

[LOMBI]

Hallo onlinekater/MrSpock,

klar, mit DBEdits wäre es einfacher, nur möchte ich diese nicht mehr
verwenden. Wenn ich Daten in die Detailübersicht einlese, dann sollen
sie bei Bedarf auch gleich geändert werden können, darum Query.Edit.

Einen neuen Artikel füge ich mit Query.Insert hinzu. Die Edits sind
jedoch nicht leer, sondern werden mit den Daten des zuletzt angezeigten Artikels aus Query.Edit gefüllt.

Müßte ggf. mein Code mit Query.Close oder so abgeschlossen werden?

Gruß
Lombi

[MrSpock]

Hallo Lombi,

wenn die Query "aktualisierbar" ist und RequestLive auf True steht, musst du mit myQuery.Post die Änderungen übernehmen.

[LOMBI]

Hallo MrSpock,

danke für den Hinweis.

Beim BtnSpeichern hatte ich im Code mit Query.Post
einen Wurm drin. Jetzt paßt alles bis auf die Detail-
ansicht nach BtnEdit. In den (n)umerischen Edits werden
die 4 Dezimalstellen, d.h. die Nullen nicht eingelesen,
z.B: Anzeige "2" statt "2,0000". Hab's schon mit DisplayFormat
in FormCreate bzw. BeforeEdit versucht. Ohne Erfolg!

Was ist bitte zu tun?

Gruß
Lombi

[LOMBI]

Geschafft!

So werden die (n)umerischen Werte aus der Tabelle korrekt mit 4 Dezimalstellen in die Edits nach Query.Edit eingelesen:

Delphi-Quellcode:

procedure TDemoForm.BtnEditClick(Sender: TObject);
begin
  FArtikel.Show;
    with FArtikel do
      begin
      QArtikel.Edit //Änderungsmodus
      EditBez1.Text := QArtikel.FieldByName('ArtBez1').AsString;
      ...
      EditEKpreis.Text := Format ('%0.4f',
      [QueryArtikel.FieldByName('EKpreis').AsFloat]);
      EditVKbrutto.Text := Format ('%0.4f',
      [QueryArtikel.FieldByName('VKbrutto').AsFloat]);
      ...
   end;

Gruß
Lombi

[shmia]

Zitat:

Zitat von LOMBI

Einen neuen Artikel füge ich mit Query.Insert hinzu. Die Edits sind
jedoch nicht leer, sondern werden mit den Daten des zuletzt angezeigten Artikels aus Query.Edit gefüllt.

Irgendwie machst du dir das Leben unnötig schwer.
Jede Wette, du kopierst jedes Feld einzeln, oder ?
Schau mal auf http://www.delphipraxis.net/internal...ct.php?t=19594
Man sollte es aber dem Benutzer überlassen, ob er einen bestehenden Datensatz
als Ausgangspunkt für einen neuen Datensatz nehmen möchte oder ob er mit einem leeren Datensatz
anfangen möchte.