Fórum Dúvida sobre login e senha #394129
21/01/2011
0
Comecei o sistema sem utilizar a senha, clicou no ícone e vai direto para o sistema, mas agora tô querendo implantar isso, até mesmo para treinar.
Faço assim:
No FormStyle do menu eu coloquei como FsmDiform (Pai)
Para chamar cada arquivo : frm_form := Tfrm_form.creat(self) (Filhos)
No Project Option, todos os filhos ficam em Available Form.
Agora com a implantação do form_login, como devo configurar esses parametros ?
Se eu colocar os form_login com FsmDiform (Pai) dá erro na compilação:
O código q fiz para verificar o login é:
procedure Tfrm_login.Button1Click(Sender: TObject);
begin
if login.Text = 'Marcos' Then
if senha.Text = '123' Then
Begin
ShowMessage('Bem vindo ao Sistema');
frm_menu:=Tfrm_menu.Create(self);
frm_login.Destroy;
End
else
Begin
ShowMessage('Senha Inválida !!!');
senha.SetFocus;
End
else
Begin
ShowMessage('Usuário Inválido !!!');
login.SetFocus
end;
end;
Aí ñ funciona, se alguém tiver uma dica... Agradeço
Marcos Barbosa
Curtir tópico
+ 0Posts
21/01/2011
Marco Salles
Gostei + 0
26/01/2011
Marcos Barbosa
1º ) Na propriedade formstyle coloque em todos como normal.
2º) Em propriedade->options->forms-> deixei em Auto-Create Form, o form_login, form_menu.
3º)Na 1º execusão eu deixei o form_menu como visibele=false e o fom_login visible = true.
4º) Se o login e senha forem digitados corretamente, dou um visible true em form_menu, e fecho o form_login.
Assim funcionou...
Obrigado a todos....
Gostei + 0
26/01/2011
Leonardo Xavier
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)