Classe TKernelPesquisaComboBox

DescriçãoHierarquiaCamposMétodosProperties

Unit

untKernelPesquisa

Declaração

type TKernelPesquisaComboBox = class(TKernelPesquisa)

Descrição

Implementação da entidade de pesquisas

Hierarquia

Visão Geral

Campos

Private objComboBox: TDBLookupCombobox;
Private dscLookup: TDataSource;

Métodos

Private procedure DefinirComboBox(const objCombo: TDBLookupComboBox);
Private procedure ComboboxClique(Sender: TObject);
Private procedure AtualizarCombobox;
Protected function ObterCodigo: String; override;
Protected function ObterNome: String; override;
Protected procedure DefinirClassePesquisa(const clsEntidade: TEntidadeClasse); override;
Protected procedure AtualizarValoresInterno; override;
Protected function VerificarSomenteLeitura: Boolean; override;
Protected procedure AtualizarPesquisaInterno; override;
Protected procedure AtualizarSomenteLeituraInterno; override;
Public procedure BeforeDestruction; override;

Properties

Public property Combo : TDBLookupComboBox read objComboBox write DefinirComboBox;

Descrição

Campos

Private objComboBox: TDBLookupCombobox;

Objeto de controle da combobox

Private dscLookup: TDataSource;

Datasource para lookup criado automaticamente, caso o mesmo não tenha sido definido

Métodos

Private procedure DefinirComboBox(const objCombo: TDBLookupComboBox);

Define a combobox e suas propriedades

Private procedure ComboboxClique(Sender: TObject);

Evento executado ao selecionar um item da combo

Private procedure AtualizarCombobox;

Atualiza as propriedades da combobox

Protected function ObterCodigo: String; override;

TKernelPesquisa.ObterCodigo

Protected function ObterNome: String; override;

TKernelPesquisa.ObterNome

Protected procedure DefinirClassePesquisa(const clsEntidade: TEntidadeClasse); override;

TKernelPesquisa.DefinirClassePesquisa

Protected procedure AtualizarValoresInterno; override;

TKernelPesquisa.AtualizarValoresInterno

Protected function VerificarSomenteLeitura: Boolean; override;

TKernelPesquisa.VerificarSomenteLeitura

Protected procedure AtualizarPesquisaInterno; override;

TKernelPesquisa.AtualizarPesquisaInterno

Protected procedure AtualizarSomenteLeituraInterno; override;

TKernelPesquisa.AtualizarSomenteLeituraInterno

Public procedure BeforeDestruction; override;

Antes de destruir a entidade

Properties

Public property Combo : TDBLookupComboBox read objComboBox write DefinirComboBox;

Propriedade de controle da combo

Autor

Criada

Data: 15 de outubro de 2005