делфи ругается при добавлении записи

[Cannibal]

при выполнении кода на строке выделенной красным возникает ошибка, показанная на первом рисунке. схема БД показана на втором рисунке. не для всех записей таблицы Pupils есть запись в таблице disability.

 datamodule2.ADOQuery1.Active:=false;
  datamodule2.ADOQuery1.SQL.Clear;
  datamodule2.ADOQuery1.SQL.Add('INSERT into pupil ');
  datamodule2.ADOQuery1.SQL.Add('(sername, nam, fname,pol, birthday,adress, phone)');
  datamodule2.ADOQuery1.SQL.Add('values ('+ chr(39)+ family.Text+chr(39)+','+
   chr(39)+ Ima.Text+chr(39)+','+chr(39)+ otchestvo.Text+chr(39)+','+chr(39)+ pol.Text+chr(39)+','+
    chr(39)+ birthday.Text+chr(39)+','+chr(39)+ adress.Text+chr(39)+','+chr(39)+ phone.Text+chr(39)+')');
  datamodule2.ADOQuery1.Active:=true;
  datamodule2.ADOQuery1.ExecSQL;

  datamodule2.ADOQuery1.Active:=false;
  datamodule2.ADOQuery1.SQL.Clear;
  datamodule2.ADOQuery1.SQL.Add('INSERT into school');
  datamodule2.ADOQuery1.SQL.Add('(pupilid,godobuch,class,progid,formid,zach, putevka, pmpk,  zabolevanie, disability, logoped,gpd,ssd)');
  datamodule2.ADOQuery1.SQL.Add('VALUES ('+datamodule2.pupilPupilId.AsString +','+
   chr(39)+ clas.Text+chr(39)+','+chr(39)+ osh.Text+chr(39)+','+inttostr(progr.ItemIndex+1)+','+inttostr(forma.itemindex+1)+','+
    chr(39)+zachisl.Text+chr(39)+','+chr(39)+ putevka.text+chr(39)+','+chr(39)+pmpk.Text+chr(39)+','+
     chr(39)+ Dz.Text+chr(39)+','+chr(39)+booltostr(disability.Checked)+chr(39)+','+
      chr(39)+booltostr(logoped.Checked)+chr(39)+','+chr(39)+booltostr(gpd.Checked)+
       chr(39)+','+chr(39)+booltostr(ccd.Checked)+chr(39)+')');
  datamodule2.ADOQuery1.Active:=true;
  datamodule2.ADOQuery1.ExecSQL;

  datamodule2.ADOQuery1.Active:=false;
  datamodule2.ADOQuery1.SQL.Clear;
  datamodule2.ADOQuery1.SQL.Add('insert into parents (pupilid, mother,phonemother,father,phonefather)');
  datamodule2.ADOQuery1.SQL.Add('values ('+datamodule2.pupilPupilId.AsString+','+chr(39)+ momfio.Text+chr(39)+','+
   chr(39)+ momphone.Text+chr(39)+','+chr(39)+ dadfio.Text+chr(39)+','+chr(39)+ dadphone.Text+chr(39)+')');
  datamodule2.ADOQuery1.Active:=true;
  datamodule2.ADOQuery1.ExecSQL;

  datamodule2.ADOQuery1.Active:=false;
  datamodule2.ADOQuery1.SQL.Clear;
  datamodule2.ADOQuery1.SQL.Add('insert into disability (pupilid, nospravki,beg)');
  datamodule2.ADOQuery1.SQL.Add('values ('+datamodule2.pupilPupilId.AsString+','+chr(39)+
   nomer.Text+chr(39)+','+chr(39)+ beg.Text+chr(39)+')');
  datamodule2.ADOQuery1.Active:=true;
  datamodule2.ADOQuery1.ExecSQL;

[Stilet]

Правильно ругается
datamodule2.ADOQuery1.Active:=true; убери.
И привыкай к хорошему тону:
Вместо chr(39)+ family.Text+chr(39)

+QuotedStr(family.Text)+

[artemavd]

Cannibal

А что, в один запрос все это нельзя было сделать?

[Cannibal]

но та же ошибка строчкой ниже
artemavd
Сделал в один, но ругается на енд после последнего запроса "Обнаружены символы за пределами инструкции SQL"

[Stilet]

но та же ошибка строчкой ниже

Ну дык сделай тоже самое
Во шутник...

[Cannibal]

Ну дык сделай тоже самое
Во шутник...

дак убрал я все Active. Уж не совсем тупой

