Classe TfrmKernelSobre

DescriçãoHierarquiaCamposMétodosProperties

Unit

untKernelSobre

Declaração

type TfrmKernelSobre = class(TForm)

Descrição

Formulário de Informações sobre o sistema

Hierarquia

Visão Geral

Campos

Public imgAplicativo: TImage;
Public lblRegistradoPara: TLabel;
Public lblUsuarioRegistro: TLabel;
Public lblEmpresaRegistro: TLabel;
Public btnOK: TButton;
Public lblDescricao: TLabel;
Public edtCreditos: TMemo;
Public lblCreditos: TLabel;
Public lblStatusRegistro: TLabel;
Public lblTituloVersao: TLabel;
Public edtVersao: TEdit;

Métodos

Public procedure btnOKClick(Sender: TObject);
Public procedure FormCreate(Sender: TObject);
Private procedure DefinirEmpresa(const Value: string);
Private procedure DefinirUsuario(const Value: string);
Private procedure DefinirStatusRegistro(const Value: string);
Private procedure DefinirDescricao(const Value : String);

Properties

Public property UsuarioRegistrado : string write DefinirUsuario;
Public property EmpresaRegistrada : string write DefinirEmpresa;
Public property StatusRegistro : string write DefinirStatusRegistro;
Public property Descricao : string write DefinirDescricao;

Descrição

Campos

Public imgAplicativo: TImage;
 
Public lblRegistradoPara: TLabel;
 
Public lblUsuarioRegistro: TLabel;
 
Public lblEmpresaRegistro: TLabel;
 
Public btnOK: TButton;
 
Public lblDescricao: TLabel;
 
Public edtCreditos: TMemo;
 
Public lblCreditos: TLabel;
 
Public lblStatusRegistro: TLabel;
 
Public lblTituloVersao: TLabel;
 
Public edtVersao: TEdit;
 

Métodos

Public procedure btnOKClick(Sender: TObject);
 
Public procedure FormCreate(Sender: TObject);
 
Private procedure DefinirEmpresa(const Value: string);

Define a Empresa usuária

Parâmetros
value
a string da identificação da empresa (Definido pela Property)
Private procedure DefinirUsuario(const Value: string);

Define o nome do usuário

Parâmetros
value
a string do nome do usuároi (Definido pela Property)
Private procedure DefinirStatusRegistro(const Value: string);

Define o Status do registro

Parâmetros
value
a string do status (Definido pela Property)
Private procedure DefinirDescricao(const Value : String);

Define a descrição do aplicativo

Parâmetros
value
a descrição (Definido pela Property)

Properties

Public property UsuarioRegistrado : string write DefinirUsuario;

Nome do Usuário registrado

Public property EmpresaRegistrada : string write DefinirEmpresa;

Nome/CNPJ/INformação da empresa registrada

Public property StatusRegistro : string write DefinirStatusRegistro;

Status atual do registro

Public property Descricao : string write DefinirDescricao;

Descrição do aplicativo