While not Table1.EOF do begin

/* проверка совпадения поля FAM и текста в Edit1*/

if (Table1[‘FAM’] = Editl.Text) then begin

soz:=soz+Table1[‘OZ’];

n:=n+1;

end;

Table1.Next;

End;

If (n<>0) then soz:=soz/n;

buf:="Средняя оценка:”+FloatToStr(soz);

Label1.Caption:= buf;

QRLabel10.Caption:= buf;

End;

C. Создадим вторую форму выбором меню File->New. Вынесем на форму компоненту QuickRep из вкладки QReport.. Вынесем на форму отчёта три компоненты QRBand (со свойствами BandType rbTitle, rbDetail и rbSummary). На заголовочную полосу вынесем компоненты QRLabel и настроим свойство Caption для отображения названия отчёта и столбцов. На полосу данных вынесем компоненты QRDBText и настроим их на связь с соответствующими полями. На последнюю полосу вынесем компоненту QRLabel c именем QRLabel10. Внешний вид и расположение компонент соответствует рис. 3. Просмотр отчёта организуем добавлением компоненты Button2 и обработчиком события Click следующего содержания:

Form2:=TForm2.Create(Self);

Form2.QuickRep1.Preview;

Form2.Free;

После компиляции проекта необходимо проверить правильность работы программы.

Контрольные вопросы

1. Программная навигация по записям таблицы.

2. Методы для работы с записями таблицы (пример использования).

3. Доступ к значениям полей данных в программе (пример).

4. Осуществление ввода данных пользователем с помощью компоненты Edit (пример).

5. Функции преобразования типов данных.

6. Вывод рассчитанных значений на форму приложения.

7. Создание обработчика события для компоненты Borland Delphi.

8. Создание отчёта c помощью компоненты TRVTableConnect.

9. Компоненты, обеспечивающие вывод данных в отчёт.