Verificar se nome ja esta cadastrado

[Lúcio Dowglas 0]

 

procedure Tcad_equipamento.SpeedButton2Click(Sender: TObject);

begin

If (DBEdit1.Text = DataModule2.ADOTable_cad_equipamentoEQUIPAMENTO.Value) Then

Begin

showmessage ('Equipamento ja cadastrado');

end

else

Begin

DataModule2.ADOTable_cad_equipamento.Post;

end;

end;

 

Bom Dia pessoal

Estou querendo verificar se o que foi digitado ja existe na tabela

Meu código ficou assim. . . .

 

 

procedure Tcad_equipamento.SpeedButton2Click(Sender: TObject);

begin

If (DBEdit1.Text = DataModule2.ADOTable_cad_equipamentoEQUIPAMENTO.Value) Then

Begin

showmessage ('Equipamento ja cadastrado');

end

else

Begin

DataModule2.ADOTable_cad_equipamento.Post;

end;

end;

Mas não esta funcionando . . ..

Obrigado galera

 

boa noite galera nao sei se ja resolveram essa questao, tentei aki e deu certo assim... VEJA COMO FICOU MEU CODIGO....

///////////////////////////

if DM.TBL_USUARIO.Locate('LOGIN', EDTLOGIN.Text,[]) then //***VERIFICANDO SE USUARIO JA EXISTE

BEGIN

Application.MessageBox('Este Login Já Esta Cadastrado!...Tente Outro!!! ','INFORMAÇÃO!!!', MB_OK+MB_ICONWARNING);

LimparEdit;

Abort;

END

else

BEGIN

DM.TBL_USUARIO.Append; //ABRINDO A TABELA PARA GRAVAR DADOS NO BD

 

DM.TBL_USUARIOnome.AsString:=EDT_NOME.Text;

DM.TBL_USUARIOsenha.AsString:=EDTSENHA.Text;

DM.TBL_USUARIOstatos.AsString:='A';

DM.TBL_USUARIOdata_cadastro.AsDateTime:=now;

dm.TBL_USUARIOlogin.AsString:=EDTLOGIN.Text;

DM.TBL_USUARIO.Post; // GRANVANDO OS DADOS NO BD

LimparEdit;

Application.MessageBox('Registro Salvo com Sucesso!','Informação!!!', MB_OK+MB_ICONINFORMATION);

PgCont_Usuario.ActivePageIndex:=1;

 

END;

/// BLZ