DateTime Anzeige in DBGrid ist bei der Zeit 00:00:00

[Smiley]

Ich habe in einer SQLite Datenbank eine Tabelle mit einem DateTime Wert.
Diesen zeige ich in einem DBGrid an.
Im GridInit habe ich explizit noch eingetragen:

Code:

TDateTimeField(grdKasse.Columns[7].Field).DisplayFormat:= 'dd.mm.yyyy hh:nn:ss';

Als Anzeige im Grid bekomme ich aber angezeigt "07.07.2022 00:00:00"
In der Tabelle sind unterschiedliche Zeiten enthalten. Nur das DBGrid zeigt es als 00:00:00 an.
Definiert wurde die Tabelle mit:

Code:

  qKasse.SQL.Text := 'Create Table If Not Exists Kasse ' +
    '(Nr INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,' +
    ' Name VARCHAR(100), EPreis Real, Menge Integer,Frei VARCHAR(1), ' +
    'Rabatt VARCHAR(1), Summe Real,Datum datetime, Bemerkung VARCHAR(200))';
  qKasse.ExecSQL;

Könnt ihr mir da einen Tip geben was ich falsch mache?

[hoika]

Hallo,
mal dd.mm.yy probiert?

Zum Test, ob das DisplayFormat überhaupt funktioniert.

[Papaschlumpf73]

Du schießt hier ein bisschen von hinten durch die Brust.

Das TDateTimeField gehört zum Dataset und hat eigentlich nichts mit dem Grid tun. So kann man es zwar auch machen; es ist jedoch sehr fehleranfällig. Sobald sich die Column-ID der Datumsspalte ändert, läuft das schon auf einen Fehler hinaus.

Beispiel unter der Annahme, dass das Dataset qKasseTbl heißt:

Wenn du die Felder persistent dem Dataset hinzugefügt hast, kannst du die DisplayFormat-Eigenschaft gleich im Objektinspektor setzen, oder im Code per qKasseTblDatum.DisplayFormat:='xyz'. Ansonsten geht auch qKasseTbl.FieldbyName('Datum').DisplayFormat:='xyz '

Wenn die Felder nicht persistent sind, geht's eigentlich nur über qKasseTbl.FieldbyName('Datum').DisplayFormat:='xyz ' - aber erst nachdem die Tabelle z.B. mit qKasseTbl.Open geöffnet wurde. Davor sind die Felder ja noch nicht verfügbar.

[Uwe Raabe]

Seit einigen Delphi-Versionen kann man ja auch persistente und nicht-persistente Felder nebeneinander im DataSet haben (siehe TFieldsAutoCreationMode). Dann legt man sich die eben persistent an, bei denen man bestimmte Einstellungen oder Events haben will und die anderen lässt man automatisch erzeugen.

[Smiley]

Kann es sein dass wir hier von verschiedenen Sprachen sprechen?

Bei "qKasse.FieldbyName('Datum')." gibt es keine DisplayFormat Eigenschaft.
In den Persistenten Feldern finde ich weder im Query noch im Grid eine Eigenschaft Display Format.

Es gibt in der Query unter FormatOptions die Eigenschaft FmtDisplayDateTime, diese habe ich auch auf "dd.mm.yyyy hh:nn:ss" gesetzt.

[Uwe Raabe]

TField kennt kein DisplayFormat, TDateTimeField aber schon.

Wenn du bei deiner Query persistente Felder hast, welchen Typ hat dann das Feld für "Datum"?

[Smiley]

Meine Query sieht so aus, wenn ich ein doppelklick auf die Query mache:
https://www.delphipraxis.net/attachm...1&d=1657454877

Dort steht nur "Date" als Typ.
Kann SQLite kein DateTime ? ich habe es aber im Create als DateTime angelegt.

Code:

  qKasse.SQL.Text := 'Create Table If Not Exists Kasse ' +
    '(Nr INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,' +
    ' Name VARCHAR(100), EPreis Real, Menge Integer,Frei VARCHAR(1), ' +
    'Rabatt VARCHAR(1), Summe Real,Datum datetime, Bemerkung VARCHAR(200))';
  qKasse.ExecSQL;

[Smiley]

Hier noch ein Bild von den Feldern im DBGrid
https://www.delphipraxis.net/attachm...1&d=1657455266

[Smiley]

So sieht es im SQLiteSpy aus:
https://www.delphipraxis.net/attachm...1&d=1657455639

[Smiley]

Hier der Inhalt des Formulars frmKasse:

Code:

procedure TfrmKasse.FormActivate(Sender: TObject);
begin
  grdKasse.DataSource:=DM.dsKasse;
  GridKasseInit;
end;

procedure TfrmKasse.GridKasseInit;
begin
  grdKasse.Columns[0].Width := 30;
  grdKasse.Columns[1].Width := 120; // Name
  grdKasse.Columns[2].Width := 50;  // Prei
  grdKasse.Columns[3].Width := 50;  // Menge
  grdKasse.Columns[4].Width := 40;  // Frei
  grdKasse.Columns[5].Width := 40;  // Rabatt
  grdKasse.Columns[6].Width := 50;  // Summe
  grdKasse.Columns[7].Width := 180; // Datum
  grdKasse.Columns[8].Width := 300; // Bemerkung
  (DM.qKasse.FieldByName('Datum') as Tdatetimefield).DisplayFormat := 'dd.mm.yyyy hh:nn:ss';
//  TDateTimeField(grdKasse.Columns[7].Field).DisplayFormat:= 'dd.mm.yyyy hh:nn:ss';
  TCurrencyField(grdKasse.Columns[2].Field).DisplayFormat:= '###0.00';
  TCurrencyField(grdKasse.Columns[3].Field).DisplayFormat:= '###0.00';
  TCurrencyField(grdKasse.Columns[6].Field).DisplayFormat:= '###0.00';
end;