[Stilet]

 
with datamodule2.ADOQuery1 do begin
 Active:=false;
 SQL.Text:=('INSERT into pupil (sername, nam, fname,pol, birthday,adress, phone) ');
 SQL.Add(' values ('+
  QuotedStr(family.Text)+','+
  QuotedStr(Ima.Text)+','+
  QuotedStr(otchestvo.Text)+','+
  QuotedStr(pol.Text)+','+
  QuotedStr(birthday.Text)+','+
  QuotedStr(adress.Text)+','+ 
  QuotedStr(phone.Text)+
 ')');
 ExecSQL;

Вот так напиши каждый запрос, и проверь.

[Cannibal]

Переписал этот кусок другим способом - все-равно ошибка, как в первом посте.

  Datamodule2.pupil.append;
  if family.Text<>#0 then
    datamodule2.pupil.FieldByName('sername').AsString:=Family.Text;
  if ima.Text<>#0 then
    datamodule2.pupil.FieldByName('Nam').AsString:=ima.Text;
  if otchestvo.Text<>#0 then
    datamodule2.pupil.FieldByName('Fname').AsString:=otchestvo.Text;
  datamodule2.pupil.FieldByName('Pol').AsString:=pol.Text;
  if birthday.Text<>da then
    datamodule2.pupil.FieldByName('Birthday').AsDateTime:=strtodate(birthday.Text);
  if adress.Text<>#0 then
    datamodule2.pupil.FieldByName('Adress').AsString:=(adress.Text);
  if phone.Text<>DT then
    datamodule2.pupil.FieldByName('Phone').AsString:=phone.Text;
  datamodule2.pupil.Post;

  datamodule2.school.Append;
  datamodule2.school.FieldByName('pupilid').AsInteger:=datamodule2.pupil.FieldByName('pupilid').AsInteger;
  if clas.text<>#0 then
    datamodule2.school.FieldByName('GodObuch').AsInteger:=strtoint(clas.Text);
  if osh.Text<>#0 then
    datamodule2.school.FieldByName('Class').AsInteger:=strtoint(osh.Text);
  datamodule2.school.FieldByName('progid').AsInteger:=progr.ItemIndex+1;
  datamodule2.school.FieldByName('formid').AsInteger:=forma.itemindex+1;
  if zachisl.text<>da then
    datamodule2.school.FieldByName('zach').AsDateTime:= Strtodate(zachisl.Text);
  if putevka.text<>#0 then
    datamodule2.school.FieldByName('putevka').AsString:=putevka.text;
  if pmpk.text<>Dt then
    datamodule2.school.FieldByName('pmpk').AsString:=pmpk.Text;
  if dz.text<>#0 then
    datamodule2.school.FieldByName('zabolevanie').AsString:=Dz.Text;
  datamodule2.school.FieldByName('disability').AsBoolean:=disability.Checked;
  datamodule2.school.FieldByName('logoped').AsBoolean:=logoped.Checked;
  datamodule2.school.FieldByName('GPD').AsBoolean:=gpd.Checked;
  datamodule2.school.FieldByName('ssd').AsBoolean:=ccd.Checked;
  datamodule2.school.Post;

  datamodule2.parents.Append;
  datamodule2.parents.FieldByName('pupilid').AsInteger:=datamodule2.pupil.FieldByName('pupilid').AsInteger;
  if momfio.Text=#0 then
    datamodule2.parents.FieldByName('mother').AsString:=momfio.Text;
  if momphone.Text=MT then
    datamodule2.parents.FieldByName('phoneMother').AsString:=momphone.Text;
  if dadfio.Text=#0 then
    datamodule2.parents.FieldByName('father').AsString:=dadfio.Text;
  if dadphone.Text=MT then
    datamodule2.parents.FieldByName('PhoneFather').AsString:=dadphone.Text;
  datamodule2.parents.Post;

  if disability.checked then
  begin
    datamodule2.disability.Append;
    datamodule2.disability.FieldByName('pupilid').AsInteger:=datamodule2.pupil.FieldByName('pupilid').AsInteger;
    if nomer.Text=#0 then
      datamodule2.disability.FieldByName('nospravki').AsString:=nomer.Text;
    if beg.Text=dt then
      datamodule2.parents.FieldByName('beg').AsString:=beg.Text;
  end;

[plato]

Для начала разберись со своими "disability". А то это у тебя и имя таблицы, и поле в таблице "школа", и чек на форме. изменил бы имена и ошибок бы меньше было.