Artigo Clube Delphi 99 - Sistema DataCar em OO

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Artigo da Revista Clube Delphi Edição 99.

Esse artigo faz parte da revista Clube Delphi Edição 99. Clique aqui para ler todos os artigos desta edição

Mini-Curso - Boas Práticas - Expert

Sistema DataCar em OO

Aprenda a criar um sistema completo utilizando as metodologias de Orientação a Objetos – Parte 4

 

Neste artigo veremos

·         Criação de pesquisas usando OO;

·         Criação de relatórios usando OO.

Qual a finalidade

·         Neste artigo serão abordados os conceitos para criação e manutenção de código-fonte orientado a objetos.

Quais situações utilizam esses recursos?

·         Em todo tipo de programa é perfeitamente possível adequar aos conceitos de programação OO.

 

Nota do DevMan

Como criar relatórios orientados a objetos? Veremos como fazer isso nesse artigo, dessa forma fecharemos com chave de ouro. Veremos como criar relatórios e como criar novas telas de acesso aos dados.

 

Finalmente concluímos nossa caminhada e terminaremos nosso sistema. Fazendo uma breve retrospectiva, posso dizer que vimos uma ponta do que é o desenvolvimento orientado a objetos. Vimos que tudo começa por entender as regras do negócio e modelá-las, posteriormente codificá-las e então aplicar testes para que tudo fique assegurado. Depois então pensamos na persistência das informações e depois na boa estrutura que a aplicação deve ter, colocando tudo em sua respectiva camada. Nesta parte final também não será diferente. Vamos continuar com o desenvolvimento OO.

Veículos procurados

Imagine que você está interessado em comprar um veículo, da Volkswagem, modelo Golf. Então você procura algumas revendas de automóveis e preenche um cadastro comprovando sua intenção. De posse desse cadastro, essa revenda, ao receber um veículo que se enquadra nas suas especificações fará um contato convidando-o a ver esse veículo. Esse é o cenário que vamos implementar, já possuímos uma classe TVeiculoProcurado e uma classe TCliente. Vamos imaginar aqui a interface com o usuário para essa situação. Digamos que teremos um formulário inicial já exibindo todos os veículos procurados e que nesse mesmo formulário haja opções para excluir ou incluir um novo veículo procurado. Com isso em mente vamos criar um Data Module específico para essa situação.

                     

Nota do DevMan

Muitos iniciantes não percebem a finalidade de um datamodule e acabam utilizando apenas um para toda sua aplicação, dificultando a localização de controles e consequentemente sua manutenção. Um datamodule existe para ser utilizado como uma ferramenta modular de dados, seu nome realmente quer dizer “modulo de dados”. Dessa forma podemos criar quantos datamodules forem necessários para organizar nossos dados. Uma sugestão é organizá-los por funções específicas dentro do sistema, como se estivesse criando “setores”.

 

Adicione um novo formulário ao projeto, salvando-o como dmVeiculosProcurados. Nele adicione um TClientDataSet e um TDataSource, chamando-os respectivamente de cdsListaVeiculos e dsListaVeiculos. Esse ClientDataSet será nosso DTO que exibirá a lista de veículos procurados que será retornada pelo seu respectivo DAO. Clique duas vezes no cdsListaVeiculos para que possamos acessar seus Fields Editor. Clique então com o botão direito e acesse New Field. Veja que estamos adicionando um novo campo ao ClientDataSet. Essa operação já é bem conhecida, portanto informe o nome do campo, tipo e tamanho conforme a Tabela 1.

 

Campo

Tipo

Tamanho

IdVeiculo

Integer

-

Modelo

String

100

Ano

Integer

-

Cor

String

50

Valor

Currency

-

Contato

String

150

IdCliente

Integer

 

Tabela 1. Campos novos no cdsListaVeiculos

 

Agora é preciso incluir na classe TVeiculoProcuradoDao o método que irá nos retornar todos os veículos com essas informações. Abra a unit Daodbx e DaoU. Em DaoU localize a interface IVeiculoProcuradoDao e adicione uma função chamada ListarTodosProcurados que retorne um TObjectList. Na Listagem 1 vemos a interface já alterada.

 

Listagem 1. IVeiculoProcuradoDao

  IVeiculoProcuradoDao = interface(IDao)

    ['{744B08CF-528F-452B-89F3-EFD103BFA2E7}']

    procedure Excluir(const obj: TVeiculoProcurado);

    function Recuperar(id: Integer): TVeiculoProcurado;

    procedure Salvar(obj: TVeiculoProcurado);

    function ListarTodosProcurados: TObjectList;

  "

A exibição deste artigo foi interrompida :(
Este post está disponível para assinantes MVP

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?