Criando QRLabel problemas

14/08/2004

2

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


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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar