Lo solucione de la siguente forma para que encontrara el valor de "pass"
Código Delphi [-]procedure Tflogin.BloginClick(Sender: TObject);
var
contraseña2, contraseña3: string;
begin
fmodulo.qcontraseña.Active:= true;
if trim(ELcont.Text) = ''
then
ShowMessage('Por favor intruzca la contraseña de administracion')
else
contraseña2 := CalcHash2 (ELcont.Text, haMD5);
if fmodulo.qcontraseña.Locate('pass', contraseña2, [])
then
begin
Self.Close;
fmodulo.qempresa.Active := true;
fmodulo.qempresa.Edit;
fconfiguracion := Tfconfiguracion.Create(self);
fconfiguracion.Parent := fPrincipal.TPprincipal;
fconfiguracion.ManualDock(fPrincipal.TPprincipal);
fconfiguracion.Align := alClient;
fconfiguracion.Show;
fmodulo.qcontraseña.Active := false;
end
else
ShowMessage('Contraseña incorrecta por favor intentelo de nuevo');
fmodulo.qcontraseña.Active := false;
end;
__________________
We are told to remember the idea, not the man, because a man can fail. He can be caught, he can be killed and forgotten, but 400 years later, an idea can still change the world.
|