F�rum Cadastro Delphi Acess+ADOConection+ADOTable #471894

04/03/2014

SEGUINTE SOU INICIANTE EM DELPHI

TENHO UM FORMUL�RIO SIMPLES DE CADASTRO COM FOTO TA TUDO CERTO S� QUERIA
ADICIONAR UM CAMPO PRA PESQUISA AS PESSOAS CADASTRADAS TIPO:
SE FOR POSSESS�VEL PESQUISAR TBM SOMENTE COM A INICIAL DO NOME E PUXAR TODOS NOMES COM AQUELA INICIAL.
BANCO DE DADOS � O ACESS.

NO EDIT1: NOME DA PESSOA OU LETRA INICIAL BUTON: PESQUISAR
DBGRID1=RESULTADO

MAIS OU MENOS ASSIM SOU BEM INICIANTE ENT�O SE PUDER COLOCAR UM PASSO A PASSO OU QUE DE PRA MIM FAZER AQUI BLZ!

Alex Kovaleski

Curtir t�pico

+ 0

Responder

Posts

06/04/2014

Paulo Rodrigues

OL� ALEX

tem um exemplo simples, use o like, e n�o se esque�a do "%".

 AQusoitem.SQL.Clear;
 AQusoitem.SQL.Add('select * from titem, tbase, tcontrato, ttcusto, tusoitem');
 AQusoitem.SQL.Add('where tusoitem.contrato = tcontrato.cod');
 AQusoitem.SQL.Add('and tusoitem.custo = ttcusto.cod');
 AQusoitem.SQL.Add('and titem.contrato = tcontrato .cod');
 AQusoitem.SQL.Add('and titem.item = tusoitem.item');
 AQusoitem.SQL.Add('and titem.material = tbase.material');
 AQusoitem.SQL.Add('and tusoitem.contrato = :PARAM1');
 AQusoitem.SQL.Add('and tusoitem.custo = :PARAM2');
 AQusoitem.Parameters.ParamByName('PARAM1').Value := fos.AQgrid1.Fieldbyname('tcontrato.cod').value;
 AQusoitem.Parameters.ParamByName('PARAM2').Value := fos.AQgrid1.Fieldbyname('ttcusto.cod').value;
 AQusoitem.SQL.Add('and Tbase.texto like' + quotedstr(EDIT12.Text));
 AQusoitem.SQL.Add('order by Tbase.texto');
 AQusoitem.OPEN;

Responder

Gostei + 0

06/04/2014

Paulo Rodrigues

Mais um detalhe

Pode colocar o c�digo no evento onchange do edit e se o dbgrid estiver setado com o adoquery correspondente, ele vai se atualizando � medida em que voc� digita.

Responder

Gostei + 0