Ninguem Sabe!! uma semana gt;gt;gt;(Relatorio)
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;
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
Curtidas 0
Respostas
Anonymous
06/02/2003
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;
no on exit do edit, tenta colocar este codigo:
procedure Edit1.onexit(sender)
begin
Table1.filtered := ´nome_campo = ´´´ + edit1.text + ´´´;
Table1.filter := true;
end;
GOSTEI 0
Rodrigo_lemes
06/02/2003
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
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
GOSTEI 0
Anonymous
06/02/2003
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;
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;
GOSTEI 0