Classe TKernelPesquisaRadioGroup

Unit

type TKernelPesquisaRadioGroup = class(TKernelPesquisa)

Implementação de pesquisa em formato de radio group Lista os itens definidos e carrega os valores a serem gravados no banco a partir de uma entidade

objRadioGroup: TDBRadioGroup;

	`procedure DefinirRadioGroup(const Value: TDBRadioGroup);`
	`procedure AtualizarRadioGroup;`
	`procedure RadioGroupClique(Sender : TObject);`
	`procedure AtualizarValoresInterno; override;`
	`function ObterCodigo: String; override;`
	`function ObterNome: String; override;`
	`procedure AtualizarPesquisaInterno; override;`
	`procedure AtualizarSomenteLeituraInterno; override;`

property Radio : TDBRadioGroup read objRadioGroup write DefinirRadioGroup;

	`objRadioGroup: TDBRadioGroup;`
Objeto de controle de radio group

	`procedure DefinirRadioGroup(const Value: TDBRadioGroup);`
Método que define qual a radio group

	`procedure AtualizarRadioGroup;`
Atualiza as propriedades da radio

	`procedure RadioGroupClique(Sender : TObject);`
Selecionar um item da radio

	`procedure AtualizarValoresInterno; override;`
TKernelPesquisa.AtualizarValoresInterno

	`function ObterCodigo: String; override;`
TKernelPesquisa.ObterCodigo

	`function ObterNome: String; override;`
TKernelPesquisa.ObterNome

	`procedure AtualizarPesquisaInterno; override;`
TKernelPesquisa.AtualizarPesquisaInterno

	`procedure AtualizarSomenteLeituraInterno; override;`
TKernelPesquisa.AtualizarSomenteLeituraInterno

	`property Radio : TDBRadioGroup read objRadioGroup write DefinirRadioGroup;`
Define a radio group que será utilizada