|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Active Reports - Varios relatorios em um só
|
 |
|
|
|
Postada em 16/8/2003 por k333
k333@ig.com.br
Postada em 16/08/2003 10:07 hs k333@ig.com.br
-----------------------------------------------------------------------
O Active Reports é um excelente gerador de relatórios para VB. Uma de suas funcionalidades é a possibilidade de usar o mesmo report para varios relatorios diferentes, como mencionei abaixo e o The One pediu para explicar.
É o seguinte:
crio um relatorio com um datacontrol, com 2 fields (isso é um exemplo, pode usar qtos quiser) na secao details.
Na secao PageHeader crio uma label que sera o cabecalho.
muito bem,
digamos que eu tenha uma rotina aonde o usuario escolhera entre 3 relatorios possiveis: 1-Contatos 2-Produtos 3-Funcionarios
pronto, agora vamos a programacao do relatorio:
Private Sub ActiveReport_ReportStart()
dcrptdata.DatabaseName = Seu_arquivo
Select case opcoes
case is = 1
Label_cabecalho = "Contato Telefone"
dcrptdata.recordsource="Select * from tbContato"
Field1.DataField = "Nome"
Field2.DataField = "Tel"
case is = 2
Label_cabecalho = "Produto Preço"
dcrptdata.recordsource="Select * from tbProduto"
Field1.DataField = "Descricao"
Field2.DataField = "Preço"
field2.outputformat="#,##0.00"
field1.left=500
case is=3
...
end case
end sub
Entao, nao é facil???
precisei aprender alguma coisa diferente de vb?
A vantagem disso é que , ao inves de criar um monte de relatorios para cada "ideia genial" do seu cliente, voce cria um só e poe as opcoes lá pro sr. Iluminado escolher.(mais para esquerda, muda essa letra, muda esse campo)
PS, o codigo acima é só um exemplo.
|
|
|
|
|
