Saludos Amigos del Club!
Tengo este código para que mis usuarios accedan mi aplicación:
Código Delphi
[-]
procedure TFrPassword.okClick(Sender: TObject);
var texto: string;
var texto1: string;
begin
With Module.QrPasswords
Do Begin
Close;
SQL.clear;
SQL.add('SELECT * FROM PASSWORDS ');
Open;
texto:= id.text;
texto1:= pass1.Text;
if texto = '' then begin
Statusbar1.panels[0].text:=('No se puede dejar (ID) en blanco');
id.SetFocus;
end else begin
if Texto1 = '' then begin
Statusbar1.panels[0].text:=('No se puede dejar (CLAVE) en blanco');
pass1.SetFocus;
end else begin
If Module.QrPasswords.Locate('Codigo_usuario', texto,[]) then begin
if module.QrPasswordsPassword.Value = texto1 then begin
FrInicio.Iniciobar.panels[1].text:= ' USUARIO:'+' '+id.Text;
FrInicio.showmodal; end else begin
Statusbar1.panels[0].text:=('CLAVE INCORRECTA');
end;
end else begin
Statusbar1.panels[0].text:=('ID INCORRECTO');
end;
end;
end;
end;
end;
end.
Me funciona bien cuando dentro de la aplicación yo mismo le asigno el primer password al usuario.
Mi problema está cuando los usuarios ellos cambian sus passwords, utilizo el siguiente código para eso:
Código Delphi
[-]
procedure TFrCambiarClave.BtArtGuardarClick(Sender: TObject);
var
Pass: Tfield; FechaActi: tfield; FechaInacti: tfield; User: String;
begin
User:= EdcodUsuario.text;
if Module.QrPasswords.Locate('Codigo_Usuario',user,[]) then
Module.QrPasswords.edit;
Pass:= Module.QrPasswords.FieldByName('PassWord');
Pass.AsString := EdClaveNueva.Text;
FechaActi:= Module.QrPasswords.FieldByName('Fecha_Activa_Password');
FechaActi.AsDateTime := StrToDate(EdFechaActiva.Text);
FechaInacti:=Module.QrPasswords.FieldByName('Fecha_Inactiva_Password');
FechaInacti.AsDateTime := StrToDate(EdFechaInactiva.Text);
Module.QrPasswords.post;
With Module.QrPasswords
Do Begin
Close;
SQL.clear;
SQL.add('SELECT * FROM PASSWORDS ');
Open;
end;
end;
end.
*sighs* Esto lo hace el usuario antes de entrar al programa cuando su password se vence, funciona bien porque al ver en la tabla el cambio se ha realizado, pero el usuario no puede acceder al programa.
¿Qué estará pasando que no funciona?, necesito ayuda con esto, o si me pueden facilitar algún código para esto también será bienvenido.
**Disculpen la longitud del hilo**
![Big Grin](http://www.clubdelphi.com/foros/images/smilies/biggrin.gif)