Fórum User Control com loop no Login. #409305
10/11/2011
0
Tenho instalado recentemente o componente User Control no meu delphi 2010.
Mas esta com o seguinte problema:
Quando logo na aplicação a aplicação inicia mas a tela de login volta novamente como se eu nao estivesse logado, fica tipo num loop coloco usuario e senha e clico em OK depois ela se fecha e volta dnovo.
Alguem ja passou por isso ? Tem alguma ideia do que seja ?
Welson Play
Curtir tópico
+ 0Posts
10/11/2011
Paulo Andrade
Tenho instalado recentemente o componente User Control no meu delphi 2010.
Mas esta com o seguinte problema:
Quando logo na aplicação a aplicação inicia mas a tela de login volta novamente como se eu nao estivesse logado, fica tipo num loop coloco usuario e senha e clico em OK depois ela se fecha e volta dnovo.
Alguem ja passou por isso ? Tem alguma ideia do que seja ?
Gostei + 0
11/11/2011
Welson Play
Nao escrevi nem um codigo, somente
Configurei um menu para o componente e chamei a tela de login no onShow:
procedure TFPrincipal.FormShow(Sender: TObject);
begin
UserControl.Execute;
end;
Utilizo dbExp. O componente criu as tabelas tudo blz, sem nem um erro
e criou o usuario tambem.
Voce sabe o que poderia ser ??
Gostei + 0
14/11/2011
Welson Play
Alguém ??
Gostei + 0
15/11/2011
Alexandre Costa
O AutoStart também está False e os outros parâmetros iguais aos seus.
A chamada está assim:
procedure TfPrincipal.FormCreate(Sender: TObject); begin usrUserControl.StartLogin; stbRodape.Panels[3].Text := Usuário: +usrUserControl.CurrentUser.Username; end;
Vc já solucionou seu caso? Mais alguém passou por isso?
Se eu conseguir resolver postarei aqui.
Gostei + 0
15/11/2011
Alexandre Costa
Veja se tem este componente no seu formulário e faça um teste pra ver se resolve também!
Gostei + 0
16/11/2011
Welson Play
Veja se tem este componente no seu formulário e faça um teste pra ver se resolve também!
Cara, tive que comentar a procedure FreeAndNil e acresentar o free no form login da procedure do proprio componente.
Dar uma olhada ai é as duas ultimas linhas, qualquer coisa se vc quiser usar o UCIdle que vc tinha apagado.
procedure TUserControl.ShowLogin;
begin
FRetry := 0;
if Assigned(onCustomLoginForm) then
OnCustomLoginForm(Self, FFormLogin);
if FFormLogin = nil then
begin
FFormLogin := TfrmLoginWindow.Create(self);
with FFormLogin as TfrmLoginWindow do
begin
SetfrmLoginWindow(TfrmLoginWindow(FFormLogin));
FUserControl := Self;
btOK.onClick := ActionOKLogin;
onCloseQuery := Testafecha;
Position := Self.UserSettings.WindowsPosition;
lbEsqueci.OnClick := ActionEsqueceuSenha;
end;
end;
FFormLogin.ShowModal;
FFormLogin.Free; //TIVE QUE ACRESENTAR ESSA LINHA E COMENTAR A LINHA DE BAIXO.
//FreeAndNil(FFormLogin);
end;
Vlw pela ajuda !!
[RESOLVIDO]
Gostei + 0
18/10/2013
Volmir Santos
por isso ele ja executa e chamava a tela de login novamente.
Se colocar um tempo maior tipo no meu caso coloquei 30000 resolve seu problema pois esse componente é pra controle de sessao e como estava = 0 zero ele entendia que ja havia espirado a sesssao eu imagei que fosse isso.
Bom estou implementando este controle de sessaio em um sisteminha aqui porem estou com a seguinete dificuldade quando encerra a sessao e o usuario fizer logoff novamente
o contador nao dispara novamente oq precisaria fazer pra que o tempo comesse a contar novament quando estiver ocioso
alguem poderia me ajudar ja que estamos nessa?????????????????
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)