Проблема с расчетом из БД

[Apollo_13]

Здравствуйте, у меня проблема следующего характера:
Существует база данных (objects.db), в которой есть описания объектов и их характеристик, по нажатию кнопки открывается форма где можно редактировать эту БД, затем есть выпадающее
меню (DBLookupComboBox1) в котором нужно выбрать объект, после его выбора нажимаем кнопку, которая должна добавить эту запись в (DbListBox1). В общем подскажите пожалуйста как реализовать следующее:
1) Как сделать что бы нужная запись отображалась в (DBLookupComboBox1) и можно было выбрать нужную. Как я не старался ничего не вышло, пришел к выводу что одна и таже БД не может находится в разных объектах, так ли это?
2) Как по нажатию кнопки добавить запись из (DBLookupComboBox1) в (DbListBox1)? Тоже никак не получается...
3) И последнее самое главное, есть формула (например A+B*C=?) и A,B,C это характеристики разных объектов из разных БД, как реализовать такую формулу? Я так понимаю что нужно оперрировать записями из таблицы но как? Конечный результат нужно получить в (Memo, RichEdit, DbEdit, или в Edit)...
P.S. - Если есть примеры, то давайте, всем ответившим заранее огромное спасибо!

[Nemon]

3. вопрос
ты имеешь ввиду сложить данные из полей разных таблиц?

[Apollo_13]

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

3. вопрос
ты имеешь ввиду сложить данные из полей разных таблиц?

Да, именно это мне и нужно, производить некие математические действия над полями из разных таблиц, и что бы конечный результат можно было получить в (Memo, RichEdit, DbEdit, или в Edit), PLZ скажите как если знаете...

[Nemon]

var a, b, c: integer;
begin
a: = table1имя_поля1.value;
b: = table1имя_поля2.value;
c: = a+b;
edit1.text: =c;
end

[Apollo_13]

Блин... Немного непонятно как должен выглядеть синтаксис, так:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: integer;
begin
a:=Table1.FieldbyName('Value1').Cur Value;
b:=Table2.FieldbyName('Value2').Cur Value;
//c:=inttostr(Richedit1.Text);
c:=a+b;
Richedit1.Text:=inttostr(c);
end;

или надо через FieldCount? Вобщем я не спец в этом деле, если вам НЕтрудно можете написать, или может у кого есть готовые примеры. Заранее спасибо!

[Nemon]

Нет, не так.

Допусти есть таблица table1
В ней 2 поля pole1 и pole2
Писасть надо именно table1pole1 а не table1.fieldbyname.

[Jon_1981]

Нет почему он правильно написал
Table1.FieldByName('Имя поля').AsString

[Apollo_13]

Спасибо вам за ответ, но решил сделать так:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: integer;
begin
a:=Table1.FieldValues['Value1'];
b:=Table2.FieldValues['Value2'];
c:=a+b;
Richedit1.Text:=inttostr(c);
end;

[Apollo_13]

Спасибо что помогли, я решил сделать такой вариант:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: integer;
begin
a:=Table1.FieldValues['Value1'];
b:=Table2.FieldValues['Value2'];
c:=a+b;
Richedit1.Text:=inttostr(c);
end;

P.S. - Еще раз спасибо...

[Pitbull]

на 1-й и 2-й:

procedure TForm1.Button1Click(Sender: TObject);
begin
with DBLookupComboBox1 do begin
ListSource:=DataSource1;
//ListField := 'pnum';
KeyField := 'pnum' ; // устанавливаешь поля для занесения которое заносится
end;

DBListBox1.Items.Add(DBLookupComboB ox1.Text) ;// заносим из DBLookupComboBox1 в DBListBox1
end;

end.