Classe TKernelPesquisaEntidade

DescriçãoHierarquiaCamposMétodosProperties

Unit

untKernelPesquisa

Declaração

type TKernelPesquisaEntidade = class(TKernelPesquisa)

Descrição

Implementação da Classe de pesquisa na entidade

Hierarquia

Visão Geral

Campos

Private objCaixaCodigo: TDBEdit;
Private objCaixaNome: TDBEdit;
Private objBotaoPesquisar: TSpeedButton;
Private strNomeCampoCodigo: String;
Private strNomeCampoNome: String;
Private strNomeCampoCodigoDestino: String;
Private strNomeCampoCodigoRetorno: String;

Métodos

Private procedure DefinirCaixaCodigo(const objCaixa : TDBEdit);
Private procedure DefinirCaixaNome(const objCaixa : TDBEdit);
Private procedure DefinirBotaoPesquisar(const objBotao : TSpeedButton);
Private procedure BotaoPesquisarAoClicar(Sender : TObject);
Private procedure CaixaPressionarTecla(Sender: TObject; var Key: Word; Shift: TShiftState);
Private procedure Pesquisar(const objCaixa : TCustomEdit = nil);
Private procedure AtualizarBotaoPesquisar;
Private procedure DefinirCampoCodigoRetorno(const Value: string);
Private procedure DefinirNomeCampoCodigoDestino(const Value: string);
Protected procedure InstanciarPesquisa; override;
Protected procedure DefinirClassePesquisa(const clsEntidade : TEntidadeClasse); override;
Protected procedure AtualizarValoresInterno; override;
Protected function ObterCodigo: String; override;
Protected function ObterNome: String; override;
Protected procedure AposInstanciarEntidadePesquisa; override;
Protected function VerificarSomenteLeitura: Boolean; override;
Protected procedure AtualizarPesquisaInterno; override;
Protected procedure AtualizarSomenteLeituraInterno; override;
Public constructor Create(const EntidadePai : TdtmKernelComum); override;

Properties

Public property CaixaCodigo : TDBEdit write DefinirCaixaCodigo;
Public property CaixaNome : TDBEdit write DefinirCaixaNome;
Public property BotaoPesquisar : TSpeedButton write DefinirBotaoPesquisar;
Public property NomeCampoNome : string write strNomeCampoNome;
Public property NomeCampoCodigo : string write strNomeCampoCodigo;
Public property NomeCampoCodigoDestino : string write DefinirNomeCampoCodigoDestino;
Public property NomeCampoCodigoRetorno : string write DefinirCampoCodigoRetorno;

Descrição

Campos

Private objCaixaCodigo: TDBEdit;

Armazena a Caixa de Código

Private objCaixaNome: TDBEdit;

Armazena a Caixa de Nome

Private objBotaoPesquisar: TSpeedButton;

Armazena o Botão de Pesquisa

Private strNomeCampoCodigo: String;

Nome do Campo para Código

Private strNomeCampoNome: String;

Nome do Campo para Nome

Private strNomeCampoCodigoDestino: String;

Nome do Campo de Destino de Codigo

Private strNomeCampoCodigoRetorno: String;

Nome do Campo Codigo que deve retornar para o dataset, caso queira pesquisar em um codigo alternativo

Métodos

Private procedure DefinirCaixaCodigo(const objCaixa : TDBEdit);

Definição das Caixas de Controle de Codigo

Private procedure DefinirCaixaNome(const objCaixa : TDBEdit);

Definição das Caixas de Controle de Nome

Private procedure DefinirBotaoPesquisar(const objBotao : TSpeedButton);

Definição do Botão de Pesquisa

Private procedure BotaoPesquisarAoClicar(Sender : TObject);

Ação a ser executada ao clicar no botão de Pesquisa

Private procedure CaixaPressionarTecla(Sender: TObject; var Key: Word; Shift: TShiftState);

Aceo a ser executada ao perssinar teclas nas caixas

Private procedure Pesquisar(const objCaixa : TCustomEdit = nil);

Procedimento que realiza a busca na entidade de pesquisa

Private procedure AtualizarBotaoPesquisar;

Atualiza as configurações do botao de pesquisa

Private procedure DefinirCampoCodigoRetorno(const Value: string);

Define o nome do campo que deve retornar da entidade

Private procedure DefinirNomeCampoCodigoDestino(const Value: string);

Define o Nome do Campo código de destino

Protected procedure InstanciarPesquisa; override;

TKernelPesquisa.InstanciarPesquisa

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

TKernelPesquisa.DefinirClassePesquisa

Protected procedure AtualizarValoresInterno; override;

TKernelPesquisa.AtualizarValoresInterno

Protected function ObterCodigo: String; override;

TKernelPesquisa.ObterCodigo

Protected function ObterNome: String; override;

TKernelPesquisa.ObterNome

Protected procedure AposInstanciarEntidadePesquisa; override;

TKernelPesquisa.AposInstanciarEntidadePesquisa

Protected function VerificarSomenteLeitura: Boolean; override;

TKernelPesquisa.VerificarSomenteLeitura

Protected procedure AtualizarPesquisaInterno; override;

TKernelPesquisa.AtualizarPesquisaInterno

Protected procedure AtualizarSomenteLeituraInterno; override;

TKernelPesquisa.AtualizarSomenteLeituraInterno

Public constructor Create(const EntidadePai : TdtmKernelComum); override;

TKernelPesquisa.Create

Properties

Public property CaixaCodigo : TDBEdit write DefinirCaixaCodigo;

Propriedade de acesso à caixa de Codigo

Public property CaixaNome : TDBEdit write DefinirCaixaNome;

Propriedade de acesso à caixa de Nome/Descricao

Public property BotaoPesquisar : TSpeedButton write DefinirBotaoPesquisar;

Propriedade de acesso ao Botão de Pesquisa

Public property NomeCampoNome : string write strNomeCampoNome;

Propriedade de acesso ao nome Campo de Nome

Public property NomeCampoCodigo : string write strNomeCampoCodigo;

Propriedade de acesso a nome do Campo de Codigo

Public property NomeCampoCodigoDestino : string write DefinirNomeCampoCodigoDestino;

Propriedade de acesso ao nome do campo de destino de codigo

Public property NomeCampoCodigoRetorno : string write DefinirCampoCodigoRetorno;

Propriedade de acesso ao nome do Campo de destino Nome

Criada

Data: 15 de novembro de 2004