Quickreport!

[rjcerri]

Estou usando o componente qrgroup, quickreport, estou trabalhando com duas tabelas um tem o nome,receitas,visitas,objetivo do medico e na outra tem nome,produtos essa tabela fica assim

medico1 sabonete

medico1 shampoo

medico1 creme

medico2 filtro

medico3 creme

medico3 sabonete

tem como aparecer assim no quickreport?

nome receitas visitas objetivo produtos

fulano 20 10 3 sabonete,shampoo

creme

[Kikonanet]

Olá,

Dá uma olhada nos demos do Delphi... Tem vários exemplos de relatório lá!

Abs.

Kiko

[rjcerri]

Olhei, mas não tem nada lá que me ajude.

[Tbaiano]

Você vai ter que ter assim:

Table 1

Detail : ligado a tabela que tem :

nome,receitas,visitas,objetivo do medico

Table2

Subdatail : ligado a outa tabela que tem :

nome,produto

Assim você faz a pesquisa na Query da Tab1e1 e no Data Source que está ligado a ela no evento DataChange coloque o código para localizar os produtos da Table2 apartir da MEDICO.

Assim quando gerar os relatorios você vai lista o médico e os produtos deles irão ser listados logo abaixo exe:

João

Sabonete

Shampo

Maria

Condicionador

Sabonete

Não esqueça de ligar o quickrep a Table1 a Principal.

Acho que é isso, certo mesmo é testando e tentando até conseguir.

valeu.

Tbaiano

[Guest felinto]

Voce pode fazer com que os ítens aparecam como desejado e nem precisa usar um qrgroup. Apenas um qrband do tipo rbdetail.

1 - Coloque um datasource e linque a tabela1 a esse.

2 - Linque a tabela2 à tabela1 (mastersource)

3 - (qrlabel1)

coloque um qrlabel, defina as seguintes propriedades:

Autosize := false

Autostrcht := true;

WordWrap := true;

Defina width para o tamanho desejado e deixe o height suficiente para apenas uma linha (deixe o padrão que vem da paleta);

Voce pode colocar esse qrlabel à frente ou abaixo do qrdbtext como o nome do médico, ao sue desejo.

4 - No evento beforeprint do qrband, escreva o seguinte código

Var texto : String;

begin

Texto := '';

With Tabela2 do

begin

First;

While not eof do

begin

If Texto <> '' then texto := texto+', ';

Texto := Texto + FieldByName('Nome do campo do produto).AsString;

next;

end;

Qrlabel1.Caption := texto;

end;

end;

5 - Se voce quiser separar um médico de outro, dando a impressão de grupo,

defina a propriedade da qrband.haschild como true e coloque um qrshape com uma linha horizontal na childband.

Simples e funciona perfeito. O resto é com a sua criatividade.