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
