Neste capítulo iremos ver como recuperar informações através de um programa Delphi usando a instrução SELECT. Usaremos como exemplo o banco de dados “Rodoviaria” que tem sido nosso objeto de estudo até agora.

Antes de qualquer coisa, crie uma pasta chamada “Projeto Rodoviária” para salvar os arquivos que iremos criar. Em seguida abra o Delphi para começarmos!

Conforme sabemos, o Delphi ao ser iniciado já disponibiliza um novo projeto, selecione então o Form1 e altere a propriedade Caption para “Menu Rodoviária” e a propriedade Name para “Form_menu”.

Em seguida clique em Save All para salvarmos logo nosso projeto.

A primeira coisa que o Delphi vai pedir para salvar é a Unit do Form_menu, portanto salve o arquivo como o nome “Unit_menu”. Lembre-se de salvar os arquivos na pasta que criamos para este propósito.

Em seguida o Delphi pedirá que salve o arquivo do projeto, salve-o como nome “Rodoviaria”.

Após salvar os arquivos, insira 4 objetos BitBtn ao Form_menu. Estes botões serão utilizados para chamar as outras telas do programa e para fechar a aplicação.

Altere a propriedade Caption dos botões para “Empresas”, “Motoristas”, “Ônibus” e “Fechar” respectivamente. Altere também a propriedade Name para “btn_empresas”, “btn_mototristas”, “btn_onibus” e “btn_fechar” de cada botão correspondente. Se desejar formate a fonte utilizada e redimensione os botões e o Form_menu como quiser. Organize os botões conforme exibido abaixo:

Acesse o evento OnClick do botão btn_fechar e digite o comando “Application.Terminate;”. Esta instrução fará com que a aplicação seja encerrada quando alguém clicar no botão Fechar.

Vamos agora inserir um objeto ADOConnection ao Form_menu, este objeto fará a conexão com o banco de dados.

Selecione o objeto ADOConnection que inserimos no Form_menu e altere sua propriedade Name para “ConexaoBD” e a propriedade Login Prompt para “False”.

Em seguida, clique sobre o botão “...” da propriedade ConnectionString. A propriedade ConnectionString é que define o banco de dados que iremos acessar. Aqui definimos se vamos acessar um banco de dados Oracle, SQL Server ou Microsoft Access entre outros, além disso, especificamos o nome do servidor, o usuário e a senha que será utilizada para acessar o banco de dados. Na tela que surgiu após clicar sobre o botão “...”, clique sobre o botão Build...

A primeira opção que devemos configurar é o software de banco de dados que iremos acessar, em nosso caso, iremos acessar um servidor SQL Server, portanto selecione a opção Microsoft OLE DB Provider for SQL Server. Clique em Avançar para continuar com a configuração do objeto ConexaoDB.

Agora devemos informar o nome do servidor SQL Server que desejamos acessar. Você também pode informar o endereço IP do servidor caso não saiba ou não queira usar o nome do servidor.

A próxima opção é usuário e a senha utilizada para acessar o servidor. Digite um usuário e a senha desejada. Sugerimos que você utilize o mesmo usuário/senha que usou para se conectar no Query Analyzer. Marque a opção “Permitir salvamento de senha”. Iremos deixar esta opção marcada temporariamente enquanto estamos programando para que não seja necessário informar a senha toda hora.

A última opção a configurar é o banco de dados que iremos acessar. Como vimos anteriormente neste curso, um servidor SQL Server possui vários banco de dados e aqui podemos então selecionar qual deles iremos acessar. Selecione o banco de dados Rodoviaria.

Clique no botão Testar conexão para checar se está tudo Ok.

Vá clicando em OK até voltar ao Form_menu. Agora selecione o objeto ConexaoBD e altere a propriedade Connected mudando o valor de False para True. Isto faz com que o objeto estabeleça a conexão com o servidor de banco de dados.

Agora insira um novo Form ao projeto. Este novo Form será utilizado para o cadastro de Empresas.

Configure as propriedades Name e Caption do novo Form como “Form_empresas” e “Empresas” respectivamente. Em seguida clique novamente sobre o botão Save All para salvar as alterações realizadas e novo Form inserido.

Salve a unit do Form_empresas como “Unit_empresas”.

Insira um objeto BitBtn ao Form_empresas, altere a propriedade Name dele para “btn_fechar” e a propriedade Caption para “Fechar”. Acesse o evento OnClick e digite o comando “Close;”. Este comando irá fechar o form_empresas quando o usuário clicar sobre o botão Fechar.

A partir de agora até o final deste curso, toda vez que for solicitado a criação de um botão Fechar, repita os procedimentos que acabamos de executar. Assim não precisaremos ficar repetindo toda hora o que você já vai estar careca de saber!

OBS.: A instrução “Close;” não funciona como a instrução “Application.Terminate;”, embora tenham funções semelhantes, cada uma tem uma finalidade diferente. O comando “Close;” fecha apenas o Form em que ele foi executado enquanto o comando “Application.Terminate;” encerra toda a aplicação independentemente de qual form a instrução foi executada.

Vamos então recuperar as informações contidas no banco de dados. Como estamos programando o cadastro de Empresas, vamos recuperar os registros da tabela “Empresas” que está no banco de dados Rodoviária.

Insira um objeto ADOQuery ao form_empresas.

