busca por codigo e por nome

[kklj 0]

tenho uma tela de pesquisa onde pode buscar por nome ou por codigo, coloquei um radiobuttom para escolher qual das 2 opcaoes, e gostaria q se estiver selecionado pra buscar por codigo, o campo de pesquisa nao aceitar letra, e vice-versa. como fazer isso?

 

obrigao

[DárioFelix 0]

if RadioButton1.Checked = true then

begin

DmDados.TblCliente.Locate('Cliente_id',Edt_Codigo.Text,([lopartialkey,loCaseInsensitive]));

end

else

begin

DmDados.TblCliente.Locate('Nome',Edt_Codigo.Text,([lopartialkey,loCaseInsensitive]));

end;

 

----------------------------------------------------------------------------------------------------------

 

if RadioButton1.Checked = true then

begin

DmDados.ClienteDataset.Close;

DmDados.QCliente.Close;;

DmDados.QCliente.SQL.Clear;

DmDados.QCliente.SQL.Add('select *');

DmDados.QCliente.SQL.Add('from Cliente');

DmDados.QCliente.SQL.Add('where Codigo like '+ quotedstr(Edt_Codigo.text+'%'));

DmDados.QCliente.Open;

DmDados.ClienteDataset.Open;

end

else

begin

DmDados.ClienteDataset.Close;

DmDados.QCliente.Close;;

DmDados.QCliente.SQL.Clear;

DmDados.QCliente.SQL.Add('select *');

DmDados.QCliente.SQL.Add('from Cliente');

DmDados.QCliente.SQL.Add('where Nomelike '+ quotedstr(Edt_Codigo.text+'%'));

DmDados.QCliente.Open;

DmDados.ClienteDataset.Open;

end;

 

Qualquer coisa é so pergunta!

[kklj 0]

amigo onde coloco esses codigos? no evento onkeypress? o primeiro codigo,o q ele ta fazendo nao entendi?

 

obrigado

[DárioFelix 0]

você pode colocar no evendo keypress ou no onchange, o primeiro codigo da o mesmo resultado do segundo, só que o mais usado é recomendado é o debaixo.

 

if key = #13 then

begin

codigo que eu apresentei

end;