Não deixar cadastrar nomes iguais

Delphi

03/12/2003

Quero colocar um código no evento ONEXIT num dbedit, para não deixar cadastrar nomes iguais, pois não posso colocar esse campo como chave!!!

TIPO EXIBER UMA MENSAGEM QUE ESTE NOME JÁ EXISTE E VOLTAR PARA O DBEDIT EM MODO EDITÁVEL, CASO O NOME NÃO EXISTE CONTINUE .



[b:37e369b2ad]Título removido: ´Código simples, para quem sabe!!!!´[/b:37e369b2ad]
No título, coloque uma pequena descrição para sua dúvida.
Sandra/Moderação


Norotico

Norotico

Curtidas 0

Respostas

Motta

Motta

03/12/2003

Uma solução (se o bd que usa suporta) seria cria uma chave unica na tabela, assim não seria permitidos dois nomes iguais na tabela.


GOSTEI 0
Norotico

Norotico

03/12/2003

Uso paradox, mas minha tabela não permite isso, um código seria a melhor solução


GOSTEI 0
Motta

Motta

03/12/2003

que eu saiba sim ,

table properties
Secondary Indexes
Index Options - Unique

de um nome ao indice


GOSTEI 0
Norotico

Norotico

03/12/2003

Não funcionou, gostaria de tentar algo como

no evento onexit do dbedit1
if table1.locate(´nome´,dbedit1.text,[])=true then begin
showmessage(´Nome já existe´);
end else
dbedit2.setfocus;


GOSTEI 0
POSTAR