Bienvenido a clubdelphi, ¿ya leiste nuestra
guía de estilo?, gracias por tu colaboración
Recuerda poner los tags al código fuente, ejemplo:
Gracias
Así quedaría tu mensaje:
Código SQL
[-]select * from CLIENTES where codigo like:a
Código Delphi
[-]procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
a,resultado:integer;
begin
if key=vk_return then
begin
a:=strtoint(EditCodigo.Text);
MyQuery.close;
Myquery.ParamByName('CODIGO').AsInteger:=a ;
Myquery.Open;
if Myquery.RecordCount > 0 then
begin
Resultado := Myquery.FIeldByName('Codigo').asInteger;
end
else
Resultado := -1;
MYquery.close;
end;