Apagar registro

[thiagoreri 0]

Tenho uma tabela pessoas e outra tabela categoria de pessoas onde em pessoas tem uma chave estrangeira com categoria de pessoas.

 

O que eu queria saber eh o seguinte, quando eu clicar em apagar alguma categoria de pessoas, se ela estiver sendo usada em um relacionamento dar uma mensagem avisando.

 

Obs.: ja vi o try except, eu naum to dando conta de colocar pra funfar...

 

no mais obrigado.

[Marcelo R Moura 0]

Bom digamos , por exemplo, que sua tabela de pessoas seja:

 

PESSOA_ID(pk)

PESSOA_NOME

... e etc

 

e a TAbela Categoria seja

 

CAT_ID(pk)

CAT_ID_PESSOA(fk)

CAT_DESCRICAO

... e etc

 

e Considerando tb que o relacionamento seja entre PESSOA_ID E CAT_ID_PESSOA

 

var

IdPessoa : integer

begin

 

idPessoa := Query1.FieldByName('CAT_ID_PESSOA').asInteger (supondo que os dados estejam numa query... se estiver num comp., td bem!)

 

Query2.SQL.TEXT := 'SELECT PESSOA_ID FROM PESSOA WHERE PESSOA_ID = :pessoa_id');

Query2.ParamByName('pessoa_id').AsInteger := IdPessoa ;

Query2.Open;

 

If not(query2.IsEmpty)

showmessage('Esta categoria já está cadastrada para 1ma pessoa');

query2.close;

 

end;

 

Espero que seja isso... qq coisa que nao entender, estamos ae.

 

Att,

[thiagoreri 0]

hum, eh pq tipo eu tava pensano em fazer com um try except. Entaum desse jeito fica melhor?

[Marcelo R Moura 0]

acho q sim amigo... não sei c tem como essa operação gerar exception...