Artigo Clube Delphi 110 - QuickUpdate

Firebird, AJAX e Prism

O desenvolvimento de aplicações Web com o Delphi está finalmente consolidado, depois de tantas idas e vindas. A tecnologia que usamos hoje é Delphi Prism, Visual Studio 2008, ASP.NET 3.5 + ASP.NET AJAX, e futuramente, Delphi Prism, Visual Studio 2010, ASP.NET AJAX 4.0, ADO.NET Data Services e ADO.NET Entity Framework.

O banco de dados utilizado pela maioria dos desenvolvedores Delphi é, sem dúvida, o Firebird, apesar do SQL Server ser o banco mais indicado para trabalhar com o ASP.NET. Então, já que estamos na coluna QuickUpdate, que tal uma atualização bem rápida, tipo uma reciclagem em 10 min., uma aplicação de cadastro de usuários que utilize as tecnologias disponíveis atualmente no Prism? Vamos lá.

  Antes de começar, é importante saber o que faremos: uma aplicação Web multicamadas, onde o browser enviará as informações digitadas de um cadastro de usuários (Nome e Email) via AJAX, ou seja, uma chamada assíncrona XML-HTTP sem postbacks e sem refreshs de página. Essas informações serão recebidas por um Web Service, que repassará os dados para uma camada a parte de acesso ao Firebird (chamada DAL), que usa ADO.NET e o provider nativo do Firebird para enviar dados a uma Stored Procedure.

Criando o banco de dados

  Primeiro, crie no Firebird um banco de dados chamado USUARIOS.FDB e dentro dele uma tabela com a estrutura da Figura 1. Como você pode ver, é uma tabela extremamente simples. Nosso foco aqui não é o cadastro em si, mas as tecnologias envolvidas. Estou usando o IBExpert para criar o BD, logo, usei a opção AutoInc para o ID usando Sequence/Generator e Trigger. Criei também uma Stored Procedure para inserir os dados nessa tabela, como mostra a Listagem 1.

Figura 1. Tabela de usuários

Listagem 1. Stored Procedure para inserir dados na tabela

create procedure InsertUsuario (

    NOME varchar(50),

    EMAIL varchar(50))

as

begin

  insert into USUARIOS(NOME,EMAIL)

  values (:NOME,:EMAIL);

end;

Criando o Web Site

  No Prism, inicie um novo ASP.NET Web Site, escolhendo a linguagem Oxygene. No formulário principal, bem no topo, coloque um ScriptManager da aba AJAX Extensions. Esse componente será responsável por gerenciar as chamadas assíncronas feitas à pagina. No form principal, coloque dois TextBox’s (digite “Nome” e “Email” acima deles) e um Input Button (HTML). Seu formulário deve estar semelhante ao mostrado na Figura 2.

Figura 2. Formulário principal da aplicação

Implementando o acesso a dados

  Agora precisamos implementar o acesso a dados, nesse caso, vamos trabalhar apenas com a operação de inserção. Para acesso ao Firebird a partir do ASP.NET, vamos usar o que há de melhor, o driver do próprio Firebird para ADO.NET. Então baixe e instale-o a partir do endereço http://www.firebirdsql.org/index.php?op=files&id=netprovider (versão para .NET 3.5). Jamais use um SqlDataSource ou dbxDataSource em aplicações reais.

  No ASP.NET vamos implementar nossa classe de acesso a dados, chamada DAL (Data Access Layer). Clique de direita no nome do Web Site no Solution Explorer e escolha Add>New Item>Class, dando o nome de DAL para ela (coloque na App_Code quando questionado). O código é mostrado na Listagem 2. Para poder usar os objetos do provider ADO.NET de acesso ao Firebird"