[[enecumene]]

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.