Формирование системы Gruppa

Перейдя на страницу Список групп расположим на ней Table1, Table2, 2 DataSource, 2 DbGrid, 3 кнопки Button, 4 текстовых поля Edit, 4 Label и 1 GroupBox. Затем установим для них свойства (см. рисунок 9):

Рисунок 9 - Страница «Список групп»

Соединяем Table1, Table2 с базой данных устанавливая свойство DatabaseName=date. А также для таблицы Table1 устанавливаем имя таблицы, из которой мы берем записи Tablename=Student, Datasource6 устанавливаем Table1. Для таблицы Table2 устанавливаем имя таблицы, из которой мы берем записи Tablename=Gruppa, Datasource2 устанавливаем Table2. Для того чтобы связать таблицы Table1 и Table2, таким образом чтобы установив в таблице Gruppa курсор на ту или иную группу в таблице Student выводились только те записи, которые соответствуют данной группе. Для этого установим у Table1 Student свойства: Mastersource=Datasource2, MasterFields=gruppa (смотреть рисунок), IndexFieldName=gruppa.

Для того чтобы внести новую группу необходимо внести значения Группу, Год поступления и Эдвайзера в соответствующие Edit4, Edit5, Edit6, затем нажать кнопку «Вставить», ниже представлен обработчик OnClick:

Рисунок 10 -  Процесс соединения MasterFields для таблиц

procedure TForm1.Button8Click(Sender: TObject);

begin

table2.Insert;

Table2.Fields[0].AsString:= Edit4.Text;

Table2.Fields[1].AsString:= edit5.Text;

Table2.Fields[2].AsString:= Edit6.Text;

Table2.Post;

edit4.Clear;

edit5.Clear;

edit6.clear;

end;

Для удаления записи из таблицы, воспользуемся кнопкой «Удалить», вставив в обработчик события OnClick следующую строчку:

table2.Delete;, которая удалит сведения о группе, на которой стоит курсор.

Также возможен поиск по группе. Для этого нам необходимо ввести название группы которую необходимо найти и нажать кнопку «Поиск». Код данной процедуры:

procedure TForm1.Button13Click(Sender: TObject);

begin

Table2.SetKey;

Table2.Fields[0].AsString:= Edit7.Text;

Table2.GotoKey;

edit7.Clear;

end;

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