problemas con locate

[maui]

hola comunidad

tengo el sigte problema:

tengo dos campos codigo(tedit) y nombre(tdbedit)

ingreso el codigo y no me muestra el nombre automaticamente.

estoy utilizando el sigte codigo:

Código Delphi [-]
procedure TFrmSolicitudVta.qryVentaOnChange(Sender: TObject);
begin
qryVenta.First;
qryVenta.Locate('IDEMPLEADO',Edit2.Text,[]);
qryVenta.next;
end;

¿como puedo mejorar el codigo?

espero sus valiosos comentarios....

de ante mano gracias

[delphi.com.ar]

No se que es lo que quieres hacer, pero fíjate que una vez ubicado el registro, en el caso de que este exista, estas moviendo una posición el DataSet (qryVenta.next).

PD: Las etiquetas [delphi] llevan corchetes!

[maui]

gracias por contestar

lo que quiero hacer es ingresar un codigo en un tedit y luego aparesca automaticamente:

ej: codigo: 111 nombre(tdbedit): perico (este se despliege automatico).

como lo puedo hacer, me puedes enviar un codigo de ejemplo.

espero sus valiosos comentarios...

[delphi.com.ar]

Podrías hacerlo de varias formas, o bien cuando el usuario presione alguna tecla en particular, por ejemplo ENTER como seña de confirmación de la búsqueda, o cuando el editor pierda el foco, o despues de N tiepo de producirce la última modificación.
La utilización del locate es simplemente como escribes en tu código.

Saludos!

[__cadetill]

Pues tal y como lo haces, pero sin el Next

Y el First tampoco es necesario

Para el tipo de búsqueda, te recomiendo mires en la ayuda la función locate y revises el tercer parámetro de la función

EDIT: vaya, d.c.a se me adelantó

[delphi.com.ar]

Agrego algo que he olvidado: Tienes que tener en cuenta que el locate hace una búsqueda en los resultados del DataSet desde el lado del cliente, no del servidor. Si el set de resultados es algo grande, los Locates serán algo lentos y un DataSet demasiado grande puede reducir drásticamente los recursos del sistema. Lo recomendable para estos casos, es utilizar consultas Sql seleccionando únicamente los datos necesarios.

Saludos!

[[eduarcol]]

Mira tu problema es sencillo

1.- El evento donde estas programando la busqueda, debes programarla en el evento onExit del TEdit

2.- Como decia Delphi.com.ar el query.next esta demas

Suerte

[delphi.com.ar]

Empezado por eduarcol

2.- Como decia Delphi.com.ar el query.next esta demas

Y como agregó cadetill... El query.Fist también (ese ni lo he visto )

[maui]

hola eduarcol y amigos del foro

1.- El evento donde estas programando la busqueda, debes programarla en el evento onExit del TEdit

tengo el sigte codigo:

Código Delphi [-]
procedure TFrmSolicitudVta.qryVentaOnExit(Sender: TObject);
begin
if Edit2.Text <> '' then
qryVenta.Locate('IDEMPLEADO',Edit2.Text,[loCaseInsensitive,loPartialKey]);
end;

todavia tengo problemas no esta haciendo nada...

espero sus comentarios....

[delphi.com.ar]

Tienes componentes elazados a este Query???

[[eduarcol]]

Empezado por maui

Código Delphi [-]
procedure TFrmSolicitudVta.qryVentaOnExit(Sender: TObject);
begin
if Edit2.Text <> '' then
qryVenta.Locate('IDEMPLEADO',Edit2.Text,[loCaseInsensitive,loPartialKey]);
end;

Mira fijate que eso lo estas programando, en el evento Exit del query no del edit, colocalo en el evento on exit del TEDIT correspondiente