[Ajuda] Delphi

[gabriela147 0]

Bom sou iniciante no delphi e estou querendo saber como faz pra uma aplicação ser execultada depois que o loguin e senha foi confirmado.

 

Tipo ta la loguin e senha ai a pessoa digita os dois estão corretos e então a programa começa a funcionar.

 

obrigado a quem me ajudar.

[- NOOB 2]

você quer login de algum site ou um que você faça na hora?

tipo

 

Code :

 

if (Edit1.Text = 'login') and (Edit2.Text = 'senha') then

//Faça algo

 

 

então taai , deve ser isso que você quer.rs

 

[Kyle 7]

você quer login de algum site ou um que você faça na hora?

tipo

 

Code :

 

if (Edit1.Text = 'login') and (Edit2.Text = 'senha') then

//Faça algo

 

 

então taai , deve ser isso que você quer.rs

 

 

Amigo, acho que ela queria tipo assim: digitou a senha e login correto, o programa é liberado, do contrário não.

[- NOOB 2]

Amigo, acho que ela queria tipo assim: digitou a senha e login correto, o programa é liberado, do contrário não.

e isso é oque? LOL

ela faz isso no form 1 abrindo o form 2 que seria o programa ué , ai ai.....

é super facil isso , mas para fazer com login de tal site/ banco de dados ja muda concerteza ,rs

Abraços!

[gabriela147 0]

Amigo, acho que ela queria tipo assim: digitou a senha e login correto, o programa é liberado, do contrário não.

 

Isso mesmo, depois que o loguin e a senha forem confirmadas o programa e liberado para uso.

['Leozin 38]

Tópico em Área Errada, tome mais cuidado antes de criar um tópico, verifique se a área onde você se encontra tem ligação com o assunto do seu tópico.

 

Tópico movido para » Programação - Dúvidas/Ajuda

 

Abraços.

[Zaphey 2]

E a preguiça te owna né? u.u

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

• Entre
• ou
• Cadastre-se

[gabriela147 0]

E a preguiça te owna né? u.u

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

• Entre
• ou
• Cadastre-se

 

Não deu certo.

 

Meu codigo ta assim

 

procedure Tloguin.Button1Click(Sender: TObject);

 

begin

if chances = 0 then

Application.Terminate

else

begin

if (user.Text = '??????')and(pass.Text = '?????') then

showMessage('Parabens! Você logou com sucesso.')

else

begin

showMessage('Atenção! Loguin ou Senha invalido, Você tem mais '+IntToStr(chances)+' chances');

chances:= chances - 1;

end;

end;

end;

 

procedure Tloguin.FormShow(Sender: TObject);

begin

chances:= 3;

end;

 

end.

[Zaphey 2]

Não deu certo porque?

Qual erro apareceu?

[gabriela147 0]

Se eu boto o Form2.Show antes do ShowMessage('Parabens! Você logou com sucesso.') da erro no ShowMessage('Parabens! Você logou com sucesso.').

 

Se eu boto o Form2.Show depois do ShowMessage('Parabens! Você logou com sucesso.') da erro no Form2.Show.

 

Meu codigo ta assim.

 

procedure Tloguin.Button1Click(Sender: TObject);

 

begin

if chances = 0 then

Application.Terminate

else

begin

if (user.Text = '??????')and(pass.Text = '?????') then

showMessage('Parabens! Você logou com sucesso.')

else

begin

showMessage('Atenção! Loguin ou Senha invalido, Você tem mais '+IntToStr(chances)+' chances');

chances:= chances - 1;

end;

end;

end;

 

procedure Tloguin.FormShow(Sender: TObject);

begin

chances:= 3;

end;

 

end.

 

Agora se eu tiro o ShowMessage('Parabens! Você logou com sucesso.') e coloco o Form2.Show ele não da erro.

 

Quero que ele motre a mensagem de que logou com sucesso e em seguida libere o aplicativo.

[- NOOB 2]

usa o begin e end ué

if (Edit1.Text = 'login') and (Edit2.Text = 'senha') then

begin

ShowMessage('logado');

Form2.Show;

end;