El SQL de mi IBQuery
"SELECT * FROM CALCULOCONTRATADOS(:TIPOFUNC, :FECHAINI, :FECHAFIN)
ORDER BY PERSONA"
Donde CALCULOCONTRATADOS es el procedimiento de Firebird y me retorna 10
campos y eso es lo que hace muchos calculos y quiero que me muestre en una barra de progreso mientras dura el proceso.
Con este codigo le envio los paramtros
Query.close;
Query.Params.Items[0].AsString := Edit1.Text ;
Query.Params.Items[1].AsDate := Fecha1.Date;
Query.Params.Items[2].AsDate := Fecha2.Date ;
Query.open;
en donde tengo que meter el thread para medir el Tiempo?
Gracias a todos por las respuestas
|