[uniGUI login system (database based)]

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;

[UniPageControl1 tab form açma]

thanks