Topic: Заполнение значений id вопросов, имеющих признак актуальности
Добрый день.
Есть вот такой скриптик для заполнения в форме frm.main поля "TextBox" значениями из Таблицы main, кроме значения id_vopr, которое ручками выставлено равное 1,2...5
SQLExecute('INSERT INTO main (id_login, id_vopr, data, otvet) VALUES (''' +IntToStr(iduser)+''', ''1'', now(), '''+FrmMain.CheckBox2.sqlValue+''')');
Таких скриптов 5 и соответствует 5 полям в форме frm.main соответственно имеем:
SQLExecute('INSERT INTO main (id_login, id_vopr, data, otvet) VALUES (''' +IntToStr(iduser)+''', ''2'', now(), '''+FrmMain.CheckBox2.sqlValue+''')');
и т.д.
SQLExecute('INSERT INTO main (id_login, id_vopr, data, otvet) VALUES (''' +IntToStr(iduser)+''', ''5'', now(), '''+FrmMain.CheckBox2.sqlValue+''')');
Есть таблица Vopr в которой есть 5 вопросов (кол-во вопросов на которое будет увеличиваться - постоянное и равно 5), в данной таблице у каждого вопроса есть поле Aktual значение "ДА/НЕТ" (0/1) выставляется ShekBoxом.
После добавления новых 5 вопросов у id_vopr=1...id_vopr=5 снимается признак актуальности (значение 0), а у вновь добавленных вопросов id_vopr=6...id_vopr=10 ставится признак актуальности (значение 1). Шаг постоянный и равен 5 (пяти).
Пожалуйста подскажите как заменить в скриптах
SQLExecute('INSERT INTO main (id_login, id_vopr, data, otvet) VALUES (''' +IntToStr(iduser)+''', ''????????1'', now(), '''+FrmMain.CheckBox2.sqlValue+''')');
и т.д. до
SQLExecute('INSERT INTO main (id_login, id_vopr, data, otvet) VALUES (''' +IntToStr(iduser)+''', ''????????5'', now(), '''+FrmMain.CheckBox2.sqlValue+''')');
Поле id_vopr значением не статическим (ручками), а значением из таблицы Vopr с признаком Aktual равным 1 (ДА) и неизменным шагом 5.
Заранее благодарен.