Нужна помощь... (Page 1 of 4)

procedure frmEmployee_bSave_OnClick (Sender: string; var Cancel: boolean);
var
   sid: string;
begin
     if (frmEmployee.cbGroup.dbItemID = -1) and (frmEmployee.cbGroup.Text <> '') then
     begin
          // проверьте, если группа уже существует
          sid := SQLExecute ('SELECT id FROM groups WHERE groupname LIKE "'+frmEmployee.cbGroup.Text+'"');
          if ValidInt(sid) then
             frmEmployee.cbGroup.dbItemID := StrToInt(sid)
          // если группа не существует, предложить добавить новую группу
          else begin
               if 6 = MessageDlg('Вы действительно хотите добавить новую группу: ' + frmEmployee.cbGroup.Text, mtConfirmation, mbYes + mbNo, 0) then
               begin
                    SQLExecute('INSERT INTO groups (groupname) VALUES ("'+frmEmployee.cbGroup.Text+'")');
                    UpdateDatabase('groups');
                    frmEmployee.cbGroup.dbItemID := Last_Insert_id('groups');
               end;
          end;
     end;
end;

procedure Form3_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   sid: string;
begin
//---1 часть----------что сдесь надо изменить???----------------------------------------------------------

if (frmEmployee.cbGroup.dbItemID = -1) and (frmEmployee.cbGroup.Text <> '') then
     begin
          // проверьте, если группа уже существует
          sid := SQLExecute ('SELECT id FROM groups WHERE groupname LIKE "'+frmEmployee.cbGroup.Text+'"');
          if ValidInt(sid) then
             frmEmployee.cbGroup.dbItemID := StrToInt(sid)

//---2 часть "методом научного тыка"  работает  ОК!!!-----------------------------------------------------------------------------------

          // если оценка не существует, предложить  добавления
          else begin
               if 6 = MessageDlg('Добавить запись' + Form3.ComboBox2.Text, mtConfirmation, mbYes + mbNo, 0) then
               begin
       SQLExecute('INSERT INTO BBB (id_AAA,bbb) VALUES ('+Form3.ComboBox1.sqlValue+',"'+Form3.ComboBox2.Text+'")');

       Form3.Combobox2.DoOnChange;   //дал понять, что у него значение обновилось...
       UpdateDatabase('BBB');
       Form3.ComboBox2.dbItemID := Last_Insert_id('bbb');


               end else
               begin  // если Нет...делаем:

                Cancel := True;
                Form3.ComboBox2.dbItemID:= -1;
                Form3.ComboBox2.Text := '';
               end;
          end;
     end;
end;