TTfva login form - Historial de revisiones

Luciano Carou: /* Funcionalidad para acceder a la base de datos */

2025-07-11T19:45:41Z

Funcionalidad para acceder a la base de datos

← Revisión anterior		Revisión del 21:45 11 jul 2025
Línea 131:		Línea 131:
	===Funcionalidad para acceder a la base de datos===		===Funcionalidad para acceder a la base de datos===
	<pre>		<pre>
	procedure SetBaseDatos(aValue: String);		procedure SetBaseDatos(aValue: String);
	function GetBaseDatos: String;		function GetBaseDatos: String;
	</pre>		</pre>

Luciano Carou: /* Funcionalidad para acceder a la clave */

2025-07-11T19:45:32Z

Funcionalidad para acceder a la clave

← Revisión anterior		Revisión del 21:45 11 jul 2025
Línea 125:		Línea 125:
	===Funcionalidad para acceder a la clave===		===Funcionalidad para acceder a la clave===
	<pre>		<pre>
	procedure SetClave(aValue: String);		procedure SetClave(aValue: String);
	function GetClave: String;		function GetClave: String;
	</pre>		</pre>

Luciano Carou: /* Funcionalidad para acceder al usuario */

2025-07-11T19:45:22Z

Funcionalidad para acceder al usuario

← Revisión anterior		Revisión del 21:45 11 jul 2025
Línea 119:		Línea 119:
	===Funcionalidad para acceder al usuario===		===Funcionalidad para acceder al usuario===
	<pre>		<pre>
	procedure SetUsuario(aValue: String);		procedure SetUsuario(aValue: String);
	function GetUsuario: String;		function GetUsuario: String;
	</pre>		</pre>

Luciano Carou: /* Funcionalidad para acceder al dominio */

2025-07-11T19:45:12Z

Funcionalidad para acceder al dominio

← Revisión anterior		Revisión del 21:45 11 jul 2025
Línea 112:		Línea 112:
	===Funcionalidad para acceder al dominio===		===Funcionalidad para acceder al dominio===
	<pre>		<pre>
	property Dominio: String read GetDominio write SetDominio;		property Dominio: String read GetDominio write SetDominio;
	property DominioAlias: String read GetDominioAlias;		property DominioAlias: String read GetDominioAlias;
	property DominioIP: String read GetDominioIP;		property DominioIP: String read GetDominioIP;
	</pre>		</pre>

Luciano Carou: /* Introducción */

2025-07-11T18:44:28Z

Introducción

← Revisión anterior		Revisión del 20:44 11 jul 2025
Línea 2:		Línea 2:
	El objeto '''TTfva_login_form''' (Form de conexión del usuario a la aplicación.) corresponde al form usado para que los usuarios conecten a la aplicación.		El objeto '''TTfva_login_form''' (Form de conexión del usuario a la aplicación.) corresponde al form usado para que los usuarios conecten a la aplicación.
	[[Archivo:20250711 1536 LOGIN FORM.png\|miniaturadeimagen\|no\|Form para conectar a la aplicación.]]		[[Archivo:20250711 1536 LOGIN FORM.png\|miniaturadeimagen\|no\|Form para conectar a la aplicación.]]
			La conexión se hace en dos pasos:
			*La conexión al dominio (servidor) se hace indicando la IP del dominio, el usuario y clave.
			*La conexión a la base de datos se hace indicando a cuál se quiere conectar, requiere de la conexión al dominio.
			Si estos datos validan correctamente se conecta a la aplicación.

	=[[QUEESESTO/IDENTIDAD\|Identidad]]=		=[[QUEESESTO/IDENTIDAD\|Identidad]]=
	[[Category:MANUAL/PROGRAMADOR]]		[[Category:MANUAL/PROGRAMADOR]]

Luciano Carou: Página creada con «=Introducción= El objeto '''TTfva_login_form''' (Form de conexión del usuario a la aplicación.) corresponde al form usado para que los usuarios conecten a la aplicación. Form para conectar a la aplicación. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATASETS/CONEXION Ancestro: TForm Carpeta: C:\DevelopPrx\library Archivo: fva_login_form.pas =Declaración=
2025-07-11T18:42:11Z

Página creada con «=Introducción= El objeto '''TTfva_login_form''' (Form de conexión del usuario a la aplicación.) corresponde al form usado para que los usuarios conecten a la aplicación. miniaturadeimagen|no|Form para conectar a la aplicación. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATASETS/CONEXION Ancestro: TForm Carpeta: C:\DevelopPrx\library Archivo: fva_login_form.pas =Declaración= <pr…»

