Classe TAmbiente

DescriçãoHierarquiaCamposMétodosProperties

Unit

untKernelAmbiente

Declaração

type TAmbiente = class(TObject)

Descrição

Classe de controle do ambiente do aplicativo

Hierarquia

Visão Geral

Campos

Protected lstVariavelSistema: TList;
Protected lstVariavelGlobal: TList;
Protected lstVariavelUsuario: TList;
Protected objCor: TCoresSistema;
Protected objUsuario: TInformacaoUsuario;
Protected objBancoDados: TBancoDados;
Protected lstDadosAcessoUsuario: TDadosAcessoUsuario;
Protected FBancoDadosAplicativo: TBancoDadosAplicativo;
Protected recAtivacaoInformacao: TInformacaoAtivacaoSoftware;
Protected objXPMenu: TXPMenu;
Protected recFilial: TEmpresa;
Protected recEmpresa: TEmpresa;
Protected objValidacao: TValidacao;

Métodos

Protected function ObterVariavel(const strVariavelNome : string; const lstVariavel : TList) : TVariavelSistema;
Private procedure DestruirVariaveis(const bolSistema : boolean = false);
Private function ObterVariavelAmbiente(strVariavelNome: string): Variant;
Private function ObterVariavelUsuario(strVariavelNome: string): Variant;
Private function ObterVariavelSistema(strVariavelNome: string): Variant;
Private procedure AdicionarVariavel(const strVariavelNome : string; varVariavelValor : variant; const lstVariavelAdicionar : TList);
Private function VerificarVariavelExiste(strVariavelNome: string): Boolean;
Private function VerificarVariavelSistemaExiste(strVariavelNome: string): Boolean;
Private procedure DefinirVariavelSistema(strVariavelNome: string; const Value: Variant);
Private function CarregarDados(const hash: string): TStream;
Private procedure SalvarDados(const hash: string; const Value: TStream);
Private procedure SetBancoDadosAplicativo(const Value: TBancoDadosAplicativo);
Private function ObterKernelString: TKernelString;
Private function ObterObjetoControleEntidade: TControleEntidade;
Private function ObterObjetoRelatorio: TKernelRelatorio;
Private function ObterConexao: TZConnection;
Private function ObterLookup : TdtmKernelLookup;
Private function ObterStatusRegistro: String;
Private function ObterEmpresaRegistrada: string;
Public constructor Create;
Public destructor Destroy; override;
Public procedure Destruir(var obj);
Public procedure DestruirObjetosStringList(const lst : TStrings);
Public procedure DefinirDataAtivacao(const datData : TDateTime);
Public procedure DefinirStatusRegistro(const bitSts : TStatusRegistro);
Public function ObterNomeComputador : string;
Public function OBterPermissaoDiretivaRecurso(const strDiretiva : string): Integer;
Public function ObterPermissaoDiretiva(const strHash : string) : Integer;
Public function ObterPermissaoUsuarioDiretiva(const intUsuarioID : Integer; const strHash : string) : Integer;
Public function ObterPrivilegioUsuarioAtual(const strEntidade : string) : TPrivilegioUsuario;
Public procedure CarregarVariaveis;
Public procedure CarregarDadosAcessoUsuario;
Public procedure NovaVariavel(const strVariavelNome : string; varVariavelValor : variant);
Public procedure MensagemInformacao(const strMensagem : string; const strTitulo : string = InfMensagemInformacao);
Public procedure MensagemErro(const strMensagem : string; const strTitulo : string = InfMensagemErro);
Public procedure MensagemAlerta(const strMensagem : string; const strTitulo : string = InfMensagemAlerta);
Public function MensagemConfirmacao(const strMensagem : string; const strTitulo : string = InfMensagemConfirmacao) : boolean;
Public function ExecutarSQL(const strSQL : string) : boolean;
Public procedure CarregarEmpresa;
Public procedure PesquisarModulo;
Public procedure CarregarPesquisaModulo;

Properties

Public property Variavel[strVariavelNome : string]: Variant read ObterVariavelAmbiente;
Public property VariavelUsuario[strVariavelNome : string]: Variant read ObterVariavelUsuario;
Public property VariavelSistema[strVariavelNome : string]: Variant read ObterVariavelSistema write DefinirVariavelSistema;
Public property VariavelSistemaExiste[strVariavelNome : string]: Boolean read VerificarVariavelSistemaExiste;
Public property VariavelExiste[strVariavelNome : string]: Boolean read VerificarVariavelExiste;
Public property Usuario : TInformacaoUsuario read objUsuario write objUsuario;
Public property Cores : TCoresSistema read objCor write objCor;
Public property UsuarioDados[const hash : string]: TStream read CarregarDados write SalvarDados;
Public property BancoDadosAplicativo : TBancoDadosAplicativo read FBancoDadosAplicativo write SetBancoDadosAplicativo;
Public property str : TKernelString read ObterKernelString;
Public property Relatorio : TKernelRelatorio read ObterObjetoRelatorio;
Public property ControleEntidade : TControleEntidade read ObterObjetoControleEntidade;
Public property Conexao : TZConnection read ObterConexao;
Public property Lookup : TdtmKernelLookup read ObterLookup;
Public property AtivacaoInformacao : TInformacaoAtivacaoSoftware read recAtivacaoInformacao;
Public property StatusRegistro : String read ObterStatusRegistro;
Public property EmpresaRegistrada : string read ObterEmpresaRegistrada;
Public property BancoDados : TBancoDados read objBancoDados;
Public property Filial : TEmpresa read recFilial;
Public property Empresa : TEmpresa read recEmpresa;
Public property Validacao : TValidacao read objValidacao;
Public property XPMenu : TXPMenu read objXPMenu write objXPMenu;

Descrição

Campos

Protected lstVariavelSistema: TList;

Lista de Variaveis do Sistema

Protected lstVariavelGlobal: TList;

Lista de Variaveis Globais

Protected lstVariavelUsuario: TList;

Lista de Variaveis do usuário

Protected objCor: TCoresSistema;

Objeto de armazenamento das cores do sistema

Protected objUsuario: TInformacaoUsuario;

Objeto de Informações do usuário conectado no sistema

Protected objBancoDados: TBancoDados;

Objeto de Controle e formatos do banco de dados do sistema

Protected lstDadosAcessoUsuario: TDadosAcessoUsuario;

Objeto de Armazemamento de dados de acesso do usuário

Protected FBancoDadosAplicativo: TBancoDadosAplicativo;

Tipo de Banco de dados que o aplicativo utiliza

Protected recAtivacaoInformacao: TInformacaoAtivacaoSoftware;

Informação sobre a Ativação (Registro) do Software

Protected objXPMenu: TXPMenu;

Objeto de aprimoramento visual XPMenu

Protected recFilial: TEmpresa;

Informações da empresa atual

Protected recEmpresa: TEmpresa;

Informações pertinentes a Exati

Protected objValidacao: TValidacao;

Validação em geral para CPF, CNPJ, entre outros

Métodos

Protected function ObterVariavel(const strVariavelNome : string; const lstVariavel : TList) : TVariavelSistema;

Obtém uma variável da lista passada como parametro

Private procedure DestruirVariaveis(const bolSistema : boolean = false);

Destroi as variáveis

Private function ObterVariavelAmbiente(strVariavelNome: string): Variant;

Retorna o valor de uma variavel de ambiente

Private function ObterVariavelUsuario(strVariavelNome: string): Variant;

Retorna o valor de uma variavel do usuário

Private function ObterVariavelSistema(strVariavelNome: string): Variant;

Retorna o Valor de uma variavel do Sistema

Private procedure AdicionarVariavel(const strVariavelNome : string; varVariavelValor : variant; const lstVariavelAdicionar : TList);

Adiciona um valor na lista de variaveis especificada

Private function VerificarVariavelExiste(strVariavelNome: string): Boolean;

Vefifica se a variavel solicitada existe na lista de variaveis globais

Private function VerificarVariavelSistemaExiste(strVariavelNome: string): Boolean;

Vefifica se a variavel solicitada existe na lista de variaveis do sistema

Private procedure DefinirVariavelSistema(strVariavelNome: string; const Value: Variant);

Ajusta o valor da variavel passada como parametro

Private function CarregarDados(const hash: string): TStream;

Carrega os dados da grade

Private procedure SalvarDados(const hash: string; const Value: TStream);

Armazena dados brutos no banco de dados, tais como informações de usuários, de colunas de grades, etc

Private procedure SetBancoDadosAplicativo(const Value: TBancoDadosAplicativo);

Define o tipo de banco de dados que o aplicativo utiliza

Private function ObterKernelString: TKernelString;

Retorna o Objeto de String

Private function ObterObjetoControleEntidade: TControleEntidade;

Retorna o Objeto de Controle de Entidades

Private function ObterObjetoRelatorio: TKernelRelatorio;

Retorna o Objeto de Controle de Relatório

Private function ObterConexao: TZConnection;

Retorna o Objeto de Conexão com Banco de Dados (DataModule)

Private function ObterLookup : TdtmKernelLookup;

Retorna o Objeto de Informacoes Lookup (DataModule)

Private function ObterStatusRegistro: String;

Retorna o status do registro do sistema

Private function ObterEmpresaRegistrada: string;

Retorna a Empresa para a qual o sistema está registrado

Public constructor Create;

Construtor, inicializa listas e valores

Public destructor Destroy; override;

Destruror, destroi as variaveis limpa as listas e destroi as listas

Public procedure Destruir(var obj);

Procedimento de destruição de objetos com destruição completa de lista e itens inclusive

Parâmetros
obj
o objeto a ser destruido
Public procedure DestruirObjetosStringList(const lst : TStrings);

Destroi os objeos contidos em uma stringlist e efetua um clear

Public procedure DefinirDataAtivacao(const datData : TDateTime);

Define a data de de validade ativação do registro do aplicativo

Parâmetros
datData
a data em que o aplicativo vai expirar
Public procedure DefinirStatusRegistro(const bitSts : TStatusRegistro);

Define o status atual do registro do sistema

Parâmetros
bitSts
bit controlador do status
Public function ObterNomeComputador : string;

Retorna o nome do computador que o sistema está executando

Public function OBterPermissaoDiretivaRecurso(const strDiretiva : string): Integer;

Retorna o nível de permissão do usuário atual para uma diretiva de recurso

Parâmetros
strDiretiva
nome da diretiva que se está buscando
Public function ObterPermissaoDiretiva(const strHash : string) : Integer;

Obtém o nível de permissão do usuário para uma diretiva

Parâmetros
strHash
Hash md5 da diretiva que se está localizando
Public function ObterPermissaoUsuarioDiretiva(const intUsuarioID : Integer; const strHash : string) : Integer;

Obtém a permissão de um usuário específico para uma diretiva

Parâmetros
intUsuarioID
código do usuário a testar a diretiva
strHash
Hash md5 da diretiva que se deseja localizar
Public function ObterPrivilegioUsuarioAtual(const strEntidade : string) : TPrivilegioUsuario;

Obtém o privilégio do usuário atual para determinada entidade

Parâmetros
strEntidade
entidade que se quer testar o privilégio
Public procedure CarregarVariaveis;

Carrega as variáveis do banco de dados

Public procedure CarregarDadosAcessoUsuario;

Carrega as informações de acesso do usuário

Public procedure NovaVariavel(const strVariavelNome : string; varVariavelValor : variant);

Adiciona uma nova variável na lista de variáveis do sistema (não persistente) esta variável estará disponível durante a execução do aplicativo somente

Public procedure MensagemInformacao(const strMensagem : string; const strTitulo : string = InfMensagemInformacao);

Exibe uma mensagem de informação através do aplivativo

Parâmetros
strMensagem
Mensagem a ser exibida
strTitulo
título da mensagem de informação
Public procedure MensagemErro(const strMensagem : string; const strTitulo : string = InfMensagemErro);

Exibe uma mensagem de erro através do aplicativo

Parâmetros
strMensagem
Mensagem a ser exibida
strTitulo
Titulo da mensagem
Public procedure MensagemAlerta(const strMensagem : string; const strTitulo : string = InfMensagemAlerta);

Exibe uma mensagem de alerta através do aplicativo

Parâmetros
strMensagem
Mensagem a ser exibida
strTitulo
Titulo da mensagem
Public function MensagemConfirmacao(const strMensagem : string; const strTitulo : string = InfMensagemConfirmacao) : boolean;

Exibe uma mensagem de confirmação ao usuário retornando verdadeiro caso o usuário tenha confirmado a questão informada

Parâmetros
strMensagem
Mensagem a ser exibida
strTitulo
Titulo da mensagem
Public function ExecutarSQL(const strSQL : string) : boolean;

Cria um acesso temporário direto ao banco de dados e executa a instução SQL

