Hola:
Por favor preciso sus ayudas.
Tengo ADOtables: Donde TMaster es la tabla principal, y tiene varias dependientes (T1,T2,T3,T4)
Ahora lo que quiero hacer es... Elimininar un registro de TMaster, pero si tiene depentiendes osea registros en sus dependientes pues que me pregunte si deseo eliminar también sus depentiendes; o sino que me avice q no puedo eliminar por que tiene registros depentiendes.
Código Delphi
[-]
procedure TFregList.EliminarClick(Sender: TObject);
begin
if (T1.RecordCount=0)and(T2.RecordCount=0)
and (T2.RecordCount=0) then
begin
if TMaster.RecordCount = 0 then
messageDlg('No existe ningun registro a eliminar',
mtConfirmation, [mbOk], 0)
else
Tmaster.Delete;
end
else
messageDlg('Existen informacion dependiente, no se puede eliminar',
mtConfirmation, [mbOk], 0);
end;
Lo que sucede es que siempre me aparece el msj de que tiene dependientes y no puede eliminar, aun cuando no tiene ningun registro dependiente...
Por favor...
Saludos
Gracias!!!