Fórum Impressão de consulta runtime #321770
19/05/2006
0
Tou precisando de ajuda com o quick report!
Tenho um programa onde crio uma consulta SQL runtime. Gostaria de poder imprimir os dados do resulatdo com o dbgrid. Como pode ser uma tabela qqer do banco de dados, tenho q criar os componentes QRDBText em tempo de execução.. e é aí q q não tou sabendo... tive uma idéia, mas não funcionou.. os campos da tabela são passados prá consulta através de um Tlist chamada lList
procedure TPesqFProd.Imprime;
var
i,iTop,iLeft,iWidth:integer;
txt:TQRDBText;
begin
i:=0;
iTop:=0;
iLeft:=0;
iWidth:=query1.FieldDefs.Items[0].Size;
while i<=lList.count-1 do
begin
txt:=TQRDBText.create(self);
txt.DataSet:=Query1;
txt.dataField:=query1.FieldDefs.Items[i].Name;
txt.Left:=iLeft;
txt.top:=iTop;
txt.width:=iWidth*8;
inc(i);
if i<=lList.count-1 then
iWidth:=query1.FieldDefs.Items[i].Size;
iLeft:=iLeft+iWidth*8;
if iLeft>718 then
begin
iTop:=iTop+30;
iLeft:=0;
end;
end;
end;
Não ví nenhuma propriedade prá dizer q o QRDBText pertence à banda rbDetail. Alguém tem uma idéia?
Tenho um programa onde crio uma consulta SQL runtime. Gostaria de poder imprimir os dados do resulatdo com o dbgrid. Como pode ser uma tabela qqer do banco de dados, tenho q criar os componentes QRDBText em tempo de execução.. e é aí q q não tou sabendo... tive uma idéia, mas não funcionou.. os campos da tabela são passados prá consulta através de um Tlist chamada lList
procedure TPesqFProd.Imprime;
var
i,iTop,iLeft,iWidth:integer;
txt:TQRDBText;
begin
i:=0;
iTop:=0;
iLeft:=0;
iWidth:=query1.FieldDefs.Items[0].Size;
while i<=lList.count-1 do
begin
txt:=TQRDBText.create(self);
txt.DataSet:=Query1;
txt.dataField:=query1.FieldDefs.Items[i].Name;
txt.Left:=iLeft;
txt.top:=iTop;
txt.width:=iWidth*8;
inc(i);
if i<=lList.count-1 then
iWidth:=query1.FieldDefs.Items[i].Size;
iLeft:=iLeft+iWidth*8;
if iLeft>718 then
begin
iTop:=iTop+30;
iLeft:=0;
end;
end;
end;
Não ví nenhuma propriedade prá dizer q o QRDBText pertence à banda rbDetail. Alguém tem uma idéia?
Luis.wolff
Curtir tópico
+ 0
Responder
Posts
19/05/2006
M@gnun
QRDBText.Parent := QRBand1;
Responder
Gostei + 0
20/05/2006
Luis.wolff
Vou tentar... obrigado!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)