EDUCTD

Olá Pessoal, estou com outro problema, agora com QuickReport. Segue abaixo Descrição do Mesmo: Tenho duas tabelas "IBTABLE" uma "CLIENTES" a a outra "ITENS_ORDEM". segue informações das tabelas 1 CLIENTES CLIENTES_CODIGO CLIENTES_NOME INTEGER CHAR(50) 2 ITENS_ORDEM OC_NUMERO CLIENTES_CODIGO PEDIDO QUANTIDADE ROTA UF DATA_PEDIDO DATA_OC INTEGER INTEGER INTEGER FLOAT CHAR CHAR TIME STAMP TIMESTAMP TENHO UM DBGRID "ITENS_ORDEM" QUE TEM UM CAMPO LOOKUP QUE MOSTRA O NOME DO CLIENTE CONFORME O CÓDIGO DO CLIENTE. O PROBLEMA É QUANDO VOU IMPRIMIR COMO FAÇO PARA AO IMPRIMIR OS INTENS DA ORDEM E MOSTRAR O NOME DO CLIENTE. SERIA ASSIM: OC_NUMERO | CODIGO CLIENTE | NOME | PEDIDO |QUANT. | ROTA | UF | DATA_OC 10 | 1042536 | FULANO DE TAL | 3333333 | 300 | NATAL | RN | 20/08/2000 FICO NO AGUARDO DE UMA AJUDA. VALEU RECIFE FUNCIONOU BEM,MAS TEVE OUTRO PROBLEMA. O NOME DO CLIENTE SEMPRE ESTÁ SAINDO REPETIDO, NÃO ALTERA QUANDO MUDA O CLIENTE. COMO RESOLVER ESTE PROBLEMA ?

procedure Tfrm_CLIENTES.Edit_Consulta_NomeChange(Sender: TObject); begin with IBQuery do begin if Edit_Consulta_Nome.Text <>'' then begin Cursor:=crHourGlass; IBQuery.Close; IBQuery.SQL.Clear; IBQuery.sql.add ('select * from clientes where Upper(CLIENTE_NOME)'); IBQuery.sql.add ('Like Upper('''+Edit_Consulta_Nome.Text+'%'')'); IBQuery.Prepare; IBQuery.Open; Cursor:=crDefault; end else begin close; end; end; end; tenta assim......e ai amarra o DataSourcer no DbGrid.... espero ter ajudado ..... Valeu cara consegui de outro modo, descrito em outro modo para ajudar outros que prescisam também: no evento on change do edit with IBQuery do begin if Edit_Consulta_Nome.Text <>'' then begin Cursor:=crHourGlass; IBQuery.Close; IBQuery.SQL.Clear; IBQuery.sql.add ('select * from clientes where CLIENTE_NOME like :nome'); IBQuery.Params.ParamByName('NOME').Value:=Edit_Consulta_Nome.Text+'%'; IBQuery.Open; Cursor:=crDefault; end else begin close; end; end;

Bom dia pessoal, sou novo em desenvolvimento em Delphi, estou com um problema ao usar o componente IBquery para efetuar consulta e mostrar o resultado num DBgrid. o código abaixo foi testado com uma Query da guia BDE com banco Paradox e funcionou perfeitamente, mas quando mudei para o banco Interbase não está funcionando mais. segue abaixo: on evento on change o edit. procedure Tfrm_CLIENTES.Edit_Consulta_NomeChange(Sender: TObject); begin with IBQuery do begin if Edit_Consulta_Nome.Text <>'' then begin Cursor:=crHourGlass; IBQuery.Close; IBQuery.SQL.Clear; IBQuery.sql.add ('select * from clientes where CLIENTE_NOME = :nome'); IBQuery.ParamByName('NOME').Value:=Edit_Consulta_Nome.Text+'%'; IBQuery.Prepare; IBQuery.Open; Cursor:=crDefault; end else begin close; end; end; end; alguém pode me ajudar com essa dúvida ?