Integridade Referencial

Question

Pessoal !!!!Como fa�o uma integridade referencial usando interbase IBX e tamb�m usando o interbase dbexpressEX: Tenho um cadastro de clientes      Tenho lan�amento de pedidos para este cliente      Se...

Cabelo · Answer

Uma das sa�das seria vc criar chaves estrangeiras nos campos que as tabelas se relacionam..

Por exemplo :

Se vc Tiver uma Tabela de Emiss�o de Ordem de Servi�os OS0100 com o campo C_COD_CLI, entre outros..

e uma tabela CA0100 de Cadastro de Clientes com o campo prim�rio C_COD_CLI..

vc deveria criar uma ForeingKey na tabela OS0100, com o campo C_COD_CLI fazendo refer�ncia � tabela CA0100 no campo C_COD_CLI..

se vc tiver clientes cadastrados na tabela OS0100 e tentar excluir da tabela CA0100 o cliente do respectivo c�digo, o banco de dados ir� emitir uma mensagem falando sobre a foreingKey e n�o ir� deixar excluir enquento houver registros na tabela OS0100 que cont�m o campo C_COD_CLI = ao que vc est� tentando excluir..

Depois disso � s� vc tratar o erro..

sem mais

Cabelo

R�mulo Barros · Answer

Utilizando DbExpress e Interbase, fa�a o seguinte:

C�digo do bot�o para excluir um cliente:

...
Procedure BtnDelCli.Click(Sender : TObject);
Begin
   If(TabelaDetalhesPedidos.Locate(�Cod_Cli�),TabelaClientesCOD_CLI.AsInteger,[])Then
  showmessage(�N�o pode excluir. Existem Associa��es�)
   Else
      TabelaClientes.Delete;
End;
...

:twisted: :twisted: :twisted: :twisted:

Ou ainda:

Adicione �SQLExpr� na cl�usula USES:

Procedure BtnDelCli.Click(Sender : TObject);
Var
  Qry : TSqlQuery;
Begin
    Qry := TSqlQuery.Create(Nil);
    Try
       Qry.SqlConnection := DataModule.Conexao;
       Qry.Sql.Add(�SELECT * FROM TABELA_DETALHES_PEDIDOS�);
       Qry.Sql.Add(�WHERE COD_CLI = :parCOD_CLI�);
       Qry.Params.ParamByName(�parCOD_CLI�).AsString :=
       TabelaClientesCOD_CLI.AsString;
       Qry.Open;
       If(Qry.RecordCount > 0)Then
         ShowMessage(�N�o pode excluir. Manter consistencia�)
       Else
         TabelaClientes.Delete;
    Except
         On Exc : Exception Do
            Showmessage(�Erro: �+Exc.Message);
    End; 
End;

F�rum Integridade Referencial #219834