dbgrid im Bearbeitungsmodus

[khh]

Hallo zusammen,
ich habe ein DBGrid mit einer TColumn die ein Timestamp-Feld aus der DB anzeigt.
das Feld ist per DisplayFormat HH:mm formatiert.
Funktioniert fabelhaft ;-)

Per Doppelklick ins Feld wird in den Bearbeitungsmodus umgeschaltet und der Feldinhalt im Format "19.07.2015 19:00:00" angezeigt und editierbar.
Per Eingabe lässt sich aber auch die Uhrzeit editieren, ohne dass das komplette Format angezeigt wird.
Hier nun allerdings wir der Tag automatisch auf Tag 0 (z.B. 30.12.1899 17:00:00) zurückgesetzt.

Wie kann ich das verhindern ?
Ich möchte den ursprünglich gespeicherten Tag erhalten.

Ich danke euch

[BadenPower]

Zitat:

Zitat von khh (Beitrag 1308895)

Per Eingabe lässt sich aber auch die Uhrzeit editieren, ohne dass das komplette Format angezeigt wird.

Wie?

[khh]

indem man ohne Doppelklick den enthaltenen Wert einfach z.B. mit 14:30 überschreibt.
Damit setzt man den Tag auf 0 resp. 30.12.1899

[BadenPower]

Zitat:

Zitat von khh (Beitrag 1309018)

indem man ohne Doppelklick den enthaltenen Wert einfach z.B. mit 14:30 überschreibt.
Damit setzt man den Tag auf 0 resp. 30.12.1899

Ich wollte wissen, wie Du im Grid dafür sorgst, dass Du nur die Uhrzeit anzeigen lässt, welche Du dann bearbeiten kannst.
Das ist entscheident dafür, ob der Tag auf den 30.12.1899 gesetzt wird.

[khh]

mit :
DisplayFormat HH:mm

[khh]

jemand ne Idee, ob das per DisplayFormat zu handeln ist ?

Oder gibt es einen anderen Weg?

Ich danke euch

[BadenPower]

Zitat:

Zitat von khh (Beitrag 1309122)

jemand ne Idee, ob das per DisplayFormat zu handeln ist ?

Da ist ein Problem mit dem Grid selbst.

Wenn Du nachdem die Zelle selektiert ist ohne darauf zu klicken eine Taste bedienst, dann kannst Du den Wert zwar editieren, aber das Grid befindet sich eigentlich nicht im Editiermodus.


Aber auch wenn Du Dich im Editiermodus befindest und das Datum löschst und nur einen Zeitwert angibst, dann wird das Datum auf 0 gesetzt, da dieser Wert dann eigeneben ist, weil er nicht vorhanden ist.

Gib, so wie Du es jetzt mit der Zeit gemacht hast einmal ein Datum ein z.B. 20.01.2015 dann wirst Du sehen, dass die Uhrzeit automatisch auf 00:00:00 gesetzt wird und den Wert, welche voher dastand ignoriert wird.

Ich schaue mir das nochmals genauer an, wenn ich etwas mehr Zeit habe. Schau mal nach EditMask in der TField-Klasse.

[khh]

ich danke dir

[khh]

alsoo,
EditMask ist wohl der richtige Weg die Eingabe zu beeinflussen.
Jetzt muss ich nur noch die richtige Maske hinbekommen.
Die diversen Möglichkeiten sind mir noch suspekt :-(

Ich befürchte aber, das verhindert mir immer noch nicht, dass das Datum zurück gesetzt wird :-(

[khh]

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.

was meint ihr dazu ?

danke gruss KH

[khh]

doppelpost, bitte löschen

[Uwe Raabe]

Zitat:

Zitat von khh (Beitrag 1309226)

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. Du kannst im OnGetText dem Anzeige- und Editstring den reinen Uhzeit-Text geben und beim OnSetText liest du den Feldwert aus (da steht das Datum nämlich noch drin) und änderst lediglich den Zeitanteil.

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;

[khh]

probier ich mal so aus,

ich danke dir

[bcvs]

Ich habe in einem solchen Fall Datum und Uhrzeit auf zwei Columns aufgeteilt.

in SQL:

Code:

Select cast (Zeiten.DATUM as Date) as "Datum", cast (Zeiten.DATUM as Time) as "Zeit"

Vor dem Speichern muss man die beiden Werte halt wieder zusammenfügen. Es ist dann aber immer klar, was geändert wird, Datum oder Uhrzeit.

[khh]

Zitat:

Zitat von bcvs (Beitrag 1309254)

Ich habe in einem solchen Fall Datum und Uhrzeit auf zwei Columns aufgeteilt.

in SQL:

Code:

Select cast (Zeiten.DATUM as Date) as "Datum", cast (Zeiten.DATUM as Time) as "Zeit"

Vor dem Speichern muss man die beiden Werte halt wieder zusammenfügen. Es ist dann aber immer klar, was geändert wird, Datum oder Uhrzeit.

hab ich auch grad mal so versucht.
Leider lassen sich die Felder so nicht bearbeiten, trotz dass TColumn.readOnly false ist.:-(

[BadenPower]

Zitat:

Zitat von Uwe Raabe (Beitrag 1309232)

Zitat:

Zitat von khh (Beitrag 1309226)

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.

[khh]

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 :-(

[BadenPower]

EDIT:
hier stand Blödsinn

[khh]

mh, den "Blödsinn" hab ich nicht gesehen

[BadenPower]

Zitat:

Zitat von khh (Beitrag 1309283)

mh, den "Blödsinn" hab ich nicht gesehen

Macht nichts, denn was da stand, war nicht richtig.

Zitat:

Zitat von khh (Beitrag 1309268)

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.

[Uwe Raabe]

Zitat:

Zitat von khh (Beitrag 1309268)

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

Delphi-Quellcode:

Text :=

, sondern

Delphi-Quellcode:

Caption :=

. Das würde das Verhalten zumindest erklären.

[khh]

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 ;-)

[mkinzler]

Delphi-Quellcode:

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

[khh]

FUNKTIONIERT!!!!!!

Ich danke euch gewaltig !