Creando Consulta de alquiler 2da Parte
 

hola a todos de nuevo, como ya saben estoy tratando de aprender a programar un sistemita de videoclub, y ahora mismo estoy en la parte del modulo de alquiler. estoy trabajando con delphi7 y ADO. tengo lo siguiente:

1 - Maskedit1(Clientes) con DBText(donde se muestra el nombre del cliente) este es el codigo proporcionado por ContraVeneno en otro hilo:

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;
  qryCliente.sql.Clear;
  qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
  qryCliente.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
  end else begin
    ShowMessage('Cliente no existe');
   end; 
  end;
 end;
end;

1 - Edit(peliculas) con DBText2(donde se muestra el nombre de la pelicula) este es el codigo tambien proporcionado por ContraVeneno:

Código Delphi [-]
procedure TAlquiler.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
 with qryPelicula do begin
  if active then Close;
  qryPelicula.sql.Clear;
  qryPelicula.SQL.Add(' SELECT codbarra, titulo_pelicula FROM tbPelicula ');
  qryPelicula.SQL.Add('WHERE codbarra = '+quotedstr(Edit2.Text) );
  Open;
  if not IsEmpty then begin
    DBText2.Caption:=fieldByName('titulo_pelicula').AsString;
  end else begin
    ShowMessage('Pelicula no existe');
   end;
  end;
 end;
end;

3 - tablas access tbPelicula, tbCliente y tbPeliculaAlquilada.

y tengo un DBGrid, donde tiene las columnas codigo, pelicula, fecha alquiler y fecha devolucion.

ahora lo que necesito es que al teclear el codigo de la pelicula se me agregue al dbgrid como que se esta alquilando y que la casilla de pelicula se limpie para agregar otra pelicula, pero que tambien vaya asignandole al cliente que se ha digitado. en la tabla de alquiladas los nombres de los campos deben ser iguales al de los clientes y peliculas??

gracias.

Vaya, vaya.... :rolleyes:
Hombre, necesitas un buen libro de delphi y un buen análisis de tu sistema. Me refiero a que mucha gente por aquí, puede pensar que estas esperando a que nosotros te digamos todo lo que tienes que hacer; y eso no les va a parecer de lo más correcto y ético de tu parte.

¿que has tratado de hacer para resolver este detalle que mencionas en este hilo?

Se me ocurre que consultes sobre tablas temporales, o tablas en memoria... igual hasta consultar algo sobre transacciones.

pero repito:
¿que has tratado de hacer para resolver este detalle que mencionas en este hilo?

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

Bueno, tampoco es para que nos pongamos melancólicos :D , 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 ;) :)

Gracias ContraVeneno..

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.

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...

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

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