Ninguem Sabe!! uma semana gt;gt;gt;(Relatorio)

06/02/2003

0

Eu quero o seguinte,no Form1 tem o Edit1 e um Botão
Tem como fazer um RELATRIO(Quick Report) com nome? se digita a letra ´ M ´ no Edit1 e sai a relacão dos cliente que começa só com a letra´ M ´ no Form2 ????
E se tem que usa uma Query, que codigo que usa na Propriedade SQL e em qual Form

Eu tenho um relatorio só que sair todos relacão dos clientes da ´´ Table ´´, eu uso Dois ´´ Form ´´ e este comando
>>>NO OnClick do Botão do Form1 { Comando que chama o Form2Rela }

Form2Rela:=TFrm2Rela.create(application);
Form2Rela.QuickRep1.PreView;
Form2Rela.QuickRep1.Free;
Form2Rela.free;


Anonymous

Anonymous

Responder

Posts

06/02/2003

Anonymous

Vc ja tentou usar o filtro da Table.
no on exit do edit, tenta colocar este codigo:

procedure Edit1.onexit(sender)
begin
Table1.filtered := ´nome_campo = ´´´ + edit1.text + ´´´;
Table1.filter := true;
end;


Responder

06/02/2003

Rodrigo_lemes

Você terá que colocar uma query no seu relatório. Nela coloque o seguinte código: SELECT * FROM NomeDaTabela

No botão que chama o relatório coloque o código:
With QuickReport1 do
Begin
Query1.Close;
Query1.SQL[1]:= ´WHERE NomeCampo Like ´+´´´´+Edit1.Text+´¬´´´;
Query1.Open;
Preview;
End;

Obs.:
Se desejar em qualquer parte do nome coloque:
´WHERE NomeCampo Like ´+´´´¬´+Edit1.Text+´¬´´´;

Qualquer dúvida me envie um e-mail.
Um grande abraço,
Rodrigo Lemes


Responder

07/02/2003

Anonymous

Jairo-GO

A melhor maneira e utilizar uma query:

select * from clientes where nome like edit1.text+´¬´
´Essa linha diz para mostrar todos os registros da tabela clientes onde o nome começe com conteúdo do edit1.text. O problema é com os acentos.

Você também pode utilizar o filter e filtered da tabela.
table1.Filter := ´nome like ´+quotedstr(´edit1.text+´¬´)
table1.filtered := true;


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar