Luciano Carou: Página creada con «=Descripción= El objeto '''TUSUARIO_implemented''' (Implementación de la tabla USUARIO de usuarios) extiende a la clase USUARIOS. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATASETS/IMPLEMENTED *Ancestro: TprxADODataSetMaster *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: USUARIO_implemented.pas =Declaracion=

 type   TUSUARIO_implemented = class(TprxADODataSetMaster)   private     FCreateLoginTXT: String;     FCreateLo…»

2025-05-19T18:16:34Z

Página creada con «=Descripción= El objeto '''TUSUARIO_implemented''' (Implementación de la tabla USUARIO de usuarios) extiende a la clase USUARIOS. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATASETS/IMPLEMENTED *Ancestro: TprxADODataSetMaster *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: USUARIO_implemented.pas =Declaracion= <pre> type TUSUARIO_implemented = class(TprxADODataSetMaster) private FCreateLoginTXT: String; FCreateLo…»

Página nueva

=Descripción=
El objeto '''TUSUARIO_implemented''' (Implementación de la tabla USUARIO de usuarios) extiende a la clase [[USUARIOS]].

=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:DATASETS/IMPLEMENTED]]
*Ancestro: [[TprxADODataSetMaster]]
*Carpeta: C:\DevelopPrx\pPRAGMA
*Archivo: USUARIO_implemented.pas

=Declaracion=
<pre>
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;
</pre>

===Propiedades *TXT===
Las siguientes propiedades (y sus métidos de acceso) corresponden a textos definidos en el componente:
<pre>
FCreateLoginTXT: String;
FCreateLoginIMG: String;
FCreateUserTXT: String;
FCreateUserIMG: String;
FResetPasswordTXT: String;
FResetPasswordIMG: String;
FChangePasswordTXT: String;
FChangePasswordIMG: String;
FRefreshPermitosTXT: String;
FRefreshPermitosIMG: String;
FRefreshAllPermitsTXT: String;
FRefreshAllPermitsIMG: String;
</pre>

Y se inicializan en el Create:
<pre>
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;
</pre>

=Implementación=
La funcionalidad implementada se usa mayormente en la pantalla de usuarios:
[[Archivo:20250519 1511 OPCIONES USUARIO.png|miniaturadeimagen|no|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.

TUSUARIO implemented - Historial de revisiones