Estudante

Universidade Tecnológica Federal do Paraná
Campus Pato Branco – Pr

Prof. Dr. Richardson R.

Disciplina: Banco de Dados
Assunto: Gerando Relatórios com o QReport
Pré-requisitos: SQL Fundamental (Parte 1), SQL Fundamental (Parte 2), e
Delphi/C++ Builder Borland com Interbase

Objetivo: Dar continuação para o material “Conectando o Banco de Dados com C++
Builder 6 ou Delphi 7”

Relatórios (Consultas SQL)
Inicialmente, vamos adicionar um novo formulário para que seja possível selecionar a opção desejada do relatório.
Adicione um formulário e salve a unit com o nome de Urelatorio.pas. (lembrando: .pas quando for Delphi e .cpp quando for C++).
Altere o nome do formulário para Frmrelatorios e o caption para Relatórios.
Na sequência, insira os seguintes componentes da palette standard dentro do formulário: 1 RadioGroup; e
1 Button
Deixe-os posicionados conforme a imagem abaixo.

Na propriedade Items(TStrings) do RadioGroup1 digite as seguintes strings:
Fabricantes
Produtos
Clientes
Notas Fiscais

Essas serão as opções de relatórios a serem gerados.
No caption do RadioGroup1 adicione “Selecione o Relatório Desejado”.
Renomeie o caption do Button para “Gerar Relatório”.
Dê um duplo clique no button e adicione o código (em vermelho):
Em DELPHI:
..........
procedure TFrelatorio.Button1Click(Sender: TObject); begin if RadioGroup1.ItemIndex = 0 then
FrmRel_fab.QuickRep1.Preview;
end; end. Em C++: if (RadioGroup1->ItemIndex == 0)
{
FrmRel_fab->QuickRep1->Preview();
}
Obs. Como o formulário Relatório Cliente (FrmRel_fab) ainda não foi criado, então o programa não está pronto para ser executado (F9).
Caso queira executar, basta colocar a linha desse formulário em comentário.
// FrmRel_fab.QuickRep1.Preview;
Salve All
Criando o Relatório para Fabricantes
Adicionar um novo formulário.
Salve a unit com o nome de Urel_fab. Altere o nome do formulário para FrmRel_fab:
Nesse formulário adicione uma IBquery, alterando o name