Desde un Query que une varias tablas, en paradox, no se puede borrar, y mucho menos mantener la integridad referencial, por tanto:
- Te queda anotar el codigo o clave primaria de cada tabla, y despues borrarlo de las 3 tablas.
Para el borrado, puedes hacer una consulta con:
Código Delphi
[-]
query1.sql.clear;
query1.sql.text := 'DELETE FROM T1 WHERE T1.C1 = :codigo';
query1.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
query1.ExecSql;
Y repetir el proceso para las 2 tablas.
O bien hacer:
Código Delphi
[-]
if tabla1.locate('Codigo',StrToInt(editorcodigo.text), []) then
tabla1.delete
else
showMessage('codigo no encontrado');
Personalmente prefiero la primera, ya que no mueve el registro activo de esa tabla.
Un saludo, y recuerda englobar entre [ delphi ] y [ /delphi ] tu código para que sea más legible.
Un saludo