INTERBASE

Delphi

05/11/2012

COMO FAZER PESQUISA EM MEU CADASTRO. BD INTERBASE?

COMPONENTES:

IBTRANSITION, IBDATABASE, DATASOURCE E IBTABLE.


EU POSSO USAR IBTABLE E O IBQUERY JUNTOS(ESSE SÓ PARA PESQUISA)?

?
Paulo

Paulo

Curtidas 0

Respostas

Gilvanio Gonçalves

Gilvanio Gonçalves

05/11/2012

Imagine que você tem o form fr_cliente, ok, e tem o form fr_consulta
No form fr_cliente voce tem os campos edCodigo, edNome, edCidade, e o botao de consulta.
Quando você clica nele, o fr_consulta é aberto, para que você pesquise o que deseja.
No form de consulta, você deve ter um edit para consulta (edConsulta), um componente IBquery,
um componente DBGrid e um dataset, que deverá estar ligado na Query (que iremos dar o nome de
busca) e o DBGrid ligado no DataSet.
No evento OnChange do edConsulta, voce deverá ter o seguinte código: 

Busca.Close; 
Busca.SQL.Clear; 
Busca.SQL.Add(\'select *\'); 
Busca.SQL.Add(\'from clientes\'); 
Busca.SQL.Add(\'where nome like\'+\'\'\'\'+edConsulta.Text+\'%\'+\'\'\'\'); 
Busca.Open;


Esse código irá fazer a pesquisa em tempo real pelo nome do cliente.

No evento OnKeyDown do edConsulta, você deve usar o seguinte código: 

if (key=vk_return) and (edConsulta.Text<>\'\') then 
begin 
fr_Cliente.edcodigo.Text:=Busca.FieldByName(\'codigo\').asString; 
fr_Cliente.edNome.Text:=Busca.FieldByName(\'nome\').asString; 
fr_Cliente.edCidade.Text:=Busca.FieldByName(\'cidade\').asString; 
fr_cliente.edNome.SetFocus; 
close; 
end;


Esse exemplo é válido para consulta para campos do tipo VarChar, qualquer um deles.


é isto, só adaptar agora no seu aplicativo.

At+
GOSTEI 0
Gilvanio Gonçalves

Gilvanio Gonçalves

05/11/2012

Imagine que você tem o form fr_cliente, ok, e tem o form fr_consulta
No form fr_cliente voce tem os campos edCodigo, edNome, edCidade, e o botao de consulta.
Quando você clica nele, o fr_consulta é aberto, para que você pesquise o que deseja.
No form de consulta, você deve ter um edit para consulta (edConsulta), um componente IBquery,
um componente DBGrid e um dataset, que deverá estar ligado na Query (que iremos dar o nome de
busca) e o DBGrid ligado no DataSet.
No evento OnChange do edConsulta, voce deverá ter o seguinte código:

correçõ do codigo sem as barras, desculpe esqueci de tirar antes, e talvez iria usar com as barras , e daria erro pra vc.

Busca.Close; 
Busca.SQL.Clear; 
Busca.SQL.Add('select *'); 
Busca.SQL.Add('from clientes'); 
Busca.SQL.Add('where nome like'+''''+edConsulta.Text+'%'+''''); 
Busca.Open;


Esse código irá fazer a pesquisa em tempo real pelo nome do cliente.

No evento OnKeyDown do edConsulta, você deve usar o seguinte código: 

if (key=vk_return) and (edConsulta.Text<>'') then 
begin 
fr_Cliente.edcodigo.Text:=Busca.FieldByName('codigo').asString; 
fr_Cliente.edNome.Text:=Busca.FieldByName('nome').asString; 
fr_Cliente.edCidade.Text:=Busca.FieldByName('cidade').asString; 
fr_cliente.edNome.SetFocus; 
close; 
end;


Esse exemplo é válido para consulta para campos do tipo VarChar, qualquer um deles.
GOSTEI 0
POSTAR