dbgrid im Bearbeitungsmodus

[khh]

doppelpost, bitte löschen

[Uwe Raabe]

Zitat von 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.

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 von 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.

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

[BadenPower]

Zitat von Uwe Raabe:

Zitat von 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.

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 von khh:

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

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

Zitat von 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

Der Code von Uwe funktioniert perfekt und müßte meiner Meinung nach genau das abdecken, was Du willst.