Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лабораторная работа 15-16.doc
Скачиваний:
8
Добавлен:
31.07.2019
Размер:
68.1 Кб
Скачать

Компонент tdbNavigator

Предназначение этого компонента – дать пользователю программы удобное средство удобное перемещение по записям НД и облегчить ему такие действия, как вставка новой записи, а так же редактирование и удаление существующей записи.

Назначение кнопок:

  • First – устанавливает курсор на первую запись;

  • Prior - устанавливает курсор на предыдущую запись;

  • Next - устанавливает курсор на следующую запись;

  • Last - устанавливает курсор на последнюю запись;

  • Insert – переводит нд в режим вставки новой записи;

  • Delete – удаляет текущую запись;

  • Edit – переводит НД в режим редактирования;

  • Post – запоминает изменения сделанные в текущей записи;

  • Cancel – отменяет изменения, сделанные в текущей записи;

  • Refresh – обновляет НД (для TQuery – только если запрос обновляемый).

Из всех свойств TDBNavigator следует выделить ConfirmDelete, которое в случае установки его в true при удалении будет выводить диалоговое окно о подтверждении.

Так же существует возможность управления видимостью кнопок управления. Это позволяет скрыть ненужные кнопки управления. Например, если НД является результатом выполнения необновляемого запроса имеет смысл оставить только первые 4 кнопки.

Пример №1:

Создайте новую форму в своем проекте и разместите на нем следующие компоненты:

  • DBRadioGroup1 (вкладка DataControls)

    • в свойстве DataSource укажите тот, который связан с таблицей Nakls;

    • свойство Items заполните согласно полю TName таблицы TypeNakl;

    • свойство Values заполните согласно полю TypeID таблицы TypeNakl;

    • свойству Catption присвойте значение 'Тип накладной';

    • в DataField выберите NType.

  • 5 элементов DBEdit (вкладка DataControls)

    • в свойстве DataSource укажите тот, который связан с таблицей Nakls;

    • в DataField для каждого экземпляра выберите NDate, NRetDate, NSum, Ncoeff, NPeyedSum соответственно.

  • 5 элементов Label (вкладка Standard)

    • Свойства Caption задайте соответствующие полям в пяти элементах DBEdit

    • Расположите все Label так, чтобы они находились рядом со "своими" полями.

  • DBLookupComboBox1 (вкладка DataControls)

    • в свойстве DataSource укажите тот, который связан с таблицей Nakls;

    • в DataField выберите NFirm;

    • в KeyField выберите FirmID;

    • в свойстве ListSource укажите тот, который связан с таблицей Firms;

    • в ListField – FPerson;

  • DBNavigator1 (вкладка DataControls)

    • в свойстве VisibleButtons поставьте true только напротив первых четырех кнопок.

Пример №2

Создайте новую форму в своем проекте и разместите на нем следующие компоненты:

  • DBCtrlGrid1

    • в свойстве DataSource укажите тот, который связан с таблицей Firms;

    • RowCount присвойте значение 5;

  • 5 элементов DBEdit (вкладка DataControls)

    • в свойстве DataSource укажите тот, который связан с таблицей Firms;

    • в DataField для каждого экземпляра выберите FName, FAddress, FCity, FPhone, FPerson соответственно.

  • 5 элементов Label (вкладка Standard)

    • Свойства Caption задайте соответствующие полям в пяти элементах DBEdit

    • Расположите все Label так, чтобы они находились рядом со "своими" полями.