[abelantonio]

Buen dia Colegas!!

Solicitando de su ayuda....soy nuevo en el foro y estoy iniciando a programar en delphi...soy novato.

Les cuento tengo un programa al cual se accede al sistema por medio de un login, ya lo tengo funcionando, el problema que tengo es que no diferencía entre mayúsculas y minúsculas (es decir uso un password almacenado como "Hola", pero si escribo todo con mayúscula o minúscula aún me permite acceso, quisiera saber como puedo hacer para que el password lo escriba exactamente como se almaceno), uso una BD MySQL ¿Alguna sugerencia? De ante mano agradezco su ayuda.


Este es el codigo de mi login:

Código Delphi [-]
procedure TFormLogin.txtPassKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
  FMCorp.qry_login.Close;
  FMCorp.qry_login.SQL.Clear;
  FMCorp.qry_login.SQL.Add('Select usuario, contrasenia, NombreUsuario, NivelUsuario from login where usuario='+QuotedStr(txtUsuario.Text)+ 'and Contrasenia= '+QuotedStr(txtPass.Text));
  FMCorp.qry_login.Open;

  Nivel := FMCorp.qry_login.FieldByName('Nivel').AsString;
  showmessage('El nivel del usuario es '+inttostr(Nivel));

    if (txtUsuario.Text = '') and (txtPass.Text = '') then
      begin
        ShowMessage ( 'Campos Vacios' );
      end
    else

      if (FMCorp.qry_login.Eof) then
        begin
          MessageBox(Handle, 'Usuario y Contraseña Invalido!', 'LoyalCorp', MB_ICONINFORMATION+MB_OK);
          txtUsuario.Clear;
          txtPass.Clear;
          txtUsuario.SetFocus;
          Exit;
        end
      else
        begin
          FormLogin.Enabled := false;

          Case Nivel of

              0:
              begin
              MenuCorp.FMCorp.imgCompra.enabled := false;
              MenuCorp.FMCorp.imgEmpresa.enabled := true;
              MenuCorp.FMCorp.imgRecursos.enabled:= true;
              end;
              1:
              begin
              MenuCorp.FMCorp.imgCompra.enabled :=true;
              MenuCorp.FMCorp.imgEmpresa.enabled := true;
              MenuCorp.FMCorp.imgRecursos.enabled := true;
              end;
              2:
              begin
              MenuCorp.FMCorp.imgCompra.enabled :=true;
              MenuCorp.FMCorp.imgEmpresa.enabled := true;
              MenuCorp.FMCorp.imgRecursos.enabled := false;
              end;
              3:
              begin
              MenuCorp.FMCorp.imgCompra.enabled :=true;
              MenuCorp.FMCorp.imgEmpresa.enabled := true;
              MenuCorp.FMCorp.imgRecursos.enabled := true;
              end;
           else
            ShowMessage ( 'no tiene privilegios' );
          end;

           FMCorp.Visible := true;
        end;
  end;