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