DBLookupComboBox
Уважаемые участники форума!
Подскажите, пожалуйста, как использовать компоненту DBLookupComboBox.
На DialogForm поставил DBLookupComboBox1 и Query1.
В Query1 в SQL написано примерно следующее:
select KODTANK, IDENTTANK
from SprTank
where KODOTDEL =:KODOTD
order by IdentTank
У DBLookupComboBox1 проставлены следующие свойства:
ListSource --> Query1
ListField --> IdentTank
KeyField --> KodTank.
Понятно, что поле IdentTank - символьное, KodTank - числовое (первичный ключ).
Вопросов два:
1) Как по выбранному из DBLookupComboBox1 по выбранному полю IdentTank узнать значение поля KodTank? Например но нажатию кнопки вывести это значение в Label1 в том же окне? Обращение типа DBLookupComboBox1.KeyValue или [Query1."KODTANK"] не срабатывает.
2) Как программно заполнить (то есть выбрать) первое значение в DBLookupComboBox1? При вызове Query1.Active := True DBLookupComboBox1.Text равен пустой строке. Необходимо выбрать значение Query1.First.
Заранее спасибо.
Подскажите, пожалуйста, как использовать компоненту DBLookupComboBox.
На DialogForm поставил DBLookupComboBox1 и Query1.
В Query1 в SQL написано примерно следующее:
select KODTANK, IDENTTANK
from SprTank
where KODOTDEL =:KODOTD
order by IdentTank
У DBLookupComboBox1 проставлены следующие свойства:
ListSource --> Query1
ListField --> IdentTank
KeyField --> KodTank.
Понятно, что поле IdentTank - символьное, KodTank - числовое (первичный ключ).
Вопросов два:
1) Как по выбранному из DBLookupComboBox1 по выбранному полю IdentTank узнать значение поля KodTank? Например но нажатию кнопки вывести это значение в Label1 в том же окне? Обращение типа DBLookupComboBox1.KeyValue или [Query1."KODTANK"] не срабатывает.
2) Как программно заполнить (то есть выбрать) первое значение в DBLookupComboBox1? При вызове Query1.Active := True DBLookupComboBox1.Text равен пустой строке. Необходимо выбрать значение Query1.First.
Заранее спасибо.
Комментарии
Переход на запись DBLookupComboBox1.Text:=[Dialogform.Query1."identtank"]
или DBLookupComboBox1.Text:=1;
Версия 4.15.10.