puxar dados do dbgrid para quick report 4

Delphi

03/01/2008

Olá! amigos, fiz um sistema de busca em um formulario coloquei uma query um datasource e um dbgrid liguei-os. Esta funcionando perfeitamente mas quando clico no botão para imprimir a busca realizada o quick report esta puxando todos os dados existente na tabela.

DÚVIDA: COMO FAÇO PARA PUXAR SOMENTE OS DADOS QUE ESTÃO PRESENTE NO DBGRID?

grato

Sérgio.


Motoqueiro10

Motoqueiro10

Curtidas 0

Respostas

Motoqueiro10

Motoqueiro10

03/01/2008

Conseguimos resolver o problema! Um colega meu passou o seguinte script:

dentro do botão que vai chamar o relatorio do quick report colocar esse script:

//************ PUXA APENAS OS VALORES DO GBGRID ************
form.query1.SQL.Clear ;
if radiogroup1.ItemIndex = 0 then
form.query1.sql.Add(´SELECT * FROM TABELA WHERE upper(nota_fiscal) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY inclusao ´)
else if radiogroup1.ItemIndex = 1 then
form.query1.SQL.Add(´SELECT * FROM TABELA WHERE upper(nom_cliente) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY nom_cliente ´)
else if radiogroup1.ItemIndex = 2 then
form.query1.SQL.Add(´SELECT * FROM TABELA WHERE upper(nom_vendedor) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY nom_vendedor ´);
//************ PUXA APENAS OS VALORES DO GBGRID ************
form.query1.Close;
form.query1.ExecSQL;
form.query1.Active:=true;
form.Preview;

Espero ajudar mais alguém!


GOSTEI 0
POSTAR