Crysojk
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Делаю тест где вопросы берутся из бд Access. Сделал сперва по 6 вопросах во всех таблицах. Все ок. Но когда теперь добавляю например пару новых в самой бд все показывается как надо, а в программе начинает выводить с новых вопросов а не с первого. Например сперва 7 8 1 2 3 4 5 6. вместо что бы 1 2 3 4 5 6 7 8. Где копать?
Код:
procedure TForm4.Button2Click(Sender: TObject);
begin
if (NameStudentEdit.Text='')or(GroupEdit.Text='')or(ComboBox1.Text='') then
begin
ShowMessage('Все поля должны быть заполнены!');
exit;
end;
if(ComboBox1.ItemIndex <> -1) then begin
QCount:= 0;
with ADOTable1 do begin
Active:= false;
TableName:= 'Глава '+ComboBox1.Text;
Active:= True;
First;
TrueCount:= 0;
end;
Quest;
Button1.Enabled:= True;
NameStudent:=NameStudentEdit.Text;
Group:=GroupEdit.Text;
end;
end;
procedure TForm4.Quest;
begin
with ADOTable1 do begin
Edit1.Text:= FieldByName('Вопрос').AsString;
Edit2.Text:= FieldByName('Ответ А').AsString;
Edit3.Text:= FieldByName('Ответ Б').AsString;
Edit4.Text:= FieldByName('Ответ С').AsString;
TrueAnswer:= FieldByName('Правильный ответ').AsString;
RadioButton1.Checked:= false;
RadioButton2.Checked:= false;
RadioButton3.Checked:= false;
end;
end;
|
|
