4. Пример реализации программы расчёта средней оценки

Постановка задачи: необходимо организовать хранение информации о студентах: № зачётной книжки, шифр группы, ФИО, год рождения, пол, предмет, среднюю оценку по предмету. Обеспечить расчёт средней оценки для любого студента.

А. Создадим таблицу соответствующей структуры и Windows-приложение для работы с БД (см. методические указания к лабораторной работе №1).

B. Вынесем на макет формы приложения компоненту Edit с именем Edit1, компоненту Label с именем Label1 и компоненту Button с именем Button1 (см. рис. 1). Настроим свойства этих компонент в соответствии с табл. 1. Создадим обработчик события Click для компоненты Button1 и напишем в обработчике следующий код:

 

Var

soz : real;

n : integer;

buf : string[50];

begin

soz:=0;

n:=0;

Table1.First;

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;

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

 

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

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

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

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

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

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

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

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

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

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

 

5. Требования к отчёту

Отчёт оформляется на листах формата А4, на титульном листе указывается название работы, дисциплина, студент, выполнив­ший работу и преподаватель, принявший отчет.

Отчёт должен включать в себя следующие пункты:

1. Постановка задачи (формулировка задания).

2. Условные обозначения, расчетные зависимости.

3. Структура базы данных.

№ п/п	Наименование по­ля	Тип	Размер	Пример
1	Фамилия FAM	Символь­ный	20 симво­лов	Иванов
…	...	…	…	…

 

4. Результаты. Привести листинги всех программных модулей, заголовочных файлов и файлов форм в текстовом виде (осу­ществляется выбором опции view as text из контекстного ме­ню формы), печать отчёта до внесения каких-либо изменений в БД и после этих изменений.