Após uma pausa de publicações no Blog, resolvi que retomaria minhas atividades adotando uma prática que é o “sonho” de todo aprendiz: ir direto ao assunto!
Todo mundo que começa a aprender alguma coisa tem uma certa ansiedade em ver logo o resultado. É o aluno de violão que, após a primeira aula, quer logo dar um show e é o aprendiz de Delphi que quer, em poucas horas de “vôo”, desenvolver um sistema e ganhar dinheiro com isto. Eu não os culpo: vivemos na era da ansiedade!
Fui professor durante anos. E algumas pessoas dizem que nasci para ser professor. Sempre que perguntam algo, procuro não apenas responder “isto é assim ou isto é assado”; procuro sempre dar uma resposta ampla, como num esforço para sempre colocar o texto dentro do contexto. Isto é didática!
Mas, conhecendo a comunidade de TI como eu conheço, principalmente os neófitos, vou a partir deste artigo usar uma abordagem diferente. Ao invés de continuar apresentando o Delphi como pretendia, passo-a-passo, apresentando a lógica de cada componente, para só depois juntar tudo numa aplicação, vou fazer diferente: vou apresentar uma aplicação pronta – funcionando – e somente depois é que vou entrar nos detalhes. Assim, pretendo diminuir a ansiedade do leitor, dando-lhe algo “palpável”, para somente depois aprofundar no conhecimento que é necessário ter de cada componente utilizado.
O Delphi é um ambiente vivo!
Para mostrar uma das características que mais gosto no Delphi, vou começar com uma aplicação de banco de dados 100% funcional, que será feita sem que o programador digite uma linha sequer de código! É isto mesmo: vamos fazer uma aplicação de banco de dados, onde você poderá incluir, alterar, e até mesmo excluir dados de um banco de dados, sem escrever nenhuma linha de código!
O banco de dados de exemplo. O que é a BDE
Quando você instala o Delphi, são instaladas várias pastas contendo aplicações de exemplo e uma pasta contendo um banco de dados também de exemplo. Normalmente, este banco de dados fica na pasta C:\Arquivos de programas\Arquivos comuns\Borland Shared\Data.
A BDE é a Borland Database Engine. Já vou logo avisando: não usem a BDE profissionalmente! Ela teve seus dias de glória. Mas hoje está completamente obsoleta. Salvo em raríssimas exceções, não se justifica utilizar a BDE nem criar banco de dados estilo PARADOX. O motivo de apresentar a BDE aqui é meramente didático. Lembrem-se: estamos apenas conhecendo o Delphi.
Para começar, selecione File / New Application e acrescente os seguintes componentes no Form1:
- Da paleta BDE, adicione um componente Table;
- Da paleta Data Access, adicione um componente DataSource.
Agora faça as seguintes modificações, configurando algumas propriedades dos componentes (use o Object Inspector para isto):
- Em Form1
- Caption: BDE Demo
- ClientHeight: 300
- ClientWidth: 540
- Name: frmMain
- Em Table1
- DatabaseName: DBDEMOS (use a drop down list Box para escolher o nome)
- Name: tblCountry
- TableName: country.db (use a drop down list Box para escolher o nome)
- Em DataSource1
- Name: dsCountry
- DataSet: tblCountry
OBS.: Se você não sabe como fazer isto, é simples. Procure o componente na paleta citada. Ao encontrá-lo, clique uma vez nele e depois uma vez dentro da janela. Ele será inserido exatamente na posição da janela onde você clicar.
Agora clique no botão Save All e salve o projeto. Quando for solicitado, informe uniMain, para o nome da Unit e BDEDemo, para o nome do projeto.
Tudo correndo bem, a antiga Form1 deve se parecer com a figura abaixo.

Agora as coisas vão ficar mais interessantes!
Clique duplo em tblCountry, para exibir o Fields Editor. Alternativamente, você pode clicar com o botão direito em tblCountry e selecionar Fields Editor... Seja como for, irá aparecer uma janela flutuante. Com a janela flutuante do Fields Editor ativa, aperte Ctrl+F. O resultado será como mostrado na figura abaixo.

Os nomes exibidos agora na lista nada mais são que os campos da tabela Country. Selecione todos os campos da lista (Ctrl+L) e arraste-os para o canto superior esquerdo da janela principal (agora com o caption BDE Demo) e solte. O resultado deve ser como o mostrado na figura abaixo.

OMG! O que aconteceu?!
É o “milagre” do Delphi. Por isto que ele é da categoria RAD – Rapid Application Environment.
Agora vamos ver outra coisa interessante. Selecione tblCountry e, no Object Inspector coloque a propriedade Active = True e observe a tela! Hmmm, interessante, não?
Observe que, além de agora você estar vendo o conteúdo da tabela Country sendo exibido nos componentes que foram inseridos automaticamente pelo Delphi, você poderá ver que na janela flutuante do Fields Editor apareceu uma barra de navegação de banco de dados (DBNavigator). Clicando nos botões de navegação, você pode avançar ou retroceder pela tabela Country, vendo seu conteúdo.
Através deste recurso, você pode pré-visualizar os dados nos componentes e desta forma fazer ajustes de tamanho, largura, altura, etc, sem a necessidade de ter que rodar a aplicação para ver “como seria”.
Podemos ver, por exemplo, que os campos abaixo do nome (Name) estão exageradamente grandes. Podemos ver também que a tela (janela) está muito larga para os dados que estamos apresentando.
Usando o mouse, podemos selecionar um componente e, usando as guias de reajuste alterar as dimensões dele facilmente. Da mesma forma, podemos arrastá-lo para outras posições e etc.
Ajuste as dimensões dos componentes e da janela, de modo a que fiquem mais ou menos como mostrado na figura abaixo.
É o “milagre” do Delphi. Por isto que ele é da categoria RAD – Rapid Application Environment.
Agora vamos ver outra coisa interessante. Selecione tblCountry e, no Object Inspector coloque a propriedade Active = True e observe a tela! Hmmm, interessante, não?
Observe que, além de agora você estar vendo o conteúdo da tabela Country sendo exibido nos componentes que foram inseridos automaticamente pelo Delphi, você poderá ver que na janela flutuante do Fields Editor apareceu uma barra de navegação de banco de dados (DBNavigator). Clicando nos botões de navegação, você pode avançar ou retroceder pela tabela Country, vendo seu conteúdo.
Através deste recurso, você pode pré-visualizar os dados nos componentes e desta forma fazer ajustes de tamanho, largura, altura, etc, sem a necessidade de ter que rodar a aplicação para ver “como seria”.
Podemos ver, por exemplo, que os campos abaixo do nome (Name) estão exageradamente grandes. Podemos ver também que a tela (janela) está muito larga para os dados que estamos apresentando.
Usando o mouse, podemos selecionar um componente e, usando as guias de reajuste alterar as dimensões dele facilmente. Da mesma forma, podemos arrastá-lo para outras posições e etc.
Ajuste as dimensões dos componentes e da janela, de modo a que fiquem mais ou menos como mostrado na figura abaixo.

Observem na figura que surgiu um novo componente. É um DBNavigator. Para adicioná-lo, procure-o na paleta Data Controls. As configurações do DBNavigator são:
Experimentando a aplicação- DataSource: dsCountry
- Name: dbnCountry
Agora que já concluímos nossa aplicação(!!!), vamos rodar. Cliquem no botão Run (ou apertem F9) para ver o programa rodando. Fiquem à vontade para usar a DBNavigator e navegar pela tabela Country e até mesmo incluir alguma coisa. Vejam na figura abaixo que fiz um teste de inclusão e funcionou.

As coisas no mundo visual tendem a ser por demais intuitivas. Mas me sinto obrigado a informar-lhes que para incluir é só clicar no botão com o sinal de mais (+) e para excluir no sinal de menos (-). Á! Quando estiver incluindo (ou editando), para confirmar, clique no botão com o sinal de “Check” (parece um V) ou no botão com um X, para cancelar.
Como pudemos ver, criamos uma aplicação de banco de dados 100% funcional, sem digitar nenhuma linha de código! No próximo artigo vou explicar que “mágica” é esta e aproveitar para incrementar este pequeno aplicativo de exemplo. Até lá...
Como pudemos ver, criamos uma aplicação de banco de dados 100% funcional, sem digitar nenhuma linha de código! No próximo artigo vou explicar que “mágica” é esta e aproveitar para incrementar este pequeno aplicativo de exemplo. Até lá...

















