Roilo
22-06-2007, 16:44:19
Un abraso al Foro.
Resulta que estoy tratando de implementar la autenticación de usuarios en mi web (IntraWeb). Ya estuve revisando la propiedad AuthList del IWServerController pero no le pude sacar mucho. Decidí crear mi propio método. Cree una tabla Usuarios (SQL Server) con dos o tres campos del mismo tipo nvarchar y aquí viene el código:
procedure Tprincipal.IWButton1Click(Sender: TObject);
begin
{ TODO : Autenticación de usuario }
With ConsolaDatos.SQLTable1 do
begin
Open ;
First ;
if Locate('nick',usuario.Text,[]) then
begin
TFInsertar.Create (WebApplication).Show ;
end
else
WebApplication.ShowMessage('Usted no está Registrado como usuario de esta aplicación.');
close;
end;
end;
Resulta que el Locate no me funciona para el campo nick, si para otros campos. Es decir, el Locate no pincha para todos los campos.
Extraño no?
Me gustaría conocer sus comentarios.
Gracias de antemano.
Resulta que estoy tratando de implementar la autenticación de usuarios en mi web (IntraWeb). Ya estuve revisando la propiedad AuthList del IWServerController pero no le pude sacar mucho. Decidí crear mi propio método. Cree una tabla Usuarios (SQL Server) con dos o tres campos del mismo tipo nvarchar y aquí viene el código:
procedure Tprincipal.IWButton1Click(Sender: TObject);
begin
{ TODO : Autenticación de usuario }
With ConsolaDatos.SQLTable1 do
begin
Open ;
First ;
if Locate('nick',usuario.Text,[]) then
begin
TFInsertar.Create (WebApplication).Show ;
end
else
WebApplication.ShowMessage('Usted no está Registrado como usuario de esta aplicación.');
close;
end;
end;
Resulta que el Locate no me funciona para el campo nick, si para otros campos. Es decir, el Locate no pincha para todos los campos.
Extraño no?
Me gustaría conocer sus comentarios.
Gracias de antemano.