delphi_interbase_добавление через dblookupcombobox

[bruuk]

Не знаю где налажала, но до добавления/изменения/удаления проблем с фильтрацией и отображением таблиц бд не было..
на основной форме несколько вкладок.. на каждой вкладке расположен grid, подключены query и source(данные отображаются через запрос sql query), так же имеются параметры поиска(через этот же query)..пытаюсь добавить данные.. вызываю новую форму, на которой lookupcombobox, данные добавляются, но перестает выводится все таблицы во всех grid и lookupcombobox после первого добавления больше не позволяет добавлять данные, так же перестают работать параметры поиска.. или же после измененений параметров поиска сразу не активен combobox.. добавляю так:

procedure TfrmGroup.btnGroupIClick(Sender: TObject);
var
sql:string;
dir,instr:string;
begin
 if (edtGroupN.Text<>'') and (DBLCBGDir.Text<>'') and (DBLCBGrInstr.text<>'') then
  begin
      dir:=frmStudio.IBQrDir.FieldByName(DBLCBGDir.KeyField).Value;
      instr:=frmStudio.IBQrInstr.FieldByName(DBLCBGrInstr.KeyField).Value;
      sql:='insert into Groups (groupid,name,direction,instructor) VALUES (1,'
      +chr(39)+edtGroupN.text+chr(39)+','+dir+','+instr+')';
      frmStudio.IBQrGroup.Close();
      frmStudio.IBQrGroup.SQL.Clear();
      frmStudio.IBQrGroup.SQL.Add(sql);
      frmStudio.IBQrGroup.ExecSQL();
      frmStudio.IBTr.Commit;
      sql:='select g.name, i.surname,i.name from groups g,instructor i where g.instructor=i.instructorid';
      frmStudio.IBQrGroup.Close();
      frmStudio.IBQrGroup.SQL.Clear();
      frmStudio.IBQrGroup.SQL.Add(sql);
      frmStudio.IBQrGroup.Open;
      Application.MessageBox('Добавлена','группа');
  end
  else
    Application.MessageBox('Ошибка','Введите данные');
end;

и поиск

if (frmStudio.rgGroup.ItemIndex=0) and (edtGroupS.text<>'')
  then
    begin
      sql:='select c.surname,c.name,g.name,i.surname from client c,clientgroup cg,groups g,instructor i where c.clientid=cg.clientid and cg.groupid=g.groupid and g.instructor=i.instructorid and c.surname like'
      +chr(39)+chr(37)+edtGroupS.text+chr(37)+chr(39);
      frmStudio.IBQrGroup.Close();
      frmStudio.IBQrGroup.SQL.Clear();
      frmStudio.IBQrGroup.SQL.Add(sql);
      frmStudio.IBQrGroup.Open;
    end
  else
  if (frmStudio.rgGroup.ItemIndex=1)  and (edtGroupS.text<>'')
    then
      begin
        sql:='select g.name, i.surname,i.name from groups g,instructor i where g.instructor=i.instructorid and g.name like'
        +chr(39)+chr(37)+edtGroupS.text+chr(37)+chr(39);
        frmStudio.IBQrGroup.Close();
        frmStudio.IBQrGroup.SQL.Clear();
        frmStudio.IBQrGroup.SQL.Add(sql);
        frmStudio.IBQrGroup.Open;
      end
    else
      if frmStudio.rgGroup.ItemIndex=2
      then
        begin
        sql:='select g.groupid,g.name, i.surname,i.name from groups g,instructor i where g.instructor=i.instructorid order by 1';
          frmStudio.IBQrGroup.Close();
          frmStudio.IBQrGroup.SQL.Clear();
          frmStudio.IBQrGroup.SQL.Add(sql);
          frmStudio.IBQrGroup.Open;
        end
      else
        Application.MessageBox('Ââåäèòå äàííûå â ïîëå è âûáåðèòå ïàðàìåòðû ïîèñêà!','Îøèáêà');

[bruuk]

может быть ошибка в том, что у меня один компонент для транзакции, а нужно 2 (читающая и пишущая)?? и то что я всё делаю через grid+source+query и вывожу и добавляю/изменяю?? может добавить ещё query и transaction?