Общие данные

Выше было отмечено деление формы программы на 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 <Имя поля1>= <Значение поля1>, <Имя поля n>= < Значение поля n> Where Number = <Номер записи>

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

sSql:='Update Title SET ';

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

if qTitleMinist.AsString<>leMinist.Text

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