FireMonkey e FireDAC: Construindo uma aplica��o completa

Fique por dentro

Atualmente, o FireMonkey � o framework principal para o desenvolvimento de aplicaç�es multi-dispositivos no Dephi, podendo compilar aplicaç�es para o Windows, OS X, Android e iOS. O conhecimento sobre como construir uma aplicaç�o completa utilizando esse framework � de suma import�ncia para desenvolvedores que pretendem portar suas aplicaç�es para outras plataformas diferentes do Windows.
Autores: Jones Granatyr e Fabio Spak

Demais posts desta s�rie:
FireMonkey e FireDAC: Construindo uma aplicaç�o completa � Parte I

Na primeira parte desta s�rie de artigos que mostra como construir um sistema completo de ordens de serviços no Delphi utilizando o FireMonkey, o MySQL e a engine de acesso a dados FireDAC foi constru�da a base de dados e tamb�m foram implementadas as janelas para listagem dos registros. Nesta segunda e �ltima parte o foco ser� dado � construç�o das janelas de cadastro e pesquisa. As pr�ximas seç�es mostram o desenvolvimento completo do software.

Configurando a criaç�o manual dos formul�rios

O sistema possui at� agora sete formul�rios e seis Data Modules, que s�o automaticamente instanciados quando o projeto � executado. Esse fato pode ser observado na Figura 1 na janela de configuraç�es do projeto (Project>Options), na qual � poss�vel observar do lado esquerdo da figura que todos os arquivos est�o localizados na parte Auto-create forms. Apesar de essa ser uma configuraç�o padr�o do Delphi e n�o requerer nenhum c�digo adicional para instanciar os objetos, dependendo da quantidade de arquivos presentes no sistema o carregamento inicial pode ficar lento, visto que todos os componentes ser�o criados assim que o projeto for executado. Uma maneira mais profissional � cri�-los manualmente de acordo com a necessidade do usu�rio, como por exemplo: quando o bot�o para a listagem de clientes for clicado a respectiva tela juntamente com o Data Module ser�o instanciados em mem�ria. Por outro lado, quando a janela for fechada ambos os arquivos devem ser liberados da mem�ria. Com relaç�o ao formul�rio este fato j� est� acontecendo, visto que � utilizada a vari�vel FFormularioAtivo para gerenciar a �nica janela aberta em tela juntamente com o comando Application.CreateForm no m�todo AbrirJanela.

Apesar dos formul�rios de cadastro e movimentaç�o j� estarem sendo criados em tempo de execuç�o, � necess�rio que eles fiquem localizados na parte Available forms � direita da Figura 1, caso contr�rio eles ser�o instanciados na inicializaç�o do sistema e tamb�m quando o usu�rio abrir uma janela. Por meio dessa configuraç�o, os arquivos n�o ser�o criados automaticamente e ficar�o dispon�veis para que o desenvolvedor os instancie quando necess�rio. Os �nicos arquivos que devem ser criados automaticamente � o menu principal que ser� a primeira janela a ser exibida e o Data Module que cont�m a conex�o com a base de dados (dtmConexao).

Nota: Apesar dessa abordagem de criaç�o manual dos arquivos requerer mais linhas de c�digo, ela poder� evitar demoras no carregamento inicial do sistema e tamb�m consumir menos mem�ria quando estiver em execuç�o. Como estamos desenvolvendo utilizando o FireMonkey, al�m das aplicaç�es funcionarem em desktop (Windows e OS X) elas tamb�m podem ser portadas para o ambiente mobile (Android e iOS), nos quais a mem�ria � reduzida devido a limitaç�es de hardware da maioria dos dispositivos.

Figura 1. Definiç�o dos formul�rios que ser�o criados manualmente

Apesar de que com a codificaç�o atual os formul�rios j� est�o sendo criados dinamicamente, caso o software seja executado ser� gerado erro pelo fato de ser necess�rio ainda programar a instanciaç�o manual dos Data Modules correspondentes a cada janela. A Listagem 1 apresenta esse c�digo, no qual foram programados os eventos FormCreate e FormDestroy. Na linha 04 o Data Module � instanciado quando o formul�rio � criado, enquanto que na linha 09 o mesmo Data Module � liberado da mem�ria utilizando o m�todo DisposeOf, ambos para a tela de pesquisa de ordens de serviços. O mesmo processo ocorre para as demais janelas, ou seja: entre as linhas 11 e 21 encontra-se o c�digo correspondente a pesquisa de clientes, entre as linhas 22 e 32 das formas de pagamento, entre 33 e 43 do cadastro de serviços e por fim, entre as linhas 44 e 54 � c�digo relacionado ao cadastro de ve�culos.

Listagem 1. Criaç�o manual dos Data Modules.

  01 procedure TfrmOrdemServicoListagem.FormCreate(Sender: TObject);
  02 begin
  03   inherited;
  04   dtmOrdemServico := TdtmOrdemServico.Create(Self);
  05 end;
  06 procedure TfrmOrdemServicoListagem.FormDestroy(Sender: TObject);
  07 begin
  08   inherited;
  09   dtmOrdemServico.DisposeOf;
  10 end;
  11 procedure TfrmClienteListagem.FormCreate(Sender: TObject);
  12 begin
  13   inherited;
  14   dtmCliente := TdtmCliente.Create(Self);
  15   dtmCliente.qryCliente.Open();
  16 end;
  17 procedure TfrmClienteListagem.FormDestroy(Sender: TObject);
  18 begin
  19   inherited;
  20   dtmCliente.DisposeOf;
  21 end;
  22 procedure TfrmFormaPagamentoListagem.FormCreate(Sender: TObject);
  23 begin
  24   inherited;
  25   dtmFormaPagamento := TdtmFormaPagamento.Create(Self);
  26   dtmFormaPagamento.qryFormaPagamento.Open();
  27 end;
  28 procedure TfrmFormaPagamentoListagem.FormDestroy(Sender: TObject);
  29 begin
  30   inherited;
  31   dtmFormaPagamento.DisposeOf;
  32 end;
  33 procedure TfrmServicoListagem.FormCreate(Sender: TObject);
  34 begin
  35   inherited;
  36   dtmServico := TdtmServico.Create(Self);
  37   dtmServico.qryServico.Open();
  38 end;
  39 procedure TfrmServicoListagem.FormDestroy(Sender: TObject);
  40 begin
  41   inherited;
  42   dtmServico.DisposeOf;
  43 end;
  44 procedure TfrmVeiculoListagem.FormCreate(Sender: TObject);
  45 begin
  46   inherited;
  47   dtmVeiculo := TdtmVeiculo.Create(Self);
  48   dtmVeiculo.qryVeiculo.Open();
  49 end;
  50 procedure TfrmVeiculoListagem.FormDestroy(Sender: TObject);
  51 begin
  52   inherited;
  53   dtmVeiculo.DisposeOf;
  54 end;

Criando o cadastro de serviços

Na Figura 2 s�o apresentadas as janelas que ser�o utilizadas para a construç�o dos cadastros b�sicos, sendo indicado o cadastro de serviços. Primeiramente o usu�rio dever� abrir a janela com a listagem dos registros (esquerda da figura), e ap�s clicar no bot�o �incluir� ou �alterar� ser� aberta a janela de cadastro para o preenchimento e/ou visualizaç�o dos dados completos do registro. Se a opç�o escolhida for a inclus�o, os campos de texto para digitaç�o dos dados estar�o em branco. Por outro lado, se um registro for selecionado na grade de dados e logo ap�s o bot�o alterar for clicado, as informaç�es correspondentes a este registro ser�o carregadas nessa janela para ediç�o (conforme mostrado para o serviço �ajuste no freio� na figura). � tamb�m poss�vel observar que est� presente um Data Module, o qual ter� a funç�o de carregar, incluir e editar os dados do cadastro. Nesta figura est� sendo mostrado o cadastro de serviços, e a seguir a codificaç�o necess�ria ser� abordada em detalhes.

Figura 2. Cadastro de serviços

Nota: Como pode ser observado na Figura 2, o Data Module possui somente um componente TFDQuery para executar as operaç�es de consulta, inclus�o e ediç�o dos registros. Em um primeiro momento, poder�amos chegar � conclus�o de que seria melhor adicion�-lo diretamente no formul�rio de cadastro devido � pouca complexidade destas operaç�es. Por�m, � uma boa pr�tica criar um Data Module para que os componentes de acesso a dados fiquem centralizados nele, e essa estrutura contribui para a organizaç�o do projeto. Neste contexto, caso o software venha a crescer e se tornar mais complexo o gerenciamento dos arquivos ser� facilitado.

O primeiro passo para a construç�o do cadastro de serviços � a criaç�o de um novo formul�rio (File>New>Multi-Device Form � Delphi) que ser� utilizado como base para todos os cadastros. Esta janela (frmCadastroPadrao) � apresentada na Figura 3 e � composta por uma TToolBar (tlbBotoes) na parte superior e mais dois TButton dentro dela (btnGravar e btnCancelar) com a propriedade Align configurada para Left. H� tamb�m um TActionList (acoesBaseDados), no qual foram adicionadas duas aç�es padr�es (actGravar � TFMXBindNavigatePost e actCancelar � TFMXBindNavigateCancel) que ser�o respons�veis pela gravaç�o dos registros (tanto inclus�o quanto alteraç�o) e pelo cancelamento (desfazer) dos dados informados pelo usu�rio, respectivamente. Conforme p�de ser observado, foram utilizados os recursos autom�ticos do Delphi, ou seja, n�o ser�o desenvolvidas linhas de c�digo adicionais para essas duas funç�es. Por fim, os dois bot�es devem ter sua propriedade Action atribu�das a essas novas aç�es, bem como deve ser adicionada uma vari�vel chamada FId na seç�o p�blica do formul�rio, conforme mostrado na Listagem 2. Essa vari�vel ser� utilizada posteriormente para o gerenciamento da abertura da janela, afim de indicar que se trata de uma inserç�o ou de uma alteraç�o.

Figura 3. Formul�rio padr�o

Nota: � importante salientar que todos os formul�rios e Data Modules que ser�o criados a partir de agora devem ser configurados para serem criados de forma manual, conforme abordado anteriormente.

Listagem 2. Vari�vel para gerenciar a inclus�o e alteraç�o de registros.

  01 public
  02   FId: Integer;
  03 end;

Em seguida deve ser criado um novo Data Module (File>New>Other>Delphi Files>Data Module) chamado dtmServicoCadastro com um componente TFDQuery (qryServico), conforme apresentado na Figura 2. Esse novo arquivo deve possuir acesso ao Data Module de conex�o � base de dados (dtmConexao) por meio do comando File>Use Unit, bem como sua propriedade Connection configurada para cnnConexao que diz respeito ao componente TFDConnection que efetivamente faz a ligaç�o de nossa aplicaç�o com a base de dados das ordens de serviços. Adicionalmente, a propriedade SQL desta query deve possuir o seguinte comando SQL:

select idservico, nome, observaç�o from c_servico" [...] continue lendo...

FireMonkey e FireDAC: Construindo uma aplica��o completa � Parte II

Neste artigo vamos concluir a criação de uma aplicação completa de ordens de serviço utilizando FireDAC e FireMonkey, criando as telas de cadastro e pesquisa.

Configurando a criaç�o manual dos formul�rios

Criando o cadastro de serviços

Artigos relacionados