Прошу помощи Combobox и Таблицы

[Lavilas]

Приветствую всех знающих. Пишу программу, прошу помощи в таком вопросе:

Есть База данных. В ней три таблицы.

Таблица 1: id, Название, Форма, Температура
Таблица 2: id, Название, Форма, Макс.Температуропоглащение
Таблица 3: id, Название, Форма

На форме есть 3 ComboBox'a в которых выводится только поле 'название' из каждой таблицы.
Есть так же ADOTable, DataSource

Надобно что бы: при выборе в 3х ComboBox'ах названий, нужно сравнить соответствующие значения в полях "Форма" этих названий, если формы совпадают, то вывести label.Caption:=('Совпадают') и соответственно если не совпадают label.Caption:=('не совпадают').

прошу помощи в решении данного вопроса.

[Stilet]

Нескромный вопрос: Зачем в таблицах избыточность сделана? Что такое "избыточность" понимаешь?

[Lavilas]

Да, понимаю. Так как база не большая, то это будет не критично и скорость доступа к базе не изменится. Нормализация базы будет несколько позже. Пока задача такая стоит.

[Stilet]

Так ладно. Не буду обеждать в обратном, будь по твоему.
По теме:

 ComboBox.AddItem(ADOTable.FieldByName('Название').Asstring,TObject(ADOTable.FieldByName('id').AsInteger));

Это позволит добавить в комбик ID связав его с наименованием.
Соответственно потом:

with ComboBox1 do begin
 if ItemIndex<>-1 then begin
  ADOTable.Locate('id',integer(items.Objects[ItemIndex]),[]);
  if ADOTable.FieldsByName('Форма')=Text then 
   Данные в комбике найдены в поле Форма.
 end;
end;

Примерно так короче говоря.

[Dozent]

ComboBox.AddItem(ADOTable.FieldByNa me('Название').Asstring,TObject(ADO Table.FieldByName('id').AsInteger)) ;

Вот я тебя и нашёл)
Вот кто не знающих такой ерунде учит)))
Не делай так ни когда) НИКОГДА!!!!)

Ну по базе замечание к которому стоит прислушатся!! сделай ешё одну табилцу формы а в эти твои 3 табылицы записывай адишник формы

по вопросу, задучу можн орешить в дизайнере!
Кидаешь на форму 3 дата сета(подключаеш ьих к коннекшену или к кверику, не знаю как там у тебя устроена и чо за база) дальше кидаешь 3 DbLoockUpCombobox настраиваешь их и выбрав в одном из них указател ьв датасете встанет на выбраную запись тебе отсанится только считать их и сравнить

Table1.FieldBuname('').asstring = Table2.FieldBuname('').asstring

[Аватар]

Вот я тебя и нашёл)
Вот кто не знающих такой ерунде учит)))
Не делай так ни когда) НИКОГДА!!!!)

Вот сильно интересно, что такого ерундового в таком приеме? Вполне себе прием в определенных ситуациях, даже очень и вообще ))

[Stilet]

Не делай так ни когда) НИКОГДА!!!!)

Можт тогда просветишь почему так нельзя делать и как нужно?

дальше кидаешь 3 DbLoockUpCombobox настраиваешь их

Боюсь что в данном случае это как раз не даст нужного реззультата.

[Lavilas]

Спасибо за помощь. С 3 DbLoockUpCombobox подошло лучше.
Появился ещё один вопрос.
Есть 5 combobox'ов. Значения от 0, до 4х.

1 combobox считываем значение и умножаем на 2
2 combobox считываем значение и умножаем на 25
3 combobox считываем значение и умножаем на 3
4 combobox считываем значение и умножаем на 7
5 combobox считываем значение и умножаем на 15

Как это можно сделать менее грамоздко, и чтоб при выборе значений в Combobox'e, автоматически менялся результат в Label'e ?

[Smitt&Wesson]

Что такое "избыточность" понимаешь?

А ты, понимаешь?

Можт тогда просветишь почему так нельзя делать и как нужно

Stilet, харэ выживаться. Нас, хохлов, на вятке тоже не более пирогами подчуют.
Буквально вчера-сь один мой корешь начал - Я, бла-бла-бла. Да, я этих хохлов, на первом-ба столбу вешал....
Спрашиваю у него: верёвка есть?
Он: Чего?
Ну, впереди, первый столб, а я - этнический хохол...

[Stilet]

Смитт. Завязывай.