Não Permitir Cadastrar O Mesmo Codigo Na Tabela

[Michel Carneiro]

Boa Noite estou fazendo um sistema em delphi 6 e gostaria de saber como não permitir a duplicação de registros ( cadastrar o mesmo codigo na tabela)

e fazer uma busca por nome em ordem alfabetica .

[Jhonas]

Existem algumas maneiras: voce pode bloquear registros duplicados no proprio banco de dados ou pode durante a entrada de dados fazer uma verificação no arquivo se o registro já existe, ex:

AtestaX_IB.First;

         if AtestaX_IB.Locate('EMPRESA',trim(Edit1.text),[loPartialKey]) then
            begin
                showmessage('Este registro já existe!');
                exit;
            end
         else
            begin  
             showmessage('Registro valido!');

             //  restante do codigo para inclusão do registro 
            end;

OBS: Neste caso vai verificar se o nome da empresa já existe, se existir da mensagem e sai fora da procedure, se não, inclui o novo registro. Ou ainda usar uma instrução SQL com passagem de parametro que ficaria mais eficaz

SELECT * FROM CADASTRO
WHERE EMPRESA = :NEMP   //  parametro que vai receber o nome da empresa
ORDER BY EMPRESA

Fica muito mais rapido, e se o recordcount for > 0 significa que o registro já existe, se for = 0 , o registro não existe e pode ser incluido.

Editado Outubro 4, 2007 por Jhonas