Jump to content

Archived

This topic is now archived and is closed to further replies.

DOUGLASAP

Verificar se nome ja esta cadastrado

Recommended Posts

 

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

Share this post


Link to post
Share on other sites

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.