Buscar por:

Imprimindo a partir de consulta

Código

{Experimente usar o FILTRO na query do QReport.}

var 

frmqreport: TfrmQreport; {seu form de qr} 

begin 

try 

try 

qr.filtered:=false; 

qr.filter:='cmpNome ='+sVarXXX; 

qr.filtered:=true; 

frmqreport:= Tfrmqreport.create( application); 

frmqreport.qreport.previewmodal; 

except 

{erro} 

end; 

finally 

qr.filtered:=false; 

qr.filter:=''; 

frmqreport.free; 

end; 

Na string SQL da query: 

select cmpNome, cmpXXXX, etc... 

from "tabeladosdados.db" 

  {Poderia usar também:

cmpNome LIKE "GUSTAVO" ao invés de FILTER. Para colocar as ASPAS use QUOTESTR(). 

qr.SQL.ADD() veja help 

sVarSQL:= 'cmpNome LIKE '+ QUOTESTR( sVarNome ) na última linha da string SQL}