Add Records into TfrxUserDataSet

Eddi Rae · December 2014

I have a dataset where I am trying to place into the TfrxUserDataSet. I am not sure how to do this.

Here is some of the code.

unit ReportPrinter;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IO_Tools, frxClass;

type
TfrmReport = class(TForm)
ds : TfrxUserDataSet;
frxReport : TfrxReport;
public
procedure ReportSetup;
procedure ScreenPreview;
end;

var
frmReport: TfrmReport;

implementation
uses MainForm;

{$R *.dfm}

(* Get Data from the MainForm to be placed onto the report *)

procedure ReportSetup;
type
//Declare Report Record
TReportRecord = record
Order : string[20];
Tab : string[20];
ReportSection : String[50];
SubSection : String[20];
CommonFieldName : String[50];
CommonLabelName : String[50];
HotFieldName : String[50];
HotLabelName : String[50];
ColdFieldName : String[50];
ColdLabelName : String[50];
end;

var
ReportRecords : array[1..89] of tReportRecord;
begin
//Add Records to TReportRecord
with ReportRecords[1] do
begin
Order := '1.01';
Tab := '';
ReportSection := 'Company';
SubSection := '';
CommonFieldName := 'tester';
CommonLabelName := '';
HotFieldName := '';
HotLabelName := '';
ColdFieldName := '';
ColdLabelName := '';
end;
// (88 more records come after this)

//Fill dataset

// I am not sure how to add these records to the ds dataset

frmReport.ds.RangeEnd := recount;
frmReport.ds.RangeEndCount := 89;

end;

procedure ScreenPreview();
begin
ReportSetup;
frxReport.PreviewOptions.Maximized := false;
frxFinReport.PreviewOptions.Buttons :=[pbPrint, pbPageSetup, pbNavigator];
frxReport.ShowReport;
end;

I don't seem to know how to attach the records that were created in the ReportSetup procedure into the dataset.

Any help would be greatly appreciated.

Eddi Rae

gordk · December 2014

take a look at the masterdetailuds project in the demos folder

Eddi Rae · December 2014

So I should have my array as follows ...

ReportRecords : array[1..89, 1..2, 1..2, 1..2, 1..2, 1..2, 1..2, 1..2, 1..2, 1..2, 1..2] of String = ( ; //Record Number, Order, Tab, ReportSection, SubSection, CommonFieldName, CommonLabelName, HotFieldName, HotLabelName, ColdFieldName, ColdLabelName

('01', '1.01','','Company','','tester', '', '', '', '', '')

all the rest of the records

)

Would I have to do the above or could I fill the dataset with the records as I have them defined?

I am still not seeing how to fill the dataset with ALL of the records in the demo that you said to look at.

gpi · December 2014

You should use TfrxUserDataset OnFirst, OnNext, OnPrior, OnGetValue, OnCheckEOF events

Eddi Rae · December 2014

I am not understanding why this would help. I am only trying to fill the dataset with the array. Would the way that I am defining the array be correct?

gpi · December 2014

See a demo in the C:\Program Files (x86)\FastReports\FastReport 5\Demos\MasterDetailUDS folder

Eddi Rae · December 2014

Those are 2-dimensional arrays on both the Master and the Detail. I have 10 elements for each record that I need to use in the Master. Can you associate a "record" with a Master?

gpi · December 2014

wrote:

Can you associate a "record" with a Master?

Yes, use OnGetValue event

Eddi Rae · December 2014

Please elaborate.

I am not very familiar on coding in Delphi, so just telling me what to use without an example doesn't help me at all.

I am trying to use what I initially posted and I am not getting any values when I run the report. I am thinking that this is the way to do it, but I don't see how to connect to the report. I do have the Master linked to the dataset. So how do I link the record type into the dataset.

Add Records into TfrxUserDataSet

Comments

Leave a Comment