Controle de Login no WebSnap

if WebContext.EndUser.LoggedIn then
DispatchPageName(pgPrincipal.Name,Response,[]);

O código acima verifica se o usuário está logado no contexto do WebSnap e assim chama determinada página. Isso é feito no evento AfterExecuteAction do TLoginFormAdapter.

Agora eu testo o usuário no evento OnLogin do TLoginFormAdapter assim:

with ModuloBase.tblUsuario do
begin
varSQL := ´select USUARIO, SENHA from TBLSENHA where ´ +
´usuario=´ + ´´´´ + AdaptUserName.ActionValue.Values[0] + ´´´´ +
´ and senha=´ + ´´´´ + AdaptPassword.ActionValue.Values[0]+ ´´´´;
DataSet.CommandText := varSQL;
DataSet.Open;
if DataSet.RecordCount > 0 then
begin
WebContext.Session.Values[´Usuario´] :=
AdaptUserName.ActionValue.Values[0];
WebContext.Session.Values[´Senha´] :=
AdaptPassword.ActionValue.Values[0];
end
else
begin
// neste ponto gostaria de fazer ele retornar para a página de login
// só me falta o como
FormularioLogiin.Errors.AddError(´Não conectado´,´´,0);
end;
end;


Agradeço a ajuda

Rogério Ribeiro Macêdo
Ituiutaba-MG / Curitiba-PR
:arrow: Para cada povo o seu idioma, para todos os povos o Esperanto