Pesquisar por CODIGO e NOME

Question

Gostaria de um c�digo em QUERY para uma busca via Codigo (numeros) e Nome (caracteres). Tipo, tenho uma ComboBox e como strings tem CODIGO e NOME, ao selecionar CODIGO ele da SETFOCUS em um EDIT no qu...

Dbezerra · Answer

no click do botao fa�a o seguinte:

if combobox1.itemindex = 0 then //Codigo
begin
if not query.Locate(�Codigo�, strtoint(edit1.text), []) then
ShowMessage(�Codigo n�o encontrado!�)
end
else
begin
if not query.Locate(�Nome�, edit1.text, []) then
ShowMessage(�Nome n�o encontrado!�)
end;

a funcao locate retorna verdadeiro se encontrou o valor, neste caso representado por edit1.text, no campo, neste caso �Codigo� ou �Nome�.
ela, se encontra o valor, tb posiciona na linha do item encontrado.

�query� eh o dataset q preenche a dbgrid... pode ser um ttable, tquery...

espero ter ajudado

Daniel Bezerra

Anonymous · Answer

[quote:9fb322606d=�dbezerra�]no click do botao fa�a o seguinte:  if combobox1.itemindex = 0 then //Codigo  begin    if not query.Locate(�Codigo�, strtoint(edit1.text), []) then      ShowMessage(�Codigo n�o encontrado!�)  end  else  begin    if not query.Locate(�Nome�, edit1.text, []) then      ShowMessage(�Nome n�o encontrado!�)    end;a funcao locate retorna verdadeiro se encontrou o valor, neste caso representado por edit1.text, no campo, neste caso �Codigo�  ou �Nome�.ela, se encontra o valor, tb posiciona na linha do item encontrado.�query� eh o dataset q preenche a dbgrid... pode ser um ttable, tquery...espero ter ajudadoDaniel Bezerra[/quote:9fb322606d]Obrigado amigo, mas nao respondeu a minha pergunta...

F�rum Pesquisar por CODIGO e NOME #141186