Classe TfrmKernelFormularioDados

Unit

untKernelFormularioDados

Declaração

type TfrmKernelFormularioDados = class(TfrmKernelFormulario)

Descrição

Classe do Formulário de Acesso a dados

Hierarquia

TForm
TfrmKernelFormulario
TfrmKernelFormularioDados

Visão Geral

Campos

	`dscPrincipal: TDataSource;`
	`btnExcluir: TToolButton;`
	`btnSalvarNovo: TToolButton;`
	`sprSair: TToolButton;`
	`btnSalvarSair: TToolButton;`
	`btnImprimir: TToolButton;`
	`btnEditar: TToolButton;`
	`btnNovo: TToolButton;`
	`sprImprimir: TToolButton;`
	`btnSair: TToolButton;`
	`btnAnterior: TToolButton;`
	`btnProximo: TToolButton;`
	`sprNavega: TToolButton;`
	`btnSalvar: TToolButton;`
	`bolSolicitarConfirmacaoSaida: Boolean;`
	`lstPesquisa: TList;`
	`lstControles: TList;`
	`lstControladorGrade: TList;`
	`bolNovoFinal: boolean;`
	`strArtigoIndefinidoUm: String;`
	`strArtigo: String;`
	`lstControladorDetalhe: TList;`

Métodos

	`procedure btnSairClick(Sender: TObject);`
	`procedure btnSalvarNovoClick(Sender: TObject);`
	`procedure btnEditarClick(Sender: TObject);`
	`procedure btnSalvarSairClick(Sender: TObject);`
	`procedure btnExcluirClick(Sender: TObject);`
	`procedure btnNovoClick(Sender: TObject);`
	`procedure btnImprimirClick(Sender: TObject);`
	`procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure btnAnteriorClick(Sender: TObject);`
	`procedure btnProximoClick(Sender: TObject);`
	`procedure dscPrincipalDataChange(Sender: TObject; Field: TField);`
	`procedure FormDestroy(Sender: TObject);`
	`procedure FormKeyPress(Sender: TObject; var Key: Char);`
	`procedure barStatusDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);`
	`procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure btnSalvarClick(Sender: TObject);`
	`function ConfirmarNovoFinal : boolean;`
	`procedure AtualizarControladores;`
	`procedure DefinirLabelCampoRequerido(const strNomeCampo : string);`
	`procedure AtualizarHints(const bolEdicaoInsercao : boolean); virtual;`
	`procedure ImprimirGrade(const objGrade : TDbGrid; const strTitulo : string = '');`
	`procedure AntesDeSalvar; virtual;`
	`procedure AntesDeSalvareNovo; virtual;`
	`procedure AposSalvareNovo; virtual;`
	`function NovaPesquisa(entEntidade : TdtmKernelComum = nil): TKernelPesquisaEntidade;`
	`function NovaComboBox (entEntidade : TdtmKernelComum = nil): TKernelPesquisaComboBox;`
	`function NovaRadioGroup (entEntidade : TdtmKernelComum = nil): TKernelPesquisaRadioGroup;`
	`function NovaGrade(const grdGrade : TDBGrid; entEntidade : TdtmKernelComum = nil): TControladorGrade;`
	`procedure AposNovo; virtual;`
	`procedure AposExcluir; virtual;`
	`procedure Novo;`
	`procedure Salvar;`
	`procedure SalvareNovo;`
	`procedure Proximo;`
	`procedure Anterior;`
	`procedure Primeiro;`
	`procedure Ultimo;`
	`procedure Editar;`
	`procedure Excluir;`
	`procedure Cancelar;`
	`procedure Imprimir;`
	`procedure OrdenarBotoes(const arr : array of TToolButton);`
	`procedure IrPrimeiroControle;`
	`function UltimoControle : boolean;`
	`procedure IncluirControles(const aryControles : array of TWinControl);`
	`procedure IncluirControlesNaoDBRequeridos(const aryControles : array of TWinControl);`
	`procedure IncluirControlesDesabilitados(const aryControles : array of TWinControl);`
	`function NovoDetalhe(const objFerramentas : TToolbar; const objEntidadeDetalhe : TdtmKernelComum): TControladorDetalhe;`
	`procedure AntesDeSair; override;`
	`procedure AposDefinirEntidade; override;`
	`procedure AposEntidadeDefinida; override;`
	`procedure SalvarGrade(const objGrade : TDBgrid);`
	`procedure CarregarGrade(const objGrade : TDBGrid);`
	`procedure AposExibir; override;`
	`procedure TestarPermissoes;`
	`procedure AtualizarControles;`
	`procedure AtualizarSomenteLeitura;`
	`procedure EntidadeDefinida; override;`

Properties

	`property SolicitarConfirmacaoSaida : Boolean read bolSolicitarConfirmacaoSaida write bolSolicitarConfirmacaoSaida;`
	`property NovoFinal : boolean read bolNovoFinal write bolNovoFinal;`

Descrição

Campos

	`dscPrincipal: TDataSource;`

	`btnExcluir: TToolButton;`

	`btnSalvarNovo: TToolButton;`

	`sprSair: TToolButton;`

	`btnSalvarSair: TToolButton;`

	`btnImprimir: TToolButton;`

	`btnEditar: TToolButton;`

	`btnNovo: TToolButton;`

	`sprImprimir: TToolButton;`

	`btnSair: TToolButton;`

	`btnAnterior: TToolButton;`

	`btnProximo: TToolButton;`

	`sprNavega: TToolButton;`

	`btnSalvar: TToolButton;`

	`bolSolicitarConfirmacaoSaida: Boolean;`
Determina se será solicitada a confirmação de salvamento no momento que o usuário deixar a tela de cadastro caso tenham sido realizadas alterações.

	`lstPesquisa: TList;`
Lista de Pesquisas instanciadas

	`lstControles: TList;`
Lista de controles dentro do formulário

	`lstControladorGrade: TList;`
Lista de controladores de grade

	`bolNovoFinal: boolean;`
Define se será inserido um novo registro ao pressionar enter no ultimo controle

	`strArtigoIndefinidoUm: String;`
Conjuncao um utilizada em mensagens

	`strArtigo: String;`
Artigo (o/a) utilizado em mensagens

	`lstControladorDetalhe: TList;`
lista de controladores detalhe para destruir depois

Métodos

	`procedure btnSairClick(Sender: TObject);`
Ao clicar no botão sair, fecha o formulário.

	`procedure btnSalvarNovoClick(Sender: TObject);`
Salva e Insere um Novo registro

	`procedure btnEditarClick(Sender: TObject);`
Etita o Registro atual

	`procedure btnSalvarSairClick(Sender: TObject);`
Salva o Registro atual e sai do formulario

	`procedure btnExcluirClick(Sender: TObject);`
Exclui o registro atual

	`procedure btnNovoClick(Sender: TObject);`
Insere um novo registro

	`procedure btnImprimirClick(Sender: TObject);`
Imprime o Relatorio associado

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

	`procedure btnAnteriorClick(Sender: TObject);`

	`procedure btnProximoClick(Sender: TObject);`

	`procedure dscPrincipalDataChange(Sender: TObject; Field: TField);`

	`procedure FormDestroy(Sender: TObject);`

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

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

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

	`procedure btnSalvarClick(Sender: TObject);`

	`function ConfirmarNovoFinal : boolean;`
Verifica a confirmação se deve ou não incluir um novo item no final

	`procedure AtualizarControladores;`
Atualiza os controladores presentes no formulário

procedure DefinirLabelCampoRequerido(const strNomeCampo : string);

Define o label do campo requerido para negrito e com cor diferenciada

Parâmetros

strNomeCampo: Nome do Campo a ser localizado

	`procedure AtualizarHints(const bolEdicaoInsercao : boolean); virtual;`
Atualiza as dicas de tela quando há necessidade, como uma alteração no estado do dataset por exemplo

	`procedure ImprimirGrade(const objGrade : TDbGrid; const strTitulo : string = '');`
Efetua o Procedimento de impressão da grade de dados atual

	`procedure AntesDeSalvar; virtual;`
Evento Disparado ao clicar no botão salvar e antes de chamar o método salvar da entidade

	`procedure AntesDeSalvareNovo; virtual;`
Evento disparado ao clicar no botão Salvar e Novo, mas antes de chamar os métosos salvar e novo da entidade

	`procedure AposSalvareNovo; virtual;`
