Criando aplicativo base –Tutorial de criação de aplicação com o modulos Bpl com o Delphi – Parte 1

Olá pessoal!

Recentemente fui questionado sobre o funcionamento da modularização de aplicações desenvolvidas em Delphi, através de Bpl’s e confesso que ainda não havia trabalhado com este recurso. Após realizar uma pesquisa sobre o funcionamento, descobri que é realmente um excelente recurso. Principalmente para grandes aplicações, onde poderá ser reduzido significativamente o tamanho do executável, ou para aplicações onde o executável não pode ser alterado.

De qualquer forma, não me prenderei em grandes explicações sobre as vantagens de desvantagens, pois já podemos encontra ma internet, diversos artigos falando sobre o assunto.

O grande ponto deste tutorial será a demonstração da modularização de uma aplicação pronta, usando de recursos simples e práticos.

Então vamos lá:

Primeiramente vamos criar uma pequena aplicação de cadastro de clientes, que será usada como exemplo. Para isso criemos um pequeno banco de dados utilizando o firebird. Segue o script:

 

CREATE GENERATOR GEN_CLIENTE_ID;
SET GENERATOR GEN_CLIENTE_ID TO 3;

CREATE PROCEDURE SP_GEN_CLIENTE_ID
RETURNS (
    ID INTEGER)
AS
BEGIN
  SUSPEND;
END

CREATE TABLE CLIENTE (
    ID           INTEGER NOT NULL,
    NOME         VARCHAR(40),
    ENDERECO     VARCHAR(40),
    NUMERO       VARCHAR(10),
    COMPLEMENTO  VARCHAR(10),
    BAIRRO       VARCHAR(20),
    CIDADE       VARCHAR(20),
    UF           CHAR(2),
    CEP          VARCHAR(10),
    TELEFONE     VARCHAR(20),
    EMAIL        VARCHAR(100)
); 

ALTER TABLE CLIENTE ADD CONSTRAINT PK_CLIENTE PRIMARY KEY (ID); 

CREATE TRIGGER CLIENTE_BI FOR CLIENTE
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.id is null) then
    new.id = gen_id(gen_cliente_id,1);
end

ALTER PROCEDURE SP_GEN_CLIENTE_ID

RETURNS (
    ID INTEGER)
AS
begin
  id = gen_id(gen_cliente_id, 1);
  suspend;
end