Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>The CrossTab have many overhead. Here is a UserDataSet version :</p> <ol> <li><p>Just drop 1 stringgrid, 1 button, 1 frxReport, 1 frxUserDataSet in the form.</p></li> <li><p>Set the frxUserDataSet events, Form OnCreate and Buttom OnClick as below code.</p></li> <li><p>No need to Design Report or set any properties, All will be set or generated at run-time.</p></li> </ol> <p>It seems it is faster than the cross-tab version but you need more coding and lost functionality of CrossObject.</p> <p>Edit : Add some comments and fix PaperWidth mis-calculation.</p> <p>Edit2 : Add a print-friendly version which split data into pages.</p> <p>View Friendly version show in 1 single page as the stringgrid :</p> <pre><code>unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, frxClass, Grids, StdCtrls; type TForm1 = class(TForm) Button1: TButton; StringGrid1: TStringGrid; frxReport1: TfrxReport; frxUserDataSet1: TfrxUserDataSet; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure frxUserDataSet1Next(Sender: TObject); procedure frxUserDataSet1GetValue(const VarName: string; var Value: Variant); procedure frxUserDataSet1CheckEOF(Sender: TObject; var Eof: Boolean); procedure frxUserDataSet1First(Sender: TObject); private X, Y, TCol, TRow : Integer; IsEof : Boolean; CW, CH, PF : Double; Page : TfrxReportPage; MDB : TfrxMasterData; Memo : TfrxMemoView; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var BW : Double; begin IsEof := False; Page.PaperWidth := CW * TCol + 20; // EndlessWidth seems not work with band column MDB.SetBounds(0,0, CW * PF * TCol, CH * PF); MDB.Columns := TCol; MDB.ColumnWidth := CW * PF; frxReport1.ShowReport; end; procedure TForm1.FormCreate(Sender: TObject); var i, j : Integer; begin CW := 12; // Cell Width in mm CH := 5; // Cell Height in mm PF := 3.7794; // Pixie Factor i.e. the conversion of mm to FR component measurement TCol := 2000; // Total Column TRow := 16; // Total Row for i := 1 to TRow do for j := 1 to TCol do StringGrid1.Cells[i - 1, j - 1] := IntToStr(i * j); frxUserDataSet1.Fields.Text := 'Data'; frxReport1.Clear; frxReport1.DataSets.Add(frxUserDataSet1); Page := TfrxReportPage.Create(frxReport1); Page.CreateUniqueName; Page.TopMargin := 10; Page.BottomMargin := 10; Page.LeftMargin := 10; Page.RightMargin := 10; Page.EndlessHeight := True; Page.EndlessWidth := True; MDB := TfrxMasterData.Create(Page); MDB.DataSet := frxUserDataSet1; Memo := TfrxMemoView.Create(MDB); Memo.SetBounds(0,0,CW * PF,CH * PF); Memo.Memo.Text := '[frxUserDataSet1."Data"]'; Memo.Frame.Typ := [ftLeft, ftRight, ftTop, ftBottom]; end; procedure TForm1.frxUserDataSet1CheckEOF(Sender: TObject; var Eof: Boolean); begin Eof := IsEof; end; procedure TForm1.frxUserDataSet1First(Sender: TObject); begin X := 0; Y := 0; end; procedure TForm1.frxUserDataSet1GetValue(const VarName: string; var Value: Variant); begin Value := StringGrid1.Cells[X,Y]; end; procedure TForm1.frxUserDataSet1Next(Sender: TObject); begin If Y = TCol - 1 then begin if X = TRow - 1 then IsEof := True; Inc(X); Y := 0; end else Inc(Y); end; end. </code></pre> <p>Print-friendly version which is a bit more complex and separate data in different pages for printing :</p> <pre><code>unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, frxClass, Grids, StdCtrls; type TForm1 = class(TForm) Button1: TButton; StringGrid1: TStringGrid; frxReport1: TfrxReport; frxUserDataSet1: TfrxUserDataSet; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure frxUserDataSet1Next(Sender: TObject); procedure frxUserDataSet1GetValue(const VarName: string; var Value: Variant); procedure frxUserDataSet1CheckEOF(Sender: TObject; var Eof: Boolean); procedure frxUserDataSet1First(Sender: TObject); private X, Y, TCol, TRow, RPP, ColBreak : Integer; IsEof : Boolean; CW, CH, PF : Double; Page : TfrxReportPage; MDB : TfrxMasterData; Memo : TfrxMemoView; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Math; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var BW : Double; begin IsEof := False; RPP := Ceil((Page.PaperHeight - Page.TopMargin - Page.BottomMargin) / CH) - 1; // Row per page ColBreak := RPP; // break to next column frxReport1.ShowReport; end; procedure TForm1.FormCreate(Sender: TObject); var i, j : Integer; begin CW := 12; // Cell Width in mm CH := 5; // Cell Height in mm PF := 3.7794; // Pixil Factor i.e. the conversion of mm to FR component measurement TCol := 2000; // Total Column TRow := 16; // Total Row for i := 1 to TRow do for j := 1 to TCol do StringGrid1.Cells[i - 1, j - 1] := IntToStr(i * j); frxUserDataSet1.Fields.Text := 'Data'; frxReport1.Clear; frxReport1.DataSets.Add(frxUserDataSet1); Page := TfrxReportPage.Create(frxReport1); Page.CreateUniqueName; Page.TopMargin := 10; Page.BottomMargin := 10; Page.LeftMargin := 10; Page.RightMargin := 10; Page.Columns := Ceil(Page.PaperWidth / CW); MDB := TfrxMasterData.Create(Page); MDB.DataSet := frxUserDataSet1; MDB.SetBounds(0,0, CW * PF, CH * PF); Memo := TfrxMemoView.Create(MDB); Memo.Align := baClient; Memo.Memo.Text := '[frxUserDataSet1."Data"]'; Memo.Frame.Typ := [ftLeft, ftRight, ftTop, ftBottom]; end; procedure TForm1.frxUserDataSet1CheckEOF(Sender: TObject; var Eof: Boolean); begin Eof := IsEof; end; procedure TForm1.frxUserDataSet1First(Sender: TObject); begin X := 0; Y := 0; end; procedure TForm1.frxUserDataSet1GetValue(const VarName: string; var Value: Variant); begin Value := StringGrid1.Cells[X,Y]; end; procedure TForm1.frxUserDataSet1Next(Sender: TObject); begin If X = TRow - 1 then begin if Y = TCol - 1 then IsEof := True else begin frxReport1.Engine.NewColumn; Inc(Y); X := ColBreak - RPP; end; end else if (X = ColBreak - 1) then begin if Y = TCol - 1 then begin frxReport1.Engine.NewPage; ColBreak := ColBreak + RPP; Y := 0; end else Inc(Y); frxReport1.Engine.NewColumn; X := ColBreak - RPP; end else Inc(X); end; end. </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POPerformances with FastReport TFrxCrossObject and large Grids (> 1000 rows)
      singulars
      1. PTQuestion
    1. PTAnswer
    1. USJustmade
    1. USJustmade
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POPerformances with FastReport TFrxCrossObject and large Grids (> 1000 rows)
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COIn my notebook computer (i5 2.4GHz, 4GRam), the original version show first page at 2.5 seconds and ready (all page loaded) at 9 seconds. My Display version (1 large pages) ready at 2.5 seconds. My Print version show first page instantly and ready (112 pages) at 1.5 seconds. 2000 Col X 200 Row show first page instantly and ready (448 pages) at 10.5 seconds. 2000 Col X 2000 Row show first page instantly and ready (4144 pages) at 104 seconds.
      singulars
      1. PO
      1. USJustmade
    2. COSeems to be a right way. I'll test it today.
      singulars
      1. PO
      1. USphilnext
    3. CO@philnext If you are using DBGrid / DataSet, Y can change to field index and the Inc(X) change to DataSet.Next and you may need a Bookmark for column break. So in the getvalue event you can provide DataSet.Fields[Y].Value.
      singulars
      1. PO
      1. USJustmade
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload