VPF::Не могу понять исходник, Тест и БД access

Upgrader

Дата 22.3.2010, 00:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 28.8.2007

Репутация: нет
Всего: нет

Никак не могу понять, подскажите пожалуйста.
Исходник в полном комплекте с БД во вложении. А текст можно посмотреть не скачивая тут.

Это программа тестов, берет из базы Access вопросы и варианты ответов.

Непонятна одна вещь:
Каким образом там проверяется что ответ верный? И где в базе данных вообще запись о верном ответе?
В упор не нахожу. Подскажите пожалуйста, ткните пальцем. smile

Честное словно не могу найти... Сколько уже искал... smile

Присоединённый файл ( Кол-во скачиваний: 46 )

lite_test.rar 184,13 Kb

bems

Дата 22.3.2010, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Код


procedure TForm1.Var1Click(Sender: TObject);
begin
if (Var1.Checked=true)then
begin
inc(shet);
end;
end;

В этой программе бывает что верный не первый вариант ответа? smile

--------------------

Обижено школьников: 8

Данкинг

Дата 22.3.2010, 00:45 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(bems @ 22.3.2010, 00:20

)

В этой программе бывает что верный не первый вариант ответа?

Причём на другие варианты вообще не созданы обработчики событий. smile

Это сообщение отредактировал(а) Данкинг - 22.3.2010, 00:45

--------------------

There's nothing left but silent epitaphs.

former

Дата 22.3.2010, 11:10 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Цитата(Данкинг @ 22.3.2010, 00:45

)

Причём на другие варианты вообще не созданы обработчики событий.

Скорее всего это лишь простейший пример, который еще нужно ковырять молотком и зубилом, а лучше писать с чистого листа. В интернете много исходников программ для тестирования, да и на форуме вроде было что-то.

--------------------

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »