Banco de Dados Firebird: IF-THEN-ELSE, BEGIN-END e Comentários

Qualquer desenvolvedor e/ou usu�rio de bando de dados, mesmo os que tem pouca experi�ncia com os mesmos, sabe que o SQL � sua linguagem b�sica e fundamental e que o mesmo � regido por comandos e por algumas estruturas b�sicas de l�gica de programa��o, tais quais as que vemos em linguagens famosas, como o Java ou o Delphi. Trabalhar com bancos de dados � uma tarefa relativamente simples, mas exige algumas capacidades como memoriza��o (dos comandos, das estruturas, etc), associa��o (para entender como funcionam relacionamentos, formas normais, etc) e racioc�nio l�gico (para criar estruturas l�gicas flex�veis e adapt�veis aos diferentes modelos de neg�cio). E nesta �ltima capacidade que iremos trabalhar nesse artigo.

Trataremos de entender aqui n�o somente como o banco de dados lida com certas estruturas de decis�o, de itera��o, etc., mas tamb�m analisar como funcionam os agrupamentos, a cria��o e manuten��o de blocos de c�digo em instru��es, loops, etc. tudo encapsulado nas famosas estruturas de Stored Procedures e Triggers. E para essa experi�ncia estaremos usando o banco de dados Firebird, por raz�es de maturidade e documenta��o da tecnologia (vide se��o Links para encontrar a documenta��o oficial do Firebird).

A linguagem das Stored Procedures e Triggers, por sua vez, � uma linguagem criada para �ser executada em um banco de dados�, literalmente. Por esta raz�o, a sua atua��o � limitada �s opera��es de base de dados e �s fun��es necess�rias; j� a PSQL �, em si, contudo, uma linguagem poderosa, e oferece mais funcionalidades do que voc� pode usar. Voc� pode encontrar uma gama completa de palavras-chave e fun��es dispon�veis para uso em procedures e triggers na se��o Links, e para n�o estender demais o artigo, vamos nos ater �s fun��es e recursos mais b�sicos como forma de introdu��o.

Stored Procedures

O Firebird utiliza as stored procedures (ou procedimentos) como ambiente de programa��o para a integra��o de processos ativos no banco de dados.

Existem dois tipos de stored procedures: execut�vel e selecion�vel. Uma �procedure execut�vel� retorna n�o mais do que um conjunto de vari�veis. J� uma �procedure de sele��o� pode, usando a palavra-chave SUSPEND, recuperar vari�veis, um conjunto de dados por vez. Se uma instru��o EXECUTE PROCEDURE cont�m um SUSPEND, ent�o ele ter� o mesmo efeito que a instru��o EXIT, por exemplo, encerrando a execu��o. Este uso � permitido pelo Banco, mas n�o � recomend�vel.

A sintaxe para declarar os dois tipos de procedures � a mesma, mas existem duas maneiras de cham�-la:

Uma procedure pode agir como um procedimento funcional em outra linguagem, da mesma forma que voc� pode execut�-la e ela lhe dar uma resposta ou n�o. Veja o c�digo a seguir para tal (considere que limpar_clientes � o nome da nossa procedure e ela j� est� criada):
```
execute procedure limpar_clientes
```
A outra maneira mais b�sica de fazer isso � criar uma procedure como se voc� estivesse fazendo uma consulta b�sica a uma tabela:
```
select * from limpar_clientes
```

Dessa forma, voc� pode recuperar os dados retornados como uma subtabela em forma de resposta.

Para exemplificar melhor, imaginemos um cen�rio onde temos quatro entidades distintas no banco de dados, descritas conforme a Figura 1. Nela, podemos observar as seguintes tabelas:

Cliente: Que guardar� as informa��es dos clientes cadastrados no sistema;
Venda: Ter� rela��o direta com os clientes e salvar� todas as informa��es relacionadas a todas as vendas de cada um;
Item: Constitui cada um dos itens de venda e tem um relacionamento muitos-para-muitos com a tabela de Venda. A tabela Detalhe_Venda, por sua vez, faz o trabalho de interligar ambas.

Modelo Entidade-Relacionamento
para exemplo de teste

Figura 1. Modelo Entidade-Relacionamento para exemplo de teste.

Suponha tamb�m que queremos trazer uma listagem de todas as compras feitas por um cliente x dentro de um dado per�odo de tempo. Nesse caso, em vez de fazer todo o processamento via linguagem de programa��o, podemos usar um stored procedure para simplificar as coisas. Veja na Listagem 1 como ficaria essa procedure encaixada nesse cen�rio espec�fico.

Listagem 1. Stored Procedure para listagem de vendas/clientes em certo per�odo.


  CREATE OR ALTER PROCEDURE CLIENTE_PRODUTO_VENDAS (
      data_inicio DATE,
      data_fim DATE)
  RETURNS (
      cliente d_nome,
      item d_nome,
      qtde d_qtde)
  AS
  DECLARE VARIABLE cliente_id d_id;
  DECLARE VARIABLE item_id d_id;
  BEGIN
    /* Texto da Procedure */
    FOR SELECT id, nome
    FROM cliente
    ORDER BY nome
    INTO :cliente_id, :cliente
    DO
      BEGIN
      FOR SELECT id, nome
      FROM item
      ORDER BY nome
      INTO :item_id, :item
      DO
        BEGIN
        SELECT COALESCE(SUM(dv.qtde), 0)
        FROM detalhe_venda dv LEFT JOIN venda v ON dv.venda_id = v.id
        WHERE v.status <> 'CANCELAR' AND v.cliente_id = :cliente_id AND dv.item_id = :item_id AND v.data_venda BETWEEN :data_inicio AND :data_fim
        INTO :qtde;
        SUSPEND;
        END
      END
  END

Obter um mesmo resultado a partir de simples consultas SELECT seria muito mais trabalhoso nesse tipo de situa��o. Logo na primeira linha observamos a sintaxe muito semelhante � de outros BDs no que se refere � cria��o/altera��o de qualquer tipo de estrutura DDL. A palavra reservada RETURNS serve para definir o que ser� retornado dentro da procedure, bem como os nomes e alias de cada coluna do resultado final. J� DECLARE VARIABLE se encarrega de inicializar duas vari�veis que ser�o usadas durante a execu��o do procedimento.

Veja que, ap�s a cria��o desse c�digo inicial, n�s j� temos o uso do convencional BEGIN-END, muito semelhante � que usamos em linguagens estruturadas, como o Pascal, e serve para delimitar o in�cio e fim de cada bloco de instru��o. Ap�s essa estrutura, n�s sempre devemos informar qual a consulta (SELECT SQL) que retornar� os dados a serem processados. A partir da�, fazemos uma consulta comum, sem nenhuma novidade, exceto pela cl�usula INTO que enxerta os valores da consulta exatamente dentro das vari�veis que criamos.

Como o nosso exemplo envolve relacionamentos mais complexos, perceba que mais de um BEGIN-END precisou ser criado, por�m a l�gica de associa��o � a mesma do anterior. A fun��o COALESCE() usada na segunda estrutura, serve para verificar qual do primeiro dos par�metros passados � n�o-nulo. Ela � muito usada para quando n�o queremos nunca que uma listagem retorne um valor null em seus resultados. Finalmente, temos os JOINS finais referentes aos relacionamentos entre as entidades que ser�o abstra�dos aqui por n�o serem o foco do artigo.

Caso voc� tenha populado a base com valores de teste, a execu��o dessa procedure resultaria em algo como:


  CLIENTE    ITEM        QTDE 
  ABC        ITEM 111    0   
  ABC       ITEM 222    10  
  DEF        ITEM 555    3

Triggers

As triggers (ou gatilhos, em ingl�s) s�o estruturas de c�digo estrutural que s�o automaticamente executadas em resposta a certos eventos sobre uma tabela ou view particular no banco de dados. Ela � usada, na grande maioria das vezes, para manter a integridade das informa��es no banco. Por exemplo, quando um novo registro � adicionado a uma tabela de clientes, n�s podemos definir uma trigger que automaticamente tamb�m registre certas a��es em tabelas relacionadas, como sal�rios, RH, ou batimento de ponto, etc.

Essas estruturas nunca podem ser chamadas diretamente, mas somente atrav�s de comandos DML, como INSERT, UPDATE ou DELETE. Dentre as vantagens que elas trazem ao seu projeto, podemos citar:

Execu��o autom�tica de condi��es e limita��es para conte�do;
Redu��o de manuten��o nas aplica��es;
Voc� pode implementar um mecanismo de log de rastreio de modifica��es para suas tabelas;
Generators (geradores) podem ser chamados automaticamente e seus valores associados aos campos;
Convers�o autom�tica da caixa alta dos campos para habilitar buscas case-insensitive (que n�o distinguem mai�sculas de min�sculas).

Para exemplificar, suponhamos que sempre que um dos nossos clientes do modelo representado na Figura 1 sofrer qualquer altera��o (UPDATE) em seus registros de sal�rio, n�s salvemos tamb�m automaticamente essa altera��o em uma tabela Historico_Salario para consultas futuras. Para isso, precisar�amos criar a referida tabela com alguns campos b�sicos como data, id_cliente, salario_antigo, salario_novo, etc. Veja na Listagem 2 um exemplo de como ficaria a nossa trigger de hist�rico de atualiza��es nos sal�rios dos clientes.

Listagem 2. Trigger exemplo de registro de altera��es nos sal�rios.

CREATE TRIGGER SALARIO_HISTORICO_ALTERACAO FOR CLIENTE
     AFTER UPDATE
  AS
  BEGIN
     IF (OLD.SALARIO <> NEW.SALARIO) THEN
        INSERT INTO HISTORICO_SALARIO
           (CLIENTE_ID, DATA_ALT, SALARIO_ANTIGO, SALARIO_NOVO)
           VALUES (
              OLD.CLIENTE_ID, 'now', OLD.SALARIO, NEW.SALARIO
           );
  END;

As cria��es das tabelas e inser��es de massa teste ser�o pulados por n�o fazerem parte do escopo do artigo. Perceba que a estrutura da trigger � razoavelmente mais simples do que as stored procedures. Nela, podemos ver a sintaxe de cria��o que tamb�m pode levar o UPDATE, e logo ap�s a palavra reservada AFTER para dizer quando esse gatilho ser� executado (ap�s qualquer UPDATE na tabela Cliente, no nosso caso).

Depois disso, o resto � puramente l�gica de programa��o. Testamos se o sal�rio antigo � diferente do novo e, em caso positivo, inserimos o registro no banco com os dados do pr�prio UPDATE original. Perceba que nesse tipo de estrutura, n�s tamb�m fazemos isso do definidor de in�cio-fim dos blocos: BEGIN-END. Os comandos OLD e NEW, precedidos do nome da coluna, servem para referenciar o dado sendo atualizado no momento e est� dispon�vel para que voc� possa us�-lo.

Os if-else encadeados tamb�m funcionam normalmente nesse tipo de modelo. Basta que ao final do IF voc� inicie a pr�xima senten�a com uma cl�usula ELSE IF precedida da pr�xima condi��o.

Coment�rios

Os coment�rios, assim como nas queries SQL b�sicas, tamb�m s�o permitidos nas procedures e triggers, cuja sintaxe depende de cada banco usado. Em se tratando do Firebird, os coment�rios podem ser apresentados de duas formas:

Atrav�s do uso dos operadores /* ... */ para coment�rios de mais de uma linha, como mostra o c�digo a seguir:
```
/*Apresentando a Procedure principal
              que ira auto incrementar*/  
```
Ou atrav�s do uso de dois tra�os (--) para coment�rios de uma linha s�.

Declara��es Condicionais

IF...THEN...ELSE

Assim como nas linguagens de programa��o, as estruturas condicionais IF...THEN...ELSE servem para estabelecer condi��es no fluxo de execu��o do c�digo. Se a express�o de teste de uma instru��o IF for NULL, a cl�usula, ent�o, � ignorada e a cl�usula ELSE, se houver, � executada. Em outras palavras, NULL e falso tem o mesmo efeito no presente contexto.

Por essa raz�o, podemos ter desde a simples execu��o de um teste condicional com operadores de �maior que� ou �menor ou igual que�, at� estruturas de compara��o entre vari�veis criadas pela procedure ou trigger em quest�o. Vejamos o c�digo da Listagem 3 para um exemplo disso.

Listagem 3. Exemplo de condi��es no Firebird

if (a > 18) then
         resultado = �Maior de idade�;
    else
         resultado = �Menor de idade�;
     
    -- ou...
     
    if (varA = varB) then
      minhaVar = 'Iguais';
    else
      minhaVar = 'N�o iguais';

Se uma das duas vari�veis varA ou varB forem nulas, ent�o o valor da vari�vel minhaVar continuar� sendo �N�o iguais�, o que comprova nossa afirmativa anterior. Voc� pode encontrar uma lista completa dos operadores e mais exemplos condicionais no site oficial do Firebird.

IF com AND/OR

� muito comum nesse tipo de estrutura lidarmos com situa��es onde � preciso fazer mais de uma verifica��o ao mesmo tempo. Al�m dos ifs encadeados que vimos (em conjunto com as cl�usulas else) tamb�m � poss�vel utilizar as estruturas de and/or encadeadas em uma mesma condi��o.

Considerando o exemplo ilustrado na Listagem 2, se quis�ssemos, por exemplo, validar se o sal�rio � maior que um sal�rio m�nimo e menor que o teto da profiss�o do emprego, ter�amos uma condi��o IF mais ou menos assim:

IF (OLD.SALARIO <> NEW.SALARIO AND (OLD.SALARIO < 870 OR OLD.SALARIO < OLD.TETO_SALARIAL)) THEN

Perceba que fazemos uso simples de operadores j� conhecidos pelo SQL em cl�usulas WHERE, por�m aplicados ao escopo de triggers e procedures. Lembre-se: essas estruturas trabalham tal como as linguagens de programa��o estruturadas.

Al�m disso, temos diversas outras varia��es que podem ser utilizadas com o bloco IF-THEN-ELSE. Veja algumas delas:

Valor LIKE valor: O valor � direita pode incluir um ou mais curingas. Use % para zero ou mais caracteres e _ para um caractere;
Valor IN (valor1, valor2, valor3, &): Membro de uma lista de valores;
Valor EXISTS (subquery): Verdadeiro se o valor combinar com um dos valores retornados pela subquery;
Valor ANY (subquery): Verdadeiro se o valor combinar com qualquer das linhas retornadas pela subquery;
Valor ALL (subquery): Verdadeiro se o valor combinar com todas as linhas retornadas pela subquery;
Valor IS NULL: Verdadeiro se o valor for nulo;
Valor IS NOT NULL: Verdadeiro se o valor n�o for nulo;
Valor CONTAINING valor: Busca de substring sem diferenciar mai�sculas e min�sculas;
Valor STARTING WITH valor: Verdadeiro se o valor a esquerda iniciar com o valor a direita. Diferencia mai�sculas e min�sculas.

CASE

O Firebird introduziu a constru��o CASE na vers�o 1.5, com duas variantes sint�ticas. O primeiro � chamado de �CASE Simples� (Simple Case) e age diretamente nos dados finais de cada coluna da consulta. Nesse tipo de situa��o, s� podemos ter sempre um resultado v�lido, podendo fazer uso tamb�m da cl�usula ELSE para incutir um retorno padr�o quando nenhum for v�lido. Suponha que, ainda no exemplo dos clientes, queiramos listar os mesmos identificando qual o seu sexo (coluna essa que teria de ser adicionada � tabela) e definindo um valor padr�o para o caso deste dada n�o estar preenchido na base. Veja na Listagem 4 o c�digo para isso.

Listagem 4. C�digo de exemplo do uso do CASE Simples.


  SELECT nome,
         saldo,
         endereco,
         CASE upper(sexo)
           WHEN 'M' then 'Masculio'
           WHEN 'F' then 'Feminino'
           ELSE 'N�o informado'
  FROM Cliente

Perceba que a estrutura da consulta � b�sica, por�m logo nas primeiras linhas j� identificamos o uso do operador CASE. Veja como ele se equipara ao operador switch-case das linguagens OO atuais. Cada condi��o � definida atrav�s do operador WHEN e a condi��o padr�o � representada pela cl�usula ELSE.

A segunda variante, tamb�m conhecida como �CASE de pesquisa� (Searched CASE) trabalha com o mesmo conceito da primeira, por�m se atendo a testar condi��es, em vez de valores fechados. Nesse tipo de estrutura, n�s criamos cada condi��o com uma subcondi��o que ir� retornar verdadeiro ou falso, e de acordo com esse dado, retornamos o valor de cada um. Veja na Listagem 5 um exemplo de aplica��o disso, onde temos uma consulta que retorna os clientes com base na sua renda.

Listagem 5. Exemplo de uso do CASE de pesquisa.


  SELECT CASE
     WHEN (salario < 850) THEN 'Baixa Renda' 
     WHEN (salario >= 850 AND salario < 3000) THEN 'Classe M�dia Baixa' 
     WHEN (salario >= 3000 AND salario < 8000) THEN 'Classe M�dia Alta' 
     WHEN (salario >= 8000) THEN 'Rico' 
    END AS renda, count (*) as TOTAL_CLIENTES
  from Cliente;

No mesmo exemplo � poss�vel ver a facilidade no uso de tais condi��es, que podem se estender a cl�usulas como IN, LIKE, operadores relacionais, etc.

Estruturas de Repeti��o

WHILE

A estrutura tamb�m se equipara �s das linguagens de programa��o e funciona basicamente recebendo a condi��o e executando o bloco de c�digo caso a mesma seja verdadeira. Ao avaliar a condi��o de um loop while, o NULL tem o mesmo efeito que em uma instru��o IF: se a condi��o resolve para NULL, ent�o a execu��o n�o entra novamente no la�o � da mesma forma como se fosse falsa.

Veja na Listagem 6 como seria o c�digo da nossa trigger caso desej�ssemos fazer uma verifica��o um determinado n�mero de vezes.

Listagem 6. Exemplo de uso do WHILE em triggers.

CREATE TRIGGER SALARIO_HISTORICO_ALTERACAO FOR CLIENTE
     AFTER UPDATE
  AS
  DECLARE VARIABLE cont INTEGER;
  BEGIN
     WHILE (cont < 10) DO
     BEGIN
        INSERT INTO HISTORICO_SALARIO
           (CLIENTE_ID, DATA_ALT, SALARIO_ANTIGO, SALARIO_NOVO)
           VALUES (
              OLD.CLIENTE_ID, 'now', OLD.SALARIO, NEW.SALARIO
           );
     END;
  END;

A sintaxe basicamente se restringe ao uso de WHILE-DO nessa ordem com a condi��o no meio. Observe tamb�m o uso que fazemos dos operadores BEGIN-END para essa estrutura. O resultado seria o salvamento da mesma informa��o dez vezes na tabela de hist�rico.

FOR

Para evitar qualquer confus�o poss�vel, vamos enfatizar aqui que loops FOR no Firebird PSQL tem uma fun��o totalmente diferente dos loops WHILE, ou loops em linguagens de programa��o em geral. Os loops FOR do Firebird t�m a seguinte forma sint�xica:

for <declara�ao-do-select> into <lista-var> do <bloqueio-codigo>

Eles v�o continuar a execu��o do bloco de c�digo at� que todas as linhas do conjunto de resultados forem recuperadas, a menos que ocorra uma exce��o ou uma pausa, termine ou a instru��o EXIT seja encontrada. O fato de encontrarmos um NULL durante a execu��o, ou at� mesmo das filas serem preenchidas com valores nulos, n�o ir� encerrar o ciclo.

Vejamos na Listagem 7 um exemplo real dessa estrutura no mesmo modelo de clientes que criamos antes. Nesse exemplo, n�s iteramos sobre todos os dados da tabela de Cliente e verificamos se algum dos sal�rios � maior que um valor muito alto, caso positivo, deletamos o registro da base.

Listagem 7. Exemplo de uso do for no Firebird.

BEGIN
    FOR SELECT salario FROM Cliente INTO :salario AS CURSOR tcur DO
    BEGIN
      IF (salario > 200000000)
        THEN DELETE FROM Cliente WHERE CURRENT OF tcur;
      ELSE SUSPEND;
    END
  END

Perceba que a dele��o � feita, sobretudo, com base na cl�usula CURRENT que nos traz exatamente a linha corrente do cursor.

Contudo, existem muitas outras funcionalidades, recursos e comandos para se trabalhar com Stored Procedures e Triggers no Firebird, e n�o se limitam apenas a um �nico artigo. Veja na se��o Links alguns cursos bem completos sobre o assunto que podem te auxiliar a maximizar seus conhecimentos no assunto.

Bons estudos!

Links

Documenta��o oficial do Firebird
http://www.firebirdsql.org/?op=doc

Curso: Dominando o Firebird e InterBase
//www.devmedia.com.br/curso/administrando-firebird-e-interbase/16

Curso: Dominando o Firebird
//www.devmedia.com.br/curso/dominando-firebird/251

Confira outros conte�dos:

SQL SUM: somando os valores de uma...

SQL: INNER JOIN

SQL: Introdu��o ao Where

Assista grátis a nossa aula inaugural

Perguntas frequentes

Quem somos?

Por que a programação se tornou a profissão mais promissora da atualidade?

Como faço para começar a estudar?

Em quanto tempo de estudo vou me tornar um programador?

Sim, você pode se tornar um programador e não precisa ter diploma de curso superior!

O que eu irei aprender estudando pela DevMedia?

Principais diferenciais da DevMedia

Qual o investimento financeiro que preciso fazer para me tornar um programador?

Como funciona a forma de pagamento da DevMedia?

Por Diogo Em 2010

Nossos casos de sucesso

Leonardo Carlos

Eu sabia pouqu�ssimas coisas de programa��o antes de come�ar a estudar com voc�s, fui me especializando em v�rias �reas e ferramentas que tinham na plataforma, e com essa bagagem consegui um est�gio logo no in�cio do meu primeiro per�odo na faculdade.

Lucas Rodrigues

Estudo aqui na Dev desde o meio do ano passado! Nesse per�odo a Dev me ajudou a crescer muito aqui no trampo.
Fui o primeiro desenvolvedor contratado pela minha empresa. Hoje eu lidero um time de desenvolvimento!
Minha meta � continuar estudando e praticando para ser um Full-Stack Dev!

Her�clito J�nior

Economizei 3 meses para assinar a plataforma e sendo sincero valeu muito a pena, pois a plataforma � bem intuitiva e muuuuito did�tica a metodologia de ensino. Sinto que estou EVOLUINDO a cada dia. Muito obrigado!

Julio Cablen

Nossa! Plataforma maravilhosa. To amando o curso de desenvolvimento front-end, tinha coisas que eu ainda n�o tinha visto. A did�tica � do jeito que qualquer pessoa consegue aprender. S�rio, to apaixonado, adorando demais.

Joelberth Sena

Adquiri o curso de voc�s e logo percebi que s�o os melhores do Brasil. � um passo a passo incr�vel. S� n�o aprende quem n�o quer. Foi o melhor investimento da minha vida!

Felipe Nunes

Foi um dos melhores investimentos que j� fiz na vida e tenho aprendido bastante com a plataforma. Voc�s est�o fazendo parte da minha jornada nesse mundo da programa��o, irei assinar meu contrato como programador gra�as a plataforma.

Wanderson Oliveira

Comprei a assinatura tem uma semana, aprendi mais do que 4 meses estudando outros cursos. Exerc�cios pr�ticos que n�o tem como n�o aprender, est�o de parab�ns!

Jos� Lucas

Obrigado DevMedia, nunca presenciei uma plataforma de ensino t�o presente na vida acad�mica de seus alunos, parab�ns!

Eduardo Dorneles

Aprendi React na plataforma da DevMedia h� cerca de 1 ano e meio... Hoje estou h� 1 ano empregado trabalhando 100% com React!

Adauto Junior

J� fiz alguns cursos na �rea e nenhum � t�o bom quanto o de voc�s. Estou aprendendo muito, muito obrigado por existirem. Est�o de parab�ns... Espero um dia conseguir um emprego na �rea.

Ver todos os casos de sucesso

Banco de Dados Firebird: IF-THEN-ELSE, BEGIN-END e Coment�rios

Aprenda nesse artigo como o banco de dados lida com certas estruturas de decis�o, de itera��o e veja tamb�m como analisar o funcionamento dos agrupamentos, a cria��o e manuten��o de blocos de c�digo em instru��es, loops, etc.