luegode la busqueda los DBedit estan bloqueados

[[Lepe]]

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