Ir ao conteúdo

Duvida delphi


miguel22

Posts recomendados

Postado

Supondo que a conexão e o select já foram feitos, e você tenha os campos usuario e senha em seu bd, fica assim:


ADOQuery1.Open;

if (ADOQuery1.Locate('usuario',Edit1.Text,[])) and (Edit2.Text = ADOQuery1.FieldByName('senha').AsString) then

begin
MessageDlg((Pchar('Seja Bem vindo ' + ADOQuery1USUARIO.AsString + '!!')), mtinformation, [mbOK], 0);
Form2.Show;
end
else

Application.MessageBox('Verifique seu nome de usuário ou senha!!!!',
'Falha no processo de login!', MB_ICONERROR + MB_OK);
end;
ADOQuery1.Close;

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...