Problema com Banco Paradox

Delphi

17/05/2004

Olá Pessoal !

Eu estou desenvolvendo um pequeno projeto com banco Paradox. Eu tenho duas tabelas, CLIENTES e PRODUTOS, onde cada cliente tem vários produtos. O meu problema é o seguinte, quando eu apago um cliente os seus produtos continuam na outra tabela. Eu queria fazer o seguinte, no momento em que eu apago um cliente todos os seus produtos fossem excluídos também. Alguém pode me ajudar ? Obrigado.


Atenciosamente Lucas Scheid


Lucas.scheid

Lucas.scheid

Curtidas 0

Respostas

Repa

Repa

17/05/2004

Eu faria o seguinte:
Se vc grava o código do cliente na tabela de produtos, é só procurar sequencialmente (comparando o código do cliente na tabela produtos) e apagar qdo os encontrar.


GOSTEI 0
Netosdr

Netosdr

17/05/2004

Olá,
no evento beforePost da TbClientes faca o seguinte:

TbProdutos.Filter := ´CodCli = ´´´+ IntToStr(TbClientesCodigo.Value) +´´´´;
TbProdutos.Filtered := True;
While TbProdutos.RecordCount > 0 do TbProdutos.Delete;
TbProdutos.Filtered := False;


onde:
TbClientes = nome da tabela de clientes
TbProdutos = nome da tabela de produtos
CodCli = nome do campo que identifica o código do cliente na tabela de produtos.

Espero ter ajudado.


GOSTEI 0
Netosdr

Netosdr

17/05/2004

OPA

BeforePost não!!

evento [b:670bd91051]BeforeDelete[/b:670bd91051]


GOSTEI 0
POSTAR