Relatório Personalizável!!!
Gostaria de implementar o meu aplicativo de control escolar criando um módulo que permita ao usuario final desenvolver seu proprio relatório, só que não tenho nenhuma idéia de como fazer isso. Alguem pode me mostrar como eu faço isso, ou pelo menos por onde eu começo?
Utilizo o Delphi 7/MySql/Rave, mas poderia utilizar outro gerador de relatório, o importante é que eu possa disponibilizar esse módulo pro usuário final.
Muito obrigado!!
Utilizo o Delphi 7/MySql/Rave, mas poderia utilizar outro gerador de relatório, o importante é que eu possa disponibilizar esse módulo pro usuário final.
Muito obrigado!!
Anderson Belém
Curtidas 0
Respostas
Anderson Belém
17/12/2004
Ninguém pode me ajudar?
GOSTEI 0
Anderson Belém
17/12/2004
SOBE
GOSTEI 0
Gandalf.nho
17/12/2004
[b:0406035f79][color=red:0406035f79]Notificação de Infração às Regras de Conduta :[/color:0406035f79][/b:0406035f79]
O uso do recurso SOBE ou semelhantes para colocar novamente o tópico à vista deve ser limitado a no máximo uma vez por dia.
Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].
O uso do recurso SOBE ou semelhantes para colocar novamente o tópico à vista deve ser limitado a no máximo uma vez por dia.
Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].
GOSTEI 0
Thomaz_prg
17/12/2004
Colega, eu fiz algo mais ou menos parecido com o que vc quer. No QR.
Fiz assim:
3 Band
- Title
- ColumnHeader
- Detail
No Title
- 1 QrLabel onde será um subtitulo
- 1 QRLabel que irá pegar o nome do relatório
- 1 QrLabel que indica a página atual
- 1 QrLabel que indica a data e hora da impressão.
O Nome Do Relatório e o SubTitulo podem ser alterados pelo usuário.
No ColumnHeader
- 1 QrLabel
Onde, vou acrescentando o nome dos campos que irei mostrar.
Por exemplo, se eu fosse mostrar o codigo e o nome de um cliente:
QRLabel.CapTion := Ajusta(´codigo´, 5)
QrLabel.Caption := QrLabel.Caption + ajusta(´ nome´,60)
No Detail
- 1 QrLabel
Identico ao QrLabel, só que somo o valor dos campos
QRLabel.CapTion := Ajusta(qrTmp.DataSet.FieldByName(´codigo´).AsString, 5)
QrLabel.Caption := QrLabel.Caption + ajusta(qrTmp.DataSet.FieldByName(´nome´).asstring,60);
A função ajusta citada acima, apenas preenche com espaços o que faltar para o tamanho do campo.
Fiz assim:
3 Band
- Title
- ColumnHeader
- Detail
No Title
- 1 QrLabel onde será um subtitulo
- 1 QRLabel que irá pegar o nome do relatório
- 1 QrLabel que indica a página atual
- 1 QrLabel que indica a data e hora da impressão.
O Nome Do Relatório e o SubTitulo podem ser alterados pelo usuário.
No ColumnHeader
- 1 QrLabel
Onde, vou acrescentando o nome dos campos que irei mostrar.
Por exemplo, se eu fosse mostrar o codigo e o nome de um cliente:
QRLabel.CapTion := Ajusta(´codigo´, 5)
QrLabel.Caption := QrLabel.Caption + ajusta(´ nome´,60)
No Detail
- 1 QrLabel
Identico ao QrLabel, só que somo o valor dos campos
QRLabel.CapTion := Ajusta(qrTmp.DataSet.FieldByName(´codigo´).AsString, 5)
QrLabel.Caption := QrLabel.Caption + ajusta(qrTmp.DataSet.FieldByName(´nome´).asstring,60);
A função ajusta citada acima, apenas preenche com espaços o que faltar para o tamanho do campo.
GOSTEI 0