TUSUARIO implemented

Descripción

El objeto TUSUARIO_implemented (Implementación de la tabla USUARIO de usuarios) extiende a la clase USUARIOS.

Identidad

• Ancestro: TprxADODataSetMaster
• Carpeta: C:\DevelopPrx\pPRAGMA
• Archivo: USUARIO_implemented.pas

Declaracion

type
  TUSUARIO_implemented = class(TprxADODataSetMaster)
  private
    FCreateLoginTXT: String;
    FCreateLoginIMG: String;
    FCreateUserTXT: String;
    FCreateUserIMG: String;
    FResetPasswordTXT: String;
    FResetPasswordIMG: String;
    FChangePasswordTXT: String;
    FChangePasswordIMG: String;
    FRefreshPermitosTXT: String;
    FRefreshPermitosIMG: String;
    FRefreshAllPermitsTXT: String;
    FRefreshAllPermitsIMG: String;
  protected
    function    VerifyLogin(aUsuario: String): Boolean;
    function    VerifyUser(aUsuario: String): Boolean;

    procedure   GetPopupOptions(Sender: TprxPopupMenu); override;

    procedure   CreateLoginClick(Sender: TObject);
    procedure   CreateUserClick(Sender: TObject);
    procedure   ResetPasswordClick(Sender: TObject);

    property    CreateLoginTXT: String read FCreateLoginTXT;
    property    CreateLoginIMG: String read FCreateLoginIMG;
    property    CreateUserTXT: String read FCreateUserTXT;
    property    CreateUserIMG: String read FCreateUserIMG;
    property    ResetPasswordTXT: String read FResetPasswordTXT;
    property    ResetPasswordIMG: String read FResetPasswordIMG;
    property    ChangePasswordTXT: String read FChangePasswordTXT;
    property    ChangePasswordIMG: String read FChangePasswordIMG;
    property    RefreshPermitosTXT: String read FRefreshPermitosTXT;
    property    RefreshPermitosIMG: String read FRefreshPermitosIMG;
    property    RefreshAllPermitsTXT: String read FRefreshAllPermitsTXT;
    property    RefreshAllPermitsIMG: String read FRefreshAllPermitsIMG;

    procedure   PERMISOS_Refrescar_Click(Sender: TObject);
    procedure   GRANT_Refrescar(aUsuario: String);
    procedure   REVOKE_Refrescar(aUsuario: String);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   Loaded; override;

    procedure   ChangePasswordClick(Sender: TObject);
  published
  end;

Propiedades *TXT

Las siguientes propiedades (y sus métidos de acceso) corresponden a textos definidos en el componente:

    FCreateLoginTXT: String;
    FCreateLoginIMG: String;
    FCreateUserTXT: String;
    FCreateUserIMG: String;
    FResetPasswordTXT: String;
    FResetPasswordIMG: String;
    FChangePasswordTXT: String;
    FChangePasswordIMG: String;
    FRefreshPermitosTXT: String;
    FRefreshPermitosIMG: String;
    FRefreshAllPermitsTXT: String;
    FRefreshAllPermitsIMG: String;

Y se inicializan en el Create:

constructor TUSUARIO_implemented.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  if csDesigning in ComponentState = False then
     begin
     FCreateLoginTXT       := prxADOClientDM.Traductor.Traducir('CREATE LOGIN');
     FCreateLoginIMG       := 'key_add';
     FCreateUserTXT        := prxADOClientDM.Traductor.Traducir('CREATE USER');
     FCreateUserIMG        := 'user_add';
     FResetPasswordTXT     := prxADOClientDM.Traductor.Traducir('Resetear clave de un usuario');
     FResetPasswordIMG     := 'lock_break';
     FChangePasswordTXT    := prxADOClientDM.Traductor.Traducir('Cambiar clave usuario activo');
     FChangePasswordIMG    := 'lock_edit';
     FRefreshPermitosTXT   := prxADOClientDM.Traductor.Traducir('Refrescar permisos');
     FRefreshPermitosIMG   := 'key_go';
     FRefreshAllPermitsTXT := prxADOClientDM.Traductor.Traducir('Refrescar todos los permisos');
     FRefreshAllPermitsIMG := 'key_go';
     end;
end;

Implementación

La funcionalidad implementada se usa mayormente en la pantalla de usuarios:

Opciones de usuario.

function VerifyLogin(aUsuario: String): Boolean

Retorna True si el usuario del argumento tiene login creado, sino retorna False.

procedure CreateLoginClick(Sender: TObject)

Crea un login en la base de datos usando SQL, se usa desde la consulta de usuarios por lo que el código de usuario es el activo.

function VerifyUser(aUsuario: String): Boolean

Verifica si el usuario del argumento tiene un usuario creado en la base de datos.

procedure CreateUserClick(Sender: TObject)

Crea un usuario en la base de datos a la que estamos conectados para el usuario activo en la pantalla de usuarios.

procedure ResetPasswordClick(Sender: TObject)

Resetea la contraseña de un usuario.

procedure ChangePasswordClick(Sender: TObject)

Cambia la clave de un usuario, usa la pantalla TTfva_permisos_cambio_clave_form para que el usuario ingrese los valores.

procedure PERMISOS_Refrescar_Click(Sender: TObject)

Refresca los permisos de los usuarios en la base de datos activa.

procedure GetPopupOptions(Sender: TprxPopupMenu)

Arma las opciones de menú popup de la imágen al principio de esta sección, cada opción ejecuta alguna de las funciones descriptas.