Altere a propriedade Name dele para “adoquery_empresas”. O objeto adoquery_empresas será utilizada para recuperar os registros da tabela Empresas. Como já sabemos, a instrução SQL para este caso é o comando SELECT. Acesse a propriedade SQL do adoquery_empresas e clique sobre o botão “...”. Será exibida uma janela onde devemos digitar a instrução SQL que será executada pelo adoquery_empresas. Digite então a seguinte instrução: “SELECT * FROM EMPRESAS ORDER BY NOME”.

Clique em OK para fechar a janela de edição da propriedade SQL do objeto.

Além da propriedade SQL do objeto, devemos definir a conexão que o objeto utilizará para executar a instrução SQL. A conexão a ser utilizada pelo adoquery_empresas e por todos os outros objetos que iremos criar, foi configurada através do objeto conexaoBD que está no form_menu. Sendo assim, devemos ligar o objeto adoquery_empresas ao objeto conexaoBD. Como o objeto ConexaoBD está no form_menu, devemos informar ao Delphi que o form_empresas terá acesso ao form_menu. Para isto, clique em File > Use Unit.

Na janela que surgirá, selecione a unit_menu e clique em OK.

Em seguida, salve as alterações clicando sobre o botão Save All.

Agora já podemos ligar o objeto adoquery_empresas (que está no form_empresas) ao objeto ConexaoBD (que está no form_menu). Para isto, selecione o adoquery_empresas e altere a propriedade Connection para ConexaoBD.

Para testar se configurou tudo corretamente e executar a instrução SQL, altere a propriedade Active do adoquery_empresas para True. Quando colocamos True na propriedade Active, o Delphi executa a instrução configurada na propriedade SQL do objeto. Entretanto, visualmente parece que nada aconteceu. Para exibir o resultado do SELECT executado pelo adoquery_empresas, vamos utilizar o componente DBGrid que tem a finalidade de exibir informações de banco de dados. Então insira um objeto DBGrid (que está na guia Data Controls da paleta de componentes) ao form_empresas.

O objeto DBGrid, assim como todos os objetos da guia Data Controls, não “fala” diretamente com os objetos ADO, portanto será necessário mais um objeto que fará o intercâmbio entre eles: o DataSource que está na guia Data Access.

Altere a propriedade Name do DBGrid para dbgrid_empresas e do DataSource para ds_empresas. Organize-os conforme a figura abaixo:

Vamos então interligar os componentes. Como dito anteriormente, os objetos Data Controls não falam diretamente com os objetos ADO, quem faz este trabalho é o Data Source. Então vamos ligar o ds_empresas ao adoquery_empresas e o dbgrid_empresas ao ds_empresas.

Selecione o objeto ds_empresas e altere a propriedade DataSet para adoquery_empresas.

Selecione o objeto dbgrid_empresas e altere a propriedade DataSource para ds_empresas.

Pronto, agora basta ativar o adoquery_empresas colocando True em sua propriedade Active e os registros serão exibidos no dbgrid_empresas.

Não é muito interessante deixar o adoquery ativo, é sempre muito melhor ativá-lo durante a execução do programa, pois assim ele sempre estará atualizado, portanto coloque False na propriedade Active do adoquery_empresas. Vamos fazer o seguinte: ativar o adoquery_empresas quando o form_empresas for exibido e desativá-lo quando o form_empresas for fechado.O evento executado na exibição de um Form é OnShow e o executado quando um form é fechado é OnClose.
Sendo assim, acesse o evento OnShow do form_empresas e digite: “adoquery_empresas.Open;”

O método Open do objeto adoquery é o equivalente a colocar True na propriedade Active.

Em seguida acesse o evento OnClose do form_empresas e digite: “adoquery_empresas.close;”

O método Close do objeto adoquery é o equivalente a colocar False na propriedade Active.

Devemos fazer a mesma coisa com o objeto ConexaoBD, estabelecer a conexão e encerrá-la dinamicamente na execução do programa. Para isto, primeiro vá até o form_menu e coloque False na propriedade Connected do objeto ConexaoBD. Em seguida, acesse o evento OnShow do form_menu e digite “ConexaoBD.Open;”

No evento OnClose do form_menu digite “ConexaoBD.Close;”

Antes de executar a aplicação para testarmos se está tudo funcionando, devemos programar o botão btn_empresas do form_menu para chamar o form_empresas. Para isto, digite o seguinte no evento OnClick do botão btn_empresas “form_empresas.showmodal;”

Agora salve todas as alterações clicando em Save All e execute a aplicação. Quando você clicar sobre o botão Run ou pressionar F9 para executar a aplicação o Delphi informará que o form_menu está fazendo menção ao form_empresas e lhe questiona se deseja que ele crie automaticamente esta referência no código. Clique em Yes e execute a aplicação.

Após testar a aplicação feche o projeto que está executando clicando sobre o botão fechar que colocamos no form_menu. Vamos agora fazer o mesmo para Motoristas e Ônibus. Repita os mesmos passos que fizemos para criar a tela de Empresas: Insira um novo Form, altere Name e Caption, salve com o nome apropriado... Releia as páginas anteriores para lembrar de todos os procedimentos.

O SELECT a ser usado para a tela de Motoristas será:

O SELECT para a tela de Ônibus será um pouco mais complicado, pois faremos JOIN com as outras tabelas para poder exibir o nome da empresa e do motorista:

Pronto! Você já pode executar a aplicação. Se você seguiu corretamente os passos descritos para a criação da tela de empresas, as telas de motoristas e ônibus deverão estar funcionando corretamente. Não se esqueça de programar os botões da tela de menu para chamar as novas telas criadas, do contrário eles não servirão para alguma coisa.