VPF::Как напечатать форму с полями из текстового файла

Keeper89

Дата 30.5.2009, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

У меня вообще пустой отчет выводится, ни ФИО, ничего.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Sliva

Дата 30.5.2009, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

Я прикрепила еще текстовый файл, его надо открыть и потом нажать на печать удостоверений.

Keeper89

Дата 30.5.2009, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Повозился, кое-что получилось.

замените на форме отчета замените объект где выводится имя сотрудника на еще один TQRLabel (у меня это qrFIO).
Измените код на следующий:

Код


procedure Tfm.N3Click(Sender: TObject);
var i: integer;
begin
  SomeList := TStringlist.Create;
  for i := 0 to kol-1 do
    SomeList.Add(tempSum[i]);
  CurrentIndex:=0;

  fmUd.qrBand.Items.Clear;
  fmUd.qrBand.Items.add('');
  fmUd.QuickRep1.Preview;
end;

procedure TfmUd.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  MoreData := CurrentIndex < SomeList.Count;
  if MoreData then
  begin
    qrFIO.Caption := tempFam[CurrentIndex] + ' ' +
                     tempOt[CurrentIndex] + ' ' +
                     tempN[CurrentIndex];
    QRNNN.Caption := SomeList[CurrentIndex];
    Inc(CurrentIndex);
  end;
end;

На всякий случай прикрепляю измененный проект.

Присоединённый файл ( Кол-во скачиваний: 8 )

_____________________________________.rar 846,53 Kb

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Sliva

Дата 30.5.2009, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

о!!!!!!!!!!!!!!!!!!!!!! СПАСИБО ОГРОМННЕЙШЕЕ!!!!!!!!!!! smile

Получается, что не нужно было заполнять qrStringsBand???

Keeper89

Дата 30.5.2009, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Ну не то что бы не надо. Я сам никогда не работал с QuickReport (отчеты в Word для меня привычнее), но по-моему надо создавать один Band и через добавление данных в QuickRep1NeedData он сам "расксерит" их в необходимом кол-ве. Что я и сделал, собственно.

Это сообщение отредактировал(а) Keeper89 - 30.5.2009, 16:52

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »