Cita:
Empezado por egostar
Pues yo lo que haría es tener una tabla donde almaceno el estado de la habitación y en base al estado "pintar" el panel.
Por ejemplo algo así:
Código Delphi [-]
TQuery.SQL.Text := 'SELECT HABITACION, ESTADO FROM EDO_HABITACIONES';
TQuery.Open;
while not TQuery.EoF do
begin
case TQuery.FieldsByName('ESTADO').AsInteger of
0: begin PanelX.Color := clGreen;
end;
1: begin PanelX.Color := clRed;
end;
end;
TQuery.Next;
end;
TQuery.Close;
Aquí lo único es asignar el panel correspondiente dependiendo de la habitación.
Saludos
|
Aqui te muestro el codigo que estoy poniendo para mandar llamar los datos de la base de datos...
Código Delphi
[-]
procedure Tfrm_capt_mapa.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if (DataSource1.DataSet.FieldByName('estatus').AsString) = 'RES' then
Panel1.Color :=clRed
else
Panel1.Color :=clGreen;
end;
Pero no me está funcionando!!!