[delphi+access] Проверка правильности

[ramik1990]

добрый день!
решил попробывать сделать тестировщик с БД Access.
таблица правда там только одна. поля: вопрос, правильный ответ, ответ2, ответ3, ответ4, ответ5....
конечно можно было и нужно 2 таблицы..былоб правильней наверно..
ну так как я уже начал делать с одной то немогу теперь сообразить как организовать проверку.... варианты ответов загружаются с бд в радиобатоны...
вот собственно код (при создании формы загружаются данные первой строки таблицы):

procedure TForm3.FormCreate(Sender: TObject);
begin
protveti:=0;
protvetov.Caption:='Правильных ответов: '+inttostr(0);
Label1.Caption:=Label1.Caption+IntToStr(TTest.RecordCount);
ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'logo.swf';
randomize;
ran:=random(4);
case ran of
0: begin
   RadioButton1.Caption:=TTest['protv'];
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
   if RadioButton1.Checked=True then protveti:=protveti+1;
   end;
1: begin
   RadioButton2.Caption:=TTest['protv'];
   RadioButton1.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
   if RadioButton2.Checked=True then protveti:=protveti+1;
   end;
2: begin
   RadioButton3.Caption:=TTest['protv'];
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton1.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
   if RadioButton3.Checked=True then protveti:=protveti+1;
   end;
3: begin
   RadioButton4.Caption:=TTest['protv'];
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton1.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
   if RadioButton4.Checked=True then protveti:=protveti+1;
   end;
4: begin
   RadioButton5.Caption:=TTest['protv'];
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton1.Caption:=TTest['otv5'];
   if RadioButton5.Checked=True then protveti:=protveti+1;
   end;
   end;
   
  end;

и код на кнопке "далее" :

procedure TForm3.btnextClick(Sender: TObject);
begin
//=====загрузка ответов============
TTest.Next;
RadioButton1.Checked:=False;
RadioButton2.Checked:=False;
RadioButton3.Checked:=False;
RadioButton4.Checked:=False;
RadioButton5.Checked:=False;
randomize;
ran:=random(4);
case ran of
0: begin
   RadioButton1.Caption:=TTest['protv'];
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
   if RadioButton1.Checked=True then protveti:=protveti+1;
   end;
1: begin
   RadioButton2.Caption:=TTest['protv'];
   RadioButton1.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
   if RadioButton2.Checked=True then protveti:=protveti+1;
   end;
2: begin
   RadioButton3.Caption:=TTest['protv'];
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton1.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
   if RadioButton3.Checked=True then protveti:=protveti+1;
   end;
3: begin
   RadioButton4.Caption:=TTest['protv'];
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton1.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
   if RadioButton4.Checked=True then protveti:=protveti+1;
   end;
4: begin
   RadioButton5.Caption:=TTest['protv'];
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton1.Caption:=TTest['otv5'];
   if RadioButton5.Checked=True then protveti:=protveti+1;
   end;
   end;
//=============================================
//=========выводим колличество правильных ответов====
 protvetov.Caption:='Правильных ответов: '+inttostr(protveti);

end;

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

[ramik1990]

или может както легче и проще будет реализовать с помощью компонента dbcheckbox...
кто знает подскажите?

[ramik1990]

спасибо большое всем за "ответы".... сам уже разобрался............

[Аватар]

спасибо большое всем за "ответы"....

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

конечно можно было и нужно 2 таблицы..былоб правильней наверно

Это 'конечно' и есть ответ на ваш вопрос

Правильный ответ - весь код в топку и нормально написать обработку вопросов и ответов

[rdama]

Аватар, + 1.
Только, не только код сжечь но и БД туда же.
И нормально выполнить постановку задачи и проектирование.

[ramik1990]

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

Аватар, + 1.
Только, не только код сжечь но и БД туда же.
И нормально выполнить постановку задачи и проектирование.

ёба ёба.. вот взял бы в таком случае и объяснил лучше как правильно было б сделать... для чего и была создана эта тема.. а не флуд разводить тут...

[Аватар]

ramik1990, на форуме никто никому ни чем не обязан. Хотя отвечают, хотят не отвечают. Может ваш вопрос ни кому не интересен. А таких как вы, с претензиями, не любят, как врочем и на других форумах. Поекспериментируйте, может пошлют где-то подальше

[ramik1990]

Сообщение от Аватар

ramik1990, на форуме никто никому ни чем не обязан. Хотя отвечают, хотят не отвечают. Может ваш вопрос ни кому не интересен. А таких как вы, с претензиями, не любят, как врочем и на других форумах. Поекспериментируйте, может пошлют где-то подальше

так у меня претензий то и нет. и не говорю что обязаны. просто пришел сюда за помощью.. если не хотят помогать так и ненадо. ну и ерунду писать тогда зачем?согласись? P.S. при всем уважении

[Stilet]

Хорошо. Хочешь помощи? Избавься от манеры переставлять значения кнопок.
Пиши просто:

procedure aga;
begin
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
end;

И событие клика на батоны:

begin
 if TRadioButton(sender).caption=TTest['protv'] then protveti:=protveti+1;
 if not TTest.FindNext then ShowMessage('На все отвечено') 
 else aga
end;

Вот это уже более похоже будет на правдку, когда тест будет ожидать ответа, сравнивать его при клике и переходить на следующий.

[ramik1990]

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

Хорошо. Хочешь помощи? Избавься от манеры переставлять значения кнопок.
Пиши просто:

procedure aga;
begin
   RadioButton2.Caption:=TTest['otv2'];
   RadioButton3.Caption:=TTest['otv3'];
   RadioButton4.Caption:=TTest['otv4'];
   RadioButton5.Caption:=TTest['otv5'];
end;

И событие клика на батоны:

begin
 if TRadioButton(sender).caption=TTest['protv'] then protveti:=protveti+1;
 if not TTest.FindNext then ShowMessage('На все отвечено') 
 else aga
end;

Вот это уже более похоже будет на правдку, когда тест будет ожидать ответа, сравнивать его при клике и переходить на следующий.

Спасибо большое!!