Creando Consulta de alquiler 2da Parte

[nemesio]

Si ya manejas un poco las instrucciones SQL, puedes hacer que en tu Grid aparezca una consulta solamente de los registros que estas insertando, sin necesidad de usar tablas temporales ni tablas de memoria.

[[enecumene]]

a ver, despues de mucho leer y leer por ahi, he intentado hacer este codigo para agregar el alquiler al grid, pero que va de nada me sirve, aqui os pongo el codigo, a ver que es lo que esta mal:

Código Delphi [-]
procedure TAlquiler.Edit2KeyPress(Sender: TObject; var Key: Char);
var ISQL : string;
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 Edit1.Text<> ' ' and Edit2.Text<> ' ' Then
            ISQL = Modulo.qryAlquiler.SQL.Add('SELECT * FROM tbPeliculaAlquilada WHERE telefono1_cliente = " & Edit1');
            Alquiler.DataSource = ISQL;
            Alquiler.Refresh;
            Else
                If Edit1 = " " Then Edit1.SetFocus;
                If Edit2 = " " Then Edit2.SetFocus;
            End;
        End;  //para agregar los datos al grid como alquiler nuevo
end;

Alquiler = DBGRID
Edit1 = CLientes
Edit2 = Peliculas

gracias...

[[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:::