Evento Disparado após salvar e inserir um novo registro

	`function NovaPesquisa(entEntidade : TdtmKernelComum = nil): TKernelPesquisaEntidade;`
Cria uma Nova pesquisa na entidade especificada

	`function NovaComboBox (entEntidade : TdtmKernelComum = nil): TKernelPesquisaComboBox;`
Cria um novo controlador de combobox

	`function NovaRadioGroup (entEntidade : TdtmKernelComum = nil): TKernelPesquisaRadioGroup;`
Cria um novo controlador de radiogroup

	`function NovaGrade(const grdGrade : TDBGrid; entEntidade : TdtmKernelComum = nil): TControladorGrade;`
Cria um novo controlador de grade

	`procedure AposNovo; virtual;`
Evento AposNovo do Formulario

	`procedure AposExcluir; virtual;`
Evento AposExcluir do Formulario

	`procedure Novo;`
Insere um Novo Registro no DataSet Principal da Entidade

	`procedure Salvar;`
Salva o Registro Atual do DataSet Principal da Entidade

	`procedure SalvareNovo;`
Salva E insere um novo registro

	`procedure Proximo;`
Avança para o Próximo registro do DataSet Principal da Entidade

	`procedure Anterior;`
Volta um Registro no DataSet Principal da Entidade

	`procedure Primeiro;`
Vai para o Primeiro registro do DataSet Principal da Entidade

	`procedure Ultimo;`
Vai para o Ultimo registro do DataSet Principal da Entidade

	`procedure Editar;`
Edita o Registro atual do DataSet Principal da Entidade

	`procedure Excluir;`
Exclui o registro atual do DataSet Principal da Entidade

	`procedure Cancelar;`
Cancela a Edição/Inserção do Registro atual

	`procedure Imprimir;`
Imprime o Relatório da Entidade

	`procedure OrdenarBotoes(const arr : array of TToolButton);`
Ordena os botões da barra de ferramentas

	`procedure IrPrimeiroControle;`
Coloca o foco no primeiro controle do formulário

	`function UltimoControle : boolean;`
Verifica se o foco está no último controle

	`procedure IncluirControles(const aryControles : array of TWinControl);`
Incluir os Controles para ordem de Tab

	`procedure IncluirControlesNaoDBRequeridos(const aryControles : array of TWinControl);`
Define a lista de controles não db que são requeridos

	`procedure IncluirControlesDesabilitados(const aryControles : array of TWinControl);`
Define os controles desabilitados

	`function NovoDetalhe(const objFerramentas : TToolbar; const objEntidadeDetalhe : TdtmKernelComum): TControladorDetalhe;`
Cria um controlador de Detalhe

	`procedure AntesDeSair; override;`
TfrmKernelFormulario.AntesDeSair

	`procedure AposDefinirEntidade; override;`
TfrmKernelFormulario.AposDefinirEntidade

	`procedure AposEntidadeDefinida; override;`
TfrmKernelFormulario.AposEntidadeDefinida

	`procedure SalvarGrade(const objGrade : TDBgrid);`
Armazena os dados de colunas da grade nas confirugações do usuário

	`procedure CarregarGrade(const objGrade : TDBGrid);`
Carrega os dados de colunas da grade a partir das configurações do usuário

	`procedure AposExibir; override;`
TfrmKernelFormulario.AposExibir

	`procedure TestarPermissoes;`
Habilita os botoes do formulário de acordo com as permissões do usuário

	`procedure AtualizarControles;`
Atualiza os controles que estão na lista de controles

	`procedure AtualizarSomenteLeitura;`
Atualiza os campos somente leitura na tela

	`procedure EntidadeDefinida; override;`
Definições Iniciais do formulario com a entidade

Properties

	`property SolicitarConfirmacaoSaida : Boolean read bolSolicitarConfirmacaoSaida write bolSolicitarConfirmacaoSaida;`
Define se o kernel irá solicitar ao usuario confirmação se saída do formulário com dados pendentes a serem salvos

	`property NovoFinal : boolean read bolNovoFinal write bolNovoFinal;`
Verifica se será inserido um novo registro ao pressionar enter sobre o ultimo controle