Связывание таблиц

[Jenny89]

На форме имеется combobox который отображает данные из базы (таблицы customer).

procedure TForm1.FormShow(Sender: TObject);
begin
  ComboBox1.Items.Clear;
  while not ADOQuery3.EOF do
  begin
    ComboBox1.Items.Add(ADOQuery3.FieldByName('customer').AsString);
    ADOQuery3.Next;
  end;

Так же имеются dbgrid (таблицы address) и dbnavigator для изменения/вставки записи в базе. При выборе поля в Combobox, хотелось бы, чтобы можно было менять запись в базе с помощью dbgrid.

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  ADOquery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from address where c_id='+ADOQuery3.FieldByName('c_id').asString);
  ADOQuery1.Open;
end;

Koд для вставки новой записи:

procedure TForm1.ADOQuery1NewRecord(DataSet: TDataSet);
begin
ADOQuery1.FieldByName('c_id').asInteger:=ADOQuery3.FieldByName('c_id').AsInteger;
end;

2 Таблицы в базе (Combobox и DbGrid) связанны ключом (id). При вставки записи берется один и тот же ключ (из таблицы customer), например id равен всегда 12 не зависимо какое поле я в Comboboxe выбираю. Я в этом совсем новичок, помогите пожалуйста, очень нужно....

[Jenny89]

Помогите пожалуйста, очень важно. Может проблема в коде, я в этом совсем новичок

[Serge_Bliznykov]

Jenny89, а поясните, почему не воспользовались DBComboBox ?
там можно получать ключевое значение без дополнительных "танцев с бубном".
А если всё же нужно использовать ComboBox, тогда нужно позаботиться и о сохранении где-то ключевого поля (c_id) и по нему делать то, что Вам нужно, например, позиционироваться в датасете, с которым у Вас связан DBGrid...

как добавить целочисленное ключевое значение в обычный Combobox можно посмотреть здесь (там это сделано через AddObject() )
если у Вас ключевое значение - не целое число, тогда нужно танцевать с бубном...

[Jenny89]

Дело в том что я в начале использовала DBCombobox, все тоже самое выходило, потом начала с Combobox пробовать

[evg_m]

При вставки записи берется один и тот же ключ (из таблицы customer), например id равен всегда 12 не зависимо какое поле я в Comboboxe выбираю.

Правильно, поскольку вы никак не пользуетесь информацией combobox. А Query3 данными которого вы пользуетесь, ПОСЛЕ заполнения того самого comboBox (после formShow) имеет текущей строкой(записью) последнюю (с ID =12) и НИКАК не отслеживает (не реагирует) на изменения в ComboBox.
Ни он(query), ни comboBox знать друг про друга ничего не знают.
Надо
Либо хранить в ComboBox значения всех ID связанных со строками.

ComboBox1.Items.AddObject(ADOQuery3.FieldByName('customer').AsString, Pointer(ADOQuery3.FieldByName('ID').AsInteger));

И использовать ЭТО значение.

j:=comboBox1.itemIndex; //номер текущей строки 
if j>=0 then // А выбрана ли строка ?
   AdoQuery1.FieldByName('c_id').AsInteger:=Integer(comboBox1.Items.Objects[j]); //достаем из нужной(текущей) строки запомненное значение !

Либо перейти к DB компонентам реализующим списки с тем чтобы они могли и управляли текущей позицией в Query3 в соответствии со свой позицией.

[Jenny89]

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

Правильно, поскольку вы никак не пользуетесь информацией combobox. А Query3 данными которого вы пользуетесь, ПОСЛЕ заполнения того самого comboBox (после formShow) имеет текущей строкой(записью) последнюю (с ID =12) и НИКАК не отслеживает (не реагирует) на изменения в ComboBox.
Ни он(query), ни comboBox знать друг про друга ничего не знают.
Надо
Либо хранить в ComboBox значения всех ID связанных со строками.

ComboBox1.Items.AddObject(ADOQuery3.FieldByName('customer').AsString, Pointer(ADOQuery3.FieldByName('ID').AsInteger));

И использовать ЭТО значение.

j:=comboBox1.itemIndex; //номер текущей строки 
if j>=0 then // А выбрана ли строка ?
   AdoQuery1.FieldByName('c_id').AsInteger:=Integer(comboBox1.Items.Objects[j]); //достаем из нужной(текущей) строки запомненное значение !

Либо перейти к DB компонентам реализующим списки с тем чтобы они могли и управляли текущей позицией в Query3 в соответствии со свой позицией.

Спасибо. Скажите если я использую DBCombobox и при этом datasource, datafield у DBCombobox задан, но в DBGrid все равно (как и с простым Combobox) заносится последняя строка ID (12), что в этом случаи не так?

[Jenny89]

Скажите если я использую DBCombobox и при этом datasource, datafield у DBCombobox задан, но в DBGrid все равно (как и с простым Combobox) заносится последняя строка ID (12), что в этом случаи не так?

Подскажите кто нибудь, важно!!

[xxbesoxx]

При выборе поля в Combobox, хотелось бы, чтобы можно было менять запись в базе с помощью dbgrid.

Каторый вы выбрали Combobox -е ?

Подскажите кто нибудь,

Выбирайте данных Combobox-е из полеи (Name) примерно есть поля
(Name)
-------------
Чай
Кофе
Сохар
----------------
Вы на пример выбрали Кофе и что надо потом ?

[Jenny89]

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

Каторый вы выбрали Combobox -е ?

Выбирайте данных Combobox-е из полеи (Name) примерно есть поля
(Name)
-------------
Чай
Кофе
Сохар
----------------
Вы на пример выбрали Кофе и что надо потом ?

объясню на моем примере: В Combobox-e выбираю клиента например Иван Петров, после этого в DBGrid-e высвечивается/ются адрес/aдреса выбранного клиента (Ивана Петрова), которые можно изменять или добавить(если поле пустое).

Первичный ключ ( например id Ивана Петрова = 3) таблицы "клиент" равен внешнему ключу таблицы "адрес", как то так....

Вообщем в DBCombobox-e я выбираю Ивана Петрова, в DBGrid-e вписываю адрес, и тут адрес Ивана Петрова получает автоматически внешний ключ (id) не 3, a 12 (id последнего клиента)

[xxbesoxx]

объясню на моем примере: В Combobox-e выбираю клиента например Иван Петров, после этого в DBGrid-e высвечивается/ются адрес/aдреса выбранного клиента

1)

procedure TForm1.FormShow(Sender: TObject);
begin
  ComboBox1.Items.Clear;
  while not qryCust.EOF do
  begin
    ComboBox1.Items.Add(qryCust.FieldByName('C_name').AsString);
    qryCust.Next;
end;
end;

2)

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if ComboBox1.Text<>'' then
 begin
   with qryCust do
    begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT* FROM Cust ');
        SQL.Add('WHERE C_name = '''+ ComboBox1.Text +'''');
        Open;
    end;
 end;
end;

3)

procedure TForm1.qryCustAfterScroll(DataSet: TDataSet);
begin
  if qryCust.FieldByName('C_id').AsString<>'' then
    begin
      with qryAdress do
      begin
        Filtered:=False;
        Filter:='Cust_ID ='+qryCust.FieldByName('C_id').AsString;
        Filtered:=True;
      end;
    end;
end;

которые можно изменять или добавить

Это изменять или добавить сам будите делать ?