[Anzhelika]

Здравствуйте программисты! Помогите исправить ошибку.
Требуется написать курсовую работу "Тестирование в делфи".
Форма с учетными данными всё выполняет правильно.
Проблема возникает при записи вариантов ответов в базу данных аксесса.
После выбора RadioButton1 и нажатии на кнопку, появляется ошибка: "Не удаётся вставить пустую строку. Необходим хотя бы один столбец значений."

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

procedure TForm3.Button1Click(Sender: TObject); begin DM.M1V1.Open; DM.M1V2.Open; DM.M1V3.Open; DM.M1V4.Open; DM.M1V5.Open; DM.Testiruemiy.Open; DM.Testiruemiy.Last; DM.OtvetTestera.Open; DM.OtvetTestera.Append; If (RadioButton1.Checked=False) and (RadioButton2.Checked=False) and (RadioButton3.Checked=False) and (RadioButton4.Checked=False) and (RadioButton5.Checked=False) then MessageDlg('Выберите вариант ответа!', mtWarning, [mbOK],0) else begin If RadioButton1.Checked=True then begin if not (DM.OtvetTestera.FieldByName('ID_user').IsNull) then DM.OtvetTestera.FieldByName('ID_user').AsInteger:=strtoint(DM.Testiruemiy.FieldValues['ID_user']); if not (DM.OtvetTestera.FieldByName('№VO').IsNull) then DM.OtvetTestera.FieldByName('№VO').AsInteger:=strtoint(DM.M1V1.FieldValues['№VO']); DM.OtvetTestera.Post; //MessageDlg(DM.M1V1.FieldValues['№VO'], mtWarning, [mbOK],0); DM.M1V1.Active:=True; //RadioButton1.Caption:= dm.M1V1.FieldValues['№VO']; a:=a+1; DM.ADOQuery1.Next; RadioButton1.Checked:=False;                                   end; If RadioButton2.Checked=True then begin //DM.OtvetTestera.FieldByName('ID_user').AsInteger:=strtoint(DM.Testiruemiy.FieldValues['ID_user']); //DM.OtvetTestera.FieldByName('№VO').AsInteger:=strtoint(DM.M1V1.FieldValues['№VO']); //DM.OtvetTestera.Post; //RadioButton2.Caption:= dm.M1V2.FieldValues['№VO']; a:=a+1; DM.ADOQuery1.Next; RadioButton2.Checked:=False;                                   end; If RadioButton3.Checked=True then begin //DM.OtvetTestera.FieldByName('ID_user').AsInteger:=strtoint(DM.Testiruemiy.FieldValues['ID_user']); //DM.OtvetTestera.FieldByName('№VO').AsInteger:=strtoint(DM.M1V1.FieldValues['№VO']); //DM.OtvetTestera.Post; a:=a+1; DM.ADOQuery1.Next; RadioButton3.Checked:=False;                                   end; If RadioButton4.Checked=True then begin //DM.OtvetTestera.FieldByName('ID_user').AsInteger:=strtoint(DM.Testiruemiy.FieldValues['ID_user']); //DM.OtvetTestera.FieldByName('№VO').AsInteger:=strtoint(DM.M1V1.FieldValues['№VO']); //DM.OtvetTestera.Post; a:=a+1; DM.ADOQuery1.Next; RadioButton4.Checked:=False;                                   end; If RadioButton5.Checked=True then begin //DM.OtvetTestera.FieldByName('ID_user').AsInteger:=strtoint(DM.Testiruemiy.FieldValues['ID_user']); //DM.OtvetTestera.FieldByName('№VO').AsInteger:=strtoint(DM.M1V1.FieldValues['№VO']); //DM.OtvetTestera.Post; a:=a+1; RadioButton5.Checked:=False; DM.ADOQuery1.Next;                                   end;       end; If a=25 then begin Button2.Visible:=True; DBMemo1.Visible:=False; RadioButton1.Visible:=False; RadioButton2.Visible:=False; RadioButton3.Visible:=False; RadioButton4.Visible:=False; RadioButton5.Visible:=False; Label1.Caption:='Спасибо за прохождение теста!';               end;    end;

