Сводная таблица БД — выбор курсовой работы

Рассмотрим подробнее работу программы. На главной форме размещены 2 кнопки для подключения / разрыва соединения с базой. Для соединения с базой используется метод Open для объектов типа Query (qMain.Open и тд). Для разрыва соединения — метод Close.

Список курсовых работ, хранимых в Бд отображается на объекте dbgMain (типа TDBGrid), который связан с таблицей Title БД компонентами qMain (TQuery) и dsMain (TDataSource). Запрос Sql в qMain имеет вид:

Select * from Title .

При этом в компонент qMain включены поля Number, Date_Defence, Student_Family, Mark. В результате выполнения метода Open на форме отображается краткая информация по работам студентов, хранящихся в БД.

Добавление новых записей в БД

При нажатии на кнопку Добавить запись происходит добавление в БД новой записи. При этом используется объект qUpdate (TQuery) в котором формируется запрос.

Insert into Title () values ().

Список полей содержит все поля таблицы Title, значения для их заполнения берутся из свойств Text компонентов TLabelEdit закладки Общие данные. Для формирования sql запроса используются следующие строковые переменные: sPole:=''; sParam:='';s:=#39; p:= ', '. В стрке sPole хранится список полей, sParam — список значений этих полей, переменная s — представляет собой символ одиночной кавычки (используется для обрамления строковых значений в списке sParam, вводится в виде кода #39 таблицы символов из-за конфликта с компилятором Delphi так же использующим символ ` для ограничения строковых переменных). p — запятая, часто применяемая в записи sql запроса. В результате добавление каждого поля выглядит следующим образом:

sPole:=sPole+'Minist, ';

sParam:=sParam+s+leMinist.Text+s+p;

После перечисления всех полей из запроса вырезаются последние запятые:

lPole:=length (sPole);

lParam:=length (sParam);

sPole:=copy (sPole, 1, lPole-2);

sParam:=copy (sParam, 1, lParam-3);

В результате выполняется следующий запрос (внутри with qUpdate do):

Sql.Clear;

Sql.Add ('Insert into Title ('+sPole+') values ('+sParam+')');

Close;

ExecSql;

После создания записи в таблице Title создаются строки в таблицах Zadanie, Part1, Part2, Part3 для этого номера. В дальнейшем выполняется лишь занесение в них значений путем путем изменения значений полей.