DBGrid Feld/Datentyp einblenden?

[stinketier]

Hallo zusammen,

ich Frage mich seit Vielen Jahren ob es Möglich ist in einen DBGrid den FeldTyp mit anzuzeiten?
z.b.

Code: Alles auswählen

SELECT
 ID,
 Vorname,
 Nachname,
 Kontostand
From DBMitglieder

DBGrid.png (16.7 KiB) 1766 mal betrachtet

[af0815]

Sorry, wenn ich frage - wozu? Für mich ist das sinnlos. Wenn ich wissen will, was das für Feldtypen sind, so frage ich die DB.

Doppelklick auf die Query und die Felder erstellen lassen, ist das Maximum, wo ich das brauche. Da bekommst du sowieso einige Informationen. Dataset und Grid sollten das machen was sie am besten können. Daten anzeigen und ev. was ändern. Bei Lazarus ist übrigends ein Database Desktop dabei, den braucht man sich nur selbst zu kompilieren.

[stinketier]

naja

Feld Typen anzeigen oder Feldkommentare anzeigen finde ich schon mega praktisch
und ja rechtsklick create Table etc ist einer der gründe

die frage ist ja auch nicht wozu
sondern eher wie geht das?

vielleicht merke ich ja in einen halben Jahr das ich das garnicht so nutze
die Erfahrung muss man halt machen

[charlytango]

Feld Typen anzeigen oder Feldkommentare anzeigen finde ich schon mega praktisch
und ja rechtsklick create Table etc ist einer der gründe

die frage ist ja auch nicht wozu
sondern eher wie geht das?

Es ist wohl eher so dass du im Moment fragst "Wie lange ist ein Stück Seil?"

Um halbwegs qualifizierte Antworten zu geben Ist Umfeld und Einsatzzweck (also das Ziel) genau so wichtig wie welche Tabelle du anzeigen willst (also aus welcher Art von Datenbank) und mit welchen Zugriffskomponenten du arbeitest.

Du scheinst per SQL auf Daten zuzugreifen, aber mit welchen Zugriffskomponenten und auf welche SQL-Datenbank? Jede Kombination hat ihre eigenen Lösungsansätze.

vielleicht hilft das schon mal;

Code: Alles auswählen

   dataset.fieldByNAme('blub').FieldKind
   dataset.fieldByNAme('blub').Size
   dataset.fieldByNAme('blub').DataType

   dataset.fields[1].FieldKind
   dataset.fields[1].Size
   dataset.fields[1].DataType 

Hier https://www.heidisql.com/download.php ist das übrigens alles gelöst und ausprogrammiert. Du kannst dir auch den auch Source downloaden und ansehen.

[wp_xyz]

ich Frage mich seit Vielen Jahren ob es Möglich ist in einen DBGrid den FeldTyp mit anzuzeiten?

Siehe Projekt im Anhang (nicht bis ins letzte Detail ausgearbeitet..., aber das Prinzip sollte erkennbar sein).

[stinketier]

Feld Typen anzeigen oder Feldkommentare anzeigen finde ich schon mega praktisch
und ja rechtsklick create Table etc ist einer der gründe

die frage ist ja auch nicht wozu
sondern eher wie geht das?

Es ist wohl eher so dass du im Moment fragst "Wie lange ist ein Stück Seil?"

Um halbwegs qualifizierte Antworten zu geben Ist Umfeld und Einsatzzweck (also das Ziel) genau so wichtig wie welche Tabelle du anzeigen willst (also aus welcher Art von Datenbank) und mit welchen Zugriffskomponenten du arbeitest.

Du scheinst per SQL auf Daten zuzugreifen, aber mit welchen Zugriffskomponenten und auf welche SQL-Datenbank? Jede Kombination hat ihre eigenen Lösungsansätze.

vielleicht hilft das schon mal;

Code: Alles auswählen

   dataset.fieldByNAme('blub').FieldKind
   dataset.fieldByNAme('blub').Size
   dataset.fieldByNAme('blub').DataType

   dataset.fields[1].FieldKind
   dataset.fields[1].Size
   dataset.fields[1].DataType 

Hier https://www.heidisql.com/download.php ist das übrigens alles gelöst und ausprogrammiert. Du kannst dir auch den auch Source downloaden und ansehen.

das weiß ich ja noch nicht wo die reise wirklich hingeht
es soll ja Möglichs flexibel sein.

zugriff erfolgt bei mir eigentlich immer über Zeos.
Datenbanken sind eigentlich alle mögliche

[stinketier]

ich Frage mich seit Vielen Jahren ob es Möglich ist in einen DBGrid den FeldTyp mit anzuzeiten?

Siehe Projekt im Anhang (nicht bis ins letzte Detail ausgearbeitet..., aber das Prinzip sollte erkennbar sein).

traumhaft
genau das ist doch das was ich eigentlich will

Code: Alles auswählen

  
  ts := DBGrid1.Canvas.TextStyle;
  ts.WordBreak  := true;
  ts.SingleLine := false;
  ts.Layout     := tlCenter;
  ts.Alignment  := Column.Title.Alignment;
  DBGrid1.Canvas.TextStyle := ts;
  s := GetEnumName(TypeInfo(TFieldType), Integer(Column.Field.DataType));
  Delete(s, 1, 2);
  if Column.Field.DataType in [ftString, ftWideString] then
    s := Format('%s (%d)', [s, Column.Field.Size]);
  R := Rect;
  InflateRect(R, -varCellPadding, -varCellPadding);
  DBGrid1.Canvas.TextRect(R, R.Left, R.Top, Column.FieldName + LineEnding + s);