Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Ajuda ai por favor amigos


 Compartilhar

Posts Recomendados

se nao quiser trabalhar atravez de banco de dados pode fazer assim como o the caos falou

só adicionar 5 condições tipo assim:

 

if (Edit1.Text='primeirologin' ) and (Edit2.Text='primeirasenha') then

Form2.Show

else

ShowMessage('Senha Errada');

 

if (Edit1.Text='segundologin' ) and (Edit2.Text='segundasenha') then

Form2.Show

else

ShowMessage('Senha Errada');

 

if (Edit1.Text='terceirologin' ) and (Edit2.Text='terceirasenha') then

Form2.Show

else

ShowMessage('Senha Errada');

 

if (Edit1.Text='quartalogin' ) and (Edit2.Text='quartasenha') then

Form2.Show

else

ShowMessage('Senha Errada');

 

if (Edit1.Text='quintalogin' ) and (Edit2.Text='quintasenha') then

Form2.Show

else

ShowMessage('Senha Errada');

 

Pode trabalhar com banco de dados do proprio delphi que tem com a instalaçao do programa o databasedesktop ou acess entre outros caso nao queira encher de condições.

 

Acabei de fazer um outro teste aqui voce pode fazer também da seguinte forma.

 

O codigo abaixo vai verificar if uma é verdadeira caso nao seja ele passa pra verificar a outra até chegar no final e passar a mensagem de erro, caso nenhuma das citadas sejam iguais.

 

if edit1.text = '1' then

begin

showmessage('foi');

end

else

if edit1.Text = '2' then

begin

showmessage('foi');

end

else

if edit1.Text = '3' then

begin

showmessage('foi');

end

else

showmessage('eror');

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.