Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 09.06.2019
Сообщений: 1

В тесте, при присваивании ответов, иногда просто нет правильного ответа

09.06.2019, 11:56. Показов 1348. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В тесте, при присваивании ответов, иногда просто нет правильного ответа.
Вот код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
ADOQuery1.SQL.Text:='SELECT pravotv FROM t2 WHERE Numb='+quotedstr(a);
  ADOQuery1.Open;
  ys:=ADOQuery1.Fields[0].Value;
  radiobutton1.caption:=ys;
  ADOQuery1.Close;
 
    ADOQuery1.SQL.Text:='SELECT neprav FROM t2 WHERE Numb='+quotedstr(a);
  ADOQuery1.Open;
  radiobutton2.caption:=ADOQuery1.Fields[0].Value;
  ADOQuery1.Close;
 
    ADOQuery1.SQL.Text:='SELECT neprav2 FROM t2 WHERE Numb='+quotedstr(a);
  ADOQuery1.Open;
  radiobutton3.caption:=ADOQuery1.Fields[0].Value;
  ADOQuery1.Close;
 
    ADOQuery1.SQL.Text:='SELECT neprav3 FROM t2 WHERE Numb='+quotedstr(a);
  ADOQuery1.Open;
  radiobutton4.caption:=ADOQuery1.Fields[0].Value;
  ADOQuery1.Close;
Раза три за 10 вопросов радиобатону с правильным значением присваивается случайное значение неправильного ответа....
Уже вю голову сломал, буду признателен
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.06.2019, 11:56
Ответы с готовыми решениями:

Таймер, дающий 20 минут на ответы и вывод правильного ответа в тесте
Привет всем, помогите доделать программу тест. Нужно чтобы стартовал таймер обратного отчета(20 мин.) при нажатии на кнопку Регистрация. ...

Задание из теста, в котором нет правильного ответа
Вопрос из теста, в котором нет правильного ответа, попробовал скомпилировать в WS 2017, ни один из вариантов не компилируется. ...

Проверка правильного ответа при тестировании
Добрый день. Создаю программу на C# для тестирования на тему программирования, но не могу сделать так чтоб информация введенная...

3
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,656
Записей в блоге: 21
09.06.2019, 13:39
ОДИН РАЗ. прямо в дизайнере заполните adoquery1.sql.text
SQL
1
SELECT pravotv, neprav, neprav2, neprav3 FROM t2 WHERE numb=:N
соответственно в коде
Delphi
1
2
3
4
5
6
7
adoquery1.Close;
adoquery1.parameters.parambyname('N').value := НОМЕРВОПРОСА;
adoquery1.Open;
radiobutton1.caption:=adoquery1.FieldByName('pravotv').AsString;
radiobutton2.caption:=adoquery1.FieldByName('neprav').AsString;
radiobutton3.caption:=adoquery1.FieldByName('neprav2').AsString;
radiobutton4.caption:=adoquery1.FieldByName('neprav3').AsString;
а почему там у вас не те значения - мы вашу базу не видим...
0
 Аватар для Пытливый
3763 / 2267 / 705
Регистрация: 29.05.2013
Сообщений: 9,622
09.06.2019, 14:54
Что-то мне подсказывает, что Numb это как-бы число а не строка и запихивать его между кавычками quotedstr() было плохой идеей.
0
5953 / 4529 / 1094
Регистрация: 29.08.2013
Сообщений: 28,121
Записей в блоге: 3
09.06.2019, 15:02
Цитата Сообщение от Пытливый Посмотреть сообщение
и запихивать его между кавычками quotedstr() было плохой идеей.
без разницы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.06.2019, 15:02
Помогаю со студенческими работами здесь

Как создать тест без правильного ответа, для сбора информации(ответа)
Как создать тест без правильного ответа, для сбора информации(ответа). К примеру мне нужно создать тест по профориентации, там нет...

Как сделать суммирование баллов при выборе правильного ответа?
Хочу сделать программу на на которой будут разные тематические вопросы при выборе правильного ответа будет начислено игроку 5-10 баллов...

Комп иногда выкидывает синий экран, иногда просто тупит
Проверьте логи. Комп иногда выкидывает синий экран, иногда просто тупит. Если скажите, что всё чисто, буду думать в сторону железа, а пока...

Иногда синий экран иногда просто фаер шоу
Всем привет! Проблема в следующем: В основном в играх судя по всему видеодрайвер дает сбой, и появляются артефакты как на фото,...

Компьютер зависает: иногда намертво, иногда просто тормозит.
компьютер время от времени зависает, намертво виснит на несколько секунд мышь и клавиатура, затем отвисает. Иногда виснет по другому:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru