Criando QRLabel problemas
14/08/2004
0
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
Se alguem pude me ajuda posta ae
Flw vlw
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?
Não seria mais fácil soltar um componente QRDBText dentro de uma banda de detalhe e associar ao referido campo?
Responder
Clique aqui para fazer login e interagir na Comunidade :)