diseño de cancha

[[Caral]]

Hola
No se si entiendo bien.
Tienes un programa que alquila o reserva lo que sea.
Quieres poner un TPanel simulando eso que alquilas.
Quieres que cuando preguntes si esta reservado o alquilado se cambie el color del tpanel al que quieras.
No entiendo por que no crear los tpanel en ejecución dependiendo de las condiciones ?.
La verdad es que seguro no entiendo el concepto de esto.
Saludos

[jose.ignacio.ve]

vos me decis que al ejecutar el formulario pregunte si la cancha 1 por ejemplo esta reservada si dice que si pinto de un color y si dice que no la pinto de otro verdad? pero si tengo dies canchas tendria q hacer dies preguntas!! a esos te refieres?

[jose.ignacio.ve]

los tpanel simulan las canachas!! yo tengo una tabla llamada alquiler que tiene id_cancha, id_socio,horadeinicio,horadefin,id_alquiler,monto,estado('A'alquilado, 'R'reservado)
si tenemos una reserva el dia 12/08/13 a la hora 20.00.00 de la cancha1 quiero q se me la pinte de rojo!!
mi cosulta

Código SQL [-]
selct * from alquiler
where alquiler.estado like 'R' and alquiler.ahoradeinicio = :hora and alquiler.fecha = :fecha

esa consulta me va a devilver por ejemplo dos registros porque voy a tener dos reservas a esa hora y esa fecha!!
yo quiero saber como hacer para pintar dos tpaneles de rojo.. por ejemplo la cancha1 y la cancha 3 y las de mas canchas tienen que quedar en verde!!

[ecfisa]

Hola.

A ver...

Supongamos que tenes diez canchas y vas a disponer de diez paneles para representar el estado de cada una. Le vamos a dar por nombres: pnlCancha1, pnlCancha2, ..., pnlCancha10.

Entonces un modo de pintar las canchas reservadas de color rojo es:

Código Delphi [-]
...
var
  P: TComponent;
begin
  tuQuery.Close;
  tuQuery.SQL.Text := 'AQUI LA CONSULTA QUE ARROJARÁ LOS ESTADOS DE LAS DIEZ CANCHAS';
  tuQuery.Open;
  while not tuQuery.Eof do
  begin
    P := FindComponent('pnlCancha' + IntToStr(tuQuery.FieldByName('ID_CANCHA').AsInteger));
   if Assigned(P) and (tuQuery.FieldByName('ESTADO').AsString = 'R') then
      TPanel(P).Color := clRed;
    tuQuery.Next;
  end;
  tuQuery.Close;
end;

Es claro que el nombre dado a los paneles debe estar compuesto por: Un nombre a tu antojo (en el ejemplo "pnlCancha") más el ID de la cancha a la que representa.

Ese código definitivamente pintará de rojo cada panel que represente a una cancha cuyo estado sea "reservado". De no ser así reformulá el código SQL de tu consulta.

Saludos