Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Artigo Clube Delphi Edição 15 - Criando um Componente Data-Aware
Artigo da Revista Clube Delphi Edição 15.
Você não gostou da qualidade deste conteúdo?
(opcional) Você gostaria de comentar o que não lhe agradou?
Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.
Criando um Componente Data-Aware
Conheça o objeto TFieldDataLink
Na edição anterior, aprendemos a criar dois componentes visuais no Delphi. Vimos como criá-los à partir do zero, sendo um componente totalmente novo e também a criá-los sendo filho de um componente já existente e apenas modificando suas funcionalidades e/ou adicionando novas. Nesta edição veremos a última parte dessa série de componentes e criaremos um componente Data-Aware, ou seja, linkado à banco de dados com as propriedades DataField e DataSource.
Componentes Data-Aware se caracterizam pela capacidade de se conectarem a componentes filhos da classe TDataSet. Esta conexão se dá, normalmente, através de um componente TDataSource. O componente TDBEdit, por exemplo, é um componente Data-Aware. Com ele é possível manipular de maneira extremamente fácil o conteúdo de tabelas dos banco de dados.
Criando um componente Data-Aware
Nosso último componente será um Data-Aware derivado de um TPanel. Esse componente terá como funcionalidade a visualização de cores, sendo que se um registro conter um valor negativo, aparecerá uma mensagem informando que não existe cor definida. Lembre-se que você também pode criar um componente Data-Aware totalmente novo.
O componente se chamará TDBPanelColor.
Objeto de Ligação
Depois de criada a unit precisamos criar a conexão com a origem dos dados que precisamos apresentar. Esta conexão é efetuada usando uma classe especial que o Delphi possui: TFieldDataLink.
Esta classe é implementada de forma a disparar alguns eventos quando situações especiais acontecem na origem dos dados. Em nosso exemplo usaremos o evento OnDataChange que é disparado todas as vezes que há uma alteração no buffer de dados. Vejamos como deve ficar nossa unit:
unit DBPanelColor;
interface
"
Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Atua no ramo de desenvolvimento de software há mais de 10 anos, é autor de diversos artigos publicados pelas revistas ClubeDelphi e SQL Magazine. É Graduado em Tecnologia da Informação pela ABEU Faculdades Integradas e Pós-Graduado em Análise, Projeto e Gerência de Sistemas pela PUC-RJ, IBM Certifie...
