Bom Vamos A mais UM TuTorial Delphi
Bom Adicione ao Form1
2-Edits
1-Button
Clique 2 Vezes no Button
E Coloque o Seguinte Codigo
If (username.text = '') or (password.Text = '') then
Application.MessageBox('VC presisa prencher os campos!', 'login', 0 + MB_ICONASTERISK);
If (username.text <> '') and (password.text <> '') then
If (username.Text <> 'usuario') or (password.Text <> 'senha') then
Application.MessageBox('VC presisa prencher os campos!', 'login', 0 + MB_ICONASTERISK);
if (username.text = 'usuario') and (password.Text = 'senha') Then Begin
Application.MessageBox('Bem - vindo al systema!', 'login', 0 + MB_ICONASTERISK);
Fom2.Show;
form1.hide;
end;
add uma nova layer
Agore nas edits vc CLica e na edit 1 Vc troca a name por username
na edit 2 vc coloca password
bom agora vc pode testar coloca na primeira edit usuario e na segunda senha e clique no button que vai aparecer bem vindo al systema
Bom no COdigo do button Vc pode trocar sua conta e so trocar usuario pelo seu nick
e senha pela sua senha Bom e so issso
Bom Adicione ao Form1
2-Edits
1-Button
Clique 2 Vezes no Button
E Coloque o Seguinte Codigo
If (username.text = '') or (password.Text = '') then
Application.MessageBox('VC presisa prencher os campos!', 'login', 0 + MB_ICONASTERISK);
If (username.text <> '') and (password.text <> '') then
If (username.Text <> 'usuario') or (password.Text <> 'senha') then
Application.MessageBox('VC presisa prencher os campos!', 'login', 0 + MB_ICONASTERISK);
if (username.text = 'usuario') and (password.Text = 'senha') Then Begin
Application.MessageBox('Bem - vindo al systema!', 'login', 0 + MB_ICONASTERISK);
Fom2.Show;
form1.hide;
end;
add uma nova layer
Agore nas edits vc CLica e na edit 1 Vc troca a name por username
na edit 2 vc coloca password
bom agora vc pode testar coloca na primeira edit usuario e na segunda senha e clique no button que vai aparecer bem vindo al systema
Bom no COdigo do button Vc pode trocar sua conta e so trocar usuario pelo seu nick
e senha pela sua senha Bom e so issso
Comment