тест в Delphi c помощью БД

[KaNa21]

как создать тест в Delphi с помощью БД, чтобы выбирал вопросы из БД random-no по 15 вопросов с помощью компонента radio button

[Stilet]

http://www.programmersforum.ru/showt...E4%E5%EB%F4%E8
http://www.programmersforum.ru/showthread.php?t=56718
http://www.programmersforum.ru/showp...3&postcount=12
http://phomm.narod.ru/programs/testsystem.htm

Для начала пойдет?

[KaNa21]

для начала да пойдет. Но там нету исходника с использованием БД

[Stilet]

Так тебе нужно понимание, того как тесты делаются или уже готовая программа?

[KaNa21]

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

[Stilet]

мне нужен код программы чтобы я понял как его делать.

Интересно детки пляшут...
Ладно. вод код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
                  Classes, SysUtils, sqldb, FileUtil, Forms, Controls, Graphics,
		  Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
		  Button1: TButton;
		  Button2: TButton;
		  CheckGroup1: TCheckGroup;
		  Memo1: TMemo;
		  Panel1: TPanel;
		  Query: TSQLQuery;
		  procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

private
                  procedure step(Direct:Integer);
                  { private declarations }
public
                  { public declarations }
end;

var
                  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Align:=alBottom;
  Button1.Align:=alLeft; Button1.Caption:='Назад';
  Button2.Align:=alRight;Button2.Caption:='Вперед';
  Memo1.Align:=alLeft;
  CheckGroup1.Align:=alClient;

  with Query do begin
    SQL.Text:='select * from [Тесты]';
    open;
    step(0);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  step(1); //Идем на следующий вопрос
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 step(-1); //Идем на предидущий вопрос
end;



procedure TForm1.step(Direct: Integer);
var i:integer; s:string;
begin

  if Direct<>0 then begin
  //Анализ ответа на текущий вопрос
  s:=FieldByName('Варианты ответа').AsString;
  with CheckGroup1 do
   for i:=0 to Items.Count-1 do begin
     if
       (Checked[i] and (pos(s,IntToStr(i)+',')=0))
     or(not Checked[i] and (pos(s,IntToStr(i)+',')<>0))
      then begin
      ShowMessage('Аблом. Ответы не верные'); exit;
     end;
   end;
  end;

  //Проход по тесту
  if Direct>0 then begin
    if not Query.FindNext then begin
      ShowMessage('Тест подошел к концу. Аста ла виста'); exit;
    end;
  end else
  if Direct<0 then begin
    if not Query.FindPrior then begin
      ShowMessage('Вы в начале теста. Удачи.');
    end;
  end;


  //Наполнение формы вопросом и ответами
  with Query do begin
    Memo1.Lines.Text:=FieldByName('Вопрос').AsString;
    CheckGroup1.Items.Clear;
    for i:=0 to FieldCount-1 do begin
      if pos('Вариант',Fields[i].FieldName)<>0 then
       CheckGroup1.Items.Append(Fields[i].AsString);
    end;
  end;

end;

end.

Код с потолка.

Для него нужна следующая база.
Таблица "Тесты", в которой есть поля "Вопрос", "Варианты ответа" и поля в имени которых есть слово "Вариант", например Вариант01, Вариант02 и т.д.
В поле "Варианты ответа" проставляются правильные номера ответов через запятую.

Подключение к БД сделаешь сам.

Удачного изучения )