Cambiar Color a Panel

[rotsen26]

egostar tienes algo parecido a lo que necesito... la cuestiones que yo los agarro con panel, segun el estado de la habitacion es el color que debe de tener el panel... si la habitacion esta ocupada debe tener color rojo y desocupada color verde... solo que no se como poner ese estado al abrir la ventana donde se encuentra los paneles...

[[egostar]]

Empezado por rotsen26

egostar tienes algo parecido a lo que necesito... la cuestiones que yo los agarro con panel, segun el estado de la habitacion es el color que debe de tener el panel... si la habitacion esta ocupada debe tener color rojo y desocupada color verde... solo que no se como poner ese estado al abrir la ventana donde se encuentra los paneles...

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 //LIBRE
           PanelX.Color := clGreen;
      end;
      1: begin //OCUPADA
           PanelX.Color := clRed;
      end;  
   end; 
   TQuery.Next;
end;
TQuery.Close;

Aquí lo único es asignar el panel correspondiente dependiendo de la habitación.

Saludos

[rotsen26]

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 //LIBRE
           PanelX.Color := clGreen;
      end;
      1: begin //OCUPADA
           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
      //Habitacion 1
  if (DataSource1.DataSet.FieldByName('estatus').AsString) = 'RES' then
    Panel1.Color :=clRed
  else
    Panel1.Color :=clGreen;
end;

Pero no me está funcionando!!!

[[egostar]]

Bueno, me parece que el problema es mas de concepto que de otra cosa, estás intentando que cambie el color del panel cuando haya un cambio en el registro, pero yo lo haría en el evento OnShow de la forma para que se "actualice" cuando se muestra la pantalla, y claro, dejaría el proceso que tienes para que se ejecute cuando se registre otra reservación.

Saludos

[rotsen26]

Empezado por egostar

Bueno, me parece que el problema es mas de concepto que de otra cosa, estás intentando que cambie el color del panel cuando haya un cambio en el registro, pero yo lo haría en el evento OnShow de la forma para que se "actualice" cuando se muestra la pantalla, y claro, dejaría el proceso que tienes para que se ejecute cuando se registre otra reservación.

Saludos

Ya lo he puesto en el evento OnShow pero sigue sin mostrar el resultado...

[ecfisa]

Hola rotsen26.

Otra opción puede ser usar el evento OnDataChange del TDataSource:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource.OnDataChange:= DataChange;
  DBGrid1.DataSource.DataSet.Open;
end;

procedure TForm1.DataChange(Sender: TObject; Field: TField);
begin
  if DBGrid1.DataSource.DataSet.FieldByName('estatus').AsString = 'RES' then
    Panel1.Color:= clRed
  else
    Panel1.Color:= clGreen;
end;


//...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DBGrid1.DataSource.OnDataChange:= nil;
end;

Asigno el evento por código para darle mayor claridad al ejemplo. Pero lo podés hacer desde el Object Inspector, en tiempo de diseño, diréctamente desde la pestaña Events del componente TDataSource relacionado al DBGrid.

Saludos.