Criando QRLabel problemas

14/08/2004

Awe pessoal fmz?
Entao eu tava querendo faze o relatorio criando QRlabels e colocando os dados.
So que quando eu clico no botao ok pra ele faze isso ele fica como se tivesse fazendo e nao acontece nada e o programa trava
Vo posta o codigo aqui ve se tem algo errado
To usando paradox,bde,delphi6
procedure TFrmEntRel.BtnOkClick(Sender: TObject);
var Dados:TQRLabel;
Altura:integer;
y:integer;
begin

y := 8;
altura:= 30;

With FrmRelDesRec.QryConta do begin
        close;
        Sql.Clear;
        Sql.Add(´SELECT * FROM Contas WHERE CodCond = :PA´);
        ParamByName(´PA´).AsInteger := strtoint(edit1.Text);
        Open;
end;

While not Frmreldesrec.QryConta.eof do
begin
Dados := TQRLabel.Create(FrmRelDesRec.QuickRep1.Bands.TitleBand.Parent); //essa parte nao sei se tah certa tb
Dados.Left := 16;
Dados.Top := y;
Dados.Caption := FrmRelDesRec.QryConta.Fields[1&93;.AsString;
Dados.Name := ´Label´ + inttostr(FrmRelDesRec.QryConta.fields&91;0&93;.AsInteger); 
y := y + 17;
FrmRelDesRec.QuickRep1.Bands.TitleBand.Height := altura;
altura := altura + 17;
end;

FrmRelDesRec.QuickRep1.Preview;
end;


Se alguem pude me ajuda posta ae
Flw vlw


Snipa

Respostas

14/08/2004

Aroldo Zanela

Colega,

Não seria mais fácil soltar um componente QRDBText dentro de uma banda de detalhe e associar ao referido campo?


Responder Citar