Ajuda ai por favor amigos

[Guest carne,diego]

Vi esse turtorial aqui http://www.webcheats.com.br/forum/delphi-vb/456880-sistema-de-login-com-manipulacao-de-arquivo-ini.html

 

e gostaria de saber como que cria login com mais de 1

[TH3 CH4OS 5]

Vc ja pode usar uma "Banco de Dados " Pelo delphi , ex:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Guest carne,diego]

mais tipo como eu vo fazer pra colocar tipo 5 login e senha diferentes nesses mesmos edits?

[DarkSj 0]

mais tipo como eu vo fazer pra colocar tipo 5 login e senha diferentes nesses mesmos edits?

 

tente usar o sistema or

ou crie um banco de dados se quiser usar mais de 5 tipo, varios

 

siga estas dicas

vlw

[DragonBoss 7]

é só usar OR entre as combinaçoes de senhas ( OBs: esse metodo postado acima nao tem nada a ver com ini, mas pode ser util em aplicaçoes simples )

 

 

flw, abraçs

[Owner 7]

O modo INI não é seguro na minha opnião !

Aconselho você usar o or ou um banco de dados e depois mude a extensão dele para que nignuém descubra (:

Abrasz

[xxnalimxx 0]

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');

[Guest carne,diego]

vlw xxnalimxx consegui

 

banco e muito ruim :rock:

[Surfistinha£ 20]

Closed

Solucionado