Курсовая работа: Создание базы данных

SQL.Add('SELECT *');

SQL.Add('FROM '+Query3['Факультет']+'.db');

Open;

end;

//От 1 до количества групп на факультете

for j:=1 to Query2.RecordCount do begin

//Открываем БД студенты и считываем только те записи, в которых поле группа соответствует полю группа в текущей записи БД Факультет

With Query1 do begin

Close;

SQL.Clear;

SQL.Add('SELECT *');

SQL.Add('FROM Students.db');

SQL.Add('WHERE Группа LIKE "'+Query2['Группа']+'"');

SQL.Add('ORDER BY ФИО');

Open;

end;

//От 1 до количества студентов в группе

for k:=1 to Query1.RecordCount do begin

//Добавляем в конец БД студенты запись с порядковым номером студента внутри группы

Table1.AppendRecord([k,Query1['ФИО'], Query1['Факультет'], Query1['Курс'], Query1['Группа'], Query1['Поощрения'], Query1['Сумма'], Query1['Дата выдачи'], Query1['Примечание'], Query1['Поездки'], Query1['Примечания']]);

Query1.Next;

n:=n+1;

end;

//Переходим на следующую группу

Query2.Next;

end;

//Переходим на следующий факультет

Query3.Next;

end;