[edufg]

- lo primero gracias por contestar.
Si debe ser así ya que se trata de un trabajo de clase, a través de los spinedit debo introducir los valores de las temperaturas diarias del mes, a su vez cuando pulsamos en l a opción del menú recuperar temperaturas del mes recorrerá los spinedit y los mostrara por pantalla.

procedure TVentana.MM_recuperar_datosClick(Sender: TObject);
var ANNO_actual,MES_Actual: integer;
auxStr: String;
begin
{Cuando el usuario hace clic en la opción del menú "Recuperar los datos de otro mes"
debe aparecer una ventana donde selecciona el mes y año que desea consultar
y hace clic en el botón Aceptar. A continuación, el programa debe buscar
en la base de datos los registros que corresponden con ese mes y año
y mostrarlos en la ventana.}

Application.CreateForm (TVSeleccionar,VSeleccionar);
/// con la ventana Seleccionar realizar lo siguiente
with VSeleccionar do
begin
if ShowModal=mrOK then /// cuando pulsamos el boton ok
/// introducimos las etiquetas
L_Temperatura_fecha.Caption:= 'Temperaturas del mes de '+ CB_mes.text +' del año '+SE_ano.text;
Q_Busqueda.Active:=False;/// desactivar query
Q_Busqueda.SQL.Clear; /// borrar query
ANNO_actual:= SE_ano.value;
MES_Actual:= CB_mes.ItemIndex+1;
Q_Busqueda.SQL.Add('SELECT DIA, TEMPE FROM Tempe WHERE MES="'+inttostr(MES_Actual)+'" AND ANNO="'+inttostr(ANNO_actual)+'"');
Memo1.Text:=Q_Busqueda.SQL.Text;
/// introducir datos, seleccionar SELECT los campos dia y tempe de FROM la BD tempe
/// donde mes es igual (MES=) a los datos introducidos en MES_ACTUAL y año es igual (AND ANNO=) datos de CB_mes.text
Q_Busqueda.Active:=True; /// activar query
// Recorremos con un bucle todos los componentes de la ventana.
if not((Q_Busqueda.Bof) and (Q_Busqueda.Eof)) then
while not (Q_Busqueda.Eof) do begin
// que queremos buscar el componente en esta ventana
if Self.FindComponent('SE_'+IntToStr(Q_Busqueda.Fields[0].AsInteger))<>nil then
TSpinEdit(Self.FindComponent('SE_'+IntToStr(Q_Busqueda.Fields[0].AsInteger))).Value:=Q_Busqueda.Fields[1].AsInteger;
Q_Busqueda.Next;
end;
end;
end;