Ver Mensaje Individual
  #1  
Antiguo 07-06-2004
silviodp silviodp is offline
Miembro
 
Registrado: may 2003
Ubicación: General Levalle, Argentina
Posts: 277
Reputación: 22
silviodp Va por buen camino
Tablas Maestro-Detalle

Como se hace para eliminar un registro en una Tabla Maestro-Detalle, ya que cuando elimino, uno en la tabla Maestro me sigue dejando los que estaban relaciondos con éste en la tabla Detalle, y por su puesto lo que quiero es que me elimine, tanto el registro de la tabla Maestro como los que estan relacionados con éste en la Detalle.
Yo escribi el siguiente código para hacerlo pero no funciona:
Código:
procedure TForm3.eliminarClick(Sender: TObject);  //ELIMINAR Registros, si tabla
var
 n,m:Variant;
begin
 n:=Modulodatos.TblConsumos.FieldValues['IDCONSUMO'];
 ModuloDatos.TblConsumos.Delete;
 ModuloDatos.TblDetproducto.Active:=True;
 ModuloDatos.TblDetproducto.First;
 While Not ModuloDatos.TblDetproducto.Eof Do
  begin
    m:=ModuloDatos.TblDetproducto.FieldValues['CONSUMO'];
    If n=m Then
      ModuloDatos.TblDetproducto.Locate('IDCONSUMO',m,[]);
      ModuloDatos.TblDetproducto.Delete;
    end;
   Next;
 If Modulodatos.TblConsumos.IsEmpty Then
  begin
   Modificar.Enabled:=False;                   //es vacía desactiva botones.-
   Eliminar.Enabled:=False;
  end;
end;
Gracias.

Silvio.-
Responder Con Cita