YA solucione mi problema, gracias por sus respuestas...
D&W grax por el post jeje tienes mucha razon en lo de las comparaciones, aunque ren realidad al revisar el codigo me di cuenta que la comparacion era innecesaria en el campo password...
En cuanto a la encriptacion...
Grax Roman la verdad si tenia codigo innecesario, lo modifique a como tu me comentaste, solo le kambie las sentencias del Else y ya me jala perfecto...
el codigo quedo asi:
Código Delphi
[-]procedure TfrmAcceso.Validacion;
begin
with frmPrincipal.myqry do
begin
Database:= frmPrincipal.mydb;
Close;
SQL.Clear;
SQL.Text:= 'SELECT Usuario, Password FROM Usuarios WHERE Usuario =:Usuario AND Password = MD5(:Password)';
ParamByName('Usuario').AsString:= ledtUsuario.Text;
ParamByName('Password').AsString:= ledtPassword.Text;
Open;
if isempty then
begin
Application.MessageBox('El usuario y contraseña son invalidos.'+#13+'Intentelo de nuevo', 'Advertencia', + MB_ICONWARNING + MB_OK);
ledtPassword.SetFocus;
end
Else
begin
Usuario:= fieldByname('Usuario').AsString;
activarMenu(true);
frmAcceso.Close;
end;
Close;
end;
end;
En cuanto al usuario, ese lo jalo para poner el nombre del Usuario activo en la barra de titulo de la pagina principal...(esto lo hago en el procedimiento activarMenu)...
En fin....Muchas gracias por su ayuda