Обработка информации однотабличной базы данных

Помимо хранения, редактирования, обновления и анализа данных в базе данных (БД), на практике часто возникает задача осуществления разного рода расчётов и вычислений с использованием хранящейся в БД информации. Например, для базы данных, хранящей информацию о студентах учебного заведения (см. методические указания к лабораторной работе №1) может возникнуть задача расчёта средней оценки студента по конкретному предмету или расчёта успеваемости группы. Поскольку требуемые расчёты могут быть довольно сложные, необходимо использование программных пакетов разработки приложений, объединяющих в себе как удобные средства доступа к БД различных форматов, так и гибкий язык программирования. С этой точки зрения наиболее удобным инструментом является среда визуальной разработки Windows-приложений Borland Delphi, обеспечивающая доступ к информации БД практически всех существующих форматов и возможность её обработки, используя язык Delphi.

Визуальная навигация и управление данными в Borland Delphi производится с помощью компонент просмотра (DBGrid) и управления (DBNavigator), которые позволяют перемещаться по записям, удалять, добавлять или модифицировать их и т.д.

Программная навигация по записям таблицы возможна ис­пользованием соответствующих методов. Компонента Table ос­нована на базовом классе TTable, в который инкапсулированы следующие методы навигации:

Next - перемещение указателя на следующую запись;

Prior - перемещение указателя на предыдущую запись;

First - перемещение указателя на первую запись таблицы;

Last - перемещение указателя на последнюю запись таблицы.

Например, если создан объект Table, свойством Name ко­торого является значение Table1, то оператор

Table1.First;

переместит указатель на первую запись. Перечисленные методы позволяют последовательно пере­мещать указатель записи по таблице. Для определения последней записи таблицы используется ее свойство Eof, которое принимает значение true, когда указатель установлен на последней записи.

Фрагмент программы

 

Tabl1.Open;

Table1.First; //перемещение на начало таблицы

While not Table1.EOF do //проверка на конец файла

Table1.Next; //перемещение на следующую запись

Table1.Close;

 

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

Для программного управления записями таблицы в класс TTable инкапсулированы следующие методы управле­ния:

Delete - удаление текущей записи с позиционированием указателя на следующую запись;

Insert - добавление пустой записи в таблицу;

Edit – перевод таблицы в режим редактирования;

Post – сохранение изменений в таблице.

Например, фрагмент программы

 

Table1.Last;

Table1.Delete;

позволяет удалить последнюю запись таблицы.

Перечисленные методы позволяют оперировать с целыми записями таблицы.

При обработке данных таблицы часто требуется программ­но получить значение определенного поля записи или записать в него новое значение. Например, в БД студентов учебного заведения необходимо поменять оценку в одной записи, не изменяя значения остальных полей. Подобные операции с полями таблицы тре­буют создания объектов, указывающих на соответствующие поля.

Для создания подобных объектов нужно выполнить следующую последовательность действий:

- нажать правой клавишей мыши на соответствующем объ­екте Table;

- в выведенном меню выбрать опцию Fields Editor, в ре­зультате чего на экране появится диалог редактирования полей;

- нажать правой клавишей мыши в области диалога редак­тирования полей;

- в выведенном меню выбрать опцию Add Fields, в резуль­тате чего на экране появится соответствующий диалог;

- добавить необходимые поля выбором кнопки Ok. В результате диалог редактирования полей должен содер­жать список созданных объектов, свойствакоторых отражены в окне Object Inspector. Каждый из созданных объектов, указываю­щих на соответствующие поля, имеет свойство Name.

Например, для таблицы с именем stud.dbf, содержащей фа­милии студентов и их оценки с именами полей FAM и OZ, для полей FAM и OZ будут созданы объекты с именами Table1[‘FAM ‘]и Table1[‘OZ’].

Созданные объекты позволяютоперироватьс таблицей на уровне полей.

Фрагмент программы

 

Var

Soz: real; //переменная для средней оценки

N: integer; //счётчик записей

Begin

Table1.First;