Classe TfrmKernelPrincipal

Unit

untKernelPrincipal

Declaração

type TfrmKernelPrincipal = class(TForm)

Descrição

Formulário Principal

Hierarquia

TForm
TfrmKernelPrincipal

Visão Geral

Campos

	`barStatus: TStatusBar;`
	`mnuMenuPrincpal: TMainMenu;`
	`mnuPrincipal: TMenuItem;`
	`mnuSair: TMenuItem;`
	`mnuConfiguracoes: TMenuItem;`
	`mnuIniciar: TMenuItem;`
	`mnuSeparadorSair: TMenuItem;`
	`mnuConfiguracoesBackup: TMenuItem;`
	`mnuConfiguracoesRestore: TMenuItem;`
	`mnuSeparadorAlterarSenha: TMenuItem;`
	`mnuAlterarSenha: TMenuItem;`
	`mnuAjuda: TMenuItem;`
	`mnuSobre: TMenuItem;`
	`mnuSobreSeparador: TMenuItem;`
	`mnuModificaRegistro: TMenuItem;`
	`Hint: TKernelHint;`
	`XPMenu: TXPMenu;`
	`bolPressionouEsc: Boolean;`
	`bolCriarRelatoriosUsuarios: Boolean;`
	`strOutrasOpcoes: String;`
	`strAliasBanco: String;`

Métodos

	`procedure FormCreate(Sender: TObject);`
	`procedure mnuSairClick(Sender: TObject);`
	`procedure MenuOnMouseEnter(Sender: TObject);`
	`procedure MenuOnMouseLeave(Sender: TObject);`
	`procedure FormDestroy(Sender: TObject);`
	`procedure mnuConfiguracoesBackupClick(Sender: TObject);`
	`procedure mnuConfiguracoesRestoreClick(Sender: TObject);`
	`procedure barStatusDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);`
	`procedure mnuAlterarSenhaClick(Sender: TObject);`
	`procedure mnuSobreClick(Sender: TObject);`
	`procedure mnuModificaRegistroClick(Sender: TObject);`
	`procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure DefinirDescricao(const strDescricao : string);`
	`function ObterDescricao: string;`
	`procedure DefinirDescricaoSobre(const Value: string);`
	`procedure DefinirLocalizacao(const Value: string);`
	`function ObterModuloInicial: TModulo;`
	`procedure ExibirRelatorio(Sender : TObject);`
	`procedure CriarMenus; virtual;`
	`procedure AposCriarInterno;`
	`procedure AposCriar; virtual;`
	`procedure CriarManutencao(clsModuloDados : TDataModuleClass);`
	`procedure CriaRelatorios;`

Properties

	`property Descricao : string read ObterDescricao write DefinirDescricao;`
	`property Localizacao : string write DefinirLocalizacao;`
	`property DescricaoSobre : string write DefinirDescricaoSobre;`
	`property CriarRelatorios : Boolean read bolCriarRelatoriosUsuarios write bolCriarRelatoriosUsuarios;`
	`property ModuloInicial : TModulo read ObterModuloInicial;`

Descrição

Campos

	`barStatus: TStatusBar;`

	`mnuMenuPrincpal: TMainMenu;`

	`mnuPrincipal: TMenuItem;`

	`mnuSair: TMenuItem;`

	`mnuConfiguracoes: TMenuItem;`

	`mnuIniciar: TMenuItem;`

	`mnuSeparadorSair: TMenuItem;`

	`mnuConfiguracoesBackup: TMenuItem;`

	`mnuConfiguracoesRestore: TMenuItem;`

	`mnuSeparadorAlterarSenha: TMenuItem;`

	`mnuAlterarSenha: TMenuItem;`

	`mnuAjuda: TMenuItem;`

	`mnuSobre: TMenuItem;`

	`mnuSobreSeparador: TMenuItem;`

	`mnuModificaRegistro: TMenuItem;`

	`Hint: TKernelHint;`
Objeto de Controle de Dicas de tela

	`XPMenu: TXPMenu;`
Objeto de Controle visual XPMenu

	`bolPressionouEsc: Boolean;`
Verifica se o usuário já pressionou Esc uma Vez

	`bolCriarRelatoriosUsuarios: Boolean;`
Define se serão ou não criados os relatórios do usuário nos menus

	`strOutrasOpcoes: String;`
Define o Label de Outras Opcoes

	`strAliasBanco: String;`
Alias do banco de dados utilizado para passar como parametro ao backup

Métodos

	`procedure FormCreate(Sender: TObject);`
Evento Disparado na Criação do Formulário

	`procedure mnuSairClick(Sender: TObject);`
Evento ao Clicar no Menu Sair

	`procedure MenuOnMouseEnter(Sender: TObject);`
label - Ao Entrar com o mouse

	`procedure MenuOnMouseLeave(Sender: TObject);`
label - Ao Sair com o mouse

	`procedure FormDestroy(Sender: TObject);`

	`procedure mnuConfiguracoesBackupClick(Sender: TObject);`

	`procedure mnuConfiguracoesRestoreClick(Sender: TObject);`

	`procedure barStatusDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);`

	`procedure mnuAlterarSenhaClick(Sender: TObject);`

	`procedure mnuSobreClick(Sender: TObject);`

	`procedure mnuModificaRegistroClick(Sender: TObject);`

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

	`procedure DefinirDescricao(const strDescricao : string);`
Define a Descricao do aplicativo. É armazenada em uma variável do sistema

	`function ObterDescricao: string;`
Retorna a descrição do aplicativo

	`procedure DefinirDescricaoSobre(const Value: string);`
Define A Descrição sobre o Aplicativo que será posteriormente exibida no formulário TfrmKernelSobre. Este valor é armazenado em uma variável do sistema

	`procedure DefinirLocalizacao(const Value: string);`
Define a localização do aplicativo, exibido na tela inicial junto com a informação de data e hora

	`function ObterModuloInicial: TModulo;`
Retorna o Módulo Inicial

	`procedure ExibirRelatorio(Sender : TObject);`
Procedimento executado ao clicar em um item do menu de relatorios

	`procedure CriarMenus; virtual;`
Método para Concentrar a criação dos menus e módulos do sistema

	`procedure AposCriarInterno;`
Método interno disparado apoós criar o formulário, e após o método AposCriar

	`procedure AposCriar; virtual;`
Método Diaparado após a criação do formulário principal, é utilizado para definir os parametros iniciais do aplicativo em tempo de execução

procedure CriarManutencao(clsModuloDados : TDataModuleClass);

Criar tela de Manutenção

Cria um Formulário de Manutenção que esteja anexado à classe do Módulo de Dados Passado como Parametro, através da propriedade ClasseCadastro. Autor: Alexandre da Silva
Data: 22 de Dezembro de 2004

	`procedure CriaRelatorios;`
Cria a Lista de relatorios do sistema e adiciona no menu

Properties

	`property Descricao : string read ObterDescricao write DefinirDescricao;`
Define a Descricao do Projeto

	`property Localizacao : string write DefinirLocalizacao;`
Define a Localização do Sistema (Apenas Informativo)

	`property DescricaoSobre : string write DefinirDescricaoSobre;`
Descricao que aparece na janela sobre o sistema

	`property CriarRelatorios : Boolean read bolCriarRelatoriosUsuarios write bolCriarRelatoriosUsuarios;`
Define a criação da lista de relatórios do usuário

	`property ModuloInicial : TModulo read ObterModuloInicial;`
Retorna o Módulo Inicial