Задана структура справочника. Создать для формы редактирования необходимые компоненты и настройку их свойств. Справочник автомобилей: код модели, наименование модели, марка (фиксированный список).

ЭТОТ ОТВЕТ СЧИТАЕТСЯ ХОРОШИМ (14 из 16)

Добавим на панель три компонента TLabel с названиями "Код модели", "Наименование модели", "Марка".

Добавим на панель два компонента TDBEdit для ввода значений кода и наименования модели.

Добавим на панель компонент TDBComboBox для задания марки автомобиля.

Свяжем три последних компонента с БД: DataSource: DM.dsSprav (DM-модуль данных),

DataField - выберем из списка (KodMod, NameMod, Marka)

TDBComboBox задаем набор значений поля (свойство Items).

Создадим две кнопки и дадим им названия Сохранить и Отмена.

Для кнопки Сохранить на событие нажатия (onClick) будем сохранять изменения в таблице БД (метод набора данных Сохранить - Post). Если при сохранении произойдет ошибка, связанная с неправильными данными, то выполняется выход из процедуры (оператор exit). Ошибка обрабатывается в НД Если же при сохранении ошибки не произойдет, то форма закрывается (вызывается метод формы close) и программа возвращается в форму просмотра.

Для кнопки Отмена на событие нажатия отменяются внесенные изменения (методом набора данных Отмена - Cancel), форма закрывается и программа возвращается в форму просмотра.

Наконец на событие закрытия формы (через системную кнопку окна - закрыть) НД переводится в режим просмотра. В этом случае также отменяются все изменения.

14 баллов из 16.

 

19.Дано описание таблицы БД. Для работы с таблицей указать в модуле данных перечень необходимых компонентов и настройку их свойств. Предусмотреть наличие производных полей. Таблица Bookreis (Книга учета) включает поля: Номер рейса, водитель, дата, остаток бензина на начало рейса, остаток бензина на конец рейса.

ЭТОТ ОТВЕТ СЧИТАЕТСЯ ХОРОШИМ (12 из 16)

 

На форме Модуль данных располагаются компонент соединения с БД TADOConnection, компонент набор данных TADOQuery, компонент-диспетчер TDataSource.

TADOConnection – отвечает за подключение к БД.

 

Используется свойство TADOConnection ConnectionString.

Выбирается Use connection string» Build» SQL Anywhere OLE DB Provider» источник данных» пользователь и пароль» проверить соединение

Изменяются свойства TADOConnection

Name=DB

keepConnection = true – Для поддержания соединения.

LoginPrompt true, после тестирования false

Connected true, после тестирования false

 

Компонент TADOQuery получает имя qBookUch

Он отправляет запрос и получает данные из БД.

Он подключается к TADOConnection

Connection=DB

Настраивается упорядочивание по номеру рейса и водителю

SQL» SELECT *FROM BookUch Order by Num_reis asc, vodit asc

 

 

Компонент TDataSource получает имя dsBookuch

Он помещает полученные данные в таблицы.

Он подключается к TADOConnection

Connection = DB

DataSet=qBookuch

Name= dsBookuch

 

Для вывода данных БД в таблицу используется TDBGrid

DataSource=DM.dsBookUch

 

19.Дано описание таблицы БД. Для работы с таблицей указать в модуле данных перечень необходимых компонентов и настройку их свойств. Предусмотреть наличие производных полей. Таблица Bookusl (Книга услуг) включает поля: Номер счета, дата выписки счета, код арендатора, наименование услуги, объем услуги, тариф за 1 ед(цена).

ЭТОТ ОТВЕТ СЧИТАЕТСЯ ХОРОШИМ (15,20 из 16)

Таблица содержит поля: Номер счета(Nom_Schet), дата выписки счета(data_vip),код арендатора(kod_arend), наименование услуги(name_usl),объем услуги(obem),тариф за 1 ед(price)

Необходимо добавить компонент TADOConnection (Name=DB),

Свойства компонента:

Name=ADOCon

Connected=True

KeepConnecting=True

Для указания источника данных в компоненте соединения с БД используется свойство ConnectionString.

 

компонент запрос TADOQuery (Name=qBookusl),

Свойства:

Name=qBookusl

Connection=ADOConnection

SQL c запросом на получение данных с БД

компонент-диспетчер TDataSource (Name=dsBookusl)

Свойства:

Name=dsBookusl

DataSet=qBookusl

 

Для производных полей использовать свойство AutoCalcFields.

15,20 из 16