0)',[Gr1]);

    try

     Result := Result + GroupListProducer(GroupQuery,Kind);

     if Gr10 then

      Result := Result + Format('TхЁэєЄ№ё ъ юуыртыхэш¦
',

      [Request.ScriptName, 0,0, Kind]);

    except

     on E:EDBEngineError do

     begin

      Result := Result + '+°шсър BDE'+'
';

      for i:=0 to E.ErrorCount -1 do

       Result := Result + E.Errors[i].Message + '
';

     end;

    end;

  end;

  Result := Result+'¦юшёъ'

   +CommonEnd;

end;

 // QueryAction - GetGroup тvтюф ЄрсышЎv яю Єют.уЁєяях

threadvar OperKind : Integer;

procedure TWebModule1.WebModule1GetGroupAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

 var gn1,gn2 : Integer; OrderCol : THTMLTableColumn;

begin

 with Request.QueryFields do

Рекомендуем скачать другие рефераты по теме: шпоры по социологии, бесплатные ответы.



1  2  3  4  5  6  7  8 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки