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

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

Общие данные

Выше было отмечено деление формы программы на 2 части и рассмотрена работа с левой частью — выбором курсовой работы из списка работ в БД. Покажем работу с информацией по каждой курсовой. Содержание полей БД располагается на элементах компонента TPageControl. На закладке tsTitle находятся компоненты типа TLableEdit. Вид закладки Общие данные показан на рис 4.

Рис 4. Закладка Общие данные

При нажатии на кнопку Показать в их значения свойства Text копируются значения полей таблицы Title БД:

leMinist.Text:=qTitleMinist.AsString;

Следует отметить, что данные поставляются отдельным компонентом qTitle (TQuery) который запрашивает их из таблицы Title для выбранной пользователем работы. Выбор пользователя передается при помощи связи qTitle. DataSorce:=dsMain, и фильтрацией записей в таблице Title по номеру выбранной пользователем курсовой работы: Select * from Title where Number=:Number.

При нажатии на кнопку Изменить происходит изменение данных хранящихся в БД в таблице Title. Изменение осуществляется при помощи Sql запроса.

Update Title SET =, <�Имя поля n>= < Значение поля n> Where Number =

Запрос формируется только для измененных полей:

sSql:='Update Title SET ';

s:=#39; p:=', '; k:=0; m:=0;

if qTitleMinist.AsStringleMinist.Text.

then begin

sSql:=sSql+' Minist= '+s+leMinist.Text+s+p;

k:=k+1;

end;

l:=length (sSql);

sSql:=Copy (sSql, 1, l-3);

if k0 then

with qUpdate do begin

N:=qTitleNumber.AsInteger;

Sql.Clear;

Sql.Add (sSql+' Where Number = '+IntToStr (N));

Close;

ExecSql;

Sql.Clear;

Sql.Add ('Select * from title');

end;

При работе с закладкой Общие данные работа с БД происходит в виде написания запросов вручную и непосредственной работой с БД. При этом все визуальные компоненты LableEdit получают значения как строковые переменные. Такой подход более трудоемок, но позволяет более тонко работать с БД, добавляя например новые записи при помощи тех же визуальных компонентов.