Использование DBLookupComboBox в Delphi 5 Pro: выбор значений из внешнего ключа без прямого обновления

Delphi , ОС и Железо , Клавиши

Вопрос, поднятый пользователем, связан с использованием компонента DBLookupComboBox в среде разработки Delphi 5 Pro. Суть проблемы заключается в необходимости загрузки данных для комбобокса из одной таблицы, но сохранении выбранного значения в качестве внешнего ключа в другую таблицу, при этом не изменяя исходную таблицу до момента подтверждения ввода данных.

Основной сценарий использования:

1. Пользователь нажимает "редактировать элемент".
2. Открывается диалог редактирования.
3. В комбобоксе "Тип элемента" должны отобразиться элементы из таблицы item_type. Комбобокс должен отображать item_type.name, но также должен знать item_type.id.
4. Пользователь редактирует другие данные элемента, выбирает тип и нажимает "ОК".
5. Программа выполняет проверку вводимых данных.
6. Если все в порядке, из выбранного элемента комбобокса берётся item_type.id и сохраняется в колонку внешнего ключа таблицы элементов (item.fk_item_type).

Пользователь предполагает, что для работы компонента DBLookupComboBox необходимо установить свойство DataSource в значение, указывающее на таблицу 'item', и DataField в значение 'item.fk_item_type'. Однако это приведёт к немедленному редактированию таблицы 'item' до того, как будет выполнена проверка вводимых данных.

Решение проблемы:

Использование DBLookupComboBox не требует назначения свойств DataSource и DataField, если необходимо отложить изменение данных в таблице до момента подтверждения ввода. Вместо этого можно использовать свойство KeyValue для ручного назначения значения внешнего ключа в таблицу item после проверки данных.

Пример кода:

procedure TForm1.FormCreate(Sender: TObject);
var
  ItemTypeID: Integer;
begin
  // Настройка свойств DBLookupComboBox
  DBLookupComboBox1.DataSet := DataSetItems; // Название вашего DataSet, связанного с таблицей 'item'
  DBLookupComboBox1.ListField := 'NAME'; // Название поля, которое будет отображаться в комбобоксе, например 'name' из таблицы 'item_type'
  DBLookupComboBox1.KeyField := 'ID'; // Название поля с идентификатором, например 'id' из таблицы 'item_type'

  // Настройка источника данных для списка
  DBLookupComboBox1.ListSource := DataSetItemTypes; // Название вашего DataSet, связанного с таблицей 'item_type'
  DBLookupComboBox1.DisplayLabel := 'Тип элемента: ';

  // Обработчик события выбора элемента в комбобоксе
  DBLookupComboBox1.OnChange :=
    function
    begin
      ItemTypeID := DBLookupComboBox1.KeyValue; // Получение значения ID выбранного типа элемента
      // Здесь можно добавить дополнительные действия с полученным ID
    end;
end;

Подтверждение ответа:

Пользователь должен понимать, что таблица, из которой загружаются данные для комбобокса, не будет изменена в результате выбора пользователя. Изменение данных в целевой таблице происходит только после вызова метода Post() или ApplyUpdates() после подтверждения ввода пользователем.

Пример валидации перед сохранением:

procedure TForm1.OKBtnClick(Sender: TObject);
var
  ItemTypeID: Integer;
begin
  ItemTypeID := DBLookupComboBox1.KeyValue; // Получение значения ID выбранного типа элемента
  // Проведение валидации
  if ValidateInput then
  begin
    // Сохранение выбранного ID в колонку внешнего ключа таблицы элементов
    CurrentItem.FK_ItemType := ItemTypeID;
    // Продолжение сохранения изменений
    CurrentItem.Post;
  end
  else
  begin
    // Отмена сохранения, возможно, с уведомлением пользователя
  end;
end;

Таким образом, используя DBLookupComboBox и правильно настроив свойства компонента, можно загрузить данные для комбобокса из одной таблицы и сохранить выбранный внешний ключ в другую таблицу только после подтверждения ввода и валидации данных.

Создано по материалам из источника по ссылке.

Сценарий использования `DBLookupComboBox` в Delphi 5 Pro для загрузки данных из одной таблицы и сохранения выбранного внешнего ключа в другую таблицу без прямого обновления исходной таблицы до подтверждения ввода.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Клавиши ::