Impressão de consulta runtime
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
Curtidas 0
Respostas
M@gnun
19/05/2006
QRDBText.Parent := QRBand1;
GOSTEI 0
Luis.wolff
19/05/2006
Vou tentar... obrigado!
GOSTEI 0