Qual o melhor jeito de barrar um registro duplo?

Question

Ol�, tenho uma tabela Cliente, com o campo CNPJ.. pois bem, n�o se pode ter mais de um cliente com CNPJ igual... beleza.. como eu bloqueio isso no sistema? Qual o melhor jeito?Estou usando Trigger, po...

Motta · Answer

Crie uma contraint unique ou um index unique, no FE trata o retorno do erro da mensagem do banco , mais simple e seguro.

N�o sei a sintaxe no FB no Oracle :

ALTER TABLE CLIENTE
  ADD CONSTRAINT XUK_TABELA UNIQUE (
    CNPJ
  )
/

Titanius · Answer

Certo motta, isso eu j� fa�o.. por�m aquela mensagem de erro de viola��o � feia.. como vc disse, eu teria que tratar o retorno disso... vc tem um exemplo de como eu faria isso?

Obrigado desde j�.

[]s

Motta · Answer

veja ://forum.devmedia.com.br/viewtopic.php?t=73927...

Titanius · Answer

Valeu Motta![]s...

Mahdak · Answer

no evento OnExit do componente edit eu fasso uma consulta Sql pra ver se o registro ja existe, se ele existir entao faz algo pra barrar senao passa batido... tipo assim:

nao sei se esse tipo de procedimento � ultrapassado, mas ainda uso isso...

abra��o

procedure TCadastro_Clientes.Edit_NomeExit(Sender: TObject);
var
zera : Integer;
begin
    //verifica se o registro ja existe ao cadastra-lo
    DM.Tbl_Clientes.Close;
    DM.Tbl_Clientes.SelectSQL.Clear;
    DM.Tbl_Clientes.SelectSQL.Add(�Select * From Clientes Where Nome = :Consulta �);
    DM.Tbl_Clientes.Params[0].AsString;
    DM.Tbl_Clientes.ParamByName(�Consulta�).AsString:=Edit_Nome.Text;
    DM.Tbl_Clientes.Open;
    if Edit_nome.Text = DM.Tbl_ClientesNOME.AsString then
    begin
        Zera := Application.MessageBox(�O Cliente ja existe, deseja cadastra-lo mesmo assim?�, �CONFIRME�, mb_yesno);
        if zera = IDYES Then
        begin
              // passa batido e cadastra o cara
        end
            else
                begin
                    // cancela tudo e nao cadastra porcaria nenhuma
                    DM.Tbl_Clientes.Cancel;
                end;
    end;
end;

Mahdak · Answer

[quote:c67448f069=�mahdak�]no evento OnExit do componente edit eu fasso uma consulta Sql pra ver se o registro ja existe, se ele existir entao faz algo pra barrar senao passa batido... tipo assim:nao sei se esse tipo de procedimento � ultrapassado, mas ainda uso isso...abra��o[code:1:c67448f069]procedure TCadastro_Clientes.Edit_NomeExit(Sender: TObject);varzera : Integer;begin    //verifica se o registro ja existe ao cadastra-lo    DM.Tbl_Clientes.Close;    DM.Tbl_Clientes.SelectSQL.Clear;    DM.Tbl_Clientes.SelectSQL.Add(�Select * From Clientes Where Nome = :Consulta �);    DM.Tbl_Clientes.Params&#91;0&93;.AsString;    DM.Tbl_Clientes.ParamByName(�Consulta�).AsString:=Edit_Nome.Text;    DM.Tbl_Clientes.Open;    if Edit_nome.Text = DM.Tbl_ClientesNOME.AsString then    begin        Zera := Application.MessageBox(�O Cliente ja existe, deseja cadastra-lo mesmo assim?�, �CONFIRME�, mb_yesno);        if zera = IDYES Then        begin              // passa batido e cadastra o cara        end            else                begin                    // cancela tudo e nao cadastra porcaria nenhuma                    DM.Tbl_Clientes.Cancel;                end;    end;end;[/code:1:c67448f069][/quote:c67448f069]agora eu to vendo que essa opera��o nao serve quando usa-se Generator, etc... vou dar uma olhada no exemplo do mota tambem... uhauhauh :shock:...

F�rum Qual o melhor jeito de barrar um registro duplo? #319819