sistem80

hi. I made this way so that other users can switch automatically procedure TUniMainModule.UniGUIMainModuleBeforeLogin(Sender: TObject; var Handled: Boolean); var S1,S2:string; begin S1 := (Sender as TUniGUISession).UniApplication.Cookies.Values['_loginname']; S2 := (Sender as TUniGUISession).UniApplication.Cookies.Values['_pwd']; loginQuery.SQL.Text := 'SELECT USERNAME, PASS FROM KULLAN WHERE USERNAME=:USERNAME AND PASS=:PASS'; loginQuery.Params.ParamByName('USERNAME').Value := S1; loginQuery.Params.ParamByName('PASS').Value := S2; UniMainModule.loginQuery.Open; if not UniMainModule.loginQuery.IsEmpty then begin Handled := SameText(S1,S1) and SameText(S2,S2); if Handled then LoggedUser := S1; end; end; log out UniApplication.Cookies.SetCookie('_loginname','',Date-1); UniApplication.Cookies.SetCookie('_pwd','',Date-1); UniApplication.Restart;

thanks