TTfva login form

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.

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.

Identidad

• Ancestro: TForm
• Carpeta: C:\DevelopPrx\library
• Archivo: fva_login_form.pas

Declaración

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;

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

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

Funcionalidad para acceder al usuario

procedure   SetUsuario(aValue: String);
function    GetUsuario: String;

Funcionalidad para acceder a la clave

    procedure   SetClave(aValue: String);
    function    GetClave: String;

Funcionalidad para acceder a la base de datos

    procedure   SetBaseDatos(aValue: String);
    function    GetBaseDatos: String;

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.