Данные в втором DBLookupCombobox зависят от того что будут выбрано в первом Lookup

@Fatallk · Регистрация: 22.02.2012

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

У меня есть два dblookupcombox. Первый соединен через ListSource, ListField = Name, KeyField = ID (это название услуг). Мне необходимо сделать так: например я выбираю "кап.ремонт" в первом lookup, потом во втором lookup должно появиться название запчастей в которых id аналогичен как в услугах.
Набросал что-то, но не работает.
Вначале пробовал так:

C++
1
2
3
4
DataModule4->ADOQuery17->SQL->Add("Select Name from Repair_parts WHERE ID_type_work LIKE '"+DBLookupComboBox1->Text+"%'");
 
DataModule4->ADOQuery17->Open();
DBLookupComboBox3->ListField=DataModule4->ADOQuery17->FieldByName("Name")->AsString;

Потом так:

C++
1
2
3
4
5
6
 DataModule4->ADOQuery17->SQL->Clear();
DataModule4->ADOQuery17->SQL->Add("Select * from Repair_parts INNER JOIN Type_repair ON Type_repair.ID_type_work = Repair_parts.ID_Type_work WHERE Type_repair.ID_type_work LIKE '"+DBLookupComboBox1->Text+"%'");
DataModule4->ADOQuery17->Open();
DBLookupComboBox3->ListSource=DataModule4->DataSource17;
DBLookupComboBox3->ListField="Repair_parts.Name";
DBLookupComboBox3->KeyField="Repair_parts.ID_part";

Добавлено через 5 часов 57 минут
Попробовал записать в обычные комбобоксы:
Записываю услуги в первый комбобокс:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
AnsiString SQLSelect;
SQLSelect="select * from Type_repair";
DataModule4->ADOQuery17->Active=false;
DataModule4->ADOQuery17->SQL->Clear();
DataModule4->ADOQuery17->SQL->Add(SQLSelect);
DataModule4->ADOQuery17->Active=true;
if (DataModule4->ADOQuery17->RecordCount>0) {
ComboBox3->Items->Clear();
 DataModule4->ADOQuery17->FindFirst();
 for (int i=0; i<DataModule4->ADOQuery17->RecordCount; i++) {
 ComboBox3->Items->Add(DataModule4->ADOQuery17->FieldByName("Name")->AsString);
  if (i<=DataModule4->ADOQuery17->RecordCount-2)
  DataModule4->ADOQuery17->FindNext();
  }
}

Делаю событие на закрытие первого комбика:

C++
1
2
3
4
5
6
7
8
9
10
11
AnsiString SQLSelect;
SQLSelect="select * from Type_repair,Repair_parts where Type_repair.Name='";
SQLSelect+=ComboBox3->Text.Trim();
SQLSelect+="' and Type_repair.ID_type_work=Repair_parts.ID_type_work";
DataModule4->ADOQuery17->Active=false;
DataModule4->ADOQuery17->SQL->Clear();
DataModule4->ADOQuery17->SQL->Add(SQLSelect);
DataModule4->ADOQuery17->Active=true;
if (DataModule4->ADOQuery17->RecordCount>0) {
 DataModule4->ADOQuery17->FindFirst();
ComboBox2->Items->Add(DataModule4->ADOQuery17->FieldByName("Name_part")->AsString);

Вроде работает, но как мне с них вытащить ID соответствующих данных чтобы записать их в таблицу. И возможно ли потом вытащить с этих выбранных данных поля "стоимость" чтобы посчитать общую стоимость? Или лучше экспериментировать с dblookupcombobox?

Добавлено через 1 час 38 минут
Если сделать так:

C++
1
ComboBox3->AddItem(DataModule4->ADOQuery17->FieldByName("Name")->AsString, (TObject*)DataModule4->ADOQuery17->FieldByName("ID_type_work")->AsInteger );

Добавлено через 50 секунд
Как потом узнать запись которую я выбрал и посчитать общую суму по полу "стоимость"?

Добавлено через 1 час 3 минуты

C++
1
2
DataModule4->ADOQuery5->FieldValues["ID_type_work"]=ComboBox3->Items->Objects[ComboBox3->ItemIndex];
DataModule4->ADOQuery5->FieldValues["ID_part"]=ComboBox2->Items->Objects[ComboBox2->ItemIndex];

Ошибка: Конфликтируют внешние ключи. В чем моя ошибка?

Добавлено через 6 часов 3 минуты
Вроде получилось.

Добавлено через 1 минуту
Надеюсь последний вопрос как вывести поле "цена" моих комбибоксов в edit?
Пробую так:

C++
1
2
3
4
5
DataModule4->ADOQuery17->SQL->Clear();
DataModule4->ADOQuery17->SQL->Add("Select Price from Type_repair where ID_type_work LIKE '"+IntToStr(Integer(ComboBox3->Items->Objects[ComboBox3->ItemIndex]))+"%' ");
DataModule4->ADOQuery17->Open();
int a=DataModule4->ADOQuery17->FieldByName("Price")->AsInteger ;
Edit2->Text=a;

Пусто...

@Bit_Man · 20.05.2015, 04:33

а если так

C++
1
DataModule4->ADOQuery17->SQL->Add("Select Price from Type_repair where ID_type_work = "+IntToStr(int(ComboBox3->Items->Objects[ComboBox3->ItemIndex])));

@Fatallk · 20.05.2015, 12:03 **[ТС]**

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

DataModule4->ADOQuery17->SQL->Add("Select Price from Type_repair where ID_type_work = "+IntToStr(int(ComboBox3->Items->Objects[ComboBox3->ItemIndex])));

Так же, пустой edit...

Добавлено через 9 минут
Вроде получилось с моим кодом...

Добавлено через 1 час 25 минут
Есть ещё одна проблема когда выбираю в первом комбике услуги, во втором появляется только одна запись с таким же "id" хотя их несколько.

C++
1
2
3
4
5
6
7
8
9
10
11
AnsiString SQLSelect;
SQLSelect="select * from Type_repair,Repair_parts where Type_repair.Name='";
SQLSelect+=ComboBox3->Text.Trim();
SQLSelect+="' and Type_repair.ID_type_work=Repair_parts.ID_type_work";
DataModule4->ADOQuery17->Active=false;
DataModule4->ADOQuery17->SQL->Clear();
DataModule4->ADOQuery17->SQL->Add(SQLSelect);
DataModule4->ADOQuery17->Active=true;
if (DataModule4->ADOQuery17->RecordCount>0) {
 DataModule4->ADOQuery17->FindFirst();
ComboBox2->AddItem(DataModule4->ADOQuery17->FieldByName("Name_part")->AsString, (TObject*)DataModule4->ADOQuery17->FieldByName("ID_part")->AsInteger);

Добавлено через 9 минут

C++
1
2
3
for (int i=0; i<DataModule4->ADOQuery17->RecordCount; i++)
if (i<=DataModule4->ADOQuery17->RecordCount-2)
  DataModule4->ADOQuery17->FindNext();

Решение

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .