FastReport. Динамический вывод 200 записей

В данной статье посмотрим как вывести большое число данных. Для этого, с одной стороны воспользуемся техникой ArrayDML из FireDAC, а с другой стороны возможностями FastReport по выводу данных на страницы. И вот какой результат у нас получится.

Начнем!

Создадим VCL приложение

Добавим DataModule со следующими компонентами

В FDQuery_Users.SQL пропишем такой текст

select*from users

1	select*from users

Вот как будет выглядеть наше приложение

Создание 200 записей в БД

Используйте любую БД для экспериментов. У меня она состояла всего из одной таблицы

Итак, воспользуемся техникой ArrayDML из FireDAC для создания 200 записей в БД

procedure TMainForm.FillArrayClick(Sender: TObject);

var 
  i:integer;
  const ArraySize=200;
begin
  with DataModule do
    begin     
     FDQuery.SQL.Clear;
     FDQuery.SQL.Add('delete from users');
     FDQuery.ExecSQL;
     FDQuery.SQL.Clear;
     FDQuery.Params.Clear;
     FDQuery.SQL.Text:=(
   'INSERT INTO `aphina_db`.`users` (`idUsers`,`Name`, `Family`, `Role`, `Login`, `Password`, `E-mail`, `Balance`)'+
   'VALUES (:idUsers,:name, :family, :role, :login, :password, :email, :balance);'
   );

   FDQuery.Params.ArraySize:=ArraySize;
   for i := 0 to ArraySize-1 do
     begin
      FDQuery.Params[0].AsIntegers[i]:=i+1;
      FDQuery.Params[1].AsStrings[i]:='someName';
      FDQuery.Params[2].AsStrings[i]:='someFamily';
      FDQuery.Params[3].AsStrings[i]:='someRole';
      FDQuery.Params[4].AsStrings[i]:='someLogin';
      FDQuery.Params[5].AsStrings[i]:='somePassword';
      FDQuery.Params[6].AsStrings[i]:='someE-mail';
      FDQuery.Params[7].AsFloats[i]:=10.12;
     end;
   FDQuery.Execute(ArraySize,0);
  end;

procedure TMainForm.FillArrayClick(Sender: TObject);

var

i:integer;

const ArraySize=200;

begin

with DataModule do

begin

FDQuery.SQL.Clear;

FDQuery.SQL.Add('delete from users');

FDQuery.ExecSQL;

FDQuery.SQL.Clear;

FDQuery.Params.Clear;

FDQuery.SQL.Text:=(

'INSERT INTO `aphina_db`.`users` (`idUsers`,`Name`, `Family`, `Role`, `Login`, `Password`, `E-mail`, `Balance`)'+

'VALUES (:idUsers,:name, :family, :role, :login, :password, :email, :balance);'

);

FDQuery.Params.ArraySize:=ArraySize;

for i := 0 to ArraySize-1 do

begin

FDQuery.Params[0].AsIntegers[i]:=i+1;

FDQuery.Params[1].AsStrings[i]:='someName';

FDQuery.Params[2].AsStrings[i]:='someFamily';

FDQuery.Params[3].AsStrings[i]:='someRole';

FDQuery.Params[4].AsStrings[i]:='someLogin';

FDQuery.Params[5].AsStrings[i]:='somePassword';

FDQuery.Params[6].AsStrings[i]:='someE-mail';

FDQuery.Params[7].AsFloats[i]:=10.12;

end;

FDQuery.Execute(ArraySize,0);

end;

В результате в БД у нас будут следующие записи в количестве 200 штук…

Динамический вывод данных в отчет FastReport

procedure TMainForm.bShowDynamicReportClick(Sender: TObject);
var
    Page: TfrxReportPage;
    Memo: TfrxMemoView;
    TitleBand:TFrxReportTitle;
    DataBand :TfrxMasterData;
    HeaderBand: TfrxHeader;
    Gradient:TFrxGradientView;
    FooterBand:TfrxFooter;
begin
   frxReport1.Clear;

                  { ДОБАВЛЯЕМ ТИТУЛЬНУЮ, ПЕРВУЮ СТРАНИЦУ }

  Page := TfrxReportPage.Create(frxReport1);
  { создаем уникальное имя }
  Page.CreateUniqueName;
  { устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
  Page.SetDefaults;
                  { добавляем memo на страницу }

  Memo := TfrxMemoView.Create(Page);
  Memo.CreateUniqueName;
  Memo.Text := 'My Dynamic'+#13#10+#13#10+'FastReport with Lots of Data!' ;
  Memo.Top:=trunc(Page.Height/3); 
  Memo.Height:=200;
 //Оформляем
  Memo.Color:=clBlue;
  Memo.Font.Size:=30;
  Memo.Font.Style:=[fsBold];
  Memo.Font.Color:=clWhite;

  //Центрируем
  Memo.VAlign:=vaCenter;
  Memo.HAlign:=haCenter;
  { этот объект будет растянут на ширину бэнда }
  Memo.Align:=baWidth;
////////////////////////////////////////////////////

                      {ДОБАВЛЯЕМ СТРАНИЦУ С ДАННЫМИ}

  { добавляем страницу }
  Page := TfrxReportPage.Create(frxReport1);
  { создаем уникальное имя }
  Page.CreateUniqueName;
  { устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
  Page.SetDefaults;
                      {СОЗДАЕМ BAND REPORT TITLE}

  TitleBand:=TFrxReportTitle.Create(Page);
  TitleBand.CreateUniqueName;
  TitleBand.Top:=0;
  TitleBand.Height:=40;

                      {ДОБАВЛЯЕМ НА НЕГО MEMO}

  Memo:=TFrxMemoView.Create(TitleBand);
  Memo.CreateUniqueName;
  Memo.Text:='Привет! Это надпись на ReportTitle, градиент снизу также находится на ReportTitle ';
  Memo.Height:=20;
  Memo.Align:=baWidth;
  Memo.HAlign:=haCenter;
  Memo.Font.Style:=[fsBold,fsItalic];
  Memo.Font.Color:=clGray;

                       {ДОБАВЛЯЕМ ИСТОЧНИК ДАННЫХ}

  frxReport1.DataSets.Add(frxDBDataset1);

                        {ДОБАВЛЯЕМ ГРАДИЕНТ}

  Gradient:=TFrxGradientView.Create(TitleBand);
  Gradient.CreateUniqueName;
  Gradient.SetBounds(0,21,TitleBand.Width,19);
  Gradient.BeginColor:=clWhite;
  Gradient.EndColor:=clBlue;
  Gradient.Visibility:=[vsPreview,vsExport,vsPrint];
  //Gradient.Color:=$00C08080;
  Gradient.Style:=gsHorizontal;
  Gradient.Visible:=true;
  Gradient.Align:=baWidth;//Ключевой параметр,благодаря которому градиент появляется

                       {ДОБАВЛЯЕМ HEADER для данных}

  HeaderBand := TfrxHeader.Create(Page);
  HeaderBand.CreateUniqueName;
  HeaderBand.Top:=TitleBand.Top+TitleBand.Height+1;
  HeaderBand.Height:=40;

                       {ДОБАВЛЯЕМ ДАННЫЕ НА HEADER - ПОДПИСИ ДАННЫХ}


         {ИМЯ}
  memo:=TfrxMemoView.Create(HeaderBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.Text:='Имя';
  memo.SetBounds(21,20,100,20);
  memo.HAlign:=haCenter;
  memo.Font.Style:=[fsBold];

         {ФАМИЛИЯ}
  memo:=TfrxMemoView.Create(HeaderBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.Text:='Фамилия';
  memo.SetBounds(101,20,100,20);
  memo.HAlign:=haCenter;
  memo.Font.Style:=[fsBold];

                       {ДОБАВЛЯЕМ DATABAND для данных}

  DataBand:=TfrxMasterData.Create(page);
  DataBand.CreateUniqueName;
  DataBand.DataSet:=frxDBDataset1;

  {Размещаем его на странице, так чтобы не было пересечений с предыдущим}
  DataBand.Top:=HeaderBand.Top+HeaderBand.Height+1;
  DataBand.Height:=40;

                       {ДОБАВЛЯЕМ НА DATABAND данные}

         {ПОЛЕ НОМЕР}
  memo:=TfrxMemoView.Create(DataBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.DataSet:=frxDBDataset1;
  memo.DataField:='idUsers';
  memo.SetBounds(0,20,30,20);
  memo.HAlign:=haCenter;

         {ПОЛЕ NAME}
  memo:=TfrxMemoView.Create(DataBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.DataSet:=frxDBDataset1;
  memo.DataField:='Name';
  memo.SetBounds(31,20,100,20);
  memo.HAlign:=haCenter;

         {ПОЛЕ FAMILY}
  memo:=TfrxMemoView.Create(DataBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.DataSet:=frxDBDataset1;
  memo.DataField:='Family';
  memo.SetBounds(101,20,100,20);
  memo.HAlign:=haCenter;

         {ПОЛЕ Role}
  memo:=TfrxMemoView.Create(DataBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.DataSet:=frxDBDataset1;
  memo.DataField:='Role';
  memo.SetBounds(201,20,100,20);
  memo.HAlign:=haCenter;

         {ПОЛЕ Login}
  memo:=TfrxMemoView.Create(DataBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.DataSet:=frxDBDataset1;
  memo.DataField:='Login';
  memo.SetBounds(301,20,100,20);
  memo.HAlign:=haCenter;

         {ПОЛЕ Password}
  memo:=TfrxMemoView.Create(DataBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.DataSet:=frxDBDataset1;
  memo.DataField:='Password';
  memo.SetBounds(401,20,100,20);
  memo.HAlign:=haCenter;

         {ПОЛЕ Email}
  memo:=TfrxMemoView.Create(DataBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.DataSet:=frxDBDataset1;
  memo.DataField:='E-mail';
  memo.SetBounds(501,20,100,20);
  memo.HAlign:=haCenter;

         {ПОЛЕ Balance}
  memo:=TfrxMemoView.Create(DataBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.DataSet:=frxDBDataset1;
  memo.DataField:='Balance';
  memo.SetBounds(601,20,100,20);
  memo.HAlign:=haCenter;

                        {ДОБАВЛЯЕМ FOOTER ДАННЫХ}
  FooterBand:=TfrxFooter.Create(Page);
  FooterBand.CreateUniqueName;
  FooterBand.Top:=DataBand.Top+DataBand.Height;
  FooterBand.Height:=40;

         {ПОДПИСЬ В ПОДВАЛЕ ДАННЫХ}
  memo:=TfrxMemoView.Create(FooterBand);
  memo.CreateUniqueName;
  //Подключение к данным
  memo.Text:='А это надпись из подвала данных на memo, градиент снизу   тоже в подвале данных';
  memo.SetBounds(0,0,FooterBand.Width,20);
  memo.HAlign:=haCenter;
  memo.Font.Color:=clGray;
  memo.Font.Style:=[fsBold,fsItalic];
  memo.Align:=baWidth;

                        {ДОБАВЛЯЕМ ГРАДИЕНТ НА FOOTER}

  Gradient:=TFrxGradientView.Create(FooterBand);
  Gradient.CreateUniqueName;
  Gradient.SetBounds(0,21,FooterBand.Width,19);
  Gradient.BeginColor:=clWhite;
  Gradient.EndColor:=clNavy;
  Gradient.Visibility:=[vsPreview,vsExport,vsPrint];
  Gradient.Color:=$00C08080;
  Gradient.Style:=gsHorizontal;
  Gradient.Visible:=true;
  Gradient.Align:=baWidth;//Ключевой параметр,благодаря которому градиент   появляется
///////////////////////////////////////////////////

            { ДОБАВЛЯЕМ ФИНАЛЬНУЮ СТРАНИЦУ }

  Page := TfrxReportPage.Create(frxReport1);
  { создаем уникальное имя }
  Page.CreateUniqueName;
  { устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
  Page.SetDefaults;


                  { добавляем MEMO }

  Memo := TfrxMemoView.Create(Page);
  Memo.CreateUniqueName;
  Memo.Text := 'Last Page!' ;

  Memo.Top:=trunc(Page.Height/4);
  Memo.Height:=200;

  Memo.Font.Size:=24;
  Memo.Font.Style:=[fsBold];
  //Центрируем
  Memo.VAlign:=vaCenter;
  Memo.HAlign:=haCenter;
  { этот объект будет растянут на ширину бэнда }
  Memo.Align:=baWidth;
  frxReport1.PreviewOptions.ThumbnailVisible:=true;
  { показываем отчет }
  frxReport1.ShowReport;
end;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

procedure TMainForm.bShowDynamicReportClick(Sender: TObject);

var

Page: TfrxReportPage;

Memo: TfrxMemoView;

TitleBand:TFrxReportTitle;

DataBand :TfrxMasterData;

HeaderBand: TfrxHeader;

Gradient:TFrxGradientView;

FooterBand:TfrxFooter;

begin

frxReport1.Clear;

{ ДОБАВЛЯЕМ ТИТУЛЬНУЮ, ПЕРВУЮ СТРАНИЦУ }

Page := TfrxReportPage.Create(frxReport1);

{ создаем уникальное имя }

Page.CreateUniqueName;

{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }

Page.SetDefaults;

{ добавляем memo на страницу }

Memo := TfrxMemoView.Create(Page);

Memo.CreateUniqueName;

Memo.Text := 'My Dynamic'+#13#10+#13#10+'FastReport with Lots of Data!' ;

Memo.Top:=trunc(Page.Height/3);

Memo.Height:=200;

//Оформляем

Memo.Color:=clBlue;

Memo.Font.Size:=30;

Memo.Font.Style:=[fsBold];

Memo.Font.Color:=clWhite;

//Центрируем

Memo.VAlign:=vaCenter;

Memo.HAlign:=haCenter;

{ этот объект будет растянут на ширину бэнда }

Memo.Align:=baWidth;

////////////////////////////////////////////////////

{ДОБАВЛЯЕМ СТРАНИЦУ С ДАННЫМИ}

{ добавляем страницу }

Page := TfrxReportPage.Create(frxReport1);

{ создаем уникальное имя }

Page.CreateUniqueName;

{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }

Page.SetDefaults;

{СОЗДАЕМ BAND REPORT TITLE}

TitleBand:=TFrxReportTitle.Create(Page);

TitleBand.CreateUniqueName;

TitleBand.Top:=0;

TitleBand.Height:=40;

{ДОБАВЛЯЕМ НА НЕГО MEMO}

Memo:=TFrxMemoView.Create(TitleBand);

Memo.CreateUniqueName;

Memo.Text:='Привет! Это надпись на ReportTitle, градиент снизу также находится на ReportTitle ';

Memo.Height:=20;

Memo.Align:=baWidth;

Memo.HAlign:=haCenter;

Memo.Font.Style:=[fsBold,fsItalic];

Memo.Font.Color:=clGray;

{ДОБАВЛЯЕМ ИСТОЧНИК ДАННЫХ}

frxReport1.DataSets.Add(frxDBDataset1);

{ДОБАВЛЯЕМ ГРАДИЕНТ}

Gradient:=TFrxGradientView.Create(TitleBand);

Gradient.CreateUniqueName;

Gradient.SetBounds(0,21,TitleBand.Width,19);

Gradient.BeginColor:=clWhite;

Gradient.EndColor:=clBlue;

Gradient.Visibility:=[vsPreview,vsExport,vsPrint];

//Gradient.Color:=$00C08080;

Gradient.Style:=gsHorizontal;

Gradient.Visible:=true;

Gradient.Align:=baWidth;//Ключевой параметр,благодаря которому градиент появляется

{ДОБАВЛЯЕМ HEADER для данных}

HeaderBand := TfrxHeader.Create(Page);

HeaderBand.CreateUniqueName;

HeaderBand.Top:=TitleBand.Top+TitleBand.Height+1;

HeaderBand.Height:=40;

{ДОБАВЛЯЕМ ДАННЫЕ НА HEADER - ПОДПИСИ ДАННЫХ}

{ИМЯ}

memo:=TfrxMemoView.Create(HeaderBand);

memo.CreateUniqueName;

//Подключение к данным

memo.Text:='Имя';

memo.SetBounds(21,20,100,20);

memo.HAlign:=haCenter;

memo.Font.Style:=[fsBold];

{ФАМИЛИЯ}

memo:=TfrxMemoView.Create(HeaderBand);

memo.CreateUniqueName;

//Подключение к данным

memo.Text:='Фамилия';

memo.SetBounds(101,20,100,20);

memo.HAlign:=haCenter;

memo.Font.Style:=[fsBold];

{ДОБАВЛЯЕМ DATABAND для данных}

DataBand:=TfrxMasterData.Create(page);

DataBand.CreateUniqueName;

DataBand.DataSet:=frxDBDataset1;

{Размещаем его на странице, так чтобы не было пересечений с предыдущим}

DataBand.Top:=HeaderBand.Top+HeaderBand.Height+1;

DataBand.Height:=40;

{ДОБАВЛЯЕМ НА DATABAND данные}

{ПОЛЕ НОМЕР}

memo:=TfrxMemoView.Create(DataBand);

memo.CreateUniqueName;

//Подключение к данным

memo.DataSet:=frxDBDataset1;

memo.DataField:='idUsers';

memo.SetBounds(0,20,30,20);

memo.HAlign:=haCenter;

{ПОЛЕ NAME}

memo:=TfrxMemoView.Create(DataBand);

memo.CreateUniqueName;

//Подключение к данным

memo.DataSet:=frxDBDataset1;

memo.DataField:='Name';

memo.SetBounds(31,20,100,20);

memo.HAlign:=haCenter;

{ПОЛЕ FAMILY}

memo:=TfrxMemoView.Create(DataBand);

memo.CreateUniqueName;

//Подключение к данным

memo.DataSet:=frxDBDataset1;

memo.DataField:='Family';

memo.SetBounds(101,20,100,20);

memo.HAlign:=haCenter;

{ПОЛЕ Role}

memo:=TfrxMemoView.Create(DataBand);

memo.CreateUniqueName;

//Подключение к данным

memo.DataSet:=frxDBDataset1;

memo.DataField:='Role';

memo.SetBounds(201,20,100,20);

memo.HAlign:=haCenter;

{ПОЛЕ Login}

memo:=TfrxMemoView.Create(DataBand);

memo.CreateUniqueName;

//Подключение к данным

memo.DataSet:=frxDBDataset1;

memo.DataField:='Login';

memo.SetBounds(301,20,100,20);

memo.HAlign:=haCenter;

{ПОЛЕ Password}

memo:=TfrxMemoView.Create(DataBand);

memo.CreateUniqueName;

//Подключение к данным

memo.DataSet:=frxDBDataset1;

memo.DataField:='Password';

memo.SetBounds(401,20,100,20);

memo.HAlign:=haCenter;

{ПОЛЕ Email}

memo:=TfrxMemoView.Create(DataBand);

memo.CreateUniqueName;

//Подключение к данным

memo.DataSet:=frxDBDataset1;

memo.DataField:='E-mail';

memo.SetBounds(501,20,100,20);

memo.HAlign:=haCenter;

{ПОЛЕ Balance}

memo:=TfrxMemoView.Create(DataBand);

memo.CreateUniqueName;

//Подключение к данным

memo.DataSet:=frxDBDataset1;

memo.DataField:='Balance';

memo.SetBounds(601,20,100,20);

memo.HAlign:=haCenter;

{ДОБАВЛЯЕМ FOOTER ДАННЫХ}

FooterBand:=TfrxFooter.Create(Page);

FooterBand.CreateUniqueName;

FooterBand.Top:=DataBand.Top+DataBand.Height;

FooterBand.Height:=40;

{ПОДПИСЬ В ПОДВАЛЕ ДАННЫХ}

memo:=TfrxMemoView.Create(FooterBand);

memo.CreateUniqueName;

//Подключение к данным

memo.Text:='А это надпись из подвала данных на memo, градиент снизу тоже в подвале данных';

memo.SetBounds(0,0,FooterBand.Width,20);

memo.HAlign:=haCenter;

memo.Font.Color:=clGray;

memo.Font.Style:=[fsBold,fsItalic];

memo.Align:=baWidth;

{ДОБАВЛЯЕМ ГРАДИЕНТ НА FOOTER}

Gradient:=TFrxGradientView.Create(FooterBand);

Gradient.CreateUniqueName;

Gradient.SetBounds(0,21,FooterBand.Width,19);

Gradient.BeginColor:=clWhite;

Gradient.EndColor:=clNavy;

Gradient.Visibility:=[vsPreview,vsExport,vsPrint];

Gradient.Color:=$00C08080;

Gradient.Style:=gsHorizontal;

Gradient.Visible:=true;

Gradient.Align:=baWidth;//Ключевой параметр,благодаря которому градиент появляется

///////////////////////////////////////////////////

{ ДОБАВЛЯЕМ ФИНАЛЬНУЮ СТРАНИЦУ }

Page := TfrxReportPage.Create(frxReport1);

{ создаем уникальное имя }

Page.CreateUniqueName;

{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }

Page.SetDefaults;

{ добавляем MEMO }

Memo := TfrxMemoView.Create(Page);

Memo.CreateUniqueName;

Memo.Text := 'Last Page!' ;

Memo.Top:=trunc(Page.Height/4);

Memo.Height:=200;

Memo.Font.Size:=24;

Memo.Font.Style:=[fsBold];

//Центрируем

Memo.VAlign:=vaCenter;

Memo.HAlign:=haCenter;

{ этот объект будет растянут на ширину бэнда }

Memo.Align:=baWidth;

frxReport1.PreviewOptions.ThumbnailVisible:=true;

{ показываем отчет }

frxReport1.ShowReport;

end;

Выводы

“Портянка” кода получилась порядочная. Но ничего сложного в ней нет. Каких-то супералгоритмов нет – простая разметка, я бы сказал. Просто и элементов у нас порядком на странице вышло. Можно, конечно всё это логически делить на различные юниты и так далее,чтобы повысить читабельность, но в данной статье была другая цель.

Что мне понравилось в FastReport! Мне абсолютно не надо думать о том, влезают данные на страницу или нет. FastReport делает всё это в автоматическом режиме – мы просто получаем отчет.

Конечно, да, тут много что можно усовершенствовать, но мне хотелось на принципиальном уровне понять, как будет работать FastReport с относительно большим количеством данных. И всё сработало как нужно – отчет сформировался таким каким нужно!

В следующей статье посмотрим как выводить данные по выбору пользователя! Оставайтесь с нами.

FastReport. Динамический вывод 200 записей

Начнем!

Создание 200 записей в БД

Динамический вывод данных в отчет FastReport

Выводы

MY PROJECTS

Recent Posts

Categories