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

Add('Соц. выплаты');

Add('Другие поощрения');

end;

//Делаем столбец поездки всплывающим списком

With Columns[9].PickList do begin

Add('Москва');

Add('Снакт-Петербург');

Add('Юг');

end;

end;

end;

Для сортировки и нумерации БД каждый раз при открытии формы выполняется следующая процедура:

//ОткрываемБД

Table1.Active:=true;

//Открываем БД с факультетами

With Query3 do begin

Close;

SQL.Clear;

SQL.Add('SELECT *');

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

Open;

end;

//счетчик записей

n:=0;

//от 1 доколичествафакультетов

for i:=1 to Query3.RecordCount do begin

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

With Query2 do begin

Close;