Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 11-01-2006
akinom38 akinom38 is offline
Miembro
 
Registrado: ene 2006
Posts: 15
Poder: 0
akinom38 Va por buen camino
Resuelto mediante código

Bueno, antes de nada muchas gracias por la ayuda y los consejos.
Finalmente mediante un pequeño ejemplo he resuelto el problemilla.
Lo detallo aquí, por si le sirve a alguien.

Tabla Maestra:Persona
Tabla Detalle: Mascota

En las dos tablas la propiedad CachedUpdate-->True

Para que al borrar una Persona, se borren todas sus mascotas relacionadas:

Implementar los siguientes eventos en la tabla Persona:

BeforeDelete

procedure TMastData.PersonaBeforeDelete(DataSet: TDataSet);
begin
if not Confirm('Borrar Persona y sus mascotas relacionadas?') then
Abort
else
DeleteMascotas;
end;

procedure TMastData.DeleteMascotas;
begin
Mascota.DisableControls; { for faster table traversal }
try
Mascota.First;
while not Mascota.EOF do Mascota.Delete;
finally
Mascota.EnableControls; { always re-enable controls after disabling }
end;
end;

AfterDelete

procedure TMastData.ProductAfterDelete(DataSet: TDataSet);
begin
Product.ApplyUpdates ;
ProductConsumable.ApplyUpdates ;
end;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Reporte Maestro Detalle Caro Impresión 1 14-06-2005 20:18:47
ClientDataSet Maestro Detalle como los relaciono ASAPLTDA Conexión con bases de datos 1 29-01-2005 23:07:48
Report manager maestro / detalle jourdan Impresión 2 21-10-2004 20:27:06
SubTotal Maestro Detalle FernanGil Impresión 3 29-09-2003 19:20:47
problemas al borrar una tabla detalle en interbase 7 ElSanto24 Firebird e Interbase 2 24-09-2003 16:13:15


La franja horaria es GMT +2. Ahora son las 03:03:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi