Interbase-BR

Eventos é um recurso que o Banco de Dados InterBase disponibiliza aos usuários. Eventos como a própria palavra cita, são notificações que o Banco de Dados InterBase manda para a sua aplicação. A aplicação por sua vez resgatou o Evento enviado pelo InterBase e vai disparar e ou executar alguma rotina na aplicação. Podendo inclusive interagir com o InterBase através de uma execução de Stored Procedure! Interessante Não?!

Eventos só podem ser disparados por Stored Procedure (vulgo SP) e ou Trigger (vulgo Gatilho). Vou explicar de uma forma mais genérica o que são SP´s e Trigger´s.

São "programas" em linguagem SQL que são compilados e armazenados no Banco de Dados InterBase. Um dos principais objetivos da SP é a performance, pois, a mesma é executada no servidor e retorna apenas os parâmetros e ou linha do ResultSet para a aplicação. Existem dois tipos de SP:

Stored Procedure Seletável "SELECT * FROM NOME_SP". Tem a função de retornar linhas de Dados para a aplicação.

Stored Procedure Executável "EXECUTE PROCEDURE NOME_SP". Tem a função de retornar parâmetros de alguma operação feita no Servidor.

São "programas" associados a reações de atualização da Tabela e ou View em questão. Uma Trigger não pode ser disparada pela sua aplicação como é feito com a SP, trigger só é disparada pelas ações de INSERT/UPDATE/DELETE. No InterBase existem dois tipos de Trigger:

Isto é, é disparado um gatilho antes do INSERT/UPDATE/DELETE e ou é disparado um gatilho após o INSERT/UPDATE/DELETE.

Para maiores detalhes da sintaxe da criação de SP´s e ou Trigger, consulte os manuais do InterBase.

A Trigger e ou a SP posta o evento para o gerenciador de eventos do InterBase;
O evento entra em uma fila de Eventos gerenciada pelo Gerenciador de Eventos e notifica as estações que ocorreu um evento;
A Aplicação/Estação registra ou não o interesse do Evento. Isto é, é a aplicação que toma a decisão ou não de registrar o evento. A aplicação não tem o controle de dizer ao InterBase para o mesmo não postar o evento!*

É este comando responsável por notificar as estações que ocorreu um evento no Banco de Dados. O nome_do_evento é Case-Sensitive, isto é, se você declarou um evento com o nome de:

A sua aplicação tem que fazer referencia ao nome exatamente como está descrito no POST_EVENT. Até a versão 6.0 do InterBase e o FireBird, o tamanho máximo do nome do evento é de 64 caracteres.

Vejamos um exemplo de utilização do POST_EVENT dentro de uma Stored Procedure.

Nota: No Banco de Dados de Exemplo que acompanha o FireBird/InterBase 6, existe um evento declarado na tabela SALES para a Trigger AFTER INSERT. Como mostra a nossa tela:

Para nosso artigo, irei mostrar como usar em uma SP o recurso de Eventos do InterBase.

Neste Banco de Dados InterBase, eu criei uma SP com o seguinte nome: EVENTOSDEMO, e na declaração da SP iremos encontrar o seguinte código SQL:

SET TERM ^;
CREATE PROCEDURE EVENTOSDEMO (EVENTO VARCHAR(64))
AS
BEGIN
POST_EVENT :evento;
END^
SET TERM^;

Ok! Nosso Banco de Dados de Eventos criado e nele vamos encontrar a nossa SP que será responsável em disparar o evento!

Vamos criar nossa aplicação Demo de Eventos no Delphi. Abra o Delphi, e inicie uma nova aplicação. Nosso projeto se chamará: EventosIB. Para o nosso projeto, eu utilizei os componentes da ABA InterBase do Delphi, estes componentes são chamados de InterBase Express (vulgo IBX), a versão do IBX usada neste exemplo é: 6.02, mas, deve funcionar com uma versão menor. Caso queira atualizar o seu IBX, vá até o seguinte site da Internet:

Vamos adicionar ao nosso projeto um DataModule "DM" que terá os seguintes componentes:

IBDataBase com a propriedade Name= IBDatabaseEventos;
IBTransaction com a propriedade Name= IBTransactionEventos;
IBStoredProc com a propriedade Name= StoredProcEventos;
IBEvents com a propriedade Name= IBEventoAlerta;

Temos também no nosso projeto um formulário com o nome uEvento que contém os seguintes componentes:

Voltamos ao DataModule, vamos indicar ao IBDataBase onde está o nosso "EVENTOS.GDB". Duplo clique no componente IBDataBase e irá abri o DataBase Editor conforme figura 4:

Em Connection, escolha a opção Local, em DataBase especifique o caminho onde se encontra o seu EVENTOS.GDB, ex:

User Name coloque SYSDBA, Password=masterkey, SQL_Role deixe em branco, Character Set=None, e desmarque a opção Login Prompt. Ok. Temos a nossa tela 4 e já criamos a nossa conexão com o Banco de Dados EVENTOS.GDB.

No DataModule ainda, no IBDataBase indique na propriedade DefaultTransaction o nosso IBTransaction, no IBTransaction na propriedade DefaultDataBase indique o nosso IBDataBase, no IBStoredProc na propriedade DataBase indique o nosso IBDataBase e em Transaction indique o nosso IBTransaction, no IBEvent indique na propriedade DataBase nosso IBDataBase! Ufa! Pronto, criamos a nossa conexão! Se tudo estiver certo, faça o nosso IBDataBase se conectar com o Banco através da propriedade Connected, logo após, não esqueça de retornar para False novamente!

Como foi explicado mais acima no artigo, o InterBase dispara o evento e a sua aplicação é que a responsável em decidir se irá ou não registrar o evento disparado pelo Banco. A saída para este caso, é termos um arquivo texto para cada estação indicando quais os eventos do Banco de Dados cada estação pode e vai receber*.

No nosso exemplo, junto com o executável existe um arquivo chamado EventosEstacao.cfg e neste arquivo texto existe o nome de cada evento "cadastrado" no Banco de Dados que a estação vai registrar! Segue um exemplo de como está no nosso exemplo:

procedure TDMEventos.DataModuleCreate(Sender: TObject);
var ArqEventos: TStrings;
begin
IBDatabaseEventos.Open;
ArqEventos := TStringList.Create;
try
{ Abre o arquivo de configuração dos registros.}
ArqEventos.LoadFromFile('EventosEstacao.cfg');
with DMEventos.IBEventoAlerta do
begin
UnregisterEvents;
Events.Text := ArqEventos.Text;
{ Registra os eventos! }
RegisterEvents;
end;
finally
ArqEventos.Free;
end;
end;

É no código mostrado acima que a nossa estação registra os eventos que ela pode receber. A "mágica" está nos métodos UnregisterEvents e RegisterEvents, onde, cada um é responsável pela ação de registrar os eventos e de não registrar/aceitar os eventos!

procedure TDMEventos.DataModuleDestroy(Sender: TObject);
begin
if IBDatabaseEventos.Connected then
begin
{ Se a transação está aberta, precisamos fechá-la}
if IBTransactionEventos.InTransaction then
IBTransactionEventos.Commit;
{ Se existe o registro de eventos, precisamos desalocar estes recursos}
if IBEventoAlerta.Registered then
IBEventoAlerta.UnRegisterEvents;
{ Fecha a conexão com o Banco de Dados}
IBDatabaseEventos.Close;
end;
end;

O código já está comentado, desta forma, acredito que não preciso explicar o mesmo!

procedure TDMEventos.IBEventoAlertaEventAlert(Sender: TObject;EventName: string;
EventCount: Longint; var CancelAlerts: Boolean);
begin
{ Adiciona a linha com os nomes do eventos que foram disparados pelo Botão "Gerar o Evento" do Formulário}
frmEventos.LstBxRecebidos.Items.Add(EventName);
end;

Veja que o DataModule e o Formulário estão "ligados" entre si através da claúsula uses da implementation de cada um!

Finalizamos a programação do nosso DataModule. Vamos agora programar o nosso formulário. Nosso formulário tem apenas um evento, é o evento OnClick do botão "Gerar o Evento". Veja o código:

procedure TfrmEventos.btnGerarEventoClick(Sender: TObject);
begin
with DMEventos do
begin
{Iniciamos a transação.}
IBTransactionEventos.StartTransaction;
StoredProcEventos.Prepare;
{ O nome do evento digitado no TEdit.}
StoredProcEventos.Params[0].AsString := EdtEvento.Text;
StoredProcEventos.ExecProc;
{ Fechamos a transação.}
IBTransactionEventos.Commit;
end;
end;

Nosso código é simples e já está comentado! Mas, vou citar que se você digitar um nome de evento que não exista no arquivo de configuração, não será adicionado nada no nosso ListBox, por que o mesmo não foi registrado no arquivo de configuração, mas, ele foi gerado pelo InterBase e está na fila de eventos registrados pelo Banco InterBase!

Vale mencionar novamente, que os nomes de Eventos são Case-Sensitive, então se você digitar algum caracter, o mesmo não será adicionado ao nosso ListBox!

A nossa tela com os três eventos registrados, disparados e resgatados pela aplicação:

AutoRegister: Registra automaticamente os eventos cadastros em Events quando houver a conexão com o Banco de Dados InterBase.
Events: Nome dos eventos cadastrados no Banco de Dados.
Registered: Indica que IBEvents registrou todos os eventos, tem a mesma função do método RegisterEvents.

QueueEvents: Indica a sua aplicação, que foi inicializada o recebimento de eventos.

UnRegisterEvents: Diz ao Banco de InterBase, que está retirando os registros do IBEvent´s.

Conclusão:

Eventos é um poderoso recurso que o Banco de Dados InterBase nos oferece, podemos através dele saber quando houve um mudança em uma Tabela do Banco de Dados. Com os eventos, podemos resolver o "problema"** de refresh de nossas estações em relação a tabela do Banco de Dados, onde, podemos programar o evento para o mesmo fechar a nossa tabela e abrir novamente, sendo assim, temos exatamente em nossa tela o novo registro incluído/alterado e se for o caso deletado por outra estação!

*Nota1: Foi citado que a única saída para a configuração dos eventos em cada estação, é termos um arquivo de configuração para cada estação! Citei está forma por ser a mais fácil e rápida de ser feita, mas, acredito que a melhor maneira para resolver este problema de cada estação ter o seu arquivo é o mesmo arquivo de configuração apenas no servidor. Mas, a estrutura do arquivo de configuração mudaria, e neste caso podemos usar a mesma estrutura de um arquivo .INI, onde o cabeçalho de cada seção pode ser o nome da estação e ou o IP da maquina. Podemos então acessar cada seção através da classe do Delphi TIniFile que está declarada na unit IniFiles!

**Nota2: Foi citado também um problema de refresh entre estações, para as estações enxergarem o que as outras estão fazendo, é necessário no seu aplicativo que a transação em questão esteja com a opção "ReadCommited", isto é, enxergar as mudanças das estações em relação ao estado atual do seu Banco de Dados.

Eventos e o InterBase

Conclusão: