Значение DBLookupComboBox

Delphi , Компоненты и Классы , Списки

Я думаю что у меня есть то, что вы хотите. Если вы обратитесь к свойству LookUpValue, то вы получите поле, которое .... ищете.

Я надеюсь что помог вам.

unit clookup;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, DB, DBLookup;

type
  TDBJustLookupCombo = class(TDBLookupCombo)
  private
    { Private declarations }
  protected
    { Protected declarations }
    function GetLValue: TField;
  public
    { Public declarations }
    property LookUpValue: TField read GetLValue;
  published
    { Published declarations }
  end;

  TDBJustLookupList = class(TDBLookupList)
  private
    { Private declarations }
  protected
    { Protected declarations }
    function GetLValue: TField;
  public
    { Public declarations }
    property LookUpValue: TField read GetLValue;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Data Controls', [TDBJustLookupList,
    TDBJustLookupCombo]);
end;

function TDBJustLookupCombo.GetLValue: TField;
begin
  Result := LookupSource.DataSet.FieldByName(LookUpField);
end;

function TDBJustLookupList.GetLValue: TField;
begin
  Result := LookupSource.DataSet.FieldByName(LookUpField);
end;

end.

Похоже, вы реализовали пользовательский компонент TDBJustLookupCombo и TDBJustLookupList, которые являются производными от стандартных Delphi-компонентов TDBLookupCombo и TDBLookupList. Эти пользовательские компоненты переопределяют метод GetLValue, чтобы получить значение поля, указанного в свойстве LookUpField, из связанного с ним dataset.

Свойство LookUpField вероятно используется для указания поля в dataset, которое должно использоваться как значение поиска. Метод GetLValue получает это поле и возвращает его значение.

Вот подробное описание того, что каждый компонент делает:

TDBJustLookupCombo: Этот компонент похож на стандартный TDBLookupCombo, но позволяет указать конкретное поле в dataset, которое должно использоваться как значение поиска. Вы можете получить доступ к значению поиска с помощью свойства LookUpValue.

TDBJustLookupList: Этот компонент похож на стандартный TDBLookupList, но также позволяет указать конкретное поле в dataset, которое должно использоваться как значение поиска. Вы можете получить доступ к значению поиска с помощью свойства LookUpValue.

Процедура Register регистрирует эти пользовательские компоненты в Delphi, что делает их доступными для использования в ваших приложениях.

В целом, эти пользовательские компоненты предоставляют способ указать конкретное поле в dataset, которое должно использоваться как значение поиска, и они обеспечивают простой доступ к этому значению с помощью свойства LookUpValue.

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

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

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

:: Главная :: Списки ::