AGB  ·  Datenschutz  ·  Impressum  







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

dbgrid im Bearbeitungsmodus

Ein Thema von khh · begonnen am 16. Jul 2015 · letzter Beitrag vom 20. Jul 2015
Antwort Antwort
BadenPower

Registriert seit: 17. Jun 2009
616 Beiträge
 
#1

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 12:19
ich habe mir überlegt, per Data.DB.TField.OnGetText und Data.DB.TField.OnSetText

das Datum zu speichern und mit der eingegebenen Zeit wieder zurück zu schreiben.
Sowas ähnliches wollte ich auch gerade vorschlagen.
Wenn er nur die Zeit ändern möchte ist dies mit OnGetText/OnSetText natürlich eine einfache Lösung.


Allerdings sollte man noch berücksichtigen, dass eventuell ein Ändern des Datums und nicht nur der Uhrzeit erwünscht/notwendig sein könnte.

Hier müsste man dann den eingegebenen Wert in einen DateTime-Wert umwandeln und prüfen, ob ein Datum welches sich vom vorhandenen Datum unterscheidet vorhanden ist, oder ob es sich um den 30.12.1899 handelt.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
  Mit Zitat antworten Zitat
khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.929 Beiträge
 
FreePascal / Lazarus
 
#2

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 12:54
alsoo,

Delphi-Quellcode:
procedure TForm19.ClientDataSet1MyFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  Text := FormatDateTime('hh:mm', Sender.AsDateTime);
end;

procedure TForm19.ClientDataSet1MyFieldSetText(Sender: TField; const Text: string);
begin
  Sender.AsDateTime := DateOf(Sender.AsDateTime) + StrToTime(Text);
end;
im Dataset verursacht mir unerklärliche Dinge

Die Uhrzeit steht zu Beginn im Caption der Form und das Feld im Grid ist leer
Karl-Heinz
  Mit Zitat antworten Zitat
BadenPower

Registriert seit: 17. Jun 2009
616 Beiträge
 
#3

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 13:30
EDIT:
hier stand Blödsinn
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.

Geändert von BadenPower (20. Jul 2015 um 13:44 Uhr)
  Mit Zitat antworten Zitat
khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.929 Beiträge
 
FreePascal / Lazarus
 
#4

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 14:38
mh, den "Blödsinn" hab ich nicht gesehen
Karl-Heinz
  Mit Zitat antworten Zitat
BadenPower

Registriert seit: 17. Jun 2009
616 Beiträge
 
#5

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 14:56
mh, den "Blödsinn" hab ich nicht gesehen
Macht nichts, denn was da stand, war nicht richtig.


alsoo,

Delphi-Quellcode:
procedure TForm19.ClientDataSet1MyFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  Text := FormatDateTime('hh:mm', Sender.AsDateTime);
end;

procedure TForm19.ClientDataSet1MyFieldSetText(Sender: TField; const Text: string);
begin
  Sender.AsDateTime := DateOf(Sender.AsDateTime) + StrToTime(Text);
end;
im Dataset verursacht mir unerklärliche Dinge

Die Uhrzeit steht zu Beginn im Caption der Form und das Feld im Grid ist leer
Der Code von Uwe funktioniert perfekt und müßte meiner Meinung nach genau das abdecken, was Du willst.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
  Mit Zitat antworten Zitat
khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.929 Beiträge
 
FreePascal / Lazarus
 
#6

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 15:04
Hallo BadenPower,
(würdest du bitte deinen Test hier mal reinstellen? ich bekomme nur oben genannten Schrott hin)
hat sich erledigt!
Delphi-Quellcode:

procedure TForm1.ZQuery1ZEITGetText(Sender: TField; var aText: string;
  DisplayText: Boolean);
begin
   Text := FormatDateTime('hh:mm', Sender.AsDateTime);
end;

procedure TForm1.ZQuery1ZEITSetText(Sender: TField; const aText: string);
begin
   Sender.AsDateTime := DateOf(Sender.AsDateTime) + StrToTime(Text);
end;
allerdings unterscheidet sich bei lazarus wohl der parametername aText.
Wenn ich diesen in Text umbenenne bekomme ich Folgendes:
unit1.pas(28,54) Hint: Identifier already defined in unit CONTROLS at line 1393


EDIT :
klar, wenn mein Parameter aText heisst, sollte ich in der procedure auch aText verwenden
Karl-Heinz

Geändert von khh (20. Jul 2015 um 15:19 Uhr)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.879 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 15:10
Delphi-Quellcode:
procedure TForm1.ZQuery1ZEITGetText(Sender: TField; var aText: string;
  DisplayText: Boolean);
begin
   aText := FormatDateTime('hh:mm', Sender.AsDateTime);
end;
Markus Kinzler
  Mit Zitat antworten Zitat
khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.929 Beiträge
 
FreePascal / Lazarus
 
#8

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 15:18
FUNKTIONIERT!!!!!!

Ich danke euch gewaltig !
Karl-Heinz
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.731 Beiträge
 
Delphi 12 Athens
 
#9

AW: dbgrid im Bearbeitungsmodus

  Alt 20. Jul 2015, 15:00
Die Uhrzeit steht zu Beginn im Caption der Form und das Feld im Grid ist leer
Prüf mal deinen Code. Ich vermute, du setzt nicht Text := , sondern Caption := . Das würde das Verhalten zumindest erklären.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Antwort Antwort


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 14:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz