Cita:
Empezado por cubanbaker
Código Delphi [-]
procedure TModifyRecurve.BtnBuscarClick(Sender: TObject);
begin
if Radiogroup1.ItemIndex=0 then {Buscar por ArcherId}
if DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[]) then
DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[])
else
Showmessage('Archer not found. Check the Archer Id')
else {Buscar por Apellidos}
if DataModule1.TablaRecurvo.Locate('Apellidos',edit1.Text,[]) then
DataModule1.TablaRecurvo.Locate('Apellidos',edit1.Text,[])
else
Showmessage('Archer not found. Check the Archer Last Name');
end; |
Como comentario adicional
si ya localizo lo que buscas ya no es necesario buscarlo nuevamente
Código Delphi
[-] if DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[]) then
Se traduce en....
SI lo que escribi en el edit esta en la tabla en el campo ArcherId entonces....
ya lo encontraste.. ya no es necesatio
Código Delphi
[-]DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[])