In einem DBGrid andere Dinge anzeigen als drinstehen

[Der schöne Günther]

Ihr Profis habt das ja schon alle x mal gemacht : Ich lasse den Benutzer mit einem TDBGrid in einer Ergebnismenge wühlen. Ich möchte ihm allerdings in einer Spalte (Zahl) nicht das anzeigen was drinsteht, sondern den zehnfachen Wert.

Wo muss ich ansetzen? Ich kenne mich mit Datenbanken nicht aus, irgendwo habe ich den Terminus "Berechnete Felder" im Hinterkopf.

Ich finde auf dem TDBGrid nichts und nicht auf dem TDataSource nichts. Was übersehe ich?

[mm1256]

Bin zwar kein Profi...aber vielleicht reicht's trotzdem:

Delphi-Quellcode:

procedure TForm1.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with (Sender as TDBGrid).Canvas do begin
    Column.Field.AsFloat...

  end;

[Dejan Vu]

Du kannst:
1. Berechnete Felder erstellen. Dazu fügst Du in deinem TDatset-Derivar ein neues Feld ein, setzt den Modus auf 'calculated' und setzt das Feld im OnCalculate(Fields?)-Ereignis des TDataset à la 'myCalcField.AsInteger := random(20)';

2. Du erstellst Eventhandler für OnGetText/OnSetText für das Feld (blöde Idee)

3. Du überschreibst, wie mein Vorredner geschrieben hat, das onDraw-Event des Grids (auch nicht soooo toll, finde ich)

Fang mal mit calculated fields an. Ist praktisch. OnGetText/OnSetText verwendet man zum 'übersetzen' von Feldern (eher Transliteration).

[Uwe Raabe]

Zitat von Dejan Vu:

2. Du erstellst Eventhandler für OnGetText/OnSetText für das Feld (blöde Idee)

Ist eigentlich gar nicht so blöd. Solange die Felder im DBGrid nicht geändert werden, braucht man sich um den OnSetText-Event auch gar nicht kümmern, aber auch das wäre für diesen Anwendungsfall nicht schwer.

Man kann ja auch problemlos mit den tatsächlichen Werten der Felder weiterarbeiten, da diese ja nicht verändert werden. Der Event wird ja nur bei der Abfrage der Properties Text und DisplayText ausgewertet. Die Properties Value oder AsString oder alle anderen As<XXX> liefern immer noch die Originalwerte.

[Dejan Vu]

Zitat von Uwe Raabe:

Ist eigentlich gar nicht so blöd. Solange die Felder im DBGrid nicht geändert werden, braucht man sich um den OnSetText-Event auch gar nicht kümmern, aber auch das wäre für diesen Anwendungsfall nicht schwer.

Richtig ... 'solange'.. Aber dann hat man eine schwer zu findende Macke in seiner SW. Ich mag das 'verbiegen' von Originalwerten nicht, außer zur Transliteration, aber dann ist das gewollt. Allerdings ist das alles Geschmackssache bzw. eine Frage des Patterns. Wenn ich in meiner Anwendung häufig Änderungen der Darstellung über das OnGetText mache, dann werde ich da bei Problemen auch nachschauen...

Hmm.. Vielleicht wirklich nicht so blöd, meine kurzzeitige Gehirnabsenkung.

Ich persönlich (der es gerne klar und einfach hat), bevorzuge 'MyField' und 'MyFakedField' als explizite Feldnamen für die Daten. Dann weiß ich selbst nach 10 Tagen noch, was Sache war.

[Der schöne Günther]

Das OnGetText -Event eines TFields ist wirklich auch interessant. Denn es sagt mir ja explizit, ob er den Wert grade zur Anzeige oder zum Benutzen haben will:

Delphi-Quellcode:

TFieldGetTextEvent = procedure(
   Sender: TField; 
   var Text: string;
   DisplayText: Boolean
) of object;

Gute Argumente auf beiden Seiten. Ich muss da mal drüber grübeln...

[p80286]

select wert*10 from irgendwo oder

Pseudocode:xx.Cells[x,y].Text=inttostr(myquery.field[z].asinteger*10; (das geht natürlich mit TDBGrid nicht)

aber ich befürchte Du meinst etwas anderes.

Gruß
K-H

[Der schöne Günther]

Zitat von p80286:

aber ich befürchte Du meinst etwas anderes.

Richtig, ich will ja nur die Anzeige anpassen. Arbeiten möchte ich natürlich mit den "echten" Daten.

Zitat von mm1256:

Bin zwar kein Profi...aber vielleicht reicht's trotzdem:

Danke für die Idee. Das wird sicher funktionieren, wäre aber mein letzter Ausweg. Es ist im Endeffekt genau was ich will, aber zwingt einem zum "Malen".

Zitat von Dejan Vu:

Berechnete Felder erstellen. [...]

Das wird es wohl werden. Was mich, so als Amateur, daran jetzt stört ist: Warum blähe ich die Ergebnismenge hier künstlich auf? Klar, das wird wahrscheinlich auf Client-Seite erst nachträglich drangedichtet werden (hoffe ich), aber mir ist das unsympathisch, dass da jetzt jeder drankommt.

Ich wollte eigentlich nur die Werte im DBGrid anpassen. Blöd dass der da nichts anbietet.

[Dejan Vu]

Zitat von Der schöne Günther:

Warum blähe ich die Ergebnismenge hier künstlich auf?

Tust Du ja nicht.

[Der schöne Günther]

Ich formuliere es anders herum: Ich fummele am TDataSet herum. Ich hätte erwartet, direkt den TDBGrid oder wenigstens das TDataSource anfassen zu können.

Wenn ich jetzt irgendeine Logik habe, die das TDataSet auswertet kann sie auch an die berechneten Felder dran die nur für die Anzeige verwendet werden. Finde ich, spontan, doof.