Fórum Sistema de Logon / Logof #375938
14/10/2009
0
Tenho uma duvida aqui.
Eu tenho um sistema que possui uma tela de login que funciona assim :
Aqui está uma parte:
if (usuario = campo_usuario.Text) and (senha = campo_senha.Text) then begin
campo_senha.Text := ´´ ;
F_treinamento.ShowModal ;
F_Login.Hide;
exit;
end;
daqui quando eu entro no sistema o meu F_login fica oculto, oq eu quero é o seguinte eu tenho uma botão na tela inicial de logon/logof que quando o usuario clica aparece o F_login para trocar de usuario porem não estou acahando uma forma de fazer isso porque na hora que eu chamo o login novamante ele da erro de Focus e não achei uma forma de fazer isso.
Alguem teria uma solução para isso.
Valeu
Cleiflavio
Curtir tópico
+ 0Posts
14/10/2009
Alanporto
Gostei + 0
14/10/2009
Cleiflavio
Gostei + 0
14/10/2009
Cleiflavio
Gostei + 0
14/10/2009
Alexandre Krepe
Gostei + 0
14/10/2009
Alanporto
pra fazer o form de login, faço mais ou menos assim:
no form de Login (Em Project - Options - Aba Forms, tire-o da lista Auto-Create Forms).
class procedure TF_Login.ExecutarLogin(bRelogin: Boolean);
var
form: TF_Login;
begin
//a variável brelogin seria pra controlar a criação do form para login ou para troca de usuário...
form := TF_login.Create(nil);
with form do
begin
ShowModal;
if ModalResult = mrOk then
begin
if ValidaLogin then //validalogin faz aquele if que vc mencionou...
begin
FormPrincipal.Show;
Relase;
end
else
//código para invalidar login (pro usuário tentar de novo)...
end;
end;
end;
No OnCreate do form principal ou no dpr vc chama essa procedure:
TF_Login.ExecutarLogin(False);
e no relogin:
TF_Login.ExecutarLogin(True);
a grosso modo é isso, é que fiz de cabeça...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)