Página nueva
=Introducción=
El objeto '''TTfva_login_form''' (Form de conexión del usuario a la aplicación.) corresponde al form usado para que los usuarios conecten a la aplicación.
[[Archivo:20250711 1536 LOGIN FORM.png|miniaturadeimagen|no|Form para conectar a la aplicación.]]
=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:DATASETS/CONEXION]]
Ancestro: [[TForm]]
Carpeta: C:\DevelopPrx\library
*Archivo: fva_login_form.pas
=Declaración=
<pre>
type
TTfva_login_form = class(TForm)
Panel_AbajoDe_fvsADOConnectionLoginForm: TPanel;
PageControl1: TPageControl;
TabSheet_Conexiones: TTabSheet;
Panel1: TPanel;
Panel_Dominios: TPanel;
Panel_DominiosI: TPanel;
Panel_DominiosD: TPanel;
prxComboBox_Dominios: TprxComboBox;
Panel_BaseDatos: TPanel;
Panel_BaseDatosI: TPanel;
Panel_BaseDatosD: TPanel;
prxComboBox_BaseDatos: TprxComboBox;
Panel_Usuario: TPanel;
Panel_UsuarioI: TPanel;
Panel_UsuarioD: TPanel;
prxEdit_Usuario: TEdit;
Panel_Clave: TPanel;
Panel_ClaveI: TPanel;
Panel_ClaveD: TPanel;
prxEdit_Clave: TEdit;
Panel_conectar_dominio: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Button_conectar_dominio: TButton;
Panel_conectar_basedatos: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Button_conectar_basedatos: TButton;
Panel_guardar_conexion: TPanel;
Panel8: TPanel;
Panel9: TPanel;
CheckBox_GuardarConexion: TprxCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure GuardarDatosConexion(Sender: TObject);
procedure Button_conectar_dominioClick(Sender: TObject);
procedure Button_conectar_basedatosClick(Sender: TObject);
private
FIniFile: TIniFile;
FIniDominio: String;
FIniUsuario: String;
FIniBaseDatos: String;
FIniComputerId: String;
FListaDominios: TStringList;
FListaBasesDatos: TStringList;

FOnExitEnabled: Boolean;

FOcultarBaseDatos: Boolean;
protected
procedure SetDominio(aValue: String);
function GetDominio: String;

function GetDominioAlias: String;
function GetDominioIP: String;

procedure SetUsuario(aValue: String);
function GetUsuario: String;
procedure SetClave(aValue: String);
function GetClave: String;
procedure SetBaseDatos(aValue: String);
function GetBaseDatos: String;

property IniFile: TIniFile read FIniFile write FIniFile;
property IniDominio: String read FIniDominio write FIniDominio;
property IniUsuario: String read FIniUsuario write FIniUsuario;
property IniBaseDatos: String read FIniBaseDatos write FIniBaseDatos;
property IniComputerId: String read FIniComputerId write FIniComputerId;

property ListaDominios: TStringList read FListaDominios write FListaDominios;
property ListaBasesDatos: TStringList read FListaBasesDatos write FListaBasesDatos;

property Dominio: String read GetDominio write SetDominio;
property DominioAlias: String read GetDominioAlias;
property DominioIP: String read GetDominioIP;

property Usuario: String read GetUsuario write SetUsuario;
property Clave: String read GetClave write SetClave;
property BaseDatos: String read GetBaseDatos write SetBaseDatos;

property OnExitEnabled: Boolean read FOnExitEnabled write FOnExitEnabled;
public
property OcultarBaseDatos: Boolean read FOcultarBaseDatos write FOcultarBaseDatos;
end;
</pre>
=Implementación=
===procedure FormCreate(Sender: TObject)===
Crea el form con todos sus controles.

===procedure FormShow(Sender: TObject)===
Muestra el form.

===Funcionalidad para acceder al dominio===
<pre>
property Dominio: String read GetDominio write SetDominio;
property DominioAlias: String read GetDominioAlias;
property DominioIP: String read GetDominioIP;
</pre>

===Funcionalidad para acceder al usuario===
<pre>
procedure SetUsuario(aValue: String);
function GetUsuario: String;
</pre>

===Funcionalidad para acceder a la clave===
<pre>
procedure SetClave(aValue: String);
function GetClave: String;
</pre>

===Funcionalidad para acceder a la base de datos===
<pre>
procedure SetBaseDatos(aValue: String);
function GetBaseDatos: String;
</pre>

===procedure Button_conectar_dominioClick(Sender: TObject)===
Conecta al dominio con los datos ingresados.

===procedure Button_conectar_basedatosClick(Sender: TObject)===
Conecta a la base de datos (debe estar conectado al dominio).

===procedure GuardarDatosConexion(Sender: TObject)===
Guarda los datos de la última conexión en el archivo '''.ini''' de la aplicación, no guarda la contraseña.