Ayuda Con Consulta

[[enecumene]]

gracias ContraVeneno, pero me podrias decir como hacerlo?? acordad que soy un total newbie...

te envio el codigo de nuevo para que lo veas:

procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
qryCliente.Close;
qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
qryCliente.SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
qryCliente.Open;
if not qryCliente.IsEmpty then
DBText1.Caption:=qryClientenombre_cliente.Value+' '+qryClienteapellidos_cliente.Value;
end;
end;

[ContraVeneno]

¬¬ ( <--- nos hace falta una carita con esta expresión )

Código Delphi [-]
procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then begin
  qryCliente.Close;
  qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
  qryCliente.SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
  qryCliente.Open;
  if not qryCliente.IsEmpty then begin
    DBText1.Caption:=qryClientee.fieldByName("nombre_cliente").AsString+' '+qryCliente.fieldByName("apellidos_cliente").AsString;
    Peliculas.SetFocus; // esto era todo lo que necesitas para cambiar a películas
  else 
    //acciones cuando no encuentras al cliente
  end; //if cliente is not empty
end; //procedure

[[enecumene]]

contraveneno, el error todavia persiste, el codigo funciona para una sola vez, pues si quiero digitar otro telefono tengo que cerrar y abrir de nuevo el form, no veo donde estan los apostrofe, pues en ningun lado los tengo...

Código Delphi [-]
procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
  qryCliente.Close;
  qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
  qryCliente.SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
  qryCliente.Open;
  if not qryCliente.IsEmpty then begin
    DBText1.Caption:=qryCliente.fieldByName('nombre_cliente').AsString+' '+qryCliente.fieldByName('apellidos_cliente').AsString;
    Edit2.SetFocus // esto era todo lo que necesitas para cambiar a películas
    end
  else
    begin
    ShowMessage('Cliente no existe');
    end;
  end; //if cliente is not empty
end;

[ContraVeneno]

Código Delphi [-]
procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
 with qryCliente do begin  
  if active then Close; //Agregué aquí
  sql.Clear; // y aquí
  SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
  SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
  Open;
  if not IsEmpty then begin
    DBText1.Caption:=fieldByName('nombre_cliente').AsString+' '+fieldByName('apellidos_cliente').AsString;
    Edit2.SetFocus // esto era todo lo que necesitas para cambiar a películas
  end else begin
    ShowMessage('Cliente no existe');
  end; //if cliente is not empty (aquí te sobraba un "end"
 end; //with 
end; //procedire

a ver ahora....

P.D. Extraño a delphi

[[enecumene]]

EXCELENTE!!!! gracias ContraVeneno me salio superbo, te lo agradezco muchissimo que hayas tomado un poco de tu tiempo para ayudarme, muchas gracias.. y a los demas que me han contestado no se quedan atras tampoco, muchas gracias a todos!!

[ContraVeneno]

De nada

Nada más como recomendación, siempre dale nombre a tus controles, tal vez solo tengas unos pocos y sabes perfectamente que edit2 se refiere a las películas. Pero llegará el día que tendrás tantos edits que no sabrás ni cuál es cuál. Ahí es cuando te daras cuenta que es mucho más fácil identificar entre Edit2 y edtPeliculas.

[[enecumene]]

gracias ContraVeneno por tu recomendacion lo llevare a cabo.