Связь компонента DbLookupCombobox с DBEdit при работе с БД. Delphi

[Miha11]

В программе имеются компоненты DbLookupCombobox и DBEdit работающие с одной базой данных .DbLookupCombobox отображает список товаров а DBEdit стоимость выбранного товара.Вроде всё работает но у меня возникла проблема следующего характера цена во всех DBEditах отображается только последнего товара который я выбрал в DbLookupCombobox.Допустим у меня 5 компонентов DbLookupCombobox и соответственно 5 DBEdit во всех DbLookupCombobox выбраны разные товары с разной стоимостью а вот во всех DBEditах будет отображаться только стоимость последнего товара . Подскажите плиз как решить эту проблему .Заранее благодарен ответившим!

[mihali4]

Вы разницу между подразделами "Общие вопросы Delphi" и "БД в Delphi" понимаете ?
А смысл работы своей программы ?
Переношу в "БД в Delphi".

[Miha11]

смысл программы в отображении цены товара . Допустим если в DbLookupCombobox я выбираю пункт *хлеб* то в DBEditе стоящем на против него появляется цифра 45 тоисть его цена . ну и так далее столбец DbLookupComboboxов и напротив кождого из них стоит DBEdit отображая цену выбранного товара

17:40

извиняюсь за двойное сообщение я не специально. нет глючит

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[vasek123]

Где исходник?

[Miha11]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    dbedt1: TDBEdit;
    dbedt2: TDBEdit;
    dblkcbb1: TDBLookupComboBox;
    dblkcbb2: TDBLookupComboBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

[Alana]

Вообще у меня работает и без всякого кода - настраиваю DBlookupComboBox и DBEdit на нужные мне поля. И при выборе товара меняется и цена. Но если так не получается, можно сделать запросом. К примеру имеется таблица:
id (код товара)
name (наименование)
cost (цена)

Кидаешь компонент ADOQuery, пишешь запрос ему:

select * from tovar
where tovar.name=:nm

nm - это параметр, в который будем передавать выбранный товар.
Теперь на форму кидаем DBlookupComboBox и обычный Edit. В событии OnClick для компонента DBlookupComboBox пишем код:

ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('nm').Value:=DBLookupComboBox2.Text;
ADOQuery1.ExecSQL;
ADOQuery1.Active:=true;
Edit1.Text:=ADOQuery1cost.AsString;

Да, вот еще что не забываем: на компоненте ADOQuery1 щелкаем два раза и в появившемся окне щелкаем правой кнопокй мыши и выбираем "Add all fields". Попробуйте, у меня работает такой вариант