Программа тестирования

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, StdCtrls, Buttons;
 
type
  TForm3 = class(TForm)
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure DrawQ;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
  s:array of integer;
  s1:array of string;
implementation
 
uses Unit1, Unit2;
 
{$R *.dfm}
 
procedure TForm3.FormActivate(Sender: TObject);
var
  i:integer;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from vopr where id_n='+
     vartostr(form2.ADOQuery1.FieldValues['id_test']));
  ADOQuery1.Open;
  if ADOQuery1.RecordCount=0 then ModalResult:=mrOk;
  SetLength(s,ADOQuery1.RecordCount+1);
  SetLength(s1,ADOQuery1.RecordCount+1);
  for i:=1 to ADOQuery1.RecordCount do begin s[i]:=-1;s1[i]:='-1';end;
  ADOQuery1.First;
  DrawQ;
end;
 
procedure TForm3.DrawQ;
var
  i:integer;
begin
  Label1.Caption:=vartostr(ADOQuery1.FieldValues['vopros']);
  GroupBox1.Caption:='Вопрос № '+inttostr(ADOQuery1.RecNo);
  RadioGroup1.Items.Clear;
  for i:=0 to 4 do
    if vartostr(ADOQuery1.FieldValues['v'+inttostr(i)])<>'' then
      RadioGroup1.Items.Add(ADOQuery1.FieldValues['v'+inttostr(i)]);
      RadioGroup1.ItemIndex:=s[ADOQuery1.RecNo];
end;
 
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
  s[ADOQuery1.RecNo]:=RadioGroup1.ItemIndex;
  s1[ADOQuery1.RecNo]:=vartostr(ADOQuery1.fieldValues['id_o']);
  if ADOQuery1.RecNo=ADOQuery1.RecordCount then ADOQuery1.First
    else ADOQuery1.Next;
  DrawQ;
  
 
end;
 
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  s[ADOQuery1.RecNo]:=RadioGroup1.ItemIndex;
  s1[ADOQuery1.RecNo]:=vartostr(ADOQuery1.fieldValues['id_o']);
  if ADOQuery1.RecNo=1 then ADOQuery1.Last
    else ADOQuery1.Prior;
  DrawQ;
end;
 
procedure TForm3.BitBtn3Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to ADOQuery1.RecordCount do begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('insert into protokol (id_t,FIO,vopr,res) values ('+
     QuotedStr(vartostr(form2.ADOQuery1.FieldValues['id_test']))+','+
     QuotedStr(Form1.Edit1.Text)+','+
     s1[i]+','+inttostr(s[i]+1)+')');
    ADOQuery1.ExecSQL;
   end;
   ModalResult:=mrOk;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
// вот тут надо написать результат тестирующего
end;
 
end.