Parte 1 – Aplicação 3 Camadas com DataSnap XE e Firebird do início ao fim (Criando uma Base de Dados Firebird)

Introdução

Aqui apresento o primeiro de uma série de artigos para iniciantes que desejam criar suas aplicações em

Delphi, utilizando banco de dados Firebird e a mais atual tecnologia de acesso a dados desenvolvidas pela

Embarcadero.

A Aplicação

A Aplicação que iremos desenvolver, será para o controle de estacionamentos, onde controlaremos:

• Entradas e saídas de veículos.

• Controle de Caixa por turno, operador e caixas.

• Relatórios de rotatividade de veículos, agrupados por dias da semana e horários.

• Imprimir etiqueta em miniimpressora da entrada do veículo.

• Identificar a etiqueta com o código de barra na saída, autorizando a saída do veículos ou não.

Conteúdo técnico a ser abordado

• Criação e gerenciamento de base de dados FireBird.

• Criação de aplicação através da arquitetura 3 camadas.

• Utilização do DBExpress XE com DataSnap para acesso a dados, dentro da arquitetura 3 camadas.

• Herança Visual e reaproveitamento de código.

• Tirar o máximo proveito dos componentes ClientDataSet e DataSetProvider.

• Gerar relatórios com o FastReport.

• Impressão de etiquetas com o código de barra.

• Orientação a Objetos.

• Distribuição da aplicação com o InnoSetup (Geração do instalador).

• Automatizar o proceso de Build.

• Gerar o manual do sistema.

Nesse artigo, mostro como criar uma base de dados utilizando o excelente SGDB Firebird, que é free e

Open Source. você pode baixar a última versão direto do site do Firebird.

Após a instalação, estamos aptos a criar uma base de dados, para isso, utilizaremos o IbExpert, que pode

ser baixado através desse link a versão gratúita.

Após baixar e instalar, entre no programa e siga os passos.

Criando a base de dados

1. Clique no menu principal Database, Create Database.

2. Server -> Remote

3. Server name -> localhost

4. Protocol -> TCP/IP

5. Database -> Caminho que você deseja criar a base de dados Ex.: C:\BD.FDB

6. Client Library File -> fbclient.dll

7. Username -> sysdba

8. Password -> masterkey

9. SQL Dialect -> Dialect 3

10. Page Size -> 16384

11. Charset -> WIN1252

12. Register Database after Creating

A tela ficará semelhante a essa abaixo

Após clicar em OK, o IBExpert criará sua base de dados.

Registrando a base de dados

Após criar, preencha os seguintes campos para registrar a nossa base de dados (Necessário para podermos

criar, deletar e ataulizar as estruturas das tabelas bem como seus conteúdos)

Server -> Remote

Server Name – > localhost

Protocol -> TCP/IP

Server Version -> 2.1 ou superior

Database File -> Camihno onde você salvou a base de dados

DataBase Alias -> Nome pelo qual deseja identificar sua base de dados

Username -> sysdba

password -> masterkey

Chartset -> WIN1252

ClientLibrary File -> fbclient.dll

Pronto, só clicar em register.

Criando a primeira tabela (PESSOA)

1. Para criar a primeira tabela, clique sobre o o Alias que registramos e no Node Tables, clique com

o botão direito e em New table.

2. Defina o nome da tabela para PESSOA e acrescente os seguintes campos.

PESS_ID : INTEGER

PESS_NOME : VARCHAR(50)

Register Database after Creating -> Deixar marcado

A tela ficará semelhante a essa abaixo

xpert criará sua base de dados.

Após criar, preencha os seguintes campos para registrar a nossa base de dados (Necessário para podermos

criar, deletar e ataulizar as estruturas das tabelas bem como seus conteúdos)

> Camihno onde você salvou a base de dados

> Nome pelo qual deseja identificar sua base de dados

Criando a primeira tabela (PESSOA)

Para criar a primeira tabela, clique sobre o o Alias que registramos e no Node Tables, clique com

o botão direito e em New table.

a o nome da tabela para PESSOA e acrescente os seguintes campos.

Após criar, preencha os seguintes campos para registrar a nossa base de dados (Necessário para podermos

Para criar a primeira tabela, clique sobre o o Alias que registramos e no Node Tables, clique com

a o nome da tabela para PESSOA e acrescente os seguintes campos.

PESS_END_CEP : VARCHAR(10)

PESS_END_LOGRADOURO : VARCHAR(50)

PESS_END_BAIRRO : VARCHAR(50)

PESS_END_CIDADE : VARCHAR(50)

PESS_END_UF : VARCHAR(2)

PESS_END_NUMERO : VARCHAR(10);

Atenção : Para todo campo VARCHAR, SEMPPRE na coluna Charset = WIN1252 e Collate =

PXW_INTL850.

Nesse artigo mostramos como criar a base de dados em firebird, conectá-la e criar uma tabela, usando o

IBExpert, bem como mostrar o escopo do nosso pequeno projeto didático.

Até a próxima em breve.