Удаление записей из БД

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

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

Рассмотрим подробнее работу программы. На главной форме размещены 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 для этого номера. В дальнейшем выполняется лишь занесение в них значений путем путем изменения значений полей.

Удаление записи из БД производится выполнением запроса 'Delete from Part1_Time Where Number= '+IntToStr(N), где в переменной N содержится номер удаляемой записи. Запрос выполняенся в объекте qUpdate (TQuery) для шести таблиц при нажатии на кнопку Удалить запись.

Дата добавления: 2015-05-09