Página sobre a Linguagem
de programação da Embarcadero

Sua Primeira Aplicação FireMonkey

Conectando o Firemonkey com um banco de dados simples

22-03-2015

Veja como conectar rapidamente um banco de dados de exemplo (que já acompanha o Delphi) usando o framework FireMonkey ao invés da tradicional VCL para Windows. Para iniciar um projeto simples usando o FireMonkey, no Delphi XE2, clique em File > New > FireMonkey HD Application - Delphi. Se você estiver utilizando o XE3, XE4 ou XE5, então clique em File > New > FireMonkey Desktop Application e, depois, selecione a opção HD FireMonkey Application (para a versão XE7,  escolha File > New > Other > Delphi Projects >  FireMonkey Metropolis UI Application ).

Você verá o formulário do FireMonkey, da mesma maneira como ocorre numa aplicação Delphi qualquer. Aliás, visualmente, aplicativos FireMonkey HD são os mais semelhantes possíveis aos criados com a já conhecida VCL. No entanto, o arquivo gerado para o form terá a extensão .fmx, e não .dfm (como os aplicativos feitos com a VCL). A unidade de código continua com a extensão .pas.

O objetivo é criar uma aplicação que acesse dados de um componente ClientDataSet. No entanto, para aplicativos FireMonkey a paleta Data Controls não está disponível, com componentes como DBEdit. Isso o impedirá de, após adicionar os campos no Clientdataset, arrastá-los para o form ( o que forçaria, na VCL, a criação de componentes TDBEdit e TDBText automaticamente). Você pode até tentar essa operação, mas nada acontecerá.

Devemos usar, então, os componentes da paleta LiveBindings para substituí-los (compatíveis também com a VCL). Ali temos tudo que precisamos. Isso porque os componentes LiveBindings permitem conexão com dados baseado em expressões relacionais para ligar uns objetos aos outros, por intermédio de suas propriedades. Desse modo, não precisamos usar componentes específicos para as conexões e, sim, os já conhecidos Edit, Memo e outros do tipo. Na VCL tradicional, isso não acontecia, o que nos forçava a usar TDBGrid, TDBEdit e outros componentes da paleta Data Control. Veremos, então, como fazê-los funcionar.

Coloque um componente ClientDataSet e um Datasource, ambos da paleta Data Access e, depois, da LiveBindings, coloque um BindingList, um BindScopeDB e um BindNavigator. Da paleta Standard, coloque dois Edits e um ImageControl. Selecione o componente BindScopeDB e ligue sua propriedade DataSource com o Datasource presente no seu form. Ligue o Datasource (através da propriedade Dataset) ao ClientDataSet. Por fim, ligue o BindNavigator ao BindScopeDB, através da propriedade BindScope.

Na propriedade Filename do ClientDataSet, procure pelo arquivo animals.cds em c:Arquivos de ProgramasCommon FilesCodegear SharedData, dando dois cliques sobre ele. Dê dois cliques sobre o ClientDataSet, clique na caixa de diálogo que surgirá com o botão direito do mouse e escolha Add All Fields. Para que os dados apareçam, vamos ligar os componentes visuais a cada um dos campos adicionados. Para isso, selecione o Edit e, em sua propriedade LiveBindings, clique na seta da caixa de seleção e escolha Link to DB Field. A caixa de diálogo New DB Link (Figura 2) aparecerá, contendo todos os campos encontrados no arquivo. Selecione Name e clique em OK. Repita esse procedimento para o outro Edit e para o ImageControl escolhendo, respectivamente, os campos Area e BMP. Mude a propriedade Active do ClientDataSet para True. Os dados já devem aparecer (Figura 3). Execute o aplicativo pressionando F9.

Pronto, este foi um exemplo rápido e prático sobre como conectar um banco de dados à sua aplicação.

Fonte: ASMC