Надеюсь на Вашу помощь!

[Alegun]

Код требует оптимизации, совершенно не читаем, по одной процедуре ничего не видно, непонятно к чему и какая секция относится, много повторов, прям бейсик какой-то итд. - будь ласка, сбросьте на zalil.ru весь проект посмотреть функционал в живую, только, пжлст, без мусора в виде экзешников и всяких там *.dcu, надо поглядеть

[Anzhelika]

Как умею). Вот исходник посмотрите пожалуйста.
http://zalil.ru/34884158

[poli-smen]

Вот непонятный кусок кода из модуля "M1":

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm3.Button1Click(Sender: TObject); begin .....   DM.OtvetTestera.Open;   DM.OtvetTestera.Append;   if (RadioButton1.Checked = False) and (RadioButton2.Checked = False) and     (RadioButton3.Checked = False) and (RadioButton4.Checked = False) and     (RadioButton5.Checked = False) then     MessageDlg('Выберите вариант ответа!', mtWarning, [mbOK], 0)   else   begin     if RadioButton1.Checked = True then     begin       if not (DM.OtvetTestera.FieldByName('ID_user').IsNull) then         DM.OtvetTestera.FieldByName('ID_user').AsInteger := strtoint(DM.Testiruemiy.FieldValues['ID_user']);       if not (DM.OtvetTestera.FieldByName('№VO').IsNull) then         DM.OtvetTestera.FieldByName('№VO').AsInteger := strtoint(DM.M1V1.FieldValues['№VO']);       DM.OtvetTestera.Post; .....

Зачем здесь проверки полей на IsNull? Ведь перед этим была добавлена новая, пустая запись (через Append), поэтому очевидно что все поля будут IsNull (пустые).
Или по крайней мере нужно изменить условие на обратное, а то получается, что если поле не пустое (т.е. not null, что в данном случае никогда не будет), то делаем в нём изменения, а если поле было пустое (что в данном случае будет всегда), то оно таким пустым и останется и в результате будет попытка записать полностью пустую запись.

[Anzhelika]

Это я так пыталась избавиться от ошибки.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm3.Button1Click(Sender: TObject); begin ..... DM.OtvetTestera.Open; DM.OtvetTestera.Append; If (RadioButton1.Checked=False) and (RadioButton2.Checked=False) and (RadioButton3.Checked=False) and (RadioButton4.Checked=False) and (RadioButton5.Checked=False) then MessageDlg('Выберите вариант ответа!', mtWarning, [mbOK],0) else begin If RadioButton1.Checked=True then begin DM.OtvetTestera.FieldByName('ID_user').AsInteger:=strtoint(DM.Testiruemiy.FieldValues['ID_user']); DM.OtvetTestera.FieldByName('№VO').AsInteger:=strtoint(DM.M1V1.FieldValues['№VO']); DM.OtvetTestera.Post; .....

[poli-smen]

Сообщение от Anzhelika

Это я так пыталась избавиться от ошибки

Тогда ты не ту таблицу проверяешь на IsNull - эта ошибка возникает в таблице Testiruemiy или в M1V1 (а ты проверяешь на IsNull таблицу OtvetTestera).

Т.е. должно быть как-то так:

Код:

1 2 3 4 5 6 7

if RadioButton1.Checked then begin   if not DM.Testiruemiy.FieldByName('ID_user').IsNull then     DM.OtvetTestera.FieldByName('ID_user').AsInteger := DM.Testiruemiy.FieldByName('ID_user').AsInteger;   if not DM.M1V1.FieldByName('№VO').IsNull then     DM.OtvetTestera.FieldByName('№VO').AsInteger := DM.M1V1.FieldByName('№VO').AsInteger;   DM.OtvetTestera.Post;

[Anzhelika]

Да, вы правы. Но после стала появляться другая ошибка(. Она связана со схемой данных БД аксесса?

[Anzhelika]

Всё заработало, спасибо). 2-ю ошибку решила в аксессе. убрала связь 1:М в схеме данных.