Parâmetros
strSQL
instrução SQL a ser executada no bando de dados da aplicação
Public procedure CarregarEmpresa;

Método responsável por carregar as informações da empresa desenvolvedora do sistema e da empresa usuária

Public procedure PesquisarModulo;

Visualiza a pesquisa de módulos disponibilizada em todos os formulários

Public procedure CarregarPesquisaModulo;

Cria o formulário de pesquisa de módulos e carrega a lista dos mesmos

Properties

Public property Variavel[strVariavelNome : string]: Variant read ObterVariavelAmbiente;

Retorna uma variável Global (Persistente)

Esta função retorna o valor de uma variável global, armazenada no banco de dados do sistema

Autor: Alexandre da Silva
Data: 23 de Dezembro de 2004 Modificado e transferido para o TAmbiente em : 14 de Julho de 2006

Public property VariavelUsuario[strVariavelNome : string]: Variant read ObterVariavelUsuario;

Retorna uma variável do usuário (Persistente)

Retorna o valor de uma variável do sistema que seja ligada ao usuário atual

Autor: Alexandre da Silva
Data: 14 de Julho de 2006

Public property VariavelSistema[strVariavelNome : string]: Variant read ObterVariavelSistema write DefinirVariavelSistema;

Retorna uma variável do sistema (não persistente)

Esta funcao retorna uma variável do sistema que foi adicionada através do método NovaVariavel

Autor: Alexandre da Silva
Data: 14 de Julho de 2006

Public property VariavelSistemaExiste[strVariavelNome : string]: Boolean read VerificarVariavelSistemaExiste;

Verifica existencia de variavel de sistema

Verifica se a variavel passada como parametro existe na lista de variáveis do sistema somente

Autor: Alexandre da Silva
Data: 24 de Julho de 2006

Public property VariavelExiste[strVariavelNome : string]: Boolean read VerificarVariavelExiste;

Verifica existencia de variavel global

Verifica se a variavel passada como parametro existe na lista de variaveis globais somente

Autor: Alexandre da Silva
Data: 24 de Julho de 2006

Public property Usuario : TInformacaoUsuario read objUsuario write objUsuario;

Informacoes do usuário conectado ao sistema

Public property Cores : TCoresSistema read objCor write objCor;

Informações das Cores do sistema

Public property UsuarioDados[const hash : string]: TStream read CarregarDados write SalvarDados;

Carrega os dados brutos do usuário armazenados no banco de dados

Public property BancoDadosAplicativo : TBancoDadosAplicativo read FBancoDadosAplicativo write SetBancoDadosAplicativo;

Bamco de Dados Utilizao pelo aplicativo

Public property str : TKernelString read ObterKernelString;

Objeto de Controle de Strings

Public property Relatorio : TKernelRelatorio read ObterObjetoRelatorio;

Objeto de Controle de Relatórios

Public property ControleEntidade : TControleEntidade read ObterObjetoControleEntidade;

Objeto de Controle de Entidades

Public property Conexao : TZConnection read ObterConexao;

Objeto que representa a conexão com o banco de dados

Public property Lookup : TdtmKernelLookup read ObterLookup;

Objeto que representa o datamodule de informações Lookup do sistema

Public property AtivacaoInformacao : TInformacaoAtivacaoSoftware read recAtivacaoInformacao;

Informações sobre a ativação do sistema

Public property StatusRegistro : String read ObterStatusRegistro;

Status Atual do registro/ativação do sistema

Public property EmpresaRegistrada : string read ObterEmpresaRegistrada;

Retorna a empresa que está registrada para uso do sistema

Public property BancoDados : TBancoDados read objBancoDados;

Retorna o Objeto de Funções específicas de dos bancos de dados do aplicativo

Public property Filial : TEmpresa read recFilial;

Dados da empresa usuária carregada atualmente no sistema

Public property Empresa : TEmpresa read recEmpresa;

Informações a respeito da empresa desenvolvedora do sistema

Public property Validacao : TValidacao read objValidacao;

Objeto de Controle de validações realizadas no sistema, deve ser uma unit criada por projeto, pois cada projeto pode ter uma série de validações específicas a serem realizadas, porém algumas mais comuns estarão disponíveis diretamente no núcleo do sistema

Public property XPMenu : TXPMenu read objXPMenu write objXPMenu;

Retorna o objeto de aprimoramento visual, XPMenu