Artigo Clube Delphi Edição 1 - Controle de Biblioteca

Controle de Biblioteca

Esta parte do jronal talbez seja a mais importante para nós. Aqui vocês encontrarão mensalmente um curso passo a passo, com a nossa ferramenta preferida. Como o tema do nosso 1º curso, escolhi o desenvolvimento de um sistema de pequeno porte, acreditando que este exemplo possa ajudar a quem esteja iniciando ou atp mesmo para quem já começou algum sistema, mas tem dpuvidas sobre como terminá-lo. Com este projeto, gostaríamos de eleiminar várias dúvidas comuns, tais como pesquisar em um DbEdit, imprimir etiquetas, fazer validações, e outras mais.

Para não termos o trabalho de refazer o sistema de locadora pela 36ª vez, escolhi um controle de biblioteca. Mostrarei as partes básicas dos sistema que serão: um cadastro de livros e um de leitores, um controle de empréstimos (saída) e devoluções de livros (entrada). Os livros poderão permanecer com o leitor até no máximo 15 dias. O sistema alertará quando existirem leitores em atraso.

Eis um resumido DER do sistema:

Todos os leitores serão cadastrados na tabela de leitores. Os livros serão cadastrados na tabela livros e seus exemplares estarão na tabela exemplares. Os empréstimos e devoluções serão cadastrados na tabela empréstimos. Os livros emprestados estarão em livrosemp.

Crie as tabelas utilizando o Database Desktop. Todas serão do formato Paradox 7.0. não crie nenhum tipo de regra de integridade nas tabelas, pois validaremos tudo validaremos tudo no código. Escolhi esse método porque as regras de integridade no paradox são muito boas, mas quando funcionam. Quando uma das tabelas relacionadas dá problema, todas as outras não abrem e a manutenção torna-se muito mais difícil. Realmente não aconselho este tipo de validação usando o Paradox. Considero muito mais interessante em um banco de dados cliente – servidor, onde o ganho será real. Abordaremos bancco da dados cliente-servidores em futuras edições.

Eis a estrutura das tabelas:

Estas estruturas foram criadas visando o melhor aproveitamento didáticoo.

Por euqnaot, o único índice secundário que criaremos será para a tabela leitores. Os outros mostrarei conforme seus respectivos formulários forem aparecendo. Para criar um índice secundário com o Database Desktop, selecione Secondary Indexes no combobox Table Properties. Clique em define, para a caixa de diálogo Define Secondary Index ser mostrada. Dê um clique duplo no campo nome, para selecioná-lo. Clique em OK e digite IngNome como nome deste índice, que onrdenará a tabela pelo campo nome do leitor.

Devemos também criar uma nova base de dados no BDE Administrator. Entre no BDE Administrator, selecione File, New Object. Uma caixa de diálogo será mostrada, perguntado o tipo da base de dados. Escolha Standar. Chame a base de dados bíblio, e direcione para o caminho do banco de dados na propriedade Path. Salve o arquivo e feche o BDE Administrator.

Agora crie um novo projeto no Delphi (File – New Application) e salve-o. podemos chamar o projeto de biblioteca e a unidade de principal, pois este será o formulário principal de aplicação. Mude as pripriedades deste form de acordo com a tabela abaixo: