[Student00]

Сделал. Теперь есть нормальная связь между компонентами DBLookupComboBox1 и DBLookupListBox1.

В компоненте DBLookupListBox1 выводиться список. В перспективе д/б так. Пользователь выбирает строку (вопрос), т.е. совершает событие onClick
Согласно выделенному вопросу подгружаются варианты ответов (DBRadioGroup1).

Но проблема возникла на первом этапе - компонент DBLookupListBox1 выделяет сразу все строки (все вопросы).
Как сделать так, что бы выделялась каждая строка я незнаю. Ребят, подскажите плз!


ПС.
БД будет не большая (учебная), DBLookupComboBox1 уже настроил подключил (да и легче его настроить) так что пусть будет он.

[BlackEric]

Вечером дома если до компа доберусь то посмотрю, но по чтению исходников - мама!!!!!!!!!

[Student00]

И опять решил проблему, оказывается в KeyField не то ключевое поле поставил.
Правда вопрос с тем, чтобы:

Согласно выделенному вопросу подгружаются варианты ответов (DBRadioGroup1).

попрежнему висит в воздухе

[Student00]

Тоесть проблема в том, чтобы при клике на одну из строк DBLookupListBox1
Происходил запрос в БД в таблицу otvet и от туда брались ответы соответствующие вопросам.
И в компоненте DBRadioGroup1 динамически добалялось то количество кнопок, которое соответствовало бы ответом на выбранный вопрос.

[Student00]

Код:

procedure TForm1.DBLookupListBox1Click(Sender: TObject);
begin
while ADOTableRadio1.Eof <> true do
begin
DBRadioGroup1.Items.Add('select count(*) from otvet where id_vopros = :id_vopros');
end;
end;

Вроде бы программа запускается, но когда совершаю указанное событие - зависает и в месте, где д/б радио кнопки - что-то похожее на вкл/выкл - мерцание.

[Student00]

Вопрос, был решен так:

Код:

procedure TForm1.DBLookupListBox1Click(Sender: TObject);
begin
  DBRadioGroup1.Items.Clear;
	ADOTableRadio1.First;
  while not ADOTableRadio1.Eof do
  begin
	DBRadioGroup1.Items.Add(ADOTableRadio1.FieldValues['otvet']);
	ADOTableRadio1.Next;
  end;
end;

[Student00]

Ребят, подскажите плз как сделать так, чтобы на событие DBRadioGroup1Click
Значения записывались в указанную таблицу в БД.

Т.е. Кинул на форму компонент ADOTable1, который связан с этой таблицей. Теперь НАВЕРНОЕ надо найти метод этого компонента, который бы позволил при совершении указанного события записать значение (индекс) в таблицу log в БД.
Возможно нужно использовать другой компонент...

Код:

procedure TForm1.DBRadioGroup1Click(Sender: TObject);
begin
//ADOTable1. ??????????????
//DBRadioGroup1.??????????????
end;

[BlackEric]

SQL : Insert Into....
Вызываете...

Это курсак или реальная програ? Если реальная о не используйте DB-aware компоненты. Намучаетесь.

[Dyvne Nihto]

SQL : Insert Into.... »

Это если нужной записи еще нет. Если есть, то либо Update..., либо Insert Into.... в комбинации с Delete From....

В любом случае
DoCmd.RunSQL "текстзапроса; "

А кстати: что - у этого DBRadioGroup нету свойства DataSource - ее нельзя просто привязать к полю в таблице?

[Student00]

Это курсак или реальная програ? Если реальная о не используйте DB-aware компоненты. Намучаетесь.

Это даже не курсак - а лаба. )) А вообще - TBRadioGroup, TDBLookupListBox, TDBLookupComboBox, ... именно такие компоненты лучше не использовать?
А почему? ))

SQL : Insert Into.... Вызываете...

Могли бы пожалуйста уточнить:
Нужно бросить на форуму компонент ТADOQuery? Запрос прописывать в свойстве SQL или в коде? Или и там и там?