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].AsString;
Dados.Name := �Label� + inttostr(FrmRelDesRec.QryConta.fields[0].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

Curtir t�pico + 0

Responder

Posts

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

Gostei + 0