Fórum Enigma: mostrar Progresso de um select???? #185800

procedure TfrmFAnaCli.btnConfirmaClick(Sender: TObject); begin btnConfirma.Enabled:= false; btnVoltar.Enabled:=false; Screen.Cursor:= crSQLWait; try with QryTemp do begin Close; DatabaseName := DM.TArqEmpr.DatabaseName; SQL.Clear; SQL.Add(´select´); SQL.Add(´C.v1 as Cod, C.v2 as Cliente, C.v4 as Municipio, C.v5 as UF,´); SQL.Add(´C.v12 as Contato, C.v13 as Telefone, R.v1 as codrep,´); SQL.Add(´R.v2 as Representante, C.Datacad,´); SQL.Add(´Max (N.Dnf) as Data,Max(N.nnf) as Nota, max (N.vlr) as Valor´); SQL.Add(´from arqclie C, arqprnf N, arqrepr R´); SQL.Add(´Where (C.v1 = N.ncl) and (N.nre = R.v1) and´ ); SQL.Add(´(c.v1 between :cli1 and :cli2) and´); SQL.Add(´(n.nre between :rep1 and :rep2)´); SQL.Add(´Group by C.v1, C.v2, C.v4, C.v5, C.v12,C.v13,R.v1, R.v2, C.datacad´); SQL.Add(´order by R.v1,C.v1´); Params[0].Value := mdtCliIni.Text; Params[1].Value := mdtCliFim.Text; Params[2].Value := mdtRepIni.Text; Params[3].Value := mdtRepFim.Text; Open; end; Screen.Cursor:= crDefault; Tempo.Caption:= IntToStr(QryTemp.RecordCount); btnImprime.Enabled:=true; btnVoltar1.Enabled:=true; except begin ShowMessage(´Erro de execução!´); btnConfirma.Enabled:= true; btnVoltar.Enabled:=true; Screen.Cursor:= crDefault; btnImprime.Enabled:=false; btnVoltar1.Enabled:=False; end; end; end;

bom, em SGBD (como IB) NÃO tem como mostrar o progresso de um select! -- não sei quanto a paradox ou dbase mas acho tb não dá. T+