Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglado la lentitud del login cuando se mete un usuario incorrecto.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@195 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-04-09 16:24:10 +00:00
parent 287e082cb5
commit 02e2bfc500
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
View File

@ -100,7 +100,6 @@ type
procedure AsignarDataModule; procedure AsignarDataModule;
procedure InicializarUserControl; procedure InicializarUserControl;
procedure ComprobarUsuarioInicial;
function GetCurrentUser: IBizUsuario; function GetCurrentUser: IBizUsuario;
function AnadirUsuario(AUser : IBizUsuario): Boolean; function AnadirUsuario(AUser : IBizUsuario): Boolean;
@ -335,18 +334,17 @@ begin
Result := FUserControl.VerificaLogin(User, Password); Result := FUserControl.VerificaLogin(User, Password);
if not Result then if not Result then
begin begin
ComprobarUsuarioInicial; if User = 'admin' then
Result := ComprobarUsuario(User, Password); begin
if not FUserControl.ExisteUsuario('admin') then
begin
FUserControl.AddUser('admin', '1', 'Administrador', 'admin@correo.net', 0, 0 , 30, True);
Result := ComprobarUsuario(User, Password);
end;
end;
end; end;
end; end;
procedure TUsuariosController.ComprobarUsuarioInicial;
begin
// Para que haya un usuario siempre en la BD
if not FUserControl.ExisteUsuario('admin') then
FUserControl.AddUser('admin', '1', 'Administrador', 'admin@correo.net', 0, 0 , 30, True);
end;
constructor TUsuariosController.Create; constructor TUsuariosController.Create;
begin begin
AsignarDataModule; AsignarDataModule;