QReport динамическое формирование отчета

[yulia]

Надо строить отчет по результатам запроса. Если надо вывести все столбцы, то проблем никаких. А вот скажите, пожалуйста, как можно мделать так, чтобы пользователь мог ставить галочки и выбирать какие столбцы будут отображаться в отчете?

[vovk]

на форму поставить CheckListBox1
получить поля с компонента както так

 CheckListBox1.Items:=query1.FieldList;

, ну или по другому

И сформировать отчёт

var
 i,col_Width,col_Width1:Integer;
 QR:TQuickRep;
 QRT:TQRDBText;
 SList:TStringList;
 begin
  try
    Slist:=TStringList.Create;
     for i:=0 to CheckListBox1.Items.Count-1 do
      if CheckListBox1.Checked[i]=True then
      SList.Add(CheckListBox1.Items.Strings[i]);
       if SList.Count>0 then
   begin
     try
       QR:=TQuickRep.Create(Self);
       QR.Bands.HasTitle:=True;
     with   TQRMemo(QR.Bands.TitleBand.AddPrintable(TQRMemo)) do
     begin
        AlignToBand:=True;
        Alignment:=taCenter;
        Font.Size:= 20;
        Font.Name:='Comic Sans MS';
        Lines.Text:='Ìîé ñàìûé ãëàâíûé Àò÷Îò';
     end;
       QR.Bands.HasDetail:=True;
       QR.Bands.DetailBand.Frame.DrawTop:=True;
       QR.Bands.DetailBand.Frame.DrawBottom:=True;
       QR.Bands.DetailBand.Frame.DrawLeft:=True;
       QR.DataSet:=query1;
       col_Width:= QR.Bands.DetailBand.Width div SList.Count;
       col_Width1:=col_Width+QR.Bands.DetailBand.Width mod SList.Count;
       for i:=0 to Slist.Count-1 do
          begin
            QRT:=TQRDBText.Create(QR.Bands.DetailBand);
            with QRT do
              begin
                Name:=SList.Strings[i];
                AutoSize:=False;
                AutoStretch:=True;
                Top := 0;
                DataSet := Query1;
                DataField := Slist.strings[i];
                Parent:=QR.Bands.DetailBand;
                Frame.DrawRight:=True;
                Left:=i*col_Width;
                if i=SList.Count-1 then
                Width:=col_Width1
                else
                Width:=col_Width;
              end;
          end;
         QR.Preview;
      finally
        QR.free;
     end;
   end;
  finally
    SList.Free;
  end;
end;

не идеал конечно, ещё нужно над ним поработать. Да и наверное попроще местами можно, но всёже

[yulia]

Спасибо большое, очень помогло.. у меня получилось вот так:

procedure TForm10.QuickRep2Preview(Sender: TObject);
var
 i,col_Width,col_Width1:Integer;
 QR:TQuickRep;
 QRT:TQRDBText;
 SList:TStringList;
begin
try
    Slist:=TStringList.Create;
     for i:=0 to Form7.RzCheckList1.Items.Count-1 do
      if Form7.RzCheckList1.ItemChecked[i]=True then
      SList.Add(Form7.RzCheckList1.Items.Strings[i]);
       if SList.Count>0 then
   begin
     try
       QR:=TQuickRep.Create(Self);
       QR.Bands.HasTitle:=True;
     with   TQRMemo(QR.Bands.TitleBand.AddPrintable(TQRMemo)) do
     begin
        AlignToBand:=True;
        Alignment:=taLeftJustify;
        Font.Size:= 16;
        Font.Name:='Times New Roman';
        Lines.Text:='Îáë³ê çàÿâîê';
     end;
       QR.Bands.HasDetail:=True;
       QR.Bands.DetailBand.Frame.DrawTop:=True;
       QR.Bands.DetailBand.Frame.DrawBottom:=True;
       QR.Bands.DetailBand.Frame.DrawLeft:=True;
       QR.DataSet:=dm.potype;
       col_Width:= QR.Bands.DetailBand.Width div SList.Count;
       col_Width1:=col_Width+QR.Bands.DetailBand.Width mod SList.Count;
       for i:=0 to Slist.Count-1 do
          begin
            QRT:=TQRDBText.Create(QR.Bands.DetailBand);
            with QRT do
              begin
                Name:='a'+ inttostr(i);
                AutoSize:=False;
                AutoStretch:=True;
                Top := 0;
                DataSet :=dm.potype;
                DataField := Slist.strings[i];
                Parent:=QR.Bands.DetailBand;
                Frame.DrawRight:=True;
                Left:=i*col_Width;
                if i=SList.Count-1 then
                Width:=col_Width1
                else
                Width:=col_Width;
              end;
          end;
         QR.Preview;
      finally
        QR.free;
     end;
   end;
  finally
    SList.Free;
  end;
end;

[yulia]

Если не сложно, подскажите еще, плиз, как сделать заголовки у столбцов...

[vovk]

 QRTLB:TQRLabel;
.......
......
QR.Bands.HasColumnHeader:=True;
       QR.Bands.ColumnHeaderBand.Frame.DrawTop:=True;
       QR.Bands.ColumnHeaderBand.Frame.DrawBottom:=True;
       QR.Bands.ColumnHeaderBand.Frame.DrawLeft:=True;
       col_Width:= QR.Bands.DetailBand.Width div SList.Count;
       col_Width1:=col_Width+QR.Bands.DetailBand.Width mod SList.Count;
       for i:=0 to Slist.Count-1 do
          begin
            QRTLB:=TQRLabel.Create(QR.Bands.ColumnHeaderBand);
            QRT:=TQRDBText.Create(QR.Bands.DetailBand);
            with QRT do
              begin
                Name:=SList.Strings[i];
                .....
                 . ...
                Width:=col_Width1
                else
                Width:=col_Width;
              end;
              with QRTLB do
              begin
                AutoSize:=False;
                AutoStretch:=True;
                Top := 0;
                Caption := Slist.strings[i];
                Parent:=QR.Bands.ColumnHeaderBand;
                Frame.DrawRight:=True;
                Left:=i*col_Width;
                if i=SList.Count-1 then
                Width:=col_Width1
                else
                Width:=col_Width;
              end;
          end;

Как говорится найдите 10 отличий..

[yulia]

Спасибо огромное-преогромное!! Вы очень-очень меня выручили!!