Classe TfrmKernelUsuarioAutenticacao

Unit

untKernelUsuarioAutenticacao

Declaração

type TfrmKernelUsuarioAutenticacao = class(TForm)

Descrição

Formulário de Autenticação de usuário

Hierarquia

TForm
TfrmKernelUsuarioAutenticacao

Visão Geral

Campos

	`pnlLogin: TPanel;`
	`lblUsuario: TLabel;`
	`lblSenha: TLabel;`
	`PaintBox1: TPaintBox;`
	`lblTituloSistema: TLabel;`
	`btnOK: TBitBtn;`
	`btnCancelar: TBitBtn;`
	`edtUsuario: TEdit;`
	`edtSenha: TEdit;`
	`pnlUsuario: TPanel;`
	`imgUsuario: TImage;`
	`pnlLogo: TPanel;`
	`imgLogo: TImage;`
	`pnlMensagem: TPanel;`
	`shpFundoMensagem: TShape;`
	`lblMensagem: TLabel;`
	`imgAviso: TImage;`
	`lblCuidado: TLabel;`
	`lblVersao: TLabel;`
	`lblCopyrigth: TLabel;`
	`intUsuarioID: Integer;`
	`intLoginCont: Integer;`

Métodos

	`procedure btnOKClick(Sender: TObject);`
	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
	`procedure FormShow(Sender: TObject);`
	`procedure PaintBox1Paint(Sender: TObject);`
	`procedure FormCreate(Sender: TObject);`
	`procedure FormKeyPress(Sender: TObject; var Key: Char);`
	`procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure AlertaLogin(const bolBloqueado : boolean);`
	`procedure RestauraLogin;`
	`procedure DefinirTituloLogin(const strTitulo : string);`
	`function UsuarioLogin(const bolGravar : boolean) : String;`
	`procedure BloquearUsuario(const intID : Integer);`
	`function AutenticarUsuario : integer;`
	`function ObterSenhaHash : string;`
	`function LancarConfiguracao: boolean;`
	`function ObterUsuario : string;`
	`function ObterFilial : Integer; virtual;`
	`function ObterSQLAutenticacao : string; virtual;`

Properties

property TituloLogin : String write DefinirTituloLogin;

Descrição

Campos

	`pnlLogin: TPanel;`

	`lblUsuario: TLabel;`

	`lblSenha: TLabel;`

	`PaintBox1: TPaintBox;`

	`lblTituloSistema: TLabel;`

	`btnOK: TBitBtn;`

	`btnCancelar: TBitBtn;`

	`edtUsuario: TEdit;`

	`edtSenha: TEdit;`

	`pnlUsuario: TPanel;`

	`imgUsuario: TImage;`

	`pnlLogo: TPanel;`

	`imgLogo: TImage;`

	`pnlMensagem: TPanel;`

	`shpFundoMensagem: TShape;`

	`lblMensagem: TLabel;`

	`imgAviso: TImage;`

	`lblCuidado: TLabel;`

	`lblVersao: TLabel;`

	`lblCopyrigth: TLabel;`

	`intUsuarioID: Integer;`
Código/id do usuáiro

	`intLoginCont: Integer;`
Numero de Logins sem sucesso

Métodos

	`procedure btnOKClick(Sender: TObject);`

	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`

	`procedure FormShow(Sender: TObject);`

	`procedure PaintBox1Paint(Sender: TObject);`

	`procedure FormCreate(Sender: TObject);`

	`procedure FormKeyPress(Sender: TObject; var Key: Char);`

	`procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`

	`procedure AlertaLogin(const bolBloqueado : boolean);`
Exibe Alerta na tela de login informando o usuário sobre possível bloqueio de sua conta em caso de senhas digitadas inválidas muitas vezes

	`procedure RestauraLogin;`
Restaura a mensagem normal de login, que foi sobreposta por AlertaLogin

	`procedure DefinirTituloLogin(const strTitulo : string);`
Define o Titulo do Login

	`function UsuarioLogin(const bolGravar : boolean) : String;`
Obtém o Nome do ultimo usuário que Fez o Login no sistema

	`procedure BloquearUsuario(const intID : Integer);`
Bloqueia a conta do usuário

function AutenticarUsuario : integer;

Autentica o usuário

Retornos

0 = Login Inválido
1 = Login OK
2 = Conta Bloqueada

	`function ObterSenhaHash : string;`
Retorna um hash da senha digitada

	`function LancarConfiguracao: boolean;`
Lança o formulário de Configuração

	`function ObterUsuario : string;`
Retorna o login do usuário digitado

	`function ObterFilial : Integer; virtual;`
Retorna o ID da Filial Escolhida

	`function ObterSQLAutenticacao : string; virtual;`
Retorna o SQL utilizado para autenticação

Properties

	`property TituloLogin : String write DefinirTituloLogin;`
Obtém e Monta o Título da Tela de Login