Sistema de Locadora em Delphi 2010 – Parte 4- Clube Delphi 119

Nas partes anteriores de nosso mini-curso já abordamos várias etapas do desenvolvimento de um software, passando por modelagem de dados, criação do banco de dados, definição de domínios, criação de métodos iniciais, organização da aplicação através de Data Modules, criação de conceitos de boas práticas e orientação a objetos abrangendo tópicos como herança e encapsulamento, gerenciamento, manipulação e entendimento de recursos de memória na criação de formulários, desenvolvimento de interfaces adotando os recursos de Ribbon Controls e introdução a novos componentes. Também passamos por uma parte interessante, onde realizamos melhorias em nossa aplicação, exibindo as vantagens de manutenção em uma aplicação bem estruturada e bem definida.

Nesta parte de nosso artigo iremos finalizar os cadastros restantes, trabalhar com a manipulação de dados através das Triggers do banco de dados, permitindo que o banco de dados gerencie as tarefas automaticamente, encarregando-se de realizar diferentes ações de acordo com o tipo de ocorrência. Realizaremos mais adaptações em nossos Data Modules, criaremos formulários não baseados em nossa herança, mas que possuam características semelhantes e que permitam a manipulação de dados diretamente no banco.

Por último realizaremos como dito na parte anterior a introdução aos relatórios, fazendo nessa parte a preparação do ambiente para os relatórios futuros de nosso projeto. Depois desta breve introdução vamos botar a mão na massa, pois temos muitas novidades a explorar e muito trabalho a desenvolver. Começaremos então pelo banco de dados e Data Modules.

Adaptando os Data Modules e Banco de dados

Antes de continuarmos, vamos realizar todas as adaptações necessárias em nossos Data Modules, realizando modificações para suportar nossas futuras consultas, relatórios, reservas, empréstimos e até mesmo todas as validações que até o momento não tínhamos visto.

Para suportar nossas futuras consultas, iremos alterar o DMPesquisa, portanto abra-o e insira mais dois conjuntos do trio SQLDataSet, DataSetProvider e ClientDataSet. Renomeie os SQLDataSets para sqlPesquisaReserva e sqlPesquisaEmprestimo, os DataSetProviders para dspPesquisaReserva e dspPesquisaEmprestimo e por último os ClientDataSets para cdsPesquisaReserva e cdsPesquisaEmprestimo. Observe como ficou o nosso Data Module naFigura 1.

Figura 1.DMPesquisa após modificações

Após adicionar os componentes vamos configurar suas propriedades para que possamos começar os cadastros. Ligue os DataSetProviders aos respectivos SQLDataSets por meio da propriedade DataSet e acrescente em Options a opção poAllowCommandText. Selecione os ClientDataSets e ligue-os aos DataSetProviders através de seu ProviderName. Passaremos agora para o Data Module principal, apenas para setar as propriedades restantes de nosso cdsFita.

Simplesmente abra o cdsFita e em seus campos configure a propriedade DefaultExpression para 0 no campo IDFITA e em seguida adicione à mesma propriedade do campo STATUS o conteúdo ‘D’ para finalizar as adaptações necessárias para o DMPrincipal. Isso faz com que esses valores sejam setados como padrão quando um novo registro for incluído.

Abra o DMRelatorio para criarmos o método que faz com que ele seja criado automaticamente em sua chamada, assim como visto na parte anterior de nosso artigo. Observe o código daListagem 1.

Listagem 1. Ajuste em DMRelatorio

... var DM: TDMRelatorios; function DMRelatiorios : TDMRelatorios; implementation //Adicione Forms ao uses function DMRelatiorios : TDMRelatorios; begin if not Assigned(DM) then DM := TDMRelatorios.Create(Application); Result := DM; end;

Apenas relembrando o que já foi visto anteriormente, a variável DMRelatorios é renomeada para DM, o método Assigned verifica se a variável do formulário está nula e então se encarrega de criar automaticamente o Data Module. Desta forma temos uma chamada ao Data Module de maneira comum (ou seja, como se fosse uma variável global, o padrão do Delphi). Por enquanto deixaremos este Data Module assim, sem adicionar nada a ele.

Aqui nesta parte faremos algumas modificações no banco de dados de nosso projeto. Primeiramente vamos criar um novo domínio que consiste em um campo do tipo Data, porém, que não atribuirá valor inicial à data e que permitirá a atribuição de valores nulos. Execute o Script a seguir no gerenciador de bancos de dados de sua preferência:

CREATE DOMAIN D_DATA_NULL AS DATE;

Feito isso, adicionaremos um campo em nossa tabela LOCACAO para que futuramente possamos realizar a baixa dos empréstimos e controlar automaticamente os status das reservas e disponibilidade dos filmes. Novamente execute o Script a seguir:

ALTER TABLE LOCACAO ADD DATA_DEVOLUCAO D_DATA_NULL;

Tendo alterado nossa base dados, vamos implementar as futuras validações que serão feitas por nosso banco de dados de forma automática por meio de Triggers. Faremos duas Triggers para o cadastro de reservas, uma para a tabela de locação e uma para a tabela de itens de locação. Inicialmente execute os Scripts daListagem 2que são responsáveis pelo controle do Status dos filmes de acordo com suas respectivas ações"