labels y campos

[josi]

saludo a todos.



tengo un form que se llama busca cliente lo cual busco el cliente por codigo este me funciona bien pero tengo otro que se llama facturacion, en el form facturacion tengo un panel con dos botones ''buscar'' y el otro buton ''ok'', un edit y varios labels con los nombres de los campos con los demas datos de los clientes.

al boton buscar le puse este cod:

procedure TFfacturar.SpeedButton1Click(Sender: TObject);

begin
try
fbuclientes.Show;
finally
edit1.Text:=fbuclientes.ADOQuery1CODIGO.AsString;
end;
end;

Con esto lo que hago es que me llame el form busca cliente para que el resultado del edit sea igual a la busqueda del form busca cliente y en el boton ''ok'' puse este cod:

procedure TFfacturar.SpeedButton2Click(Sender: TObject);
begin
edit1.Text:=fbuclientes.ADOQuery1CODIGO.AsString; y debajo de esta linea puse este:

Label14.Caption:=QueryFACTURAR.Fields[2].AsString;
Label9.Caption:=QueryFACTURAR.Fields[1].AsString;
Label10.Caption:=QueryFACTURAR.Fields[3].AsString;
Label15.Caption:=QueryFACTURAR.Fields[4].AsString;
Label12.Caption:=QueryFACTURAR.Fields[5].AsString;

para que llos labels sean igual a los demas campos del cliente que fue buscado, el problema es que si busco cliente por ejemplo: el codigo 2023 lo encuentra y me lo muetra bien en los labels pero si busco otro codigo:2022 en el edit me muestra el codigo de la nueva busqueda pero en los labels me mustra los campos del codigo 2023 que ya fue buscado.

espero que me entiendan gracias

[[jcarteagaf]]

Me parece que te falta hacer una busqueda.

Código Delphi [-]
 edit1.Text:=fbuclientes.ADOQuery1CODIGO.AsString; 
// Busco en queryfacturar el cliente digitado
if QueryFacturar.locate('CODIGO',fbuclientes.ADOQuery1CODIGO.AsString,[]) then
begin
  Label14.Caption:=QueryFACTURAR.Fields[2].AsString;
  Label9.Caption:=QueryFACTURAR.Fields[1].AsString;
  Label10.Caption:=QueryFACTURAR.Fields[3].AsString;
  Label15.Caption:=QueryFACTURAR.Fields[4].AsString;
  Label12.Caption:=QueryFACTURAR.Fields[5].AsString; 
end
else
begin
  Label14.Caption:= '';
  Label9.Caption:= '';
  Label10.Caption:= '';
  Label15.Caption:= '';
  Label12.Caption:= ''; 
end;

Estoy asumiendo que queryfacturar tiene los datos de tus clientes. Ahora bien si es un query que jala los datos del cliente dado pues deberias pasarle como parametro el codigo obtenido, cerrar y volver a abrir el query y cargar tus datos.

Saludos.