Creando Consulta de alquiler 2da Parte

[[Lepe]]

Yo veo un par de detalles:
- Haces :

Código Delphi [-]
DBText2.Caption:=Modulo.qryPelicula.fieldByName('titulo_pelicula').AsString;

Pero no se debe asignar el Caption, sino el campo asociado, es decir, el DBText2 debe tener asignado el DataSource y el FieldName; Al abrir la consulta debe aparecer el primer registro automáticamente, sin tener que asignarlo.

- Usas:

Código Delphi [-]
 if Edit1.Text<> ' ' and Edit2.Text<> ' '

Pero hay un espacio entre las comillas, eso significa que si no hay nada escrito en esos edits entrará en ese if, porque la cadena vacía es distinto de una cadena con un espacio.

Creo que la comparación debería ser así:

Código Delphi [-]
(Trim(Edit1.Text)<> EmptyStr) and (Trim(Edit2.Text) <> EmptyStr) then

-Otro detalle:

Código Delphi [-]
Else
                If Edit1 = " " Then Edit1.SetFocus;

Eso jamás ocurrirá. Debes usar:

Código Delphi [-]
Else
                If Trim(Edit1.Text) = EmptyStr Then Edit1.SetFocus;

Además, falta colocar bien los begin .. end en ese trozo de código
Saludos

[[enecumene]]

gracias lepe pro tu respuesta, asi quedo mi codigo con tus recomendaciones:

Código Delphi [-]
procedure TAlquiler.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
  Modulo.qryPelicula.SQL.Clear;
  Modulo.qryPelicula.Close;
  Modulo.qryPelicula.SQL.Add('SELECT codbarra, titulo_pelicula FROM tbPelicula');
  Modulo.qryPelicula.SQL.Add('WHERE codbarra = '+quotedstr(Edit2.Text) );
  Modulo.qryPelicula.Open;
  if not Modulo.qryPelicula.IsEmpty then begin
    DBText2.Caption:=Modulo.qryPelicula.fieldByName('titulo_pelicula').AsString;
    end
  else
    begin
    ShowMessage('Pelicula no existe');
    end;
  end;
If (Trim(Edit1.Text)<> EmptyStr) and (Trim(Edit2.Text) <> EmptyStr) then
Modulo.qryAlquiler.SQL.Add('SELECT * FROM tbPeliculaAlquilada WHERE telefono1_cliente = " & Edit1');
Alquiler.DataSource := Modulo.dsAlquiler;
Alquiler.Refresh;
   If Trim(Edit1.Text) = EmptyStr Then Edit1.SetFocus;
   If Trim(Edit2.Text) = EmptyStr Then Edit2.SetFocus;
end;

pero sucede que no pasa nada no se me agrega al grid..

gracias:::