Ayuda Con .locate En Delphi 7

[karlaoax]

Mira aqui te pongo un codigo que hice hace como 6 años, ahora todo lo manejo por query's, busca en el foro para que empieces a dominar delphi, por lo que veo utilizas Paradox, buena eleccion para empezar pero te recomiendo que leas mas acerca de Firebird y MySQL para que veas que existe un abismo entre Paradox y los otros 2

Tenia un Edit (txtclave)
1 Table
1 datasource
En tu caso los DBedits que vayas a necesitar

var
options:tlocateoptions;
clave:string;
begin
clave:=txtclave.Text;
// In this section I'm checking that someboby writes the Clave, to avoid show dates wrongs
if(clave='')then
begin
txtclave.Text:='Escribe tu codigo';
txtclave.SetFocus();
messagebox (handle,'Escribe la clave','Error',mb_ok);
end else
begin
// And in this section i begin to find the dates
if not table1.locate ('clave',txtclave.text,options) then begin
messagebox (handle,'Clave no existente','Information',mb_ok);
txtclave.Text:='Escribe de nuevo';
txtclave.SetFocus();

end
else begin

// Aqui pones tus campos de tu tabla
DBEdit1.DataField:='campo1';
DBEdit2.DataField:='campo2';
..... N campos
options:=[lopartialkey];
end;
end;

Atte: Karla