Valida se o registro possui relacionamento em outra tabela

function ValidarRelacionamento(intId:Integer):Boolean;

**************************************************

function Tfrm_cadastro_pacientes.ValidarRelacionamento(intId: Integer): Boolean;
var
DtsRelacionamento:TADODataSet;
begin
Result:= true;
DtsRelacionamento:=  TADODataSet.Create(Nil);
DtsRelacionamento.Connection:= dtm.conexao;
DtsRelacionamento.CommandText:=’Select * from medidas_antropometricas ‘ +
‘where Ma_Pac_Id = :Ma_Pac_Id ‘;
DtsRelacionamento.Parameters[0].Value:= intId;
DtsRelacionamento.Open;
if DtsRelacionamento.RecordCount >0 then
begin
ShowMessage(‘Não é possível excluir o cadastro pois o mesmo possui registros na tabela Medidas Antropometricas. Para que a exclusão ocorra é necessario que exclua-se o registro relacionado a ele em Medidas Antropometricas.  ‘);
Result:= false;  //começa outro
end else
begin
DtsRelacionamento:=  TADODataSet.Create(Nil);
DtsRelacionamento.Connection:= dtm.conexao;
DtsRelacionamento.CommandText:=’Select * from anamneses ‘ +
‘where Ana_Pac_Id = :Ana_Pac_Id ‘;
DtsRelacionamento.Parameters[0].Value:= intId;
DtsRelacionamento.Open;
if DtsRelacionamento.RecordCount >0 then
begin
ShowMessage(‘Não é possível excluir o cadastro pois o mesmo possui registros na tabela Anamneses. Para que a exclusão ocorra é necessario que exclua-se o registro relacionado a ele em Anamneses.  ‘);
Result:= false;// começa outro
end;
end;
end;

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s