Разобраться с транзакциями MySQL+dbExpress - Delphi БД - Ответ 9103312

begin
art:=Edit1.Text;
 zayav:=Edit2.Text;
 DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Select IDModelCartridga From SprModeleyCartridgey' +
 ' Where ModelCartridga = "'+ComboBox1.Text+'"';
 DataModule1.SQLQuery1.Active:=true;
 md:=DataModule1.SQLQuery1.FieldByName('IDModelCartridga').Value;
 
 DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Select IDKlienta From SprKlientov' +
 ' Where NameKlient = "'+ComboBox2.Text+'"';
 DataModule1.SQLQuery1.Active:=true;
 kl:=DataModule1.SQLQuery1.FieldByName('IDKlienta').Value;
 
  DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Select IDManager From SprManager' +
 ' Where Manager = "'+ComboBox4.Text+'"';
 DataModule1.SQLQuery1.Active:=true;
  pr:=DataModule1.SQLQuery1.FieldByName('IDManager').Value;
 
  DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Select IDManager From SprManager' +
 ' Where Manager = "'+ComboBox5.Text+'"';
 DataModule1.SQLQuery1.Active:=true;
  vid:=DataModule1.SQLQuery1.FieldByName('IDManager').Value;
 
 
  today:=Now;
 DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Insert Into Cartridgi (IDModelCartridga, IDMastera, DateRabot, Articul, Numzayavki,'+
 ' IDKlienta, IDMestaRabot, IDManagerPrin, DatePriema, DateVidachi, IDManagerVidal, IdStatusa, Komments) Values (:mymod, :mymas, :mydatr, :myart, :mynumz, '+
 ' :mykl, :mymest, :mypr, :mydatp, :mydatv, :myvid, :mystat, "'+Memo1.Lines.Text+'")';
 
   DataModule1.SQLQuery1.Params.ParamByName('mymod').Value:=IntToStr(md);
   DataModule1.SQLQuery1.Params.ParamByName('mymas').Value:=idus;
   DataModule1.SQLQuery1.Params.ParamByName('mydatr').Value:=today;
   DataModule1.SQLQuery1.Params.ParamByName('myart').Value:=art;
   DataModule1.SQLQuery1.Params.ParamByName('mynumz').Value:=zayav;
   DataModule1.SQLQuery1.Params.ParamByName('mykl').Value:=IntToStr(kl);
   DataModule1.SQLQuery1.Params.ParamByName('mymest').Value:='1';
   DataModule1.SQLQuery1.Params.ParamByName('mypr').Value:=IntToStr(pr);
   DataModule1.SQLQuery1.Params.ParamByName('mydatp').Value:=today;
   DataModule1.SQLQuery1.Params.ParamByName('mydatv').Value:=today;
   DataModule1.SQLQuery1.Params.ParamByName('myvid').Value:=IntToStr(vid);
   DataModule1.SQLQuery1.Params.ParamByName('mystat').Value:='4';
 
 
  DataModule1.SQLQuery1.ExecSQL;
 
 
 
  //заполнение работ в базу из CheckBoxa
     for I:= 0 to CheckListBox1.Items.Count - 1  do  // цикл по CheckListBox1
         begin
          if CheckListBox1.Checked[I] = true then
           begin
               DataModule1.SQLQuery3.Active:=false;
               DataModule1.SQLQuery3.SQL.Text:='SELECT *'+
               ' FROM sprrabot WHERE Rabota ="'+CheckListBox1.Items[i]+'"';
               DataModule1.SQLQuery3.Active:=true;
               idrab:=DataModule1.SQLQuery3.FieldByName('IdRabot').Value;
 
               DataModule1.SQLQuery2.Active:=false;
               DataModule1.SQLQuery2.SQL.Text:='SELECT * FROM cartridg_raboti'+
               ' WHERE cartridg_raboti.IDCartridga = '+ IntToStr(curID)+' AND cartridg_raboti.IDRabot = '+ IntToStr(IDrab);
               DataModule1.SQLQuery2.Active:=true;
 
               if DataModule1.SQLQuery2.RecordCount>0 then
                begin
                end
              else
               begin
 
 
                DataModule1.SQLQuery3.Active:=false;
                DataModule1.SQLQuery3.SQL.Text:='Insert Into Cartridg_Raboti (IDCartridga, IDRabot) Values ('+inttostr(curID)+','+IntToSTR(IDrab)+')';
                DataModule1.SQLQuery3.ExecSQL;
 
               end;
 
 
 
           end
           else
           begin
               DataModule1.SQLQuery3.Active:=false;
               DataModule1.SQLQuery3.SQL.Text:='SELECT *'+
               ' FROM sprrabot WHERE Rabota ="'+CheckListBox1.Items[i]+'"';
               DataModule1.SQLQuery3.Active:=true;
               idrab:=DataModule1.SQLQuery3.FieldByName('IdRabot').Value;
 
               DataModule1.SQLQuery2.Active:=false;
               DataModule1.SQLQuery2.SQL.Text:='SELECT * FROM cartridg_raboti'+
               ' WHERE cartridg_raboti.IDCartridga = '+ IntToStr(curID)+' AND cartridg_raboti.IDRabot = '+ IntToStr(IDrab);
               DataModule1.SQLQuery2.Active:=true;
 
               if DataModule1.SQLQuery2.RecordCount>0 then
                begin
 
                DataModule1.SQLQuery3.Active:=false;
                DataModule1.SQLQuery3.SQL.Text:='DELETE FROM Cartridg_Raboti WHERE IDCartridga='+IntToSTR(curID)+' AND IDRabot='+IntToStr(IDrab);
                DataModule1.SQLQuery3.ExecSQL;
 
                end;
           end;
 
 
 
         end;
end;