function CDBase.setQueryGroupAbonsState(groupID,aboid,state:Integer):Boolean;
Var
    strSQL,sql : String;
    res    : Boolean;
Begin
    res := false;
    if (aboid=-1)  then sql := ' where QGID='+IntToStr(groupID);
    if (aboid<>-1) then sql := ' where aboid='+IntToStr(aboid);
    strSQL := 'UPDATE QGABONS SET ENABLE='+IntToStr(state)+sql;
    Result := ExecQry(strSQL)
End;

function CDBase.ExecQry(strSQL:String):Boolean;       
Var
    res : Boolean;
Begin
    res := True;
    try
    if not FADOQuery.Active then begin
     FADOQuery.Active:=true;
     if not FADOQuery.Transaction.Active then
       FADOQuery.Transaction.StartTransaction;
    end;
    FADOQuery.Close;
    FADOQuery.SQL.Clear;
    FADOQuery.SQL.Add(strSQL);
    FADOQuery.ExecSQL;
    FADOQuery.Transaction.Commit;
    FADOQuery.Close;
   except
    FADOQuery.Transaction.Rollback;
    res := False;
   end;
   Result := res;
End;

procedure CDBase.CreateConnection(var vConn:TIBDataBase;var vQry:TIBQuery);
Var
    IBTr : TIBTransaction;
Begin
     if vConn=Nil then
    Begin
      vConn := TIBDataBase.Create(nil);
      IBTr := TIBTransaction.Create(nil);
      with vConn do begin
       SQLDialect := 3;
       DatabaseName := m_strProvider;
       Params.Add('user_name=sysdba');
       Params.Add('password=masterkey');
       Params.Add('lc_ctype=WIN1251');
       LoginPrompt := False;
       DefaultTransaction := IBTr;
      end;
      vConn.Connected := True;
      if vQry=Nil then
      Begin
       vQry := TIBQuery.Create(Nil);
       vQry.Database:=vConn;
       vQry.Transaction:=IBTr;
      End;
    End;
End;