Artigo Clube Delphi Edição 4 - Sistema de Biblioteca – Parte IV: Devoluções

Curso

Sistema de Biblioteca – Parte IV: Devoluções

Finalmente, nosso último cadastro! Depois de cadastrarmos os leitores, livros, e empréstimos de nossa biblioteca, resta-nos apenas cadastrara as devoluções dos livros. Esta parte do curso é mais simples do que as anteriores, pois não veremos nenhuma novidade, será apenas uma revisão do aprendizado anterior. Veremos aqui o formulário de devoluções e a consulta, indicando os leitores que estão com suas datas vencidas. Neste passo, não usaremos nosso modelo de cadastro (criado nas edições anteriores), pois este formulário terá uma interface um pouco diferente. Na figura 1 podemos visualizar o formulário de devoluções compilado:

Figura 1: Formulário de Devoluções

Como mostrado na figura, o formulário de devoluções possui alguns TComboBoxes na parte superior e um TDBGrid no meio do formulário. Repare que pela primeira vez em nosso sistema usaremos o controle TPageControl, aquele que faz as abas do Windows. Nas respectivas abas, iremos visualizar os empréstimos em aberto, os empréstimos fechados e, no último, os empréstimos que ultrapassaram a data de vencimento, que é de 15 dias após o empréstimo, conforme especificado na edição nº 1. Nos objetos TComboBoxes, o usuário poderá selecionar pelo cliente e selecionar a ordem no qual os dados serão exibidos. Dando um clique duplo sobre o item na grade, o usuário estará cadastrando uma devolução para aquele empréstimo, tornando-o OK. Então, anime-se, pois com este iremos finalizar nossos cadastros.

Começaremos criando o objeto TForm e configurando-o de acordo com a tabela abaixo:

Salve o formulário e chame sua unidade de devolucao.pas. Abra o formulário FrmPrincipal, o form "pai" da aplicação, e crie um item de menu abaixo da opção Controle (criado na 1ª edição). Configure a propriedade Caption desse submenu para ‘Devoluções’. Em seu evento OnClick, digite:

"

A exibição deste artigo foi interrompida.

  Este é um post disponível para assinantes MVP

Este post também está disponível para assinantes da ClubeDelphi DIGITAL
ou para quem possui Créditos DevMedia.  Clique aqui para saber mais!

Saiba como acessar este post através de Créditos DevMedia:

Assinatura de Créditos – Aqui este post custa R$ 1,47
Com esse plano você compra R$ 180,00 em créditos e ganha, em média, 80% de desconto no preço do post.  
Assine agora

Plano ocasional - Aqui este post custa: R$ 1,96 (assinante) ou R$ 2,45 (não-assinante)
Você compra um mínimo de R$ 60,00 em créditos e ganha, em média, 50% de desconto no preço do post.  
Compre agora

Plano conveniência – Neste plano este post custa R$ 4,90
Neste plano você compra somente um post, pagando seu preço sem desconto.  
Compre agora