Creando Consulta de alquiler 2da Parte

[[enecumene]]

disculpa ContraVeneno entiendo lo que me dices y es una realidad, yo tengo la cara oculta de delphi por mas que leo y leo no entiendo y doy con lo que principalmente quiero aprender. por lo menos me podrias decir algun manual de sql y que tipo de tema en ese libro debo abordar mas sobre lo que quiero hacer, o tambien me puedes sugerir o otro manual que este mas acorde con lo que quiero, y disculpa si este hilo pueda hacerte pensar otra cosa. por lo menos te pido eso solo para poder partir desde ahi y solamente postear alguna duda.. chao

[ContraVeneno]

Empezado por enecumene

... si este hilo pueda hacerte pensar otra cosa...

Bueno, tampoco es para que nos pongamos melancólicos , yo no hablabla de mi, solo decía que puede haber alguien que pueda pensar eso.

Tu manejador de bases de datos (o al menos SQL Server) tiene una ayuda muy completa, solo será necesario presionar F1 y podrás buscar sobre todo lo que necesites.

Igual en internet puedes buscar sobre todo lo relacionado con estos menesteres. Si tecleas en google o en yahoo tu pregunta, igual puedes encontrar lo que buscas, un simple "como puedo hacer [inserte acción aquí]" te puede servir en google y en yahoo.

Ahora, para que se vayan agregando las películas que van alquilando, tal vez sea mejor que utilizes un stringgrid en lugar de un DBGrid. Si quieres usar un DBGrid pues entonces lo mejor creo yo sería utilizar tablas en memoria.

Suerte

[[enecumene]]

Gracias ContraVeneno..

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