USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Active Reports - Varios relatorios em um só
Postada em 16/8/2003 por k333      Clique aqui para enviar email para o autor  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página