Olá amigos, nessa seqüência de artigos pretendo exemplificar a construção de um aplicativo para cadastro/pesquisa de clientes utilizando o banco de dados FireBird e os componentes nativos do Delphi: DBExpress e Data Access.
Primeiro vamos pensar na estrutura do banco de dados:
Tabela CLIENTE
SEQ - (integer)
(Será nossa chave primária e código auto-numeração)
TIPO - (Char2)
(Gravará se o cliente é Físico ou Jurídico “PF ou PJ”)
NOME - (Varchar 250)
TELEFONE - (Varchar15)
EMAIL - (Varchar150)
Ok, agora que definimos os campos da nossa tabela, vamos criar o banco de dados. Para isso eu utilizarei o software IBExpert. Existem outros softwares, alguns gratuitos para manipulação de banco de dados Firebird.
Com o IBExpert aberto, vamos acessar o menu DataBase > Creat Database (conforme imagem abaixo).

Figura 1 - Criando um banco de dados novo no IBExpert
Na próxima tela será necessário escolher o local onde o banco de dados será criado, no meu caso, escolhi o endereço c:\ExemploArtigo\BancoDados.fdb

Figura 2 - Parametrizando a criação do banco
Por padrão, o username é SYSDBA e a senha masterkey (Caso você tenha alterado essas configurações, informe as corretas). Clique em OK para Criar o banco de dados.
Agora vamos registrar o banco de dados (Conforme imagem abaixo)

Figura 3 - Registrando o banco de dados criado.
Selecione a versão do Firebird ( eu estou utilizando a versão 2.0 nesse exemplo), clique em ok e pronto! O banco de dados foi criado e registrado no IBExpert.
Na barra lateral esquerda clique duas vezes para conectar ao banco de dados, conforme a figura 4:

Figura 4 - Conectando no banco registrado
Agora o banco de dados está pronto para criarmos nossa primeira tabela. Sobre o item Tables, clique com o botão direito do mouse e após, clique em New Table:

Figura 5- Criando uma nova tabela
Defina o nome da tabela, que vamos chamar de “CLIENTES”

Figura 6 - Definindo o nome da tabela
Agora onde está escrito New_FIELD, vamos iniciar o lançamento dos nossos campos. A vantagem de utilizar o IBExpert é que ele é visual você poderá utilizar o mouse para alimentar os parâmetros (tipos de dados, etc).

Figura 7 - Definindo os campos e clicando no botão para executar.
Lembre se de marcar o campo SEQ como Not Null ( Ele será nossa chave primária ).
Clique em Compile ou tecle CTRL +F9
Agora clique em Commit, Perceba que o IBExpert já montou o código SQL para nós.

Figura 8 - Visualizando o comando gerado pelo IBExpert e confirmando-o para execução (commit).
Pronto a tabela foi criada!
Ainda editando a tabela, mude para a aba Constraints, na Sub-aba 1.Primary key clique com o botão direito do mouse selecione a opção New primary key (ou pressione a tecla Insert). Na opção On Field, clique duas vezes para enviar o campo SEQ para o lado direito (conforme figura 9). Tecle CTRL +F9 para compilar e pronto, a chave primária está criada.

Figura 9 - Criando a chave primária
Agora vamos fazer o Firebird trabalhar para nós! Vamos Criar um Autoincrement para não nos preocuparmos com o código de auto-numeração no campo SEQ.
De um duplo clique sobre o campo SEQ e selecione a aba AUTOINCREMENT (vide figura 10).

Figura 10 - Criando o campo auto-incremento.
Marque a opção Create Generator, mude para a aba Trigger e marque a opção Create Trigger. Clique em OK e depois em Commit.
Pronto! Nosso banco de dados está criado e nossa tabela possui o recurso de auto-numeração para chave primária! No Próximo artigo faremos a conexão com o banco de dados no Delphi e iniciaremos a construção da interface do software.
Caso deseje fazer o download do banco de dados clique aqui.
Um grade abraço e até o próximo artigo!
Por:
Bruno Giovani Caltran (ggiovanii)
Contato: bruno@pirabyte.com.br
Twitter: http://twitter.com/bgcaltran
Blog: http://bgcaltran.blogspot.com
|