Тест с БД access

[RedSid]

Добрый день! Помогите пожалуйста разобраться с тестом. Идея состоит в том что на форме есть метка(вопрос) и 3 кнопки(ответы). В БД есть таблица с полями вопрос, ответ1, ответ2, ответ3. Название метки и кнопок подтягивается из этой таблицы. Как сделать чтобы варианты ответов сохранялись в другую таблицу(в этой таблице поля 1,2,3...60 по количеству вопросов) и при нажатии на ответ включался следующий вопрос? Всего 60 вопросов. Заранее спасибо)

[Dvoishnik]

при клике на кнопу сохранеете что нужно в необходимую таблицу
если делать с кнопкой перехода и радио групп то так:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex > -1 then
Begin
if  not ADOTable1.Eof then
 begin
 ADOtable2.Last;
 ADOtable2.Insert;
 ADOTable2id_vopros.Value:=ADOtable1id_vopros.Value;
 ADOtable2Otvet.Value:=RadioGroup1.ItemIndex;
 ADOtable2.post;
 ADOTable1.Next;
 RadioGroup1.Caption:=ADOTable1Vopros.Value;
 RadioGroup1.Items.Clear;
 RadioGroup1.Items.Add(ADOTable1Variant1.Value);
 RadioGroup1.Items.Add(ADOTable1Variant2.Value);
 RadioGroup1.Items.Add(ADOTable1Variant3.Value);
 end
   else if MessageDlg('Тест закончен закрыть программу?',mtConfirmation, mbOKCancel, 0) =mrOK  then
     Form1.Close;
end
 else  ShowMessage ('Выберите ответ!')
end;

procedure TForm1.FormCreate(Sender: TObject);
var
put:string;
begin
 put:=ExtractFileDir(Application.ExeName)+'/db1.mdb';
 ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+put+';Persist Security Info=False;';
 ADOConnection1.Connected:=true;
 ADOTable1.Active:=True;
 ADOTable2.Active:=True;

 RadioGroup1.Caption:=ADOTable1Vopros.Value;
 RadioGroup1.Items.Clear;
 RadioGroup1.Items.Add(ADOTable1Variant1.Value);
 RadioGroup1.Items.Add(ADOTable1Variant2.Value);
 RadioGroup1.Items.Add(ADOTable1Variant3.Value);
end;

а то как вы говорите с кнопками ИМХО не правильно как-то
схема данных

[RedSid]

Выходила ошибка с ADOtable2 - переименовал в table2, все ок)
Еще выходит ошибка с ADOTable2id_vopros.Value:=ADOtable1 id_vopros.Value;
ADOtable2Otvet.Value:=RadioGroup1.I temIndex; говорит что неправильно написано

[Stilet]

Текст ошибки в студию )

[RedSid]

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

Текст ошибки в студию )

[Error] Unit5.pas(53): Undeclared identifier: 'ADOTable2id_vopros'

[RedSid]

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

[Error] Unit5.pas(53): Undeclared identifier: 'ADOTable2id_vopros'

Пробовал написать Table2id_vopros - тоже не хочет

[Dvoishnik]

Добавте поля в ваш Table2 и в БД поля должны называться как на скрине

П.С. чтоб добавить поля в таблицу двойной клин левой кнопкой миши по таблице и Add filds

[RedSid]

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

Добавте поля в ваш Table2 и в БД поля должны называться как на скрине

так и есть

[Dvoishnik]

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

так и есть

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


компоненты которые должны быть на форме

если вы используете дата модуль подключите его к форме

Держите ссылку на проект дальше то я надеюсь разберётесь.

П.С. База данных должна находится в одной папке с Exe

[RedSid]

спасибо, буду разбираться))