Abfrage auf Generator

[Rippo]

Delphi-Quellcode:

if (SDS_GenPTV.DataSet.CommandText) = '0' then
  Button6.Font.Color := clGreen
  else
   Button6.Font.Color := clRed;

hab das jetzt so gemacht bekomme jedoch nicht den button auf grün oder rot

[OrNEC]

Es kann sein, dass man die Buttons irgendwie anders färbt. Stell diese Frage mal, oder google mal danach.

[Lemmy]

Zitat von Rippo:

Delphi-Quellcode:

if (SDS_GenPTV.DataSet.CommandText) = '0' then
  Button6.Font.Color := clGreen
  else
   Button6.Font.Color := clRed;

hab das jetzt so gemacht bekomme jedoch nicht den button auf grün oder rot

Punkt 1: Les doch bitte mal alle Posts hier und nicht nur die, die Code enthalten
Punkt 2: Bei einem TButton kann die Farbe nicht geändert werden, weil die darunterliegende WinAPI das nicht unterstützt - nimm statt dessen einen TBitBtn

[nahpets]

Sorry, aber was hast Du vor?

in CommandText steht doch duie Zeichenfolge: ' SELECT Gen_ID(Status,0) from rdb$database ' ; Die kann doch niemals = '0' sein.

Also,wenn ich jetzt nicht total auf dem falschen Dampfer unterwegs bin, täte ich mal sowas in der Art probieren:

Delphi-Quellcode:

// auszuführendes SQL-Statement zuweisen
SDS_GenPTV.DataSet.CommandText := ' SELECT Gen_ID(Status,0) from rdb$database ' ;
// Abfrage öffnen
SDS_GenPTV.DataSet.Open;
// Ergebnis auswerten
case SDS_GenPTV.DataSet.Fields[0].AsInteger of
  0 : Button6.Color := clGreen
else
  Button6.Color := clRed; 
end;
// Abfrage schließen
SDS_GenPTV.DataSet.Close;

Button.Font.Color färbt die Beschriftung des Buttons.
Soll sich die Farbe des Buttons ändern, dann ändert man Button.Color. (Da hab' ich micht durch die Eigenschaft Color in der Delphi-7-Hilfe irritieren lassen, sie ist nicht veröffentlicht