Lúcio Dowglas 0 Denunciar post Postado Setembro 14, 2014 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 Compartilhar este post Link para o post Compartilhar em outros sites