Задание 2. Работа со списком DBLookUpComboBox1

Разместите на форме две новые кнопки Сотрудники и Закрыть. При нажатии на кнопку Сотрудники должна открываться простая форма (рис. 2) с информацией о текущем сотруднике.

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

Разместите на форме компоненты доступа к данным TADOTable и TDataSource, а так же поля редактирования TDBEdit и свяжите их с полями таблицы Сотрудник. Компонентам данных дайте смысловые имена.

Форму назовите frmSotr.

Проверьте работу двух форм.

Рис. 2 Простая форма Сотрудник.

Поле Номер_отд в этой форме следует заменить на поле со списком DBLookUpComboBox1 для того, чтобы можно было выполнить выбор названия отдела из списка имеющихся отделов таблицы Otdel.

С помощью Инспектора объектов задайте следующие значения свойствам этого поля:

Таблица 1. Значения свойств компонента DBLookUpComboBox1

Свойство	Значение	Описание
DataSource	dsSotr	Источник, связанный с таблицей Сотрудник
DataField	Номер отдела	название поля номера отдела таблицы Сотрудник
ListSource	frmOtdel. dsOtdel	Источник списка выбора
ListField	Название	Поле, которое предложено пользователю для выбора
KeyField	Ном_отдел	Поле, которое используется для связи таблиц

Примечание. Чтобы источник данных первой формы frmOtdel. dsOtdel был доступен во второй форме frmSotr, следует в модуле Unit2 в разделе implementation подключить модуль Unit1.

Рекомендуется программные модули также переименовать по смыслу. Переименуйте программные модули UnitOtd и UnitSotr. Отредактируйте строки подключения этих модулей в программном коде.

Дополнительное задание.

На форме 2 разместите поле Edit1, в котором будет запрашиваться табельный номер искомого сотрудника. При нажатии клавиши ENTER отобразите данные об этом сотруднике, позиционировав его запись с помощью функции Locate. Если сотрудник не найден, то выведите сообщение об этом.

⇐ Предыдущая 12