DBLookupComboBox его настройка

@GusToc · Регистрация: 11.09.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Интересует как DBLookupComboBox настроить сплывающее окно которое появляется при нажатии на DBLookupComboBox, стандартно он показывает ток 1 строку, у меня из БД несколько строк и хотел бы видеть сразу 5 строк.

Еще интересует почему у меня при данном коде выдает ошибку

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.DBLookupListBox1Click(Sender: TObject);
begin
IbQuery1.sql.clear;
IbQuery1.sql.text:='select * from BD where ID_MESTOPOLOZENIE=:a and ID_VID_DATCHIKA like :b';
Ibquery1.paramByName('a').value:=DBLookupListBox1.KeyValue;
if DBLookupComboBox1.Text='' then Ibquery1.paramByName('b').value:='%'
 else
Ibquery1.paramByName('b').value:=DBLookupComboBox1.KeyValue;
Ibquery1.open;
end;
 
procedure TForm1.cClick(Sender: TObject);
begin
IbQuery1.sql.clear;
IbQuery1.sql.text:='select * from BD where ID_MESTOPOLOZENIE=:a and ID_VID_DATCHIKA like :b';
if DBLookupListBox1.DataField='' then Ibquery1.paramByName('a').value:='%'
 else
Ibquery1.paramByName('a').value:=DBLookupListBox1.KeyValue;
Ibquery1.paramByName('b').value:=DBLookupComboBox1.KeyValue;
Ibquery1.open;
end;

@Ivandur · 07.04.2017, 22:16

А в таблице BD есть поле ID_VID_DATCHIKA?

@GusToc · 08.04.2017, 08:40 **[ТС]**

БД редактирую через IBexpert, в таблице BD есть столбец ID_VID_DATCHIK
[ATTACH]
818774
[/ATTACH]

в данный столбец я пишу ID который присвоенный в таблице VID_DATCHIK
[ATTACH]
818774
[/ATTACH]

@GusToc · 08.04.2017, 08:49 **[ТС]**

БД редактирую через IBexpert, в таблице BD есть столбец ID_VID_DATCHIK

Название: Снимок11.PNG
Просмотров: 37

Размер: 2.0 Кб

в данный столбец я пишу ID который присвоенный в таблице VID_DATCHIK

@GusToc · 08.04.2017, 08:51 **[ТС]**

Кароч я тупо слепой, неправильно написал наименование ошибка в 1 букве.

Но вопрос по комбобоксу остался
Интересует как DBLookupComboBox настроить сплывающее окно которое появляется при нажатии на DBLookupComboBox, стандартно он показывает ток 1 строку, у меня из БД несколько строк и хотел бы видеть сразу 5 строк.

@YuryK · 08.04.2017, 09:00

Сообщение от GusToc

стандартно он показывает ток 1 строку, у меня из БД несколько строк и хотел бы видеть сразу 5 строк.

стандартно он показывает 7 строк и ползунок, если строк больше, чем DropDownRows.
количество строк, естественно, зависит от набора данных, указанного посредством ListSource. А что там у вас, нам неведомо

@GusToc · 08.04.2017, 09:29 **[ТС]**

@YuryK · 08.04.2017, 10:35

а что выбирает IBDuery3? И точно IBDuery3 никак больше не используется в программе, нигде не фильтруется?

@GusToc · 08.04.2017, 10:47 **[ТС]**

IBQuery3 у меня используется только на комбобокс

Ну мы как делаем, ставим IBDatabase1 от которого идет связь на каждый объект работающий с БД путем IBTransaction1 > IBQuery1 > DataSource1, а на самом допустим тот же комбобокс уже настраиваем связь с БД используя данные компоненты. Как я понял на каждый объект для работы с бд нужно ставить индивидуальные IBTransaction1 > IBQuery1 > DataSource1

@YuryK · 08.04.2017, 11:15

про IBTransaction не в курсе с IB не работаю.
так что за текст в IBQuery3?

@GusToc · 08.04.2017, 11:32 **[ТС]**

@YuryK · 08.04.2017, 11:37

меня интересует только текст запроса - то, что скрыто за
SQL | {TStrings}

@GusToc · 08.04.2017, 11:56 **[ТС]**

select * from VID_DATCHIC

@YuryK · 08.04.2017, 12:52

Должны быть все записи

Разве временно дбгрид рядом положить и убедиться, что их там 5 (или 1)

@GusToc · 08.04.2017, 13:23 **[ТС]**

Там все записи он выдает, ползунком переключаешь и видишь все элементы с БД, просто он при открывании списка, где у нас ползунок, показывает только 1 запись, при этом можно ползунком, а именно стрелочками листать весь список, но мне надо сделать чтоб он не 1 строку показывал, а хотябы 5, выше быле сказанно что по дефолту в настройках стоит до 7 записей, если у нас в БД больше 7 записей то появляется ползунок, а у меня вместо 7 строк показывает 1, хотя настроенно тоже 7

Название: Снимок.PNG
Просмотров: 35

Размер: 535 байт

Название: Снимок.PNG
Просмотров: 35

Размер: 535 байт

@YuryK · 08.04.2017, 14:26

как говорит народ, надо после открытия IBQuery вызвать IBQuery.FetchAll, иначе не определено IBQuery.RecordCount.
или использовать для lookup-ов не IBQuery, а IBDataSet

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Ivandur 694 / 7067 / 265 Регистрация: 11.08.2016 Сообщений: 3,966
	07.04.2017, 22:16
	А в таблице BD есть поле ID_VID_DATCHIKA? 0

@GusToc 0 / 0 / 0 Регистрация: 11.09.2011 Сообщений: 27
	08.04.2017, 08:40 [ТС]
	БД редактирую через IBexpert, в таблице BD есть столбец ID_VID_DATCHIK [ATTACH] 818774 [/ATTACH] в данный столбец я пишу ID который присвоенный в таблице VID_DATCHIK [ATTACH] 818774 [/ATTACH] Миниатюры 0

@GusToc 0 / 0 / 0 Регистрация: 11.09.2011 Сообщений: 27
	08.04.2017, 08:49 [ТС]
	БД редактирую через IBexpert, в таблице BD есть столбец ID_VID_DATCHIK в данный столбец я пишу ID который присвоенный в таблице VID_DATCHIK 0

@GusToc 0 / 0 / 0 Регистрация: 11.09.2011 Сообщений: 27
	08.04.2017, 08:51 [ТС]
	Кароч я тупо слепой, неправильно написал наименование ошибка в 1 букве. Но вопрос по комбобоксу остался Интересует как DBLookupComboBox настроить сплывающее окно которое появляется при нажатии на DBLookupComboBox, стандартно он показывает ток 1 строку, у меня из БД несколько строк и хотел бы видеть сразу 5 строк. 0

@GusToc 0 / 0 / 0 Регистрация: 11.09.2011 Сообщений: 27
	08.04.2017, 09:29 [ТС]
	0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	08.04.2017, 10:35
	а что выбирает IBDuery3? И точно IBDuery3 никак больше не используется в программе, нигде не фильтруется? 0

@GusToc 0 / 0 / 0 Регистрация: 11.09.2011 Сообщений: 27
	08.04.2017, 10:47 [ТС]
	IBQuery3 у меня используется только на комбобокс Ну мы как делаем, ставим IBDatabase1 от которого идет связь на каждый объект работающий с БД путем IBTransaction1 > IBQuery1 > DataSource1, а на самом допустим тот же комбобокс уже настраиваем связь с БД используя данные компоненты. Как я понял на каждый объект для работы с бд нужно ставить индивидуальные IBTransaction1 > IBQuery1 > DataSource1 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	08.04.2017, 11:15
	про IBTransaction не в курсе с IB не работаю. так что за текст в IBQuery3? 0

@GusToc 0 / 0 / 0 Регистрация: 11.09.2011 Сообщений: 27
	08.04.2017, 11:32 [ТС]
	0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	08.04.2017, 11:37
	меня интересует только текст запроса - то, что скрыто за SQL \| {TStrings} 0

@GusToc 0 / 0 / 0 Регистрация: 11.09.2011 Сообщений: 27
	08.04.2017, 11:56 [ТС]
	select * from VID_DATCHIC 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	08.04.2017, 12:52
	Должны быть все записи Разве временно дбгрид рядом положить и убедиться, что их там 5 (или 1) 0

@GusToc 0 / 0 / 0 Регистрация: 11.09.2011 Сообщений: 27
	08.04.2017, 13:23 [ТС]
	Там все записи он выдает, ползунком переключаешь и видишь все элементы с БД, просто он при открывании списка, где у нас ползунок, показывает только 1 запись, при этом можно ползунком, а именно стрелочками листать весь список, но мне надо сделать чтоб он не 1 строку показывал, а хотябы 5, выше быле сказанно что по дефолту в настройках стоит до 7 записей, если у нас в БД больше 7 записей то появляется ползунок, а у меня вместо 7 строк показывает 1, хотя настроенно тоже 7 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	08.04.2017, 14:26
	как говорит народ, надо после открытия IBQuery вызвать IBQuery.FetchAll, иначе не определено IBQuery.RecordCount. или использовать для lookup-ов не IBQuery, а IBDataSet 0